WebSVN – Kolibri OS – Diff – /programs/media/img_transform/img_transform.asm


use32
	org 0
	db 'MENUET01'
	dd 1,start,i_end,mem,stacktop,openfile_path,sys_path
 
include 'lang.inc'
include '../../../programs/macros.inc'
include '../../../programs/proc32.inc'
include '../../../programs/KOSfuncs.inc'
include '../../../programs/load_img.inc'
include '../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'
include '../../../programs/develop/libraries/libs-dev/libimg/libimg.inc'
include '../../../programs/develop/info3ds/info_fun_float.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
caption db 'Image transform 10.06.20',0 ;¯®¤¯¨áì ®ª­ 
 
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
 
BUF_STRUCT_SIZE equ 21
buf2d_data equ dword[edi] ;¤ ­­ë¥ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
buf2d_w equ dword[edi+8] ;è¨à¨­  ¡ãä¥à 
buf2d_h equ dword[edi+12] ;¢ëá®â  ¡ãä¥à 
buf2d_l equ word[edi+4]
buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢  ¨ á¯à ¢  ¤«ï ¡ãä¥à 
buf2d_color equ dword[edi+16] ;æ¢¥â ä®­  ¡ãä¥à 
buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï
 
NAV_WND_L equ 145
NAV_WND_T equ 1
 
include 'select_points.inc'
 
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
image_data_toolbar dd 0
 
align 4
start:
	load_libraries l_libs_start,l_libs_end
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨« áì ¡¨¡«¨®â¥ª 
	mov	ebp,lib_0
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall SF_TERMINATE_PROCESS
	@@:
	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
	mcall SF_SET_EVENTS_MASK,0xC0000027
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
 
	stdcall [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
 
	include_image_file '../../../programs/fs/kfar/trunk/font6x9.bmp', image_data_toolbar, buf_font.w,buf_font.h
	stdcall [buf2d_create_f_img], buf_font,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8 ¡¨â
	stdcall [buf2d_convert_text_matrix], buf_font
 
	include_image_file 'toolbar.png', image_data_toolbar
 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
	mov [last_time],eax
 
	;­ áâà®©ª  â®ç¥ª
	call points_init
 
	;open file from cmd line
	cmp dword[openfile_path],0
	je @f
		call but_open_file.no_dlg
	@@:
 
align 4
red_win:
	call draw_window
 
align 16
still:
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
	mov ebx,[last_time]
	add ebx,10 ;§ ¤¥à¦ª 
	cmp ebx,eax
	jge @f
		mov ebx,eax
	@@:
	sub ebx,eax
	mcall SF_WAIT_EVENT_TIMEOUT
	cmp eax,0
	je timer_funct
 
	cmp al,1
	jz red_win
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6
	jne @f
		mcall SF_THREAD_INFO,procinfo,-1
		cmp ax,word[procinfo.window_stack_position]
		jne @f ;®ª­® ­¥  ªâ¨¢­®
		call mouse
	@@:
	jmp still
 
align 4
timer_funct:
	push eax ebx
		mcall SF_SYSTEM_GET,SSF_TIME_COUNT
		mov [last_time],eax
	pop ebx eax
	cmp byte[calc],0
	je still
		call draw_nav_wnd
		call draw_buffers
	jmp still
 
align 16
draw_window:
pushad
	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
	; *** à¨á®¢ ­¨¥ £« ¢­®£® ®ª­  (¢ë¯®«­ï¥âáï 1 à § ¯à¨ § ¯ãáª¥) ***
	mov edx,[sc.work]
	or  edx,(3 shl 24)+0x30000000
	mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption
 
	mcall SF_THREAD_INFO,procinfo,-1
	mov eax,dword[procinfo.box.height]
	cmp eax,120
	jge @f
		mov eax,120 ;min size
	@@:
	sub eax,65
	mov ebx,dword[procinfo.box.width]
	cmp ebx,270
	jge @f
		mov ebx,270
	@@:
	sub ebx,19
	cmp eax,dword[buf_0.h] ;á¬®âà¨¬ à §¬¥à ¡ãä¥à 
	jne @f
	cmp ebx,dword[buf_0.w]
	jne @f
		jmp .end0
	@@:
		stdcall [buf2d_resize],buf_0,ebx,eax,1
		call calc_nav_params
		mov eax,[nav_x]
		call nav_x_corect
		mov [nav_x],eax
		mov eax,[nav_y]
		call nav_y_corect
		mov [nav_y],eax
		mov byte[calc],1
	.end0:
 
	; *** á®§¤ ­¨¥ ª­®¯®ª ­  ¯ ­¥«ì ***
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button]
 
	add ebx,25 shl 16
	mcall ,,,4
	add ebx,30 shl 16
	mcall ,,,5
	add ebx,25 shl 16
	mcall ,,,6
	add ebx,25 shl 16
	mcall ,,,7
 
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
	mov edx,(7 shl 16)+7 ;icon open
	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;icon save
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(30 shl 16) ;icon view
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;icon mode
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
 
	call draw_nav_wnd
	call draw_buffers
 
	mcall SF_REDRAW,SSF_END_DRAW
popad
	ret
 
;à¨á®¢ ­¨¥ ­ ¢¨£ æ¨®­­®£® ®ª­ 
align 4
proc draw_nav_wnd
	cmp dword[buf_i0],0
	je .end0
	bt dword[nav_x_min],31
	jnc .end0
	bt dword[nav_y_min],31
	jnc .end0
pushad
		mov ebx,(NAV_WND_L shl 16)
		add ebx,[nav_wnd_w]
		mov ecx,(NAV_WND_T shl 16)
		add ecx,[nav_wnd_h]
		mcall SF_DRAW_RECT,,,0 ;¨§®¡à ¦¥­¨¥
		mov ecx,[nav_wnd_zoom]
		mov ebx,[nav_x]
		neg ebx
		sar ebx,cl
		add ebx,NAV_WND_L
		shl ebx,16
		add ebx,[buf_0.w]
		shr bx,cl
		mov edx,[nav_y]
		neg edx
		sar edx,cl
		add edx,NAV_WND_T
		shl edx,16
		add edx,[buf_0.h]
		shr dx,cl
		mov ecx,edx
		mcall ,,,0x404080 ;ç áâì ¨§®¡à ¦¥­¨ï ¯®¯ ¤ îé ï ¢ ®ª­®
		
		mov edi,sel_pt
		@@:
			mov ecx,[nav_wnd_zoom]
			mov ebx,[edi+point2d.x]
			shr ebx,cl
			add ebx,NAV_WND_L
			mov edx,[edi+point2d.y]
			shr edx,cl
			add edx,NAV_WND_T
			mov ecx,edx
			mcall SF_PUT_PIXEL,,,0xffff00
			add edi,sizeof.point2d
			cmp edi,sel_pt+4*sizeof.point2d
			jl @b
popad
	.end0:
	ret
endp
 
align 4
proc draw_buffers
pushad
	cmp byte[calc],0
	je .end0
		; *** ®¡­®¢«¥­¨¥ ¡ãä¥à  ***
		bt dword[nav_x_min],31
		jnc .beg0
		bt dword[nav_y_min],31
		jc @f
		.beg0:
			stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
		@@:
		cmp byte[view_b],1
		je .end1
			push buf_i0
			jmp .end2
		.end1:
			push buf_ogl
		.end2:
		stdcall [buf2d_bit_blt], buf_0, [nav_x],[nav_y] ;,...
 
		call points_draw
 
		; *** ®¡­®¢«¥­¨¥ ¯®¤¯¨á¨ à §¬¥à  ä ©«  ***
		mov edi,txt_f_size.size
		mov eax,[open_file_size]
		mov ebx,txt_pref
		.cycle:
			cmp eax,1024
			jl @f
			shr eax,10
			add ebx,4
			jmp .cycle
		@@:
		stdcall convert_int_to_str, 16
		stdcall str_cat, edi,ebx
		stdcall str_cat, edi,txt_space ;§ ¢¥àè îé¨© ¯à®¡¥«
		;è¨à¨­  ¨ ¢ëá®â  ¨§®¡à ¦¥­¨ï
		mov eax,[buf_i0.w]
		mov edi,txt_img_w.size
		stdcall convert_int_to_str, 16
		mov eax,[buf_i0.h]
		mov edi,txt_img_h.size
		stdcall convert_int_to_str, 16
		mov byte[calc],0
	.end0:
	; *** à¨á®¢ ­¨¥ ¡ãä¥à  ***
	stdcall [buf2d_draw], buf_0
	; *** à¨á®¢ ­¨¥ ¯®¤¯¨á¨ à §¬¥à  ä ©«  ***
	mov ecx,[sc.work_text]
	or  ecx,0x80000000 or (1 shl 30)
	mov edi,[sc.work] ;æ¢¥â ä®­  ®ª­ 
	mcall SF_DRAW_TEXT,(275 shl 16)+4,,txt_f_size
	add ebx,9
	mcall ,,,txt_img_w
	add ebx,9
	mcall ,,,txt_img_h
popad
	ret
endp
 
