WebSVN – Kolibri OS – Diff – /programs/develop/info3ds/info_wnd_coords.inc


;
; ¢ íâ®¬ ä ©«¥ á®¡à ­ë äã­ªæ¨¨ ­ã¦­ë¥ ¤«ï á®§¤ ­¨ï ¨
; à ¡®âë ®ª­  á ª®®à¤¨­ â ¬¨ ¢¥àè¨­
;
 
prop_wnd_width  equ 340 ;è¨à¨­  ®ª­  á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ 
prop_wnd_height equ 460 ;¢ëá®â  ®ª­  á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ 
3d_wnd_l equ   5 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á«¥¢ 
3d_wnd_t equ  23 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à  á¢¥àåã
3d_wnd_w equ 320
3d_wnd_h equ 240
SIZE_ONE_FLOAT equ 14
MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)
 
prop_wnd_run db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  â¥¬ çâ®-¡ë ­¥ § ¯ãáª âì ¡®«ìè¥ 1-£® ®ª­  á® á¢®©áâ¢ ¬¨ ®¤­®¢à¥¬¥­­®
 
txt_q db '?',0
txt_space:
	db SIZE_ONE_FLOAT dup(' ')
.end:
	db 0
 
obj_point: ;¤®¡ ¢«ï¥¬ë© ®¡ê¥ªâ
	dd 0   ;ãª § â¥«ì
.text:
	rb MAX_OBJECT_SIZE
 
if lang eq ru
txt_select_vert: db 'ë¡à ­®: '
else
txt_select_vert: db 'Select: '
end if
.count:
dq 0,0
 
;¤ ­®¥ ®ª­® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï äã­ªæ¨¥© but_wnd_coords
align 4
prop_start:
pushad
	mcall SF_SET_EVENTS_MASK,0x27 ;¬ áª  ®¦¨¤ ¥¬ëå á®¡ëâ¨©
	inc byte[prop_wnd_run]
	mov dword[w_scr_t3.type],1
	mov edi,o3d
	stdcall obj_clear_param, edi
	call mnu_reset_settings
 
	stdcall [tl_node_get_data],tree1
	xor edx,edx
	mov dword[capt_p],txt_q
	cmp eax,0
	je .no_points
		mov ebx,[eax] ;¯®«ãç ¥¬ §­ ç¥­¨¥ á¤¢¨£  ¢ë¡à ­­®£® ¡«®ª 
		add ebx,[open_file_data]
 
		cmp word[ebx],CHUNK_OBJBLOCK
		jne .end_oblo
			mov dword[capt_p],txt_4000
			stdcall obj_init,edi
			jmp .no_points
		.end_oblo:
		cmp word[ebx],CHUNK_TRIMESH
		jne .end_trim
			mov dword[capt_p],txt_4100
			stdcall obj_init,edi
			jmp .no_points
		.end_trim:
		cmp word[ebx],CHUNK_VERTLIST
		jne .end_vlist
			mov dword[capt_p],txt_4110
			stdcall obj_init,edi
			jmp .no_points
		.end_vlist:
		cmp word[ebx],CHUNK_TRACKPIVOT
		jne @f
			inc edx
			add ebx,6
			mov dword[capt_p],txt_b013
			jmp .set_points
		@@:
		cmp word[ebx],0xb014
		jne @f
			mov edx,2
			add ebx,6
			mov dword[capt_p],txt_b014
			;jmp .set_points
		@@:
		.set_points:
		mov [edi+obj_3d.poi_data],ebx
		mov [edi+obj_3d.poi_count],edx
	.no_points:
 
	;­ áâà®©ª  á¯¨áª  ®¡ê¥ªâ®¢
	mov ebx,[edi+obj_3d.poi_data]
	mov dword[tree3.info_max_count],2
	mov edx,[edi+obj_3d.poi_count]
	add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® ã§«®¢, à ¢­®¥ ª®««¨ç¥áâ¢ã â®ç¥ª (+2 ­  ­ ç «® ¨ ª®­¥æ á¯¨áª )
	stdcall dword[tl_data_init], tree3
	mov eax,dword[icon_tl_sys]
	mov dword[tree3.data_img_sys],eax
	mov eax,dword[icon_toolbar]
	mov dword[tree3.data_img],eax
 
	cmp edx,0
	je .no_object
		mov word[NumberSymbolsAD],5
		finit
		mov dword[w_scr_t3.redraw],0
		.new_point:
			mov dword[obj_point],ebx
			mov dword[obj_point.text],0
			cld
			mov ecx,3
			@@:
				fld dword[ebx]
				fstp qword[Data_Double]
				call DoubleFloat_to_String
				call String_crop_0
				add ebx,4
				stdcall str_len, Data_String
				mov esi,txt_space
				add esi,eax
				cmp esi,txt_space.end
				jl .normal_size
					mov esi,txt_space.end-1 ;¬¨­¨¬ã¬ 1 ¯à®¡¥« ­ã¦­® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ­¥ á«¨¯ «¨áì
				.normal_size:
				stdcall str_cat, obj_point.text,esi
				stdcall str_cat, obj_point.text,Data_String
				loop @b
			stdcall dword[tl_node_add], tree3,(ID_ICON_POINT shl 16),obj_point 
			stdcall dword[tl_cur_next], tree3
			dec edx
			cmp edx,0
			jg .new_point
			mov dword[w_scr_t3.redraw],1
			stdcall dword[tl_cur_beg], tree3
	.no_object:
	stdcall obj_set_sizes, o3d
	stdcall obj_set_normals, o3d
	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ­®¢ª  á¨áâ¥¬­ëå æ¢¥â®¢
	stdcall [edit_box_set_text], edit1, txt_q
	stdcall [edit_box_set_text], edit2, txt_q
	stdcall [edit_box_set_text], edit3, txt_q
	mov eax,0xc0c0c0
	mov ebx,[color_ox]
	shr ebx,2
	and ebx,0x3f3f3f
	add eax,ebx
	mov [edit1.color],eax
	mov eax,0xc0c0c0
	mov ebx,[color_oy]
	shr ebx,2
	and ebx,0x3f3f3f
	add eax,ebx
	mov [edit2.color],eax
	mov eax,0xc0c0c0
	mov ebx,[color_oz]
	shr ebx,2
	and ebx,0x3f3f3f
	add eax,ebx
	mov [edit3.color],eax
popad
	call prop_red_win
 
;­¥ ®âàë¢ âì íâã äã­ªæ¨î ®â ¯à¥¤ë¤ãé¥©
align 4
prop_still:
	pushad
 
	mcall SF_WAIT_EVENT_TIMEOUT,10
	or eax,eax
	jnz @f
		call prop_timer_funct
		jmp .end
	@@:
 
	cmp al,1 ;¨§¬. ¯®«®¦¥­¨¥ ®ª­ 
	jne @f
		call prop_red_win
		jmp .end
	@@:
	cmp al,2
	jne @f
		call prop_key
		jmp .end
	@@:
	cmp al,3
	jz prop_button
	cmp al,6
	jne @f 
		call prop_mouse
	@@:
.end:
	popad
	jmp prop_still
 
