prog8/examples/cx16/simplegraphics.p8

41 lines
773 B
Plaintext
Raw Normal View History

2020-08-31 21:00:53 +00:00
; CommanderX16 simple graphics example!
2020-09-09 20:49:32 +00:00
%target cx16
%zeropage basicsafe
main {
sub start() {
void cx16.screen_set_mode($80)
cx16.r0=0
void cx16.screen_set_mode(0)
cx16.FB_init()
2020-09-23 00:34:49 +00:00
cx16.GRAPH_init()
cx16.r0 = 0
cx16.r1 = 0
cx16.FB_cursor_position()
2020-09-23 00:34:49 +00:00
ubyte color
repeat 320*199 {
cx16.FB_set_pixel(color)
color++
}
2020-09-23 00:34:49 +00:00
uword xx
for xx in 0 to 319 step 32 {
ubyte q
for q in 0 to 31 {
cx16.GRAPH_set_colors(q, 2, 0)
cx16.r0 = xx+q
cx16.r1=0
cx16.r2=rnd()
cx16.r3=199
cx16.GRAPH_draw_line()
}
}
}
}