SSブログ

内分法によるアニメーション [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 02.jpg

BASIC 01.jpg

BASIC 04.jpg

BASIC 03.jpg


 こんな簡単なプログラムで、展開図から透視図に、透視図から展開図へ。

 BASICは時代遅れだなんて思っていたら大間違いかも知れませんね ^^;

(by 心如)


nice!(0)  コメント(0)  トラックバック(0) 

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

Facebook コメント

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。