タートルグラフィックス機能を追加しました

LOGOのようなタートルグラフィックス機能を追加しました。
例えば、以下のようなコードでコッホ曲線が記述できます。

(define w (make-window-frame 600 600 -1 -1 21 21))
  (define t (make-turtle w 0 0 "タートルの画像ファイル"))

(define (koch len times)
  (if (= times 0)
    (turtle-draw t len)
    (begin
      (koch (/ len 3.0) (- times 1))
      (turtle-turn-right t 60)
      (koch (/ len 3.0) (- times 1))
      (turtle-turn-left t 120)
      (koch (/ len 3.0) (- times 1))
      (turtle-turn-right t 60)
      (koch (/ len 3.0) (- times 1)))))

(koch 20 7)