6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-07 16:41:59 +00:00
Code Issues Projects Releases Wiki Activity

Little double color test update

Browse Source
This commit is contained in:
Dave Schmenk 2024-09-08 19:19:13 -07:00
parent fef7d5ce90
commit ecab8dac1b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/samplesrc/dcgrtest.pla
View File

@ -48,7 +48,7 @@ def dcgrTest#0
dcgrVLinScr(30, 30+132, (21/7)*7+(100/7)*7)
i = 64; j = 64; k = 86
ok7 = k/7
inci = 1; incj = 1; inck = 1
inci = 1; incj = 1; inck = 2
backblk, backspan, backw7 = dcgrAllocBl7Mem(SCR_WIDTH, 16)
dcgrScrBl7Mem(0, 170, backw7, 16, backblk, backspan)
restrblk, restrspan, restrw7 = dcgrAllocBl7Mem(16, 16)
@ -56,12 +56,12 @@ def dcgrTest#0
while ^$C000 < 128
ok7, om7 = divmod(k, 7)
dcgrMemBl7Mem(0, 0, restrw7, 16, backblk + ok7 * 4, backspan, restrw7, 16, restrblk, restrspan)
dcgrPixMem(om7 + 1, 0, 16, 16, @sprite, restrw, 16, restrblk, restrspan)
dcgrPixMem(om7 + 2, 0, 16, 16, @sprite, restrw, 16, restrblk, restrspan)
//dcgrColor(i)
//dcgrFillBl7Mem(0, 0, restrw7, 16, restrblk, restrspan)
dcgrMemBl7Scr(ok7, 170, restrw7, 16, restrblk, restrspan)
//dcgrFillBl7Scr(ok7, 170, restrw7, 16)
if k > 138 or k < -16; inck = -inck; fin
if k > 136 or k < -16; inck = -inck; fin
k = k + inck
dcgrPixScr(i, j, 16, 16, @sprite)
if i > 102 or i < 23; inci = -inci; fin