0,0 → 1,278 |
|
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: |
|