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

Full screen tile fill

Browse Source
This commit is contained in:
David Schmenk 2024-10-02 16:55:29 -07:00
parent 13a5c0bdc3
commit 1ae700960b
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/samplesrc/dcgrtest.pla
View File

@ -238,7 +238,7 @@ def dcgrCompSprite#0
dcgrMemBl7(0, i * SPRH, sprite7w, SPRH, sprite7[i], sprite7span)
dcgrMemBl7(sprite7w, i * SPRH, sprite7w, SPRH, sprite7msk[i], sprite7span)
next
//getc
getc
end
////////////////////////////////////////////////////////////////
// //
@ -250,31 +250,33 @@ def dcgrTest#0
word backblk, backspan
word restrblk, restrspan, restr7w, restrw
byte mode
byte[6] tilestr
byte[40] tilestr
backblk, backspan = dcgrAllocBl7Mem(SCR_WIDTH, SPRH)
//
// Use back buffer for tile set buffer
//
dcgrMemBl7Tile(0, 0, backblk, sprite7[6], sprite7span)
dcgrMemBl7Tile(1, 0, backblk + 32, sprite7[6], sprite7span)
dcgrMemBl7Tile(2, 0, backblk + 64, sprite7[6], sprite7span)
dcgrMemBl7Tile(3, 0, backblk + 96, sprite7[6], sprite7span)
dcgrMemBl7Tile(0, 8, backblk + 128, sprite7[6], sprite7span)
dcgrMemBl7Tile(1, 8, backblk + 160, sprite7[6], sprite7span)
dcgrMemBl7Tile(2, 8, backblk + 192, sprite7[6], sprite7span)
dcgrMemBl7Tile(3, 8, backblk + 224, sprite7[6], sprite7span)
for i = 0 to 7
tilestr[i] = i
for j = 0 to 6
dcgrMemBl7Tile(0, 0, backblk, sprite7[j], sprite7span)
dcgrMemBl7Tile(1, 0, backblk + 32, sprite7[j], sprite7span)
dcgrMemBl7Tile(2, 0, backblk + 64, sprite7[j], sprite7span)
dcgrMemBl7Tile(3, 0, backblk + 96, sprite7[j], sprite7span)
dcgrMemBl7Tile(0, 8, backblk + 128, sprite7[j], sprite7span)
dcgrMemBl7Tile(1, 8, backblk + 160, sprite7[j], sprite7span)
dcgrMemBl7Tile(2, 8, backblk + 192, sprite7[j], sprite7span)
dcgrMemBl7Tile(3, 8, backblk + 224, sprite7[j], sprite7span)
for i = 0 to 19
tilestr[i] = i & $03
next
for i = 0 to 19
tilestr[i + 20] = (i & $03) + 4
next
dcgrSurfScr(OP_SRC)
for i = 0 to 22 step 2
dcgrTiles(0, i, @tilestr, 20, backblk)
dcgrTiles(0, i + 1, @tilestr + 20, 20, backblk)
next
next
dcgrSurfScr(OP_SRC)
dcgrTiles(0, 14, @tilestr, 4, backblk)
//for i = 0 to 3
//dcgrTiles(i, 14, @tilestr + i, 1, backblk)
//dcgrTiles(i, 15, @tilestr + 4 + i, 1, backblk)
//next
dcgrTiles(0, 14, @tilestr, 4, backblk)
dcgrTiles(0, 15, @tilestr + 4, 4, backblk)
getc
//
// Lines