内分法によるアニメーション [BASIC]
REM *** アニメ内分法
SET WINDOW -15,24,-22,22
DIM A(30),B(30),C(30),D(30)
FOR I=1 TO 22
READ A(I),B(I) ! データ読み込み(最初の図)
NEXT I
DATA 10,10,10,20,0,20,0,10,-10,10,-10,0,0,0,0,-10
DATA 0,-20,10,-20,10,-10,10,0,20,0,20,10,10,10
DATA 0,10,0,0,10,0,10,10,10,0,10,-10,0,-10
FOR I=1 TO 22
READ C(I),D(I) ! データ読み込み(最後の図)
NEXT I
DATA 13,1,13,11,6,15,6,5,6,15,1,10,1,0,1,10,6,15,13,11
DATA 8,6,8,-4,8,6,13,11,13,1,6,5,1,0,8,-4,13,1,8,-4
DATA 8,6,1,10
FOR T=0 TO 1 STEP 0.002
CLEAR ! 画面消去
FOR I=1 TO 22 ! 図を描く
PLOT LINES : T*C(I)+(1-T)*A(I),T*D(I)+(1-T)*B(I);
NEXT I
PLOT LINES
PRINT T
NEXT T
FOR T=1 TO 0 STEP -0.002
CLEAR ! 画面消去
FOR I=1 TO 22 ! 図を描く
PLOT LINES : T*C(I)+(1-T)*A(I),T*D(I)+(1-T)*B(I);
NEXT I
PLOT LINES
PRINT T
NEXT T
END
─────
こんな簡単なプログラムで、展開図から透視図に、透視図から展開図へ。
BASICは時代遅れだなんて思っていたら大間違いかも知れませんね ^^;
(by 心如)
コメント 0