| 0,0 → 1,663 |
|---|
| use32 |
| org 0x0 |
| |
| db 'MENUET01' |
| dd 0x01, START, I_END, 0x4000, 0x4000, @PARAMS, 0x0 |
| |
| ;----------------------------------------------------------------------------- |
| |
| FALSE = 0 |
| TRUE = 1 |
| |
| include '../../../../../proc32.inc' |
| include '../../../../../macros.inc' |
| include 'dll.inc' |
| |
| include '../../../develop/libraries/libs-dev/libio/libio.inc' |
| include '../../../develop/libraries/libs-dev/libimg/libimg.inc' |
| |
| ;----------------------------------------------------------------------------- |
| |
| START: |
| mcall 68, 11 |
| |
| stdcall dll.Load, @IMPORT |
| or eax, eax |
| jnz exit |
| |
| mov ecx, 1 ; for 15.4: 1 = tile |
| cmp word [@PARAMS], '\T' |
| jz set_bgr |
| inc ecx ; for 15.4: 2 = stretch |
| cmp word [@PARAMS], '\S' |
| jz set_bgr |
| |
| cmp byte [@PARAMS], 0 |
| jnz params_given |
| |
| call opendialog |
| jc exit |
| mov esi, path |
| mov edi, @PARAMS |
| mov ecx, 512/4 |
| rep movsd |
| mov byte [edi-1], 0 |
| jmp params_given |
| |
| set_bgr: |
| mcall 15, 4 |
| mov eax, @PARAMS + 4 |
| call load_image |
| jc exit_bgr |
| |
| mov esi, [image] |
| mov ecx, [esi + Image.Width] |
| mov edx, [esi + Image.Height] |
| mcall 15, 1 |
| |
| mcall 15, 6 |
| test eax, eax |
| jz exit_bgr |
| |
| push eax |
| invoke img.to_rgb2, esi, eax |
| pop ecx |
| mcall 15, 7 |
| |
| exit_bgr: |
| mcall 15, 3 |
| jmp exit |
| |
| params_given: |
| |
| mov eax, @PARAMS |
| call load_image |
| jc exit |
| |
| ;----------------------------------------------------------------------------- |
| |
| red: |
| call draw_window |
| |
| still: |
| mcall 10 |
| dec eax |
| jz red |
| dec eax |
| jnz button |
| |
| key: |
| mcall 2 |
| jmp still |
| |
| button: |
| mcall 17 |
| shr eax, 8 |
| |
| ; flip horizontally |
| cmp eax, 'flh' |
| jne @f |
| |
| invoke img.flip, [image], FLIP_HORIZONTAL |
| jmp redraw_image |
| |
| ; flip vertically |
| @@: cmp eax, 'flv' |
| jne @f |
| |
| invoke img.flip, [image], FLIP_VERTICAL |
| jmp redraw_image |
| |
| ; flip both horizontally and vertically |
| @@: cmp eax, 'flb' |
| jne @f |
| |
| invoke img.flip, [image], FLIP_BOTH |
| jmp redraw_image |
| |
| ; rotate left |
| @@: cmp eax, 'rtl' |
| jne @f |
| |
| push ROTATE_90_CCW |
| .rotate_common: |
| invoke img.rotate, [image] |
| mov eax, [image] |
| test eax, eax ; clear ZF flag |
| call update_image_sizes |
| jmp redraw_image |
| |
| ; rotate right |
| @@: cmp eax, 'rtr' |
| jne @f |
| |
| push ROTATE_90_CW |
| jmp .rotate_common |
| |
| ; open new file |
| @@: cmp eax, 'opn' |
| jne @f |
| |
| call opendialog |
| jc still |
| push [image] |
| mov eax, path |
| call load_image |
| jc .restore_old |
| mov esi, path |
| mov edi, @PARAMS |
| mov ecx, 512/4 |
| rep movsd |
| invoke img.destroy |
| mov byte [edi-1], 0 |
| jmp red |
| .restore_old: |
| pop [image] |
| jmp still |
| |
| @@: cmp eax, 1 |
| jne still |
| |
| exit: |
| mcall -1 |
| |
| redraw_image = red |
| |
| load_image: |
| and [img_data], 0 |
| push eax |
| invoke file.open, eax, O_READ |
| or eax, eax |
| jz .error_pop |
| mov [fh], eax |
| invoke file.size |
| mov [img_data_len], ebx |
| stdcall mem.Alloc, ebx |
| test eax, eax |
| jz .error_close |
| mov [img_data], eax |
| invoke file.read, [fh], eax, [img_data_len] |
| cmp eax, -1 |
| jz .error_close |
| cmp eax, [img_data_len] |
| jnz .error_close |
| invoke file.close, [fh] |
| inc eax |
| jz .error |
| |
| ; img.decode checks for img.is_img |
| ; invoke img.is_img, [img_data], [img_data_len] |
| ; or eax, eax |
| ; jz exit |
| invoke img.decode, [img_data], [img_data_len] |
| or eax, eax |
| jz .error |
| cmp [image], 0 |
| mov [image], eax |
| call update_image_sizes |
| call free_img_data |
| clc |
| ret |
| |
| .error_free: |
| invoke img.destroy, [image] |
| jmp .error |
| |
| .error_pop: |
| pop eax |
| jmp .error |
| .error_close: |
| invoke file.close, [fh] |
| .error: |
| call free_img_data |
| stc |
| ret |
| |
| free_img_data: |
| mov eax, [img_data] |
| test eax, eax |
| jz @f |
| stdcall mem.Free, eax |
| @@: |
| ret |
| |
| update_image_sizes: |
| pushf |
| mov edx, [eax + Image.Width] |
| add edx, 19 |
| cmp edx, 50 + 25*5 |
| jae @f |
| mov edx, 50 + 25*5 |
| @@: |
| mov [wnd_width], edx |
| mov esi, [eax + Image.Height] |
| add esi, 44 |
| mov [wnd_height], esi |
| popf |
| jz .no_resize |
| mcall 48, 4 |
| add esi, eax |
| mcall 67,-1,-1 |
| .no_resize: |
| ret |
| |
| draw_window: |
| invoke gfx.open, TRUE |
| mov [ctx], eax |
| |
| mcall 48, 4 |
| mov ebp, eax ; save skin height |
| add eax, [wnd_height] |
| __mov ebx, 100, 0 |
| add ebx, [wnd_width] |
| lea ecx, [100*65536 + eax] |
| mcall 0, , , 0x73FFFFFF, , s_header |
| |
| mcall 9, procinfo, -1 |
| |
| mov ebx, [procinfo + 42] |
| sub ebx, 9 |
| mcall 13, , <0, 35>, 0xFFFFFF |
| mov ecx, [procinfo + 46] |
| sub ecx, ebp |
| sub ecx, 9 |
| shl ecx, 16 |
| mov cl, 5 |
| mcall |
| mov cl, 35 |
| ror ecx, 16 |
| sub cx, 35 |
| mov ebx, 5 |
| mcall |
| ; 5 pixels for indentation, [image.Width] pixels for image |
| ; client_width - 5 - [image.Width] pixels must be white |
| mov ebx, [image] |
| mov esi, [procinfo + 62] |
| inc esi |
| push esi |
| mov ebx, [ebx + Image.Width] |
| sub esi, 5 |
| sub esi, ebx |
| pop ebx |
| sub ebx, esi |
| shl ebx, 16 |
| add ebx, esi |
| mcall |
| |
| invoke gfx.pen.color, [ctx], 0x007F7F7F |
| mov eax, [procinfo + 42] |
| sub eax, 10 |
| invoke gfx.line, [ctx], 0, 30, eax, 30 |
| |
| xor ebp, ebp |
| |
| mcall 8, <5 + 25 * 0, 20>, <5, 20>, 'opn'+40000000h |
| mcall 65, openbtn, <20, 20>, <5 + 25 * 0, 5>, 4, palette |
| |
| invoke gfx.line, [ctx], 5 + 25 * 1, 0, 5 + 25 * 1, 30 |
| |
| mcall 8, <10 + 25 * 1, 20>, <5, 20>, 'flh'+40000000h |
| mcall 65, fliphorzbtn, <20, 20>, <10 + 25 * 1, 5>, 4, palette |
| mcall 8, <10 + 25 * 2, 20>, <5, 20>, 'flv'+40000000h |
| mcall 65, flipvertbtn, <20, 20>, <10 + 25 * 2, 5>, 4, palette |
| |
| invoke gfx.line, [ctx], 10 + 25 * 3, 0, 10 + 25 * 3, 30 |
| |
| mcall 8, <15 + 25 * 3, 20>, <5, 20>, 'rtr'+40000000h |
| mcall 65, rotcwbtn, <20, 20>, <15 + 25 * 3, 5>, 4, palette |
| mcall 8, <15 + 25 * 4, 20>, <5, 20>, 'rtl'+40000000h |
| mcall 65, rotccwbtn, <20, 20>, <15 + 25 * 4, 5>, 4, palette |
| mcall 8, <15 + 25 * 5, 20>, <5, 20>, 'flb'+40000000h |
| mcall 65, rot180btn, <20, 20>, <15 + 25 * 5, 5>, 4, palette |
| |
| mov ebx, [image] |
| mov ecx, [ebx + Image.Width] |
| shl ecx, 16 |
| add ecx, [ebx + Image.Height] |
| __mov edx, 5, 35 |
| mov esi, 8 |
| cmp [ebx + Image.Type], Image.bpp8 |
| jz @f |
| mov esi, 24 |
| cmp [ebx + Image.Type], Image.bpp24 |
| jz @f |
| mov esi, 32 |
| @@: |
| mov edi, [ebx + Image.Palette] |
| mov ebx, [ebx + Image.Data] |
| xor ebp, ebp |
| mcall 65 |
| |
| invoke gfx.close, [ctx] |
| ret |
| |
| ; void* __stdcall mem.Alloc(unsigned size); |
| mem.Alloc: |
| push ebx ecx |
| mov ecx, [esp+12] |
| mcall 68, 12 |
| pop ecx ebx |
| ret 4 |
| |
| ; void* __stdcall mem.ReAlloc(void* mptr, unsigned size); |
| mem.ReAlloc: |
| push ebx ecx edx |
| mov edx, [esp+16] |
| mov ecx, [esp+20] |
| mcall 68, 20 |
| pop edx ecx ebx |
| ret 8 |
| |
| ; void __stdcall mem.Free(void* mptr); |
| mem.Free: |
| push ebx ecx |
| mov ecx, [esp+12] |
| mcall 68, 13 |
| pop ecx ebx |
| ret 4 |
| |
| ;----------------------------------------------------------------------------- |
| |
| s_header db 'Kolibri Image Viewer', 0 |
| |
| ;----------------------------------------------------------------------------- |
| |
| opendialog: |
| ; |
| ; STEP 1 Run SYSXTREE with parametrs MYPID 4 bytes in dec, |
| ; 1 byte space, 1 byte type of dialog (O - Open ,S - Save) |
| ; |
| |
| ;; mov esi,path |
| mov edi,path |
| xor eax,eax |
| mov ecx,(1024+16)/4 |
| rep stosd |
| |
| ;mov [get_loops],0 |
| mov [dlg_pid_get],0 |
| |
| ; Get my PID in dec format 4 bytes |
| mov eax,9 |
| mov ebx,procinfo |
| or ecx,-1 |
| mcall |
| |
| ; convert eax bin to param dec |
| mov eax,dword [procinfo+30] ;offset of myPID |
| mov edi,param+4-1 ;offset to 4 bytes |
| mov ecx,4 |
| mov ebx,10 |
| new_d: |
| xor edx,edx |
| div ebx |
| add dl,'0' |
| mov [edi],dl |
| dec edi |
| loop new_d |
| |
| ; wirite 1 byte space to param |
| mov [param+4],byte 32 ;Space for next parametr |
| ; and 1 byte type of dialog to param |
| mov [param+5],byte 'O' ;Get Open dialog (Use 'S' for Save dialog) |
| |
| ; |
| ; STEP2 prepare IPC area for get messages |
| ; |
| |
| ; prepare IPC area |
| mov [path],dword 0 |
| mov [path+4],dword 8 |
| |
| ; define IPC memory |
| mov eax,60 |
| mov ebx,1 ; define IPC |
| mov ecx,path ; offset of area |
| mov edx,1024+16 ; size |
| mcall |
| |
| ; change wanted events list 7-bit IPC event |
| mov eax,40 |
| mov ebx,01000111b |
| cmp [image], 0 |
| jnz @f |
| mov bl, 01000110b |
| @@: |
| mcall |
| |
| ; |
| ; STEP 3 run SYSTEM XTREE with parameters |
| ; |
| |
| mov eax,70 |
| mov ebx,run_fileinfo |
| mcall |
| |
| mov [get_loops],0 |
| getmesloop: |
| mov eax,23 |
| mov ebx,50 ;0.5 sec |
| mcall |
| dec eax |
| jz mred |
| dec eax |
| jz mkey |
| dec eax |
| jz mbutton |
| cmp al, 7-3 |
| jz mgetmes |
| |
| ; Get number of procces |
| mov ebx,procinfo |
| mov ecx,-1 |
| mov eax,9 |
| mcall |
| mov ebp,eax |
| |
| loox: |
| mov eax,9 |
| mov ebx,procinfo |
| mov ecx,ebp |
| mcall |
| mov eax,[DLGPID] |
| cmp [procinfo+30],eax ;IF Dialog find |
| je dlg_is_work ;jmp to dlg_is_work |
| dec ebp |
| jnz loox |
| |
| jmp erroff |
| |
| dlg_is_work: |
| cmp [procinfo+50],word 9 ;If slot state 9 - dialog is terminated |
| je erroff ;TESTODP2 terminated too |
| |
| cmp [dlg_pid_get],dword 1 |
| je getmesloop |
| inc [get_loops] |
| cmp [get_loops],4 ;2 sec if DLG_PID not get, TESTOP2 terminated |
| jae erroff |
| jmp getmesloop |
| |
| mred: |
| cmp [image], 0 |
| jz getmesloop |
| call draw_window |
| jmp getmesloop |
| mkey: |
| mov eax,2 |
| mcall ; read (eax=2) |
| jmp getmesloop |
| mbutton: |
| mov eax,17 ; get id |
| mcall |
| cmp ah,1 ; button id=1 ? |
| jne getmesloop |
| mov eax,-1 ; close this program |
| mcall |
| mgetmes: |
| |
| ; If dlg_pid_get then second message get jmp to still |
| cmp [dlg_pid_get],dword 1 |
| je ready |
| |
| ; First message is number of PID SYSXTREE dialog |
| |
| ; convert PID dec to PID bin |
| movzx eax,byte [path+16] |
| sub eax,48 |
| imul eax,10 |
| movzx ebx,byte [path+16+1] |
| add eax,ebx |
| sub eax,48 |
| imul eax,10 |
| movzx ebx,byte [path+16+2] |
| add eax,ebx |
| sub eax,48 |
| imul eax,10 |
| movzx ebx,byte [path+16+3] |
| add eax,ebx |
| sub eax,48 |
| mov [DLGPID],eax |
| |
| ; Claear and prepare IPC area for next message |
| mov [path],dword 0 |
| mov [path+4],dword 8 |
| mov [path+8],dword 0 |
| mov [path+12],dword 0 |
| mov [path+16],dword 0 |
| |
| ; Set dlg_pid_get for get next message |
| mov [dlg_pid_get],dword 1 |
| cmp [image], 0 |
| jz getmesloop |
| call draw_window |
| jmp getmesloop |
| |
| ready: |
| ; |
| ; The second message get |
| ; Second message is 100 bytes path to SAVE/OPEN file |
| ; shl path string on 16 bytes |
| ; |
| mov esi,path+16 |
| mov edi,path |
| mov ecx,1024/4 |
| rep movsd |
| mov [edi],byte 0 |
| |
| openoff: |
| mcall 40, 7 |
| clc |
| ret |
| |
| erroff: |
| mcall 40, 7 |
| stc |
| ret |
| |
| ;----------------------------------------------------------------------------- |
| |
| align 4 |
| @IMPORT: |
| |
| library \ |
| libio , 'libio.obj' , \ |
| libgfx , 'libgfx.obj' , \ |
| libimg , 'libimg.obj' |
| |
| import libio , \ |
| libio.init , 'lib_init' , \ |
| file.size , 'file.size' , \ |
| file.open , 'file.open' , \ |
| file.read , 'file.read' , \ |
| file.close , 'file.close' |
| |
| import libgfx , \ |
| libgfx.init , 'lib_init' , \ |
| gfx.open , 'gfx.open' , \ |
| gfx.close , 'gfx.close' , \ |
| gfx.pen.color , 'gfx.pen.color' , \ |
| gfx.line , 'gfx.line' |
| |
| import libimg , \ |
| libimg.init , 'lib_init' , \ |
| img.is_img , 'img.is_img' , \ |
| img.to_rgb2 , 'img.to_rgb2', \ |
| img.decode , 'img.decode' , \ |
| img.flip , 'img.flip' , \ |
| img.rotate , 'img.rotate' , \ |
| img.destroy , 'img.destroy' |
| |
| ;----------------------------------------------------------------------------- |
| |
| palette: |
| dd 0x000000, 0x800000, 0x008000, 0x808000 |
| dd 0x000080, 0x800080, 0x008080, 0x808080 |
| dd 0xC0C0C0, 0xFF0000, 0x00FF00, 0xFFFF00 |
| dd 0x0000FF, 0xFF00FF, 0x00FFFF, 0xFFFFFF |
| |
| macro loadbtn filename |
| { |
| repeat 20 |
| file filename:76h+(%-1)*12,10 |
| end repeat |
| repeat 10 |
| y = % - 1 |
| z = 20 - % |
| repeat 10 |
| load a byte from $ - 20*10 + y*10 + (%-1) |
| load b byte from $ - 20*10 + z*10 + (%-1) |
| store byte a at $ - 20*10 + z*10 + (%-1) |
| store byte b at $ - 20*10 + y*10 + (%-1) |
| end repeat |
| end repeat |
| } |
| |
| openbtn: |
| loadbtn 'open.bmp' |
| fliphorzbtn: |
| loadbtn 'fliphorz.bmp' |
| flipvertbtn: |
| loadbtn 'flipvert.bmp' |
| rotcwbtn: |
| loadbtn 'rotcw.bmp' |
| rotccwbtn: |
| loadbtn 'rotccw.bmp' |
| rot180btn: |
| loadbtn 'rot180.bmp' |
| |
| ; DATA AREA |
| get_loops dd 0 |
| dlg_pid_get dd 0 |
| DLGPID dd 0 |
| |
| param: |
| dd 0 ; My dec PID |
| dd 0,0 ; Type of dialog |
| |
| run_fileinfo: |
| dd 7 |
| dd 0 |
| dd param |
| dd 0 |
| dd 0 |
| ;run_filepath |
| db '/sys/SYSXTREE',0 |
| |
| ;----------------------------------------------------------------------------- |
| |
| I_END: |
| |
| img_data dd ? |
| img_data_len dd ? |
| fh dd ? |
| image dd ? |
| wnd_width dd ? |
| wnd_height dd ? |
| |
| ctx dd ? |
| |
| procinfo: rb 1024 |
| path: rb 1024+16 |
| |
| @PARAMS rb 512 |