align 4
prop_red_win:
pushad
	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
	xor eax,eax
	mov edi,dword[capt_p] ;children window caption
	mov bx,word[procinfo.box.left]
	add bx,word[buf_0.l]
	add bx,5 ;è¨à¨­  ¡®ª®¢®© à ¬ª¨
	shl ebx,16
	mov bx,prop_wnd_width
	mov cx,word[procinfo.box.top]
	add cx,word[buf_0.t]
	shl ecx,16
	mov cx,prop_wnd_height
	mov edx,[sc.work]
	or  edx,0x33000000
	int 0x40
 
	mov esi,[sc.work_button]
	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (266 shl 16)+20, 0x40000003
	mcall , (30 shl 16)+20, (266 shl 16)+20, 0x40000004
 
	mov ebx,[image_data_toolbar]
	add ebx,3*IMAGE_TOOLBAR_ICON_SIZE
	mcall SF_PUT_IMAGE, , (21 shl 16)+21, (5 shl 16)+266 ;load
 
	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
	mov edx,(30 shl 16)+266 ;save
	int 0x40
 
	mov dword[w_scr_t3.all_redraw],1
	stdcall [scrollbar_ver_draw],dword w_scr_t3
	stdcall [tl_draw], tree3
	stdcall [edit_box_draw], edit1
	stdcall [edit_box_draw], edit2
	stdcall [edit_box_draw], edit3
 
	stdcall [kmainmenu_draw], [main_menu]
	stdcall draw_3d, o3d
	mcall SF_REDRAW,SSF_END_DRAW
popad
	ret
 
align 4
proc prop_key uses eax ebx
	mcall SF_GET_KEY
 
	test word [edit1.flags],10b ;ed_focus
	je @f
		stdcall [edit_box_key], edit1
		jmp .end
	@@:
	test word [edit2.flags],10b
	je @f
		stdcall [edit_box_key], edit2
		jmp .end
	@@:
	test word [edit3.flags],10b
	je @f
		stdcall [edit_box_key], edit3
		jmp .end
	@@:
	cmp dword[el_focus], tree3
	jne @f
		stdcall [tl_key], tree3
		jmp .end
	@@:
 
	cmp ah,178 ;Up
	jne @f
		fld dword[angle_x]
		fadd dword[delt_size]
		fstp dword[angle_x]
		stdcall draw_3d, o3d
		jmp .end
	@@:
	cmp ah,177 ;Down
	jne @f
		fld dword[angle_x]
		fsub dword[delt_size]
		fstp dword[angle_x]
		stdcall draw_3d, o3d
		jmp .end
	@@:
	cmp ah,176 ;Left
	jne @f
		fld dword[angle_y]
		fadd dword[delt_size]
		fstp dword[angle_y]
		stdcall draw_3d, o3d
		jmp .end
	@@:
	cmp ah,179 ;Right
	jne @f
		fld dword[angle_y]
		fsub dword[delt_size]
		fstp dword[angle_y]
		stdcall draw_3d, o3d
		;jmp .end
	@@:
	.end:
	ret
endp
 
align 4
prop_mouse:
	push eax ebx
	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
	bt eax,0
	jnc .end_m
		;mouse l. but. move
		cmp dword[mouse_drag],1
		jne .end_m
		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
		mov ebx,eax
		shr ebx,16 ;mouse.x
		cmp ebx,3d_wnd_l
		jg @f
			mov ebx,3d_wnd_l
		@@:
		sub ebx,3d_wnd_l
		cmp ebx,3d_wnd_w
		jle @f
			mov ebx,3d_wnd_w
		@@:
		and eax,0xffff ;mouse.y
		cmp eax,3d_wnd_t
		jg @f
			mov eax,3d_wnd_t
		@@:
		sub eax,3d_wnd_t
		cmp eax,3d_wnd_h
		jle @f
			mov eax,3d_wnd_h
		@@:
		finit
		fild dword[mouse_y]
		mov [mouse_y],eax
		fisub dword[mouse_y]
		fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢­¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x
		fadd dword[angle_x]
		fstp dword[angle_x]
 
		fild dword[mouse_x]
		mov [mouse_x],ebx
		fisub dword[mouse_x]
		fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢­¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y
		fadd dword[angle_y]
		fstp dword[angle_y]
 
		stdcall draw_3d, o3d
		jmp .end_d
	.end_m:
	bt eax,16
	jnc @f
		;mouse l. but. up
		mov dword[mouse_drag],0
		jmp .end_d
	@@:
	bt eax,8
	jnc .end_d
		;mouse l. but. press
		mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
		mov ebx,eax
		shr ebx,16 ;mouse.x
		cmp ebx,3d_wnd_l
		jl .end_d
		sub ebx,3d_wnd_l
		cmp ebx,3d_wnd_w
		jg .end_d
		and eax,0xffff ;mouse.y
		cmp eax,3d_wnd_t
		jl .end_d
		sub eax,3d_wnd_t
		cmp eax,3d_wnd_h
		jg .end_d
		mov dword[mouse_drag],1
		mov dword[mouse_x],ebx
		mov dword[mouse_y],eax
	.end_d:
 
	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
	stdcall [tl_mouse], tree3
	stdcall [edit_box_mouse], edit1
	stdcall [edit_box_mouse], edit2
	stdcall [edit_box_mouse], edit3
	pop ebx eax
	ret
 
align 4
prop_button:
	mcall SF_GET_BUTTON
 
	cmp ah,3
	jne @f
		call get_point_coords
		stdcall draw_3d, o3d
		jmp prop_still.end
	@@:
	cmp ah,4
	jne @f
		push eax ebx ecx edi esi
		stdcall [tl_node_get_data],tree3
		cmp eax,0
		je .no_select_1
			mov ebx,[eax]
			finit
 
			mov esi,string1
			mov edi,Data_String
			cld
			mov ecx,8
			rep movsd
			call String_to_DoubleFloat
			fld  qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
			fstp dword[ebx] ;á®åà ­ï¥¬ ª ª float
 
			mov esi,string2
			mov edi,Data_String
			cld
			mov ecx,8
			rep movsd
			call String_to_DoubleFloat
			fld  qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
			fstp dword[ebx+4] ;á®åà ­ï¥¬ ª ª float
 
			mov esi,string3
			mov edi,Data_String
			cld
			mov ecx,8
			rep movsd
			call String_to_DoubleFloat
			fld  qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
			fstp dword[ebx+8] ;á®åà ­ï¥¬ ª ª float
 
			;®¡­®¢«¥­¨¥ ¨§¬¥­¥­­®£® ã§«  ¢ á¯¨áª¥ tree3 ¨ £« ¢­®£® ®ª­  (¯® â ©¬¥àã)
			mov word[NumberSymbolsAD],5
			mov dword[obj_point],ebx
			mov dword[obj_point.text],0
			cld
			mov ecx,3
			.coord:
				fld dword[ebx]
				fstp qword[Data_Double]
				call DoubleFloat_to_String
				call String_crop_0
				add ebx,4
				stdcall str_len, Data_String
				mov esi,txt_space
				add esi,eax
				cmp esi,txt_space.end
				jl .normal_size
					mov esi,txt_space.end-1 ;¬¨­¨¬ã¬ 1 ¯à®¡¥« ­ã¦­® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ­¥ á«¨¯ «¨áì
				.normal_size:
				stdcall str_cat, obj_point.text,esi
				stdcall str_cat, obj_point.text,Data_String
				loop .coord
			mov byte[obj_point.text],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨­  ¨§¬¥­ï« áì
			stdcall dword[tl_node_set_data], tree3,obj_point
			stdcall dword[tl_draw], tree3
			mov byte[can_save],1 ;¤«ï ¯®ª §  ª­®¯ª¨ '®åà ­¨âì'
			mov dword[offs_last_timer],0 ;¤«ï ®¡­®¢«¥­¨ï ¡«®ª  ¢ â ©¬¥à¥
			stdcall draw_3d, o3d
		.no_select_1:
		pop esi edi ecx ebx eax
		jmp prop_still.end
	@@:
	cmp ah,5
	jne @f
		call mnu_vertexes_on
		jmp prop_still.end
	@@:
	cmp ah,6
	jne @f
		call mnu_edges_on
		jmp prop_still.end
	@@:
	cmp ah,7
	jne @f
		call mnu_faces_on
		jmp prop_still.end
	@@:
	cmp ah,8
	jne @f
		call mnu_light_on_off
		jmp prop_still.end
	@@:
	cmp ah,9
	jne @f
		call mnu_smooth_on_off
		jmp prop_still.end
	@@:
	cmp ah,10
	jne @f
		call mnu_reset_settings
		jmp prop_still.end
	@@:
	cmp ah,11
	jne @f
		call mnu_vertexes_select
		jmp prop_still.end
	@@:
	cmp ah,12
	jne @f
		call mnu_vertexes_deselect
		jmp prop_still.end
	@@:
	cmp ah,13
	jne @f
		call mnu_reset_average_x
		jmp prop_still.end
	@@:
	cmp ah,14
	jne @f
		call mnu_reset_average_y
		jmp prop_still.end
	@@:
	cmp ah,15
	jne @f
		call mnu_reset_average_z
		jmp prop_still.end
	@@:
 
	cmp ah,1
	jne prop_still.end
