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

Update line drawer with new PLASMA-isms

Browse Source
This commit is contained in:
Dave Schmenk 2018-02-21 09:53:11 -08:00
parent 4204d47d3c
commit e241719ea5
1 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/libsrc/apple/dgr.pla
View File

@ -506,7 +506,7 @@ asm _dgrFillTile
RTS
end
//
// Wait for VLB - Doens't work on //c
// Wait for VLB - Shouldn't work on //c, but seems to.
//
asm vlbWait#0
- LDA $C019
@ -525,7 +525,6 @@ export def dgrMode#1
^showpage1
^ena80 = 0
^show80 = 0
// ^mapaux = 0
^an3on
return 1
end
@ -578,16 +577,11 @@ export def dgrLine(buff, x1, y1, x2, y2)#0
fin
dx2 = dx << 1
dy2 = dy << 1
if dx >= dy
// Horizontal line
if dx >= dy // Horizontal line
if sx < 0
pp = x1
x1 = x2
x2 = pp
pp = y1
y1 = y2
y2 = pp
sy = -sy
x1, x2 = x2, x1
y1, y2 = y2, y1
sy = -sy
fin
dd2 = dx2 - dy2
err = dx - dy2
@ -608,16 +602,11 @@ export def dgrLine(buff, x1, y1, x2, y2)#0
if y2 == y1
dgrHLin(buff, x1, x2, y1)
fin
else
// Vertical line
else // Vertical line
if sy < 0
pp = x1
x1 = x2
x2 = pp
pp = y1
y1 = y2
y2 = pp
sx = -sx
x1, x2 = x2, x1
y1, y2 = y2, y1
sx = -sx
fin
dd2 = dy2 - dx2
err = dy - dx2