micro(A) demo : Santa Cutter

[aurel]

tiny addition ..roto spiral

Code: (Select All)

'roto spiral by ZXDunny micro(A) version by Aurel
var d,z0,p,q,b,tau,tau20,scrw,scrh : scrw = 800 : scrh = 600
var x,y,z,zz,a,b,yy,xx
d=700 : z0=2500 :p = -0.3 : q= -0.3 : b = -0.3 : tau = 6.2831
MODE 1 : wcolor 0,0,0 : fcolor 0,255,55

label doLoop
    b = b + 0.3 :
    rect 0,0,800,600  'cls
  
    a=0 : tau20 = 20 * tau
    While a < tau20
       x = 5*a*cos(a) : y = -a*10 : z=5*a*sin(a)
       yy = (y+350)*cos(b)-z*sin(b) : zz=(y+350)*sin(b)+z*cos(b)
       y=yy-350 : z=zz : xx=x*cos(b)-z*sin(b) : zz=x*sin(b)+z*cos(b)
       x=xx : z=zz : xx=x*cos(b)-(y+350)*sin(b) : yy=x*sin(b)+(y+350)*cos(b)

       print scrw/2+xx*d/(z+z0) , scrh/2-(100+yy-350)*d/(z+z0)-150 ,"*"

    a = a + 0.1
    Wend
swap
goto doLoop
'thanks for watching ...and merry christmas ...!!!!