forked from KolibriOS/kolibrios
279 lines
5.8 KiB
NASM
279 lines
5.8 KiB
NASM
|
|
include 'proc32.inc'
|
|
|
|
struc system_colors
|
|
{
|
|
.frame dd ?
|
|
.grab dd ?
|
|
.grab_button dd ?
|
|
.grab_button_text dd ?
|
|
.grab_text dd ?
|
|
.work dd ?
|
|
.work_button dd ?
|
|
.work_button_text dd ?
|
|
.work_text dd ?
|
|
.work_graph dd ?
|
|
}
|
|
|
|
use32
|
|
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd start
|
|
dd i_end
|
|
dd mem
|
|
dd mem
|
|
dd 0
|
|
dd 0
|
|
|
|
include 'pixlib.inc'
|
|
|
|
align 4
|
|
start:
|
|
call load_pxlib
|
|
test eax, eax
|
|
jz .fail
|
|
|
|
sub esp, 1024
|
|
|
|
mov eax, 9
|
|
mov ebx, esp
|
|
mov ecx, -1
|
|
int 0x40
|
|
|
|
movzx ecx, word [esp+0x1E]
|
|
mov eax, 18
|
|
mov ebx, 21
|
|
int 0x40
|
|
|
|
mov [slot], eax
|
|
|
|
add esp, 1024
|
|
|
|
mov eax,48 ; get system colors
|
|
mov ebx,3
|
|
mov ecx,sc
|
|
mov edx,10*4
|
|
int 0x40
|
|
|
|
CreateHatch HS_CROSS, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_cross], eax
|
|
|
|
CreateHatch HS_DIAGCROSS, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_dcross], eax
|
|
|
|
CreateHatch HS_HORIZONTAL, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_horz], eax
|
|
|
|
CreateHatch HS_VERTICAL, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_vert], eax
|
|
|
|
CreateHatch HS_FDIAGONAL, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_fd], eax
|
|
|
|
CreateHatch HS_BDIAGONAL, 0xFFFFFFFF, 0xFF000000
|
|
mov [br_bd], eax
|
|
|
|
.redraw:
|
|
call draw_window
|
|
|
|
.wait_event:
|
|
|
|
mov eax, 18
|
|
mov ebx, 7
|
|
int 0x40
|
|
cmp eax, [slot]
|
|
jne .skip_draw
|
|
|
|
sub esp, 1024
|
|
|
|
mov eax, 9
|
|
mov ebx, esp
|
|
mov ecx, -1
|
|
int 0x40
|
|
|
|
mov edx, [esp+0x22]; xwin
|
|
mov ecx, [esp+0x26]; ywin
|
|
add edx, [esp+0x36]
|
|
add ecx, [esp+0x3A]
|
|
|
|
mov eax, [esp+0x3E] ;width
|
|
mov ebx, [esp+0x42] ;height
|
|
|
|
add esp, 1024
|
|
|
|
cmp eax, 50
|
|
jle .skip_draw
|
|
|
|
cmp ebx, 40
|
|
jle .skip_draw
|
|
|
|
push ebx
|
|
push eax
|
|
push ecx
|
|
push edx
|
|
call _Draw
|
|
add esp, 16
|
|
|
|
.skip_draw:
|
|
|
|
mov ebx, 1000
|
|
mov eax, 23
|
|
int 0x40
|
|
|
|
; mov eax, 11
|
|
; int 0x40
|
|
|
|
dec eax ; if event = 1
|
|
; js .wait_event
|
|
|
|
jz .redraw ; jump to redraw handler
|
|
dec eax ; else if event = 2
|
|
jz .key ; jump to key handler
|
|
dec eax
|
|
jz .button
|
|
|
|
jmp .wait_event
|
|
|
|
.button: ; button event handler
|
|
mov al, 17 ; get button identifier
|
|
int 0x40
|
|
|
|
cmp ah, 1
|
|
jne .wait_event ; return if button id != 1
|
|
.exit:
|
|
; restore old screen and cleanup
|
|
.fail:
|
|
or eax, -1 ; exit application
|
|
int 0x40
|
|
.key: ; key event handler
|
|
mov al, 2 ; get key code
|
|
int 0x40
|
|
|
|
jmp .wait_event
|
|
|
|
draw_window:
|
|
mov eax, 12 ; start drawing
|
|
mov ebx, 1
|
|
int 0x40
|
|
|
|
xor eax, eax ; create and draw the window
|
|
mov ebx, 100*65536+320 ; (window_cx)*65536+(window_sx)
|
|
mov ecx, 100*65536+240 ; (window_cy)*65536+(window_sy)
|
|
mov edx, [sc.work] ; work area color
|
|
or edx, 0x33000000 ; & window type 3
|
|
mov edi, title ; window title
|
|
int 0x40
|
|
|
|
mov eax, 12 ; finish drawing
|
|
mov ebx, 2
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
DWORD equ dword
|
|
PTR equ
|
|
|
|
_Draw:
|
|
push ebp
|
|
push edi
|
|
push esi
|
|
push ebx
|
|
mov ebx, 1431655766
|
|
sub esp, 44
|
|
mov esi, DWORD PTR [esp+72]
|
|
mov ecx, DWORD PTR [esp+76]
|
|
mov DWORD PTR [esp+24], -16777216
|
|
mov DWORD PTR [esp], -1
|
|
lea edi, [esi-40]
|
|
mov eax, edi
|
|
imul ebx
|
|
sar edi, 31
|
|
lea eax, [ecx-30]
|
|
sub ecx, 10
|
|
mov ebp, edx
|
|
sub ebp, edi
|
|
mov edi, eax
|
|
shr edi, 31
|
|
add edi, eax
|
|
lea edx, [esi-20]
|
|
lea eax, [ebp+ebp*2]
|
|
sub edx, eax
|
|
mov esi, edx
|
|
shr esi, 31
|
|
add esi, edx
|
|
sar esi, 1
|
|
add esi, DWORD PTR [esp+64]
|
|
sar edi, 1
|
|
lea eax, [ebp+10+esi]
|
|
mov DWORD PTR [esp+32], eax
|
|
lea eax, [edi+edi]
|
|
sub ecx, eax
|
|
mov ebx, ecx
|
|
shr ebx, 31
|
|
add ebx, ecx
|
|
sar ebx, 1
|
|
add ebx, DWORD PTR [esp+68]
|
|
lea edx, [esi+20+ebp*2]
|
|
mov DWORD PTR [esp+36], edx
|
|
lea eax, [ebx+10+edi]
|
|
mov DWORD PTR [esp+40], eax
|
|
|
|
FillRect -1, esi, ebx,ebp, edi, [br_fd], 0xFF000000
|
|
|
|
mov edx, DWORD PTR [esp+32]
|
|
FillRect -1, edx, ebx, ebp, edi, [br_cross], 0xFF000000
|
|
|
|
mov eax, DWORD PTR [esp+36]
|
|
FillRect -1, eax, ebx, ebp, edi, [br_horz],0xFF000000
|
|
|
|
mov edx, DWORD PTR [esp+40]
|
|
FillRect -1, esi, edx, ebp, edi, [br_bd], 0xFF000000
|
|
|
|
mov edx, DWORD PTR [esp+32]
|
|
mov eax, DWORD PTR [esp+40]
|
|
FillRect -1, edx, eax, ebp, edi, [br_dcross], 0xFF000000
|
|
|
|
mov edx, DWORD PTR [esp+36]
|
|
mov eax, DWORD PTR [esp+40]
|
|
FillRect -1, edx, eax, ebp, edi, [br_vert], 0xFF000000
|
|
|
|
call [imp_FillRect]
|
|
|
|
|
|
add esp, 44
|
|
pop ebx
|
|
pop esi
|
|
pop edi
|
|
pop ebp
|
|
ret
|
|
|
|
align 4
|
|
|
|
|
|
count dd 0
|
|
|
|
title db 'Hatches',0
|
|
|
|
i_end:
|
|
|
|
align 4
|
|
|
|
slot rd 1
|
|
|
|
br_fd rd 1
|
|
br_bd rd 1
|
|
br_cross rd 1
|
|
br_dcross rd 1
|
|
br_horz rd 1
|
|
br_vert rd 1
|
|
|
|
sc system_colors
|
|
|
|
align 16
|
|
|
|
|
|
rb 2048 ;stack
|
|
mem:
|
|
|