Scheme Turtle

Wiki-Quelltext dieser Seite.

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

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

</eval>

<canvas></canvas>