micro(A)v11

[aurel]

..ever see such a crazy tree ?

Code: (Select All)

'fracTRee b256
mode 1
var i,x1,y1,angle,s,b,r,x2,y2,n,pi,b
pi = 3.14

i=1
while i < 1000
x1=300
y1=600
s=290
angle = 270
'color 127*int(rand*3),127*int(rand*3),127*int(rand*3)
fcolor 230,180,100:swap
b=1
while b < 6
'call fn()
lines()

s=s*0.5
angle = angle + rand(5)*45-90
'next b
b=b+1
wend
'next i
i=i+1
wend

func lines()
r = (angle/180)*pi
y2=y1 + (sin (r))*s
x2=x1 - (cos (r))*s
n=1
while n < 30
circle (x2*n+x1*(30-n))/30, (y2*n+y1*(30-n))/30, 12/b+2
swap
n=n+1
wend

x1=x2
y1=y2
endfn