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