WebSVN – Kolibri OS – Diff – /programs/media/voxel_editor/utilites/vox_creator.asm


use32
	org 0x0
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
 
 
	dd 1,start,i_end,mem,stacktop,0,sys_path
 
 
 
 
 
include '../../../../programs/macros.inc'
include '../../../../programs/proc32.inc'
include '../../../../programs/KOSfuncs.inc'
include '../../../../programs/develop/libraries/box_lib/load_lib.mac'
include '../../../../programs/dll.inc'
include '../trunk/str.inc'
 
vox_offs_tree_table equ 4
vox_offs_data equ 12
txt_buf rb 8
include '../trunk/vox_rotate.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
caption db 'Voxel creator 08.02.16',0 ;¯®¤¯¨áì ®ª­ 
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
		db ?
	FileName dd ?
ends
 
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-© â®çª¥ ¨§®¡à ¦¥­¨ï
 
vox_offs_tree_table equ 4
vox_offs_data equ 12
 
run_file_70 FileInfoBlock
image_data dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì. ¤«ï ­ã¦¥­ ¯à¥®¡à §®¢ ­¨ï ¨§®¡à ¦¥­¨ï
vox_obj_size dd 0 ;à §¬¥à ¢®ªá¥«ì­®£® ®¡ê¥ªâ  (¤«ï ãáª®à¥­¨ï ¢áâ ¢ª¨)
txt_space db ' ',0
txt_pref db ' ¡ ',0,' ¡',0,' ¡',0,' ¡',0 ;¯à¨áâ ¢ª¨: ª¨«®, ¬¥£ , £¨£ 
txt_f_size: db ' §¬¥à: '
.size: rb 16
 
fn_toolbar db 'toolbar.png',0
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9
image_data_toolbar dd 0
 
max_open_file_size equ 1024*1024 ;1 Mb
 
macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥­­®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ ­ «¨ áâà®ª®© ¯ à ¬¥âà path
		jmp @f
			local .path_str
			.path_str db path ;ä®à¬¨àã¥¬ «®ª «ì­ãî ¯¥à¥¬¥­­ãî
			db 0
		@@:
		;32 - áâ ­¤ àâ­ë©  ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥­ ¡ëâì ¡ãä¥à á á¨áâ¥¬­ë¬ ¯ãâ¥¬
		copy_path .path_str,[32],file_name,0
	else
		copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	end if
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
 
	mov [run_file_70.Function], SSF_READ_FILE
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	mov [run_file_70.Buffer], eax
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], file_name
 
	mcall SF_FILE,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je @f
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[buf],ebx,0
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	@@:
}
 
 
 
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,0x27
	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª  ¤¨ «®£ 
 
	stdcall [buf2d_create], buf_0 ;á®§¤ ­¨¥ ¡ãä¥à 
	stdcall [buf2d_create], buf_0z
	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z
 
	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
 
	stdcall mem.Alloc,max_open_file_size
	mov dword[open_file_vox],eax
	stdcall mem.Alloc,max_open_file_size
	mov dword[open_file_img],eax
 
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
	mov [last_time],eax
 
align 4
red_win:
	call draw_window
 
align 4
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
 
	jmp still
 
align 4
timer_funct:
	cmp byte[calc],0
	je still
 
	pushad
	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
	mov [last_time],eax
 
	; áª¨¤ë¢ ¥¬ ãª § â¥«¨ ¡ãä¥à®¢ buf_npl_p, buf_npl, buf_npl_n
	mov edi,buf_npl_p
	mov eax,buf2d_data
	mov edi,buf_npl
	mov ebx,buf2d_data
	mov edi,buf_npl_n
	mov ecx,buf2d_data
	; change buffer data pointers
	mov buf2d_data,eax
	mov edi,buf_npl_p
	mov buf2d_data,ebx
	mov edi,buf_npl
	mov buf2d_data,ecx
 
	mov eax,[n_plane]
	mov ebx,buf2d_w
	dec ebx
 
	cmp ebx,eax
	jg @f
		stdcall create_obj_from_plane,buf_npl,eax ;á®§¤ ¥¬ § ¢¥àè îé¥¥ á¥ç¥­¨¥
		;¢ë¢®¤ ª®­¥ç­®£® à¥§ã«ìâ â 
		call draw_object
		mov byte[calc],0
		jmp .end_f
	@@:
 
	inc eax
	stdcall create_plane, buf_npl_n,eax
 
	; á®§¤ ­¨¥ ¢®áª¥«ì­®£® á¥ç¥­¨ï ­  ®á­®¢¥ ¡ãä¥à  buf_npl
	mov edi,buf_npl
	mov edx,[bby_min] ;0
	.cycle_0:
	mov ecx,[btx_min] ;0
	.cycle_1:
		stdcall [buf2d_get_pixel], edi,ecx,edx
		cmp eax,buf2d_color
		je @f
			mov esi,eax
			call need_node
			cmp eax,buf2d_color
			jne @f ;®âá¥¨¢ ¥¬ ¢­ãâà¥­­¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨
			mov eax,ebx
			sub eax,edx
			stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\
				eax,[k_scale],esi
		@@:
		inc ecx
		cmp ecx,ebx
		jle .cycle_1
		inc edx
		cmp edx,ebx
		jle .cycle_0
 
	stdcall [buf2d_draw], buf_npl
	inc dword[n_plane] ;¯¥à¥¬¥é ¥¬ ¯«®áª®áâì á¥ç¥­¨ï
	call draw_pok
	.end_f:
	popad
	jmp still
 
align 4
proc create_plane, buf_img:dword, n_plane:dword
	pushad
	; ª®¯¨àã¥¬ «¨æ¥¢®¥ ¨§®¡à ¦¥­¨¥ ¢ ¡ãä¥à buf_img
	; bby_min - ¨á¯®«ì§ã¥¬ ¤«ï ®¯â¨¬¨§ æ¨¨ (¥á«¨ á¢¥àåã ¨§®¡à ¦¥­¨¥ ¯ãáâ®¥)
	mov eax,[bby_min]
	mov esi,buf_i2
	mov esi,[esi] ;buf2d_data
	mov edi,[buf_img]
	mov ecx,buf2d_w
	imul eax,ecx
	mov ebx,ecx
	imul ecx,ebx
	sub ecx,eax
	lea ecx,[ecx+ecx*2]
	mov edi,buf2d_data
	lea eax,[eax+eax*2]
	add edi,eax
	add esi,eax
	cld
	rep movsb
 
	mov ecx,ebx
	dec ebx
	mov edi,buf_i0
	.cycle_0:
		mov eax,ebx
		sub eax,[n_plane] ;eax - ¯¥à¥¢¥à­ãâ ï ª®®à¤¨­ â  n_plane
		stdcall [buf2d_get_pixel], edi,ecx,eax ;[n_plane]
		cmp eax,buf2d_color
		jne @f
			;¢ëç¥àª¨¢ ­¨¥ ¢¥àâ¨ª «ì­®© «¨­¨¨ ¨§ á¥ç¥­¨ï buf_img
			stdcall [buf2d_line], [buf_img],ecx,[bby_min],ecx,ebx, buf2d_color
			jmp .end_1
		@@:
			mov edx,[bby_min] ;xor edx,edx
			mov esi,eax
			.cycle_1: ;æ¨ª« ¤«ï ­ «®¦¥­¨ï ¢¥àå­¥© â¥ªáâãàë
			stdcall [buf2d_get_pixel], [buf_img],ecx,edx
			cmp eax, buf2d_color
			je .end_0
				stdcall [buf2d_set_pixel], [buf_img],ecx,edx, esi ;­ «®¦¥­¨¥ ¢¥àå­¥© â¥ªáâãàë
				jmp .end_1
			.end_0:
			inc edx
			cmp edx,ebx
			jle .cycle_1
		.end_1:
		loop .cycle_0
 
	;£®à¨§®­â «ì­ë¥ «¨­¨¨ ­  ®á­®¢¥ ¡®ª®¢®© £à ­¨
	mov ecx,[bby_min]
	mov edi,buf_i1
	.cycle_2:
		stdcall [buf2d_get_pixel], edi,[n_plane],ecx
		cmp eax,buf2d_color
		jne @f
			;¢ëç¥àª¨¢ ­¨¥ £®à¨§®­â «ì­®© «¨­¨¨ ¨§ á¥ç¥­¨ï buf_img
			stdcall [buf2d_line], [buf_img],[btx_min],ecx,[btx_max],ecx, buf2d_color
			jmp .end_3
		@@:
			mov edx,[btx_max] ;ebx
			mov esi,eax
			.cycle_3: ;æ¨ª« ¤«ï ­ «®¦¥­¨ï ¡®ª®¢®© â¥ªáâãàë
			stdcall [buf2d_get_pixel], [buf_img],edx,ecx
			cmp eax, buf2d_color
			je .end_2
				stdcall [buf2d_set_pixel], [buf_img],edx,ecx, esi ;­ «®¦¥­¨¥ ¡®ª®¢®© â¥ªáâãàë
				jmp .end_3
			.end_2:
			dec edx
			cmp edx,[btx_min]
			jge .cycle_3
		.end_3:
		inc ecx
		cmp ecx,ebx
		jle .cycle_2
	popad
	ret
endp
 
align 4
proc create_obj_from_plane, buf_img:dword, n_plane:dword
pushad
	; á®§¤ ­¨¥ ¢®áª¥«ì­®£® á¥ç¥­¨ï ­  ®á­®¢¥ ¡ãä¥à  buf_img
	mov edi,[buf_img]
	mov ebx,buf2d_w
	dec ebx
	mov edx,[bby_min] ;0
	.cycle_0:
	mov ecx,[btx_min] ;0
	.cycle_1:
		stdcall [buf2d_get_pixel], edi,ecx,edx
		cmp eax,buf2d_color
		je @f
			mov esi,eax
			;call need_node
			;cmp eax,buf2d_color
			;jne @f ;®âá¥¨¢ ¥¬ ¢­ãâà¥­­¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨
			mov eax,ebx
			sub eax,edx
			stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\
				eax,[k_scale],esi
		@@:
		inc ecx
		cmp ecx,ebx
		jle .cycle_1
		inc edx
		cmp edx,ebx
		jle .cycle_0
	ret
