2020-09-09 20:49:32 +00:00
|
|
|
%target c64
|
2020-09-20 21:49:36 +00:00
|
|
|
%import textio
|
2020-03-24 23:32:54 +00:00
|
|
|
|
2020-03-28 11:33:16 +00:00
|
|
|
; bitmap pixel graphics module for the C64
|
|
|
|
; only black/white monchrome for now
|
2020-08-31 19:38:56 +00:00
|
|
|
; assumes bitmap screen memory is $2000-$3fff
|
2020-03-24 23:32:54 +00:00
|
|
|
|
2020-03-28 11:33:16 +00:00
|
|
|
graphics {
|
2020-03-24 23:32:54 +00:00
|
|
|
const uword bitmap_address = $2000
|
|
|
|
|
2020-03-28 11:33:16 +00:00
|
|
|
sub enable_bitmap_mode() {
|
2020-03-24 23:32:54 +00:00
|
|
|
; enable bitmap screen, erase it and set colors to black/white.
|
|
|
|
c64.SCROLY |= %00100000
|
|
|
|
c64.VMCSB = (c64.VMCSB & %11110000) | %00001000 ; $2000-$3fff
|
2020-08-28 19:42:53 +00:00
|
|
|
clear_screen(1, 0)
|
2020-08-22 17:00:03 +00:00
|
|
|
}
|
|
|
|
|
2020-08-28 19:42:53 +00:00
|
|
|
sub clear_screen(ubyte pixelcolor, ubyte bgcolor) {
|
2020-03-24 23:32:54 +00:00
|
|
|
memset(bitmap_address, 320*200/8, 0)
|
2020-08-30 17:31:20 +00:00
|
|
|
txt.fill_screen(pixelcolor << 4 | bgcolor, 0)
|
2020-03-24 23:32:54 +00:00
|
|
|
}
|
|
|
|
|
2020-08-28 19:42:53 +00:00
|
|
|
sub line(uword @zp x1, ubyte @zp y1, uword @zp x2, ubyte @zp y2) {
|
2020-06-03 21:18:49 +00:00
|
|
|
; Bresenham algorithm.
|
|
|
|
; This code special cases various quadrant loops to allow simple ++ and -- operations.
|
2020-08-28 19:42:53 +00:00
|
|
|
; TODO rewrite this in optimized assembly
|
2020-06-03 21:18:49 +00:00
|
|
|
if y1>y2 {
|
|
|
|
; make sure dy is always positive to avoid 8 instead of just 4 special cases
|
|
|
|
swap(x1, x2)
|
|
|
|
swap(y1, y2)
|
|
|
|
}
|
2020-08-28 19:42:53 +00:00
|
|
|
word @zp d = 0
|
2020-06-02 19:27:38 +00:00
|
|
|
ubyte positive_ix = true
|
2020-08-28 19:42:53 +00:00
|
|
|
word @zp dx = x2 - x1 as word
|
|
|
|
word @zp dy = y2 as word - y1 as word
|
2020-06-02 19:27:38 +00:00
|
|
|
if dx < 0 {
|
|
|
|
dx = -dx
|
|
|
|
positive_ix = false
|
2020-03-24 23:32:54 +00:00
|
|
|
}
|
2020-06-02 19:27:38 +00:00
|
|
|
dx *= 2
|
|
|
|
dy *= 2
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx = x1
|
2020-03-26 22:33:55 +00:00
|
|
|
|
|
|
|
if dx >= dy {
|
2020-06-02 19:27:38 +00:00
|
|
|
if positive_ix {
|
2020-07-25 14:25:02 +00:00
|
|
|
repeat {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(y1)
|
|
|
|
if internal_plotx==x2
|
2020-06-03 21:18:49 +00:00
|
|
|
return
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx++
|
2020-06-03 21:18:49 +00:00
|
|
|
d += dy
|
|
|
|
if d > dx {
|
|
|
|
y1++
|
|
|
|
d -= dx
|
2020-03-28 11:33:16 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
} else {
|
2020-07-25 14:25:02 +00:00
|
|
|
repeat {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(y1)
|
|
|
|
if internal_plotx==x2
|
2020-06-03 21:18:49 +00:00
|
|
|
return
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx--
|
2020-06-03 21:18:49 +00:00
|
|
|
d += dy
|
|
|
|
if d > dx {
|
|
|
|
y1++
|
|
|
|
d -= dx
|
2020-03-28 11:33:16 +00:00
|
|
|
}
|
2020-03-26 22:33:55 +00:00
|
|
|
}
|
|
|
|
}
|
2020-06-02 19:27:38 +00:00
|
|
|
}
|
|
|
|
else {
|
2020-06-03 21:18:49 +00:00
|
|
|
if positive_ix {
|
2020-07-25 14:25:02 +00:00
|
|
|
repeat {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(y1)
|
2020-06-03 21:18:49 +00:00
|
|
|
if y1 == y2
|
|
|
|
return
|
|
|
|
y1++
|
|
|
|
d += dx
|
|
|
|
if d > dy {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx++
|
2020-06-03 21:18:49 +00:00
|
|
|
d -= dy
|
2020-03-28 11:33:16 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
} else {
|
2020-07-25 14:25:02 +00:00
|
|
|
repeat {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(y1)
|
2020-06-03 21:18:49 +00:00
|
|
|
if y1 == y2
|
|
|
|
return
|
|
|
|
y1++
|
|
|
|
d += dx
|
|
|
|
if d > dy {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx--
|
2020-06-03 21:18:49 +00:00
|
|
|
d -= dy
|
2020-03-28 11:33:16 +00:00
|
|
|
}
|
2020-03-26 22:33:55 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2020-03-24 23:32:54 +00:00
|
|
|
|
2020-03-26 22:33:55 +00:00
|
|
|
sub circle(uword xcenter, ubyte ycenter, ubyte radius) {
|
2020-03-24 23:32:54 +00:00
|
|
|
; Midpoint algorithm
|
2020-08-28 19:42:53 +00:00
|
|
|
ubyte @zp ploty
|
|
|
|
ubyte @zp xx = radius
|
|
|
|
ubyte @zp yy = 0
|
|
|
|
byte @zp decisionOver2 = 1-xx as byte
|
2020-03-27 22:45:01 +00:00
|
|
|
|
|
|
|
while xx>=yy {
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plotx = xcenter + xx
|
2020-03-27 22:45:01 +00:00
|
|
|
ploty = ycenter + yy
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter - xx
|
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter + xx
|
2020-03-27 22:45:01 +00:00
|
|
|
ploty = ycenter - yy
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter - xx
|
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter + yy
|
2020-03-27 22:45:01 +00:00
|
|
|
ploty = ycenter + xx
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter - yy
|
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter + yy
|
2020-03-27 22:45:01 +00:00
|
|
|
ploty = ycenter - xx
|
2020-08-30 22:36:40 +00:00
|
|
|
internal_plot(ploty)
|
|
|
|
internal_plotx = xcenter - yy
|
|
|
|
internal_plot(ploty)
|
2020-03-27 22:45:01 +00:00
|
|
|
yy++
|
2020-03-24 23:32:54 +00:00
|
|
|
if decisionOver2<=0
|
2020-03-27 22:45:01 +00:00
|
|
|
decisionOver2 += 2*yy+1
|
2020-03-24 23:32:54 +00:00
|
|
|
else {
|
2020-03-27 22:45:01 +00:00
|
|
|
xx--
|
|
|
|
decisionOver2 += 2*(yy-xx)+1
|
2020-03-24 23:32:54 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2020-03-26 22:33:55 +00:00
|
|
|
sub disc(uword cx, ubyte cy, ubyte radius) {
|
2020-03-26 22:18:51 +00:00
|
|
|
; Midpoint algorithm, filled
|
2020-03-27 22:45:01 +00:00
|
|
|
ubyte xx = radius
|
|
|
|
ubyte yy = 0
|
2020-06-02 19:27:38 +00:00
|
|
|
byte decisionOver2 = 1-xx as byte
|
2020-03-27 22:45:01 +00:00
|
|
|
|
|
|
|
while xx>=yy {
|
2020-04-08 01:38:22 +00:00
|
|
|
ubyte cy_plus_yy = cy + yy
|
|
|
|
ubyte cy_min_yy = cy - yy
|
|
|
|
ubyte cy_plus_xx = cy + xx
|
|
|
|
ubyte cy_min_xx = cy - xx
|
|
|
|
|
2020-08-30 22:36:40 +00:00
|
|
|
for internal_plotx in cx to cx+xx {
|
|
|
|
internal_plot(cy_plus_yy)
|
|
|
|
internal_plot(cy_min_yy)
|
2020-03-26 22:18:51 +00:00
|
|
|
}
|
2020-08-30 22:36:40 +00:00
|
|
|
for internal_plotx in cx-xx to cx-1 {
|
|
|
|
internal_plot(cy_plus_yy)
|
|
|
|
internal_plot(cy_min_yy)
|
2020-03-26 22:18:51 +00:00
|
|
|
}
|
2020-08-30 22:36:40 +00:00
|
|
|
for internal_plotx in cx to cx+yy {
|
|
|
|
internal_plot(cy_plus_xx)
|
|
|
|
internal_plot(cy_min_xx)
|
2020-03-26 22:18:51 +00:00
|
|
|
}
|
2020-08-30 22:36:40 +00:00
|
|
|
for internal_plotx in cx-yy to cx {
|
|
|
|
internal_plot(cy_plus_xx)
|
|
|
|
internal_plot(cy_min_xx)
|
2020-03-26 22:18:51 +00:00
|
|
|
}
|
2020-03-27 22:45:01 +00:00
|
|
|
yy++
|
2020-03-26 22:18:51 +00:00
|
|
|
if decisionOver2<=0
|
2020-03-27 22:45:01 +00:00
|
|
|
decisionOver2 += 2*yy+1
|
2020-03-26 22:18:51 +00:00
|
|
|
else {
|
2020-03-27 22:45:01 +00:00
|
|
|
xx--
|
|
|
|
decisionOver2 += 2*(yy-xx)+1
|
2020-03-26 22:18:51 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2020-03-24 23:32:54 +00:00
|
|
|
|
2020-03-27 22:45:01 +00:00
|
|
|
|
2020-03-28 11:33:16 +00:00
|
|
|
; here is the non-asm code for the plot routine below:
|
|
|
|
; sub plot_nonasm(uword px, ubyte py) {
|
|
|
|
; ubyte[] ormask = [128, 64, 32, 16, 8, 4, 2, 1]
|
|
|
|
; uword addr = bitmap_address + 320*(py>>3) + (py & 7) + (px & %0000000111111000)
|
|
|
|
; @(addr) |= ormask[lsb(px) & 7]
|
|
|
|
; }
|
|
|
|
|
2020-09-11 22:59:57 +00:00
|
|
|
asmsub plot(uword plotx @XY, ubyte ploty @A) clobbers (A, X, Y) {
|
2020-08-30 22:36:40 +00:00
|
|
|
%asm {{
|
|
|
|
stx internal_plotx
|
|
|
|
sty internal_plotx+1
|
|
|
|
jmp internal_plot
|
|
|
|
}}
|
|
|
|
}
|
|
|
|
|
2020-09-11 22:59:57 +00:00
|
|
|
; for efficiency of internal algorithms here is the internal plot routine
|
|
|
|
; that takes the plotx coordinate in a separate variable instead of the XY register pair:
|
|
|
|
|
2020-08-30 22:36:40 +00:00
|
|
|
uword internal_plotx ; 0..319 ; separate 'parameter' for internal_plot()
|
2020-03-27 22:45:01 +00:00
|
|
|
|
2020-09-11 22:59:57 +00:00
|
|
|
asmsub internal_plot(ubyte ploty @A) clobbers (A, X, Y) { ; internal_plotx is 16 bits 0 to 319... doesn't fit in a register
|
2020-03-27 22:45:01 +00:00
|
|
|
%asm {{
|
|
|
|
tay
|
2020-08-30 22:36:40 +00:00
|
|
|
lda internal_plotx+1
|
2020-08-25 17:44:08 +00:00
|
|
|
sta P8ZP_SCRATCH_W2+1
|
2020-03-27 22:45:01 +00:00
|
|
|
lsr a ; 0
|
2020-08-25 17:44:08 +00:00
|
|
|
sta P8ZP_SCRATCH_W2
|
2020-08-30 22:36:40 +00:00
|
|
|
lda internal_plotx
|
2020-03-27 22:45:01 +00:00
|
|
|
pha
|
|
|
|
and #7
|
|
|
|
tax
|
|
|
|
|
|
|
|
lda _y_lookup_lo,y
|
|
|
|
clc
|
2020-08-25 17:44:08 +00:00
|
|
|
adc P8ZP_SCRATCH_W2
|
|
|
|
sta P8ZP_SCRATCH_W2
|
2020-03-27 22:45:01 +00:00
|
|
|
lda _y_lookup_hi,y
|
2020-08-25 17:44:08 +00:00
|
|
|
adc P8ZP_SCRATCH_W2+1
|
|
|
|
sta P8ZP_SCRATCH_W2+1
|
2020-03-27 22:45:01 +00:00
|
|
|
|
2020-08-30 22:36:40 +00:00
|
|
|
pla ; internal_plotx
|
2020-03-27 22:45:01 +00:00
|
|
|
and #%11111000
|
|
|
|
tay
|
2020-08-25 17:44:08 +00:00
|
|
|
lda (P8ZP_SCRATCH_W2),y
|
2020-03-27 22:45:01 +00:00
|
|
|
ora _ormask,x
|
2020-08-25 17:44:08 +00:00
|
|
|
sta (P8ZP_SCRATCH_W2),y
|
2020-03-27 22:45:01 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
_ormask .byte 128, 64, 32, 16, 8, 4, 2, 1
|
|
|
|
|
|
|
|
; note: this can be even faster if we also have a 256 byte x-lookup table, but hey.
|
|
|
|
; see http://codebase64.org/doku.php?id=base:various_techniques_to_calculate_adresses_fast_common_screen_formats_for_pixel_graphics
|
2020-06-03 21:18:49 +00:00
|
|
|
; the y lookup tables encodes this formula: bitmap_address + 320*(py>>3) + (py & 7) (y from 0..199)
|
2020-08-31 19:38:56 +00:00
|
|
|
; We use the 64tass syntax for range expressions to calculate this table on assembly time.
|
|
|
|
|
|
|
|
_plot_y_values := $2000 + 320*(range(200)>>3) + (range(200) & 7)
|
|
|
|
|
|
|
|
_y_lookup_lo .byte <_plot_y_values
|
|
|
|
_y_lookup_hi .byte >_plot_y_values
|
2020-03-27 22:45:01 +00:00
|
|
|
|
|
|
|
}}
|
2020-03-24 23:32:54 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|