|
|
書いて頂いたプログラムを参考に、点Rの軌跡をいろいろなスピードで鑑賞出来るようにしてみました。
スピードをちょっと変化するだけで、軌跡の形状ががらりと変わる不思議さが面白いです。
ただ気に入った図形が出たとき、例えばスペースキーを押すと画面が止まり、メモする時間がとれ（できたらその画像を保存したい。）、再びスペースキーを押すと再開できたらいいと思うんですが、このあたりのテクニックを教えて下さい。
DECLARE EXTERNAL PICTURE circle
INPUT PROMPT "大円の半径は(8～16)？":r1
INPUT PROMPT "中円の半径(5～10)、スピード(5～15)は？":r2,a
INPUT PROMPT "小円の半径(1～4)、スピード(20～)は？":r3,b
LET r=r1+r2+r3+2
SET WINDOW -r,r,-r,r
DRAW grid
FOR s=5 TO a
FOR t=20 TO b
DRAW circle(r1,r2,r3,s,t)
PRINT "(r1,r2,r3,a,b)=";"(";r1;",";r2;",";r3;",";s;",";t;")"
WAIT DELAY 2
CLEAR
NEXT t
NEXT s
END
EXTERNAL PICTURE circle(r1,r2,r3,a,b)
FOR t=0 TO 720
LET x=r1*COS(RAD(t/2))+r2*COS(a*RAD(t/2))+r3*COS(-b*RAD(t/2))
LET y=r1*SIN(RAD(t/2))+r2*SIN(a*RAD(t/2))+r3*SIN(-b*RAD(t/2))
PLOT LINES : x,y;
NEXT t
END PICTURE
|
|