popad
endp
 
;description:
; äã­ªæ¨ï ¯à®¢¥àï¥â ­ã¦­® «¨ ®âá¥¨¢ âì ¢®ªá¥«ì á ª®®à¤¨­ â ¬¨ [n_plane],ecx,edx
;input:
; ebx = max size y - 1
;output:
; eax = buf2d_color if node need
align 4
need_node:
	mov eax,buf2d_color
	cmp ecx,[btx_min] ;0
	jle .end_f
	cmp ecx,[btx_max] ;0
	jge .end_f
	cmp edx,[bby_min] ;0
	jle .end_f
	cmp edx,ebx ;max-1
	jge .end_f
		push ecx edx
		stdcall [buf2d_get_pixel], buf_npl_p,ecx,edx ;¯à®¢¥àª  ¯à¥¤ë¤ãé¥£® á¥ç¥­¨ï
		cmp eax,buf2d_color
		je @f
		stdcall [buf2d_get_pixel], buf_npl_n,ecx,edx ;¯à®¢¥àª  ¯®á«¥¤ãîé¥£® á¥ç¥­¨ï
		cmp eax,buf2d_color
		je @f
		dec ecx
		stdcall [buf2d_get_pixel], edi,ecx,edx
		cmp eax,buf2d_color
		je @f
		add ecx,2
		stdcall [buf2d_get_pixel], edi,ecx,edx
		cmp eax,buf2d_color
		je @f
		dec ecx
		dec edx
		stdcall [buf2d_get_pixel], edi,ecx,edx
		cmp eax,buf2d_color
		je @f
		add edx,2
		stdcall [buf2d_get_pixel], edi,ecx,edx
		;cmp eax,buf2d_color
		;je @f
		@@:
		pop edx ecx
	.end_f:
	ret
 
align 4
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
 
	; *** á®§¤ ­¨¥ ª­®¯®ª ­  ¯ ­¥«ì ***
	mov esi,[sc.work_button]
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3
 
	mov ebx,(30 shl 16)+20
	mov edx,4
	int 0x40
 
	mov ebx,(55 shl 16)+20
	mov edx,5
	int 0x40
 
	mov ebx,(85 shl 16)+20
	mov edx,6
	int 0x40
 
	add ebx,25 shl 16
	mov edx,7
	int 0x40
 
	add ebx,25 shl 16
	mov edx,8
	int 0x40
 
	add ebx,25 shl 16
	mov edx,9
	int 0x40
 
	add ebx,25 shl 16
	mov edx,10
	int 0x40
 
	add ebx,25 shl 16
	mov edx,11
	int 0x40
 
	add ebx,25 shl 16
	mov edx,12
	int 0x40
 
	; *** à¨á®¢ ­¨¥ ¨ª®­®ª ­  ª­®¯ª å ***
	mov edx,(7 shl 16)+7 ;icon new
	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;icon open
	int 0x40
	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) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
	add edx,(25 shl 16) ;
	int 0x40
 
	call draw_buffers
	call draw_pok
 
	mcall SF_REDRAW,SSF_END_DRAW
popad
	ret
 
align 4
draw_buffers:
	; *** à¨á®¢ ­¨¥ ¡ãä¥à  ***
	stdcall [buf2d_draw], buf_0
	stdcall [buf2d_draw], buf_i0
	stdcall [buf2d_draw], buf_i1
	stdcall [buf2d_draw], buf_i2
	ret
 
align 4
draw_pok:
	;®¡­®¢«¥­¨¥ ¯®¤¯¨á¨ à §¬¥à  ä ©« 
	mov edi,txt_f_size.size
	mov eax,dword[vox_obj_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 ecx,[sc.work_text]
	or  ecx,0x80000000 or (1 shl 30)
	mov edi,[sc.work] ;æ¢¥â ä®­  ®ª­ 
	mcall SF_DRAW_TEXT,(275 shl 16)+7,,txt_f_size
 
	ret
 
align 4
key:
	mcall SF_GET_KEY
	jmp still
 
 
align 4
button:
	mcall SF_GET_BUTTON
	cmp ah,3
	jne @f
		call but_new_file
	@@:
	cmp ah,4
	jne @f
		call but_open_file
	@@:
	cmp ah,5
	jne @f
		call but_save_file
	@@:
	cmp ah,6
	jne @f
		call but_1
	@@:
	cmp ah,7
	jne @f
		call but_2
	@@:
	cmp ah,8
	jne @f
		call but_3
	@@:
	cmp ah,9
	jne @f
		stdcall but_run, 0
	@@:
	cmp ah,10
	jne @f
		stdcall but_run, 1
	@@:
	cmp ah,11
	jne @f
		call but_5
	@@:
	cmp ah,12
	jne @f
		call but_rot_z
	@@:
	cmp ah,1
	jne still
.exit:
	stdcall [buf2d_delete],buf_0
	stdcall [buf2d_delete],buf_0z
	stdcall [buf2d_vox_brush_delete],buf_vox
	stdcall [buf2d_delete],buf_i0
	stdcall [buf2d_delete],buf_i1
	stdcall [buf2d_delete],buf_i2
	stdcall [buf2d_delete],buf_npl_p
	stdcall [buf2d_delete],buf_npl
	stdcall [buf2d_delete],buf_npl_n
	stdcall mem.Free,[image_data_toolbar]
	stdcall mem.Free,[open_file_vox]
	stdcall mem.Free,[open_file_img]
	mcall SF_TERMINATE_PROCESS
 
 
align 4
vox_new_data:
	db 2,0,0,0
	db 000b,001b,010b,011b, 100b,101b,110b,111b ;default table
	dd 0 ;null node
 
align 4
proc but_new_file uses ecx edi esi
	mov ecx,vox_offs_data+4
	mov [vox_obj_size],ecx
	mov esi,vox_new_data
	mov edi,[open_file_vox]
	cld
	rep movsb
	ret
endp
 
align 4
open_file_vox dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï ä ©«®¢
open_file_img dd 0 ;ãª § â¥«ì ­  ¯ ¬ïâì ¤«ï ®âªàëâ¨ï â¥ªáâãà
 
align 4
but_open_file:
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],0
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_open_file
	;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword max_open_file_size
	m2m [run_file_70.Buffer],dword[open_file_vox]
	mov byte[run_file_70+20], 0
	mov dword[run_file_70.FileName], openfile_path
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_open_file
		; ¯à®¢¥àª  ­  ¯à ¢¨«ì­®áâì ¢®ªá¥«ì­®£® ä®à¬ â 
		mov edi,[open_file_vox]
		add edi,vox_offs_tree_table
		xor bx,bx
		mov ecx,8
		cld
		@@:
			movzx ax,byte[edi]
			add bx,ax
			inc edi
			loop @b
		cmp bx,28 ;28=0+1+2+...+7
		jne .err_open
 
		mcall SF_SET_CAPTION,1,openfile_path
		stdcall buf2d_vox_obj_get_size,[open_file_vox]
		mov [vox_obj_size],eax
		call draw_object
		
		jmp .end_open_file
	.err_open:
		call but_new_file
		stdcall [mb_create],msgbox_4,thread
	.end_open_file:
	popad
	ret
 
align 4
but_save_file:
	pushad
		copy_path open_dialog_name,communication_area_default_path,file_name,0
		mov [OpenDialog_data.type],1
		stdcall [OpenDialog_Start],OpenDialog_data
		cmp [OpenDialog_data.status],2
		je .end_save_file
		;ª®¤ ¯à¨ ã¤ ç­®¬ ®âªàëâ¨¨ ¤¨ «®£ 
 
		mov eax,6 ;dword[v_zoom] ;§ ¤ ¥¬ ¬ áèâ ¡ ¯® ã¬®«ç ­¨î
		mov ebx,[open_file_vox]
		mov byte[ebx],al
 
		stdcall buf2d_vox_obj_get_size, ebx
		mov dword[run_file_70.Count], eax ;à §¬¥à ä ©« 
		mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
		mov [run_file_70.Function], 2
		mov [run_file_70.Position], 0
		mov [run_file_70.Flags], 0
		mov ebx, dword[open_file_vox]
		mov [run_file_70.Buffer], ebx
		mov byte[run_file_70+20], 0
		mov dword[run_file_70.FileName], openfile_path
		mov ebx,run_file_70
		int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
		cmp ebx,0xffffffff
		je .end_save_file
 
		.end_save_file:
	popad
	ret
 
align 4
but_1:
	stdcall open_image_in_buf, buf_i0
	ret
 
align 4
but_2:
	stdcall open_image_in_buf, buf_i1
	call set_buf_tabs
	ret
 
align 4
but_3:
	stdcall open_image_in_buf, buf_i2
	call set_buf_tabs
	ret
 
;description:
; ¢ § ¢¨á¨¬®áâ¨ ®â è¨à¨­ë 1-£® ¡ãä¥à  ãáâ ­ ¢«¨¢ ¥¬ ®âáâã¯ë ¤«ï 2-£® ¨ 3-£® ¡ãä¥à®¢
align 4
set_buf_tabs:
push eax ebx edi
	mov edi,buf_i0
	cmp buf2d_data,0
	je @f
		movzx eax,buf2d_l
		mov ebx,buf2d_w
		cmp ebx,128
		jle .end_0
			mov ebx,128
		.end_0:
		mov edi,buf_i1
		mov buf2d_l,ax
		add buf2d_l,bx
		add buf2d_l,2
		shl ebx,1
		mov edi,buf_i2
		mov buf2d_l,ax
		add buf2d_l,bx
		add buf2d_l,4
	@@:	
pop edi ebx eax
	ret
 
align 4
get_scale:
push eax edi
	mov edi,buf_i0
	mov eax,buf2d_w
 
	mov dword[k_scale],-1
	.cycle_s:
	cmp eax,0
	je @f
		shr eax,1
		inc dword[k_scale]
		jmp .cycle_s
	@@:
