Optimierung von BitmapScroll ??? SpeedHelp!!!

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

winddancer

Betreff: Optimierung von BitmapScroll ??? SpeedHelp!!!

BeitragDo, Feb 17, 2005 17:14
Antworten mit Zitat
Benutzer-Profile anzeigen
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 Crying or Very sad Crying or Very sad Crying or Very sad (Array ???), es muss doch möglich sein dass ein simpler BMP Sinusscroll absolut smooth und ruckelfrei in BB läuft !
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 Exclamation Exclamation Exclamation Wink Wink
  • Zuletzt bearbeitet von winddancer am Do, Feb 17, 2005 21:37, insgesamt einmal bearbeitet
 

winddancer

Betreff: Zusatz !!!

BeitragDo, Feb 17, 2005 17:17
Antworten mit Zitat
Benutzer-Profile anzeigen
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$

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group