6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-07-05 15:23:58 +00:00
Code Issues Projects Releases Wiki Activity

Prep for generic sprite compilation

Browse Source
This commit is contained in:
David Schmenk
2024-09-16 19:00:45 -07:00
parent fee8eabd36
commit 00d0956a19
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/samplesrc/dcgrtest.pla
View File

@ -201,12 +201,7 @@ def dcgrRect(x, y, w, h)#0
dcgrHLin(x, x2, v) dcgrHLin(x, x2, v)
next next
end end
//////////////////////////////////////////////////////////////// def dcgrCompSprite#0
// //
// Test Harness //
// //
////////////////////////////////////////////////////////////////
def compileSprite#0
byte i byte i
for i = 0 to 6 for i = 0 to 6
@ -228,6 +223,11 @@ def compileSprite#0
dcgrMemBl7(sprite7w, i * SPR_HEIGHT, sprite7w, SPR_HEIGHT, sprite7msk[i], sprite7span) dcgrMemBl7(sprite7w, i * SPR_HEIGHT, sprite7w, SPR_HEIGHT, sprite7msk[i], sprite7span)
next next
end end
////////////////////////////////////////////////////////////////
// //
// Test Harness //
// //
////////////////////////////////////////////////////////////////
def dcgrTest#0 def dcgrTest#0
word i, j, k, i7, im7, k7, km7, s7w, inci, incj, inck word i, j, k, i7, im7, k7, km7, s7w, inci, incj, inck
word backblk, backspan word backblk, backspan
@ -334,7 +334,7 @@ def dcgrTest#0
end end
dcgrMode(0) dcgrMode(0)
compileSprite dcgrCompSprite
dcgrTest dcgrTest
dcgrMode(-1) dcgrMode(-1)
done done