Game Basic: Render-to-texture

[Omni]

So, that Satakore video for Game Basic... That sequence of the rotating cube at ~1:18-1:24 on the google movie. That definitely looks like a dynamically rendered texture. What in the world is going on there? It even looks like they're rendering _five_ different faces at once (each side has a different display primitive). So...how in the world are they rendering to texture data? I don't recall that the Saturn can treat a texture as a framebuffer, and I wouldn't know how to turn the framebuffer into a texture. Is what I think is happening actually happening, or can somebody offer a better explanation there? If it's really going on, that's pretty awesome.

 

[antime]

Software rendering I would assume. The Saturn graphics hardware isn't too good at drawing circles and ovals.

 

[Omni]

See, I would almost say this is the exact same thing that Rockin-B did for his texture-coordinates demo, just manually setting new texture data. But his demonstration didn't animate nearly as fast as that software drawing in the GameBasic demo. But maybe I'm missing something elementary.

 

[RockinB]

See, I would almost say this is the exact same thing that Rockin-B did for his texture-coordinates demo, just manually setting new texture data. But his demonstration didn't animate nearly as fast as that software drawing in the GameBasic demo. But maybe I'm missing something elementary.

I finally found that video people are talking about here.

The texture-coordinates demo is focused on mapping one texture image to multiple polygon faces.

The cube in the demo does generate a 2d image and uses that as texture for one polygon face.

The SGL can draw circles and boxes onto a VDP2 bitmap scroll. You just need to transfer a part of the big scroll to the VDP1 texture memory, unfortunately line-by-line.

I've implemented the SGL bitmap functions myself in the SGL replacement library. With the SGL replacement, I would just modify the source code a bit, to draw to a small 64x64 texel texture in high work RAM and then DMA it to VDP1 RAM.

BTW: these are really nice demos

 

[Omni]

The SGL specifically has routines only for drawing simple geometric shapes to the VDP2 scroll? Just out of curiosity...what page is that in the SGL manual? Theoretically, could this be used to...

1. blit texture to VDP2 scroll

2. Layer a simple drawing over it (shapes, etc. -- even another blitted texture, for a multitexturing/environment map effect)

3. Copy back to VDP1 VRAM?

Only an idea. I'm nowhere near able to try this, I'm just asking out of theory's sake.

 

[Madroms]

Do you want the source code of the basic file ? I can provide it if you want.

 

[Omni]

Actually...yeah, that'd be pretty neat, just to look at.

 

[Madroms]

Here it is:

