Scheme Turtle

Aus ProgrammingWiki

Archivierte Version vom 2008-12-06T11:06:45+00:00. Aktuelle Version

<eval> (clear canvas) (move turtle 100 100)</eval>

(penwidth turtle 5) (pencolor turtle 255 0 0) (forward turtle 50) (right turtle 90) (forward turtle 50) (right turtle 90) (pencolor turtle 0 0 255) (forward turtle 50) (right turtle 90) (forward turtle 50)

(define t (clone turtle)) (forward t 50)

<eval> (clear canvas2) (move turtle2 200 200)</eval>

(define tree

(lambda(side) 
 (cond [(< side 2) #t] 
       [else  
         (penwidth turtle2 (/ side 10))    
         (forward turtle2 side)  
         (left turtle2 45)  
         (tree(/ side 2))  
         (right turtle2 90)  
         (tree(/ side 2))  
         (left turtle2 45)  
         (backward turtle2 side)])))

(tree 100)

<eval> (clear canvas3) (move turtle2 200 200)</eval>

(define tree

(lambda(side) 
 (cond [(< side 2) #t] 
       [else  
         (penwidth turtle2 (/ side 10))    
         (forward turtle2 side)  
         (left turtle2 45)  
         (tree(/ side 2))  
         (right turtle2 90)  
         (tree(/ side 2))  
         (left turtle2 45)  
         (backward turtle2 side)])))

(tree 100)

Scheme Turtle

Suche