Browse code
(picture.tal) Added fast drawing routine
neauoire authored on 06/03/2022 23:04:03
Showing 1 changed files
| ... | ... |
@@ -22,14 +22,18 @@ |
| 22 | 22 |
|0100 |
| 23 | 23 |
|
| 24 | 24 |
( theme ) |
| 25 |
- #f0d7 .System/r DEO2 |
|
| 26 |
- #f0de .System/g DEO2 |
|
| 27 |
- #f0dc .System/b DEO2 |
|
| 25 |
+ #f0f7 .System/r DEO2 |
|
| 26 |
+ #f00e .System/g DEO2 |
|
| 27 |
+ #f00c .System/b DEO2 |
|
| 28 | 28 |
|
| 29 | 29 |
#0030 .Screen/x DEO2 |
| 30 | 30 |
#0030 .Screen/y DEO2 |
| 31 | 31 |
;picture-icn #20 #10 #01 ;draw-icn JSR2 |
| 32 | 32 |
|
| 33 |
+ #0100 .Screen/x DEO2 |
|
| 34 |
+ #0090 .Screen/y DEO2 |
|
| 35 |
+ #10 #10 ;dafu10x10 #0a ;draw-small JSR2 |
|
| 36 |
+ |
|
| 33 | 37 |
BRK |
| 34 | 38 |
|
| 35 | 39 |
@draw-icn ( addr* width height color -- ) |
| ... | ... |
@@ -54,6 +58,22 @@ BRK |
| 54 | 58 |
|
| 55 | 59 |
JMP2r |
| 56 | 60 |
|
| 61 |
+( makes use of the auto byte ) |
|
| 62 |
+ |
|
| 63 |
+@draw-small ( w h addr* color -- ) |
|
| 64 |
+ |
|
| 65 |
+ STH |
|
| 66 |
+ .Screen/addr DEO2 |
|
| 67 |
+ SWP #01 - #40 SFT #06 + .Screen/auto DEO |
|
| 68 |
+ #00 |
|
| 69 |
+ &loop |
|
| 70 |
+ STHkr .Screen/sprite DEO |
|
| 71 |
+ INC GTHk ,&loop JCN |
|
| 72 |
+ POP2 |
|
| 73 |
+ POPr |
|
| 74 |
+ |
|
| 75 |
+JMP2r |
|
| 76 |
+ |
|
| 57 | 77 |
@picture-icn ( akane2010.bit 20 x 10 ) |
| 58 | 78 |
0000 0000 0000 0000 2b41 2341 2b41 2341 |
| 59 | 79 |
8881 8081 8880 8080 0a00 2000 8800 2000 |
| ... | ... |
@@ -311,3 +331,133 @@ JMP2r |
| 311 | 331 |
ffff ffff ffff ffff faff ffff ffff fbf7 |
| 312 | 332 |
bafd ffff bfdf ff5f ef7f ffff af5f af5f |
| 313 | 333 |
ffff ffff ffff ffff ffff ffff ffff ffff |
| 334 |
+ |
|
| 335 |
+@dafu10x10 |
|
| 336 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 337 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 338 |
+ 0000 0000 0000 0001 0000 0000 010f 7fff |
|
| 339 |
+ 0000 002f ffff ffff 0000 00fd ffff ffff |
|
| 340 |
+ 0000 0000 e0fc ffff 0000 0000 0000 00e0 |
|
| 341 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 342 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 343 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 344 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 345 |
+ 0000 0000 0000 0000 0000 0000 0107 071f |
|
| 346 |
+ 071f 3fff fffc f3cf ffff f8c7 3fff ffff |
|
| 347 |
+ e82f fbfb fbfb fbfb 02ff ffff ffff ffff |
|
| 348 |
+ bf41 feff ffff ffff fcff 1fe3 fcff ffff |
|
| 349 |
+ 00d0 fcff 7fd2 ffff 0000 00c0 f0f8 5efe |
|
| 350 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 351 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 352 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 353 |
+ 0000 0103 0f1f 3f7e 5f7e f9f3 cf9f 7fff |
|
| 354 |
+ 3f7f ffff ffff ffff ffff ffff ffff ffff |
|
| 355 |
+ f9fb fbf9 fdf9 fdfd ffff ffff ffff ffff |
|
| 356 |
+ ffff ffff ffff ffff ffff ffff ffff ffff |
|
| 357 |
+ ffff ffff ffff ffff ffff ffff feff fefe |
|
| 358 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 359 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 360 |
+ 0000 0000 0000 0000 0001 002f 1f1f 1f1f |
|
| 361 |
+ e907 ffff ffff ffff ffff ffff ffff ffff |
|
| 362 |
+ ffff ffff ffff ffff ffff ffff ffff ffff |
|
| 363 |
+ fdfd fdfd fcff fd45 ffff ffff ffff ed37 |
|
| 364 |
+ ffff ffff ffff b76c ffff ffff ffff ff0b |
|
| 365 |
+ ffff ffff ffff ffff fefc fcfc f8fc f8f8 |
|
| 366 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 367 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 368 |
+ 0000 0000 0000 0000 1f1f 1f0f 0f07 0703 |
|
| 369 |
+ ffff ffff ffff ffff ffff ffff fffe fdf5 |
|
| 370 |
+ ffff fceb 8fbf 7fff f48b 7fff ffff ffff |
|
| 371 |
+ bffe fefa f8fc fdff ffff 7f3f 3f7f bfff |
|
| 372 |
+ ffff ffff ffff ffff f8ff ffff ffff ffff |
|
| 373 |
+ 7fd7 ffff ffff ffff f0f0 f0e0 e0e0 e0e0 |
|
| 374 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 375 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 376 |
+ 0000 0000 0000 0000 0301 0100 0000 0000 |
|
| 377 |
+ ffff fffc 7d33 3f1f ef9f 7fff ffff ffff |
|
| 378 |
+ ffff ffff ffff f4cb ffff ffff e807 ffff |
|
| 379 |
+ ffff ffa0 00c0 0197 ffff 5007 1f03 5eff |
|
| 380 |
+ ffff a5ff ff6d bfff ffff 4de8 ff7f 6fff |
|
| 381 |
+ ffff ffbf a7fe fefe f0e0 f0e0 f0e0 b0d0 |
|
| 382 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 383 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 384 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 385 |
+ 1f0f 0f0f 0f0e 0e12 fefa f5cf bfff ffff |
|
| 386 |
+ 3fff ffff ffff ffff ffff ffff ffff ffff |
|
| 387 |
+ f8e0 e0c0 e040 c040 7f7f 5f2f 7b1b 0f0f |
|
| 388 |
+ ffff ffff ffff ffff ffff ffff ffff ffff |
|
| 389 |
+ ffff fcfd fbf5 f9d4 50f0 f0e0 f0f0 e060 |
|
| 390 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 391 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 392 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 393 |
+ 1a1a 150f 0d07 1100 7fff ffff fdff ffe1 |
|
| 394 |
+ ffff ffff baff ff55 ffff ffaa fdff fe00 |
|
| 395 |
+ c040 d708 f0eb a800 0fa6 7f2f 3fd0 021a |
|
| 396 |
+ d7bf fff7 086a b8b0 feff e914 a000 0000 |
|
| 397 |
+ ab20 e078 0000 0000 e0c0 d6e1 4084 0204 |
|
| 398 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 399 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 400 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 401 |
+ 0402 010a 0200 0000 7876 39b0 5078 9018 |
|
| 402 |
+ 0892 71a9 2112 1210 aa00 ff01 7692 0000 |
|
| 403 |
+ a01e 3628 8488 4484 a5a0 0000 0080 8000 |
|
| 404 |
+ 2003 070d 3815 0260 feff 7b69 9e60 0000 |
|
| 405 |
+ 90e0 8080 0000 0000 c004 8020 8890 8888 |
|
| 406 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 407 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 408 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 409 |
+ 0300 0000 0000 0000 2848 8008 4428 0c04 |
|
| 410 |
+ 1211 1201 1d14 2a29 1200 0016 dd55 22a9 |
|
| 411 |
+ 4084 44ca 8a0d 5800 0000 0800 a02e d105 |
|
| 412 |
+ 1000 0000 0080 6a11 0000 0000 0000 8865 |
|
| 413 |
+ 0100 0100 0101 005e 2080 2040 4000 0000 |
|
| 414 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 415 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 416 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 417 |
+ 0000 0000 0000 0000 0600 0a05 0303 0300 |
|
| 418 |
+ 50a0 8040 8000 8000 0000 0000 0000 0000 |
|
| 419 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 420 |
+ ad00 0000 0000 0000 510a 0000 0000 0000 |
|
| 421 |
+ 2214 0002 0200 0406 0000 0000 0000 0080 |
|
| 422 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 423 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 424 |
+ 0000 0000 0000 0000 0000 0000 0000 0000 |
|
| 425 |
+ 0000 0000 0021 010f 0407 0812 2e5c de3e |
|
| 426 |
+ 4000 c060 f0f0 f878 0000 0000 0000 0000 |
|
| 427 |
+ 0000 0000 0000 0000 0000 502d 0200 157f |
|
| 428 |
+ 0040 a000 0000 e0f8 0000 0000 0000 0000 |
|
| 429 |
+ 060f 0f1f 1737 336b a01c e3f0 feff ffff |
|
| 430 |
+ 0000 407a 05c0 f0fc 0000 0000 807c 0300 |
|
| 431 |
+ 0000 0000 0000 a05a 0000 0000 0000 0004 |
|
| 432 |
+ 0000 0000 0000 030c 0001 0514 53a7 0f3f |
|
| 433 |
+ 265c 5df9 f3e7 c7cf fbfd fbfb fbfb fbfb |
|
| 434 |
+ 7c7e 7fbf bfff bfff 0000 0090 c0e0 f0f8 |
|
| 435 |
+ 0101 0101 0001 0020 7fc8 ff1b c6f0 7f78 |
|
| 436 |
+ fc5c ec08 b858 30e0 0108 0001 0103 0707 |
|
| 437 |
+ 6b5b dbdf bbbf bb7f ffff ffff ffff ffff |
|
| 438 |
+ fefe fcfc f9f3 f3f7 6079 fffe fcfc f9f3 |
|
| 439 |
+ 0540 823f 7fff ffff d02c 03f8 feff ffff |
|
| 440 |
+ 3040 800e 3f7f ffff 7f7f 7fff 7f7f 7f7f |
|
| 441 |
+ 9fdf 9f9f df9f 9fdf fbfb fbf3 fbfb fbfb |
|
| 442 |
+ efff fff7 fffd ffff fefe ffff ffff ff7f |
|
| 443 |
+ 0000 80e0 f0fc ffff 1f02 0000 0001 01e1 |
|
| 444 |
+ c000 00a8 b050 590b 0f1f 1e7d 7dff ffff |
|
| 445 |
+ 7f7f ffff ffff ffff ffff ffff ffff ffff |
|
| 446 |
+ e7ef cfdf 9f3f 7f3f f3e7 efcf dfbf bf3f |
|
| 447 |
+ ffff ffff ffff ffff fffe fcf8 f0f0 e0c0 |
|
| 448 |
+ ffff ffff ffff ffff bfbf bfbf dfdf dfcf |
|
| 449 |
+ 9fcf 9fcf dfcf dfcf f7fb fbf7 fbfb fbfb |
|
| 450 |
+ ffff ffff ffff ffff ffd7 f7fd feff ffff |
|
| 451 |
+ ffff ffff 7f9e e8e0 ffff fff5 8000 0001 |
|
| 452 |
+ 4f47 66a4 7056 4b43 fffe 8001 015f ffff |
|
| 453 |
+ ffbf 1f7f ffff ffff fefe fcfe fdf9 fbfb |
|
| 454 |
+ 7fff feff fefe fcfe 7f7f 7f7f ffff ffff |
|
| 455 |
+ ffff fffe fefc f8f8 8183 070f 1f3f 3f7f |
|
| 456 |
+ ffff ffff 7f3f 9f8f efef eff7 f7f7 f7f7 |
|
| 457 |
+ dfcf efdf cfff cfef fbfb fbf9 fdfd fbfc |
|
| 458 |
+ ffff fffe f4c0 8000 fffc e080 0000 0000 |
|
| 459 |
+ 8000 0000 0000 0000 0506 0802 0300 0000 |
|
| 460 |
+ 4925 2365 a2b2 1191 ffff ffff ff05 0000 |
|
| 461 |
+ ffff ffff ff7f 0307 fbfb ffff ffff ffff |
|
| 462 |
+ fcfd fcfe fdfd fdfd ffff ffff ffff ffff |
|
| 463 |
+ f0e0 e1c3 8387 0f1f ffff ffff ffff fffe |