rem Tessellations program

graphsize 600,600

fastgraphics

l=180 : u=1: gosub tessellation

l=120 : u=1 :gosub tessellation

l=90 : u=2 :gosub tessellation

l=60 : u=2: gosub tessellation

l=60 : u=3: gosub tessellation

l=45 : u=4 : gosub tessellation

l=40 : u=3: gosub tessellation

l=36 : u=5: gosub tessellation

l=30 : u=4 :gosub tessellation

l=30 : u=6 :gosub tessellation

tessellation:

for i = 1 to 50

x1=300: y1=300: angle = 270

for b = 1 to 20

a = l*int(rand*2)-l/2

for k= 1 to u

angle = angle + a: gosub lines

next k

next b

refresh

next i

clg : pause 1: refresh

return

lines:

r = (angle/180)*pi

y2=y1 + (sin (r))*20: x2=x1 - (cos (r))*20

for n = 1 to 30

circle x1,y1,2: line x1,y1,x2,y2

next n

x1=x2: y1=y2

return

## No comments:

## Post a Comment