pop edi eax
	ret
 
align 4
proc set_borders uses eax ebx ecx edx edi
	mov ecx,dword[k_scale]
	mov edx,1
	shl edx,cl
 
	;®¯à¥¤¥«ï¥¬ ¬¨­¨¬ «ì­ãî ª®®à¤¨­ âã y ­  «¨æ¥¢®© £à ­¨
	mov edi,buf_i2
	mov dword[bby_min],0
	xor ecx,ecx
	.cycle_0:
	xor ebx,ebx
	.cycle_1:
		stdcall [buf2d_get_pixel],edi,ebx,ecx
		cmp eax,buf2d_color
		jne @f
		inc ebx
		cmp ebx,edx
		jl .cycle_1
		inc dword[bby_min]
		inc ecx
		cmp ecx,edx
		jl .cycle_0
	@@:
 
	;®¯à¥¤¥«ï¥¬ ¬¨­¨¬ «ì­ãî ª®®à¤¨­ âã x ­  «¨æ¥¢®© £à ­¨
	mov dword[btx_min],0
	xor ebx,ebx
	.cycle_2:
	mov ecx,[bby_min]
	.cycle_3:
		stdcall [buf2d_get_pixel],edi,ebx,ecx
		cmp eax,buf2d_color
		jne @f
		inc ecx
		cmp ecx,edx
		jl .cycle_3
		inc dword[btx_min]
		inc ebx
		cmp ebx,edx
		jl .cycle_2
	@@:
 
	;®¯à¥¤¥«ï¥¬ ¬ ªá¨¬ «ì­ãî ª®®à¤¨­ âã x ­  «¨æ¥¢®© £à ­¨
	mov [btx_max],edx
	dec dword[btx_max]
	mov ebx,[btx_max]
	.cycle_4:
	mov ecx,[bby_min]
	.cycle_5:
		stdcall [buf2d_get_pixel],edi,ebx,ecx
		cmp eax,buf2d_color
		jne @f
		inc ecx
		cmp ecx,edx
		jl .cycle_5
		dec dword[btx_max]
		dec ebx
		cmp ebx,[btx_min]
		jg .cycle_4
	@@:
	
	;stdcall [buf2d_line], edi, 0,[bby_min],50,[bby_min],255
	ret
endp
 
align 4
btx_min dd 0 ;¡ãä¥à ¢¥àå­¨© ¬¨­. x
btx_max dd 0
bty_min dd 0 ;¡ãä¥à ¢¥àå­¨© ¬¨­. y
bty_max dd 0
;bbx_min dd 0
;bbx_max dd 0
bby_min dd 0 ;¡ãä¥à ¡®ª®¢®© ¬¨­. y
bby_max dd 0
k_scale dd 0
n_plane dd 0
 
calc db 0
 
; á®§¤ ­¨¥ ¢®ªá¥«ï ¢ 3 íâ ¯ :
; 1) ¨é¥¬ ¬¥áâ® ¢ áâàãªâãà¥ ¤¥à¥¢ , ªã¤  ­ ¤® ¢áâ ¢¨âì (¥á«¨ ¢¥â¢ì áãé¥áâ¢ã¥â, 2-© íâ ¯ ¯à®¯ãáª ¥¬)
; 2) ¢áâ ¢«ï¥¬ ­®¢ãî ¢¥â¢ì á ¢®ªá¥«¥¬ (3-© íâ ¯ ã¦¥ ­¥ ¤¥« ¥¬)
; 3) ¬¥­ï¥¬ æ¢¥â ¢®ªá¥«ï
align 4
proc buf2d_vox_obj_create_node, v_obj:dword,coord_x:dword,coord_y:dword,\
coord_z:dword,k_scale:dword,color:dword
pushad
locals
	p_node dd 0 ;à®¤¨â¥«ìáª¨© ã§¥«
endl
 
	mov edi,[v_obj]
	add edi,vox_offs_data
	mov esi,[k_scale]
	cmp esi,1
	jl .change
	; *** (1) ***
	.found:
	stdcall vox_obj_get_node_position, [v_obj],[coord_x],[coord_y],[coord_z],esi
	movzx bx,byte[edi+3]
	mov [p_node],edi
	add edi,4
 
	cmp eax,0
	je .end_1
	mov ecx,eax
	cld
	@@: ;æ¨ª« ¤«ï ¯à®¯ãáª  ¯à¥¤ë¤ãé¨å ¯®¤¤¥à¥¢ì¥¢ ¢ ã§«¥
		bt bx,0 ;¯à®¢¥àï¥¬ ¥áâì «¨ ¤®ç¥à­¨¥ ã§«ë
		jnc .end_0
			xor eax,eax
			stdcall vox_obj_rec0 ;¢ eax ¢ëç¨á«ï¥âáï ç¨á«® ¤®ç¥à­¨å ã§«®¢, ¢ ¤ ­­®© ¢¥â¢¨
		.end_0:
		shr bx,1
		loop @b
	.end_1:
	bt bx,0
	jnc .creat ;¥á«¨ ¯®¤¤¥à¥¢  ­¥ áãé¥áâ¢ã¥â, ¯¥à¥å®¤¨¬ ª á®§¤ ­¨î
	dec esi
	cmp esi,0
	jg .found
	jmp .change
 
	; *** (2) ***
	.creat:
	mov edx,[color] ;¬¥­ï¥¬ æ¢¥â
	and edx,0xffffff ;¤«ï ¯à®ä¨« ªâ¨ª¨
	mov ecx,esi
	stdcall vox_obj_add_nodes_mem, [v_obj],edi,ecx ;à áè¨àï¥¬ ¬¥áâ® § ­¨¬ ¥¬®¥ ®¡ê¥ªâ®¬, ¤«ï ¤®¡ ¢«¥­¨ï ­®¢ëå ã§«®¢
	mov ebx,[p_node]
	cld
	@@:
		mov dword[edi],edx
		stdcall vox_obj_get_node_bit_mask, [v_obj],[coord_x],[coord_y],[coord_z],esi
		or byte[ebx+3],al
 
		mov ebx,edi
		add edi,4
		dec esi
		loop @b
	jmp .end_2
 
	; *** (3) ***
	.change:
	mov eax,[color] ;¬¥­ï¥¬ æ¢¥â
	mov word[edi],ax
	shr eax,16
	mov byte[edi+2],al
 
	.end_2:
popad
	ret
endp
 
; á¤¢¨£ ¥â ã§«ë ¤«ï ¤®¡ ¢«¥­¨ï ­®¢ëå ã§«®¢
;input:
; p_insert - ¯®§¨æ¨ï ¤«ï ¢áâ ¢ª¨
; count - ª®««¨ç¥áâ¢® ¢áâ ¢«ï¥¬ëå ã§«®¢
align 4
proc vox_obj_add_nodes_mem uses eax ecx edi esi, v_obj:dword,p_insert:dword,count:dword
	mov esi,[v_obj]
	;stdcall buf2d_vox_obj_get_size,esi
	add esi,[vox_obj_size] ;esi - ãª § â¥«ì ­  ª®­¥æ ä ©« 
	mov edi,[count]
	shl edi,2
	add [vox_obj_size],edi
	add edi,esi ;edi - ãª § â¥«ì ­  ¡ã¤ãé¨© ª®­¥æ ä ©« 
	mov ecx,esi
	sub ecx,[p_insert]
	shr ecx,2 ;ecx - ç¨á«® æ¨ª«®¢ ¤«ï ª®¯¨à®¢ ­¨ï
	sub esi,4 ;esi - ãª § â¥«ì ­  ¯®á«¥¤­¨© ã§¥«
	sub edi,4 ;edi - ãª § â¥«ì ­  ¡ã¤ãé¨© ¯®á«¥¤­¨© ã§¥«
	std
	rep movsd ;á¤¢¨£ ¥¬ ¯ ¬ïâì
	ret
endp
 
;???
; ®¯à¥¤¥«¥­¨¥ ¯®§¨æ¨¨ ã§«  ¢ ¤¥à¥¢¥ (®â 0 ¤® 7)
align 4
proc vox_obj_get_node_position uses ebx ecx edi, v_obj:dword,\
coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword
	mov ecx,[k_scale]
	dec ecx
	mov eax,[coord_x]
	mov ebx,[coord_y]
	mov edi,[coord_z]
	cmp ecx,1
	jl .end_0
		shr eax,cl
		shr ebx,cl
		shr edi,cl
	.end_0:
	and eax,1
	bt ebx,0
	jnc @f
		bts eax,1
	@@:
	bt edi,0
	jnc @f
		bts eax,2
	@@:
 
	mov edi,[v_obj]
	add edi,vox_offs_tree_table
	@@:
		cmp al,byte[edi]
		je @f
		inc edi
		jmp @b
	@@:
	sub edi,[v_obj]
	sub edi,vox_offs_tree_table
	mov eax,edi
	
	ret
endp
 
;???
;input:
; edi - ãª § â¥«ì ­  ¤ ­­ë¥ ¢®ªá¥«ì­®£® ®¡ê¥ªâ 
;output:
; eax - eax + ç¨á«® ã§«®¢ ¢ ¤ ­­ëå ¢®ªá. ®¡ê¥ªâ 
; edi - ãª § â¥«ì ­  á¬¥é¥­­ë¥ ¤ ­­ë¥ ¢®ªá. ®¡ê¥ªâ 
align 4
proc vox_obj_rec0
	inc eax
	cmp byte[edi+3],0 ;á¬®âà¨¬ ¥áâì «¨ ¯®¤¤¥à¥¢ìï
	je .sub_trees
 
		;à¥ªãàá¨¢­ë© ¯¥à¥¡®à ¯®¤¤¥à¥¢ì¥¢
		push ebx ecx
		mov bh,byte[edi+3]
		add edi,4
		mov bl,8
		.cycle:
			bt bx,8 ;â¥áâ¨àã¥¬ â®«ìª® bh
			jnc .c_next
				stdcall vox_obj_rec0
			.c_next:
			shr bh,1
			dec bl
			jnz .cycle
		pop ecx ebx
 
		jmp .end_f
	.sub_trees:
		add edi,4
	.end_f:
	ret