.exit:
	mov dword[tree3.data_img],0 ;ç¨áâ¨¬ ãª § â¥«¨ ­  ¨ª®­ª¨ çâ®-¡ë ¨å ­¥ ã¤ «¨« ¤¥áâàãªâ®à
	mov dword[tree3.data_img_sys],0 ;â. ª. ®­¨ ¥é¥ ¨á¯®«ì§ãîâìáï ¢ ¤àã£¨å í«¥¬¥­â å
	stdcall dword[tl_data_clear], tree3
	mov edi,o3d
	stdcall mem.Free,[edi+obj_3d.normals_tri_data]
	stdcall mem.Free,[edi+obj_3d.normals_poi_data]
	mov dword[edi+obj_3d.normals_tri_data],0
	mov dword[edi+obj_3d.normals_poi_data],0
	mov byte[prop_wnd_run],0 ;®¡­ã«ï¥¬ áç¥âç¨ª ®ª®­
	mcall SF_TERMINATE_PROCESS ;¢ëå®¤ ¨§ ¯à®£à ¬¬ë
 
align 4
get_point_coords:
	;§ £àã§ª  ª®®à¤¨­ â ¢ editbox-ë
	push eax ebx
	stdcall [tl_node_get_data],tree3
	cmp eax,0
	je @f
		mov ebx,[eax]
		mov word[NumberSymbolsAD],8
		finit
		fld dword[ebx]
		fstp qword[Data_Double]
		call DoubleFloat_to_String
		call String_crop_0
		stdcall [edit_box_set_text], edit1, Data_String
		fld dword[ebx+4]
		fstp qword[Data_Double]
		call DoubleFloat_to_String
		call String_crop_0
		stdcall [edit_box_set_text], edit2, Data_String
		fld dword[ebx+8]
		fstp qword[Data_Double]
		call DoubleFloat_to_String
		call String_crop_0
		stdcall [edit_box_set_text], edit3, Data_String
		stdcall [edit_box_draw], edit1
		stdcall [edit_box_draw], edit2
		stdcall [edit_box_draw], edit3
	@@:
	pop ebx eax
	ret
 
align 4
proc prop_timer_funct uses eax
	;¯à®á¬ âà¨¢ ¥¬ ¢ë¤¥«¥­­ãî ª®®à¤¨­ âã
	stdcall [tl_node_get_data],tree3
	cmp [cursor_last_draw],eax
	je @f
		mov [cursor_last_draw],eax
		stdcall draw_3d, o3d
	@@:
	ret
endp
 
align 4
proc mnu_vertexes_select uses eax ebx
	stdcall [tl_node_get_data],tree3
	cmp eax,0
	je .no_points
	stdcall found_block_data,tree3
	cmp eax,0
	je .no_points
		mov bx,word[eax]
		cmp bx,ID_ICON_POINT_SEL
		je @f
			mov word[eax],ID_ICON_POINT_SEL
			inc dword[obj_poi_sel_c]
			jmp .change
		@@:
			mov word[eax],ID_ICON_POINT
			dec dword[obj_poi_sel_c]
		.change:
			mov eax,[obj_poi_sel_c]
			stdcall convert_int_to_str, txt_select_vert.count,16
	.no_points:
	ret
endp
 
align 4
proc mnu_vertexes_deselect uses eax
	cmp dword[obj_poi_sel_c],0
	je .no_points
	mov dword[obj_poi_sel_c],0
	stdcall [tl_node_poi_get_info], tree3,0
	cmp eax,0
	je .no_points
	@@:
		mov word[eax],ID_ICON_POINT
		stdcall [tl_node_poi_get_next_info], tree3,eax
		cmp eax,0
		jne @b
	.no_points:
	ret
endp
 
align 4
proc mnu_reset_average_x uses eax ebx ecx edx edi
	cmp dword[obj_poi_sel_c],2
	jl .end_select
		finit
		fldz
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel0
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov eax,[eax]
				fadd dword[eax]
				dec ecx
				jz @f
			.next_sel0:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
		fidiv dword[obj_poi_sel_c]
		fstp dword[eax]
		mov edx,[eax]
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel1
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov edi,eax
				mov eax,[eax]
				mov [eax],edx
				stdcall update_tree, edi
				dec ecx
				jz @f
			.next_sel1:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
    .end_select:
	ret
endp
 
align 4
proc mnu_reset_average_y uses eax ebx ecx edx edi
	cmp dword[obj_poi_sel_c],2
	jl .end_select
		finit
		fldz
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel0
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov eax,[eax]
				fadd dword[eax+4]
				dec ecx
				jz @f
			.next_sel0:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
		fidiv dword[obj_poi_sel_c]
		fstp dword[eax+4]
		mov edx,[eax+4]
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel1
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov edi,eax
				mov eax,[eax]
				mov [eax+4],edx
				stdcall update_tree, edi
				dec ecx
				jz @f
			.next_sel1:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
    .end_select:
	ret
endp
 
align 4
proc mnu_reset_average_z uses eax ebx ecx edx edi
	cmp dword[obj_poi_sel_c],2
	jl .end_select
		finit
		fldz
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel0
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov eax,[eax]
				fadd dword[eax+8]
				dec ecx
				jz @f
			.next_sel0:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
		fidiv dword[obj_poi_sel_c]
		fstp dword[eax+8]
		mov edx,[eax+8]
		mov ecx,dword[obj_poi_sel_c]
		stdcall dword[tl_node_poi_get_info], tree3,0
		@@:
			cmp eax,0
			je .end_select
			mov ebx,eax
			cmp word[ebx],ID_ICON_POINT_SEL
			jne .next_sel1
				stdcall [tl_node_poi_get_data], tree3,ebx
				mov edi,eax
				mov eax,[eax]
				mov [eax+8],edx
				stdcall update_tree, edi
				dec ecx
				jz @f
			.next_sel1:
			stdcall dword[tl_node_poi_get_next_info], tree3,ebx
			jmp @b
		@@:
    .end_select:
	ret
