prog8/examples/line-circle-gfx.p8

%import graphics
%import test_stack
%import math

; Note: this program is compatible with C64 and CX16.

main {

    sub start() {
        graphics.enable_bitmap_mode()

        draw_lines()
        draw_circles()
        draw_rects()

        ; graphics.disable_bitmap_mode()
        ; test_stack.test()

        repeat {
        }
    }

    sub draw_rects() {
        graphics.rect(220,10,80,10)
        graphics.rect(20,180,80,10)
        graphics.fillrect(220,30,80,10)
        graphics.fillrect(20,160,80,10)
    }


    sub draw_circles() {
        ubyte xx
        for xx in 3 to 7 {
            graphics.circle(xx*50-100, 10+xx*16, (xx+6)*4)
            graphics.disc(xx*50-100, 10+xx*16, (xx+6)*2)
        }
    }

    sub draw_lines() {
        ubyte i
        for i in 0 to 255 step 4 {
            uword x1 = ((graphics.WIDTH-256)/2 as uword) + math.sin8u(i)
            uword y1 = (graphics.HEIGHT-128)/2 + math.cos8u(i)/2
            uword x2 = ((graphics.WIDTH-64)/2 as uword) + math.sin8u(i)/4
            uword y2 = (graphics.HEIGHT-64)/2 + math.cos8u(i)/4
            graphics.line(x1, lsb(y1), x2, lsb(y2))
        }
    }
}