Hi
ich will eine Spirale zeichnen (und drehen)
zum ausprobieren hab ich das erst mal in blitzbasic gemacht.
jedoch komme ich mit folgendem code nur auf 8-9 fps
was kann ich besser machen?
Code:
maxx=1024
maxy=768
px=Int(maxx / 2)
py=Int(maxy / 2)
rad=200.0
trees = 6
rd = 360/trees
Graphics maxx,maxy,32
SetBuffer BackBuffer()
col=255
While Not KeyHit(1)
Cls
;Spirale
st=MilliSecs()
LockBuffer BackBuffer()
For x=-
rad To
rad
For y=-
rad To
rad
If x*x+y*y<
rad*
rad Then
deg=ATan2(y,x)+180-i
If deg<0 Then deg=(deg+360) Mod 360
prad=Sqr(x*x+y*y)
If prad<>0 Then deg=deg+prad*100/
rad
If (deg Mod rd > rd/2) Then col=$FFFFFF Else col=0
WritePixelFast x+px,y+py,col
EndIf
Next
Next
UnlockBuffer BackBuffer()
i=(i-1) Mod rd
Text 10,10,1.0/((MilliSecs()-st)/1000.0)+" fps"
Flip
Wend