endp
 
;output:
; eax - 1,2,4,8,16, ... ,128
align 4
proc vox_obj_get_node_bit_mask uses ebx ecx edi, v_obj:dword,\
coord_x:dword,coord_y:dword,coord_z:dword,k_scale:dword
	mov ecx,[k_scale]
	dec ecx
	mov eax,[coord_x]
	mov ebx,[coord_y]
	mov edi,[coord_z]
	cmp ecx,1
	jl .end_0
		shr eax,cl
		shr ebx,cl
		shr edi,cl
	.end_0:
	and eax,1
	bt ebx,0
	jnc @f
		bts eax,1
	@@:
	bt edi,0
	jnc @f
		bts eax,2
	@@:
 
	mov ecx,[v_obj]
	add ecx,vox_offs_tree_table
	@@:
		cmp al,byte[ecx]
		je @f
		inc ecx
		jmp @b
	@@:
	mov eax,1 ;ãáâ ­ ¢«¨¢ ¥¬ ¯¥à¢®­ ç «ì­®¥ §­ ç¥­¨¥ ¡¨â 
	sub ecx,[v_obj]
	sub ecx,vox_offs_tree_table
	jz @f
		shl eax,cl ;á¤¢¨£ ¥¬ ¡¨â
	@@:
	
	ret
endp
 
;
;output:
; eax - à §¬¥à ¢ ¡ ©â å § ­¨¬ ¥¬ë© ®¡ê¥ªâ®¬ v_obj
align 4
proc buf2d_vox_obj_get_size uses edi, v_obj:dword
	mov edi,[v_obj]
	add edi,vox_offs_data
	xor eax,eax
	stdcall vox_obj_rec0 ;eax - ç¨á«® ã§«®¢ ¢ ®¡ê¥ªâ¥ v_obj
	shl eax,2
	add eax,vox_offs_data
	ret
endp
 
;input:
; mode_add - ¥á«¨ ­¥ à ¢­® 0 â®£¤  á®§¤ ­¨¥ ¢ à¥¦¨¬¥ ¤®¡ ¢«¥­¨ï ¢®ªá¥«¥©
align 4
proc but_run uses eax ebx edi, mode_add:dword
	; ¯à®¢¥àª  à §¬¥à®¢ ¨§®¡à ¦¥­¨© (â¥ªáâãà)
	mov edi,buf_i0
	mov ebx,buf2d_h
	cmp ebx,2
	jle .err_size_t
	cmp buf2d_w,ebx
	jne .err_size_t
	;
	mov edi,buf_i1
	cmp ebx,buf2d_h
	jne .err_size_tb
	mov ebx,buf2d_h
	cmp ebx,2
	jle .err_size_b
	cmp buf2d_w,ebx
	jne .err_size_b
 
		cmp dword[vox_obj_size],vox_offs_data
		jl .n_file ;¥á«¨ à ­ìè¥ ­¥ ¡ë«® ®âªàëâëå ä ©«®¢
		cmp dword[mode_add],0
		jne @f
		.n_file:
			call but_new_file
		@@:
 
		mov edi,buf_i0
		mov eax,buf2d_w
		mov edi,buf_npl
		cmp buf2d_data,0
		jne @f
			; *** á®§¤ ¥¬ ¡ãä¥à 
			m2m buf2d_w,eax
			m2m buf2d_h,eax
			stdcall [buf2d_create],edi
			mov edi,buf_npl_p
			m2m buf2d_w,eax
			m2m buf2d_h,eax
			stdcall [buf2d_create],edi
			mov edi,buf_npl_n
			m2m buf2d_w,eax
			m2m buf2d_h,eax
			stdcall [buf2d_create],edi
			jmp .end_0
		@@:
			; *** ¨§¬¥­ï¥¬ à §¬¥àë ¡ãä¥à®¢
			stdcall [buf2d_resize], edi, eax,eax,1
			mov edi,buf_npl_p
			stdcall [buf2d_resize], edi, eax,eax,1
			mov edi,buf_npl_n
			stdcall [buf2d_resize], edi, eax,eax,1
		.end_0:
		mov dword[n_plane],1
		mov byte[calc],1
		call get_scale
		call set_borders
 
		stdcall create_plane,buf_npl,0
		stdcall create_plane,buf_npl_n,1
		stdcall create_obj_from_plane,buf_npl,0 ;á®§¤ ¥¬ ­ ç «ì­®¥ á¥ç¥­¨¥
 
		jmp @f
	.err_size_t:
		stdcall [mb_create],msgbox_0,thread
		jmp @f
	.err_size_b:
		stdcall [mb_create],msgbox_1,thread
		jmp @f
	.err_size_tb:
		stdcall [mb_create],msgbox_3,thread
		;jmp @f
	@@:
	ret
endp
 
align 4
but_5:
	cmp byte[calc],0
	je @f
		call draw_object
		mov byte[calc],0
	@@:
	ret
 
align 4
but_rot_z:
	stdcall vox_obj_rot_z, [open_file_vox]
	call draw_object
	ret
 
align 4
draw_object:
	;¢ë¢®¤ à¥§ã«ìâ â  ­  íªà ­
	stdcall [buf2d_clear], buf_0, [buf_0.color] ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_clear], buf_0z, 0 ;ç¨áâ¨¬ ¡ãä¥à
	stdcall [buf2d_vox_obj_draw_3g], buf_0, buf_0z, buf_vox,\
		[open_file_vox], 0,0, 0, 6 ;[k_scale]
	stdcall [buf2d_draw], buf_0 ;®¡­®¢«ï¥¬ ¡ãä¥à ­  íªà ­¥
	ret
 
align 4
proc open_image_in_buf, buf:dword
	pushad
	copy_path open_dialog_name,communication_area_default_path,file_name,0
	mov [OpenDialog_data.type],0
	stdcall [OpenDialog_Start],OpenDialog_data
	cmp [OpenDialog_data.status],2
	je .end_open_file
 
	;stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	;mov [buf],eax
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword max_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
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je .end_0
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[open_file_img],ebx,0
		cmp eax,0
		je .end_0 ;¥á«¨ ­ àãè¥­ ä®à¬ â ä ©« 
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[open_file_img]
 
		mov eax,dword[image_data]
		mov edi,[buf]
		cmp buf2d_data,0
		jne @f
			m2m buf2d_w,dword[eax+4] ;+4 = image width
			m2m buf2d_h,dword[eax+8] ;+8 = image heihht
			stdcall [buf2d_create_f_img], edi,[open_file_img]
			jmp .end_1
		@@:
			mov ebx,dword[eax+4]
			mov ecx,dword[eax+8]
			stdcall [buf2d_resize], edi, ebx,ecx,1 ;¨§¬¥­ï¥¬ à §¬¥àë ¡ãä¥à 
			imul ecx,ebx
			lea ecx,[ecx+ecx*2]
			mov edi,buf2d_data
			mov esi,[open_file_img]
			cld
			rep movsb ;copy image
		.end_1:
 
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	.end_0:
 
	call draw_buffers
	.end_open_file:
	popad
	ret
endp
 
msgbox_0:
	db 1,0
	db '­¨¬ ­¨¥',0
	db ' §¬¥à ¢¥àå­¥£® ¨§®¡à ¦¥­¨ï ­¥ ª®à¥ªâ­ë©',0
	db ' ªàëâì',0
	db 0
 
msgbox_1:
	db 1,0
	db '­¨¬ ­¨¥',0
	db ' §¬¥à ¡®ª®¢®£® ¨§®¡à ¦¥­¨ï ­¥ ª®à¥ªâ­ë©',0
	db ' ªàëâì',0
	db 0
 
msgbox_2:
	db 1,0
	db '­¨¬ ­¨¥',0
	db ' §¬¥à ¯¥à¥¤­¥£® ¨§®¡à ¦¥­¨ï ­¥ ª®à¥ªâ­ë©',0
	db ' ªàëâì',0
	db 0
 
msgbox_3:
	db 1,0
	db '­¨¬ ­¨¥',0
	db ' §¬¥àë ¢¥àå­¥£® ¨ ¡®ª®¢®£® ¨§®¡à ¦¥­¨© ­¥ á®¢¯ ¤ îâ',13,\
		'âªà®©â¥ ¨§®¡à ¦¥­¨ï ®¤¨­ ª®¢ëå à §¬¥à®¢',0
	db ' ªàëâì',0
	db 0
 
msgbox_4:
	db 1,0
	db '­¨¬ ­¨¥',0
	db 'âªàë¢ ¥¬ë© ä ©« á®¤¥à¦¨â ­¥ ¢®ªá¥«ì­ë© ä®à¬ â',0
	db ' ªàëâì',0
	db 0
 
;¤ ­­ë¥ ¤«ï ¤¨ «®£  ®âªàëâ¨ï ä ©«®¢
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
db 'VOX',0
.end:
db 0
 
 
 
head_f_i:
head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0
 
system_dir_0 db '/sys/lib/'
lib_name_0 db 'proc_lib.obj',0
err_message_found_lib_0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
err_message_import_0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
 
system_dir_1 db '/sys/lib/'
lib_name_1 db 'libimg.obj',0
err_message_found_lib_1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'libimg.obj',39,0
err_message_import_1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,0
 
system_dir_2 db '/sys/lib/'
lib_name_2 db 'buf2d.obj',0
err_msg_found_lib_2 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'buf2d.obj',39,0
err_msg_import_2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,0
 
