Scheme Turtle

Wiki-Quelltext dieser Seite.

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

(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>

<canvas></canvas>

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

(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>

<canvas></canvas>

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

(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>

<canvas></canvas>