micro(A)v11

[aurel]

and a spirograph

Code: (Select All)

'spirograph BASIC-256 => micro(A)by Aurel
mode 1
var r,x,y,xm,ym,centerx,centery,rm,n,cR,cG,cB,t
wcolor 0,80,0 : swap
r=90
centerx=150
centery=150
rm=30
n=1
while n < 6
cR = rand(3)*127 : cG = rand(3)*127 : cB = rand(3)*127
fcolor cR,cG,cB
t=0
while t < 6.28 '.002
x=r*sin(t)+centerx
y=r*cos(t)+centery
xm=rm*sin(-t*3*n)+x
ym=rm*cos(-t*3*n)+y
circle xm,ym,1 :swap
t=t+0.002
wend
n=n+1
wend
print 20,300,"spirograph B256 in micro(A)":swap