Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-12-29 05:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Implemented plotting of filled rectangles.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-10-10 19:08:37 -04:00
parent f583aa73e1
commit d3b7a50cde
3 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

22
auxmem.gfx.s
View File

@ -145,7 +145,10 @@ HGRPLOTACT LDA VDUQ+4
BEQ :LINE
CMP #$40
BEQ :POINT
CMP #$90
CMP #$60
BNE :S1
JMP :RECT
:S1 CMP #$90
BNE :UNDEF
JMP :CIRC
:UNDEF RTS
@ -177,6 +180,23 @@ HGRPLOTACT LDA VDUQ+4
STA FDRAWADDR+11 ; Y1
>>> WRTAUX
>>> XF2MAIN,DRAWLINE
:RECT >>> WRTMAIN
LDA VDUQ+4
STA PLOTMODE
LDA XPIXEL+0
STA FDRAWADDR+6
LDA XPIXEL+1
STA FDRAWADDR+7
LDA YPIXEL
STA FDRAWADDR+8
LDA VDUQ+5
STA FDRAWADDR+9 ; LSB of X1
LDA VDUQ+6
STA FDRAWADDR+10 ; MSB of X1
LDA VDUQ+7
STA FDRAWADDR+11 ; Y1
>>> WRTAUX
>>> XF2MAIN,FILLRECT
:CIRC >>> WRTMAIN
LDA XPIXEL+0
STA FDRAWADDR+6

6
mainmem.gfx.s
View File

@ -60,6 +60,12 @@ FILLCIRC >>> ENTMAIN
JSR FDRAWADDR+40 ; FDRAW: FillCircle
>>> XF2AUX,VDU25RET
* Call FDraw FillRect routine
FILLRECT >>> ENTMAIN
JSR SETCOLOR
JSR FDRAWADDR+34 ; FDRAW: FillRect
>>> XF2AUX,VDU25RET
* Reset colours and linetype
GFXINIT JSR FDRAWADDR+0 ; Initialize FDRAW library
LDA #$20