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

Subversion Repositories Kolibri OS

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