小さなお友だちの為の MacOsXでBASIC #16 回転描画

記述する動機

私、とある専門学校で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
を御覧ください。

ソース概要

OPTION ANGLE DEGREES
デグリー角で扱います。

16.BAS

15.BAS

10 OPTION BASE 0
20 OPTION ANGLE DEGREES
30 PICTURE ellipse
40    LET a=5
50    LET b=3
60    LET c=SQR(a^2-b^2)
70    DIM x(360),y(360)
80    FOR i=0 TO 360
90       LET x(i)=a*COS(i)
100       LET y(i)=b*SIN(i)
110    NEXT i
120    MAT PLOT LINES:x,y
130    SET LINE COLOR 3      ! 緑
140    PLOT LINES: -c,0; c,0 ! 焦点間を結ぶ直線（長軸）
150    SET LINE COLOR 4      ! 赤
160    PLOT LINES: 0,-b; 0,b ! 短軸
170 END PICTURE
180 SET WINDOW -6,6,-6,6
190 DRAW axes
200 DRAW ellipse WITH SHEAR(45)
210 END

実行結果

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