endp
 
align 4
proc update_tree h_mem:dword
pushad
	mov edi,[h_mem]
	mov ebx,[edi]
	finit
 
	;®¡­®¢«¥­¨¥ ¨§¬¥­¥­­®£® ã§«  ¢ á¯¨áª¥ tree3 ¨ £« ¢­®£® ®ª­  (¯® â ©¬¥àã)
	mov word[NumberSymbolsAD],5
	mov dword[obj_point.text],0
	cld
	mov ecx,3
	.coord:
		fld dword[ebx]
		fstp qword[Data_Double]
		call DoubleFloat_to_String
		call String_crop_0
		add ebx,4
		stdcall str_len, Data_String
		mov esi,txt_space
		add esi,eax
		cmp esi,txt_space.end
		jl .normal_size
			mov esi,txt_space.end-1 ;¬¨­¨¬ã¬ 1 ¯à®¡¥« ­ã¦­® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ­¥ á«¨¯ «¨áì
		.normal_size:
		stdcall str_cat, obj_point.text,esi
		stdcall str_cat, obj_point.text,Data_String
		loop .coord
	mov esi,obj_point.text
	mov byte[esi],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨­  ¨§¬¥­ï« áì
	mov byte[can_save],1 ;¤«ï ¯®ª §  ª­®¯ª¨ '®åà ­¨âì'
	add edi,4
	mov ecx,MAX_OBJECT_SIZE-4
	rep movsb
popad
	ret
endp
 
align 4
angle_dxm dd 1.7775 ;~ 3d_wnd_w/180 - ¯à¨¡ ¢«¥­¨¥ ã£«®¢ ¯®¢®à®â  áæ¥­ë ¯à¨ ¢à é¥­¨¨ ¬ëè¥©
angle_dym dd 1.3335 ;~ 3d_wnd_h/180
ratio dd 1.3333 ;~ 3d_wnd_w/3d_wnd_h
cursor_last_draw dd 0 ;¯®«®¦¥­¨¥ ªãàá®à  ¯à¨ ¯®á«¥¤­¥© ¯à®à¨á®¢ª¥ 3d ®ª­ 
capt_p dd 0
 
;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ìáª®¬ ä ©«¥
tree3 tree_list MAX_OBJECT_SIZE,3, tl_key_no_edit+tl_list_box_mode,\
	16,16, 0xffffff,0xb0d0ff,0x400040, 5,290,303,140, 16, 4,0, el_focus,\
	w_scr_t3,get_point_coords
 
edit1 edit_box 80,  76, 269, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 32, string1, mouse_dd, 0
edit2 edit_box 80, 160, 269, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 32, string2, mouse_dd, 0
edit3 edit_box 80, 244, 269, 0xd0ffd0, 0xff, 0x80ff, 0, 0x8000, 32, string3, mouse_dd, 0
editboxes_end:
 
string1 rb 34
string2 rb 34
string3 rb 34
 
align 4
w_scr_t3 scrollbar 16, 0,0,0, 15, 100,0,0, 0,0,0, 1