align 16
key:
	push eax ebx ecx
	mcall SF_GET_KEY
	cmp byte[view_b],1
	je .end1
	cmp ah,49 ;1
	jne @f
		mov edi,sel_pt
		call set_point_coords
		jmp .end0
	@@:
	cmp ah,50 ;2
	jne @f
		mov edi,sel_pt+sizeof.point2d
		call set_point_coords
		jmp .end0
	@@:
	cmp ah,51 ;3
	jne @f
		mov edi,sel_pt+sizeof.point2d*2
		call set_point_coords
		jmp .end0
	@@:
	cmp ah,52 ;4
	jne @f
		mov edi,sel_pt+sizeof.point2d*3
		call set_point_coords
		jmp .end0
	@@:
	.end1:
 
	cmp ah,178 ;Up
	jne @f
		call but_img_move_up
		jmp .end0
	@@:
	cmp ah,177 ;Down
	jne @f
		call but_img_move_down
		jmp .end0
	@@:
	cmp ah,176 ;Left
	jne @f
		call but_img_move_left
		jmp .end0
	@@:
	cmp ah,179 ;Right
	jne @f
		call but_img_move_right
		jmp .end0
	@@:
 
	mov ecx,eax
	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS
	bt eax,2 ;left Ctrl
	jc .key_Ctrl
	bt eax,3 ;right Ctrl
	jc .key_Ctrl
	jmp .end0
	.key_Ctrl:
		cmp ch,15 ;Ctrl+O
		jne @f
			call but_open_file
		@@:
		cmp ch,19 ;Ctrl+S
		jne @f
			call but_save_file
		@@:
 
	.end0:
	pop ecx ebx eax
	jmp still
 
;input:
; edi - ãª § â¥«ì ­  áâàãªâãàã point2d
align 4
set_point_coords:
	call buf_get_mouse_coord
	cmp eax,-1
	je .end0
		sub eax,[nav_x]
		cmp eax,0
		jge @f
			xor eax,eax
		@@:
		cmp eax,[buf_i0.w]
		jle @f
			mov eax,[buf_i0.w]
		@@:
		mov [edi+point2d.x],eax
		sub ebx,[nav_y]
		cmp ebx,0
		jge @f
			xor ebx,ebx
		@@:
		cmp ebx,[buf_i0.h]
		jle @f
			mov ebx,[buf_i0.h]
		@@:
		mov [edi+point2d.y],ebx
		call points_update_prop
		mov byte[calc],1
	.end0:
	ret
 
align 16
button:
	mcall SF_GET_BUTTON
	cmp ah,3
	jne @f
		call but_open_file
		jmp still
	@@:
	cmp ah,4
	jne @f
		call but_save_file
		jmp still
	@@:
	cmp ah,5
	jne @f
		call but_2
		jmp still
	@@:
	cmp ah,6
	jne @f
		call but_3
		jmp still
	@@:
	cmp ah,7
	jne @f
		call but_about
		jmp still
	@@:
	cmp ah,1
	jne still
.exit:
	stdcall [buf2d_delete],buf_0
	stdcall [buf2d_delete],buf_i0
	;stdcall [buf2d_delete],buf_ogl
	stdcall mem.Free,[image_data_toolbar]
	stdcall mem.Free,[open_file_img]
	mcall SF_TERMINATE_PROCESS
 
align 4
mouse:
	push eax ebx ecx
	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
	bt eax,8
	jnc @f
		;mouse l. but. press
		call mouse_left_d
		jmp .end_l
	@@:
	;bt eax,0
	;jnc @f
		;mouse l. but. move
		;call mouse_left_m
		;jmp .end_l
	;@@:
	bt eax,16
	jnc .end_l
		;mouse l. but. up
		call mouse_left_u
		;jmp .end_l
	.end_l:
	;bt eax,9
	;jnc @f
		;mouse r. but. press
		;call mouse_right_d
		;jmp .end_r
	;@@:
	;bt eax,1
	;jnc @f
		;mouse r. but. move
		;call mouse_right_m
		;jmp .end_r
	;@@:
	;.end_r:
 
	pop ecx ebx eax
	ret
 