LOAD"COM:DDD"

 1000 ' GAME BASIC for SEGASATURN Sample Program Ver 1.2

 1001 ' [ DEMO.B ] ｷﾉｳｼｮｳｶｲ ｵｰﾄﾃﾞﾓ

 1002 ' Programmed by Naozumi Honma (nao)

 1003 ' 

 1004 '

 1005   SCREEN 0:SKCLOSE:KLOAD ON

 1006   WIDTH 1,1,38,26:COLOR ,RGB(31,31,31)

 1007   PLAYINIT "FH_STAGE",2,50,2,200:RESTORE *MS7:SETSONG

 1008 '----------------------------------

 1009 'Object Item Number

 1010   TYPE = 0: FLAG = 1

 1011   XP = 4: YP = 5: ZP = 6

 1012   XR = 8: YR = 9: ZR = 10

 1013   XS =12: YS =13: ZS = 14

 1014   ATR = 16: POLYGON = 17: ORDER = 18

 1015   PARENT = 20: CHILD = 21

 1016   XV = 24: XA = 28: XL = 32

 1017   XRV = 36: YRV = 37: ZRV = 38

 1018   X0 = 48: Y0 = 49

 1019 '----------------------------------

 1020 *START_DEMO

 1021   SCREEN 0:SKCLOSE:ACTIVE 5:KPRINT (10,200),"一般的なグラフィック命令のテスト　　　":ACTIVE 4:PRIORITY 4,1

 1022   WIDTH 1,1,38,26:COLOR ,RGB(31,31,31)

 1023   VOLUME 111:BGM 1

 1024 '

 1025 '==========================================================

 1026 '●[PSET,LINE,CIRCLE] DEMO

 1027 '==========================================================

 1028 FOR J=0 TO 20000

 1029   PSET(RND(320),RND(199)),RND(32768)

 1030 NEXT

 1031 '

 1032 FOR J=0 TO 10000

 1033   LINE (RND(320),RND(199))-(RND(320),RND(199)),RND(32768)

 1034 NEXT

 1035 '

 1036 FOR J=0 TO 5000

 1037   LINE (RND(320),RND(199))-(RND(320),RND(199)),RND(32768),B

 1038 NEXT

 1039 '

 1040 FOR J=0 TO 1000

 1041   LINE (RND(320),RND(199))-(RND(320),RND(199)),RND(32768),BF

 1042 NEXT

 1043 '

 1044 FOR J=0 TO 5000

 1045   CIRCLE(RND(320),RND(199)),RND(120),RND(32768)

 1046 NEXT

 1047 '

 1048 FOR J=0 TO 1000

 1049   CIRCLE(RND(320),RND(199)),RND(120),RND(32768),F

 1050 NEXT

 1051 '

 1052 '==========================================================

 1053 '●ｼｬﾜｰ1

 1054 '==========================================================

 1055 SCREEN 0:SETDISP 1:KPRINT (10,200),"各オブジェクトの親子関係を作って・・・"

 1056  OBJ(0,ZP)=500

 1057  FOR I=2 TO 100

 1058    OBJ(I,TYPE)  =4

 1059    OBJ(I,PARENT)=1

 1060    OBJ(I,XP)=0,0,0

 1061    OBJ(I,XR)=RND(1024)/1024,RND(1024)/1024,RND(1024)/1024

 1062    OBJ(I,XL)=4,16,4

 1063    OBJ(I,XV)=(RND(128)-64)/32,-(RND(128)+128)/32,(RND(128)-64)/32

 1064    OBJ(I,XA)=0,&h0.0E,0

 1065    OBJ(I,XRV)=RND(16)/1024,RND(16)/1024,RND(16)/1024

 1066  NEXT

 1067  OBJ(1,TYPE)=4

 1068  OBJ(1,XP)=0,224,0

 1069  OBJ(1,YRV)=&h0.01

 1070  VSYNC 60*5

 1071 '

 1072 SCREEN 0

 1073 KPRINT (10,20,0,1,0)

 1074 KPRINT "         グラフィック機能            ",,,RGB(20,0,20)

 1075 KPRINT "                                     "

 1076 KPRINT "          ポリゴン機能               "

 1077 KPRINT "                                     "

 1078 KPRINT "     ツリー構造のオブジェクト概念    "

 1079 KPRINT "             光源設定                "

 1080 KPRINT "        4頂点変形スプライト          "

 1081 KPRINT "       テクスチャ･マッピング         "

 1082 KPRINT "           テクスチャBG              "

 1083 KPRINT "      透視変換マトリックス演算       "

 1084 KPRINT "                                     "

 1085 VSYNC 60*4

 1086 '==========================================================

 1087 '●タンク

 1088 '==========================================================

 1089 'body

 1090 SCREEN 0:KPRINT (10,200),"色々な物をモデリングしてみよう！　　 "

 1091 RESTORE *TANK_VERTEX_0: SETVERTEX  0,42,READ

 1092 RESTORE *TANK_VERTEX_1: SETVERTEX  1,60,READ

 1093 RESTORE *TANK_VERTEX_2: SETVERTEX  2,34,READ

 1094 RESTORE *TANK_POLYGON_0:SETPOLYGON 0,37,0,READ

 1095 RESTORE *TANK_POLYGON_1:SETPOLYGON 1,46,1,READ

 1096 RESTORE *TANK_POLYGON_2:SETPOLYGON 2,23,2,READ

 1097 SETATR     0,37,(4, 0, 3, 0, 7399, 8)

 1098 SETATR     1,46,(4, 0, 3, 0, 7399, 8)

 1099 SETATR     2,23,(4, 0, 3, 0, 7399, 8)

 1100 OBJ(1,ATR)  = 0,0

 1101 OBJ(1,TYPE) = 4 :' POLYGON

 1102 OBJ(1,XRV) = 0,0.0015

 1103 OBJ(1,XP) = 0,0,2500

 1104 OBJ(1,XR) = 0.1,0,0.5

 1105 OBJ(2,ATR)  = 1,1

 1106 OBJ(2,TYPE) = 4 :' POLYGON

 1107 OBJ(2,XRV) = 0,0.0015

 1108 OBJ(2,XP) = 0,0,2500

 1109 OBJ(2,XR) = 0.1,0,0.5

 1110 OBJ(3,ATR)  = 2,2

 1111 OBJ(3,TYPE) = 4 :' POLYGON

 1112 OBJ(3,XRV) = 0,0.0015

 1113 OBJ(3,XP) = 0,0,2500

 1114 OBJ(3,XR) = 0.1,0,0.5

 1115 VSYNC 60*5

 1116 SCREEN 0

 1117 KPRINT (10,20,0,1,0)

 1118 KPRINT "                                     "

 1119 KPRINT "        キャラクタ画面最大4面        "

 1120 KPRINT "      ビット･マップ画面最大2面       "

 1121 KPRINT "         1軸および3軸回転            "

 1122 KPRINT "               拡縮                  "

 1123 KPRINT "             モザイク                "

 1124 KPRINT "         16色,256色,32768色          "

 1125 KPRINT "    ポリゴンとの表示優先順位指定     "

 1126 KPRINT "            スクロール               "

 1127 KPRINT "                                     "

 1128 KPRINT "                                     "

 1129 VSYNC 60*4

 1130 '==========================================================

 1131 '●ヘリコプター

 1132 '==========================================================

 1133 'body

 1134 SCREEN 0

 1135 RESTORE *HERI_VERTEX_0: SETVERTEX  0,213,READ

 1136 RESTORE *HERI_VERTEX_1: SETVERTEX  1,28,READ

 1137 RESTORE *HERI_VERTEX_2: SETVERTEX  2,8,READ

 1138 RESTORE *HERI_POLYGON_0:SETPOLYGON 0,142,0,READ

 1139 RESTORE *HERI_POLYGON_1:SETPOLYGON 1,14,1,READ

 1140 RESTORE *HERI_POLYGON_2:SETPOLYGON 2,4,2,READ

 1141 SETATR     0,142,(4, 0, 3, 0, 7399, 8)

 1142 SETATR     1, 14,(4, 0, 3, 0, 7399, 8)

 1143 SETATR     2,  4,(4, 0, 3, 0, 7399, 8)

 1144 OBJ(1,ATR)  = 0,0

 1145 OBJ(1,TYPE) = 4 :' POLYGON

 1146 OBJ(1,XRV) = 0,0.0015

 1147 OBJ(1,XP) = 0,0,1200

 1148 OBJ(1,XR) = 0.1,0,0.5

 1149 OBJ(2,ATR)  = 1,1

 1150 OBJ(2,TYPE) = 4 :' POLYGON

 1151 OBJ(2,XRV) = 0,0.1

 1152 OBJ(2,XP) = 0,-260,1200

 1153 OBJ(2,XR) = 0.1,0,0.5

 1154 OBJ(3,ATR)  = 2,2

 1155 OBJ(3,TYPE) = 4 :' POLYGON

 1156 OBJ(3,XRV) = 0,0.0015

 1157 OBJ(3,XP) = 0,-380,1200+930

 1158 OBJ(3,XR) = 0.1,0,0.5

 1159 VSYNC 60*1

 1160 VSYNC 10:PRINT "SETVERTEX  0,213,READ"

 1161 VSYNC 10:PRINT "SETVERTEX  1,28,READ"

 1162 VSYNC 10:PRINT "SETVERTEX  2,8,READ"

 1163 VSYNC 10:PRINT "SETPOLYGON 0,142,0,READ"

 1164 VSYNC 10:PRINT "SETPOLYGON 1,14,1,READ"

 1165 VSYNC 10:PRINT "SETPOLYGON 2,4,2,READ"

 1166 VSYNC 10:PRINT "SETATR 0,142,(4,0,3,0,7399,8)"

 1167 VSYNC 10:PRINT "SETATR 1, 14,(4,0,3,0,7399,8)"

 1168 VSYNC 10:PRINT "SETATR 2,  4,(4,0,3,0,7399,8)"

 1169 VSYNC 10:PRINT "OBJ(1,ATR)= 0,0"

 1170 VSYNC 10:PRINT "OBJ(1,TYPE)=4"

 1171 VSYNC 10:PRINT "OBJ(1,XRV)=0,0.0015"

 1172 VSYNC 10:PRINT "OBJ(1,XP)=0,0,1200"

 1173 VSYNC 10:PRINT "OBJ(1,XR)=0.1,0,0.5"

 1174 VSYNC 10:PRINT "OBJ(2,ATR)=1,1"

 1175 VSYNC 10:PRINT "OBJ(2,TYPE)=4"

 1176 VSYNC 10:PRINT "OBJ(2,XRV)=0,0.1"

 1177 VSYNC 10:PRINT "OBJ(2,XP)=0,-260,1200"

 1178 VSYNC 10:PRINT "OBJ(2,XR)=0.1,0,0.5"

 1179 VSYNC 10:PRINT "OBJ(3,ATR)= 2,2"

 1180 VSYNC 10:PRINT "OBJ(3,TYPE)=4"

 1181 VSYNC 10:PRINT "OBJ(3,XRV)=0,0.0015"

 1182 VSYNC 10:PRINT "OBJ(3,XP)=0,-380,1200+930"

 1183 VSYNC 10:PRINT "OBJ(3,XR)=0.1,0,0.5"

 1184 SCREEN 0

 1185 KPRINT (10,20,0,1,0)

 1186 KPRINT "                                     "

 1187 KPRINT "             カラー演算              "

 1188 KPRINT "                                     "

 1189 KPRINT "          漢字フォント内蔵           "

 1190 KPRINT "                                     "

 1191 KPRINT "    第一水準／第二水準切り替え可能   "

 1192 KPRINT "                                     "

 1193 KPRINT "                                     "

 1194 KPRINT "       V-SYNC同期（1/60秒単位）      "

 1195 KPRINT "                                     "

 1196 KPRINT "                                     "

 1197 VSYNC 60*4

 1198 '==========================================================

 1199 '●TEXMAP.B ﾃｸｽﾁｬ draw test (motos)

 1200 '==========================================================

 1201 SCREEN 0,,,-1:KPRINT (10,200),"テクスチャに対してグラフィック命令を！"

 1202 TXSIZE=80:TXSIZ2=TXSIZE/2: 'ﾃｸｽﾁｬﾉ SIZE 8ﾉ ﾊﾞｲｽｳ

 1203 RESTORE *INDE_VERTEX: SETVERTEX  0,8,READ,(TXSIZ2,TXSIZ2,TXSIZ2)

 1204 RESTORE *INDE_POLYGON:SETPOLYGON 0,6,0,READ 

 1205 SETATR 0,6 :'ｻｲｼｮﾆ ﾖﾔｸｼﾃｵｸ

 1206 FOR TX=0 TO 5

 1207   SETTEX TX,TXSIZE,TXSIZE,32768 :'ﾃｸｽﾁｬﾉ ｶｸﾎ

 1208   CLS 10+TX             :'ﾃｸｽﾁｬﾉ ｼｮｳｷｮ

 1209   '       t, f, s, t,  c, m

 1210   SETATR (0, 1, 3, TX,  0, 8):' ｱﾄﾘﾋﾞｭｰﾄﾆ ﾃｸｽﾁｬｦ ﾜﾘｱﾃﾙ

 1211 NEXT TX

 1212 OBJ(1,ATR)  = 0,0       :' ｱﾄﾘﾋﾞｭｰﾄﾄ ﾎﾞﾘｺﾞﾝｦ OBJﾂﾅｹﾞﾙ

 1213 OBJ(1,TYPE) = 4 :' POLYGON

 1214 OBJ(1,XRV) = .0009, .001:' ｶｲﾃﾝｿｸﾄﾞ

 1215 OBJ(1,XS)=1.5,1.5,1.5   :' ｶｸﾀﾞｲﾘﾂ

 1216 '

 1217 ON INTERVAL (0) GOSUB *DRAW_LINE

 1218 ON INTERVAL (1) GOSUB *DRAW_BOXF

 1219 ON INTERVAL (2) GOSUB *DRAW_BOX

 1220 ON INTERVAL (3) GOSUB *DRAW_CIRCLE

 1221 ON INTERVAL (4) GOSUB *DRAW_ELLIPSE

 1222 ON INTERVAL (5) GOSUB *RANDOM_PAINT

 1223 INTERVAL (0) ON,1:INTERVAL (1) ON,1:INTERVAL (2) ON,1

 1224 INTERVAL (3) ON,1:INTERVAL (4) ON,1:INTERVAL (5) ON,1

 1225 VSYNC 60*5

 1226 INTERVAL (0) OFF:INTERVAL (1) OFF:INTERVAL (2) OFF

 1227 INTERVAL (3) OFF:INTERVAL (4) OFF:INTERVAL (5) OFF

 1228 GOTO *NEKO

 1229 '

 1230 *DRAW_LINE:   LOCK :ACTIVE 10

 1231  FOR N1=1 TO 4

 1232    LINE (RND(TXSIZE),RND(TXSIZE))-(RND(TXSIZE),RND(TXSIZE)),RGB(RND(128),RND(128),RND(256))

 1233  NEXT N1

 1234  UNLOCK :RETURN 

 1235 '

 1236 *DRAW_BOXF:   LOCK :ACTIVE 12

 1237  FOR N2=1 TO 3

 1238    LINE (RND(TXSIZE),RND(TXSIZE))-(RND(TXSIZE),RND(TXSIZE)),RGB(RND(128),RND(256),RND(128)),BF

 1239  NEXT N2

 1240  UNLOCK :RETURN 

 1241 '

 1242 *DRAW_BOX:    LOCK :ACTIVE 11

 1243  FOR N3=1 TO 4

 1244    LINE (RND(TXSIZE),RND(TXSIZE))-(RND(TXSIZE),RND(TXSIZE)),RGB(RND(256),RND(256),RND(128)),B

 1245  NEXT N3

 1246  UNLOCK :RETURN 

 1247 '

 1248 *DRAW_CIRCLE: LOCK :ACTIVE 13

 1249  FOR N4=1 TO 2

 1250    CIRCLE (RND(TXSIZE),RND(TXSIZE)),RND(TXSIZ2),RGB(RND(128),RND(256),RND(256)),F

 1251  NEXT N4

 1252  UNLOCK :RETURN 

 1253 '

 1254 *DRAW_ELLIPSE:LOCK :ACTIVE 14

 1255  FOR N5=1 TO 2

 1256    CIRCLE (RND(TXSIZE),RND(TXSIZE)),(RND(20),RND(20)),RGB(RND(256),RND(128),RND(256)),F

 1257  NEXT N5

 1258  UNLOCK :RETURN 

 1259 '

 1260 *RANDOM_PAINT:LOCK :ACTIVE 15

 1261  PC=PC+1

 1262  IF PC < 5 THEN 

 1263    CIRCLE (RND(TXSIZE),RND(TXSIZE)),RND(TXSIZ2),RGB(RND(256),RND(256),RND(256))

 1264    LINE (RND(TXSIZE),RND(TXSIZE))-(RND(TXSIZE),RND(TXSIZE)),RGB(RND(256),RND(256),RND(256)),B

 1265  ELSE 

 1266    IF PC < 20 THEN 

 1267      PX = RND(TXSIZE): PY = RND(TXSIZE)

 1268      IF POINT(PX,PY) < 0 THEN PAINT (PX,PY) ON RGB(RND(256),RND(256),RND(256))

 1269    ELSE 

 1270      PC = 0

 1271      LINE (0,0)-(TXSIZE,TXSIZE),-1,BF:' ｸﾘｯﾋﾟﾝｸﾞ ｻﾚﾙﾉﾃﾞ ﾃｷﾄｳﾃﾞ ｶﾏﾜﾅｲ

 1272    ENDIF 

 1273  ENDIF 

 1274  UNLOCK :RETURN

 1275 '

 1276 '==========================================================

 1277 '●2D Sprite ﾋｮｳｼﾞ ｻﾝﾌﾟﾙ 

 1278 ' Written by Kanayama (motos)

 1279 '==========================================================

 1280 *NEKO

 1281 SCREEN 0

 1282 KPRINT (10,20,0,1,0)

 1283 KPRINT "           サウンド機能              ",,,RGB(20,0,20)

 1284 KPRINT "                                     "

 1285 KPRINT "     32チャンネル／16トラック        "

 1286 KPRINT "          DSPエフェクター            "

 1287 KPRINT "         ピッチ･ベンド機能           "

 1288 KPRINT "       楽典仕様のループ構造          "

 1289 KPRINT "              転調                   "

 1290 KPRINT "            コード演奏               "

 1291 KPRINT "     ALFO/PLFO/エンベロープ制御      "

 1292 KPRINT "                                     "

 1293 KPRINT "                                     "

 1294 VSYNC 60*4

 1295 SCREEN 0: PRIORITY 10,1 :'ｽﾌﾟﾗｲﾄﾉ ﾕｳｾﾝﾄﾞｦ ﾃｷｽﾄｶﾞﾒﾝﾖﾘ ｻｹﾞﾙ

 1296 KPRINT (120,40),"← スプライト・タイプ１"

 1297 KPRINT (128,70),"スプライト・タイプ２ ↓"

 1298 KPRINT (18,200),"↑ スプライト・タイプ３"

 1299 TEX_NUM = 0   :'ﾜﾘﾂｹﾙ TEXTURE ﾊﾞﾝｺﾞｳ

 1300 TEX_HS  = 112 :'TEXTURE ﾊﾊﾞ size

 1301 TEX_VS  = 113 :'TEXTURE ﾀｶｻ size

 1302 ATR_NUM = 0   :'ﾜﾘﾂｹﾙ ATTRIBUTE ﾊﾞﾝｺﾞｳ

 1303 '

 1304 RESTORE *NEKO_PAL:PALETTE 10,0,READHEX$(256*2)          :'Read sprite color from DATA statement.

 1305 RESTORE *NEKO_TEX:SETTEX TEX_NUM,TEX_HS,TEX_VS,256,READ :'Read texture pattern from DATA statement.

 1306 SETATR ATR_NUM,1,(0, 1, 3, TEX_NUM, 0, 0)

 1307 ' Spriteﾉ Z ｲﾁﾊ spriteﾄﾞｳｼﾉ ﾋｮｳｼﾞ ﾕｳｾﾝﾄﾞ ﾄｼﾃ ﾂｶﾜﾚﾏｽ｡

 1308 ' 100ﾖﾘ ｲﾁｻｲﾄ ﾋｮｳｼﾞｻﾚﾅｲ ﾊﾞｱｲｶﾞ ｱﾘﾏｽ｡

 1309 '

 1310 OBJ(1,TYPE) = 1: 'Z ｶｲﾃﾝ sprite

 1311 OBJ(1,ATR)  = ATR_NUM

 1312 OBJ(1,XP)   = -100,-50,300 :' X,Y position ｼﾃｲ

 1313 '

 1314 OBJ(2,TYPE) = 2: 'HV ﾄﾞｸﾘﾂ scale ｼﾃｲ sprite

 1315 OBJ(2,ATR)  = ATR_NUM

 1316 OBJ(2,XP)   = 100,30,200 :' X,Y position ｼﾃｲ

 1317 '

 1318 OBJ(3,TYPE) = 3: '4 ﾃﾝ ｼﾃｲ sprite

 1319 OBJ(3,ATR)  = ATR_NUM

 1320 OBJ(3,XP)   = -70,50,100 :' X,Y,Z position ｼﾃｲ (4ﾃﾝﾉ ｷｼﾞｭﾝ ｲﾁ)

 1321 '

 1322 FOR TT=0 TO 6000

 1323  OBJ(1,ZR) = XSIN(N*3)/16    :'ｻﾕｳﾆ ｶﾀﾑｹﾙ

 1324  OBJ(1,XS) = XSIN(N/4)/4+.8  :'ﾕｯｸﾘﾄ ｽｹｰﾘﾝｸﾞ

 1325  OBJ(2,XS) = XSIN(N)/4+.8,XCOS(N)/4+.8 :'ｻﾕｳﾉ ﾊﾞｲﾘﾂｦ ｼﾃｲｽﾙ

 1326  P0_X = -TEX_HS/4 + XSIN(N*1.2)*50 : P0_Y = -TEX_VS/4 + XSIN(N)*10

 1327  P1_X = +TEX_HS/4 + XCOS(N*1.2)*50 : P1_Y = -TEX_VS/4 + XCOS(N)*10

 1328  P2_X = +TEX_HS/4 + XSIN(N)*100: P2_Y = +TEX_VS/4 + XSIN(N*1.7)*10

 1329  P3_X = -TEX_HS/4 + XCOS(N)*100: P3_Y = +TEX_VS/4 + XCOS(N*1.7)*10

 1330  OBJ(3,X0) = P0_X,P0_Y, P1_X,P1_Y, P2_X,P2_Y, P3_X,P3_Y

 1331  N=(N+&H0.001) AND! &HFFFF.FFFC

 1332 NEXT

 1333 '

 1334 '

 1335 '==========================================================

 1336 '●PFONT DEMO

 1337 '==========================================================

 1338 SCREEN 0

 1339 KPRINT (10,20,0,1,0)

 1340 KPRINT "                                     "

 1341 KPRINT "    AIFF/WAVEファイル･ロード機能     "

 1342 KPRINT "                                     "

 1343 KPRINT "          MML割り込み機能            "

 1344 KPRINT "                                     "

 1345 KPRINT "        FM音源編集コマンド装備       "

 1346 KPRINT "                                     "

 1347 KPRINT "     32オペレータを自由に結線可能    "

 1348 KPRINT "                                     "

 1349 KPRINT "                                     "

 1350 KPRINT "                                     "

 1351 VSYNC 60*4

 1352 SCREEN 0

 1353 VOLUME 111:BGM 2

 1354 KPRINT (10,200),"ネーム入力をこうするとカッコイイ？　 "

 1355 'SETLIGHT 0.7,0.01,0.1,RGB(10,0,30),RGB(3,3,3)

 1356 SETLIGHT 1,0,0

 1357 SETDISP 3

 1358 PRIORITY 10,1: OBJ(100,TYPE)=6

 1359 OBJ(100,XRV)=-.001,.0001,&H0.002

 1360 OBJ(100,XR)=-.17,.1

 1361 OBJ(100,XP)=-20,-70,110

 1362 '

 1363 FOR I=ASC("A") TO ASC("Z")

 1364  N=I-ASC("A")

 1365  OBJ(N+1,PARENT)=100: OBJ(N+1,TYPE)=4

 1366  OBJ(N+1,XRV)=.0008,.003

 1367  OBJ(N+1,XP)=XSIN(N/26)*250,XCOS(N/26)*250

 1368  SETPFONT N+1,I,,RGB(RND(32),RND(32),RND(32))

 1369 NEXT 

 1370 VSYNC 60*8

 1371 '

 1372 '==========================================================

 1373 '●AZ-1

 1374 '==========================================================

 1375 *INDEMO

 1376 SCREEN 0

 1377 KPRINT (10,20,0,1,0)

 1378 KPRINT "              一般命令               ",,,RGB(20,0,20)

 1379 KPRINT "                                     "

 1380 KPRINT "      速度優先の固定小数点仕様       "

 1381 KPRINT "     浮動小数点演算も、もちろん可能  "

 1382 KPRINT "                                     "

 1383 KPRINT "             多次元配列              "

 1384 KPRINT "                                     "

 1385 KPRINT "        ラベル機能､構造化IF文        "

 1386 KPRINT "                                     "

 1387 KPRINT "                                     "

 1388 KPRINT "                                     "

 1389 VSYNC 60*4

 1390   SCREEN 0,,,-1:PRIORITY 10,1:KPRINT (10,200),"デジタル･カメラ取り込み画像を加工して"

 1391 '----------------------------------

 1392 '●AZ-1の登録

 1393 '----------------------------------

 1394   SETLIGHT -1,1,1

 1395   RESTORE *INDE_VERTEX: SETVERTEX  0,8,READ

 1396   RESTORE *INDE_POLYGON:SETPOLYGON 0,6,0,READ

 1397   RESTORE *INDE_TEX:    SETTEX     0,296,250,32768,READ

 1398   SETATR   0,6,(0, 1, 3, 0, 0, 8)

 1399 '----------------------------------

 1400 '●立体キューブの親AZ-1の登録

 1401 '----------------------------------

 1402   OBJ(2,ATR) = 0,0           :' ｱﾄﾘﾋﾞｭｰﾄﾄ ﾎﾞﾘｺﾞﾝｦ OBJﾂﾅｹﾞﾙ

 1403   OBJ(2,TYPE)= 4             :' POLYGON

 1404   OBJ(2,XRV) = .002, .002    :' ｶｲﾃﾝｿｸﾄﾞ

 1405   OBJ(2,XS)  = 0,0,0         :' ｶｸﾀﾞｲﾘﾂ

 1406 '----------------------------------

 1407 '●親AZ-1が拡大しながら出現

 1408 '----------------------------------

 1409   FOR I=0 TO 60 STEP .2:OBJ(2,XS)=I,I,I:VSYNC:NEXT:KPRINT (10,200),"   ポリゴンに貼り付けても面白い！      "

 1410 '----------------------------------

 1411 '●３つの子AZ-1登録

 1412 '----------------------------------

 1413   OBJ(3,ATR) = 0,0           :' ｱﾄﾘﾋﾞｭｰﾄﾄ ﾎﾞﾘｺﾞﾝｦ OBJﾂﾅｹﾞﾙ

 1414   OBJ(3,TYPE)= 4             :' POLYGON

 1415   OBJ(3,XRV) = .001, .001    :' ｶｲﾃﾝｿｸﾄﾞ

 1416   OBJ(3,XS)  = 10,10,10      :' ｶｸﾀﾞｲﾘﾂ

 1417   OBJ(3,20)  = 2             :' ｵﾔｺ ｶﾝｹｲ

 1418 '

 1419   OBJ(4,ATR) = 0,0           :' ｱﾄﾘﾋﾞｭｰﾄﾄ ﾎﾞﾘｺﾞﾝｦ OBJﾂﾅｹﾞﾙ

 1420   OBJ(4,TYPE)= 4             :' POLYGON

 1421   OBJ(4,XRV) = .001, .001    :' ｶｲﾃﾝｿｸﾄﾞ

 1422   OBJ(4,XS)  = 10,10,10      :' ｶｸﾀﾞｲﾘﾂ

 1423   OBJ(4,20)  = 2             :' ｵﾔｺ ｶﾝｹｲ

 1424 '

 1425   OBJ(5,ATR) = 0,0           :' ｱﾄﾘﾋﾞｭｰﾄﾄ ﾎﾞﾘｺﾞﾝｦ OBJﾂﾅｹﾞﾙ

 1426   OBJ(5,TYPE)= 4             :' POLYGON

 1427   OBJ(5,XRV) = .001, .001    :' ｶｲﾃﾝｿｸﾄﾞ

 1428   OBJ(5,XS)  = 10,10,10      :' ｶｸﾀﾞｲﾘﾂ

 1429   OBJ(5,20)  = 2             :' ｵﾔｺ ｶﾝｹｲ

 1430 '----------------------------------

 1431 '●子AZ-1出現

 1432 '----------------------------------

 1433   FOR H=0 TO 100 STEP .2

 1434     GOSUB *KO_INDE_POS:VSYNC

 1435   NEXT

 1436 '----------------------------------

 1437 '●子AZ-1回転

 1438 '----------------------------------

 1439   AN_MAX=.02

 1440   FOR I=0 TO AN_MAX STEP .0001

 1441     GOSUB *KO_INDE_POS

 1442     AN=FRAC(AN+I)

 1443     VSYNC

 1444   NEXT

 1445 '----------------------------------

 1446 '●ずっと周っていなさい(笑)

 1447 '----------------------------------

 1448   FOR TT=0 TO 60*10

 1449     GOSUB *KO_INDE_POS

 1450     AN=FRAC(AN+AN_MAX)

 1451     VSYNC

 1452   NEXT

 1453   GOTO *CAME

 1454 '----------------------------------

 1455 '●子AZ-1座標計算サブ･ルーチン

 1456 '----------------------------------

 1457 *KO_INDE_POS

 1458   OBJ(3,XP)=XSIN(AN)*H,XCOS(AN)*H,0

 1459   OBJ(4,XP)=XSIN(AN-.25)*H,0,XCOS(AN+.25)*H

 1460   OBJ(5,XP)=0,XSIN(AN-.25)*H,XCOS(AN-.25)*H

 1461   RETURN

 1462 '

 1463 '==========================================================

 1464 '●円運動のカメラテストwith BG (motos)

 1465 '==========================================================

 1466 *CAME

 1467 SCREEN 0

 1468 KPRINT (10,20,0,1,0)

 1469 KPRINT "            対応周辺機器             ",,,RGB(20,0,20)

 1470 KPRINT "                                     "

 1471 KPRINT "       セガサターンキーボード        "

 1472 KPRINT "         コントロールパッド          "

 1473 KPRINT "       セガマルチコントローラー      "

 1474 KPRINT "           バーチャガン              "

 1475 KPRINT "           シャトルマウス            "

 1476 KPRINT "         マルチターミナル６          "

 1477 KPRINT "       レーシングコントローラー      "

 1478 KPRINT "                                     "

 1479 KPRINT "                 ・・・等、多数対応  "

 1480 VSYNC 60*4

 1481 SCREEN 5,4,256:PRINT"CAMERA"

 1482 ROTZOOM 2,2:  'Ground size

 1483 VIEW_HEIGHT=300

 1484 RBG_PRIORITY=4

 1485 PRIORITY 8,RBG_PRIORITY

 1486 A$=READCHR$(4,0,256)

 1487 SETCHR 8,0,A$

 1488 PALETTE 8,1,RGB(10,10,10)

 1489 PALETTE 8,15,RGB(0,30,30)

 1490 FOR I=1 TO 5000

 1491   PUTCHR 8,(RND(128),RND(128)),ASC("A")*2

 1492 NEXT I

 1493 CCOPY 8,(0,0)-(127,127) TO 8,(0,128)

 1494 CCOPY 8,(0,0)-(127,127) TO 8,(128,0)

 1495 CCOPY 8,(0,0)-(127,127) TO 8,(128,128)

 1496 '

 1497 CUBE_CENTER=-12

 1498 SETLIGHT -1,1,0

 1499 OBJ(1,TYPE)=4

 1500 OBJ(1,XP)=0,CUBE_CENTER,0

 1501 OBJ(2,TYPE)=4

 1502 OBJ(2,XP)=0,-100,0

 1503 OBJ(3,TYPE)=4

 1504 OBJ(3,XP)=-40,CUBE_CENTER,0

 1505 OBJ(4,TYPE)=4

 1506 OBJ(4,XP)=40,CUBE_CENTER,0

 1507 OBJ(5,TYPE)=4

 1508 OBJ(5,XP)=30,CUBE_CENTER,50

 1509 N=0

 1510 CX=80:CZ=0:CZV=-&H0.001

 1511 TARGET=3

 1512 SETDISP 3

 1513 FOR TT=0 TO 60*10:VSYNC

 1514  OBJ(3,XP)=XCOS(N*4)*380

 1515  OBJ(3,ZP)=XSIN(N*5)*280

 1516  OBJ(3,XR+1)=.5-N

 1517  N=FRAC(N+&H0.002)

 1518  GOSUB *LOOK

 1519 NEXT

 1520 '---------------------------------------------------------------------------------------

 1521 SCREEN 0

 1522 KPRINT (10,20,0,1,0)

 1523 KPRINT "          セガサターンで             "

 1524 KPRINT "     オリジナル･ゲームが作れる！     "

 1525 KPRINT "                                     ",,,RGB(20,0,20)

 1526 KPRINT "     Ｇ Ａ Ｍ Ｅ  Ｂ Ａ Ｓ Ｉ Ｃ     ",,,RGB(20,0,20)

 1527 KPRINT "                for                  ",,,RGB(20,0,20)

 1528 KPRINT "            SEGASATURN               ",,,RGB(20,0,20)

 1529 KPRINT "                                     ",,,RGB(20,0,20)

 1530 KPRINT "                                     "

 1531 KPRINT "                                     "

 1532 KPRINT "(C)1998 ASCII Corp. / Bits Laboratory"

 1533 KPRINT "        / ESP inc.                   "

 1534 VSYNC 60*10

 1535 GOTO *START_DEMO

 1536 '

 1537 *LOOK

 1538  HIGHT=XSIN(CZ)*VIEW_HEIGHT-VIEW_HEIGHT/2

 1539  IF HIGHT > 0 THEN PRIORITY 10,RBG_PRIORITY-1 ELSE PRIORITY 10,RBG_PRIORITY

 1540  CAMERA (XCOS(CZ*2)*500,HIGHT,XSIN(CZ*9)*320),-.04 TO TARGET,BG

 1541  CZ=FRAC(CZ+CZV)

 1542  IF 0 AND (CN > 10000) THEN CN=0

 1543 RETURN

 1544 '

 1545 '---------------------------------------------------------------------------------------

 1546 '==== VERTEX

 1547 *INDE_VERTEX

 1548 DATA -1, -1,-1

 1549 DATA  1, -1,-1

 1550 DATA  1,  1,-1

 1551 DATA -1,  1,-1

 1552 DATA  1, -1, 1

 1553 DATA -1, -1, 1

 1554 DATA -1,  1, 1

 1555 DATA  1,  1, 1

 1556 '---------------------------------------------------------------------------------------

 1557 '==== POLYGON

 1558 *INDE_POLYGON

 1559 DATA , (0, 1, 2, 3)

 1560 DATA , (1, 4, 7, 2)

 1561 DATA , (4, 5, 6, 7)

 1562 DATA , (5, 0, 3, 6)

 1563 DATA , (4, 1, 0, 5)

 1564 DATA , (2, 7, 6, 3)

 1565 '---------------------------------------------------------------------------------------

 1566 *HERI_VERTEX_0

 1567 DATA  -45, 310,-200,  -55, 240,-350,   55, 240,-350,   45, 310,-200

 1568 DATA  -55, 210,-380,   55, 210,-380,   55, 190,-450,   55, 110,-450

 1569 DATA   55, 100,-380,  -55, 190,-450,  -55, 100,-380,  -55, 110,-450

 1570 DATA   55, 150,-450,  -55, 150,-450,  -55, 170,-450,  -35, 170,-490

 1571 DATA  -30, 150,-500,   30, 150,-500,   55, 170,-450,   35, 170,-490

 1572 DATA   25, 170,-450,  -25, 170,-450,  -15, 170,-490,   15, 170,-490

 1573 DATA   25, 190,-450,  -25, 190,-450,  -15, 200,-490,   15, 200,-490

 1574 DATA   45, 145,-460,   45, 145,-500,   45, 110,-495,   45, 120,-460

 1575 DATA  -45, 145,-460,  -45, 145,-500,  -45, 110,-495,  -45, 120,-460

 1576 DATA   85, 145,-380,   85, 105,-380,   85, 120, 100,   85, 160, 100

 1577 DATA   55, 150,-405,   55, 105,-405,   55, 120, 100,   55, 165, 100

 1578 DATA   55, 310, 120,   55, 310, -90,  -55, 310, -90,  -55, 310, 120

 1579 DATA   45, 330,  75,   45, 330, -70,  -45, 330, -70,  -45, 330,  75

 1580 DATA  -10, 330,-110,   10, 330,-110,  -20, 310,-130,   20, 310,-130

 1581 DATA   20, 310, -70,   10, 330, -70,  -10, 330, -70,  -20, 310, -70

 1582 DATA   55, 200, 460,  -55, 200, 460,   50, 300,  50,  150, 300,  50

 1583 DATA  150, 295, 280,   50, 295, 300,  150, 225,  50,  150, 230, 280

 1584 DATA   50, 215,  50,   50, 220, 300,  130, 280,  50,   90, 280,  50

 1585 DATA   90, 240,  50,  130, 240,  50,  130, 280,  10,   90, 280,  10

 1586 DATA   90, 240,  10,  130, 240,  10,  -50, 295, 300, -150, 295, 280

 1587 DATA -150, 300,  50,  -50, 300,  50, -150, 230, 280, -150, 225,  50

 1588 DATA  -50, 220, 300,  -50, 215,  50, -130, 240,  50,  -90, 240,  50

 1589 DATA  -90, 280,  50, -130, 280,  50, -130, 240,  10,  -90, 240,  10

 1590 DATA  -90, 280,  10, -130, 280,  10,   55, 180, -20,  260, 180, -10

 1591 DATA  260, 180,  80,   55, 180, 110,  -55, 180, 110, -260, 180,  80

 1592 DATA -260, 180, -10,  -55, 180, -20,  160, 180,  95,  160, 180, -35

 1593 DATA  160, 130, -65,  160, 130,  35, -160, 180,  95, -160, 180, -35

 1594 DATA -160, 130, -65, -160, 130,  35,  230, 180,  85,  230, 180, -35

 1595 DATA  230, 130, -65,  230, 130,  30, -230, 180,  85, -230, 180, -35

 1596 DATA -230, 130, -65, -230, 130,  30,   55, 100, 120,  -55, 100, 120

 1597 DATA   55, 100, 460,  -55, 100, 460,   30, 120, 940,   30, 180, 940

 1598 DATA  -30, 180, 940,  -30, 120, 940,   20, 200, 460,   20, 180, 930

 1599 DATA    0, 210, 825,    0, 230, 365,  -20, 180, 930,  -20, 200, 460

 1600 DATA    0, 180, 820,    0, 450, 950,    0, 450,1050,    0, 180, 950

 1601 DATA   30, 380, 930,  -10, 420, 940,  -10, 380, 900,  -10, 340, 920

 1602 DATA  -10, 390,1010,   20, 180,1040,  170, 180, 940,  170, 180,1020

 1603 DATA  -20, 180,1040, -160, 180, 940, -160, 180,1020,    0, 120,1010

 1604 DATA  -45, 330, -25,   45, 330, -25,    0,  90,1010,    0,  90,1040

 1605 DATA    0, 120,1040,  110,   0, -60,  110,  60, -60,  110,  60,-120

 1606 DATA  110,   0,-120, -110,   0,-120, -110,  60,-120, -110,  60, -60

 1607 DATA -110,   0, -60,  -85, 105,-380,  -55, 105,-405,  -55, 150,-405

 1608 DATA  -85, 145,-380,  -55, 165, 100,  -55, 120, 100,  -85, 120, 100

 1609 DATA  -85, 160, 100,  -15, 100,-280,  -10,  55,-260,   10,  55,-260

 1610 DATA   15, 100,-280,   10,  65,-235,   15, 100,-240,  -15, 100,-240

 1611 DATA  -10,  65,-235,  -55, 100,-350,  -55, 100,-200,   55, 100,-350

 1612 DATA   55, 100,-200,  205, 126,-108,  205,  67,-108,  255,  67,-108

 1613 DATA  255, 126,-108,  205, 126,  50,  205,  67,  50,  255,  67,  50

 1614 DATA  255, 126,  50,  133,  99,-108,  160,  72,-108,  187,  99,-108

 1615 DATA  160, 126,-108,  133,  99,  91,  160,  72,  91,  187,  99,  91

 1616 DATA  160, 126,  91, -255, 126,-108, -255,  67,-108, -205,  67,-108

 1617 DATA -205, 126,-108, -205,  67,  50, -255,  67,  50, -255, 126,  50

 1618 DATA -205, 126,  50, -160, 126,-108, -187,  99,-108, -160,  72,-108

 1619 DATA -133,  99,-108, -160,  72,  91, -187,  99,  91, -160, 126,  91

 1620 DATA -133,  99,  91

 1621 'Main roter

 1622 *HERI_VERTEX_1

 1623 DATA   10,  70,   0,    0,  70,  10,  -10,  70,   0,    0,  70, -10

 1624 DATA   10, 120,   0,    0, 120,  10,  -10, 120,   0,    0, 120, -10

 1625 DATA  100, 120,   0,    0, 120, 100, -100, 120,   0,    0, 120,-100

 1626 DATA   50, 120,  30,  750, 120,  30,  750, 110, -70,   50, 110, -70

 1627 DATA   30, 120, -50,   30, 120,-750,  -70, 110,-750,  -70, 110, -50

 1628 DATA  -50, 120, -30, -750, 120, -30, -750, 110,  70,  -50, 110,  70

 1629 DATA  -30, 120,  50,  -30, 120, 750,   70, 110, 750,   70, 110,  50

 1630 'Tail roter

 1631 *HERI_VERTEX_2

 1632 DATA   80, -92,-120,   80,-120, -92,   80,  92, 120,   80, 120,  92

 1633 DATA   80,  20,-150,   80, -20,-150,   80, -20, 150,   80,  20, 150

 1634 '----------------------------------

 1635 *HERI_POLYGON_0

 1636 DATA  , (0,1,2,3),  , (1,4,5,2),  , (7,8,5,6),  , (4,9,6,5)

 1637 DATA  , (10,11,9,4),  , (11,10,8,7),  , (13,16,15,14),  , (17,12,18,19)

 1638 DATA  , (15,19,18,14),  , (16,17,19,15),  , (17,16,13,12),  , (6,9,11,7)

 1639 DATA  , (26,27,24,25),  , (21,22,26,25),  , (22,23,27,26),  , (23,20,24,27)

 1640 DATA  , (30,31,28,29),  , (35,34,33,32),  , (28,32,33,29),  , (34,30,29,33)

 1641 DATA  , (30,34,35,31),  , (31,35,32,28),  , (41,37,36,40),  , (38,42,43,39)

 1642 DATA  , (45,44,48,49),  , (47,46,50,51),  , (54,55,53,52),  , (55,56,57,53)

 1643 DATA  , (52,58,59,54),  , (61,47,44,60),  , (63,64,65,62),  , (66,67,64,63)

 1644 DATA  , (67,66,68,69),  , (67,69,65,64),  , (68,66,63,62),  , (70,71,72,73)

 1645 DATA  , (76,77,74,75),  , (74,70,71,75),  , (71,72,76,75),  , (72,73,77,76)

 1646 DATA  , (77,73,70,74),  , (79,80,81,78),  , (82,83,80,79),  , (84,85,83,82)

 1647 DATA  , (84,82,79,78),  , (83,85,81,80),  , (86,87,88,89),  , (90,91,92,93)

 1648 DATA  , (89,93,92,88),  , (92,91,87,88),  , (91,90,86,87),  , (86,90,93,89)

 1649 DATA  , (94,95,96,97),  , (100,101,98,99),  , (101,100,99,98),  , (95,94,97,96)

 1650 DATA  , (104,105,102,103),  , (105,104,103,102),  , (106,107,108,109),  , (109,108,107,106)

 1651 DATA  , (112,113,110,111),  , (113,112,111,110),  , (114,115,116,117),  , (117,116,115,114)

 1652 DATA  , (120,122,123,60),  , (125,121,61,124),  , (61,60,123,124),  , (126,127,128,129)

 1653 DATA  , (130,131,129,128),  , (136,137,138),  , (138,139,136),  , (136,139,140)

 1654 DATA  , (140,137,136),  , (65,69,62),  , (84,78,81),  , (127,142,143,141)

 1655 DATA  , (142,127,141,143),  , (130,145,146,144),  , (145,130,144,146),  , (122,125,124,123)

 1656 DATA  , (120,121,125,122),  , (47,0,3,44),  , (118,120,60,44),  , (121,119,47,61)

 1657 DATA  , (135,134,133,132),  , (134,135,132,133),  , (128,127,130),  , (49,48,44,45)

 1658 DATA  , (46,47,51,50),  , (49,50,52,53),  , (149,148,50,49),  , (120,8,10,121)

 1659 DATA  , (137,140,139,138),  , (150,151,152,147),  , (151,150,147,152),  , (156,153,154,155)

 1660 DATA  , (153,156,155,154),  , (160,157,158,159),  , (157,160,159,158),  , (37,38,39,36)

 1661 DATA  , (36,39,43,40),  , (41,42,38,37),  , (161,162,163,164),  , (166,167,168,165)

 1662 DATA  , (167,161,164,168),  , (168,164,163,165),  , (161,167,166,162),  , (169,170,171,172)

 1663 DATA  , (174,172,171,173),  , (169,175,176,170),  , (170,176,173,171),  , (173,176,175,174)

 1664 DATA  , (177,10,4,1),  , (178,177,1,0),  , (119,178,0,47),  , (8,179,2,5)

 1665 DATA  , (179,180,3,2),  , (180,118,44,3),  , (182,183,184,181),  , (185,188,187,186)

 1666 DATA  , (181,185,186,182),  , (187,183,182,186),  , (183,187,188,184),  , (184,188,185,181)

 1667 DATA  , (190,191,192,189),  , (193,196,195,194),  , (189,193,194,190),  , (190,194,195,191)

 1668 DATA  , (191,195,196,192),  , (193,189,192,196),  , (198,199,200,197),  , (201,202,203,204)

 1669 DATA  , (199,201,204,200),  , (198,202,201,199),  , (202,198,197,203),  , (203,197,200,204)

 1670 DATA  , (206,207,208,205),  , (209,210,211,212),  , (207,209,212,208),  , (206,210,209,207)

 1671 DATA  , (210,206,205,211),  , (208,212,211,205)

 1672 '

 1673 *HERI_POLYGON_1

 1674 DATA  , (0,1,5,4),  , (1,2,6,5),  , (2,3,7,6),  , (3,0,4,7)

 1675 DATA  , (8,9,10,11),  , (14,15,12,13),  , (18,19,16,17),  , (22,23,20,21)

 1676 DATA  , (26,27,24,25),  , (11,10,9,8),  , (13,12,15,14),  , (17,16,19,18)

 1677 DATA  , (21,20,23,22),  , (25,24,27,26)

 1678 '

 1679 *HERI_POLYGON_2

 1680 data  , (1,2,3,0),  , (2,1,0,3),  , (5,6,7,4),  , (6,5,4,7)

 1681 '---------------------------------------------------------------------------------------

 1682 'POINT DATA = 42

 1683 *TANK_VERTEX_0

 1684 DATA   520,  490, 1100,   520,  400, -980,   520,  300,-1080,  -520,  490, 1100

 1685 DATA  -520,  400, -980,   300,  400, -980,  -300,  400, -980,  -520,  300,-1080

 1686 DATA  -300,  300,-1080,   300,  300,-1080,   300,  490, 1100,  -300,  490, 1100

 1687 DATA  -300,  260, 1075,  -300,  420, 1170,  -300,  260, 1170,   300,  260, 1170

 1688 DATA   300,  260, 1075,   300,  420, 1170,  -300,  490, 1130,  -520,  490, 1130

 1689 DATA  -520,  280, 1130,  -300,  280, 1130,  -300,  490, 1330,  -520,  490, 1330

 1690 DATA  -520,  280, 1330,  -300,  280, 1330,  -520,  170, -900,   520,  170, -900

 1691 DATA  -520,    0, -600,   520,    0, -600,  -520,    0,  770,   520,    0,  770

 1692 DATA  -520,  260, 1075,   520,  260, 1075,   520,  350,-1030,   300,  350,-1030

 1693 DATA   300,  170, -900,  -300,  350,-1030,  -300,  170, -900,   520,  405, -902

 1694 DATA  -520,  350,-1030,  -520,  405, -902

 1695 '

 1696 'POINT DATA = 60

 1697 *TANK_VERTEX_1

 1698 DATA  -100,  640,   20,    80,  640,   20,   350,  640,   20,  -350,  640,   20

 1699 DATA  -100,  590, -550,    80,  590, -550,   375,  600, -340,  -375,  600, -400

 1700 DATA   430,  490,  600,  -430,  490,  600,   460,  450,   20,  -460,  450,   20

 1701 DATA  -450,  465, -480,   455,  460, -400,  -200,  455, -620,   170,  455, -610

 1702 DATA  -430,  640,  600,  -460,  640,   20,   460,  640,   20,   430,  640,  600

 1703 DATA  -310,  680,  -70,  -310,  680, -210,  -130,  680, -210,  -130,  680,  -70

 1704 DATA  -310,  630,  -70,  -310,  615, -210,  -130,  615, -210,  -130,  630,  -70

 1705 DATA   195,  690, -130,   265,  690, -130,   265,  750, -130,   195,  750, -130

 1706 DATA   195,  690,    0,   265,  690,    0,   265,  750,  -10,   195,  750,  -10

 1707 DATA  -410,  640,  800,  -410,  530,  800,   410,  640,  800,   410,  530,  800

 1708 DATA   300,  690,    0,   160,  690,    0,   160,  690, -140,   300,  690, -140

 1709 DATA   300,  638,    0,   160,  638,    0,   160,  623, -140,   300,  623, -140

 1710 DATA  -280,  640,  140,  -205,  640,   10,   -55,  640,   10,    20,  640,  140

 1711 DATA   -55,  640,  270,  -205,  640,  270,  -250,  710,  140,  -190,  710,   35

 1712 DATA   -70,  710,   35,   -10,  710,  140,   -70,  710,  245,  -190,  710,  245

 1713 '

 1714 'POINT DATA = 34

 1715 *TANK_VERTEX_2

 1716 DATA    80,  610, -470,    80,  600, -590,    80,  530, -650,    80,  490, -630

 1717 DATA    80,  460, -510,  -100,  490, -630,  -100,  610, -470,  -100,  460, -510

 1718 DATA  -100,  530, -650,  -100,  600, -590,    10,  550,-1120,   -10,  530,-1120

 1719 DATA    10,  510,-1120,    30,  530,-1120,    10,  550,-1650,   -10,  530,-1650

 1720 DATA    10,  510,-1650,    30,  530,-1650,    10,  560, -960,   -20,  530, -960

 1721 DATA    10,  500, -960,    40,  530, -960,    10,  570, -615,   -30,  530, -650

 1722 DATA    10,  490, -630,    50,  530, -650,    50,  580, -960,    50,  580,-1120

 1723 DATA    50,  500,-1120,    50,  500, -960,   -30,  580, -960,   -30,  580,-1120

 1724 DATA   -30,  500,-1120,   -30,  500, -960

 1725 '

 1726 'PARTS BASIC DATA = 0:body

 1727 'POLYGON DATA = 37

 1728 *TANK_POLYGON_0

 1729 DATA  , (7,8,6,4),  , (9,2,1,5),  , (12,11,13,14),  , (10,16,15,17)

 1730 DATA  , (17,13,11,10),  , (15,14,13,17),  , (16,12,14,15),  , (18,19,20,21)

 1731 DATA  , (25,24,23,22),  , (22,23,19,18),  , (23,24,20,19),  , (24,25,21,20)

 1732 DATA  , (25,22,18,21),  , (8,7,4,6),  , (2,9,5,1),  , (3,4,1,0)

 1733 DATA  , (28,29,27,26),  , (30,31,29,28),  , (31,30,32,33),  , (29,31,33,27)

 1734 DATA  , (30,28,26,32),  , (33,16,10,0),  , (12,32,3,11),  , (1,27,34)

 1735 DATA  , (36,5,35),  , (5,36,35),  , (37,38,6),  , (6,38,37)

 1736 DATA  , (37,35,5,6),  , (38,36,35,37),  , (36,27,1,5),  , (26,38,6,4)

 1737 DATA  , (27,33,0,39),  , (27,39,1,34),  , (4,40,26),  , (32,26,41,3)

 1738 DATA  , (41,26,40,4)

 1739 '

 1740 'PARTS BASIC DATA = 2:turret

 1741 'POLYGON DATA = 46

 1742 *TANK_POLYGON_1

 1743 DATA  , (0,4,5,1),  , (13,10,2,6),  , (12,14,4,7),  , (6,5,15,13)

 1744 DATA  , (10,18,2),  , (10,8,19,18),  , (9,11,17,16),  , (21,22,23,20)

 1745 DATA  , (21,20,24,25),  , (25,26,22,21),  , (23,22,26,27),  , (20,23,27,24)

 1746 DATA  , (31,28,29,30),  , (32,35,34,33),  , (29,33,34,30),  , (35,31,30,34)

 1747 DATA  , (32,28,31,35),  , (3,7,4,0),  , (1,5,6,2),  , (17,11,3)

 1748 DATA  , (11,12,7,3),  , (16,17,18,19),  , (39,37,36,38),  , (10,11,9,8)

 1749 DATA  , (41,42,43,40),  , (44,45,46,47),  , (44,45,41,40),  , (45,46,42,41)

 1750 DATA  , (46,47,43,42),  , (47,44,40,43),  , (49,50,56,55),  , (50,51,57,56)

 1751 DATA  , (48,49,55,54),  , (53,48,54,59),  , (52,53,59,58),  , (51,52,58,57)

 1752 DATA  , (54,57,58,59),  , (55,56,57,54),  , (14,15,5,4),  , (10,13,15)

 1753 DATA  , (15,14,11,10),  , (11,14,12),  , (8,39,38,19),  , (37,9,16,36)

 1754 DATA  , (38,36,16,19),  , (8,9,37,39)

 1755 '

 1756 'PARTS BASIC DATA = 3:gun

 1757 'POLYGON DATA = 23

 1758 *TANK_POLYGON_2

 1759 DATA  , (3,0,1,2),  , (0,3,4),  , (5,6,7),  , (6,5,8,9)

 1760 DATA  , (9,1,0,6),  , (8,2,1,9),  , (5,3,2,8),  , (3,5,7,4)

 1761 DATA  , (11,15,14,10),  , (12,16,15,11),  , (16,12,13,17),  , (17,13,10,14)

 1762 DATA  , (23,19,18,22),  , (24,20,19,23),  , (20,24,25,21),  , (21,25,22,18)

 1763 DATA  , (28,29,26,27),  , (33,32,31,30),  , (30,31,27,26),  , (32,28,27,31)

 1764 DATA  , (28,32,33,29),  , (29,33,30,26),  , (14,15,16,17)

 1765 '

 1766 '---------------------------------------------------------------------------------------

 1767 '==== PALETTE 256*2 bytes

 1768 *NEKO_PAL

 1769 DATA 00010001000200220023004100240043006100620045006500640083006600A2

 1770 DATA 0067048500C30487008804C504E404A908A804AA08C7012310E604CA05060CC9

 1771 DATA 08CB0D07014608EC10EB00CE19270D290947050B018510EC0149150B1149110C

 1772 DATA 0D0D1D4A05A7058A15690D2E152D194C11A9114F194E05AC198B258B058F15C9

 1773 DATA 196F1D6E15AB05EA159021AD01AE0A080D9101EC31AC1DEA1D8F29AD258F120B

 1774 DATA 21CD01EE11EE21B115B21A0C29B031CE062D1DD1220E262C2DD1162D1A0F2DF0

 1775 DATA 2A0D022F39EF15F429D20E121DF3320F31F21E4E3611324D25F31A312A4F1E15

 1776 DATA 361306522E14326E3A3142301A7026142A323A332A7002923A6F3A3436342A35

 1777 DATA 1A734A5142533A713E9032553A55369042722E922A561AD1425506B446743A56

 1778 DATA 42B0427536762E774E9246934A753AB342763A7736781EF44A9546D24AB44297

 1779 DATA 4A9742D43E9832B84EB652B54AD54AB742B842F44AB83EB936F652D5231852D7

 1780 DATA 4ED846D94ED95EF656F856F74F3552D946FA4EF95AF856F95B174EFA5AF96317

 1781 DATA 56FA5F19531A5B1A53385F3967384F1B5B1A5B3B6739573B5F3A475A5F3B6B59

 1782 DATA 5B3C633B675A675B635C5B5C6B5A675C635C5F5D677C677C6F7A6B7B6B7C637D

 1783 DATA 6B7D677D6F9C6B9D679D6F9D739C6F9D6B9E6F9D77BD739D6FBE77BD73BE6FBE

 1784 DATA 77BD77BE73BE77BE73BE77DE77DF77DF7BDE7BDF7BDF7BDF7BFF7FFF7FFF7FFF

 1785 '---------------------------------------------------------------------------------------

 1786 '==== TEXTURE SIZE (112,113)

 1787 *NEKO_TEX

 1788 DATA 2634211107050528DCF0EA941E94B3C6C6C68E67E6F3F3F3F0960981A5791194

 1789 DATA B36A0C0A0404060B100E18181F181818170A101D2519192B2F1F2B2317579431

 1790 DATA 0B2694CFE6E6CA814D116275370903030107070362A56731041A8E2707070000

 1791 DATA 4D8E6A1F0206060A020206020E101014

 1792 DATA 2611110703030928DCF0CA1160C6C6B3B3CFE6CFDCF3F0F3F0A5113D67756AA5

 1793 DATA BFBFA53107040406070B0E171818181D181019191414101717201D1D170B6A24

 1794 DATA 24376AADD6DDAF37070B1A2711070503010101021A2103042EA4812E2E010201

 1795 DATA 044D793506060A0A0A0A060610171720

 1796 DATA 0D0C070403010005317511094A946275B3DCDCBA5FDCF0F0CA260D11154D79A4

 1797 DATA C1C56A110E0402040A060B0E13131313140A0A0A06060A0E101710141D0E2413

 1798 DATA 020A1D2929294562670B040004050305150C0C0111263D94B5CAB5CFE6DC2611

 1799 DATA C6EAF0DC06060A0B100E0A0A101F2424

 1800 DATA 07070B0300000000030000030D1C00093C4D673D093D8882410300122794411A

 1801 DATA 2D56B48E0207020204040413131313130E04040201020E0A0B0E0A0A10130B02

 1802 DATA 11A5C6E2C6F0F8F8EAC6D6A53C050C0C31310C0994A5BFA4C1BABAF3F0EA5F1C

 1803 DATA E2EDE66A02060E131018100E14181F20

 1804 DATA 040704030003010000010003030C5AB3BFB33134A6CFDCDC955FC5EAE2C10B06

 1805 DATA 06131F5FA40E070201010404070B1318130E0606020A0A0A060A0A06060E1301

 1806 DATA 3DF3FAFAFDFDFCFAF3FAF3E2A52E0C0D1A1C150D9EC5AFB4B48274E6F3EA620C

 1807 DATA B5DCDC4106060E131F1317101017242D

 1808 DATA 0C0B040000030989BFDC75030D26BFF8F8F0CF95E6FAFAF8FAFEFAFAF3D6180B

 1809 DATA 1313140B37BA94A5214D2D0407070E1313130E0B0E0E0E0A0E060202020E2407

 1810 DATA 31FAFAFCFDFDFAFAFAFAFAF8B51C0D0D0D153C94C3A4AFC5965F6ABCEAC10109

 1811 DATA CFF0F0DC1F0A1018181F171410102D2D

 1812 DATA 1A27376731055AEAF0CF2605113CCAFCFCF5B5A6EAF8F8F8FAFEFEFEFDFA1310

 1813 DATA 1723172D2B1D9CDCEAE2AD241813180E13180E1813143610100A10131F362418

 1814 DATA 1CF8F8FCFEFCF8F3FCFDF8F3A5151E1C3194C1CCAF9CC18CBFA6ADD6D6741511

 1815 DATA C6F5F8F8411313101F24181710102418

 1816 DATA 18ADDCDC575AB3E6DC79576267C6F0FDFEFEF8E6DCB5D2F3FDFAFAFAFEF8360B

 1817 DATA 1719190A0A0E2D9CFAF0BA4C6A2D1A13132D0E1F24175619242417243A231837

 1818 DATA 37E2FAF3EAD6E2EAEDF8FAF0AF62813C81E0D3BEA4A4B4BAB5A5E2EAF0DC9500

 1819 DATA 95F0F8F837242D1024241F1F181F1714

 1820 DATA 15DCEAC1A6EAE2621A62A582CCFAFEFEFEFFFDEAADDCF8FFFEFAF3F0F0F0410B

 1821 DATA 1D30191D1F14241FB5F8EA826A796A37375618564E149C4E2D242B24172F5F6A

 1822 DATA 7988DAD2B5E2EDEAEDE9F3F0D6AD9E88E6D3C1AFA4CAAFB5AFC5DDF8F0F0BF27

 1823 DATA 2EC5E6BF131310104E2D1F17171F1D18

 1824 DATA 11BFD2CFEAEAC11A0D34749EFAFAFFFDFCFEFFFEFEFEFFFFFEFAF0F3F0F0960E

 1825 DATA 23404C36363A241D1FAFE66845797D9CB5C19C8EC182D2C15F9C795F67AFAFC1

 1826 DATA E6E7E2F3F5F5F5F5F5F3EDE7DDD2D2E6D7BE98A4C1A4969CAFBCE2E6E6E6C61A

 1827 DATA 020C57370E131313202041181F1D1F17

 1828 DATA 0C2645BCF0F3DC4D3788D6F3F8FDF0E2FDFFFFFFFFFFFFFFFFFEF8F8F0EACA0B

 1829 DATA 2B3A40302B201714412DAF8E6A9CD2DDE0E7EAEAE7F1F1F1F3F1E7F1F5F5F5F1

 1830 DATA FAF5F5F3F6F3F4F1F4F1EBE3E0E0DAD7CCAF9896CAA07D8E9CBCCAE6E6EAB313

 1831 DATA 04019481131317181F1F1F5617101710

 1832 DATA 3D3D83F0FCF8C583F0FDFEFCF0F0B5B6FEFEFFFFFFFFFFFFFFFDCAD2BFADC51F

 1833 DATA 1419302B232320200E1F4ECABADAD7D7E3E0DED4EBF1F4EEF6F5F1F1EEE9EBE9

 1834 DATA F1F1F2F4F1F1F1EBEBEBEEDEDECCC3CCBEA48CDDA7688E919ECACCBCD6C55F00

 1835 DATA 01006794131318181F1F2410360A1310

 1836 DATA BF94A5E2EAE256BCFDFEFFFDF0DCC6DCF0FDFEFDFCFEFFFDFF4D50A5C6D6BA3A

 1837 DATA 3A535353564C4C362F36204EBEBEAFB7BEC3D1D1DEE0E3E3E9E9D4DBD0C8CED4

 1838 DATA D8D1DEE0E3E0E3E3E5E3E0DAD1C8B7B291A0D3984E987D8C796A745F41240B07

 1839 DATA 030101181318131818181F1F20412D24

 1840 DATA CF3D27B3CFDC57CFFDFEF8D2C5E2F8FCF8FDFDF8F0FEFFFEDD67CAF8E6D6BA82

 1841 DATA 172323304C5353534E362B566AA77D79A4C3D7DADBDBE3E0DED4C0C9C8C3BBB0

 1842 DATA C0C8C3C8D8D4DBE3DEE0E0DADEC8BE8CBECC865C7D688C797986794118180703

 1843 DATA 0403010113171817171F2B242F412324

 1844 DATA 9E3C33CFE28E12C6F3F8D328C4FEFFFFFFFAFAC150DCF8EAADC6D6FAFAF0EAB4

 1845 DATA 2F414C4C5953595C365C4E404E8CB4A4BED3DADBDED4DBDBC8BBB0B0A7A7A7A7

 1846 DATA 99BBBBB7C0C9DED4D8DEE3EBEBEBBECCC998A0A78CAF8CA07D7D53795C4E3121

 1847 DATA 040101011013171F1F2B2F2B2D2F452B

 1848 DATA B39E6BB3B32169F0FAFAD695FAFEFFFFFAFAE6503C2E948E67AD9EE2EDD2AF79

 1849 DATA 4E4E4C3A40535C7070537068685CA4CCCCDEDEE0D4CEC8C0C3B7AAA7A0A7A798

 1850 DATA 8CBBAAA7C0C8D4D1CEDBE3E9F4EBE7DEC3BED7B4CC988C7D70686A6A825F241A

 1851 DATA 01010107101A1718242F24242D2B3A1F

 1852 DATA B3C6BF812E5AC4FAFEFCE2DCF0F3D6F8FCF0812E1A1121452E57A6D2DDC1A48E

 1853 DATA 8E4C597E868691A7A7BE7086BEC3C3C8DADBDBDFD1C2C9B7B2B2BBA798A09F91

 1854 DATA A0A0B7A7B2C9C9D1D7DBF1E9E9EBF2DEE7E7D1E0BE8F9C6A8E828250413C3C3C

 1855 DATA 210C04030E1F181F242B1D233A2D363A

 1856 DATA 6EBFB32EB5F0F0F3F0F0F0AD574D229DE6D2A594944D3C94BFBCD6CAB57995C1

 1857 DATA CA567268708C868C8F98E0C8A0D1DADADBDBD4D1CED1C3BBA7B2B0A78F988F86

 1858 DATA 8691AA98BBBBD4C9D1E3EBE3E5EEE0E9EEDDDED1AFE6D2B4C1704C534027120D

 1859 DATA 0C1205071D371F1D1F1F17242F3A413A

 1860 DATA 224B3C7CE6FAF5CAADBFCF573457817575A5E6F0DC9E94A5A5ADBABF824DBFDD

 1861 DATA CA5C364C5C5C5C98A0BBB0D7D7DEDEDED8E3CED4CEC9C9B2A7C3B9A0A0918670

 1862 DATA 7D989886A7BBB7BEC3D4E0E7E3E0E7E9E7E7E3EDE0C0DAD7BB915F5F78785A1E

 1863 DATA 161B1605111F242B2F2B20232B413636

 1864 DATA 160D22CFDCE6D6CAE2DCB33D2175671A0DADFAFAB5BFE2EAFAF8DC9E629682BA

 1865 DATA AF9C2F5353B0B068A7BBD1C0D4E5DADEDBE7DBD8DEC9B2B0B0BEB086868C8C70

 1866 DATA 70708C9C98BEA0A7B9DBE0E3E3DBE5F1E9E7EED7D7EBE0BB9C4E4E400E040711

 1867 DATA 11070C07131F292F2D2F2B2420242F36

 1868 DATA 150D129EBF83BCF8F5DD503C121E151C3CA5EADC3CADFAFEFFFCF56A5F74565F

 1869 DATA 9CBE4E688C98BBD4B7AADBDACED1E7E0E0E3DED8D1C9C3B7A0A0989870708656

 1870 DATA 56706898AAC3A09FBEDED8E3E5E0F2E3E9E7DEE7E5DEC9BBB09C5F2F11070702

 1871 DATA 040707111A292F2D2D2D202B363A363A

 1872 DATA 110C0D3F759EC6F0E68250212657624D623157311E88F8FFFDFFE23C34506782

 1873 DATA A5B48C98B4AAC3C0C3D49FD7DADED4E0DEDEDBDBC9CEC8BBA0A0B4535C865C5C

 1874 DATA 5C7D708FAAB7AAA7C9D3C2E1E3E9E9EBEBEBEDEBE9D3AFB4825F796A370C0102

 1875 DATA 02070C1118181F2F243A3A362F2B3A36

 1876 DATA 372E21213C94AD883D3C3D74CFBF8131345775946774A6F0FDF57428215A1550

 1877 DATA A6CA564186BBB0C0DACCD4CEE7DEDED8E1DEDBD0B9C9C3C8AA917E7D6898704E

 1878 DATA 5668704070AA91BBDEDBC0CEE3E9EBF4EEEBEEE9DED3D7A49C823C5011110702

 1879 DATA 04040C0B1324362F36413A41302B3536

 1880 DATA 27271E110538741E15151E83CFA4270D4AC6CA5F2E75505AA695422715389488

 1881 DATA 67C1706A91C3C3CCD4D4DEDED4E0E3E3E3DFD8C999BBCEB7AA8C70A08C7D8C56

 1882 DATA 4E4E70917D8698B0D1E0B7C8E3EBE5E9EBEEEEEBEBE7CCDEB08E82271E1A0202

 1883 DATA 02040704132D363636354C4C3030363A

 1884 DATA 11151209000C3415070D11277541050838A59E0C1E3D4516343C501121607495

 1885 DATA D6D37E824C98CCC8DADEE3E3DEE5E5E3E3E0DEC9B1C0D4BBBBA08C7D537D8C3A

 1886 DATA 5C564E9198867DB7C3D1C8D1E3E0EBE9EEEEF2F2F1EEEDE9E7E0C396370B0B02

 1887 DATA 02020209273A36362F304040352B3640

 1888 DATA 11070905050C110B070B0E0E0A07030509120D053D673C163D50271E677467A1

 1889 DATA D6C8985C91B798BEDEDEE3E9E5E5E0DFDBE5DBCEB9BBD3CCA7AA98A768797D56

 1890 DATA 686A537E8C7D70B0C3CCD3BBDEE3D1E7E5EEEEF2F1F2EEEEEBE9E3DE9C822702

 1891 DATA 0201071529353540393539353544404C

 1892 DATA 10070100030C0407131F171A13110D0303030042949E602227092E745095A6BC

 1893 DATA D2D1915CAFB0BBC3C8E7E3E5E9E5E1DBD4D8DEDBB2AAC0B0A7AA5C70708C4C5C

 1894 DATA 794C5C6891707D9FAABEBBAAB7CEDBD8E5E5F1EEF2F1F2F1EEEBE0E5E3B45F04

 1895 DATA 02010113363035353A3A30364C404053

 1896 DATA 1301000003070C13244E57371A15090507050057AD946050453721679EBCDDE7

 1897 DATA E0C3A0B0B798C8DAE0D8E5E9ECE5E1DBD4C9D1D7C999C3C398706A86705C4E68

 1898 DATA 565C3A7D5356687070AA9FB7C0C8B2C0D0E1EBEDEBF3EEF2F1EEEBE9E3E0BA1A

 1899 DATA 04061D4C44534C404040414C414C6459

 1900 DATA 1107040C11000715134D56110C1C31311C1111379E88A6BF8E1F2657B5DDE7EB

 1901 DATA E0BEAAB7C3D1D7CEE0EBECEBE9E5E0DECED4D4C0C972B09F5C7D5C6868684C4E

 1902 DATA 563A3A3A4E5C4C5C68706491442F1F4077B9DFE3E5ECEEEBF4EEEEEBE7E0DA96

 1903 DATA 33212935355964533640363956685953

 1904 DATA 0C091C1101040C0C1A313D15313D4A37313DB3B3BFDCC5A5574D4D75B5DDEDE9

 1905 DATA D3B7A7B7C8DBE0E5E9EBEBEBE5E3E3D4C2B0999F729868705C5C53412B4E2F3A

 1906 DATA 36411F3A3A361F23233A64140C135F570A2540AAC0D0E0E5E8E5F2EEEBE3E3CC

 1907 DATA 8E4E1F103053485C563623353940415C

 1908 DATA 0C070707030404111C3D5762814D0C27B3C6CACFEADCAD45150D67BCE6E2E0D7

 1909 DATA C3BECEDEE3E3DFE5E9E9E9EBE5E3D0B99972593559724C534C232B2F4C41202B

 1910 DATA 2D292D1F3617201D1430014AA51A57742D309FD7E7EBE7DBD1DEE3E9E9DEE3DE

 1911 DATA CCA44E2017142340443017141D304C59

 1912 DATA 0D0C030706010000091E5775571A0C15B3BFA6C6DCC5742E15073195D2E7EBDA

 1913 DATA C8DBDBE3E7E9E9E5E3E9E9E5D8B1662502040200060E59192010131710172413

 1914 DATA 24242418181717101D030402076275942D64BBD1DEDBDAE0DEDEE0E3E9E9E9E5

 1915 DATA DAB091683A3A3A23231D2F241D141935

 1916 DATA 150C04010100030509052634090C0C0934816783958350283767ADD6E6EBE5D4

 1917 DATA DBE0E5E9EBE9E5E0DBD8C8C39823063C246A9CBC6A06012917101D2F1417171F

 1918 DATA 372420362B36204002131A261C57629E18B7D7D0B2B7D4D7D7E7DBE0E5EBE9E9

 1919 DATA E9E0B27E64645C5C4E3A403919100E10

 1920 DATA 11040101000005080D16150D0300000026161E1E505A455795B5C1E2F1E7DAD8

 1921 DATA D8DEE5E5EBE7E3DBD7DAE0D1D7B00A372731110526451A010B3A303A20132D20

 1922 DATA 5F412D564D41794E01373D26314A945696C8C9BEB0AAAAB7CEE7DEDBDEE9EBEB

 1923 DATA E9E5DEBE7D5364534440404C301D1014

 1924 DATA 0401010101010F1C28261501000000030307111528313D95D2F0EDF3E7D1D8D5

 1925 DATA D8DFE3E9DED8D4D4DED1D8D8DAD18C3762573D263D4A6201131F564E3A56564E

 1926 DATA 6A6A8296A482795F0A1F5762629441A4C0C8C8C3AF98AAB7A7D7D4D1D8E5E9E5

 1927 DATA E5E7E5D7AF796840404C535340404C4C

 1928 DATA 010100000103091C110C090808080505070C15151527749ED2E6F3EDD7DBDEDE

 1929 DATA E0E4E3DED8D1D1CEC8D1B0BBC9D4D7914D574A4A4A75620B190A4C566882564E

 1930 DATA 5682829CA49C79701998A7708CB0D7D7D4DECCB7B7B79FB0D4D1D7D4D7D8DBE9

 1931 DATA E3E9E5E3DEB4684C3A40443A393A564C

 1932 DATA 020101000001000001051B32321E090903090C1A1A4D83BCEAEDF1DED4E0E0E1

 1933 DATA DEE0E5DBCEC9C9D1C8A78FA098AAC8DAB75C6857818270B75C1D20686A5F8E96

 1934 DATA AF9CB4AFB4AF8E7096A0C3DADAD7DAD7D1C8C0AAB0B0B4BEB7CEE3E0D4D4D8DB

 1935 DATA E1E3E5E5DAB086644C35302B203A412F

 1936 DATA 0303000000000000010922322C15150D0D0C0E0E1550A6E6EAF1E7DADEE3E1D8

 1937 DATA D8DBE3CEB9D1C9BBA7A0917E98A7AAB0C0DED7C8C8D1D7984C3A4E5F79799CB4

 1938 DATA C1CCB4C19CCCC19C91AFBBCED7DADBD4CED1C3BEB0B0AAAACCC9DAE7E0D4D4DE

 1939 DATA E3E5E9EBE7DDA44C4039231023403036

 1940 DATA 04040100000001000008050F1215151C110B111A1A2E88C1E2E7E7E5E7E9DBD0

 1941 DATA D4E3D8C9D1D1C9C3867E8CA7AAB0A09FC3AAC3B2C8C0AA98682F79799682BECC

 1942 DATA D7C1B4BAB4AFA7AFBEBEBEB7D1DADED1D1BBBBBEB7B2B098A7C8DAE7E7E3E3E5

 1943 DATA E5E4EBEEEEE0BA6A352317141D2D1020

 1944 DATA 0C0C0301010305070C030303090C11151A13090D609EB5E2EBE7E7E7EBDBD4D4

 1945 DATA D8D8D8D1D4D1C986AAB4988C868FA09FB9BEC0B7AAB2B2865682684E9179B4D2

 1946 DATA D2B4B4A4BAB49CB4B4B4D3D3D7DEE3F1E7CCBBAAB0C3D8DABEB0CEE3E7E3E5EB

 1947 DATA EBEBECF4F2EEE9C37041240E3A0A171D

 1948 DATA 0C05010001050509040301010000070B0C070C3467B5E6EAEBEBE9E5DED5C9C9

 1949 DATA DADBD1DED7D3CCBEC8988CA0B0AA98A7A7AABB8F9FB098649C8CAF8C706AAF9C

 1950 DATA 6A8E824D377996CCD6E6D3DAD8DEE0E0E0C9BEBBA0B07E98CCBED4D7DEE3E9E9

 1951 DATA EBE9E9E5EBEBE9CC91401F1820191720

 1952 DATA 0903031C0509050100000000000301110C0D264D95C1E6EDEBE9E9E5DFD8BDBD

 1953 DATA D1CEBDD1D1E0CEBB989891BB7298A7A88F9FC098A7B0A0AAA7AFAF828EC5A467

 1954 DATA 411811180B06A45FD3DEE5EBE7DEE0EBDED19F72AA7D7E98B2B0BBD1E1E7E3EB

 1955 DATA F2EBE5E9ECEBE5CC7E985C402F201724

 1956 DATA 0C0D0F1616120303010000010004041A15153488D6F0EDEBEBE5E9E9DBCBC2CE

 1957 DATA D8DED7DAE0D4C8C3B4B0B0AABBB086917D7086A072708CB7CCCCB0B4C1CA1F04

 1958 DATA 02020201010013ADC1DDEBEDE7EDE0DEE9EBB7867D726C7E8FA7B2B2D7D1DEE5

 1959 DATA EEEEE9EBEEEEE7E0B46A564068202436

 1960 DATA 151E1616160D09050001010107071113111C50B5E2EDEDEEEEEBE5E1D8D5CED4

 1961 DATA D8D4D4DED7D4D1C0BEC9B2A0869168AA59688C8FB0B2B0D1E0D3BECC8E240001

 1962 DATA 01020100002D82CCCCE0E7D4F2D4E3D8DFEBE7B4B08F867E998F99C8C0C8D4E5

 1963 DATA EEEEE9EEEEF1EBE0BEA468684E20294C

 1964 DATA 15120D0705070D0903030305090C1A050D3CA6DDEAF3F3F2EEEBE5E1D8D0D8D8

 1965 DATA DBD1D8C9D7DED7D1D7BB86726886914E5F6468B7A791BEE7E7CCD3DADAAF8C13

 1966 DATA 010201011F9696A0B4CCE3DAE5F1EEEBDECCD3B4708691989872928FAAC0CED8

 1967 DATA DFE5E9EEEEEDF3EDE0BEAF705C596A56

 1968 DATA 120D0903030305090D0D0C090911211E3495BCE2EDF3F4F1EEE9E5E1D9DBD9DB

 1969 DATA D4C2C8D4D7D7DAD1BBAAB7AAAA8664443A6ABEB798C3E7EBE0DEE0D3B7A0A4B4

 1970 DATA 020101006AA48291BAD2D1F6F5F9F3F4FAF7E3CC8C3A4C5340405386B2C8CED8

 1971 DATA E1E5EFF4EBF4F5F4EBD4BAA0A08C5C68

 1972 DATA 08120901030701050D120909090C11215F74D2E6F1F3F3F2EEECE9E5E4E0D4CE

 1973 DATA DBE1D4DEDED4C9BEB2B0867D7E64362B5391B798BEC2C9DEB2E5F1E0BAB4AF96

 1974 DATA 9C06015FAFB49C96B091B464AA92CEC9CEE0E3E5D3C8B7B0B2B2A8A27F99B1B9

 1975 DATA CBD8E1E9EEF6F5F5F4F1E0DAB496704E

 1976 DATA 050F090703010205050809090707151E67A6DDEDF3F5F3F4F1EEECE5E4D8CBDB

 1977 DATA E5E5E5DEE3DAC0BEB2868C644C3A2B5656B098BBB9D7F5F5F8E5CED3C1BA9CBE

 1978 DATA 963A0B8E4E7D9C96A4B4D2CCD1CCC3C3C2DAD1E0E2AF7D564C40393E6692A2B9

 1979 DATA C2E0E3E9EEF4F7F7F8F5F4EBDACCA79C

 1980 DATA 000305030103030504050511212731455FB3E6F3F5F5F5F3F2EFE9E9DBD5D5DB

 1981 DATA E9EBE9D8C9C8BB6C4444444053595953594468BBE0F5EEE7C8988FD2BBBAA041

 1982 DATA 6A79185F826A5F4E98AFB0BECEE3E7D1E3EDE3E5EEEBCEE4FBF9EEE9D4D1DFD0

 1983 DATA D5DFE1EEF2F6F5F9F9F7F5F4F4F1EBE7

 1984 DATA 00000000000509070303050C1E4288B3D6EAF5F5FAF8F5F1F1EBE5DFDFD0DBDB

 1985 DATA DEE3D8DFC0BB867D53397D86594C354079B0E0E9F2E3D185A7D3EDBED3647056

 1986 DATA 5F36102D5F4E56969191B7729F5C857E99C8E9E3D7A044303539546C9299B9BD

 1987 DATA D0E1E9F2F4F6F7F7FBF7F7F7F6F6F4F1

 1988 DATA 00000000000303070301071E1E1534A6BCDDF0F5FAF8F5F4EEECE5E3E1E1DFDF

 1989 DATA DEDBD8BDC0B29F86595335302970CCBB59D2D1A8B999A0CCEBE5BB7E7986565C

 1990 DATA 2B143A2420204E53648686B4AAB7BBA8A8BB9ACE4135BE9C3948547799A8C2D5

 1991 DATA E1E5EFF2F2F7F7F9F9F9F9F7F6F4F6F4

 1992 DATA 00000000000303030303091234428895C5E2F0F5F8F8F5F3F2EEECE3E8E5E1DF

 1993 DATA DFE5DBDEB9C8A27259689CD0AA64397DBBD8A2BBC0C9D8E9A7729FB48F705C68

 1994 DATA 362F0A0E362F56405972598F66A899C9C8DACEE4B7A77D54A8C3AA7799C2CED8

 1995 DATA E1E9ECF2F4F7F9F9FBF9F9F7F7F4F4F4

 1996 DATA 000000010101030403000915215F88ADCAEAF3FAFAF8F8F5F4F3F2F2ECEFE1DF

 1997 DATA DBD8D8D8C9CEC8B1A87E591D14417E9FDAC2BBE9D8D4A76C8F98BB6C644C594C

 1998 DATA 3A192B3019193519354C7E6CB0729985B2A8999999D5D7C9B999B1CEDBCECBDF

 1999 DATA E4E5E9EFF6F7F9FBFBFBFBF9F9F6F4F4

 2000 DATA 000000000101040704010D1C455788B5E2F3F8FAFAFAF7F5F6F4EEECE8E4DFD5

 2001 DATA E1D8E1C8CEB9858F6472395CB7B9AAD2E1BDDBB19954599F9F8F858572444C44

 2002 DATA 353959405359444C4439596C85A8779F8572AA869F9F9AE4E0E3E1DBCBE1EEE8

 2003 DATA E9ECECEEF2F6FBFBFBFBFAF9F7F7F6F4

 2004 DATA 000000010103020307153D5794A5D2E6F0F8FAFAFAFAF9F8F5F2EBECE9E1E8E5

 2005 DATA E1D5BDC2B292A86C8586DEB99F39867E649F92857F92B1857E85858659447244

 2006 DATA 647E664472727E647272547E779F726454598585C892D8C0C2D8E1ECE5DFE4E8

 2007 DATA F4EFEFEFF2F6F7FBFBFBFBFBF9F7F7F6

 2008 DATA 000001010302030711152167ADBCE2EAF3F8F8FAFAF9F8F5F4EEE9EEEFEEE9EC

 2009 DATA E1DBD0CEA8C2AAC8F9C26C7E98A823B7149FB29985997F85859F667E666C7792

 2010 DATA 8FA87E7272B06C8F7792996C77728F30487F6C6FB9C2CBD0E1E9D0E4EEE9EEE4

 2011 DATA E9E8F3F2F2F6F9F9FBFBFBFBF9F7F7F4

 2012 DATA 0000000101030103113C5788BCE2F0EDF0F5F8FAFAFAF8F7F5F6F6F4EFECE1DF

 2013 DATA DFDFD5D0C299F3B88F8FB0B144C025256C8F7225593044857F856C777FA8929F

 2014 DATA A8B2926C9F999F999999A2857F726C665463AB99A8D0B8ECD9E9ECE4E5E8EFEF

 2015 DATA F5E5EEF2F2F6F9F9FBFBFBFCFAF9F5F6

 2016 DATA 00010102010404070709457495B5EAEAEAF3F8FAFBFAFAF9F9F7F6F4ECECF2E5

 2017 DATA E1D5D8BDD8E5B1A29FCB48CB48666C9FBE54536C3935595485858A99A2A892A2

 2018 DATA A2B1A266B19FA89992A88585543E54B0638A92C9B1CBE3D0E1DFF1EEEEE4E8E9

 2019 DATA F4F2F7ECEFF6F9F9FBFCFCFBF9F9F7F6

 2020 DATA 00020201000101040C151C272E45ADDDEDF3F8FAFAFBFBFAF9F9F4F2F2EFECE8

 2021 DATA E8E1ECF2D8D8CBDFB8D5B9928F7FB0C0776C8F5948596C3E776699A89999A8A2

 2022 DATA A2A2A292A2B1A2927F779266545477938AA2B1B9CBC7D5E8D9E1E8F2EEEFEFE4

 2023 DATA ECECEFF4FBF4F7F9F9FBFBFBFAF9F7F7

 2024 DATA 040403000001010303091A2157759EC5E6F3F8FAFBFAF9F9F8F6F4F2F2EFF2E4

 2025 DATA EFEEE8ECE4E4DBE1D9CBBDB1A2C8B1A877A86C6C66A039486C667799998A92A8

 2026 DATA B1B1A292A89392776F77636354639277B99AB8CBCBD5D9DFE8DFDFE8EFF2F6F2

 2027 DATA F2EFEEEEEEF7FBFBFBFCFBFBF9F9F9F7

 2028 DATA 01010100010003030C11313D6795C1E6F3FAFAFBFAFAFAF9F7F5F4F4F2EFDFEF

 2029 DATA F2ECECDFECECE9DFDBCBCBC7D8D8C8B8B99292929F77666C6666778577996F99

 2030 DATA 9A9AA292776F636F6F48546F6F778A8AB1B1B8B8D0DFD9DFE1E4E8E8ECEFEFF4

 2031 DATA F6EFF4F6F7F7F9FBFCFCFDFBF9F7F5F6

 2032 DATA 01000000010003091526213167B5DDF0F5F8FAFBFAFAFBFBF9F9F5F7F6F2FAF4

 2033 DATA F2ECF4F2F4EFECE8DFE4E1DFD0D0CBC2B1B9A2A2BD7F7F77547F776654666F77

 2034 DATA 7F9A937F6F776F6348486F6F8A93ABB8C7CBD0D0D5D5DFDFE4E8E4E8ECF2F2F2

 2035 DATA F6F7F2F6F7F7F9FBFBFDFCFCFAF5EDF3

 2036 DATA 0000000103050C121215154588CAE6F3F8FAFAFAFCFCFAFBFAF9F9F9F9F6F4F6

 2037 DATA F6F6F6F4F6F6EEECE8E9E4D9E5D8BDCBCBABB8C2A87F9377856C6F66666F6F77

 2038 DATA 6F6F6F7F636F6F63636F8A9AA2A3B8BDCBD9CBD5D9DFE1D9E4E9ECECEFECF2F4

 2039 DATA F2F4F9F6F6F7F9FBFCFCFDFCFCFAF7F3

 2040 DATA 0100010101070D151A317488B5E2EDF3F8FCFBFAFCFAFAFAFBF9FBF9F7F7F7F6

 2041 DATA F6F4F4F2EFEFF2E4ECE8E8E4E9D0D5D9BDCBD0B8B8A2AB8A927F776C636F7792

 2042 DATA 8A926F93938A636F6F93A3ABB8BDB8C7C7D8D5DFDFE4DFE4E8EFF2F4EEF2F6F6

 2043 DATA F2F4F6F7F9FBF9F9FBFCFDFCFEFCF9FB

 2044 DATA 010101030304091E341A2774C5DDF0F8FAFCFDFCFAFAFBFBF9FBFBF7F9F7F6F6

 2045 DATA F6F2F6EFEFECECECE4F2E4E4DFD9D9D5D5D9B8C7BDB1ABAB9AA27F7F9A7F9993

 2046 DATA 6F9A9A9AAB9A93A39AAB93ABBDCBD0C7CBDFDFE1E4E8E4E4E9EEF2F3F4F4F4F7

 2047 DATA F7F7F2F7F7FBFBFBFBFBFDFCFBFCFBFC

 2048 DATA 0101010304070C0C0B114DADB5EAF3FAFCFDFDFCFCFBFBFCFBFBFBF2F7F7F6F4

 2049 DATA EFECEFE4F2F9E8ECF6E8D5F4E8E4DFCBD9D9DFD9B8BDC7B8B8BDABA293939A9A

 2050 DATA 939AA3ABB8A3B8ABB1BDBDB8CBD0D5D0D5D9E4E4E4E4E5E8E8E8F2EFF2F4F2F6

 2051 DATA FDF6F7F2F7F7FBFCFAFBFCFBFDFCFCFC

 2052 DATA 0403030303040C0C11212EA6D6EAF8FAFDFDFEFCFBFCFBFBF9F9F5FBF6F7F6F2

 2053 DATA F2F4F4FDECE8EFF2EFE8F4EFF2C7D9D5E8E4E8D5C7CBD5C7D0C7BDABABB1ABAB

 2054 DATA 9AAB9AB8ABBDC7C2C2CBD0D5C7D9DFC7D5D5DFDFE4E4E1ECE4DFE4ECEEEFF2F7

 2055 DATA F6F7FBF7F8F7F9FBFBFBFCFDFCFCFCFC

 2056 DATA 07070607040309050411ADB5E2F1FAFAFDFDFCFCFCFDFCFCFBF9F6F7F9F7F7F6

 2057 DATA F4F6F4ECECF9EFF6F6F7FBF7C7EFD9ECEFEFE8D5DFD9DFD9D9D5BDC7CBC7C7C2

 2058 DATA B1BDC7C2C7CEBDD9DBC7D8DFE1D9E4E3D5E1E4E8E4ECE8DFE8ECE8ECECEFEEEF

 2059 DATA F2F9F7F7F9F7F5FBFBFBFBFCFBFBFBFA

 2060 DATA 060B0B070C151E2745A1BCE2EAF0F8FDFCFDFCFCFEFEFEFCFBF7F7FBFBF9F9F7

 2061 DATA F4F4F4F4FBF7FCF7F7FBF7D9EFE8E8F6F6EFE8D9ECE4E4E4E1DFD9D9D0D5D5BD

 2062 DATA B8B8D5C2C7BDABABD0D9D9E4E1E9E4E5E4DFE8ECEEF2F2F2EEDFECECEFEFEEEC

 2063 DATA ECEEFBF4F6F9F9F9F8F9FBFAFAFAF9F7

 2064 DATA 04020407050D1E3C9E749EC5E2F1F8F8FBFAFDFDFDFEFDFCF9F5FBFBF9F9F6F4

 2065 DATA F6F6F7F9F9F6F4F4F4F6E4EFF2EFF7F7F6EFE4ECE8E1E4E8E4DFDFD5DFE4C2B8

 2066 DATA B8C7D9DFD5E1E3D0D9E5D0D5DFD5E8E5F1E5E4EEEBEEEDEEEEF4ECE9EEECF4EE

 2067 DATA EEECEEF4F4F5F9FAF9F9F8FAFBF9F8F5

 2068 DATA 040407071E2E3C673C74BCD2E6F3F8FAFCFDFEFFFEFFFCFCF9FBFCFBFBF9F9F7

 2069 DATA F4F7F9F9F6F4ECF4F7E4F4F6F7F9FBF9F9E8EFF4EFE8ECE8E8E8ECD9DFECBDAB

 2070 DATA BDE5D5E4E9ECECECECDFDFE8E9E5E1E8E5E4DFE3E8E8E8E3E9E4ECE4E4E3E4F4

 2071 DATA F5EEF2FBF5F5F8F9F8FAF3F8FAF8F7F5

 2072 DATA 0707040C15151E2E45A6C5E2EAF3F8FAFDFEFEFEFEFEFBF9FBFCF9FBFBF9F9F9

 2073 DATA F9FBF6F7F6F4EFF4F2FBFBF6F9FBF7FBECEFF2ECE8ECECEFECE4E8E1E5E8C7C7

 2074 DATA D0DFE8ECEFEEEEEFF2F4F2ECE8E8ECECE4ECE8E5E8E5E4DFD5E5E1E1E1E1E1D8

 2075 DATA ECE9EEF2F4F8F7F9FAFBFCFAFAF8F8F5

 2076 DATA 050707071E1E27455FADADEAEDF3F8FCFEFFFEFEFCFCFBFAFBFBFBFDFCFB

 

[Omni]

The code for the sequence in question seems to start at 1200. I can't quite figure out what it's doing at a casual glance, though. Nothing that seems to imply DMA or linescrolling...