Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-27 20:33:39 +00:00
Code Issues Projects Releases Wiki Activity

introduced graphics module wrapper for cx16 to make even more programs compatible

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-22 02:21:16 +02:00
parent 0d5c78e875
commit aa8191d0a1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/res/prog8lib/cx16/graphics.p8
View File

@ -31,17 +31,17 @@ graphics {
sub circle(uword xcenter, ubyte ycenter, ubyte radius) { sub circle(uword xcenter, ubyte ycenter, ubyte radius) {
cx16.r0 = xcenter - radius/2 cx16.r0 = xcenter - radius/2
cx16.r1 = ycenter - radius/2 cx16.r1 = ycenter - radius/2
cx16.r2 = radius cx16.r2 = radius*2
cx16.r3 = radius cx16.r3 = radius*2
cx16.GRAPH_draw_oval(false) ; TODO currently seems to crash cx16.GRAPH_draw_oval(false) ; TODO currently is not implemented on cx16, does a BRK
} }
sub disc(uword xcenter, ubyte ycenter, ubyte radius) { sub disc(uword xcenter, ubyte ycenter, ubyte radius) {
cx16.r0 = xcenter - radius/2 cx16.r0 = xcenter - radius/2
cx16.r1 = ycenter - radius/2 cx16.r1 = ycenter - radius/2
cx16.r2 = radius cx16.r2 = radius*2
cx16.r3 = radius cx16.r3 = radius*2
cx16.GRAPH_draw_oval(true) ; TODO currently seems to crash cx16.GRAPH_draw_oval(true) ; TODO currently is not implemented on cx16, does a BRK
} }
sub plot(uword plotx, ubyte ploty) { sub plot(uword plotx, ubyte ploty) {