;output:
; eax - buffer coord X (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
; ebx - buffer coord Y (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
align 4
proc buf_get_mouse_coord
	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
	cmp ax,word[buf_0.t]
	jl .no_buf ;­¥ ¯®¯ «¨ ¢ ®ª­® ¡ãä¥à  ¯® ®á¨ y
	mov ebx,eax
	shr ebx,16
	cmp bx,word[buf_0.l]
	jl .no_buf ;­¥ ¯®¯ «¨ ¢ ®ª­® ¡ãä¥à  ¯® ®á¨ x
 
	and eax,0xffff ;®áâ ¢«ï¥¬ ª®®à¤¨­ âã y
	sub ax,word[buf_0.t]
	cmp eax,[buf_0.h]
	jg .no_buf
	sub bx,word[buf_0.l]
	cmp ebx,[buf_0.w]
	jg .no_buf
	xchg eax,ebx
	jmp .end_f
	.no_buf:
		xor eax,eax
		not eax
		xor ebx,ebx
		not ebx
	.end_f:
	ret
endp
 
;output:
; eax - buffer coord X (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
; ebx - buffer coord Y (¥á«¨ ªãàá®à §  ¡ãä¥à®¬ -1)
align 4
proc nav_wnd_get_mouse_coord
	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
	cmp ax,NAV_WND_T
	jl .no_buf ;­¥ ¯®¯ «¨ ¢ ®ª­® ¡ãä¥à  ¯® ®á¨ y
	cmp eax,NAV_WND_L shl 16
	jl .no_buf ;­¥ ¯®¯ «¨ ¢ ®ª­® ¡ãä¥à  ¯® ®á¨ x
	mov ebx,eax
	shr ebx,16
 
	and eax,0xffff ;®áâ ¢«ï¥¬ ª®®à¤¨­ âã y
	sub ax,NAV_WND_T
	cmp eax,[nav_wnd_h]
	jg .no_buf
	sub bx,NAV_WND_L
	cmp ebx,[nav_wnd_w]
	jg .no_buf
	xchg eax,ebx
	jmp .end_f
	.no_buf:
		xor eax,eax
		not eax
		xor ebx,ebx
		not ebx
	.end_f:
	ret
endp
 
align 4
mouse_left_d:
pushad
	call buf_get_mouse_coord
	cmp eax,-1
	je .end0
		mov [mouse_down_x],eax
		mov [mouse_down_y],ebx
		sub eax,[nav_x]
		sub ebx,[nav_y]
		
		mov edi,sel_pt
		xor ecx,ecx
		.cycle0:
			mov edx,[edi+point2d.x]
			sub edx,eax
			bt edx,31
			jnc @f
				neg edx
			@@:
			cmp edx,5 ;à §¬¥à ¤«ï ¢ë¤¥«¥­¨ï â®çª¨ ¯® ®á¨ x
			jg .end1
			mov edx,[edi+point2d.y]
			sub edx,ebx
			bt edx,31
			jnc @f
				neg edx
			@@:
			cmp edx,5 ;à §¬¥à ¤«ï ¢ë¤¥«¥­¨ï â®çª¨ ¯® ®á¨ y
			jg .end1
				mov [sel_act],ecx
				jmp .end0
			.end1:
			add edi,sizeof.point2d
			inc ecx
			cmp ecx,4
			jl .cycle0
			mov dword[sel_act],-1
		jmp .end2
	.end0:
	call nav_wnd_get_mouse_coord
	cmp eax,-1
	je .end2
		mov ecx,[nav_wnd_zoom]
		shl eax,cl
		shl ebx,cl
		stdcall nav_to_point, eax,ebx
		mov byte[calc],1
	.end2:
popad
	ret
 
align 4
proc mouse_left_u uses eax ebx
	call buf_get_mouse_coord
	cmp eax,-1
	je .end0
		sub [mouse_down_x],eax
		sub [mouse_down_y],ebx
 
		cmp dword[sel_act],-1
		je .end1
			;¤¢¨£ ¥¬ â®çª¨
			mov eax,[sel_act]
			imul eax,sizeof.point2d
			add eax,sel_pt
			;coord x
			mov ebx,dword[eax+point2d.x]
			sub ebx,[mouse_down_x]
			cmp ebx,0
			jge @f
				xor ebx,ebx
			@@:
			cmp ebx,[buf_i0.w]
			jle @f
				mov ebx,[buf_i0.w]
			@@:
			mov dword[eax+point2d.x],ebx
			;coord y
			mov ebx,dword[eax+point2d.y]
			sub ebx,[mouse_down_y]
			cmp ebx,0
			jge @f
				xor ebx,ebx
			@@:
			cmp ebx,[buf_i0.h]
			jle @f
				mov ebx,[buf_i0.h]
			@@:
			mov dword[eax+point2d.y],ebx
			call points_update_prop
			jmp .end2
		.end1:
 
		;¤¢¨£ ¥¬ ¨§®¡à ¦¥­¨¥
		mov eax,[nav_y]
		sub eax,[mouse_down_y]
		call nav_y_corect
 
 
 
 
 
 
 
		mov [nav_y],eax
 
		mov eax,[nav_x]
		sub eax,[mouse_down_x]
		call nav_x_corect
 
 
 
 
 
 
 
		mov [nav_x],eax
	.end2:
		mov byte[calc],1
	.end0:
	ret
endp
 
align 4
proc but_new_file uses eax edi esi
	xor eax,eax
	mov [open_file_size],eax
	mov edi,[open_file_img]
	stosd
	ret
endp
 
align 4
open_file_img dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï â¥ªáâãà
open_file_size dd 0 ;à §¬¥à
 
;¢ëç¨á«¥­¨¥ ¯ à ¬¥âà®¢ ¤«ï ­ ¢¨£ æ¨¨ ¯® ¨§®¡à ¦¥­¨î
align 4
proc calc_nav_params uses eax ecx edi
	mov dword[nav_x_max],0
	mov edi,buf_0
	mov eax,buf2d_w
	mov [nav_sx],eax
	mov edi,buf_i0
	sub eax,buf2d_w
	bt eax,31
	jc @f
		mov [nav_x_max],eax
		xor eax,eax
	@@:
	mov [nav_x_min],eax
	mov edi,buf2d_w
	cmp [nav_sx],edi
	jle @f
		mov [nav_sx],edi
	@@:
	shr dword[nav_sx],1
 
	mov dword[nav_y_max],0
	mov edi,buf_0
	mov eax,buf2d_h
	mov [nav_sy],eax
	mov edi,buf_i0
	sub eax,buf2d_h
	bt eax,31
	jc @f
		mov [nav_y_max],eax
		xor eax,eax
	@@:
	mov [nav_y_min],eax
	mov edi,buf2d_h
	cmp [nav_sy],edi
	jle @f
		mov [nav_sy],edi
	@@:
	shr dword[nav_sy],1
 
	xor ecx,ecx
	mov eax,[buf_i0.w]
	@@:
		inc ecx
		shr eax,1
		cmp eax,100
		jg @b
	mov [nav_wnd_zoom],ecx
	xor ecx,ecx
	mov eax,[buf_i0.h]
	@@:
		inc ecx
		shr eax,1
		cmp eax,32
		jg @b
	cmp [nav_wnd_zoom],ecx
	jg @f
		mov [nav_wnd_zoom],ecx
	@@:
	mov ecx,[nav_wnd_zoom]
	mov eax,[buf_i0.w]
	shr eax,cl
	mov [nav_wnd_w],eax
	mov eax,[buf_i0.h]
	shr eax,cl
	mov [nav_wnd_h],eax
	ret
endp
 
align 4
proc but_open_file
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	pushad
	mov [OpenDialog_data.type],0
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_open_file
	jmp .end0
.no_dlg: ;¥á«¨ ¬¨­ã¥¬ ¤¨ «®£ ®âªàëâ¨ï ä ©« 
		pushad
		mov esi,openfile_path
		stdcall str_len,esi
		add esi,eax
		@@: ;æ¨ª« ¤«ï ¯®¨áª  ­ ç «  ¨¬¥­¨ ä ©« 
			dec esi
			cmp byte[esi],'/'
			je @f
			cmp byte[esi],0x5c ;'\'
			je @f
			cmp esi,openfile_path
			jg @b
		@@:
		inc esi
		stdcall [OpenDialog_Set_file_name],OpenDialog_data,esi ;ª®¯¨àã¥¬ ¨¬ï ä ©«  ¢ ¤¨ «®£ á®åà ­¥­¨ï
	.end0:
 
	mov [run_file_70.Function], SSF_GET_INFO
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov dword[run_file_70.Count], 0
	mov dword[run_file_70.Buffer], open_b
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mcall SF_FILE,run_file_70
 
	mov ecx,dword[open_b+32] ;+32 qword: à §¬¥à ä ©«  ¢ ¡ ©â å
	mov [open_file_size],ecx
	stdcall mem.ReAlloc,[open_file_img],ecx ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [open_file_img],eax
 
	mov [run_file_70.Function], SSF_READ_FILE
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	m2m [run_file_70.Count], dword[open_file_size]
	m2m [run_file_70.Buffer],dword[open_file_img]
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], openfile_path
	mcall SF_FILE,run_file_70
	cmp ebx,0xffffffff
	je .end_0
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï
		stdcall [img_decode], [open_file_img],ebx,0
		or eax,eax
		jz .end_0 ;¥á«¨ ­ àãè¥­ ä®à¬ â ä ©« 
		mov ebx,eax
		
		mov ecx,[ebx+4] ;+4 = image width
		mov dword[buf_cop.w],ecx
		imul ecx,[ebx+8] ;+8 = image height
		lea ecx,[ecx+ecx*2]
		mov [open_file_size],ecx
		stdcall mem.ReAlloc,[open_file_img],ecx
		mov [open_file_img],eax
		mov dword[buf_cop],eax
		mov dword[buf_cop.l],0 ;left = 0, top = 0
		m2m dword[buf_cop.h],dword[ebx+8]
 
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall [img_to_rgb2], ebx,[open_file_img]
		mov edi,buf_i0
		cmp buf2d_data,0
		jne .end3
			stdcall getNextPowerOfTwo,[ebx+8]
			mov buf2d_h,eax
			mov edx,eax
			stdcall getNextPowerOfTwo,[ebx+4]
			mov buf2d_w,eax
			cmp edx,[ebx+8]
			jne @f
			cmp eax,[ebx+4]
			jne @f
				;á®§¤ ­¨¥ ­®¢®£® ¨§®¡à ¦¥­¨ï ¯® ¨áå®¤­ë¬ à §¬¥à ¬
				stdcall [buf2d_create_f_img], edi,[open_file_img]
				jmp .end_1
			@@:
				;á®§¤ ­¨¥ ­®¢®£® ¨§®¡à ¦¥­¨ï ¯® ¯à¥®¡à §®¢ ­­ë¬ à §¬¥à ¬
				cmp eax,[ebx+4]
				jge @f
					mov eax,[ebx+4]
					mov buf2d_w,eax
				@@:
				sub eax,[ebx+4]
				shr eax,1
				mov esi,eax
				cmp edx,[ebx+8]
				jge @f
					mov edx,[ebx+8]
					mov buf2d_h,edx
				@@:
				sub edx,[ebx+8]
				shr edx,1
				stdcall [buf2d_create], edi
				mov [buf_cop.l],si
				mov [buf_cop.t],dx
				stdcall [buf2d_bit_blt], edi, esi,edx, buf_cop
				jmp .end_1
		.end3:
			;¯à¥®¡à §®¢ ­¨¥ á®§¤ ­­®£® ¨§®¡à ¦¥­¨ï
			stdcall getNextPowerOfTwo,[ebx+4]
			cmp eax,[ebx+4]
			jg @f
				mov eax,[ebx+4]
			@@:
			mov ecx,eax ;à §¬¥à ¯® x
			stdcall getNextPowerOfTwo,[ebx+8]
			cmp eax,[ebx+8]
			jg @f
				mov eax,[ebx+8]
			@@:
			mov edx,eax ;à §¬¥à ¯® y
			stdcall [buf2d_resize], edi, ecx,edx,1 ;¨§¬¥­ï¥¬ à §¬¥àë ¡ãä¥à 
			stdcall [buf2d_clear], edi, buf2d_color
			sub ecx,[ebx+4]
			shr ecx,1
			mov [buf_cop.l],cx
			sub edx,[ebx+8]
			shr edx,1
			mov [buf_cop.t],dx
			stdcall [buf2d_bit_blt], edi, ecx,edx, buf_cop
		.end_1:
		
		;á®§¤ ¥¬ ¡ãä¥à ¤«ï ¯à¥®¡à §®¢ ­­®£® ¨§®¡à ¦¥­¨ï
		mov edi,buf_ogl
		mov eax,[buf_i0.w]
		and eax, not 3
		mov buf2d_w,eax
		mov eax,[buf_i0.h]
		and eax, not 3
		mov buf2d_h,eax
		cmp buf2d_data,0
		jne @f
			stdcall [kosglMakeCurrent], 0,35,buf2d_w,buf2d_h,ctx1
			stdcall [glEnable], GL_DEPTH_TEST
			stdcall [glEnable], GL_NORMALIZE ;¤¥« ¬ ­®à¬ «¨ ®¤¨­ ª®¢®© ¢¥«¨ç¨­ë ¢® ¨§¡¥¦ ­¨¥  àâ¥ä ªâ®¢
			stdcall [glShadeModel], GL_SMOOTH
			stdcall [glScalef], 2.0, -2.0, 1.0
			stdcall [glTranslatef], -0.5, -0.5, 0.0
			jmp .end_2
		@@:
			stdcall reshape, buf2d_w,buf2d_h ;¨§¬¥­ï¥¬ à §¬¥àë ¡ãä¥à  buf_ogl
		.end_2:
		mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
		mov eax,[eax] ;eax -> ZBuffer
		mov eax,[eax+offs_zbuf_pbuf] ;eax -> ZBuffer.pbuf
		mov buf2d_data,eax
 
		stdcall [buf2d_bit_blt], edi, 0,0, buf_i0 ;ª®¯¨àã¥¬ ¨§®¡à ¦¥­¨¥ ¤«ï ¢®áâ ­®¢«¥­¨ï
 
		;* Setup texturing *
		stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL
  
		;* generate texture object IDs *
		stdcall [glGenTextures], 1, TexObj
		stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]
		stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, [buf_i0.w], [buf_i0.h],\
			0, GL_RGB, GL_UNSIGNED_BYTE, [buf_i0] ;¤¥« ¥¬ â¥ªáâãàã ­  ®á­®¢¥ ¡ãä¥à , á ¬® ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à¥ ¬®¦¥â ¨á¯®àâ¨âáï ¯à¨ ¯®¤£®­ª¥ à §¬¥à®¢ â¥ªáâãàë
 
		stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST
		stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST
		stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT
		stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT
		stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]
		stdcall [glEnable], GL_TEXTURE_2D
 
		stdcall [buf2d_bit_blt], buf_i0, 0,0, edi ;¢®áâ ­ ¢«¨¢ ¥¬ ¨§®¡à ¦¥­¨¥ ¨á¯®àç¥­®¥ ¯à¨ ãáâ ­®¢ª¥ â¥ªáâãàë
 
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à ¢ ebx
		stdcall [img_destroy], ebx
		
		movzx eax,word[buf_cop.l]
		movzx ebx,word[buf_cop.t]
		stdcall points_init_2,eax,ebx
 
		call calc_nav_params
		stdcall nav_to_point, dword[sel_pt+point2d.x],dword[sel_pt+point2d.y]
		mov byte[view_b],0
		mov dword[sel_act],-1 ;á­¨¬ ¥¬ ¢ë¤¥«¥­¨¥ á â®ç¥ª
		mov byte[calc],1
	.end_0:
 
	.end_open_file:
	popad
	ret
