Turtle-grafiikka

(require graphics/value-turtles)

(define sivun-pituus 40)
(define ruudun-koko 150)

(define (kulma n asteet turtle)
    (cond
          [(= n 0) turtle]
              [else (kulma (- n 1) asteet (turn asteet (draw sivun-pituus turtle)))]))

(define (monikulmio n)
    (kulma n (/ 360 n) (turtles ruudun-koko ruudun-koko)))

(monikulmio 3)
(monikulmio 4)
(monikulmio 5)
(monikulmio 6)