aUCBLogo Demos and Tests / mul1


to mul1
   
g=3*5*7
   
r=300 ; Radius des Kreises
   
cs ht pu
   
setsc 0
   
c=rgb .0 .02 .03
   
xy=(array 0)
   
for [g-1]
   
[   phi=360*i/g
      
xy.i=(list sin phi cos phi)*r
   
]
   
for [g-1]
   
[   for [g-1]
      
[   _setpos xy.f
         
i=mod f*n g
         
seth towards xy.i 
         
fdadd norm xy.f-xy.i c
      
]
      
updateGraph
      
if keyP [stop]
   
]
end

to fdadd dist c
   
repeat int dist
   
[   fd 1 
      
setpc addColors pixel c
      
bk 1
      
pd fd pu
   
]
end