mirror of
https://github.com/irmen/prog8.git
synced 2024-08-26 15:29:46 +00:00
50 lines
1.1 KiB
Lua
50 lines
1.1 KiB
Lua
%import graphics
|
|
%import test_stack
|
|
%import math
|
|
|
|
; Note: this program can be compiled for multiple target systems.
|
|
|
|
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))
|
|
}
|
|
}
|
|
}
|