Optimierung von BitmapScroll ??? SpeedHelp!!!
Übersicht

winddancerBetreff: Optimierung von BitmapScroll ??? SpeedHelp!!! |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi Leute:) ,
ich hab hier nen Simplen SineScroller mit Bitmaps geschrieben, der soweit eigentlich funktioniert. Das eigentliche Prob ist, dass er etwas zittrig ist, ich habe versucht durch das Herausholen der Scrolltextberechnung aus der Funktion einen Speedgewinn zu erreichen, aber irgendwie mach ich da was falsch ![]() ![]() ![]() Da ich in BB noch nicht der versierteste bin seid ihr meine letzte Hoffnung!!! Hier mal mein Code : Code: [AUSKLAPPEN] Global gfxfont=LoadAnimImage("gfxfontnn.bmp",42,22,0,51) Dim Sinescroll(360) For SineWert=0 To 359 Sinescroll(SineWert)=Sin(SineWert)*22; Next ScrollText$="ABCDEFGH" While Not MouseHit(1) Cls XFactor=XFactor+2 scroll(500,310,XFactor,0,90) Flip Wend Function scroll(ScrollX,ScrollY,XFactor,YFactor,Amplitude) beginscroll = startscroll For Laenge = 1 To Len(ScrollText$) b = (Asc(Mid$(ScrollText$,Laenge,1))-64)-1 If b = -33 Then b = 50 DrawImage gfxfont,(ScrollX+(42*Laenge)-XFactor),ScrollY+(SineScroll(beginscroll))-YFactor,b beginscroll=(beginscroll+Amplitude) Mod 360 Next startscroll = (startscroll+3)Mod 360 End Function Der BMP Font besteht aus 42*22 Zeichen !!! Hoffentlich könnt ihr mir helfen !!!!!!!!! Und schon mal vielen Dank im Voraus für eure Hilfe ![]() ![]() ![]() ![]() ![]() |
||
- Zuletzt bearbeitet von winddancer am Do, Feb 17, 2005 21:37, insgesamt einmal bearbeitet
winddancerBetreff: Zusatz !!! |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Sorry hier die ersten 7 Zeilen meines Codes :
Code: [AUSKLAPPEN] Graphics 800,600,16 SetBuffer BackBuffer () Global XFactor=0 Global YFactor=0 Global Laenge Global startscroll = 0 Global ScrollText$ |
||
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group