小さなお友だちの為の MacOsXでBASIC #17 ドラゴン曲線によるフラクタル

記述する動機

私、とある専門学校でPGを教えています。はや８年。いまだにSEもやってます。
学生さんたちに読んでもらうために書いているのですが、悩めるプログラマ、悩めるSE、悩める教育関係者にも何かのヒントにはなると思い、あえて公開していきたいと思います。全て実例です。個人名は秘密！！

BASIC

名前は「beginner's all-purpose symbolic instruction code」（「初心者向け汎用記号命令コード」を意味する）の頭字語である。

18歳以上はLinux,Macでc,Javaやりましょう。GCCを使えるようになりましょう。
14歳から18歳はOS問わず、IDEを使って、言語は何でもいい。
10歳から14歳は lua or BASIC おまけでscratch
10歳未満はコンピュータなんかやらんで良し。言語能力、身体能力を鍛えましょう。

前提

http://qiita.com/ggggnonaka/items/8cf3b069594e684f9c0e
を御覧ください。

フラクタル

数学的に厳密な定義は難しいのですが、ざっくりと自己相似形。
その中にドラゴン曲線てのがあるのです。

17.BAS

17.BAS

10 PICTURE D(n)
20    IF n=20 THEN
30       PLOT POINTS: 0,0
40    ELSE
50       DRAW D(n+1) WITH ROTATE(alfa)*SCALE(r)
60       DRAW D(n+1) WITH SHIFT(-1,0)*ROTATE(alfa)*SCALE(r)*SHIFT(1,0)
70    END IF
80 END PICTURE
90 SET WINDOW -1/2,3/2,-1,1
100 DRAW axes
110 SET POINT COLOR 3
120 SET POINT STYLE 1
130 LET alfa=PI/4
140 LET r=1/SQR(2)
150 DRAW D(1)
160 END

実行結果

おお！きれいに描画できてます。