参考資料
§ 3D表示 §
バックグラウンド画面は、0～3のレイヤーが用意されて居ます。此のレイヤーの夫々に異なるZ座標を設定する事で立体感の有る画面を作成する事が出来ます。
下記のプログラムでは、立体的な画面をキャラクタが、
ボタンで左右に動きます。
ボタンで終了します。
| 0000001 | OPTION STRICT |
| 0000002 | ACLS |
| 0000003 | DIM I,B,X,Y,Z |
| 0000004 | |
| 0000005 | ' GRPHIC |
| 0000006 | GPRIO 1024 |
| 0000007 | GFILL 0,0,399,239,#BLUE |
| 0000008 | |
| 0000009 | ' BACKGROUND |
| 0000010 | BGOFS 0,0,0,-200 |
| 0000011 | BGOFS 1,0,0,-64 |
| 0000012 | BGOFS 2,0,0,120 |
| 0000013 | BGOFS 3,0,0,768 |
| 0000014 | FOR I=0 TO 24 |
| 0000015 | BGPUT 1,I,13,614 |
| 0000016 | BGPUT 1,I,14,646 |
| 0000017 | NEXT |
| 0000018 | BGPUT 2,6,10,168 |
| 0000019 | BGPUT 2,6,11,200 |
| 0000020 | BGPUT 2,6,12,232 |
| 0000021 | BGPUT 3,0,11,807 |
| 0000022 | BGPUT 3,1,11,808 |
| 0000023 | BGPUT 3,2,11,809 |
| 0000024 | BGPUT 3,3,11,810 |
| 0000025 | BGPUT 3,4,11,811 |
| 0000026 | BGPUT 3,5,11,812 |
| 0000027 | BGPUT 3,6,11,813 |
| 0000028 | BGPUT 3,7,11,814 |
| 0000029 | BGPUT 3,8,11,815 |
| 0000030 | BGPUT 3,9,11,707 |
| 0000031 | BGPUT 3,0,12,839 |
| 0000032 | BGPUT 3,1,12,840 |
| 0000033 | BGPUT 3,2,12,841 |
| 0000034 | BGPUT 3,3,12,842 |
| 0000035 | BGPUT 3,4,12,843 |
| 0000036 | BGPUT 3,5,12,844 |
| 0000037 | BGPUT 3,6,12,845 |
| 0000038 | BGPUT 3,7,12,846 |
| 0000039 | BGPUT 3,8,12,847 |
| 0000040 | BGPUT 3,9,12,739 |
| 0000041 | BGPUT 3,10,12,740 |
| 0000042 | |
| 0000043 | ' SPRITE |
| 0000044 | X=184 : Y=176 : Z=-64 |
| 0000045 | SPSET 0,496 |
| 0000046 | SPSCALE 0,2,2 |
| 0000047 | SPOFS 0,X,Y,Z |
| 0000048 | |
| 0000049 | ' LOGO |
| 0000050 | SPSET 1,4095 |
| 0000051 | SPOFS 1,200,50,-256 |
| 0000052 | |
| 0000053 | ' CONSOLE |
| 0000054 | LOCATE 18,28,-200 : PRINT "PUSH X BUTTON!" |
| 0000055 | |
| 0000056 | WHILE TRUE |
| 0000057 | B=BUTTON(0) |
| 0000058 | IF B AND 4 THEN X=X-1 |
| 0000059 | IF B AND 8 THEN X=X+1 |
| 0000060 | IF B AND 64 THEN BREAK |
| 0000061 | SPOFS 0,X,Y,Z |
| 0000062 | VSYNC 1 |
| 0000063 | WEND |
| 0000064 | ACLS : END |