mirror of
https://github.com/irmen/prog8.git
synced 2024-11-11 03:05:47 +00:00
61 lines
1.3 KiB
Lua
61 lines
1.3 KiB
Lua
%import syslib
|
|
%import textio
|
|
|
|
; Bitmap pixel graphics module for the Commodore 128
|
|
|
|
; TODO c128 actually implement the graphics routines. Ideally a way to 'borrow' the code form the C64 version without just copy-pasting that here?
|
|
|
|
graphics {
|
|
const uword WIDTH = 320
|
|
const ubyte HEIGHT = 200
|
|
|
|
sub enable_bitmap_mode() {
|
|
; enable bitmap screen, erase it and set colors to black/white.
|
|
; TODO
|
|
}
|
|
|
|
sub disable_bitmap_mode() {
|
|
; enables text mode, erase the text screen, color white
|
|
; TODO
|
|
}
|
|
|
|
|
|
sub clear_screen(ubyte pixelcolor, ubyte bgcolor) {
|
|
; TODO
|
|
}
|
|
|
|
sub line(uword @zp x1, ubyte @zp y1, uword @zp x2, ubyte @zp y2) {
|
|
; TODO
|
|
}
|
|
|
|
sub fillrect(uword x, uword y, uword width, uword height) {
|
|
; TODO
|
|
}
|
|
|
|
sub rect(uword x, uword y, uword width, uword height) {
|
|
; TODO
|
|
}
|
|
|
|
sub horizontal_line(uword x, uword y, uword length) {
|
|
; TODO
|
|
}
|
|
|
|
sub vertical_line(uword x, uword y, uword height) {
|
|
; TODO
|
|
}
|
|
|
|
sub circle(uword xcenter, ubyte ycenter, ubyte radius) {
|
|
; TODO
|
|
}
|
|
|
|
sub disc(uword xcenter, ubyte ycenter, ubyte radius) {
|
|
; TODO
|
|
}
|
|
|
|
inline asmsub plot(uword plotx @R0, uword ploty @R1) clobbers(A, X, Y) {
|
|
%asm {{
|
|
nop ; TODO
|
|
}}
|
|
}
|
|
}
|