千変万化の模様出現

 投稿者:GAI  投稿日:2012年 8月21日(火)10時18分18秒
  書いて頂いたプログラムを参考に、点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
 
 

Re: 千変万化の模様出現

 投稿者:白石和夫  投稿日:2012年 8月22日(水)09時20分54秒
  > No.1955[元記事へ]

> ただ気に入った図形が出たとき、例えばスペースキーを押すと画面が止まり、メモする時間がとれ(できたらその画像を保存したい。)、再びスペースキーを押すと再開できたらいいと思うんですが、このあたりのテクニックを教えて下さい。

メニューから「中断」を選べば,プログラムの実行を一時的に停止することができます。
キーボードで操作する場合は,Ctrl-Bです。
画像の保存は,グラフィックスウィンドウのファイルメニューから「保存」を選べばできます。

繰り返し処理の特定の時点でのみ割り込みを受け入れたいときは,
DEBUG ON
IF GetKeyState(32)<0 THEN BREAK
を該当箇所に挿入してください。スペースキーを押し続けると中断します。

 

戻る