endp
 
align 4
proc nav_to_point, coord_x:dword, coord_y:dword
	;coord x
	mov eax,[nav_x_max]
	cmp eax,0
	jle @f
		;¥á«¨ ¬ «¥­ìª®¥ ¨§®¡à ¦¥­¨¥ â® áâ ¢¨¬ ¯® æ¥­âàã
		shr eax,1
		jmp .end0
	@@:
	mov eax,[buf_0.w]
	shr eax,1
	sub eax,[coord_x]
 
 
 
 
	call nav_x_corect
 
 
	.end0:
	mov [nav_x],eax
	;coord y
	mov eax,[nav_y_max]
	cmp eax,0
	jle @f
		;¥á«¨ ¬ «¥­ìª®¥ ¨§®¡à ¦¥­¨¥ â® áâ ¢¨¬ ¯® æ¥­âàã
		shr eax,1
		jmp .end1
	@@:
	mov eax,[buf_0.h]
	shr eax,1
	sub eax,[coord_y]
	call nav_y_corect
	.end1:
	mov [nav_y],eax
	ret
endp
 
;input:
; eax - navigation coord x
;output:
; eax - valid coord x
align 4
nav_x_corect:
	cmp eax,[nav_x_min]
	jge @f
		mov eax,[nav_x_min]
	@@:
	cmp eax,[nav_x_max]
	jle @f
		mov eax,[nav_x_max]
	@@:
	ret
 
;input:
; eax - navigation coord y
;output:
; eax - valid coord y
align 4
nav_y_corect:
	cmp eax,[nav_y_min]
	jge @f
		mov eax,[nav_y_min]
	@@:
	cmp eax,[nav_y_max]
	jle @f
		mov eax,[nav_y_max]
	@@:
 
	ret
 
 
align 4
proc getNextPowerOfTwo uses ebx, n:dword
	mov ebx,[n]
	mov eax,8 ;min size
	cmp ebx,eax
	jle .set
	@@:
		shl eax,1
		cmp ebx,eax
		jg @b
	cmp eax,4096 ;max size
	jle .set
		mov eax,4096
	.set:
	ret
endp
 
; new window size or exposure
align 4
proc reshape uses ebx ecx, width:dword, height:dword
	stdcall [glViewport], 0, 0, [width], [height]
	stdcall [glMatrixMode], GL_MODELVIEW
	stdcall [glLoadIdentity]
	stdcall [glScalef], 2.0, -2.0, 1.0
	stdcall [glTranslatef], -0.5, -0.5, 0.0
	ret
endp
 
align 4
proc but_save_file
locals
	png_data dd 0
	png_size dd 0
endl
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],1
	stdcall [OpenDialog_Set_file_ext],OpenDialog_data,Filter.1 ;.png
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],1
	jne .end_save_file
		;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
		mov dword[png_data],0
 
		;create image struct
		stdcall [img_create], [buf_ogl.w], [buf_ogl.h], Image.bpp24
		mov ebx,eax
		test eax,eax
		jz @f
			;copy foto to image buffer
			mov edi,[eax+Image.Data]
			mov esi,[buf_ogl]
			mov ecx,[buf_ogl.w]
			mov edx,[buf_ogl.h]
			imul ecx,edx
			imul ecx,3
			shr ecx,2 ;OpenGL buffer align to 4
			rep movsd
 
			;encode image
			stdcall [img_encode], eax, LIBIMG_FORMAT_PNG, 0
			test eax,eax
			jz @f
				mov [png_data],eax
				mov [png_size],ecx
		@@:
		stdcall [img_destroy],ebx
 
	; § ¯®«­ï¥¬ áâàãªâãàã ¤«ï á®åà ­¥­¨ï ä ©« 
	mov ebx,run_file_70
	mov dword[ebx],SSF_CREATE_FILE
	mov eax,[png_size]
	mov [ebx+12],eax ;file size
	mov eax,[png_data]
	mov [ebx+16],eax
	mov dword[ebx+FileInfoBlock.FileName], openfile_path
 
	mcall SF_FILE,run_file_70
	test eax,eax
	jnz .save_error
			;notify_window_run openfile_path
			jmp @f
		.save_error:
			;á®®¡é¥­¨¥ ® ­¥ã¤ ç­®¬ á®åà ­¥­¨¨
			notify_window_run txt_err_save_img_file
		@@:
		mcall SF_SYS_MISC, SSF_MEM_FREE, [png_data]
	.end_save_file:
	popad
	ret
endp
 
align 4
but_2:
	xor byte[view_b],1
	mov byte[calc],1
	ret
 
align 4
but_3:
	xor byte[trans_a],1
	call points_update_prop
	mov byte[calc],1
	ret
 
align 4
but_about:
	notify_window_run txt_about
	ret
 
align 4
calc db 0
view_b db 0 ;0 - ¨áå®¤­ë© ¡ãä¥à, 1 - ¯à®á¬®âà à¥§ã«ìâ â 
trans_a db 0 ;0 - ¯à¥®¡à §®¢ âì ¯® § ¤ ­­®¬ã à §¬¥àã, 1 - ¯à¥®¡à §®¢ âì ­  ¢¥áì ¡ãä¥à
 
align 4
proc but_img_move_up uses eax
	cmp dword[sel_act],-1
	je .end0
		mov eax,[sel_act]
		imul eax,sizeof.point2d
		add eax,sel_pt
		cmp dword[eax+point2d.y],0
		je .end2
		dec dword[eax+point2d.y]
		call points_update_prop
		jmp .end1
	.end0:
	mov eax,[nav_y]
	sub eax,[nav_sy]
	cmp eax,[nav_y_min]
	jge @f
		mov eax,[nav_y_min]
	@@:
	mov [nav_y],eax
	.end1:
	mov byte[calc],1
	.end2:
	ret
endp
 
align 4
proc but_img_move_down uses eax edi
	cmp dword[sel_act],-1
	je .end0
		mov eax,[sel_act]
		imul eax,sizeof.point2d
		add eax,sel_pt
		mov edi,buf_ogl
		mov edi,buf2d_h
		cmp dword[eax+point2d.y],edi
		jge .end2
		inc dword[eax+point2d.y]
		call points_update_prop
		jmp .end1
	.end0:
	mov eax,[nav_y]
	add eax,[nav_sy]
	cmp eax,[nav_y_max]
	jle @f
		mov eax,[nav_y_max]
	@@:
	mov [nav_y],eax
	.end1:
	mov byte[calc],1
	.end2:
	ret
endp
 
align 4
proc but_img_move_left uses eax
	cmp dword[sel_act],-1
	je .end0
		mov eax,[sel_act]
		imul eax,sizeof.point2d
		add eax,sel_pt
		cmp dword[eax+point2d.x],0
		je .end2
		dec dword[eax+point2d.x]
		call points_update_prop
		jmp .end1
	.end0:
	mov eax,[nav_x]
	sub eax,[nav_sx]
	cmp eax,[nav_x_min]
	jge @f
		mov eax,[nav_x_min]
	@@:
	mov [nav_x],eax
	.end1:
	mov byte[calc],1
	.end2:
	ret
endp
 
align 4
proc but_img_move_right uses eax edi
	cmp dword[sel_act],-1
	je .end0
		mov eax,[sel_act]
		imul eax,sizeof.point2d
		add eax,sel_pt
		mov edi,buf_ogl
		mov edi,buf2d_w
		cmp dword[eax+point2d.x],edi
		jge .end2
		inc dword[eax+point2d.x]
		call points_update_prop
		jmp .end1
	.end0:
	mov eax,[nav_x]
	add eax,[nav_sx]
	cmp eax,[nav_x_max]
	jle @f
		mov eax,[nav_x_max]
	@@:
	mov [nav_x],eax
	.end1:
	mov byte[calc],1
	.end2:
	ret
endp
 
;input:
; eax - ç¨á«®
; edi - ¡ãä¥à ¤«ï áâà®ª¨
; len - ¤«¨­­  ¡ãä¥à 
;output:
align 4
proc convert_int_to_str, len:dword
pushad
	mov esi,[len]
	add esi,edi
	dec esi
	bt eax,31
	jae @f
		;¥á«¨ ç¨á«® ®âà¨æ â¥«ì­®¥
		neg eax
		mov byte[edi],'-'
		inc edi
	@@:
	call .str
popad
	ret
endp
 
