Hallo miteinander,
ich bin ein Anfänger in PureBasic und hab mich an die Programmierung einer simplen Grafik 'Animation' gemacht.
Code:
w = 512
h = 512
rot = 200
gruen = 200
blau = 200
If OpenWindow(0,0,0,w,h,"2D Drawing Beispiel",#PB_Window_SystemMenu | #PB_Window_ScreenCentered )
CreateImage(0,w,h)
StartDrawing(ImageOutput(0))
Box(0,0,w,h,RGB(255,255,255))
StopDrawing()
Repeat
StartDrawing(ImageOutput(0))
Circle(w/2,h/2,h/2-100,$00FF00)
Circle(w/2,h/2,h/2-105,$FF0000)
FillArea(w/2,h/2,-1,RGB(rot,gruen,blau)) ; Ersetze -1 durch $00FF00 , und vergleiche das Ergebnis
rot = rot - 20
gruen = gruen - 20
blau = blau - 20
StopDrawing()
SaveImage(0, Str(rot) + ".bmp")
ImageGadget(0,0,0,w,h,ImageID(0))
Until(rot < 20)
EndIf
Mein Ziel war es dass nach jedem Schleifendurchlauf das Ergebnis als Bmp gespeichert wird. Was mir ja auch soweit gelungen ist.
Nun zu meiner eigentlichen Frage. Kann ich dieses Program irgendwie beschleunigen bzw. lässt sich der Code verbessern? Wundere mich nämlich dass es bei mir ziemlich langsam läuft
Danke schonmal und viele Grüße
Daniel
FAQ
Suche
Registrieren
Anmelden
Festplattenlaufwerk - Geschwindigkeit
