前回、ＯＰＡＳの根本的な原理とスクロールの使用法について書きましたが、今回はいよいよアニメーション処理の方法について書きます。とはいうもののそんな大袈裟に考える必要はありません。
前回は１ドット単位で横６０ドットの画面をスクロールさせましたが、これが２ドット単位だとどうでしょうか？
実に簡単ですね。「ＦＯＲ Ｉ＝１ ＴＯ ９６０」の後に「ＳＴＥＰ２」を追加するだけです。
では、これが、６０ドット単位のスクロールだとどうなるでしょう。「ＳＴＥＰ６０」を追加すればよいというのは分かると思いますが、横６０ドットしかない画面で一気に６０ドットもスクロールしてしまったら全然違う画面が表示されて「スクロール」ではなくなってしまいます。
そうなんです。これがアニメーションの原理なのです。あまりに簡単すぎてびっくりした人もいるかも知れません。でも、前回も書いたように簡単だから誰でも使えるのです。
アニメーションさせるのに縦８ドット（１ライン）では物足りないと思いますので、縦３２ドット（４ライン）分、つまり、６０×３２ドットをアニメーションさせる方法を書いておきます。
今度は、１画面当たり６０×４ラインで２４０バイト分のデータになりますので、「ＳＴＥＰ２４０」にすればよいというのは分かりますね。
ということで、まず、データ記憶用にマシン語エリアを確保します。例えば、４Ｋバイト確保するには次のようにしてください。
| POKE &BFE03,&1A,&FD,&B,0,60,0 [RETURN] CALL &FFFD8 [RETURN] |
次がそのプログラムです。８０行以降はデータ作成部分で、ＯＰＡＳのメインは５０〜７０行です。
|
10 CLS :N=4:Z=&BFC00-N*&400:P=15:OPEN "SCRN:"FOR OUTPUT AS #1 20 FOR X=Z-102 TO Z+P*240-102 SETP 240 30 GOSUB *OPAS 40 NEXT :END 50 *OPAS FOR J=0 TO 3:P=X+J*60:C=INT (P/65536):Y=P-C*65536:B=INT (Y/256):A=Y-B*256 60 POKE &BFC93,A,B,C:LOCATE 10,J:PRINT #1,"アイウエオカキクケコ" 70 NEXT :RETURN 80 *SET GOSUB *MAKE 90 FOR I=0 TO 15:CLS :LOCATE 35,0:PRINT I 100 GOSUB *GRAPH 110 FOR Y=0 TO 24 STEP 8:Q=&BEC00+I*240+Y*7.5:FOR X=0 TO 60:V=1:P=0:FOR Z=0 TO 7 120 P=P+POINT (X,Y+Z)*V:V=V+V:NEXT :LOCATE 33,1:PRINT HEX$ Q:POKE Q,P:Q=Q+1 130 NEXT :NEXT :NEXT :END 140 *MAKE DIM V(19),W(19),X(19),Y(19):A=RND -1:FOR I=0 TO 19:X(I)=RND 60:Y(I)=RND 32:V(I)=RND 0*8-4:W(I)=RND 0*8-4:NEXT :RETURN 150 *GRAPH FOR J=0 TO 19:GCURSOR (X(J),Y(J)):GPRINT "3C7ED39F9FD3FFFF7E3C":X(J)=X(J)+V(J):Y(J)=Y(J)+W(J):NEXT :RETURN |
| 主な変数の意味 |
| Ｎ・・・マシン語エリアの大きさ（Ｋバイト） |
| Ｚ・・・書き込み開始アドレス |
| Ｐ・・・グラフィックの枚数（から１を引いたもの） |
実行させれば気が付きますが、何だか、ぎくしゃくしたアニメーション（４コマ／秒）になっていますね。それもそのはず、一番上のラインと下のラインでは約0.2秒も時間差があるのです。やっぱり、一度にパッと表示させたいですね。時間差があるのは、１回の表示につきＰＲＩＮＴ文を４回使用しているためで、しかも１つのＰＲＩＮＴ文ごとにＯＰＡＳ用のアドレス計算をしているので輪をかけて表示が遅くなっているからなのです。
なぜならば、通常ＰＲＩＮＴ文では１ライン分しか指定通りに表示出来ないからなのです。
しかし、実は２ライン以上同時に表示することも可能なのです。ただ、その場合ちょっとしたテクニックが必要になります。
そのテクニックとは制御文字の使用です。例えば「Ａ」という文字の下に「Ｂ」という文字を表示する場合、通常ならば次のようになります。
|
10 LOCATE 9,0:PRINT "A" 20 LOCATE 9,1:PRINT "B" |
| 10 LOCATE 9,0:PRINT "A"+CHR$ 31+CHR$ 29+"B" |
| ＣＨＲ＄ ２８ ・・・ 右（→） |
| ＣＨＲ＄ ２９ ・・・ 左（←） |
| ＣＨＲ＄ ３０ ・・・ 上（↑） |
| ＣＨＲ＄ ３１ ・・・ 下（↓） |
|
(1) ＲＵＮモードにする (2) A$=CHR$31 [RETURN] (3) FOR I=0 TO 9:A$=A$+CHR$29:NEXT [RETURN] (4) A$=A$+A$+A$ [RETURN] (5) ＰＲＯＧＲＡＭモードにする (6) Ａ＄ [RETURN] [+/-] (7) 行番号その他を挿入する |
|
10 CLS :N=4:Z=&BFC00-N*&400:P=15:OPEN "SCRN:"FOR OUTPUT AS#1 20 FOR X=Z-102 TO Z+P*240-102 SETP 240 30 GOSUB *OPAS 40 NEXT :END 50 *OPAS C=INT (X/65536):Y=X-C*65536:B=INT (Y/256):A=Y-B*256 60 POKE &BFC93,A,B,C:LOCATE 10,0:PRINT #1,"アイウエオカキクケコ↓← ←←←←←←←←←サシスセソタチツテト↓←←←←←←←←←←ナニヌネノハヒフヘホ↓←←←←←←←←←←マミムメモヤユヨラリ" 70 NEXT :RETURN 80〜150 リスト１と同じため省略 |
では、アドレス計算高速化について書いておきます。
この例ではグラフィック１枚当たり２４０バイト使用していますが、これを２５６バイトとして処理（もちろん、データも２５６バイト単位で書き込む必要がある→余った１６バイトは未使用となる）してやるのです。こうすることにより、最下位アドレスが固定化されるので、３つのうち上位２つを計算するだけになります。
さらに、データ量が６３Ｋバイトよりも小さいときには最上位アドレスも「Ｂｈ」となり固定化されるので求めるのは中位アドレス１つだけになります。
ここまでくると乗除算は必要なく加減算１つのみでＯＫになるので、計算速度はデフォルトの数１０倍になっています。しかも、ただアニメーションさせるだけなら、単純加算（常に１ずつ加える→「インクリメント」：Ａ＝Ａ＋１に相当）で済みますのでＦＯＲ〜ＮＥＸＴを使用すれば、何とアドレス計算はいらなくなってしまいます。
つまり、ＰＯＫＥ文で中位アドレスを書き込むだけでアニメーション処理が出来るのです。
まず、データ作成部分である１１０行の「Ｉ＊２４０」を「Ｉ＊２５６」に変更して、再び「ＲＵＮ＊ＳＥＴ」としてデータ作成を行って下さい。そして、リスト２のプログラムを以下のように変更して下さい。
リスト３（変更部分のみ）
|
20 POKE &BFC93,&9A,&BE,&B:FOR X=235 TO 250 50 *OPAS 60 POKE 785556,X:LOCATE 10,0:PRINT #1,"アイウエオカキクケコ↓←←←←←←←←←←サシスセソタチツテト↓←←←←←←←←←←ナニヌネノハヒフヘホ↓←←←←←←←←←←マミムメモヤユヨラリ" |
さらにOPASを活用したい人へ→OPAS応用編