system_dir_3 db '/sys/lib/'
lib_name_3 db 'msgbox.obj',0
err_msg_found_lib_3 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'msgbox.obj',39,0
err_msg_import_3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ ',39,'msgbox',39,0
 
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_msgbox_lib,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
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',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
	buf2d_vox_brush_create dd sz_buf2d_vox_brush_create
	buf2d_vox_brush_delete dd sz_buf2d_vox_brush_delete
	buf2d_vox_obj_get_img_w_3g dd sz_buf2d_vox_obj_get_img_w_3g
	buf2d_vox_obj_get_img_h_3g dd sz_buf2d_vox_obj_get_img_h_3g
	buf2d_vox_obj_draw_1g dd sz_buf2d_vox_obj_draw_1g
	buf2d_vox_obj_draw_3g dd sz_buf2d_vox_obj_draw_3g
	buf2d_vox_obj_draw_3g_scaled dd sz_buf2d_vox_obj_draw_3g_scaled
	buf2d_vox_obj_draw_3g_shadows dd sz_buf2d_vox_obj_draw_3g_shadows
	buf2d_vox_obj_draw_pl dd sz_buf2d_vox_obj_draw_pl
	buf2d_vox_obj_draw_pl_scaled dd sz_buf2d_vox_obj_draw_pl_scaled
	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
	sz_buf2d_vox_brush_create db 'buf2d_vox_brush_create',0
	sz_buf2d_vox_brush_delete db 'buf2d_vox_brush_delete',0
	sz_buf2d_vox_obj_get_img_w_3g db 'buf2d_vox_obj_get_img_w_3g',0
	sz_buf2d_vox_obj_get_img_h_3g db 'buf2d_vox_obj_get_img_h_3g',0
	sz_buf2d_vox_obj_draw_1g db 'buf2d_vox_obj_draw_1g',0
	sz_buf2d_vox_obj_draw_3g db 'buf2d_vox_obj_draw_3g',0
	sz_buf2d_vox_obj_draw_3g_scaled db 'buf2d_vox_obj_draw_3g_scaled',0
	sz_buf2d_vox_obj_draw_3g_shadows db 'buf2d_vox_obj_draw_3g_shadows',0
	sz_buf2d_vox_obj_draw_pl db 'buf2d_vox_obj_draw_pl',0
	sz_buf2d_vox_obj_draw_pl_scaled db 'buf2d_vox_obj_draw_pl_scaled',0
 
align 4
import_msgbox_lib:
	mb_create dd amb_create
;	mb_reinit dd amb_reinit
;	mb_setfunctions dd amb_setfunctions
dd 0,0
	amb_create db 'mb_create',0
;	amb_reinit db 'mb_reinit',0
;	amb_setfunctions db 'mb_setfunctions',0
 
mouse_dd dd 0x0
sc system_colors 
last_time dd 0
 
align 16
procinfo process_information 
 
align 4
buf_0: dd 0
	dw 5 ;+4 left
	dw 35 ;+6 top
.w: dd 6*64 ;+8 w
.h: dd 7*64 ;+12 h
.color: dd 0xffffff ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_0z: dd 0
	dw 5 ;+4 left
	dw 35 ;+6 top
.w: dd 6*64 ;+8 w
.h: dd 7*64 ;+12 h
.color: dd 0 ;+16 color
	db 32 ;+20 bit in pixel
 
align 4
buf_i0: dd 0
	dw 5 ;+4 left
	dw 35 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_i1: dd 0
	dw 105 ;+4 left
	dw 35 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_i2: dd 0
	dw 205 ;+4 left
	dw 35 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_npl_p: dd 0
	dw 0 ;+4 left
	dw 0 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_npl: dd 0
	dw 5 ;+4 left
	dw 35 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_npl_n: dd 0
	dw 0 ;+4 left
	dw 0 ;+6 top
.w: dd 0 ;+8 w
.h: dd 0 ;+12 h
.color: dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
;¤ ­­ë¥ ¤«ï á®§¤ ­¨ï ¬¨­¨¬ «ì­®£® ¥¤¨­¨ç­®£® ¢®ªá¥«ï
align 4
vox_6_7_z:
dd 0,0,1,1,0,0,\
   0,2,2,2,2,0,\
   2,2,2,2,2,2,\
   2,3,2,2,3,2,\
   2,3,3,3,3,2,\
   0,3,3,3,3,0,\
   0,0,3,3,0,0
 
align 4
buf_vox:
	db 6,7,4,3 ;w,h,h_osn,n
	rb BUF_STRUCT_SIZE*(2+1)
 
 
