タートルグラフィックス機能を追加しました
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)
最近のコメント