Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-01 09:32:09 +00:00
Code Issues Projects Releases Wiki Activity

Added support for filled circles.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-10-10 18:46:49 -04:00
parent 6cff1b8eb2
commit f583aa73e1
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

8
auxmem.gfx.s
View File

@ -178,8 +178,6 @@ HGRPLOTACT LDA VDUQ+4
>>> WRTAUX >>> WRTAUX
>>> XF2MAIN,DRAWLINE >>> XF2MAIN,DRAWLINE
:CIRC >>> WRTMAIN :CIRC >>> WRTMAIN
LDA VDUQ+4
STA PLOTMODE
LDA XPIXEL+0 LDA XPIXEL+0
STA FDRAWADDR+6 STA FDRAWADDR+6
LDA XPIXEL+1 LDA XPIXEL+1
@ -188,8 +186,14 @@ HGRPLOTACT LDA VDUQ+4
STA FDRAWADDR+8 STA FDRAWADDR+8
LDA VDUQ+5 LDA VDUQ+5
STA FDRAWADDR+12 ; Radius STA FDRAWADDR+12 ; Radius
LDA VDUQ+4
STA PLOTMODE
>>> WRTAUX >>> WRTAUX
AND #$F8
CMP #$98
BEQ :FILLCIRC
>>> XF2MAIN,DRAWCIRC >>> XF2MAIN,DRAWCIRC
:FILLCIRC >>> XF2MAIN,FILLCIRC
VDU25RET >>> ENTAUX VDU25RET >>> ENTAUX
* Fall through into HGRPOS * Fall through into HGRPOS
* Save pixel X,Y position * Save pixel X,Y position