align 16
i_end:
		rb 2048
	thread:
		rb 2048
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 5388	Rev 6175
1	use32	1	use32
2	org 0x0	2	org 0x0
3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â	3	db 'MENUET01' ;¨¤¥â¨ä. ¨á¯®«ï¥¬®£® ä ©« ¢á¥£¤ 8 ¡ ©â
4	dd 0x1	-
5	dd start	-
6	dd i_end ;à §¬¥à ¯à¨«®¦¥¨ï	4	dd 1,start,i_end,mem,stacktop,0,sys_path
7	dd mem	-
8	dd stacktop	-
9	dd 0	-
10	dd sys_path	-
11		5
12	include '../../../../programs/macros.inc'	6	include '../../../../programs/macros.inc'
13	include '../../../../programs/proc32.inc'	7	include '../../../../programs/proc32.inc'
-		8	include '../../../../programs/KOSfuncs.inc'
14	include '../../../../programs/develop/libraries/box_lib/load_lib.mac'	9	include '../../../../programs/develop/libraries/box_lib/load_lib.mac'
15	include '../../../../programs/dll.inc'	10	include '../../../../programs/dll.inc'
16	include '../trunk/str.inc'	11	include '../trunk/str.inc'
17		12
18	vox_offs_tree_table equ 4	13	vox_offs_tree_table equ 4
19	vox_offs_data equ 12	14	vox_offs_data equ 12
20	txt_buf rb 8	15	txt_buf rb 8
21	include '../trunk/vox_rotate.inc'	16	include '../trunk/vox_rotate.inc'
22		17
23	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	18	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
24	caption db 'Voxel creator 29.01.15',0 ;¯®¤¯¨áì ®ª	19	caption db 'Voxel creator 08.02.16',0 ;¯®¤¯¨áì ®ª
25		20
26	struct FileInfoBlock	21	struct FileInfoBlock
27	Function dd ?	22	Function dd ?
28	Position dd ?	23	Position dd ?
29	Flags dd ?	24	Flags dd ?
30	Count dd ?	25	Count dd ?
31	Buffer dd ?	26	Buffer dd ?
32	db ?	27	db ?
33	FileName dd ?	28	FileName dd ?
34	ends	29	ends
35		30
36	BUF_STRUCT_SIZE equ 21	31	BUF_STRUCT_SIZE equ 21
37	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï	32	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï
38	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à	33	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à
39	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à	34	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à
40	buf2d_l equ word[edi+4]	35	buf2d_l equ word[edi+4]
41	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã	36	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
42	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à	37	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à
43	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à	38	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à
44	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï	39	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï
45		40
46	vox_offs_tree_table equ 4	41	vox_offs_tree_table equ 4
47	vox_offs_data equ 12	42	vox_offs_data equ 12
48		43
49	run_file_70 FileInfoBlock	44	run_file_70 FileInfoBlock
50	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï	45	image_data dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì. ¤«ï ã¦¥ ¯à¥®¡à §®¢ ¨ï ¨§®¡à ¦¥¨ï
51	vox_obj_size dd 0 ;à §¬¥à ¢®ªá¥«ì®£® ®¡ê¥ªâ (¤«ï ãáª®à¥¨ï ¢áâ ¢ª¨)	46	vox_obj_size dd 0 ;à §¬¥à ¢®ªá¥«ì®£® ®¡ê¥ªâ (¤«ï ãáª®à¥¨ï ¢áâ ¢ª¨)
52	txt_space db ' ',0	47	txt_space db ' ',0
53	txt_pref db ' ¡ ',0,' ¡',0,' ¡',0,' ¡',0 ;¯à¨áâ ¢ª¨: ª¨«®, ¬¥£ , £¨£	48	txt_pref db ' ¡ ',0,' ¡',0,' ¡',0,' ¡',0 ;¯à¨áâ ¢ª¨: ª¨«®, ¬¥£ , £¨£
54	txt_f_size: db ' §¬¥à: '	49	txt_f_size: db ' §¬¥à: '
55	.size: rb 16	50	.size: rb 16
56		51
57	fn_toolbar db 'toolbar.png',0	52	fn_toolbar db 'toolbar.png',0
58	IMAGE_TOOLBAR_ICON_SIZE equ 16163	53	IMAGE_TOOLBAR_ICON_SIZE equ 16163
59	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9	54	IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*9
60	image_data_toolbar dd 0	55	image_data_toolbar dd 0
61		56
62	max_open_file_size equ 1024*1024 ;1 Mb	57	max_open_file_size equ 1024*1024 ;1 Mb
63		58
64	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	59	macro load_image_file path,buf,size { ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
65	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬	60	;path - ¬®¦¥â ¡ëâì ¯¥à¥¬¥®© ¨«¨ áâà®ª®¢ë¬ ¯ à ¬¥âà®¬
66	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path	61	if path eqtype '' ;¯à®¢¥àï¥¬ § ¤ «¨ áâà®ª®© ¯ à ¬¥âà path
67	jmp @f	62	jmp @f
68	local .path_str	63	local .path_str
69	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî	64	.path_str db path ;ä®à¬¨àã¥¬ «®ª «ìãî ¯¥à¥¬¥ãî
70	db 0	65	db 0
71	@@:	66	@@:
72	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬	67	;32 - áâ ¤ àâë© ¤à¥á ¯® ª®â®à®¬ã ¤®«¦¥ ¡ëâì ¡ãä¥à á á¨áâ¥¬ë¬ ¯ãâ¥¬
73	copy_path .path_str,[32],file_name,0x0	68	copy_path .path_str,[32],file_name,0
74	else	69	else
75	copy_path path,[32],file_name,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	70	copy_path path,[32],file_name,0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
76	end if	71	end if
77		72
78	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	73	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
79	mov [buf],eax	74	mov [buf],eax
80		-
81	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	75
82	mov [run_file_70.Function], 0	76	mov [run_file_70.Function], SSF_READ_FILE
83	mov [run_file_70.Position], 0	77	mov [run_file_70.Position], 0
84	mov [run_file_70.Flags], 0	78	mov [run_file_70.Flags], 0
85	mov [run_file_70.Count], dword size	79	mov [run_file_70.Count], dword size
86	m2m [run_file_70.Buffer], [buf]	80	mov [run_file_70.Buffer], eax
87	mov byte[run_file_70+20], 0	81	mov byte[run_file_70+20], 0
88	mov [run_file_70.FileName], file_name	82	mov [run_file_70.FileName], file_name
89	mov ebx,run_file_70	-
90	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	83	mcall SF_FILE,run_file_70 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
91	cmp ebx,0xffffffff	84	cmp ebx,0xffffffff
92	je @f	85	je @f
93	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	86	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
94	stdcall dword[img_decode], dword[buf],ebx,0	87	stdcall dword[img_decode], dword[buf],ebx,0
95	mov dword[image_data],eax	88	mov dword[image_data],eax
96	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	89	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
97	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	90	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
98	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	91	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
99	stdcall dword[img_destroy], dword[image_data]	92	stdcall dword[img_destroy], dword[image_data]
100	@@:	93	@@:
101	}	94	}
102		95
103		96
104		97
105	align 4	98	align 4
106	start:	99	start:
107	load_libraries l_libs_start,l_libs_end	100	load_libraries l_libs_start,l_libs_end
108	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì ¡¨¡«¨®â¥ª	101	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì ¡¨¡«¨®â¥ª
109	mov ebp,lib_0	102	mov ebp,lib_0
110	cmp dword [ebp+ll_struc_size-4],0	103	cmp dword [ebp+ll_struc_size-4],0
111	jz @f	104	jz @f
112	mcall -1 ;exit not correct	105	mcall SF_TERMINATE_PROCESS
113	@@:	106	@@:
114	mcall 48,3,sc,sizeof.system_colors	107	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
115	mcall 40,0x27	108	mcall SF_SET_EVENTS_MASK,0x27
116	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£	109	stdcall [OpenDialog_Init],OpenDialog_data ;¯®¤£®â®¢ª ¤¨ «®£
117		110
118	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à	111	stdcall [buf2d_create], buf_0 ;á®§¤ ¨¥ ¡ãä¥à
119	stdcall [buf2d_create], buf_0z	112	stdcall [buf2d_create], buf_0z
120	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z	113	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z
121		114
122	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE	115	load_image_file fn_toolbar, image_data_toolbar,IMAGE_TOOLBAR_SIZE
123		116
124	stdcall mem.Alloc,max_open_file_size	117	stdcall mem.Alloc,max_open_file_size
125	mov dword[open_file_vox],eax	118	mov dword[open_file_vox],eax
126	stdcall mem.Alloc,max_open_file_size	119	stdcall mem.Alloc,max_open_file_size
127	mov dword[open_file_img],eax	120	mov dword[open_file_img],eax
128		121
129	mcall 26,9	122	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
130	mov [last_time],eax	123	mov [last_time],eax
131		124
132	align 4	125	align 4
133	red_win:	126	red_win:
134	call draw_window	127	call draw_window
135		128
136	align 4	129	align 4
137	still:	130	still:
138	mcall 26,9	131	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
139	mov ebx,[last_time]	132	mov ebx,[last_time]
140	add ebx,10 ;§ ¤¥à¦ª	133	add ebx,10 ;§ ¤¥à¦ª
141	cmp ebx,eax	134	cmp ebx,eax
142	jge @f	135	jge @f
143	mov ebx,eax	136	mov ebx,eax
144	@@:	137	@@:
145	sub ebx,eax	138	sub ebx,eax
146	;cmp ebx,10 ;§ ¤¥à¦ª	139	mcall SF_WAIT_EVENT_TIMEOUT
147	;ja timer_funct	-
148	;test ebx,ebx	-
149	;jz timer_funct	-
150	mcall 23	-
151	cmp eax,0	140	cmp eax,0
152	je timer_funct	141	je timer_funct
153		142
154	cmp al,1	143	cmp al,1
155	jz red_win	144	jz red_win
156	cmp al,2	145	cmp al,2
157	jz key	146	jz key
158	cmp al,3	147	cmp al,3
159	jz button	148	jz button
160		149
161	jmp still	150	jmp still
162		151
163	align 4	152	align 4
164	timer_funct:	153	timer_funct:
165	cmp byte[calc],0	154	cmp byte[calc],0
166	je still	155	je still
167		156
168	pushad	157	pushad
169	mcall 26,9	158	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
170	mov [last_time],eax	159	mov [last_time],eax
171		160
172	; áª¨¤ë¢ ¥¬ ãª § â¥«¨ ¡ãä¥à®¢ buf_npl_p, buf_npl, buf_npl_n	161	; áª¨¤ë¢ ¥¬ ãª § â¥«¨ ¡ãä¥à®¢ buf_npl_p, buf_npl, buf_npl_n
173	mov edi,buf_npl_p	162	mov edi,buf_npl_p
174	mov eax,buf2d_data	163	mov eax,buf2d_data
175	mov edi,buf_npl	164	mov edi,buf_npl
176	mov ebx,buf2d_data	165	mov ebx,buf2d_data
177	mov edi,buf_npl_n	166	mov edi,buf_npl_n
178	mov ecx,buf2d_data	167	mov ecx,buf2d_data
179	; change buffer data pointers	168	; change buffer data pointers
180	mov buf2d_data,eax	169	mov buf2d_data,eax
181	mov edi,buf_npl_p	170	mov edi,buf_npl_p
182	mov buf2d_data,ebx	171	mov buf2d_data,ebx
183	mov edi,buf_npl	172	mov edi,buf_npl
184	mov buf2d_data,ecx	173	mov buf2d_data,ecx
185		174
186	mov eax,[n_plane]	175	mov eax,[n_plane]
187	mov ebx,buf2d_w	176	mov ebx,buf2d_w
188	dec ebx	177	dec ebx
189		178
190	cmp ebx,eax	179	cmp ebx,eax
191	jg @f	180	jg @f
192	stdcall create_obj_from_plane,buf_npl,eax ;á®§¤ ¥¬ § ¢¥àè îé¥¥ á¥ç¥¨¥	181	stdcall create_obj_from_plane,buf_npl,eax ;á®§¤ ¥¬ § ¢¥àè îé¥¥ á¥ç¥¨¥
193	;¢ë¢®¤ ª®¥ç®£® à¥§ã«ìâ â	182	;¢ë¢®¤ ª®¥ç®£® à¥§ã«ìâ â
194	call draw_object	183	call draw_object
195	mov byte[calc],0	184	mov byte[calc],0
196	jmp .end_f	185	jmp .end_f
197	@@:	186	@@:
198		187
199	inc eax	188	inc eax
200	stdcall create_plane, buf_npl_n,eax	189	stdcall create_plane, buf_npl_n,eax
201		190
202	; á®§¤ ¨¥ ¢®áª¥«ì®£® á¥ç¥¨ï ®á®¢¥ ¡ãä¥à buf_npl	191	; á®§¤ ¨¥ ¢®áª¥«ì®£® á¥ç¥¨ï ®á®¢¥ ¡ãä¥à buf_npl
203	mov edi,buf_npl	192	mov edi,buf_npl
204	mov edx,[bby_min] ;0	193	mov edx,[bby_min] ;0
205	.cycle_0:	194	.cycle_0:
206	mov ecx,[btx_min] ;0	195	mov ecx,[btx_min] ;0
207	.cycle_1:	196	.cycle_1:
208	stdcall [buf2d_get_pixel], edi,ecx,edx	197	stdcall [buf2d_get_pixel], edi,ecx,edx
209	cmp eax,buf2d_color	198	cmp eax,buf2d_color
210	je @f	199	je @f
211	mov esi,eax	200	mov esi,eax
212	call need_node	201	call need_node
213	cmp eax,buf2d_color	202	cmp eax,buf2d_color
214	jne @f ;®âá¥¨¢ ¥¬ ¢ãâà¥¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨	203	jne @f ;®âá¥¨¢ ¥¬ ¢ãâà¥¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨
215	mov eax,ebx	204	mov eax,ebx
216	sub eax,edx	205	sub eax,edx
217	stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\	206	stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\
218	eax,[k_scale],esi	207	eax,[k_scale],esi
219	@@:	208	@@:
220	inc ecx	209	inc ecx
221	cmp ecx,ebx	210	cmp ecx,ebx
222	jle .cycle_1	211	jle .cycle_1
223	inc edx	212	inc edx
224	cmp edx,ebx	213	cmp edx,ebx
225	jle .cycle_0	214	jle .cycle_0
226		215
227	stdcall [buf2d_draw], buf_npl	216	stdcall [buf2d_draw], buf_npl
228	inc dword[n_plane] ;¯¥à¥¬¥é ¥¬ ¯«®áª®áâì á¥ç¥¨ï	217	inc dword[n_plane] ;¯¥à¥¬¥é ¥¬ ¯«®áª®áâì á¥ç¥¨ï
229	call draw_pok	218	call draw_pok
230	.end_f:	219	.end_f:
231	popad	220	popad
232	jmp still	221	jmp still
233		222
234	align 4	223	align 4
235	proc create_plane, buf_img:dword, n_plane:dword	224	proc create_plane, buf_img:dword, n_plane:dword
236	pushad	225	pushad
237	; ª®¯¨àã¥¬ «¨æ¥¢®¥ ¨§®¡à ¦¥¨¥ ¢ ¡ãä¥à buf_img	226	; ª®¯¨àã¥¬ «¨æ¥¢®¥ ¨§®¡à ¦¥¨¥ ¢ ¡ãä¥à buf_img
238	; bby_min - ¨á¯®«ì§ã¥¬ ¤«ï ®¯â¨¬¨§ æ¨¨ (¥á«¨ á¢¥àåã ¨§®¡à ¦¥¨¥ ¯ãáâ®¥)	227	; bby_min - ¨á¯®«ì§ã¥¬ ¤«ï ®¯â¨¬¨§ æ¨¨ (¥á«¨ á¢¥àåã ¨§®¡à ¦¥¨¥ ¯ãáâ®¥)
239	mov eax,[bby_min]	228	mov eax,[bby_min]
240	mov esi,buf_i2	229	mov esi,buf_i2
241	mov esi,[esi] ;buf2d_data	230	mov esi,[esi] ;buf2d_data
242	mov edi,[buf_img]	231	mov edi,[buf_img]
243	mov ecx,buf2d_w	232	mov ecx,buf2d_w
244	imul eax,ecx	233	imul eax,ecx
245	mov ebx,ecx	234	mov ebx,ecx
246	imul ecx,ebx	235	imul ecx,ebx
247	sub ecx,eax	236	sub ecx,eax
248	lea ecx,[ecx+ecx*2]	237	lea ecx,[ecx+ecx*2]
249	mov edi,buf2d_data	238	mov edi,buf2d_data
250	lea eax,[eax+eax*2]	239	lea eax,[eax+eax*2]
251	add edi,eax	240	add edi,eax
252	add esi,eax	241	add esi,eax
253	cld	242	cld
254	rep movsb	243	rep movsb
255		244
256	mov ecx,ebx	245	mov ecx,ebx
257	dec ebx	246	dec ebx
258	mov edi,buf_i0	247	mov edi,buf_i0
259	.cycle_0:	248	.cycle_0:
260	mov eax,ebx	249	mov eax,ebx
261	sub eax,[n_plane] ;eax - ¯¥à¥¢¥àãâ ï ª®®à¤¨ â n_plane	250	sub eax,[n_plane] ;eax - ¯¥à¥¢¥àãâ ï ª®®à¤¨ â n_plane
262	stdcall [buf2d_get_pixel], edi,ecx,eax ;[n_plane]	251	stdcall [buf2d_get_pixel], edi,ecx,eax ;[n_plane]
263	cmp eax,buf2d_color	252	cmp eax,buf2d_color
264	jne @f	253	jne @f
265	;¢ëç¥àª¨¢ ¨¥ ¢¥àâ¨ª «ì®© «¨¨¨ ¨§ á¥ç¥¨ï buf_img	254	;¢ëç¥àª¨¢ ¨¥ ¢¥àâ¨ª «ì®© «¨¨¨ ¨§ á¥ç¥¨ï buf_img
266	stdcall [buf2d_line], [buf_img],ecx,[bby_min],ecx,ebx, buf2d_color	255	stdcall [buf2d_line], [buf_img],ecx,[bby_min],ecx,ebx, buf2d_color
267	jmp .end_1	256	jmp .end_1
268	@@:	257	@@:
269	mov edx,[bby_min] ;xor edx,edx	258	mov edx,[bby_min] ;xor edx,edx
270	mov esi,eax	259	mov esi,eax
271	.cycle_1: ;æ¨ª« ¤«ï «®¦¥¨ï ¢¥àå¥© â¥ªáâãàë	260	.cycle_1: ;æ¨ª« ¤«ï «®¦¥¨ï ¢¥àå¥© â¥ªáâãàë
272	stdcall [buf2d_get_pixel], [buf_img],ecx,edx	261	stdcall [buf2d_get_pixel], [buf_img],ecx,edx
273	cmp eax, buf2d_color	262	cmp eax, buf2d_color
274	je .end_0	263	je .end_0
275	stdcall [buf2d_set_pixel], [buf_img],ecx,edx, esi ; «®¦¥¨¥ ¢¥àå¥© â¥ªáâãàë	264	stdcall [buf2d_set_pixel], [buf_img],ecx,edx, esi ; «®¦¥¨¥ ¢¥àå¥© â¥ªáâãàë
276	jmp .end_1	265	jmp .end_1
277	.end_0:	266	.end_0:
278	inc edx	267	inc edx
279	cmp edx,ebx	268	cmp edx,ebx
280	jle .cycle_1	269	jle .cycle_1
281	.end_1:	270	.end_1:
282	loop .cycle_0	271	loop .cycle_0
283		272
284	;£®à¨§®â «ìë¥ «¨¨¨ ®á®¢¥ ¡®ª®¢®© £à ¨	273	;£®à¨§®â «ìë¥ «¨¨¨ ®á®¢¥ ¡®ª®¢®© £à ¨
285	mov ecx,[bby_min]	274	mov ecx,[bby_min]
286	mov edi,buf_i1	275	mov edi,buf_i1
287	.cycle_2:	276	.cycle_2:
288	stdcall [buf2d_get_pixel], edi,[n_plane],ecx	277	stdcall [buf2d_get_pixel], edi,[n_plane],ecx
289	cmp eax,buf2d_color	278	cmp eax,buf2d_color
290	jne @f	279	jne @f
291	;¢ëç¥àª¨¢ ¨¥ £®à¨§®â «ì®© «¨¨¨ ¨§ á¥ç¥¨ï buf_img	280	;¢ëç¥àª¨¢ ¨¥ £®à¨§®â «ì®© «¨¨¨ ¨§ á¥ç¥¨ï buf_img
292	stdcall [buf2d_line], [buf_img],[btx_min],ecx,[btx_max],ecx, buf2d_color	281	stdcall [buf2d_line], [buf_img],[btx_min],ecx,[btx_max],ecx, buf2d_color
293	jmp .end_3	282	jmp .end_3
294	@@:	283	@@:
295	mov edx,[btx_max] ;ebx	284	mov edx,[btx_max] ;ebx
296	mov esi,eax	285	mov esi,eax
297	.cycle_3: ;æ¨ª« ¤«ï «®¦¥¨ï ¡®ª®¢®© â¥ªáâãàë	286	.cycle_3: ;æ¨ª« ¤«ï «®¦¥¨ï ¡®ª®¢®© â¥ªáâãàë
298	stdcall [buf2d_get_pixel], [buf_img],edx,ecx	287	stdcall [buf2d_get_pixel], [buf_img],edx,ecx
299	cmp eax, buf2d_color	288	cmp eax, buf2d_color
300	je .end_2	289	je .end_2
301	stdcall [buf2d_set_pixel], [buf_img],edx,ecx, esi ; «®¦¥¨¥ ¡®ª®¢®© â¥ªáâãàë	290	stdcall [buf2d_set_pixel], [buf_img],edx,ecx, esi ; «®¦¥¨¥ ¡®ª®¢®© â¥ªáâãàë
302	jmp .end_3	291	jmp .end_3
303	.end_2:	292	.end_2:
304	dec edx	293	dec edx
305	cmp edx,[btx_min]	294	cmp edx,[btx_min]
306	jge .cycle_3	295	jge .cycle_3
307	.end_3:	296	.end_3:
308	inc ecx	297	inc ecx
309	cmp ecx,ebx	298	cmp ecx,ebx
310	jle .cycle_2	299	jle .cycle_2
311	popad	300	popad
312	ret	301	ret
313	endp	302	endp
314		303
315	align 4	304	align 4
316	proc create_obj_from_plane, buf_img:dword, n_plane:dword	305	proc create_obj_from_plane, buf_img:dword, n_plane:dword
317	pushad	306	pushad
318	; á®§¤ ¨¥ ¢®áª¥«ì®£® á¥ç¥¨ï ®á®¢¥ ¡ãä¥à buf_img	307	; á®§¤ ¨¥ ¢®áª¥«ì®£® á¥ç¥¨ï ®á®¢¥ ¡ãä¥à buf_img
319	mov edi,[buf_img]	308	mov edi,[buf_img]
320	mov ebx,buf2d_w	309	mov ebx,buf2d_w
321	dec ebx	310	dec ebx
322	mov edx,[bby_min] ;0	311	mov edx,[bby_min] ;0
323	.cycle_0:	312	.cycle_0:
324	mov ecx,[btx_min] ;0	313	mov ecx,[btx_min] ;0
325	.cycle_1:	314	.cycle_1:
326	stdcall [buf2d_get_pixel], edi,ecx,edx	315	stdcall [buf2d_get_pixel], edi,ecx,edx
327	cmp eax,buf2d_color	316	cmp eax,buf2d_color
328	je @f	317	je @f
329	mov esi,eax	318	mov esi,eax
330	;call need_node	319	;call need_node
331	;cmp eax,buf2d_color	320	;cmp eax,buf2d_color
332	;jne @f ;®âá¥¨¢ ¥¬ ¢ãâà¥¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨	321	;jne @f ;®âá¥¨¢ ¥¬ ¢ãâà¥¨¥ ¢®ªá¥«¨, ¤«ï ®¯â¨¬¨§ æ¨¨ ¬®¤¥«¨
333	mov eax,ebx	322	mov eax,ebx
334	sub eax,edx	323	sub eax,edx
335	stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\	324	stdcall buf2d_vox_obj_create_node, [open_file_vox],ecx,[n_plane],\
336	eax,[k_scale],esi	325	eax,[k_scale],esi
337	@@:	326	@@:
338	inc ecx	327	inc ecx
339	cmp ecx,ebx	328	cmp ecx,ebx
340	jle .cycle_1	329	jle .cycle_1
341	inc edx	330	inc edx
342	cmp edx,ebx	331	cmp edx,ebx
343	jle .cycle_0	332	jle .cycle_0
344	ret	333	ret
345	popad	334	popad
346	endp	335	endp
347		336
348	;description:	337	;description:
349	; äãªæ¨ï ¯à®¢¥àï¥â ã¦® «¨ ®âá¥¨¢ âì ¢®ªá¥«ì á ª®®à¤¨ â ¬¨ [n_plane],ecx,edx	338	; äãªæ¨ï ¯à®¢¥àï¥â ã¦® «¨ ®âá¥¨¢ âì ¢®ªá¥«ì á ª®®à¤¨ â ¬¨ [n_plane],ecx,edx
350	;input:	339	;input:
351	; ebx = max size y - 1	340	; ebx = max size y - 1
352	;output:	341	;output:
353	; eax = buf2d_color if node need	342	; eax = buf2d_color if node need
354	align 4	343	align 4
355	need_node:	344	need_node:
356	mov eax,buf2d_color	345	mov eax,buf2d_color
357	cmp ecx,[btx_min] ;0	346	cmp ecx,[btx_min] ;0
358	jle .end_f	347	jle .end_f
359	cmp ecx,[btx_max] ;0	348	cmp ecx,[btx_max] ;0
360	jge .end_f	349	jge .end_f
361	cmp edx,[bby_min] ;0	350	cmp edx,[bby_min] ;0
362	jle .end_f	351	jle .end_f
363	cmp edx,ebx ;max-1	352	cmp edx,ebx ;max-1
364	jge .end_f	353	jge .end_f
365	push ecx edx	354	push ecx edx
366	stdcall [buf2d_get_pixel], buf_npl_p,ecx,edx ;¯à®¢¥àª ¯à¥¤ë¤ãé¥£® á¥ç¥¨ï	355	stdcall [buf2d_get_pixel], buf_npl_p,ecx,edx ;¯à®¢¥àª ¯à¥¤ë¤ãé¥£® á¥ç¥¨ï
367	cmp eax,buf2d_color	356	cmp eax,buf2d_color
368	je @f	357	je @f
369	stdcall [buf2d_get_pixel], buf_npl_n,ecx,edx ;¯à®¢¥àª ¯®á«¥¤ãîé¥£® á¥ç¥¨ï	358	stdcall [buf2d_get_pixel], buf_npl_n,ecx,edx ;¯à®¢¥àª ¯®á«¥¤ãîé¥£® á¥ç¥¨ï
370	cmp eax,buf2d_color	359	cmp eax,buf2d_color
371	je @f	360	je @f
372	dec ecx	361	dec ecx
373	stdcall [buf2d_get_pixel], edi,ecx,edx	362	stdcall [buf2d_get_pixel], edi,ecx,edx
374	cmp eax,buf2d_color	363	cmp eax,buf2d_color
375	je @f	364	je @f
376	add ecx,2	365	add ecx,2
377	stdcall [buf2d_get_pixel], edi,ecx,edx	366	stdcall [buf2d_get_pixel], edi,ecx,edx
378	cmp eax,buf2d_color	367	cmp eax,buf2d_color
379	je @f	368	je @f
380	dec ecx	369	dec ecx
381	dec edx	370	dec edx
382	stdcall [buf2d_get_pixel], edi,ecx,edx	371	stdcall [buf2d_get_pixel], edi,ecx,edx
383	cmp eax,buf2d_color	372	cmp eax,buf2d_color
384	je @f	373	je @f
385	add edx,2	374	add edx,2
386	stdcall [buf2d_get_pixel], edi,ecx,edx	375	stdcall [buf2d_get_pixel], edi,ecx,edx
387	;cmp eax,buf2d_color	376	;cmp eax,buf2d_color
388	;je @f	377	;je @f
389	@@:	378	@@:
390	pop edx ecx	379	pop edx ecx
391	.end_f:	380	.end_f:
392	ret	381	ret
393		382
394	align 4	383	align 4
395	draw_window:	384	draw_window:
396	pushad	385	pushad
397	mcall 12,1	386	mcall SF_REDRAW,SSF_BEGIN_DRAW
398		387
399	; * à¨á®¢ ¨¥ £« ¢®£® ®ª (¢ë¯®«ï¥âáï 1 à § ¯à¨ § ¯ãáª¥) *	-
400	xor eax,eax	388	; * à¨á®¢ ¨¥ £« ¢®£® ®ª (¢ë¯®«ï¥âáï 1 à § ¯à¨ § ¯ãáª¥) *
401	mov edx,[sc.work]	389	mov edx,[sc.work]
402	or edx,(3 shl 24)+0x30000000	390	or edx,(3 shl 24)+0x30000000
403	mcall ,(20 shl 16)+410,(20 shl 16)+520,,,caption	391	mcall SF_CREATE_WINDOW,(20 shl 16)+410,(20 shl 16)+520,,,caption
404		392
405	; * á®§¤ ¨¥ ª®¯®ª ¯ ¥«ì *	393	; * á®§¤ ¨¥ ª®¯®ª ¯ ¥«ì *
406	mov esi,[sc.work_button]	394	mov esi,[sc.work_button]
407	mcall 8,(5 shl 16)+20,(5 shl 16)+20,3	395	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3
408		396
409	mov ebx,(30 shl 16)+20	397	mov ebx,(30 shl 16)+20
410	mov edx,4	398	mov edx,4
411	int 0x40	399	int 0x40
412		400
413	mov ebx,(55 shl 16)+20	401	mov ebx,(55 shl 16)+20
414	mov edx,5	402	mov edx,5
415	int 0x40	403	int 0x40
416		404
417	mov ebx,(85 shl 16)+20	405	mov ebx,(85 shl 16)+20
418	mov edx,6	406	mov edx,6
419	int 0x40	407	int 0x40
420		408
421	add ebx,25 shl 16	409	add ebx,25 shl 16
422	mov edx,7	410	mov edx,7
423	int 0x40	411	int 0x40
424		412
425	add ebx,25 shl 16	413	add ebx,25 shl 16
426	mov edx,8	414	mov edx,8
427	int 0x40	415	int 0x40
428		416
429	add ebx,25 shl 16	417	add ebx,25 shl 16
430	mov edx,9	418	mov edx,9
431	int 0x40	419	int 0x40
432		420
433	add ebx,25 shl 16	421	add ebx,25 shl 16
434	mov edx,10	422	mov edx,10
435	int 0x40	423	int 0x40
436		424
437	add ebx,25 shl 16	425	add ebx,25 shl 16
438	mov edx,11	426	mov edx,11
439	int 0x40	427	int 0x40
440		428
441	add ebx,25 shl 16	429	add ebx,25 shl 16
442	mov edx,12	430	mov edx,12
443	int 0x40	431	int 0x40
444		432
445	; * à¨á®¢ ¨¥ ¨ª®®ª ª®¯ª å *	433	; * à¨á®¢ ¨¥ ¨ª®®ª ª®¯ª å *
446	mov edx,(7 shl 16)+7 ;icon new	434	mov edx,(7 shl 16)+7 ;icon new
447	mcall 7,[image_data_toolbar],(16 shl 16)+16	435	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16
448		436
449	add ebx,IMAGE_TOOLBAR_ICON_SIZE	437	add ebx,IMAGE_TOOLBAR_ICON_SIZE
450	add edx,(25 shl 16) ;icon open	438	add edx,(25 shl 16) ;icon open
451	int 0x40	439	int 0x40
452	add ebx,IMAGE_TOOLBAR_ICON_SIZE	440	add ebx,IMAGE_TOOLBAR_ICON_SIZE
453	add edx,(25 shl 16) ;icon save	441	add edx,(25 shl 16) ;icon save
454	int 0x40	442	int 0x40
455		443
456	add ebx,IMAGE_TOOLBAR_ICON_SIZE	444	add ebx,IMAGE_TOOLBAR_ICON_SIZE
457	add edx,(30 shl 16) ;	445	add edx,(30 shl 16) ;
458	int 0x40	446	int 0x40
459	add ebx,IMAGE_TOOLBAR_ICON_SIZE	447	add ebx,IMAGE_TOOLBAR_ICON_SIZE
460	add edx,(25 shl 16) ;	448	add edx,(25 shl 16) ;
461	int 0x40	449	int 0x40
462	add ebx,IMAGE_TOOLBAR_ICON_SIZE	450	add ebx,IMAGE_TOOLBAR_ICON_SIZE
463	add edx,(25 shl 16) ;	451	add edx,(25 shl 16) ;
464	int 0x40	452	int 0x40
465	add ebx,IMAGE_TOOLBAR_ICON_SIZE	453	add ebx,IMAGE_TOOLBAR_ICON_SIZE
466	add edx,(25 shl 16) ;	454	add edx,(25 shl 16) ;
467	int 0x40	455	int 0x40
468	add ebx,IMAGE_TOOLBAR_ICON_SIZE	456	add ebx,IMAGE_TOOLBAR_ICON_SIZE
469	add edx,(25 shl 16) ;	457	add edx,(25 shl 16) ;
470	int 0x40	458	int 0x40
471	add ebx,IMAGE_TOOLBAR_ICON_SIZE	459	add ebx,IMAGE_TOOLBAR_ICON_SIZE
472	add edx,(25 shl 16) ;	460	add edx,(25 shl 16) ;
473	int 0x40	461	int 0x40
474	add ebx,IMAGE_TOOLBAR_ICON_SIZE	462	add ebx,IMAGE_TOOLBAR_ICON_SIZE
475	add edx,(25 shl 16) ;	463	add edx,(25 shl 16) ;
476	int 0x40	464	int 0x40
477		465
478	call draw_buffers	466	call draw_buffers
479	call draw_pok	467	call draw_pok
480		468
481	mcall 12,2	469	mcall SF_REDRAW,SSF_END_DRAW
482	popad	470	popad
483	ret	471	ret
484		472
485	align 4	473	align 4
486	draw_buffers:	474	draw_buffers:
487	; * à¨á®¢ ¨¥ ¡ãä¥à *	475	; * à¨á®¢ ¨¥ ¡ãä¥à *
488	stdcall [buf2d_draw], buf_0	476	stdcall [buf2d_draw], buf_0
489	stdcall [buf2d_draw], buf_i0	477	stdcall [buf2d_draw], buf_i0
490	stdcall [buf2d_draw], buf_i1	478	stdcall [buf2d_draw], buf_i1
491	stdcall [buf2d_draw], buf_i2	479	stdcall [buf2d_draw], buf_i2
492	ret	480	ret
493		481
494	align 4	482	align 4
495	draw_pok:	483	draw_pok:
496	;®¡®¢«¥¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©«	484	;®¡®¢«¥¨¥ ¯®¤¯¨á¨ à §¬¥à ä ©«
497	mov edi,txt_f_size.size	485	mov edi,txt_f_size.size
498	mov eax,dword[vox_obj_size]	486	mov eax,dword[vox_obj_size]
499	mov ebx,txt_pref	487	mov ebx,txt_pref

Subversion Repositories Kolibri OS

(root)/programs/media/voxel_editor/utilites/vox_creator.asm – Rev 5388 → 6175