最近のトラックバック

2019年5月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31  
無料ブログはココログ

« 実数の剰余をサポートしました | トップページ | 2次元の線形・アフィン変換をサポートしました »

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

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」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: タートルグラフィックス機能を追加しました:

« 実数の剰余をサポートしました | トップページ | 2次元の線形・アフィン変換をサポートしました »