Rev 7128	Rev 8288
1	;	1	;
2	; ¢ íâ®¬ ä ©«¥ á®¡à ë äãªæ¨¨ ã¦ë¥ ¤«ï á®§¤ ¨ï ¨	2	; ¢ íâ®¬ ä ©«¥ á®¡à ë äãªæ¨¨ ã¦ë¥ ¤«ï á®§¤ ¨ï ¨
3	; à ¡®âë ®ª á ª®®à¤¨ â ¬¨ ¢¥àè¨	3	; à ¡®âë ®ª á ª®®à¤¨ â ¬¨ ¢¥àè¨
4	;	4	;
5		5
6	prop_wnd_width equ 340 ;è¨à¨ ®ª á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ	6	prop_wnd_width equ 340 ;è¨à¨ ®ª á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ
7	prop_wnd_height equ 460 ;¢ëá®â ®ª á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ	7	prop_wnd_height equ 460 ;¢ëá®â ®ª á® á¢®©áâ¢ ¬¨ ®¡ê¥ªâ
8	3d_wnd_l equ 5 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à á«¥¢	8	3d_wnd_l equ 5 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à á«¥¢
9	3d_wnd_t equ 23 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à á¢¥àåã	9	3d_wnd_t equ 23 ;®âáâã¯ ¤«ï tinygl ¡ãä¥à á¢¥àåã
10	3d_wnd_w equ 320	10	3d_wnd_w equ 320
11	3d_wnd_h equ 240	11	3d_wnd_h equ 240
12	SIZE_ONE_FLOAT equ 14	12	SIZE_ONE_FLOAT equ 14
13	MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)	13	MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)
14		14
15	prop_wnd_run db 0 ;¯¥à¥¬¥ ï á«¥¤ïé ï § â¥¬ çâ®-¡ë ¥ § ¯ãáª âì ¡®«ìè¥ 1-£® ®ª á® á¢®©áâ¢ ¬¨ ®¤®¢à¥¬¥®	15	prop_wnd_run db 0 ;¯¥à¥¬¥ ï á«¥¤ïé ï § â¥¬ çâ®-¡ë ¥ § ¯ãáª âì ¡®«ìè¥ 1-£® ®ª á® á¢®©áâ¢ ¬¨ ®¤®¢à¥¬¥®
16		16
17	txt_q db '?',0	17	txt_q db '?',0
18	txt_space:	18	txt_space:
19	db SIZE_ONE_FLOAT dup(' ')	19	db SIZE_ONE_FLOAT dup(' ')
20	.end:	20	.end:
21	db 0	21	db 0
22		22
23	obj_point: ;¤®¡ ¢«ï¥¬ë© ®¡ê¥ªâ	23	obj_point: ;¤®¡ ¢«ï¥¬ë© ®¡ê¥ªâ
24	dd 0 ;ãª § â¥«ì	24	dd 0 ;ãª § â¥«ì
25	.text:	25	.text:
26	rb MAX_OBJECT_SIZE	26	rb MAX_OBJECT_SIZE
27		27
28	if lang eq ru	28	if lang eq ru
29	txt_select_vert: db 'ë¡à ®: '	29	txt_select_vert: db 'ë¡à ®: '
30	else	30	else
31	txt_select_vert: db 'Select: '	31	txt_select_vert: db 'Select: '
32	end if	32	end if
33	.count:	33	.count:
34	dq 0,0	34	dq 0,0
35		35
36	;¤ ®¥ ®ª® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï äãªæ¨¥© but_wnd_coords	36	;¤ ®¥ ®ª® (¯à®æ¥áá) ¢ë§ë¢ ¥âìáï äãªæ¨¥© but_wnd_coords
37	align 4	37	align 4
38	prop_start:	38	prop_start:
39	pushad	39	pushad
40	mcall SF_SET_EVENTS_MASK,0x27 ;¬ áª ®¦¨¤ ¥¬ëå á®¡ëâ¨©	40	mcall SF_SET_EVENTS_MASK,0x27 ;¬ áª ®¦¨¤ ¥¬ëå á®¡ëâ¨©
41	inc byte[prop_wnd_run]	41	inc byte[prop_wnd_run]
42	mov dword[w_scr_t3.type],1	42	mov dword[w_scr_t3.type],1
43	mov edi,o3d	43	mov edi,o3d
44	stdcall obj_clear_param, edi	44	stdcall obj_clear_param, edi
45	call mnu_reset_settings	45	call mnu_reset_settings
46		46
47	stdcall [tl_node_get_data],tree1	47	stdcall [tl_node_get_data],tree1
48	xor edx,edx	48	xor edx,edx
49	mov dword[capt_p],txt_q	49	mov dword[capt_p],txt_q
50	cmp eax,0	50	cmp eax,0
51	je .no_points	51	je .no_points
52	mov ebx,[eax] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª	52	mov ebx,[eax] ;¯®«ãç ¥¬ § ç¥¨¥ á¤¢¨£ ¢ë¡à ®£® ¡«®ª
53	add ebx,[open_file_data]	53	add ebx,[open_file_data]
54		54
55	cmp word[ebx],CHUNK_OBJBLOCK	55	cmp word[ebx],CHUNK_OBJBLOCK
56	jne .end_oblo	56	jne .end_oblo
57	mov dword[capt_p],txt_4000	57	mov dword[capt_p],txt_4000
58	stdcall obj_init,edi	58	stdcall obj_init,edi
59	jmp .no_points	59	jmp .no_points
60	.end_oblo:	60	.end_oblo:
61	cmp word[ebx],CHUNK_TRIMESH	61	cmp word[ebx],CHUNK_TRIMESH
62	jne .end_trim	62	jne .end_trim
63	mov dword[capt_p],txt_4100	63	mov dword[capt_p],txt_4100
64	stdcall obj_init,edi	64	stdcall obj_init,edi
65	jmp .no_points	65	jmp .no_points
66	.end_trim:	66	.end_trim:
67	cmp word[ebx],CHUNK_VERTLIST	67	cmp word[ebx],CHUNK_VERTLIST
68	jne .end_vlist	68	jne .end_vlist
69	mov dword[capt_p],txt_4110	69	mov dword[capt_p],txt_4110
70	stdcall obj_init,edi	70	stdcall obj_init,edi
71	jmp .no_points	71	jmp .no_points
72	.end_vlist:	72	.end_vlist:
73	cmp word[ebx],CHUNK_TRACKPIVOT	73	cmp word[ebx],CHUNK_TRACKPIVOT
74	jne @f	74	jne @f
75	inc edx	75	inc edx
76	add ebx,6	76	add ebx,6
77	mov dword[capt_p],txt_b013	77	mov dword[capt_p],txt_b013
78	jmp .set_points	78	jmp .set_points
79	@@:	79	@@:
80	cmp word[ebx],0xb014	80	cmp word[ebx],0xb014
81	jne @f	81	jne @f
82	mov edx,2	82	mov edx,2
83	add ebx,6	83	add ebx,6
84	mov dword[capt_p],txt_b014	84	mov dword[capt_p],txt_b014
85	;jmp .set_points	85	;jmp .set_points
86	@@:	86	@@:
87	.set_points:	87	.set_points:
88	mov [edi+obj_3d.poi_data],ebx	88	mov [edi+obj_3d.poi_data],ebx
89	mov [edi+obj_3d.poi_count],edx	89	mov [edi+obj_3d.poi_count],edx
90	.no_points:	90	.no_points:
91		91
92	; áâà®©ª á¯¨áª ®¡ê¥ªâ®¢	92	; áâà®©ª á¯¨áª ®¡ê¥ªâ®¢
93	mov ebx,[edi+obj_3d.poi_data]	93	mov ebx,[edi+obj_3d.poi_data]
94	mov dword[tree3.info_max_count],2	94	mov dword[tree3.info_max_count],2
95	mov edx,[edi+obj_3d.poi_count]	95	mov edx,[edi+obj_3d.poi_count]
96	add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® ã§«®¢, à ¢®¥ ª®««¨ç¥áâ¢ã â®ç¥ª (+2 ç «® ¨ ª®¥æ á¯¨áª )	96	add dword[tree3.info_max_count],edx ;áâ ¢¨¬ ç¨á«® ã§«®¢, à ¢®¥ ª®««¨ç¥áâ¢ã â®ç¥ª (+2 ç «® ¨ ª®¥æ á¯¨áª )
97	stdcall dword[tl_data_init], tree3	97	stdcall dword[tl_data_init], tree3
98	mov eax,dword[icon_tl_sys]	98	mov eax,dword[icon_tl_sys]
99	mov dword[tree3.data_img_sys],eax	99	mov dword[tree3.data_img_sys],eax
100	mov eax,dword[icon_toolbar]	100	mov eax,dword[icon_toolbar]
101	mov dword[tree3.data_img],eax	101	mov dword[tree3.data_img],eax
102		102
103	cmp edx,0	103	cmp edx,0
104	je .no_object	104	je .no_object
105	mov word[NumberSymbolsAD],5	105	mov word[NumberSymbolsAD],5
106	finit	106	finit
107	mov dword[w_scr_t3.redraw],0	107	mov dword[w_scr_t3.redraw],0
108	.new_point:	108	.new_point:
109	mov dword[obj_point],ebx	109	mov dword[obj_point],ebx
110	mov dword[obj_point.text],0	110	mov dword[obj_point.text],0
111	cld	111	cld
112	mov ecx,3	112	mov ecx,3
113	@@:	113	@@:
114	fld dword[ebx]	114	fld dword[ebx]
115	fstp qword[Data_Double]	115	fstp qword[Data_Double]
116	call DoubleFloat_to_String	116	call DoubleFloat_to_String
117	call String_crop_0	117	call String_crop_0
118	add ebx,4	118	add ebx,4
119	stdcall str_len, Data_String	119	stdcall str_len, Data_String
120	mov esi,txt_space	120	mov esi,txt_space
121	add esi,eax	121	add esi,eax
122	cmp esi,txt_space.end	122	cmp esi,txt_space.end
123	jl .normal_size	123	jl .normal_size
124	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì	124	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì
125	.normal_size:	125	.normal_size:
126	stdcall str_cat, obj_point.text,esi	126	stdcall str_cat, obj_point.text,esi
127	stdcall str_cat, obj_point.text,Data_String	127	stdcall str_cat, obj_point.text,Data_String
128	loop @b	128	loop @b
129	stdcall dword[tl_node_add], tree3,(ID_ICON_POINT shl 16),obj_point	129	stdcall dword[tl_node_add], tree3,(ID_ICON_POINT shl 16),obj_point
130	stdcall dword[tl_cur_next], tree3	130	stdcall dword[tl_cur_next], tree3
131	dec edx	131	dec edx
132	cmp edx,0	132	cmp edx,0
133	jg .new_point	133	jg .new_point
134	mov dword[w_scr_t3.redraw],1	134	mov dword[w_scr_t3.redraw],1
135	stdcall dword[tl_cur_beg], tree3	135	stdcall dword[tl_cur_beg], tree3
136	.no_object:	136	.no_object:
137	stdcall obj_set_sizes, o3d	137	stdcall obj_set_sizes, o3d
138	stdcall obj_set_normals, o3d	138	stdcall obj_set_normals, o3d
139	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ®¢ª á¨áâ¥¬ëå æ¢¥â®¢	139	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ®¢ª á¨áâ¥¬ëå æ¢¥â®¢
140	stdcall [edit_box_set_text], edit1, txt_q	140	stdcall [edit_box_set_text], edit1, txt_q
141	stdcall [edit_box_set_text], edit2, txt_q	141	stdcall [edit_box_set_text], edit2, txt_q
142	stdcall [edit_box_set_text], edit3, txt_q	142	stdcall [edit_box_set_text], edit3, txt_q
143	mov eax,0xc0c0c0	143	mov eax,0xc0c0c0
144	mov ebx,[color_ox]	144	mov ebx,[color_ox]
145	shr ebx,2	145	shr ebx,2
146	and ebx,0x3f3f3f	146	and ebx,0x3f3f3f
147	add eax,ebx	147	add eax,ebx
148	mov [edit1.color],eax	148	mov [edit1.color],eax
149	mov eax,0xc0c0c0	149	mov eax,0xc0c0c0
150	mov ebx,[color_oy]	150	mov ebx,[color_oy]
151	shr ebx,2	151	shr ebx,2
152	and ebx,0x3f3f3f	152	and ebx,0x3f3f3f
153	add eax,ebx	153	add eax,ebx
154	mov [edit2.color],eax	154	mov [edit2.color],eax
155	mov eax,0xc0c0c0	155	mov eax,0xc0c0c0
156	mov ebx,[color_oz]	156	mov ebx,[color_oz]
157	shr ebx,2	157	shr ebx,2
158	and ebx,0x3f3f3f	158	and ebx,0x3f3f3f
159	add eax,ebx	159	add eax,ebx
160	mov [edit3.color],eax	160	mov [edit3.color],eax
161	popad	161	popad
162	call prop_red_win	162	call prop_red_win
163		163
164	;¥ ®âàë¢ âì íâã äãªæ¨î ®â ¯à¥¤ë¤ãé¥©	164	;¥ ®âàë¢ âì íâã äãªæ¨î ®â ¯à¥¤ë¤ãé¥©
165	align 4	165	align 4
166	prop_still:	166	prop_still:
167	pushad	167	pushad
168		168
169	mcall SF_WAIT_EVENT_TIMEOUT,10	169	mcall SF_WAIT_EVENT_TIMEOUT,10
170	or eax,eax	170	or eax,eax
171	jnz @f	171	jnz @f
172	call prop_timer_funct	172	call prop_timer_funct
173	jmp .end	173	jmp .end
174	@@:	174	@@:
175		175
176	cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª	176	cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
177	jne @f	177	jne @f
178	call prop_red_win	178	call prop_red_win
179	jmp .end	179	jmp .end
180	@@:	180	@@:
181	cmp al,2	181	cmp al,2
182	jne @f	182	jne @f
183	call prop_key	183	call prop_key
184	jmp .end	184	jmp .end
185	@@:	185	@@:
186	cmp al,3	186	cmp al,3
187	jz prop_button	187	jz prop_button
188	cmp al,6	188	cmp al,6
189	jne @f	189	jne @f
190	call prop_mouse	190	call prop_mouse
191	@@:	191	@@:
192	.end:	192	.end:
193	popad	193	popad
194	jmp prop_still	194	jmp prop_still
195		195
196	align 4	196	align 4
197	prop_red_win:	197	prop_red_win:
198	pushad	198	pushad
199	mcall SF_REDRAW,SSF_BEGIN_DRAW	199	mcall SF_REDRAW,SSF_BEGIN_DRAW
200		200
201	xor eax,eax	201	xor eax,eax
202	mov edi,dword[capt_p] ;children window caption	202	mov edi,dword[capt_p] ;children window caption
203	mov bx,word[procinfo.box.left]	203	mov bx,word[procinfo.box.left]
204	add bx,word[buf_0.l]	204	add bx,word[buf_0.l]
205	add bx,5 ;è¨à¨ ¡®ª®¢®© à ¬ª¨	205	add bx,5 ;è¨à¨ ¡®ª®¢®© à ¬ª¨
206	shl ebx,16	206	shl ebx,16
207	mov bx,prop_wnd_width	207	mov bx,prop_wnd_width
208	mov cx,word[procinfo.box.top]	208	mov cx,word[procinfo.box.top]
209	add cx,word[buf_0.t]	209	add cx,word[buf_0.t]
210	shl ecx,16	210	shl ecx,16
211	mov cx,prop_wnd_height	211	mov cx,prop_wnd_height
212	mov edx,[sc.work]	212	mov edx,[sc.work]
213	or edx,0x33000000	213	or edx,0x33000000
214	int 0x40	214	int 0x40
215		215
216	mov esi,[sc.work_button]	216	mov esi,[sc.work_button]
217	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (266 shl 16)+20, 0x40000003	217	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (266 shl 16)+20, 0x40000003
218	mcall , (30 shl 16)+20, (266 shl 16)+20, 0x40000004	218	mcall , (30 shl 16)+20, (266 shl 16)+20, 0x40000004
219		219
220	mov ebx,[image_data_toolbar]	220	mov ebx,[image_data_toolbar]
221	add ebx,3*IMAGE_TOOLBAR_ICON_SIZE	221	add ebx,3*IMAGE_TOOLBAR_ICON_SIZE
222	mcall SF_PUT_IMAGE, , (21 shl 16)+21, (5 shl 16)+266 ;load	222	mcall SF_PUT_IMAGE, , (21 shl 16)+21, (5 shl 16)+266 ;load
223		223
224	sub ebx,IMAGE_TOOLBAR_ICON_SIZE	224	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
225	mov edx,(30 shl 16)+266 ;save	225	mov edx,(30 shl 16)+266 ;save
226	int 0x40	226	int 0x40
227		227
228	mov dword[w_scr_t3.all_redraw],1	228	mov dword[w_scr_t3.all_redraw],1
229	stdcall [scrollbar_ver_draw],dword w_scr_t3	229	stdcall [scrollbar_ver_draw],dword w_scr_t3
230	stdcall [tl_draw], tree3	230	stdcall [tl_draw], tree3
231	stdcall [edit_box_draw], edit1	231	stdcall [edit_box_draw], edit1
232	stdcall [edit_box_draw], edit2	232	stdcall [edit_box_draw], edit2
233	stdcall [edit_box_draw], edit3	233	stdcall [edit_box_draw], edit3
234		234
235	stdcall [kmainmenu_draw], [main_menu]	235	stdcall [kmainmenu_draw], [main_menu]
236	stdcall draw_3d, o3d	236	stdcall draw_3d, o3d
237	mcall SF_REDRAW,SSF_END_DRAW	237	mcall SF_REDRAW,SSF_END_DRAW
238	popad	238	popad
239	ret	239	ret
240		240
241	align 4	241	align 4
242	proc prop_key uses eax ebx	242	proc prop_key uses eax ebx
243	mcall SF_GET_KEY	243	mcall SF_GET_KEY
244		244
245	test word [edit1.flags],10b ;ed_focus	245	test word [edit1.flags],10b ;ed_focus
246	je @f	246	je @f
247	stdcall [edit_box_key], edit1	247	stdcall [edit_box_key], edit1
248	jmp .end	248	jmp .end
249	@@:	249	@@:
250	test word [edit2.flags],10b	250	test word [edit2.flags],10b
251	je @f	251	je @f
252	stdcall [edit_box_key], edit2	252	stdcall [edit_box_key], edit2
253	jmp .end	253	jmp .end
254	@@:	254	@@:
255	test word [edit3.flags],10b	255	test word [edit3.flags],10b
256	je @f	256	je @f
257	stdcall [edit_box_key], edit3	257	stdcall [edit_box_key], edit3
258	jmp .end	258	jmp .end
259	@@:	259	@@:
260	cmp dword[el_focus], tree3	260	cmp dword[el_focus], tree3
261	jne @f	261	jne @f
262	stdcall [tl_key], tree3	262	stdcall [tl_key], tree3
263	jmp .end	263	jmp .end
264	@@:	264	@@:
265		265
266	cmp ah,178 ;Up	266	cmp ah,178 ;Up
267	jne @f	267	jne @f
268	fld dword[angle_x]	268	fld dword[angle_x]
269	fadd dword[delt_size]	269	fadd dword[delt_size]
270	fstp dword[angle_x]	270	fstp dword[angle_x]
271	stdcall draw_3d, o3d	271	stdcall draw_3d, o3d
272	jmp .end	272	jmp .end
273	@@:	273	@@:
274	cmp ah,177 ;Down	274	cmp ah,177 ;Down
275	jne @f	275	jne @f
276	fld dword[angle_x]	276	fld dword[angle_x]
277	fsub dword[delt_size]	277	fsub dword[delt_size]
278	fstp dword[angle_x]	278	fstp dword[angle_x]
279	stdcall draw_3d, o3d	279	stdcall draw_3d, o3d
280	jmp .end	280	jmp .end
281	@@:	281	@@:
282	cmp ah,176 ;Left	282	cmp ah,176 ;Left
283	jne @f	283	jne @f
284	fld dword[angle_y]	284	fld dword[angle_y]
285	fadd dword[delt_size]	285	fadd dword[delt_size]
286	fstp dword[angle_y]	286	fstp dword[angle_y]
287	stdcall draw_3d, o3d	287	stdcall draw_3d, o3d
288	jmp .end	288	jmp .end
289	@@:	289	@@:
290	cmp ah,179 ;Right	290	cmp ah,179 ;Right
291	jne @f	291	jne @f
292	fld dword[angle_y]	292	fld dword[angle_y]
293	fsub dword[delt_size]	293	fsub dword[delt_size]
294	fstp dword[angle_y]	294	fstp dword[angle_y]
295	stdcall draw_3d, o3d	295	stdcall draw_3d, o3d
296	;jmp .end	296	;jmp .end
297	@@:	297	@@:
298	.end:	298	.end:
299	ret	299	ret
300	endp	300	endp
301		301
302	align 4	302	align 4
303	prop_mouse:	303	prop_mouse:
304	push eax ebx	304	push eax ebx
305	mcall SF_MOUSE_GET,SSF_BUTTON_EXT	305	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
306	bt eax,0	306	bt eax,0
307	jnc .end_m	307	jnc .end_m
308	;mouse l. but. move	308	;mouse l. but. move
309	cmp dword[mouse_drag],1	309	cmp dword[mouse_drag],1
310	jne .end_m	310	jne .end_m
311	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords	311	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
312	mov ebx,eax	312	mov ebx,eax
313	shr ebx,16 ;mouse.x	313	shr ebx,16 ;mouse.x
314	cmp ebx,3d_wnd_l	314	cmp ebx,3d_wnd_l
315	jg @f	315	jg @f
316	mov ebx,3d_wnd_l	316	mov ebx,3d_wnd_l
317	@@:	317	@@:
318	sub ebx,3d_wnd_l	318	sub ebx,3d_wnd_l
319	cmp ebx,3d_wnd_w	319	cmp ebx,3d_wnd_w
320	jle @f	320	jle @f
321	mov ebx,3d_wnd_w	321	mov ebx,3d_wnd_w
322	@@:	322	@@:
323	and eax,0xffff ;mouse.y	323	and eax,0xffff ;mouse.y
324	cmp eax,3d_wnd_t	324	cmp eax,3d_wnd_t
325	jg @f	325	jg @f
326	mov eax,3d_wnd_t	326	mov eax,3d_wnd_t
327	@@:	327	@@:
328	sub eax,3d_wnd_t	328	sub eax,3d_wnd_t
329	cmp eax,3d_wnd_h	329	cmp eax,3d_wnd_h
330	jle @f	330	jle @f
331	mov eax,3d_wnd_h	331	mov eax,3d_wnd_h
332	@@:	332	@@:
333	finit	333	finit
334	fild dword[mouse_y]	334	fild dword[mouse_y]
335	mov [mouse_y],eax	335	mov [mouse_y],eax
336	fisub dword[mouse_y]	336	fisub dword[mouse_y]
337	fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x	337	fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x
338	fadd dword[angle_x]	338	fadd dword[angle_x]
339	fstp dword[angle_x]	339	fstp dword[angle_x]
340		340
341	fild dword[mouse_x]	341	fild dword[mouse_x]
342	mov [mouse_x],ebx	342	mov [mouse_x],ebx
343	fisub dword[mouse_x]	343	fisub dword[mouse_x]
344	fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y	344	fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y
345	fadd dword[angle_y]	345	fadd dword[angle_y]
346	fstp dword[angle_y]	346	fstp dword[angle_y]
347		347
348	stdcall draw_3d, o3d	348	stdcall draw_3d, o3d
349	jmp .end_d	349	jmp .end_d
350	.end_m:	350	.end_m:
351	bt eax,16	351	bt eax,16
352	jnc @f	352	jnc @f
353	;mouse l. but. up	353	;mouse l. but. up
354	mov dword[mouse_drag],0	354	mov dword[mouse_drag],0
355	jmp .end_d	355	jmp .end_d
356	@@:	356	@@:
357	bt eax,8	357	bt eax,8
358	jnc .end_d	358	jnc .end_d
359	;mouse l. but. press	359	;mouse l. but. press
360	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords	360	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
361	mov ebx,eax	361	mov ebx,eax
362	shr ebx,16 ;mouse.x	362	shr ebx,16 ;mouse.x
363	cmp ebx,3d_wnd_l	363	cmp ebx,3d_wnd_l
364	jl .end_d	364	jl .end_d
365	sub ebx,3d_wnd_l	365	sub ebx,3d_wnd_l
366	cmp ebx,3d_wnd_w	366	cmp ebx,3d_wnd_w
367	jg .end_d	367	jg .end_d
368	and eax,0xffff ;mouse.y	368	and eax,0xffff ;mouse.y
369	cmp eax,3d_wnd_t	369	cmp eax,3d_wnd_t
370	jl .end_d	370	jl .end_d
371	sub eax,3d_wnd_t	371	sub eax,3d_wnd_t
372	cmp eax,3d_wnd_h	372	cmp eax,3d_wnd_h
373	jg .end_d	373	jg .end_d
374	mov dword[mouse_drag],1	374	mov dword[mouse_drag],1
375	mov dword[mouse_x],ebx	375	mov dword[mouse_x],ebx
376	mov dword[mouse_y],eax	376	mov dword[mouse_y],eax
377	.end_d:	377	.end_d:
378		378
379	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]	379	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
380	stdcall [tl_mouse], tree3	380	stdcall [tl_mouse], tree3
381	stdcall [edit_box_mouse], edit1	381	stdcall [edit_box_mouse], edit1
382	stdcall [edit_box_mouse], edit2	382	stdcall [edit_box_mouse], edit2
383	stdcall [edit_box_mouse], edit3	383	stdcall [edit_box_mouse], edit3
384	pop ebx eax	384	pop ebx eax
385	ret	385	ret
386		386
387	align 4	387	align 4
388	prop_button:	388	prop_button:
389	mcall SF_GET_BUTTON	389	mcall SF_GET_BUTTON
390		390
391	cmp ah,3	391	cmp ah,3
392	jne @f	392	jne @f
393	call get_point_coords	393	call get_point_coords
394	stdcall draw_3d, o3d	394	stdcall draw_3d, o3d
395	jmp prop_still.end	395	jmp prop_still.end
396	@@:	396	@@:
397	cmp ah,4	397	cmp ah,4
398	jne @f	398	jne @f
399	push eax ebx ecx edi esi	399	push eax ebx ecx edi esi
400	stdcall [tl_node_get_data],tree3	400	stdcall [tl_node_get_data],tree3
401	cmp eax,0	401	cmp eax,0
402	je .no_select_1	402	je .no_select_1
403	mov ebx,[eax]	403	mov ebx,[eax]
404	finit	404	finit
405		405
406	mov esi,string1	406	mov esi,string1
407	mov edi,Data_String	407	mov edi,Data_String
408	cld	408	cld
409	mov ecx,8	409	mov ecx,8
410	rep movsd	410	rep movsd
411	call String_to_DoubleFloat	411	call String_to_DoubleFloat
412	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	412	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
413	fstp dword[ebx] ;á®åà ï¥¬ ª ª float	413	fstp dword[ebx] ;á®åà ï¥¬ ª ª float
414		414
415	mov esi,string2	415	mov esi,string2
416	mov edi,Data_String	416	mov edi,Data_String
417	cld	417	cld
418	mov ecx,8	418	mov ecx,8
419	rep movsd	419	rep movsd
420	call String_to_DoubleFloat	420	call String_to_DoubleFloat
421	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	421	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
422	fstp dword[ebx+4] ;á®åà ï¥¬ ª ª float	422	fstp dword[ebx+4] ;á®åà ï¥¬ ª ª float
423		423
424	mov esi,string3	424	mov esi,string3
425	mov edi,Data_String	425	mov edi,Data_String
426	cld	426	cld
427	mov ecx,8	427	mov ecx,8
428	rep movsd	428	rep movsd
429	call String_to_DoubleFloat	429	call String_to_DoubleFloat
430	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	430	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
431	fstp dword[ebx+8] ;á®åà ï¥¬ ª ª float	431	fstp dword[ebx+8] ;á®åà ï¥¬ ª ª float
432		432
433	;®¡®¢«¥¨¥ ¨§¬¥¥®£® ã§« ¢ á¯¨áª¥ tree3 ¨ £« ¢®£® ®ª (¯® â ©¬¥àã)	433	;®¡®¢«¥¨¥ ¨§¬¥¥®£® ã§« ¢ á¯¨áª¥ tree3 ¨ £« ¢®£® ®ª (¯® â ©¬¥àã)
434	mov word[NumberSymbolsAD],5	434	mov word[NumberSymbolsAD],5
435	mov dword[obj_point],ebx	435	mov dword[obj_point],ebx
436	mov dword[obj_point.text],0	436	mov dword[obj_point.text],0
437	cld	437	cld
438	mov ecx,3	438	mov ecx,3
439	.coord:	439	.coord:
440	fld dword[ebx]	440	fld dword[ebx]
441	fstp qword[Data_Double]	441	fstp qword[Data_Double]
442	call DoubleFloat_to_String	442	call DoubleFloat_to_String
443	call String_crop_0	443	call String_crop_0
444	add ebx,4	444	add ebx,4
445	stdcall str_len, Data_String	445	stdcall str_len, Data_String
446	mov esi,txt_space	446	mov esi,txt_space
447	add esi,eax	447	add esi,eax
448	cmp esi,txt_space.end	448	cmp esi,txt_space.end
449	jl .normal_size	449	jl .normal_size
450	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì	450	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì
451	.normal_size:	451	.normal_size:
452	stdcall str_cat, obj_point.text,esi	452	stdcall str_cat, obj_point.text,esi
453	stdcall str_cat, obj_point.text,Data_String	453	stdcall str_cat, obj_point.text,Data_String
454	loop .coord	454	loop .coord
455	mov byte[obj_point.text],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨ ¨§¬¥ï« áì	455	mov byte[obj_point.text],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨ ¨§¬¥ï« áì
456	stdcall dword[tl_node_set_data], tree3,obj_point	456	stdcall dword[tl_node_set_data], tree3,obj_point
457	stdcall dword[tl_draw], tree3	457	stdcall dword[tl_draw], tree3
458	mov byte[can_save],1 ;¤«ï ¯®ª § ª®¯ª¨ '®åà ¨âì'	458	mov byte[can_save],1 ;¤«ï ¯®ª § ª®¯ª¨ '®åà ¨âì'
459	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡«®ª ¢ â ©¬¥à¥	459	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡«®ª ¢ â ©¬¥à¥
460	stdcall draw_3d, o3d	460	stdcall draw_3d, o3d
461	.no_select_1:	461	.no_select_1:
462	pop esi edi ecx ebx eax	462	pop esi edi ecx ebx eax
463	jmp prop_still.end	463	jmp prop_still.end
464	@@:	464	@@:
465	cmp ah,5	465	cmp ah,5
466	jne @f	466	jne @f
467	call mnu_vertexes_on	467	call mnu_vertexes_on
468	jmp prop_still.end	468	jmp prop_still.end
469	@@:	469	@@:
470	cmp ah,6	470	cmp ah,6
471	jne @f	471	jne @f
472	call mnu_edges_on	472	call mnu_edges_on
473	jmp prop_still.end	473	jmp prop_still.end
474	@@:	474	@@:
475	cmp ah,7	475	cmp ah,7
476	jne @f	476	jne @f
477	call mnu_faces_on	477	call mnu_faces_on
478	jmp prop_still.end	478	jmp prop_still.end
479	@@:	479	@@:
480	cmp ah,8	480	cmp ah,8
481	jne @f	481	jne @f
482	call mnu_light_on_off	482	call mnu_light_on_off
483	jmp prop_still.end	483	jmp prop_still.end
484	@@:	484	@@:
485	cmp ah,9	485	cmp ah,9
486	jne @f	486	jne @f
487	call mnu_smooth_on_off	487	call mnu_smooth_on_off
488	jmp prop_still.end	488	jmp prop_still.end
489	@@:	489	@@:
490	cmp ah,10	490	cmp ah,10
491	jne @f	491	jne @f
492	call mnu_reset_settings	492	call mnu_reset_settings
493	jmp prop_still.end	493	jmp prop_still.end
494	@@:	494	@@:
495	cmp ah,11	495	cmp ah,11
496	jne @f	496	jne @f
497	call mnu_vertexes_select	497	call mnu_vertexes_select
498	jmp prop_still.end	498	jmp prop_still.end
499	@@:	499	@@:
500	cmp ah,12	500	cmp ah,12

Subversion Repositories Kolibri OS

(root)/programs/develop/info3ds/info_wnd_coords.inc – Rev 7128 → 8288