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, 34, string1, mouse_dd, 0
edit2 edit_box 80, 160, 269, 0xd0d0ff, 0xff, 0x80ff, 0, 0x8000, 34, string2, mouse_dd, 0
edit3 edit_box 80, 244, 269, 0xd0ffd0, 0xff, 0x80ff, 0, 0x8000, 34, 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 6889	Rev 7128
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	add ebx,4	118	add ebx,4
118	stdcall str_len, Data_String	119	stdcall str_len, Data_String
119	mov esi,txt_space	120	mov esi,txt_space
120	add esi,eax	121	add esi,eax
121	cmp esi,txt_space.end	122	cmp esi,txt_space.end
122	jl .normal_size	123	jl .normal_size
123	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì	124	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì
124	.normal_size:	125	.normal_size:
125	stdcall str_cat, obj_point.text,esi	126	stdcall str_cat, obj_point.text,esi
126	stdcall str_cat, obj_point.text,Data_String	127	stdcall str_cat, obj_point.text,Data_String
127	loop @b	128	loop @b
128	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
129	stdcall dword[tl_cur_next], tree3	130	stdcall dword[tl_cur_next], tree3
130	dec edx	131	dec edx
131	cmp edx,0	132	cmp edx,0
132	jg .new_point	133	jg .new_point
133	mov dword[w_scr_t3.redraw],1	134	mov dword[w_scr_t3.redraw],1
134	stdcall dword[tl_cur_beg], tree3	135	stdcall dword[tl_cur_beg], tree3
135	.no_object:	136	.no_object:
136	stdcall obj_set_sizes, o3d	137	stdcall obj_set_sizes, o3d
137	stdcall obj_set_normals, o3d	138	stdcall obj_set_normals, o3d
138	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ®¢ª á¨áâ¥¬ëå æ¢¥â®¢	139	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ®¢ª á¨áâ¥¬ëå æ¢¥â®¢
139	stdcall [edit_box_set_text], edit1, txt_q	140	stdcall [edit_box_set_text], edit1, txt_q
140	stdcall [edit_box_set_text], edit2, txt_q	141	stdcall [edit_box_set_text], edit2, txt_q
141	stdcall [edit_box_set_text], edit3, txt_q	142	stdcall [edit_box_set_text], edit3, txt_q
142	mov eax,0xc0c0c0	143	mov eax,0xc0c0c0
143	mov ebx,[color_ox]	144	mov ebx,[color_ox]
144	shr ebx,2	145	shr ebx,2
145	and ebx,0x3f3f3f	146	and ebx,0x3f3f3f
146	add eax,ebx	147	add eax,ebx
147	mov [edit1.color],eax	148	mov [edit1.color],eax
148	mov eax,0xc0c0c0	149	mov eax,0xc0c0c0
149	mov ebx,[color_oy]	150	mov ebx,[color_oy]
150	shr ebx,2	151	shr ebx,2
151	and ebx,0x3f3f3f	152	and ebx,0x3f3f3f
152	add eax,ebx	153	add eax,ebx
153	mov [edit2.color],eax	154	mov [edit2.color],eax
154	mov eax,0xc0c0c0	155	mov eax,0xc0c0c0
155	mov ebx,[color_oz]	156	mov ebx,[color_oz]
156	shr ebx,2	157	shr ebx,2
157	and ebx,0x3f3f3f	158	and ebx,0x3f3f3f
158	add eax,ebx	159	add eax,ebx
159	mov [edit3.color],eax	160	mov [edit3.color],eax
160	popad	161	popad
161	call prop_red_win	162	call prop_red_win
162		163
163	;¥ ®âàë¢ âì íâã äãªæ¨î ®â ¯à¥¤ë¤ãé¥©	164	;¥ ®âàë¢ âì íâã äãªæ¨î ®â ¯à¥¤ë¤ãé¥©
164	align 4	165	align 4
165	prop_still:	166	prop_still:
166	pushad	167	pushad
167		168
168	mcall SF_WAIT_EVENT_TIMEOUT,10	169	mcall SF_WAIT_EVENT_TIMEOUT,10
169	or eax,eax	170	or eax,eax
170	jnz @f	171	jnz @f
171	call prop_timer_funct	172	call prop_timer_funct
172	jmp .end	173	jmp .end
173	@@:	174	@@:
174		175
175	cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª	176	cmp al,1 ;¨§¬. ¯®«®¦¥¨¥ ®ª
176	jne @f	177	jne @f
177	call prop_red_win	178	call prop_red_win
178	jmp .end	179	jmp .end
179	@@:	180	@@:
180	cmp al,2	181	cmp al,2
181	jne @f	182	jne @f
182	call prop_key	183	call prop_key
183	jmp .end	184	jmp .end
184	@@:	185	@@:
185	cmp al,3	186	cmp al,3
186	jz prop_button	187	jz prop_button
187	cmp al,6	188	cmp al,6
188	jne @f	189	jne @f
189	call prop_mouse	190	call prop_mouse
190	@@:	191	@@:
191	.end:	192	.end:
192	popad	193	popad
193	jmp prop_still	194	jmp prop_still
194		195
195	align 4	196	align 4
196	prop_red_win:	197	prop_red_win:
197	pushad	198	pushad
198	mcall SF_REDRAW,SSF_BEGIN_DRAW	199	mcall SF_REDRAW,SSF_BEGIN_DRAW
199		200
200	xor eax,eax	201	xor eax,eax
201	mov edi,dword[capt_p] ;children window caption	202	mov edi,dword[capt_p] ;children window caption
202	mov bx,word[procinfo.box.left]	203	mov bx,word[procinfo.box.left]
203	add bx,word[buf_0.l]	204	add bx,word[buf_0.l]
204	add bx,5 ;è¨à¨ ¡®ª®¢®© à ¬ª¨	205	add bx,5 ;è¨à¨ ¡®ª®¢®© à ¬ª¨
205	shl ebx,16	206	shl ebx,16
206	mov bx,prop_wnd_width	207	mov bx,prop_wnd_width
207	mov cx,word[procinfo.box.top]	208	mov cx,word[procinfo.box.top]
208	add cx,word[buf_0.t]	209	add cx,word[buf_0.t]
209	shl ecx,16	210	shl ecx,16
210	mov cx,prop_wnd_height	211	mov cx,prop_wnd_height
211	mov edx,[sc.work]	212	mov edx,[sc.work]
212	or edx,0x33000000	213	or edx,0x33000000
213	int 0x40	214	int 0x40
214		215
215	mov esi,[sc.work_button]	216	mov esi,[sc.work_button]
216	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
217	mcall , (30 shl 16)+20, (266 shl 16)+20, 0x40000004	218	mcall , (30 shl 16)+20, (266 shl 16)+20, 0x40000004
218		219
219	mov ebx,[image_data_toolbar]	220	mov ebx,[image_data_toolbar]
220	add ebx,3*IMAGE_TOOLBAR_ICON_SIZE	221	add ebx,3*IMAGE_TOOLBAR_ICON_SIZE
221	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
222		223
223	sub ebx,IMAGE_TOOLBAR_ICON_SIZE	224	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
224	mov edx,(30 shl 16)+266 ;save	225	mov edx,(30 shl 16)+266 ;save
225	int 0x40	226	int 0x40
226		227
227	mov dword[w_scr_t3.all_redraw],1	228	mov dword[w_scr_t3.all_redraw],1
228	stdcall [scrollbar_ver_draw],dword w_scr_t3	229	stdcall [scrollbar_ver_draw],dword w_scr_t3
229	stdcall [tl_draw], tree3	230	stdcall [tl_draw], tree3
230	stdcall [edit_box_draw], edit1	231	stdcall [edit_box_draw], edit1
231	stdcall [edit_box_draw], edit2	232	stdcall [edit_box_draw], edit2
232	stdcall [edit_box_draw], edit3	233	stdcall [edit_box_draw], edit3
233		234
234	stdcall [kmainmenu_draw], [main_menu]	235	stdcall [kmainmenu_draw], [main_menu]
235	stdcall draw_3d, o3d	236	stdcall draw_3d, o3d
236	mcall SF_REDRAW,SSF_END_DRAW	237	mcall SF_REDRAW,SSF_END_DRAW
237	popad	238	popad
238	ret	239	ret
239		240
240	align 4	241	align 4
241	proc prop_key uses eax ebx	242	proc prop_key uses eax ebx
242	mcall SF_GET_KEY	243	mcall SF_GET_KEY
243		244
244	test word [edit1.flags],10b ;ed_focus	245	test word [edit1.flags],10b ;ed_focus
245	je @f	246	je @f
246	stdcall [edit_box_key], edit1	247	stdcall [edit_box_key], edit1
247	jmp .end	248	jmp .end
248	@@:	249	@@:
249	test word [edit2.flags],10b	250	test word [edit2.flags],10b
250	je @f	251	je @f
251	stdcall [edit_box_key], edit2	252	stdcall [edit_box_key], edit2
252	jmp .end	253	jmp .end
253	@@:	254	@@:
254	test word [edit3.flags],10b	255	test word [edit3.flags],10b
255	je @f	256	je @f
256	stdcall [edit_box_key], edit3	257	stdcall [edit_box_key], edit3
257	jmp .end	258	jmp .end
258	@@:	259	@@:
259	cmp dword[el_focus], tree3	260	cmp dword[el_focus], tree3
260	jne @f	261	jne @f
261	stdcall [tl_key], tree3	262	stdcall [tl_key], tree3
262	jmp .end	263	jmp .end
263	@@:	264	@@:
264		265
265	cmp ah,178 ;Up	266	cmp ah,178 ;Up
266	jne @f	267	jne @f
267	fld dword[angle_x]	268	fld dword[angle_x]
268	fadd dword[delt_size]	269	fadd dword[delt_size]
269	fstp dword[angle_x]	270	fstp dword[angle_x]
270	stdcall draw_3d, o3d	271	stdcall draw_3d, o3d
271	jmp .end	272	jmp .end
272	@@:	273	@@:
273	cmp ah,177 ;Down	274	cmp ah,177 ;Down
274	jne @f	275	jne @f
275	fld dword[angle_x]	276	fld dword[angle_x]
276	fsub dword[delt_size]	277	fsub dword[delt_size]
277	fstp dword[angle_x]	278	fstp dword[angle_x]
278	stdcall draw_3d, o3d	279	stdcall draw_3d, o3d
279	jmp .end	280	jmp .end
280	@@:	281	@@:
281	cmp ah,176 ;Left	282	cmp ah,176 ;Left
282	jne @f	283	jne @f
283	fld dword[angle_y]	284	fld dword[angle_y]
284	fadd dword[delt_size]	285	fadd dword[delt_size]
285	fstp dword[angle_y]	286	fstp dword[angle_y]
286	stdcall draw_3d, o3d	287	stdcall draw_3d, o3d
287	jmp .end	288	jmp .end
288	@@:	289	@@:
289	cmp ah,179 ;Right	290	cmp ah,179 ;Right
290	jne @f	291	jne @f
291	fld dword[angle_y]	292	fld dword[angle_y]
292	fsub dword[delt_size]	293	fsub dword[delt_size]
293	fstp dword[angle_y]	294	fstp dword[angle_y]
294	stdcall draw_3d, o3d	295	stdcall draw_3d, o3d
295	;jmp .end	296	;jmp .end
296	@@:	297	@@:
297	.end:	298	.end:
298	ret	299	ret
299	endp	300	endp
300		301
301	align 4	302	align 4
302	prop_mouse:	303	prop_mouse:
303	push eax ebx	304	push eax ebx
304	mcall SF_MOUSE_GET,SSF_BUTTON_EXT	305	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
305	bt eax,0	306	bt eax,0
306	jnc .end_m	307	jnc .end_m
307	;mouse l. but. move	308	;mouse l. but. move
308	cmp dword[mouse_drag],1	309	cmp dword[mouse_drag],1
309	jne .end_m	310	jne .end_m
310	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords	311	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
311	mov ebx,eax	312	mov ebx,eax
312	shr ebx,16 ;mouse.x	313	shr ebx,16 ;mouse.x
313	cmp ebx,3d_wnd_l	314	cmp ebx,3d_wnd_l
314	jg @f	315	jg @f
315	mov ebx,3d_wnd_l	316	mov ebx,3d_wnd_l
316	@@:	317	@@:
317	sub ebx,3d_wnd_l	318	sub ebx,3d_wnd_l
318	cmp ebx,3d_wnd_w	319	cmp ebx,3d_wnd_w
319	jle @f	320	jle @f
320	mov ebx,3d_wnd_w	321	mov ebx,3d_wnd_w
321	@@:	322	@@:
322	and eax,0xffff ;mouse.y	323	and eax,0xffff ;mouse.y
323	cmp eax,3d_wnd_t	324	cmp eax,3d_wnd_t
324	jg @f	325	jg @f
325	mov eax,3d_wnd_t	326	mov eax,3d_wnd_t
326	@@:	327	@@:
327	sub eax,3d_wnd_t	328	sub eax,3d_wnd_t
328	cmp eax,3d_wnd_h	329	cmp eax,3d_wnd_h
329	jle @f	330	jle @f
330	mov eax,3d_wnd_h	331	mov eax,3d_wnd_h
331	@@:	332	@@:
332	finit	333	finit
333	fild dword[mouse_y]	334	fild dword[mouse_y]
334	mov [mouse_y],eax	335	mov [mouse_y],eax
335	fisub dword[mouse_y]	336	fisub dword[mouse_y]
336	fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x	337	fdiv dword[angle_dxm] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ y (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ x
337	fadd dword[angle_x]	338	fadd dword[angle_x]
338	fstp dword[angle_x]	339	fstp dword[angle_x]
339		340
340	fild dword[mouse_x]	341	fild dword[mouse_x]
341	mov [mouse_x],ebx	342	mov [mouse_x],ebx
342	fisub dword[mouse_x]	343	fisub dword[mouse_x]
343	fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y	344	fdiv dword[angle_dym] ;¥á«¨ ªãàá®à ¤¢¨¦¥âáï ¯® ®á¨ x (¢¢¥àå ¨«¨ ¢¨§) â® ¯®¢®à®â ¤¥« ¥¬ ¢®ªàã£ ®á¨ y
344	fadd dword[angle_y]	345	fadd dword[angle_y]
345	fstp dword[angle_y]	346	fstp dword[angle_y]
346		347
347	stdcall draw_3d, o3d	348	stdcall draw_3d, o3d
348	jmp .end_d	349	jmp .end_d
349	.end_m:	350	.end_m:
350	bt eax,16	351	bt eax,16
351	jnc @f	352	jnc @f
352	;mouse l. but. up	353	;mouse l. but. up
353	mov dword[mouse_drag],0	354	mov dword[mouse_drag],0
354	jmp .end_d	355	jmp .end_d
355	@@:	356	@@:
356	bt eax,8	357	bt eax,8
357	jnc .end_d	358	jnc .end_d
358	;mouse l. but. press	359	;mouse l. but. press
359	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords	360	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION ;get mouse coords
360	mov ebx,eax	361	mov ebx,eax
361	shr ebx,16 ;mouse.x	362	shr ebx,16 ;mouse.x
362	cmp ebx,3d_wnd_l	363	cmp ebx,3d_wnd_l
363	jl .end_d	364	jl .end_d
364	sub ebx,3d_wnd_l	365	sub ebx,3d_wnd_l
365	cmp ebx,3d_wnd_w	366	cmp ebx,3d_wnd_w
366	jg .end_d	367	jg .end_d
367	and eax,0xffff ;mouse.y	368	and eax,0xffff ;mouse.y
368	cmp eax,3d_wnd_t	369	cmp eax,3d_wnd_t
369	jl .end_d	370	jl .end_d
370	sub eax,3d_wnd_t	371	sub eax,3d_wnd_t
371	cmp eax,3d_wnd_h	372	cmp eax,3d_wnd_h
372	jg .end_d	373	jg .end_d
373	mov dword[mouse_drag],1	374	mov dword[mouse_drag],1
374	mov dword[mouse_x],ebx	375	mov dword[mouse_x],ebx
375	mov dword[mouse_y],eax	376	mov dword[mouse_y],eax
376	.end_d:	377	.end_d:
377		378
378	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]	379	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
379	stdcall [tl_mouse], tree3	380	stdcall [tl_mouse], tree3
380	stdcall [edit_box_mouse], edit1	381	stdcall [edit_box_mouse], edit1
381	stdcall [edit_box_mouse], edit2	382	stdcall [edit_box_mouse], edit2
382	stdcall [edit_box_mouse], edit3	383	stdcall [edit_box_mouse], edit3
383	pop ebx eax	384	pop ebx eax
384	ret	385	ret
385		386
386	align 4	387	align 4
387	prop_button:	388	prop_button:
388	mcall SF_GET_BUTTON	389	mcall SF_GET_BUTTON
389		390
390	cmp ah,3	391	cmp ah,3
391	jne @f	392	jne @f
392	call get_point_coords	393	call get_point_coords
393	stdcall draw_3d, o3d	394	stdcall draw_3d, o3d
394	jmp prop_still.end	395	jmp prop_still.end
395	@@:	396	@@:
396	cmp ah,4	397	cmp ah,4
397	jne @f	398	jne @f
398	push eax ebx ecx edi esi	399	push eax ebx ecx edi esi
399	stdcall [tl_node_get_data],tree3	400	stdcall [tl_node_get_data],tree3
400	cmp eax,0	401	cmp eax,0
401	je .no_select_1	402	je .no_select_1
402	mov ebx,[eax]	403	mov ebx,[eax]
403	finit	404	finit
404		405
405	mov esi,string1	406	mov esi,string1
406	mov edi,Data_String	407	mov edi,Data_String
407	cld	408	cld
408	mov ecx,8	409	mov ecx,8
409	rep movsd	410	rep movsd
410	call String_to_DoubleFloat	411	call String_to_DoubleFloat
411	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	412	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
412	fstp dword[ebx] ;á®åà ï¥¬ ª ª float	413	fstp dword[ebx] ;á®åà ï¥¬ ª ª float
413		414
414	mov esi,string2	415	mov esi,string2
415	mov edi,Data_String	416	mov edi,Data_String
416	cld	417	cld
417	mov ecx,8	418	mov ecx,8
418	rep movsd	419	rep movsd
419	call String_to_DoubleFloat	420	call String_to_DoubleFloat
420	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	421	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
421	fstp dword[ebx+4] ;á®åà ï¥¬ ª ª float	422	fstp dword[ebx+4] ;á®åà ï¥¬ ª ª float
422		423
423	mov esi,string3	424	mov esi,string3
424	mov edi,Data_String	425	mov edi,Data_String
425	cld	426	cld
426	mov ecx,8	427	mov ecx,8
427	rep movsd	428	rep movsd
428	call String_to_DoubleFloat	429	call String_to_DoubleFloat
429	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double	430	fld qword[Data_Double] ;áç¨âë¢ ¥¬ ª ª double
430	fstp dword[ebx+8] ;á®åà ï¥¬ ª ª float	431	fstp dword[ebx+8] ;á®åà ï¥¬ ª ª float
431		432
432	;®¡®¢«¥¨¥ ¨§¬¥¥®£® ã§« ¢ á¯¨áª¥ tree3 ¨ £« ¢®£® ®ª (¯® â ©¬¥àã)	433	;®¡®¢«¥¨¥ ¨§¬¥¥®£® ã§« ¢ á¯¨áª¥ tree3 ¨ £« ¢®£® ®ª (¯® â ©¬¥àã)
433	mov word[NumberSymbolsAD],5	434	mov word[NumberSymbolsAD],5
434	mov dword[obj_point],ebx	435	mov dword[obj_point],ebx
435	mov dword[obj_point.text],0	436	mov dword[obj_point.text],0
436	cld	437	cld
437	mov ecx,3	438	mov ecx,3
438	.coord:	439	.coord:
439	fld dword[ebx]	440	fld dword[ebx]
440	fstp qword[Data_Double]	441	fstp qword[Data_Double]
441	call DoubleFloat_to_String	442	call DoubleFloat_to_String
-		443	call String_crop_0
442	add ebx,4	444	add ebx,4
443	stdcall str_len, Data_String	445	stdcall str_len, Data_String
444	mov esi,txt_space	446	mov esi,txt_space
445	add esi,eax	447	add esi,eax
446	cmp esi,txt_space.end	448	cmp esi,txt_space.end
447	jl .normal_size	449	jl .normal_size
448	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì	450	mov esi,txt_space.end-1 ;¬¨¨¬ã¬ 1 ¯à®¡¥« ã¦® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ¥ á«¨¯ «¨áì
449	.normal_size:	451	.normal_size:
450	stdcall str_cat, obj_point.text,esi	452	stdcall str_cat, obj_point.text,esi
451	stdcall str_cat, obj_point.text,Data_String	453	stdcall str_cat, obj_point.text,Data_String
452	loop .coord	454	loop .coord
453	mov byte[obj_point.text],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨ ¨§¬¥ï« áì	455	mov byte[obj_point.text],'*' ;®â¬¥ç ¥¬ çâ® ¢¥àè¨ ¨§¬¥ï« áì
454	stdcall dword[tl_node_set_data], tree3,obj_point	456	stdcall dword[tl_node_set_data], tree3,obj_point
455	stdcall dword[tl_draw], tree3	457	stdcall dword[tl_draw], tree3
456	mov byte[can_save],1 ;¤«ï ¯®ª § ª®¯ª¨ '®åà ¨âì'	458	mov byte[can_save],1 ;¤«ï ¯®ª § ª®¯ª¨ '®åà ¨âì'
457	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡«®ª ¢ â ©¬¥à¥	459	mov dword[offs_last_timer],0 ;¤«ï ®¡®¢«¥¨ï ¡«®ª ¢ â ©¬¥à¥
458	stdcall draw_3d, o3d	460	stdcall draw_3d, o3d
459	.no_select_1:	461	.no_select_1:
460	pop esi edi ecx ebx eax	462	pop esi edi ecx ebx eax
461	jmp prop_still.end	463	jmp prop_still.end
462	@@:	464	@@:
463	cmp ah,5	465	cmp ah,5
464	jne @f	466	jne @f
465	call mnu_vertexes_on	467	call mnu_vertexes_on
466	jmp prop_still.end	468	jmp prop_still.end
467	@@:	469	@@:
468	cmp ah,6	470	cmp ah,6
469	jne @f	471	jne @f
470	call mnu_edges_on	472	call mnu_edges_on
471	jmp prop_still.end	473	jmp prop_still.end
472	@@:	474	@@:
473	cmp ah,7	475	cmp ah,7
474	jne @f	476	jne @f
475	call mnu_faces_on	477	call mnu_faces_on
476	jmp prop_still.end	478	jmp prop_still.end
477	@@:	479	@@:
478	cmp ah,8	480	cmp ah,8
479	jne @f	481	jne @f
480	call mnu_light_on_off	482	call mnu_light_on_off
481	jmp prop_still.end	483	jmp prop_still.end
482	@@:	484	@@:
483	cmp ah,9	485	cmp ah,9
484	jne @f	486	jne @f
485	call mnu_smooth_on_off	487	call mnu_smooth_on_off
486	jmp prop_still.end	488	jmp prop_still.end
487	@@:	489	@@:
488	cmp ah,10	490	cmp ah,10
489	jne @f	491	jne @f
490	call mnu_reset_settings	492	call mnu_reset_settings
491	jmp prop_still.end	493	jmp prop_still.end
492	@@:	494	@@:
493	cmp ah,11	495	cmp ah,11
494	jne @f	496	jne @f
495	call mnu_vertexes_select	497	call mnu_vertexes_select
496	jmp prop_still.end	498	jmp prop_still.end
497	@@:	499	@@:
498	cmp ah,12	500	cmp ah,12

Subversion Repositories Kolibri OS

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