6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-13 00:31:21 +00:00
Code Issues Projects Releases Wiki Activity

Add palette swatches with different stipple patterns

Browse Source
This commit is contained in:
David Schmenk 2024-09-17 22:13:29 -07:00
parent bec33a2e88
commit aa03e5bdab
1 changed files with 57 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
src/samplesrc/dcgrtest.pla
View File

@ -162,18 +162,18 @@ word sprite7span, sprite7w
//
// Dither matrices
//
byte[] dither25 = $00, $00, $AA, $AA, $00, $00, $AA, $AA
byte[] = $00, $00, $AA, $AA, $00, $00, $AA, $AA
byte[] = $00, $00, $AA, $AA, $00, $00, $AA, $AA
byte[] = $00, $00, $AA, $AA, $00, $00, $AA, $AA
byte[] dither25 = $55, $55, $00, $00, $AA, $AA, $00, $00
byte[] = $55, $55, $00, $00, $AA, $AA, $00, $00
byte[] = $55, $55, $00, $00, $AA, $AA, $00, $00
byte[] = $55, $55, $00, $00, $AA, $AA, $00, $00
byte[] dither50 = $55, $55, $AA, $AA, $55, $55, $AA, $AA
byte[] = $55, $55, $AA, $AA, $55, $55, $AA, $AA
byte[] = $55, $55, $AA, $AA, $55, $55, $AA, $AA
byte[] = $55, $55, $AA, $AA, $55, $55, $AA, $AA
byte[] dither75 = $55, $55, $FF, $FF, $55, $55, $FF, $FF
byte[] = $55, $55, $FF, $FF, $55, $55, $FF, $FF
byte[] = $55, $55, $FF, $FF, $55, $55, $FF, $FF
byte[] = $55, $55, $FF, $FF, $55, $55, $FF, $FF
byte[] dither75 = $55, $55, $FF, $FF, $AA, $AA, $FF, $FF
byte[] = $55, $55, $FF, $FF, $AA, $AA, $FF, $FF
byte[] = $55, $55, $FF, $FF, $AA, $AA, $FF, $FF
byte[] = $55, $55, $FF, $FF, $AA, $AA, $FF, $FF
word[] dither = @dither25, @dither50, @dither75
//
// Sliding sprite Y coordinate
@ -341,8 +341,8 @@ def dcgrTest#0
break
is 9
dcgrSurfScr(OP_XOR)
dcgrPixMap(oi, oj, SPRW, SPRH, @sprite)
dcgrPixMap(i, j, SPRW, SPRH, @sprite)
dcgrPixMap(oi, oj, SPRW, SPRH, @sprite)
break
wend
if k > 136 or k < -16; inck = -inck; fin
@ -372,6 +372,54 @@ def dcgrTest#0
next
dcgrSurfScr(OP_SRC)
dcgrClearBl7(0, 0, SCR_WIDTH7, SCR_HEIGHT)
//
// Create color patterns
//
for i = 0 to 15
dcgrColor(i)
dcgrClearBl7(i, 0, 1, SCR_HEIGHT)
next
oj = 0
for j = 0 to 191 step 12
dcgrColor(oj)
oi = 0
for i = 0 to 111 step 14
dcgrBitMap(i, j, 14, 12, @dither25)
oi++
next
oj++
next
getc
for i = 0 to 15
dcgrColor(i)
dcgrClearBl7(i, 0, 1, SCR_HEIGHT)
next
oj = 0
for j = 0 to 191 step 12
dcgrColor(oj)
oi = 0
for i = 0 to 111 step 14
dcgrBitMap(i, j, 14, 12, @dither50)
oi++
next
oj++
next
getc
for i = 0 to 15
dcgrColor(i)
dcgrClearBl7(i, 0, 1, SCR_HEIGHT)
next
oj = 0
for j = 0 to 191 step 12
dcgrColor(oj)
oi = 0
for i = 0 to 111 step 14
dcgrBitMap(i, j, 14, 12, @dither75)
oi++
next
oj++
next
getc
end
dcgrMode(0)
dcgrCompSprite