|
Post by PeterMaria on Jun 26, 2015 4:34:07 GMT -5
Hello, A bit Fibonacci. TextMode(TEXT_BUFFERED) ResizeSpriteArea(700,700) dim p1(15) dim sw,iw,cxy,pi#,r,i,j,deg,x,y,z p1=LoadImageStrip("png/stars.png",32)
sw=800:iw=1:cxy=sw/2-4 r=iw:i=0:j=0:deg=80 pi#=3.141592654
Sub SetPixel(id(),xp,yp,frame) NewSprite (id) SprSetZOrder (1) SprSetScale (2) SprSetFrame (frame) SprSetPos (xp,yp) End Sub
while i<1000 i=i+1 j=pi#/180*deg*i r=r+1 x=cxy+r*cos(j) y=cxy+r*sin(j) setpixel(p1,x,y,z) drawtext() z = z+1 if z=16 then z=0: end if wend
while scankeydown(27)=0 drawtext() waittimer(16) wend
Attachments:png.zip (2.67 KB)
|
|
|
Post by matthew on Jun 26, 2015 7:17:07 GMT -5
Very nice Peter. It would make a good screensaver. :-)
|
|