タートルグラフィックス機能を追加しました
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)
« 実数の剰余をサポートしました | トップページ | 2次元の線形・アフィン変換をサポートしました »
「Scheme」カテゴリの記事
- Schluessel Ver. 0.4.3をリリースしました(2012.12.15)
- Twitter始めました(2012.08.09)
- オープンソースカンファレンス2012 Kyotoの資料をアップロードしました(2012.08.09)
- Schluesselのドキュメントを英訳しました(2012.08.08)
- オープンソースカンファレンス2012 Kyotoに参加しました(2012.08.08)
この記事へのコメントは終了しました。
コメント