aUCBLogo Demos and Tests / stars


to stars
   
;by Juan J. Paredes G., Brian Harvey & AM
   
setsc rgb 0 0 0
   
white=rgb 1 1 1
   
setpc white
   
setfc white
   
for [sides 3 32]
   
[   pr (se "star sides 300)
      
star sides 300
      
waitms 500
      
if Key? [stop]
   
]
end

to star sides size
   
blankscreen
   
sides=int sides
   
centralpoint=pos
   
pu
   
lt 360/sides/2
   
fd size/3
   
ipos=pos
   
setpc hsb 360*0.5/sides 1 1
   
TessStart
   
bk size/3 
   
rt 360/sides/2
   
   
repeat sides 
   
[   fd size
      
epos=pos
      
setpc hsb 360*#/sides 1 1
      
pu setpos ipos 
      
pd setpos epos pu
      
bk size 
      
rt 360/sides/2
      
fd size/3
      
ipos=pos
      
setpc hsb 360*(#+0.5)/sides 1 1
      
pu setpos epos 
      
pd setpos ipos pu
      
bk size/3 
      
rt 360/sides/2
   
]
   
TessEnd
   
pu setpos centralpoint pd
   
updateGraph
end

to blankscreen
   
WindowMode cs pu home pd ht
end