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

Fix commented out data and rect parameters

Browse Source
This commit is contained in:
Dave Schmenk 2020-01-04 09:36:54 -08:00
parent 41071de12f
commit c1b6741cfd
3 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/inc/hgrlib.plh
View File

@ -4,7 +4,7 @@ import hgrlib
predef hgrXorPlot(x, y)#0
predef hgrHLin(x1, x2, y)#0
predef hgrVLin(y1, y2, x)#0
predef hgrRect(x1, x2, y1, y2)#0
predef hgrRect(x1, y1, x2, y2)#0
predef hgrBLT(x, y, width, height, srcptr)#0
predef hgrCopySrc(ofst, y, w, h, srcptr)#0
predef hgrAndSrc(ofst, y, w, h, srcptr)#0

56
src/libsrc/apple/hgrlib.pla
View File

@ -65,36 +65,36 @@ byte = $02,$06,$0A,$0E,$12,$16,$1A,$1E
byte = $02,$06,$0A,$0E,$12,$16,$1A,$1E
byte = $03,$07,$0B,$0F,$13,$17,$1B,$1F
byte = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word //hgrscan[] = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
word // = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
word // = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
word // = $0180,$0580,$0980,$0D80,$1180,$1580,$1980,$1D80
word // = $0200,$0600,$0A00,$0E00,$1200,$1600,$1A00,$1E00
word // = $0280,$0680,$0A80,$0E80,$1280,$1680,$1A80,$1E80
word // = $0300,$0700,$0B00,$0F00,$1300,$1700,$1B00,$1F00
word // = $0380,$0780,$0B80,$0F80,$1380,$1780,$1B80,$1F80
word // = $0028,$0428,$0828,$0C28,$1028,$1428,$1828,$1C28
word // = $00A8,$04A8,$08A8,$0CA8,$10A8,$14A8,$18A8,$1CA8
word // = $0128,$0528,$0928,$0D28,$1128,$1528,$1928,$1D28
word // = $01A8,$05A8,$09A8,$0DA8,$11A8,$15A8,$19A8,$1DA8
word // = $0228,$0628,$0A28,$0E28,$1228,$1628,$1A28,$1E28
word // = $02A8,$06A8,$0AA8,$0EA8,$12A8,$16A8,$1AA8,$1EA8
word // = $0328,$0728,$0B28,$0F28,$1328,$1728,$1B28,$1F28
word // = $03A8,$07A8,$0BA8,$0FA8,$13A8,$17A8,$1BA8,$1FA8
word // = $0050,$0450,$0850,$0C50,$1050,$1450,$1850,$1C50
word // = $00D0,$04D0,$08D0,$0CD0,$10D0,$14D0,$18D0,$1CD0
word // = $0150,$0550,$0950,$0D50,$1150,$1550,$1950,$1D50
word // = $01D0,$05D0,$09D0,$0DD0,$11D0,$15D0,$19D0,$1DD0
word // = $0250,$0650,$0A50,$0E50,$1250,$1650,$1A50,$1E50
word // = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
word // = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
word // = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
word hcolor[] = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
word hmask = $8081,$8082,$8084,$8088,$8090,$80A0,$80C0
word = $8180,$8280,$8480,$8880,$9080,$A080,$C080
//word hgrscan[] = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
//word = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
//word = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
//word = $0180,$0580,$0980,$0D80,$1180,$1580,$1980,$1D80
//word = $0200,$0600,$0A00,$0E00,$1200,$1600,$1A00,$1E00
//word = $0280,$0680,$0A80,$0E80,$1280,$1680,$1A80,$1E80
//word = $0300,$0700,$0B00,$0F00,$1300,$1700,$1B00,$1F00
//word = $0380,$0780,$0B80,$0F80,$1380,$1780,$1B80,$1F80
//word = $0028,$0428,$0828,$0C28,$1028,$1428,$1828,$1C28
//word = $00A8,$04A8,$08A8,$0CA8,$10A8,$14A8,$18A8,$1CA8
//word = $0128,$0528,$0928,$0D28,$1128,$1528,$1928,$1D28
//word = $01A8,$05A8,$09A8,$0DA8,$11A8,$15A8,$19A8,$1DA8
//word = $0228,$0628,$0A28,$0E28,$1228,$1628,$1A28,$1E28
//word = $02A8,$06A8,$0AA8,$0EA8,$12A8,$16A8,$1AA8,$1EA8
//word = $0328,$0728,$0B28,$0F28,$1328,$1728,$1B28,$1F28
//word = $03A8,$07A8,$0BA8,$0FA8,$13A8,$17A8,$1BA8,$1FA8
//word = $0050,$0450,$0850,$0C50,$1050,$1450,$1850,$1C50
//word = $00D0,$04D0,$08D0,$0CD0,$10D0,$14D0,$18D0,$1CD0
//word = $0150,$0550,$0950,$0D50,$1150,$1550,$1950,$1D50
//word = $01D0,$05D0,$09D0,$0DD0,$11D0,$15D0,$19D0,$1DD0
//word = $0250,$0650,$0A50,$0E50,$1250,$1650,$1A50,$1E50
//word = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
//word = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
//word = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
//word hmask = $8081,$8082,$8084,$8088,$8090,$80A0,$80C0
//word = $8180,$8280,$8480,$8880,$9080,$A080,$C080
byte hbmask = $81,$82,$84,$88,$90,$A0,$C0
byte hlmask = $FF,$FE,$FC,$F8,$F0,$E0,$C0
byte hrmask = $81,$83,$87,$8F,$9F,$BF,$FF
word hcolor[] = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
word curhclr
byte drawpage = 1
word drawbuff = hgr2
@ -893,7 +893,7 @@ BLTDONE INX
INX
RTS
end
export def hgrRect(x1, x2, y1, y2)#0
export def hgrRect(x1, y1, x2, y2)#0
word y
if x1 == x2

6
src/libsrc/apple/hgrsprite.pla
View File

@ -142,12 +142,12 @@ export def spriteCompile(w, h, xcenter, ycenter, srcptr)#1
sprtptr=>s_map[i] = heapalloc(spritesize)
sprtptr=>s_mask[i] = heapalloc(spritesize)
hgrColor(0)
hgrRect(0, w + 21, 0, h - 1)
hgrRect(0, 0, w + 21, h - 1)
hgrBLT(i, 0, w, h, srcptr)
hgrCopyDst(i > 6 ?? 1 :: 0, 0, bytewidth, h, sprtptr=>s_map[i])
hgrColor(7)
hgrRect(0, w + 21, h, h * 2 - 1)
spriteBLTMask(i, h, w, h, srcptr)
hgrRect(0, h, w + 21, h * 2 - 1)
spriteBLTMask(i, h, w, h, srcptr)
hgrCopyDst(i > 6 ?? 1 :: 0, h, bytewidth, h, sprtptr=>s_mask[i])
next
return sprtptr