aUCBLogo Demos and Tests / turtlestest2


to axis
fd 100 label "y bk 100 rt 90
fd 100 label "x bk 100 up 90
fd 100 label "z bk 100 label "o
end

to cube
repeat 4[repeat 4[fd 50 rt 90fd 50 down 90]
end

to turtlesTest2
cs perspective
        
n=9
 
t=array n
 
savet=turtle
 
repeat n
 
t.repcount=newTurtle
  
setturtle t.repcount
  
setpc hsb repcount*360/1 1
 
]
        
repeat 1
 
repeat n
  
setturtle t.repcount
                       
ht rt repcount*40 pu fd 150   pd axis cube pu
  
]
  
if key?
  
repeat n
   
setturtle t.repcount
    
ht
   
]
                        
setturtle t.repcount
   
box
   
stop
  
]
 
]
end

to turtlesTest3
cs perspective
        
n=9
 
t=array n
 
savet=turtle
 
repeat n
 
t.repcount=newTurtle
  
setturtle t.repcount
  
setpc hsb repcount*360/1 1
 
]
        
repeat 1
 
repeat n
  
setturtle t.repcount
                
;;; seth 0 is the differrece;;;
                       
ht rt repcount*40 pu fd 150 pd seth axis
cube pu
  
]
  
if key?
  
repeat n
   
setturtle t.repcount
    
ht
   
]
                        
setturtle t.repcount
   
box
   
stop
  
]
 
]
end