mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
programs will now be a lot smaller than before if they use gfx2 (or monogfx if they were only using monochrome drawing) monogfx also fixes some drawing errors with small horizontal lines, and stippled vertical lines.
251 lines
12 KiB
Lua
251 lines
12 KiB
Lua
%import textio
|
|
%import palette
|
|
%import string
|
|
%import gfx2
|
|
|
|
; Mockup of a classic Amiga Workbench screen.
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
gfx2.screen_mode(2) ; select 640*480 mode, 4 colors
|
|
mouse.set_pointer_image()
|
|
cx16.mouse_config(-1, 640/8, 240/8)
|
|
uword[4] amigacolors = [$aaa, $000, $fff, $68c] ; gray, black, white, lightblue
|
|
palette.set_rgb(amigacolors, len(amigacolors))
|
|
|
|
cx16.VERA_DC_VSCALE = 64 ; have the vertical resolution so it is 640*240 - more or less Amiga's default non interlaced mode
|
|
gfx2.text_charset(1)
|
|
|
|
screen_titlebar()
|
|
window_workbench()
|
|
window_system()
|
|
window_shell()
|
|
gfx2.text(280, 210, 1, iso:"640x480(240) 4 colors")
|
|
gfx2.text(280, 220, 1, iso:"Mockup drawn using Prog8 gfx2 library")
|
|
|
|
repeat {
|
|
}
|
|
}
|
|
|
|
sub screen_titlebar() {
|
|
gfx2.fillrect(0, 0, gfx2.width, 10, 2)
|
|
gfx2.text(8,1, 1, iso:"AmigaOS 3.1 2,002,448 graphics mem 16,504,384 other mem")
|
|
gfx2.horizontal_line(0, 10, gfx2.width, 1)
|
|
widget.window_order_icon(gfx2.width-widget.window_order_icon.width, 0, false)
|
|
}
|
|
|
|
|
|
sub window_workbench() {
|
|
const uword win_x = 10
|
|
const uword win_y = 16
|
|
const uword width = 600
|
|
const uword height = 220
|
|
|
|
widget.window_titlebar(win_x, win_y, width, iso:"Workbench", false)
|
|
; gfx2.fillrect(win_x+3, win_y+11, width-4, height-11-2,0) ; clear window pane
|
|
widget.window_leftborder(win_x, win_y, height, false)
|
|
widget.window_bottomborder(win_x, win_y, width, height)
|
|
widget.window_rightborder(win_x, win_y, width, height, false)
|
|
|
|
vector_v(win_x+width - 390, win_y+height-20)
|
|
vector_v(win_x+width - 390 -14, win_y+height-20)
|
|
|
|
widget.icon(45,40, iso:"Ram Disk")
|
|
widget.icon(45,90, iso:"Workbench3.1")
|
|
}
|
|
|
|
sub vector_v(uword x, uword y) {
|
|
gfx2.horizontal_line(x, y, 12, 1)
|
|
gfx2.horizontal_line(x+16, y+16, 11,1)
|
|
gfx2.line(x,y,x+16,y+16,1)
|
|
gfx2.line(x+11,y,x+16+5,y+10,1)
|
|
gfx2.line(x+16+5,y+10,x+47,y-16,1)
|
|
gfx2.line(x+16+10,y+16,x+46+12,y-16,1)
|
|
}
|
|
|
|
sub window_system() {
|
|
const uword width = 300
|
|
const uword height = 120
|
|
const uword win_x = 320
|
|
const uword win_y = 40
|
|
|
|
widget.window_titlebar(win_x, win_y, width, iso:"System", false)
|
|
gfx2.fillrect(win_x+3, win_y+11, width-4, height-11-2, 0) ; clear window pane
|
|
widget.window_leftborder(win_x, win_y, height, false)
|
|
widget.window_bottomborder(win_x, win_y, width, height)
|
|
widget.window_rightborder(win_x, win_y, width, height, false)
|
|
|
|
widget.icon(win_x+16, win_y+14, iso:"FixFonts")
|
|
widget.icon(win_x+16+80, win_y+14, iso:"NoFastMem")
|
|
widget.icon(win_x+16, win_y+56, iso:"Format")
|
|
widget.icon(win_x+16+80, win_y+56, iso:"RexxMast")
|
|
widget.icon(win_x+16+160, win_y+56, iso:"Shell")
|
|
}
|
|
|
|
sub window_shell() {
|
|
const uword win_x = 64-4
|
|
const uword win_y = 140
|
|
const uword width = 500
|
|
const uword height = 65
|
|
|
|
widget.window_titlebar(win_x, win_y, width, iso:"AmigaShell", true)
|
|
gfx2.fillrect(win_x+3, win_y+11, width-4, height-11-2,0) ; clear window pane
|
|
widget.window_leftborder(win_x, win_y, height, true)
|
|
widget.window_bottomborder(win_x, win_y, width, height)
|
|
widget.window_rightborder(win_x, win_y, width, height, true)
|
|
|
|
gfx2.text(win_x+5, win_y+12, 1, iso:"New Shell process 3")
|
|
gfx2.text(win_x+5, win_y+12+8, 1, iso:"3.Workbench3.1:>")
|
|
gfx2.fillrect(win_x+5+17*8, win_y+12+8, 8, 8, 1) ; cursor
|
|
}
|
|
}
|
|
|
|
mouse {
|
|
sub set_pointer_image() {
|
|
const uword sprite_data_addr = $a000
|
|
const ubyte palette_offset = 16
|
|
; sprite registers base in VRAM: $1fc00
|
|
; Sprite 0: $1FC00 - $1FC07 ; used by the kernal for mouse pointer
|
|
cx16.vpoke(1, $fc00, lsb(sprite_data_addr >> 5)) ; sprite data ptr bits 5-12
|
|
cx16.vpoke(1, $fc01, msb(sprite_data_addr >> 5)) ; mode bit (16 colors = 4 bpp) and sprite dataptr bits 13-16
|
|
cx16.vpoke(1, $fc07, %01100000 | palette_offset>>4) ; 32x16 pixels (non-square...), palette offset
|
|
|
|
ubyte ix
|
|
for ix in 0 to 255 {
|
|
cx16.vpoke(0, sprite_data_addr+ix, mousecursor[ix])
|
|
}
|
|
|
|
palette.set_color(palette_offset + %1111, $f00)
|
|
palette.set_color(palette_offset + %1010, $fff)
|
|
palette.set_color(palette_offset + %0101, $000)
|
|
|
|
ubyte[256] mousecursor = [
|
|
; The Amiga Workbench 3.0 mouse cursor sprite image.
|
|
; note that the sprite resolution is 32x16 (non-square pixels) because it follows the bitmap screen resolution
|
|
; %1111 = red, %1010 = white, %0101 = black, %0000 = transparent
|
|
%11111111,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%01010101,%11111111,%10101010,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%01010101,%11111111,%11111111,%10101010,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%01010101,%11111111,%11111111,%11111111,%11111111,%10101010,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%01010101,%11111111,%11111111,%11111111,%11111111,%11111111,%10101010,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%01010101,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%01010101,%11111111,%11111111,%11111111,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%01010101,%11111111,%11111111,%01010101,%11111111,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%01010101,%11111111,%00000000,%01010101,%11111111,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%01010101,%11111111,%00000000,%00000000,%01010101,%11111111,%10101010,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%01010101,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
|
|
%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
|
|
]
|
|
}
|
|
}
|
|
|
|
widget {
|
|
|
|
sub highlightedrect(uword x, uword y, uword width, uword height, bool fill, bool active) {
|
|
gfx2.horizontal_line(x, y, width, 2)
|
|
gfx2.vertical_line(x, y+1, height-1, 2)
|
|
gfx2.vertical_line(x+width-1, y+1, height-1, 1)
|
|
gfx2.horizontal_line(x+1, y+height-1, width-2, 1)
|
|
if fill {
|
|
if active
|
|
gfx2.fillrect(x+1,y+1,width-2,height-2, 3)
|
|
else
|
|
gfx2.fillrect(x+1,y+1,width-2,height-2, 0)
|
|
}
|
|
}
|
|
|
|
sub icon(uword x, uword y, uword caption) {
|
|
const ubyte width = 56
|
|
const ubyte height = 28
|
|
highlightedrect(x, y, width, height, false, false)
|
|
uword middlex = x+width/2+1
|
|
ubyte halfstring = string.length(caption) * 4
|
|
gfx2.text(middlex-halfstring,y+height+1,1,caption)
|
|
gfx2.disc(x+width/4+4, y+height/2, height/2-3, 1)
|
|
gfx2.fillrect(x+20,y+12,width/2,height/2-4,3)
|
|
}
|
|
|
|
|
|
sub window_titlebar(uword x, uword y, uword width, uword titlestr, bool active) {
|
|
const ubyte height = 11
|
|
widget.highlightedrect(x+widget.window_close_icon.width, y, width-64, height, true, active)
|
|
gfx2.plot(x+widget.window_close_icon.width, y+height-1, 1) ; correct bottom left corner
|
|
gfx2.text(x+26, y+1, 1, titlestr)
|
|
widget.window_close_icon(x, y, active)
|
|
widget.window_order_icon(x+width-22, y, active)
|
|
widget.window_flipsize_icon(x+width-44, y, active)
|
|
}
|
|
|
|
sub window_flipsize_icon(uword x, uword y, bool active) {
|
|
const uword width = 22
|
|
const uword height = 11
|
|
highlightedrect(x, y, width, height, true, active)
|
|
gfx2.plot(x, y+height-1, 1) ; correct bottom left corner
|
|
gfx2.rect(x+5, y+2, width-9, height-4, 1)
|
|
gfx2.rect(x+5, y+2, 7, 4, 1)
|
|
gfx2.fillrect(x+6, y+3, 5, 2, 2)
|
|
}
|
|
|
|
sub window_order_icon(uword x, uword y, bool active) {
|
|
const uword width = 22
|
|
const uword height = 11
|
|
highlightedrect(x, y, width, height, true, active)
|
|
gfx2.plot(x, y+height-1, 1) ; correct bottom left corner
|
|
gfx2.rect(x+4, y+2, 10, 5, 1) ; back
|
|
gfx2.fillrect(x+9, y+5, 8, 3, 2) ; white front
|
|
gfx2.rect(x+8, y+4, 10, 5, 1) ; front
|
|
}
|
|
|
|
sub window_close_icon(uword x, uword y, bool active) {
|
|
const uword width = 20
|
|
const uword height = 11
|
|
highlightedrect(x, y, width, height, true, active)
|
|
gfx2.plot(x, y+height-1, 1) ; correct bottom left corner
|
|
gfx2.rect(x+7, y+3, 5, 5, 1)
|
|
gfx2.fillrect(x+8, y+4, 3, 3, 2)
|
|
}
|
|
|
|
sub window_leftborder(uword x, uword y, uword height, bool active) {
|
|
gfx2.vertical_line(x, y, height, 2)
|
|
ubyte color = 0
|
|
if active
|
|
color = 3
|
|
gfx2.vertical_line(x+1, y+11, height-11, color)
|
|
gfx2.vertical_line(x+2, y+11, height-11, 1)
|
|
}
|
|
|
|
sub window_bottomborder(uword x, uword y, uword width, uword height) {
|
|
gfx2.horizontal_line(x+3, y+height-2, width-3, 2)
|
|
gfx2.horizontal_line(x, y+height-1, width, 1)
|
|
}
|
|
|
|
sub window_rightborder(uword x, uword y, uword width, uword height, bool active) {
|
|
gfx2.vertical_line(x+width-1-16, y+11, height-13,2)
|
|
gfx2.vertical_line(x+width-1, y+11, height-11,1)
|
|
ubyte color = 0
|
|
if active
|
|
color = 3
|
|
gfx2.fillrect(x+width-1-15, y+11, 15, height-12, color)
|
|
|
|
gfx2.horizontal_line(x+width-1-13, y+height-3, 11, 1)
|
|
gfx2.vertical_line(x+width-1-3, y+height-3-5, 5, 1)
|
|
gfx2.line(x+width-1-13,y+height-3, x+width-1-3, y+height-3-5, 1)
|
|
gfx2.horizontal_line(x+width-1-16, y+height-10, 16, 2)
|
|
|
|
highlightedrect(x+width-13, y+12, 10, height-43, false, false)
|
|
gfx2.horizontal_line(x+width-1-16, y+height-11, 16, 1)
|
|
gfx2.horizontal_line(x+width-1-16, y+height-20, 16, 2)
|
|
gfx2.horizontal_line(x+width-1-16, y+height-21, 16, 1)
|
|
gfx2.horizontal_line(x+width-1-16, y+height-30, 16, 2)
|
|
gfx2.line(x+width-1-13, y+height-23, x+width-9, y+height-28, 1)
|
|
gfx2.line(x+width-1-3, y+height-23, x+width-9, y+height-28, 1)
|
|
gfx2.line(x+width-1-13, y+height-18, x+width-9, y+height-13, 1)
|
|
gfx2.line(x+width-1-3, y+height-18, x+width-9, y+height-13, 1)
|
|
}
|
|
}
|