macro start_draw_window x,y,xsize,ysize,areacolor,caption
{
mov eax, 12 ; function 12:tell os about windowdraw
mov ebx, 1 ; 1, start of draw
int 0x40
; DRAW WINDOW
mov eax, 0 ; function 0 : define and draw window
mov ebx, x*65536+xsize ; [x start] *65536 + [x size]
mov ecx, y*65536+ysize ; [y start] *65536 + [y size]
mov edx,areacolor ; color of work area RRGGBB
mov edi,caption ; window title
int 0x40
}
macro end_draw_window
{
mov eax, 12 ; end of redraw
mov ebx, 2
int 0x40
}
macro draw_button x,y,xsize,ysize,id,butcolor,text,textlen,textcolor
{
mov eax, 8 ; function 8 : define and draw button
mov ebx, (x)*65536+xsize ; [x start] *65536 + [x size]
mov ecx, (y)*65536+ysize ; [y start] *65536 + [y size]
mov edx, id ; button id
mov esi, butcolor ; button color RRGGBB
int 0x40
mov ebx, (x+5)*65536+y+(ysize-5)/2 ; Draw button text
mov ecx, textcolor
mov edx, text
xor eax, eax
mov al, textlen
mov esi, eax
mov eax, 4
int 0x40
}
macro outtextxy x,y,prompt,prompt_len,color
{
mov ebx, x*65536+y ; draw info text with function 4
mov ecx, color
mov edx, prompt
xor eax, eax
mov al, prompt_len
mov esi, eax
mov eax, 4
int 0x40
}
macro bar x,y,xsize,ysize,color
{
mov eax, 13
mov ebx, x*65536+xsize
mov ecx, y*65536+ysize
mov edx, color
int 0x40
}
macro line x1,y1,x2,y2,color
{
mov eax, 38
mov ebx, x1*65536+x2
mov ecx, y1*65536+y2
mov edx, color
int 0x40
}
macro rectangle x,y,xsize,ysize,color
{
x2=x+xsize
y2=y+ysize
line x,y,x2,y,color
line x,y,x,y2,color
line x,y2,x2,y2,color
line x2,y,x2,y2,color
}
macro putpixel x,y,color
{
mov eax, 1
mov ebx, x
mov ecx, y
mov edx, color
int 0x40
}
macro lights_on cns
{
mov ax, cns
test ax, 0x40
jz @f
push ax
bar 532, 53, 10, 11, 0x0000FF00
pop ax
@@:
test ax, 0x80
jz @f
push ax
bar 500, 53, 10, 11, 0x0000FF00
pop ax
@@:
test ax, 0x100
jz @f
bar 565, 53, 10, 11, 0x0000FF00
@@:
}
out_symbol:
;mov ebx, x*65536+y ; draw info text with function 4
;mov ecx, color
;mov edx, prompt
mov esi, 1
mov eax, 4
int 0x40
ret