align 4
.str:
	mov ecx,10
	cmp eax,ecx
	jb @f
		xor edx,edx
		div ecx
		push edx
		;dec edi  ;á¬¥é¥­¨¥ ­¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®­æ  áâà®ª¨
		call .str
		pop eax
	@@:
	cmp edi,esi
	jge @f
		or al,0x30
		stosb
		mov byte[edi],0 ;¢ ª®­¥æ áâà®ª¨ áâ ¢¨¬ 0, çâ®-¡ë ­¥ ¢ë« §¨« ¬ãá®à
	@@:
	ret
 
;¤ ­­ë¥ ¤«ï ¤¨ «®£  ®âªàëâ¨ï ä ©«®¢
align 4
OpenDialog_data:
.type			dd 0 ;0 - ®âªàëâì, 1 - á®åà ­¨âì, 2 - ¢ë¡à âì ¤âà¥ªâ®à¨î
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_path		dd plugin_path	;+16
.dir_default_path	dd default_dir ;+20
.start_path		dd file_name ;+24 ¯ãâì ª ¤¨ «®£ã ®âªàëâ¨ï ä ©«®¢
.draw_window		dd draw_window	;+28
.status 		dd 0	;+32
.openfile_path		dd openfile_path	;+36 ¯ãâì ª ®âªàë¢ ¥¬®¬ã ä ©«ã
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size 		dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size 		dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
default_dir db '/rd/1',0
 
communication_area_name:
	db 'FFFFFFFF_open_dialog',0
open_dialog_name:
	db 'opendial',0
communication_area_default_path:
	db '/rd/1/File managers/',0
 
Filter:
dd Filter.end - Filter ;.1
.1:
db 'PNG',0
db 'JPG',0
db 'JPEG',0
db 'BMP',0
db 'GIF',0
.end:
db 0
 
txt_space db ' ',0
 
if lang eq ru
	txt_err_save_img_file db '¥ ¬®£ã á®åà ­¨âì *.png ä ©«.',0
	txt_about db '" ¯à®£à ¬¬¥',13,10,\
	' ­­ ï ¯à®£à ¬¬  á¤¥« ­  ¤«ï ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨©.',13,10,\
	'®á«¥ ®âªàëâ¨ï ä ©«  ¨§®¡à ¦¥­¨ï ­ã¦­® ãª § âì 4 â®çª¨,',13,10,\
	'ª®â®àë¥ áâ ­ãâ ã£« ¬¨ ¯à¥®¡à §®¢ ­®£® ¨§®¡à ¦¥­¨ï." -tI',0
	txt_pref db ' ¡ ',0,' ¡',0,' ¡',0,' ¡',0 ;¯à¨áâ ¢ª¨: ª¨«®, ¬¥£ , £¨£ 
	txt_f_size db ' §¬¥à: '
.size: rb 16
	txt_img_w db '¨à¨­ : '
.size: rb 16
	txt_img_h db 'ëá®â : '
else
	txt_err_save_img_file db 'Can',39,'t save *.png file.',0
	txt_about db '"About',13,10,\
	'This program is designed to convert images.',13,10,\
	'After opening the image file, you need to specify 4 points',13,10,\
	'that will become the corners of the converted image." -tI',0
	txt_pref db ' b ',0,' Kb',0,' Mb',0,' Gb',0 ;¯à¨áâ ¢ª¨: ª¨«®, ¬¥£ , £¨£ 
	txt_f_size db 'Size: '
.size: rb 16
	txt_img_w db 'Width: '
.size: rb 16
	txt_img_h db 'Height: '
end if
.size: rb 16
 
 
system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0
system_dir_1 db '/sys/lib/'
lib_name_1 db 'libimg.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'buf2d.obj',0
system_dir_3 db '/sys/lib/'
lib_name_3 db 'tinygl.obj',0
 
align 4
head_f_i:
if lang eq ru
head_f_l db '"¨áâ¥¬­ ï ®è¨¡ª ',0
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'tinygl',39,'" -tE',0
else
head_f_l db '"System error',0
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_3 db 'Error on load import library ',39,'tinygl',39,'" -tE',0
end if
 
align 4
l_libs_start:
	lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
		err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i
	lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
		err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i
	lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\
		err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i
	lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\
		err_msg_found_lib_3,head_f_l,import_lib_tinygl,err_msg_import_3,head_f_i
l_libs_end:
 
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
 
	dd 0,0
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ­­ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ­¨å ¨§®¡à ¦¥­¨¥
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¢ ¤ ­­ë¥ RGB
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ­­ëå
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
 
align 4
proclib_import: ;®¯¨á ­¨¥ íªá¯®àâ¨àã¥¬ëå äã­ªæ¨©
	OpenDialog_Init dd aOpenDialog_Init
	OpenDialog_Start dd aOpenDialog_Start
	OpenDialog_Set_file_name dd aOpenDialog_Set_file_name
	OpenDialog_Set_file_ext dd aOpenDialog_Set_file_ext
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',0
	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
 
align 4
import_buf2d:
	init dd sz_init
	buf2d_create dd sz_buf2d_create
	buf2d_create_f_img dd sz_buf2d_create_f_img
	buf2d_clear dd sz_buf2d_clear
	buf2d_draw dd sz_buf2d_draw
	buf2d_delete dd sz_buf2d_delete
	buf2d_resize dd sz_buf2d_resize
	buf2d_line dd sz_buf2d_line
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
	buf2d_circle dd sz_buf2d_circle
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
	buf2d_bit_blt dd sz_buf2d_bit_blt
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
	buf2d_curve_bezier dd sz_buf2d_curve_bezier
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
	buf2d_draw_text dd sz_buf2d_draw_text
	buf2d_crop_color dd sz_buf2d_crop_color
	buf2d_offset_h dd sz_buf2d_offset_h
	buf2d_flood_fill dd sz_buf2d_flood_fill
	buf2d_set_pixel dd sz_buf2d_set_pixel
	buf2d_get_pixel dd sz_buf2d_get_pixel
	dd 0,0
	sz_init db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_resize db 'buf2d_resize',0
	sz_buf2d_line db 'buf2d_line',0
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
	sz_buf2d_circle db 'buf2d_circle',0
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
	sz_buf2d_get_pixel db 'buf2d_get_pixel',0
 
align 4
import_lib_tinygl:
 
macro E_LIB n
{
	n dd sz_#n
}
include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc'
	dd 0,0
macro E_LIB n
{
	sz_#n db `n,0
}
include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc'
 
align 4
buf_0: dd 0
.l: dw 5 ;+4 left
.t: dw 35 ;+6 top
.w: dd 6*64 ;+8 w
.h: dd 7*64 ;+12 h
.color: dd 0x808080 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_font:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dd 0 ;+4 left,top
.w: dd 0
.h: dd 0,0,24
 
align 4
buf_cop: ;¡ãä¥à ¤«ï ª®¯¨à®¢ ­¨ï â¥ªáâãàë
	dd 0
.l: dw 0 ;+4 left
.t: dw 0 ;+6 top
.w: dd 0
.h: dd 0,0,24
 
;¨áå®¤­®¥ ¨§®¡à ¦¥­¨¥
align 4
buf_i0: dd 0,0
.w: dd 0
.h: dd 0
.color: dd 0,24
 
;¯à¥®¡à §®¢ ­®¥ ¨§®¡à ¦¥­¨¥
align 4
buf_ogl: dd 0,0
.w: dd 0
.h: dd 0
.color: dd 0,24
 
align 16
i_end:
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
TexObj dd 0 ;¬ áá¨¢ ãª § â¥«¥© ­  â¥ªáâãàë (¢ ¤ ­­®¬ á«ãç ¥ 1 èâ.)
nav_x_min dd 0 ;¬¨­. ª®®à¤. x ¤«ï ­ ¢¨£ æ¨¨
nav_y_min dd 0 ;¬¨­. ª®®à¤. y ¤«ï ­ ¢¨£ æ¨¨
nav_x_max dd 0 ;¬ ªá. ª®®à¤. x
nav_y_max dd 0 ;¬ ªá. ª®®à¤. y
nav_x dd 0 ;â¥ªãé. ª®®à¤. x ¤«ï ­ ¢¨£ æ¨¨
nav_y dd 0 ;â¥ªãé. ª®®à¤. y ¤«ï ­ ¢¨£ æ¨¨
nav_sx dd 0 ;áªà®« ¯® x
nav_sy dd 0 ;áªà®« ¯® y
nav_wnd_w dd 0 ;è¨à¨­  ®ª­  ­ ¢¨£ æ¨¨
nav_wnd_h dd 0 ;¢ëá® â  ®ª­  ­ ¢¨£ æ¨¨
nav_wnd_zoom dd 0
mouse_down_x dd ?
mouse_down_y dd ?
sel_act dd ? ;â®çª  ¢ë¡à ­­ ï ¤«ï à¥¤ ªâ¨à®¢ ­¨ï á ª« ¢¨ âãàë
sel_pt rb 8*sizeof.point2d ;â®çª¨ ¤«ï ¢ë¡®à  4-å ã£«®¢
last_time dd 0
txt_buf rb 8
procinfo process_information 
sc system_colors 
run_file_70 FileInfoBlock
		rb 4096
align 16
stacktop:
	sys_path rb 1024
	file_name:
		rb 1024 ;4096
	library_path rb 1024
	plugin_path rb 4096
	openfile_path rb 4096
	filename_area rb 256
mem:

Rev 7986	Rev 8036
1	use32	1	use32
2	org 0	2	org 0
3	db 'MENUET01'	3	db 'MENUET01'
4	dd 1,start,i_end,mem,stacktop,openfile_path,sys_path	4	dd 1,start,i_end,mem,stacktop,openfile_path,sys_path
5		5
6	include 'lang.inc'	6	include 'lang.inc'
7	include '../../../programs/macros.inc'	7	include '../../../programs/macros.inc'
8	include '../../../programs/proc32.inc'	8	include '../../../programs/proc32.inc'
9	include '../../../programs/KOSfuncs.inc'	9	include '../../../programs/KOSfuncs.inc'
10	include '../../../programs/load_img.inc'	10	include '../../../programs/load_img.inc'
11	include '../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'	11	include '../../../programs/develop/libraries/TinyGL/asm_fork/opengl_const.inc'
12	include '../../../programs/develop/libraries/libs-dev/libimg/libimg.inc'	12	include '../../../programs/develop/libraries/libs-dev/libimg/libimg.inc'
13	include '../../../programs/develop/info3ds/info_fun_float.inc'	13	include '../../../programs/develop/info3ds/info_fun_float.inc'
14		14
15	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	15	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
16	caption db 'Image transform 26.05.20',0 ;¯®¤¯¨áì ®ª	16	caption db 'Image transform 10.06.20',0 ;¯®¤¯¨áì ®ª
17		17
18	offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'	18	offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
19		19
20	BUF_STRUCT_SIZE equ 21	20	BUF_STRUCT_SIZE equ 21
21	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï	21	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï
22	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à	22	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à
23	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à	23	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à
24	buf2d_l equ word[edi+4]	24	buf2d_l equ word[edi+4]
25	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã	25	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
26	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à	26	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à
27	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à	27	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à
28	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï	28	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï
-		29
-		30	NAV_WND_L equ 145
-		31	NAV_WND_T equ 1
29		32
30	include 'select_points.inc'	33	include 'select_points.inc'
31		34
32	IMAGE_TOOLBAR_ICON_SIZE equ 16163	35	IMAGE_TOOLBAR_ICON_SIZE equ 16163
33	image_data_toolbar dd 0	36	image_data_toolbar dd 0
34		37
35	align 4	38	align 4
36	start:	39	start:
37	load_libraries l_libs_start,l_libs_end	40	load_libraries l_libs_start,l_libs_end
38	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì ¡¨¡«¨®â¥ª	41	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì ¡¨¡«¨®â¥ª
39	mov ebp,lib_0	42	mov ebp,lib_0
40	cmp dword [ebp+ll_struc_size-4],0	43	cmp dword [ebp+ll_struc_size-4],0
41	jz @f	44	jz @f
42	mcall SF_TERMINATE_PROCESS	45	mcall SF_TERMINATE_PROCESS
43	@@:	46	@@:
44	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors	47	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
45	mcall SF_SET_EVENTS_MASK,0xC0000027	48	mcall SF_SET_EVENTS_MASK,0xC0000027
46	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£	49	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£
47		50
48	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à	51	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à
49		52
50	include_image_file '../../../programs/fs/kfar/trunk/font6x9.bmp', image_data_toolbar, buf_font.w,buf_font.h	53	include_image_file '../../../programs/fs/kfar/trunk/font6x9.bmp', image_data_toolbar, buf_font.w,buf_font.h
51	stdcall [buf2d_create_f_img], buf_font,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à	54	stdcall [buf2d_create_f_img], buf_font,[image_data_toolbar] ;á®§¤ ¥¬ ¡ãä¥à
52	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	55	stdcall mem.Free,[image_data_toolbar] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
53	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â	56	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
54	stdcall [buf2d_convert_text_matrix], buf_font	57	stdcall [buf2d_convert_text_matrix], buf_font
55		58
56	include_image_file 'toolbar.png', image_data_toolbar	59	include_image_file 'toolbar.png', image_data_toolbar
57		60
58	mcall SF_SYSTEM_GET,SSF_TIME_COUNT	61	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
59	mov [last_time],eax	62	mov [last_time],eax
60		63
61	; áâà®©ª â®ç¥ª	64	; áâà®©ª â®ç¥ª
62	call points_init	65	call points_init
63		66
64	;open file from cmd line	67	;open file from cmd line
65	cmp dword[openfile_path],0	68	cmp dword[openfile_path],0
66	je @f	69	je @f
67	call but_open_file.no_dlg	70	call but_open_file.no_dlg
68	@@:	71	@@:
69		72
70	align 4	73	align 4
71	red_win:	74	red_win:
72	call draw_window	75	call draw_window
73		76
74	align 16	77	align 16
75	still:	78	still:
76	mcall SF_SYSTEM_GET,SSF_TIME_COUNT	79	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
77	mov ebx,[last_time]	80	mov ebx,[last_time]
78	add ebx,10 ;§ ¤¥à¦ª	81	add ebx,10 ;§ ¤¥à¦ª
79	cmp ebx,eax	82	cmp ebx,eax
80	jge @f	83	jge @f
81	mov ebx,eax	84	mov ebx,eax
82	@@:	85	@@:
83	sub ebx,eax	86	sub ebx,eax
84	mcall SF_WAIT_EVENT_TIMEOUT	87	mcall SF_WAIT_EVENT_TIMEOUT
85	cmp eax,0	88	cmp eax,0
86	je timer_funct	89	je timer_funct
87		90
88	cmp al,1	91	cmp al,1
89	jz red_win	92	jz red_win
90	cmp al,2	93	cmp al,2
91	jz key	94	jz key
92	cmp al,3	95	cmp al,3
93	jz button	96	jz button
94	cmp al,6	97	cmp al,6
95	jne @f	98	jne @f
96	mcall SF_THREAD_INFO,procinfo,-1	99	mcall SF_THREAD_INFO,procinfo,-1
97	cmp ax,word[procinfo.window_stack_position]	100	cmp ax,word[procinfo.window_stack_position]
98	jne @f ;®ª® ¥ ªâ¨¢®	101	jne @f ;®ª® ¥ ªâ¨¢®
99	call mouse	102	call mouse
100	@@:	103	@@:
101	jmp still	104	jmp still
102		105
103	align 4	106	align 4
104	timer_funct:	107	timer_funct:
105	push eax ebx	108	push eax ebx
106	mcall SF_SYSTEM_GET,SSF_TIME_COUNT	109	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
107	mov [last_time],eax	110	mov [last_time],eax
108	pop ebx eax	111	pop ebx eax
109	cmp byte[calc],0	112	cmp byte[calc],0
110	je still	113	je still
-		114	call draw_nav_wnd
111	call draw_buffers	115	call draw_buffers
112	jmp still	116	jmp still
113		117
114	align 16	118	align 16
115	draw_window:	119	draw_window:
116	pushad	120	pushad
117	mcall SF_REDRAW,SSF_BEGIN_DRAW	121	mcall SF_REDRAW,SSF_BEGIN_DRAW
118		122
119	; * à¨á®¢ ¨¥ £« ¢®£® ®ª (¢ë¯®«ï¥âáï 1 à § ¯à¨ § ¯ãáª¥) *	123	; * à¨á®¢ ¨¥ £« ¢®£® ®ª (¢ë¯®«ï¥âáï 1 à § ¯à¨ § ¯ãáª¥) *
120	mov edx,[sc.work]	124	mov edx,[sc.work]
121	or edx,(3 shl 24)+0x30000000	125	or edx,(3 shl 24)+0x30000000
122	mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption	126	mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption
123		127
124	mcall SF_THREAD_INFO,procinfo,-1	128	mcall SF_THREAD_INFO,procinfo,-1
125	mov eax,dword[procinfo.box.height]	129	mov eax,dword[procinfo.box.height]
126	cmp eax,120	130	cmp eax,120
127	jge @f	131	jge @f
128	mov eax,120 ;min size	132	mov eax,120 ;min size
129	@@:	133	@@:
130	sub eax,65	134	sub eax,65
131	mov ebx,dword[procinfo.box.width]	135	mov ebx,dword[procinfo.box.width]
132	cmp ebx,270	136	cmp ebx,270
133	jge @f	137	jge @f
134	mov ebx,270	138	mov ebx,270
135	@@:	139	@@:
136	sub ebx,19	140	sub ebx,19
137	cmp eax,dword[buf_0.h] ;á¬®âà¨¬ à §¬¥à ¡ãä¥à	141	cmp eax,dword[buf_0.h] ;á¬®âà¨¬ à §¬¥à ¡ãä¥à
138	jne @f	142	jne @f
139	cmp ebx,dword[buf_0.w]	143	cmp ebx,dword[buf_0.w]
140	jne @f	144	jne @f
141	jmp .end0	145	jmp .end0
142	@@:	146	@@:
143	stdcall [buf2d_resize],buf_0,ebx,eax,1	147	stdcall [buf2d_resize],buf_0,ebx,eax,1
144	call calc_nav_params	148	call calc_nav_params
-		149	mov eax,[nav_x]
-		150	call nav_x_corect
-		151	mov [nav_x],eax
-		152	mov eax,[nav_y]
-		153	call nav_y_corect
-		154	mov [nav_y],eax
145	mov byte[calc],1	155	mov byte[calc],1
146	.end0:	156	.end0:
147		157
148	; * á®§¤ ¨¥ ª®¯®ª ¯ ¥«ì *	158	; * á®§¤ ¨¥ ª®¯®ª ¯ ¥«ì *
149	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button]	159	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button]
150		160
151	add ebx,25 shl 16	161	add ebx,25 shl 16
152	mcall ,,,4	162	mcall ,,,4
153	add ebx,30 shl 16	163	add ebx,30 shl 16
154	mcall ,,,5	164	mcall ,,,5
155	add ebx,25 shl 16	165	add ebx,25 shl 16
156	mcall ,,,6	166	mcall ,,,6
157	add ebx,25 shl 16	167	add ebx,25 shl 16
158	mcall ,,,7	168	mcall ,,,7
159		169
160	; * à¨á®¢ ¨¥ ¨ª®®ª ª®¯ª å *	170	; * à¨á®¢ ¨¥ ¨ª®®ª ª®¯ª å *
161	mov edx,(7 shl 16)+7 ;icon open	171	mov edx,(7 shl 16)+7 ;icon open
162	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16	172	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
163		173
164	add ebx,IMAGE_TOOLBAR_ICON_SIZE	174	add ebx,IMAGE_TOOLBAR_ICON_SIZE
165	add edx,(25 shl 16) ;icon save	175	add edx,(25 shl 16) ;icon save
166	int 0x40	176	int 0x40
167	add ebx,IMAGE_TOOLBAR_ICON_SIZE	177	add ebx,IMAGE_TOOLBAR_ICON_SIZE
168	add edx,(30 shl 16) ;icon view	178	add edx,(30 shl 16) ;icon view
169	int 0x40	179	int 0x40
170	add ebx,IMAGE_TOOLBAR_ICON_SIZE	180	add ebx,IMAGE_TOOLBAR_ICON_SIZE
171	add edx,(25 shl 16) ;icon mode	181	add edx,(25 shl 16) ;icon mode
172	int 0x40	182	int 0x40
173	add ebx,IMAGE_TOOLBAR_ICON_SIZE	183	add ebx,IMAGE_TOOLBAR_ICON_SIZE
174	add edx,(25 shl 16) ;	184	add edx,(25 shl 16) ;
175	int 0x40	185	int 0x40
-		186
176		187	call draw_nav_wnd
177	call draw_buffers	188	call draw_buffers
178		189
179	mcall SF_REDRAW,SSF_END_DRAW	190	mcall SF_REDRAW,SSF_END_DRAW
180	popad	191	popad
181	ret	192	ret
-		193
-		194	;à¨á®¢ ¨¥ ¢¨£ æ¨®®£® ®ª
-		195	align 4
-		196	proc draw_nav_wnd
-		197	cmp dword[buf_i0],0
-		198	je .end0
-		199	bt dword[nav_x_min],31
-		200	jnc .end0
-		201	bt dword[nav_y_min],31
-		202	jnc .end0
-		203	pushad
-		204	mov ebx,(NAV_WND_L shl 16)
-		205	add ebx,[nav_wnd_w]
-		206	mov ecx,(NAV_WND_T shl 16)
-		207	add ecx,[nav_wnd_h]
-		208	mcall SF_DRAW_RECT,,,0 ;¨§®¡à ¦¥¨¥
-		209	mov ecx,[nav_wnd_zoom]
-		210	mov ebx,[nav_x]
-		211	neg ebx
-		212	sar ebx,cl
-		213	add ebx,NAV_WND_L
-		214	shl ebx,16
-		215	add ebx,[buf_0.w]
-		216	shr bx,cl
-		217	mov edx,[nav_y]
-		218	neg edx
-		219	sar edx,cl
-		220	add edx,NAV_WND_T
-		221	shl edx,16
-		222	add edx,[buf_0.h]
-		223	shr dx,cl
-		224	mov ecx,edx
-		225	mcall ,,,0x404080 ;ç áâì ¨§®¡à ¦¥¨ï ¯®¯ ¤ îé ï ¢ ®ª®
-		226
-		227	mov edi,sel_pt
-		228	@@:
-		229	mov ecx,[nav_wnd_zoom]
-		230	mov ebx,[edi+point2d.x]
-		231	shr ebx,cl
-		232	add ebx,NAV_WND_L
-		233	mov edx,[edi+point2d.y]
-		234	shr edx,cl
-		235	add edx,NAV_WND_T
-		236	mov ecx,edx
-		237	mcall SF_PUT_PIXEL,,,0xffff00
-		238	add edi,sizeof.point2d
-		239	cmp edi,sel_pt+4*sizeof.point2d
-		240	jl @b
-		241	popad
-		242	.end0:
-		243	ret
-		244	endp
182		245
183	align 4	246	align 4
184	proc draw_buffers	247	proc draw_buffers
185	pushad	248	pushad
186	cmp byte[calc],0	249	cmp byte[calc],0
187	je .end0	250	je .end0
188	; * ®¡®¢«¥¨¥ ¡ãä¥à *	251	; * ®¡®¢«¥¨¥ ¡ãä¥à *
189	bt dword[nav_x_min],31	252	bt dword[nav_x_min],31
190	jnc .beg0	253	jnc .beg0
191	bt dword[nav_y_min],31	254	bt dword[nav_y_min],31
192	jc @f	255	jc @f
193	.beg0:	256	.beg0:
194	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à	257	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
195	@@:	258	@@:
196	cmp byte[view_b],1	259	cmp byte[view_b],1
197	je .end1	260	je .end1
198	push buf_i0	261	push buf_i0
199	jmp .end2	262	jmp .end2
200	.end1:	263	.end1:
201	push buf_ogl	264	push buf_ogl
202	.end2:	265	.end2:
203	stdcall [buf2d_bit_blt], buf_0, [nav_x],[nav_y] ;,...	266	stdcall [buf2d_bit_blt], buf_0, [nav_x],[nav_y] ;,...
204		267
205	call points_draw	268	call points_draw
206		269
207	; * ®¡®¢«¥¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©« *	270	; * ®¡®¢«¥¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©« *
208	mov edi,txt_f_size.size	271	mov edi,txt_f_size.size
209	mov eax,[open_file_size]	272	mov eax,[open_file_size]
210	mov ebx,txt_pref	273	mov ebx,txt_pref
211	.cycle:	274	.cycle:
212	cmp eax,1024	275	cmp eax,1024
213	jl @f	276	jl @f
214	shr eax,10	277	shr eax,10
215	add ebx,4	278	add ebx,4
216	jmp .cycle	279	jmp .cycle
217	@@:	280	@@:
218	stdcall convert_int_to_str, 16	281	stdcall convert_int_to_str, 16
219	stdcall str_cat, edi,ebx	282	stdcall str_cat, edi,ebx
220	stdcall str_cat, edi,txt_space ;§ ¢¥àè îé¨© ¯à®¡¥«	283	stdcall str_cat, edi,txt_space ;§ ¢¥àè îé¨© ¯à®¡¥«
221	;è¨à¨ ¨ ¢ëá®â ¨§®¡à ¦¥¨ï	284	;è¨à¨ ¨ ¢ëá®â ¨§®¡à ¦¥¨ï
222	mov eax,[buf_i0.w]	285	mov eax,[buf_i0.w]
223	mov edi,txt_img_w.size	286	mov edi,txt_img_w.size
224	stdcall convert_int_to_str, 16	287	stdcall convert_int_to_str, 16
225	mov eax,[buf_i0.h]	288	mov eax,[buf_i0.h]
226	mov edi,txt_img_h.size	289	mov edi,txt_img_h.size
227	stdcall convert_int_to_str, 16	290	stdcall convert_int_to_str, 16
228	mov byte[calc],0	291	mov byte[calc],0
229	.end0:	292	.end0:
230	; * à¨á®¢ ¨¥ ¡ãä¥à *	293	; * à¨á®¢ ¨¥ ¡ãä¥à *
231	stdcall [buf2d_draw], buf_0	294	stdcall [buf2d_draw], buf_0
232	; * à¨á®¢ ¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©« *	295	; * à¨á®¢ ¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©« *
233	mov ecx,[sc.work_text]	296	mov ecx,[sc.work_text]
234	or ecx,0x80000000 or (1 shl 30)	297	or ecx,0x80000000 or (1 shl 30)
235	mov edi,[sc.work] ;æ¢¥â ä® ®ª	298	mov edi,[sc.work] ;æ¢¥â ä® ®ª
236	mcall SF_DRAW_TEXT,(275 shl 16)+4,,txt_f_size	299	mcall SF_DRAW_TEXT,(275 shl 16)+4,,txt_f_size
237	add ebx,9	300	add ebx,9
238	mcall ,,,txt_img_w	301	mcall ,,,txt_img_w
239	add ebx,9	302	add ebx,9
240	mcall ,,,txt_img_h	303	mcall ,,,txt_img_h
241	popad	304	popad
242	ret	305	ret
243	endp	306	endp
244		307
245	align 16	308	align 16
246	key:	309	key:
247	push eax ebx ecx	310	push eax ebx ecx
248	mcall SF_GET_KEY	311	mcall SF_GET_KEY
249	cmp byte[view_b],1	312	cmp byte[view_b],1
250	je .end1	313	je .end1
251	cmp ah,49 ;1	314	cmp ah,49 ;1
252	jne @f	315	jne @f
253	mov edi,sel_pt	316	mov edi,sel_pt
254	call set_point_coords	317	call set_point_coords
255	jmp .end0	318	jmp .end0
256	@@:	319	@@:
257	cmp ah,50 ;2	320	cmp ah,50 ;2
258	jne @f	321	jne @f
259	mov edi,sel_pt+sizeof.point2d	322	mov edi,sel_pt+sizeof.point2d
260	call set_point_coords	323	call set_point_coords
261	jmp .end0	324	jmp .end0
262	@@:	325	@@:
263	cmp ah,51 ;3	326	cmp ah,51 ;3
264	jne @f	327	jne @f
265	mov edi,sel_pt+sizeof.point2d*2	328	mov edi,sel_pt+sizeof.point2d*2
266	call set_point_coords	329	call set_point_coords
267	jmp .end0	330	jmp .end0
268	@@:	331	@@:
269	cmp ah,52 ;4	332	cmp ah,52 ;4
270	jne @f	333	jne @f
271	mov edi,sel_pt+sizeof.point2d*3	334	mov edi,sel_pt+sizeof.point2d*3
272	call set_point_coords	335	call set_point_coords
273	jmp .end0	336	jmp .end0
274	@@:	337	@@:
275	.end1:	338	.end1:
276		339
277	cmp ah,178 ;Up	340	cmp ah,178 ;Up
278	jne @f	341	jne @f
279	call but_img_move_up	342	call but_img_move_up
280	jmp .end0	343	jmp .end0
281	@@:	344	@@:
282	cmp ah,177 ;Down	345	cmp ah,177 ;Down
283	jne @f	346	jne @f
284	call but_img_move_down	347	call but_img_move_down
285	jmp .end0	348	jmp .end0
286	@@:	349	@@:
287	cmp ah,176 ;Left	350	cmp ah,176 ;Left
288	jne @f	351	jne @f
289	call but_img_move_left	352	call but_img_move_left
290	jmp .end0	353	jmp .end0
291	@@:	354	@@:
292	cmp ah,179 ;Right	355	cmp ah,179 ;Right
293	jne @f	356	jne @f
294	call but_img_move_right	357	call but_img_move_right
295	jmp .end0	358	jmp .end0
296	@@:	359	@@:
297		360
298	mov ecx,eax	361	mov ecx,eax
299	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS	362	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS
300	bt eax,2 ;left Ctrl	363	bt eax,2 ;left Ctrl
301	jc .key_Ctrl	364	jc .key_Ctrl
302	bt eax,3 ;right Ctrl	365	bt eax,3 ;right Ctrl
303	jc .key_Ctrl	366	jc .key_Ctrl
304	jmp .end0	367	jmp .end0
305	.key_Ctrl:	368	.key_Ctrl:
306	cmp ch,15 ;Ctrl+O	369	cmp ch,15 ;Ctrl+O
307	jne @f	370	jne @f
308	call but_open_file	371	call but_open_file
309	@@:	372	@@:
310	cmp ch,19 ;Ctrl+S	373	cmp ch,19 ;Ctrl+S
311	jne @f	374	jne @f
312	call but_save_file	375	call but_save_file
313	@@:	376	@@:
314		377
315	.end0:	378	.end0:
316	pop ecx ebx eax	379	pop ecx ebx eax
317	jmp still	380	jmp still
318		381
319	;input:	382	;input:
320	; edi - ãª § â¥«ì áâàãªâãàã point2d	383	; edi - ãª § â¥«ì áâàãªâãàã point2d
321	align 4	384	align 4
322	set_point_coords:	385	set_point_coords:
323	call buf_get_mouse_coord	386	call buf_get_mouse_coord
324	cmp eax,-1	387	cmp eax,-1
325	je .end0	388	je .end0
326	sub eax,[nav_x]	389	sub eax,[nav_x]
327	cmp eax,0	390	cmp eax,0
328	jge @f	391	jge @f
329	xor eax,eax	392	xor eax,eax
330	@@:	393	@@:
331	cmp eax,[buf_i0.w]	394	cmp eax,[buf_i0.w]
332	jle @f	395	jle @f
333	mov eax,[buf_i0.w]	396	mov eax,[buf_i0.w]
334	@@:	397	@@:
335	mov [edi+point2d.x],eax	398	mov [edi+point2d.x],eax
336	sub ebx,[nav_y]	399	sub ebx,[nav_y]
337	cmp ebx,0	400	cmp ebx,0
338	jge @f	401	jge @f
339	xor ebx,ebx	402	xor ebx,ebx
340	@@:	403	@@:
341	cmp ebx,[buf_i0.h]	404	cmp ebx,[buf_i0.h]
342	jle @f	405	jle @f
343	mov ebx,[buf_i0.h]	406	mov ebx,[buf_i0.h]
344	@@:	407	@@:
345	mov [edi+point2d.y],ebx	408	mov [edi+point2d.y],ebx
346	call points_update_prop	409	call points_update_prop
347	mov byte[calc],1	410	mov byte[calc],1
348	.end0:	411	.end0:
349	ret	412	ret
350		413
351	align 16	414	align 16
352	button:	415	button:
353	mcall SF_GET_BUTTON	416	mcall SF_GET_BUTTON
354	cmp ah,3	417	cmp ah,3
355	jne @f	418	jne @f
356	call but_open_file	419	call but_open_file
357	jmp still	420	jmp still
358	@@:	421	@@:
359	cmp ah,4	422	cmp ah,4
360	jne @f	423	jne @f
361	call but_save_file	424	call but_save_file
362	jmp still	425	jmp still
363	@@:	426	@@:
364	cmp ah,5	427	cmp ah,5
365	jne @f	428	jne @f
366	call but_2	429	call but_2
367	jmp still	430	jmp still
368	@@:	431	@@:
369	cmp ah,6	432	cmp ah,6
370	jne @f	433	jne @f
371	call but_3	434	call but_3
372	jmp still	435	jmp still
373	@@:	436	@@:
374	cmp ah,7	437	cmp ah,7
375	jne @f	438	jne @f
376	call but_about	439	call but_about
377	jmp still	440	jmp still
378	@@:	441	@@:
379	cmp ah,1	442	cmp ah,1
380	jne still	443	jne still
381	.exit:	444	.exit:
382	stdcall [buf2d_delete],buf_0	445	stdcall [buf2d_delete],buf_0
383	stdcall [buf2d_delete],buf_i0	446	stdcall [buf2d_delete],buf_i0
384	;stdcall [buf2d_delete],buf_ogl	447	;stdcall [buf2d_delete],buf_ogl
385	stdcall mem.Free,[image_data_toolbar]	448	stdcall mem.Free,[image_data_toolbar]
386	stdcall mem.Free,[open_file_img]	449	stdcall mem.Free,[open_file_img]
387	mcall SF_TERMINATE_PROCESS	450	mcall SF_TERMINATE_PROCESS
388		451
389	align 4	452	align 4
390	mouse:	453	mouse:
391	push eax ebx ecx	454	push eax ebx ecx
392	mcall SF_MOUSE_GET,SSF_BUTTON_EXT	455	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
393	bt eax,8	456	bt eax,8
394	jnc @f	457	jnc @f
395	;mouse l. but. press	458	;mouse l. but. press
396	call mouse_left_d	459	call mouse_left_d
397	jmp .end_l	460	jmp .end_l
398	@@:	461	@@:
399	;bt eax,0	462	;bt eax,0
400	;jnc @f	463	;jnc @f
401	;mouse l. but. move	464	;mouse l. but. move
402	;call mouse_left_m	465	;call mouse_left_m
403	;jmp .end_l	466	;jmp .end_l
404	;@@:	467	;@@:
405	bt eax,16	468	bt eax,16
406	jnc .end_l	469	jnc .end_l
407	;mouse l. but. up	470	;mouse l. but. up
408	call mouse_left_u	471	call mouse_left_u
409	;jmp .end_l	472	;jmp .end_l
410	.end_l:	473	.end_l:
411	;bt eax,9	474	;bt eax,9
412	;jnc @f	475	;jnc @f
413	;mouse r. but. press	476	;mouse r. but. press
414	;call mouse_right_d	477	;call mouse_right_d
415	;jmp .end_r	478	;jmp .end_r
416	;@@:	479	;@@:
417	;bt eax,1	480	;bt eax,1
418	;jnc @f	481	;jnc @f
419	;mouse r. but. move	482	;mouse r. but. move
420	;call mouse_right_m	483	;call mouse_right_m
421	;jmp .end_r	484	;jmp .end_r
422	;@@:	485	;@@:
423	;.end_r:	486	;.end_r:
424		487
425	pop ecx ebx eax	488	pop ecx ebx eax
426	ret	489	ret
427		490
428	;output:	491	;output:
429	; eax - buffer coord X (¥á«¨ ªãàá®à § ¡ãä¥à®¬ -1)	492	; eax - buffer coord X (¥á«¨ ªãàá®à § ¡ãä¥à®¬ -1)
430	; ebx - buffer coord Y (¥á«¨ ªãàá®à § ¡ãä¥à®¬ -1)	493	; ebx - buffer coord Y (¥á«¨ ªãàá®à § ¡ãä¥à®¬ -1)
431	align 4	494	align 4
432	proc buf_get_mouse_coord	495	proc buf_get_mouse_coord
433	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION	496	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
434	cmp ax,word[buf_0.t]	497	cmp ax,word[buf_0.t]
435	jl .no_buf ;¥ ¯®¯ «¨ ¢ ®ª® ¡ãä¥à ¯® ®á¨ y	498	jl .no_buf ;¥ ¯®¯ «¨ ¢ ®ª® ¡ãä¥à ¯® ®á¨ y
436	mov ebx,eax	499	mov ebx,eax
437	shr ebx,16	500	shr ebx,16

Subversion Repositories Kolibri OS

(root)/programs/media/img_transform/img_transform.asm – Rev 7986 → 8036