forked from KolibriOS/kolibrios
938 lines
22 KiB
PHP
938 lines
22 KiB
PHP
;
|
||
; áâàãªâãàë ¨ äãªæ¨¨ ¤«ï à¨á®¢ ¨ï 3d ®¡ê¥ªâ®¢
|
||
;
|
||
|
||
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
|
||
|
||
struct obj_3d
|
||
poi_data dd ? ;㪠§ â¥«ì ª®®à¤¨ âë ¢¥àè¨
|
||
poi_count dd ? ;ª®««¨ç¥á⢮ ¢¥àè¨
|
||
tri_data dd ? ;㪠§ â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢
|
||
tri_count dd ? ;ª®««¨ç¥á⢮ âà¥ã£®«ì¨ª®¢
|
||
normals_poi_data dd ? ;¤ ë¥ ®à¬ «¥© ª â®çª ¬
|
||
normals_poi_count dd ? ;ª®««¨ç¥á⢮ ®à¬ «¥© ª â®çª ¬
|
||
normals_tri_data dd ? ;¤ ë¥ ®à¬ «¥© ª £à ï¬
|
||
normals_tri_count dd ? ;ª®««¨ç¥á⢮ ®à¬ «¥© ª £à ï¬
|
||
x_max dd ?
|
||
x_min dd ?
|
||
x_centr dd ?
|
||
x_scale dd ?
|
||
y_max dd ?
|
||
y_min dd ?
|
||
y_centr dd ?
|
||
y_scale dd ?
|
||
z_max dd ?
|
||
z_min dd ?
|
||
z_centr dd ?
|
||
z_scale dd ?
|
||
ends
|
||
|
||
offs_obj_poi_data equ 0 ;㪠§ â¥«ì ª®®à¤¨ âë ¢¥àè¨
|
||
offs_obj_poi_count equ 4 ;ª®««¨ç¥á⢮ ¢¥àè¨
|
||
offs_obj_tri_data equ 8 ;㪠§ â¥«ì ¤ ë¥ âà¥ã£®«ì¨ª®¢
|
||
offs_obj_tri_count equ 12 ;ª®««¨ç¥á⢮ âà¥ã£®«ì¨ª®¢
|
||
offs_obj_normals_poi_data equ 16
|
||
offs_obj_normals_poi_count equ 20
|
||
offs_obj_normals_tri_data equ 24
|
||
offs_obj_normals_tri_count equ 28
|
||
offs_obj_x_max equ 32
|
||
offs_obj_x_min equ 36
|
||
offs_obj_x_centr equ 40
|
||
offs_obj_x_scale equ 44
|
||
offs_obj_y_max equ 48
|
||
offs_obj_y_min equ 52
|
||
offs_obj_y_centr equ 56
|
||
offs_obj_y_scale equ 60
|
||
offs_obj_z_max equ 64
|
||
offs_obj_z_min equ 68
|
||
offs_obj_z_centr equ 72
|
||
offs_obj_z_scale equ 76
|
||
|
||
struct material
|
||
name dd ?
|
||
col_ambient dd ? ;梥⠬ â¥à¨ «
|
||
col_diffuse dd ?
|
||
col_specular dd ?
|
||
ends
|
||
|
||
offs_mat_name equ 0
|
||
offs_mat_col_ambient equ 4
|
||
offs_mat_col_diffuse equ 8
|
||
offs_mat_col_specular equ 12
|
||
|
||
bit_vertexes equ 0
|
||
bit_faces equ 1
|
||
bit_faces_fill equ 2
|
||
bit_light equ 3
|
||
|
||
ini_name db 'info3ds.ini',0
|
||
ini_sec_w3d db 'Window 3d',0
|
||
key_dv db 'draw_vertices',0
|
||
key_df db 'draw_faces',0
|
||
key_dff db 'draw_faces_fill',0
|
||
key_dl db 'draw_light',0
|
||
key_ox db 'col_ox',0
|
||
key_oy db 'col_oy',0
|
||
key_oz db 'col_oz',0
|
||
key_bk db 'col_bkgnd',0
|
||
key_vert db 'col_vertices',0
|
||
key_face db 'col_faces',0
|
||
key_select db 'col_select',0
|
||
|
||
|
||
rad_c dd 150 ;¤«ï ¢ëç¨á«¥¨ï à ¤¨ãá
|
||
|
||
align 4
|
||
proc hex_in_str, buf:dword,val:dword,zif:dword
|
||
pushad
|
||
mov edi,dword[buf]
|
||
mov ecx,dword[zif]
|
||
add edi,ecx
|
||
dec edi
|
||
mov ebx,dword[val]
|
||
|
||
.cycle:
|
||
mov al,bl
|
||
and al,0xf
|
||
cmp al,10
|
||
jl @f
|
||
add al,'a'-'0'-10
|
||
@@:
|
||
add al,'0'
|
||
mov byte[edi],al
|
||
dec edi
|
||
shr ebx,4
|
||
loop .cycle
|
||
popad
|
||
ret
|
||
endp
|
||
|
||
;ãáâ ®¢ª ¢á¥å ®á®¢ëå ¯¥à¥¬¥ëå ¯® 㬮«ç ¨î
|
||
align 4
|
||
proc obj_clear_param uses edi, o_data:dword
|
||
mov edi,[o_data]
|
||
;®¡ã«¥¨¥ 㪠§ ⥫¥© ¤ ë¥ ®¡ê¥ªâ®¢
|
||
mov dword[edi+offs_obj_poi_data],0
|
||
mov dword[edi+offs_obj_poi_count],0
|
||
mov dword[edi+offs_obj_tri_data],0
|
||
mov dword[edi+offs_obj_tri_count],0
|
||
mov dword[edi+offs_obj_normals_tri_count],0
|
||
mov dword[edi+offs_obj_normals_poi_count],0
|
||
cmp dword[edi+offs_obj_normals_tri_data],0
|
||
je @f
|
||
stdcall mem.Free,[edi+offs_obj_normals_tri_data]
|
||
mov dword[edi+offs_obj_normals_tri_data],0
|
||
@@:
|
||
cmp dword[edi+offs_obj_normals_poi_data],0
|
||
je @f
|
||
stdcall mem.Free,[edi+offs_obj_normals_poi_data]
|
||
mov dword[edi+offs_obj_normals_poi_data],0
|
||
@@:
|
||
ret
|
||
endp
|
||
|
||
;¯®¨áª ¤ ëå
|
||
;input:
|
||
;eax - ⥪ã騩 㧥«
|
||
;output:
|
||
;eax - áâàãªâãà ⥪ã饣® 㧫 (¨«¨ 0 ¯à¨ ¥ã¤ ç¥)
|
||
align 4
|
||
proc found_block_data uses ebx ecx edx, tlist:dword
|
||
mov edx,[tlist]
|
||
mov ecx,eax
|
||
stdcall [tl_node_poi_get_info], edx,0
|
||
@@:
|
||
mov ebx,eax
|
||
stdcall [tl_node_poi_get_data], edx,ebx
|
||
cmp eax,ecx
|
||
je @f ;¥á«¨ ¯®¯ «¨ ¢ë¡à ë© ã§¥«
|
||
stdcall [tl_node_poi_get_next_info], edx,ebx
|
||
cmp eax,0
|
||
jne @b
|
||
jmp .end
|
||
@@:
|
||
mov eax,ebx
|
||
.end:
|
||
ret
|
||
endp
|
||
|
||
;ãáâ ®¢ª à §¬¥à®¢ ®¡ê¥ªâ
|
||
align 4
|
||
proc obj_set_sizes uses eax ebx esi edi, o_data:dword
|
||
mov edi,[o_data]
|
||
cmp dword[edi+offs_obj_poi_count],0
|
||
je .end
|
||
finit
|
||
mov eax,[edi+offs_obj_poi_data]
|
||
mov ebx,dword[eax]
|
||
mov [edi+offs_obj_x_min],ebx
|
||
mov [edi+offs_obj_x_max],ebx
|
||
mov ebx,dword[eax+4]
|
||
mov [edi+offs_obj_y_min],ebx
|
||
mov [edi+offs_obj_y_max],ebx
|
||
mov ebx,dword[eax+8]
|
||
mov [edi+offs_obj_z_min],ebx
|
||
mov [edi+offs_obj_z_max],ebx
|
||
|
||
mov ebx,[edi+offs_obj_poi_data]
|
||
mov esi,[edi+offs_obj_poi_count]
|
||
align 4
|
||
.cycle_0: ;à ¡®â á ª®®à¤¨ ⮩ x
|
||
fld dword[ebx]
|
||
fld dword[edi+offs_obj_x_min]
|
||
fcomp
|
||
fstsw ax
|
||
sahf
|
||
jb @f
|
||
mov eax,[ebx]
|
||
mov [edi+offs_obj_x_min],eax
|
||
ffree st0
|
||
fincstp
|
||
jmp .next_x
|
||
@@:
|
||
fld dword[edi+offs_obj_x_max]
|
||
fcompp
|
||
fstsw ax
|
||
sahf
|
||
ja .next_x
|
||
mov eax,[ebx]
|
||
mov [edi+offs_obj_x_max],eax
|
||
.next_x:
|
||
|
||
add ebx,12
|
||
dec esi
|
||
jnz .cycle_0
|
||
|
||
fld1
|
||
fld dword[edi+offs_obj_x_max]
|
||
fsub dword[edi+offs_obj_x_min]
|
||
fst dword[edi+offs_obj_x_centr]
|
||
fdivp ;1/size.x
|
||
fstp dword[edi+offs_obj_x_scale]
|
||
|
||
fld dword[edi+offs_obj_x_centr]
|
||
fld1
|
||
fld1
|
||
faddp
|
||
fdivp ;centr.x = size.x/2
|
||
fadd dword[edi+offs_obj_x_min]
|
||
fchs
|
||
fstp dword[edi+offs_obj_x_centr]
|
||
|
||
mov ebx,[edi+offs_obj_poi_data]
|
||
mov esi,[edi+offs_obj_poi_count]
|
||
align 4
|
||
.cycle_1: ;à ¡®â á ª®®à¤¨ ⮩ y
|
||
fld dword[ebx+4]
|
||
fld dword[edi+offs_obj_y_min]
|
||
fcomp
|
||
fstsw ax
|
||
sahf
|
||
jb @f
|
||
mov eax,[ebx+4]
|
||
mov [edi+offs_obj_y_min],eax
|
||
ffree st0
|
||
fincstp
|
||
jmp .next_y
|
||
@@:
|
||
fld dword[edi+offs_obj_y_max]
|
||
fcompp
|
||
fstsw ax
|
||
sahf
|
||
ja .next_y
|
||
mov eax,[ebx+4]
|
||
mov [edi+offs_obj_y_max],eax
|
||
.next_y:
|
||
|
||
add ebx,12
|
||
dec esi
|
||
jnz .cycle_1
|
||
|
||
fld1
|
||
fld dword[edi+offs_obj_y_max]
|
||
fsub dword[edi+offs_obj_y_min]
|
||
fst dword[edi+offs_obj_y_centr]
|
||
fdivp ;1/size.y
|
||
fstp dword[edi+offs_obj_y_scale]
|
||
|
||
fld dword[edi+offs_obj_y_centr]
|
||
fld1
|
||
fld1
|
||
faddp
|
||
fdivp ;centr.y = size.y/2
|
||
fadd dword[edi+offs_obj_y_min]
|
||
fchs
|
||
fstp dword[edi+offs_obj_y_centr]
|
||
|
||
mov ebx,[edi+offs_obj_poi_data]
|
||
mov esi,[edi+offs_obj_poi_count]
|
||
align 4
|
||
.cycle_2: ;à ¡®â á ª®®à¤¨ ⮩ z
|
||
fld dword[ebx+8]
|
||
fld dword[edi+offs_obj_z_min]
|
||
fcomp
|
||
fstsw ax
|
||
sahf
|
||
jb @f
|
||
mov eax,[ebx+8]
|
||
mov [edi+offs_obj_z_min],eax
|
||
ffree st0
|
||
fincstp
|
||
jmp .next_z
|
||
@@:
|
||
fld dword[edi+offs_obj_z_max]
|
||
fcompp
|
||
fstsw ax
|
||
sahf
|
||
ja .next_z
|
||
mov eax,[ebx+8]
|
||
mov [edi+offs_obj_z_max],eax
|
||
.next_z:
|
||
|
||
add ebx,12
|
||
dec esi
|
||
jnz .cycle_2
|
||
|
||
fld1
|
||
fld dword[edi+offs_obj_z_max]
|
||
fsub dword[edi+offs_obj_z_min]
|
||
fst dword[edi+offs_obj_z_centr]
|
||
fdivp ;1/size.z
|
||
fstp dword[edi+offs_obj_z_scale]
|
||
|
||
fld dword[edi+offs_obj_z_centr]
|
||
fld1
|
||
fld1
|
||
faddp
|
||
fdivp ;centr.z = size.z/2
|
||
fadd dword[edi+offs_obj_z_min]
|
||
fchs
|
||
fstp dword[edi+offs_obj_z_centr]
|
||
|
||
; 室¨¬ à ¤¨ãá ¤«ï áä¥àë
|
||
fld dword[edi+offs_obj_x_max]
|
||
fsub dword[edi+offs_obj_x_min]
|
||
fld dword[edi+offs_obj_y_max]
|
||
fsub dword[edi+offs_obj_y_min]
|
||
faddp
|
||
fild dword[rad_c]
|
||
fdivp ;radius=(size.x+size.y)/rad_c
|
||
fstp dword[sph_radius]
|
||
|
||
;¤¥« ¥¬ ®¤¨ ª®¢ë© ¬ áèâ ¡ ¯® ®áï¬ x ¨ y, çâ®-¡ë ¥ àãè «¨áì ¯à®¯®à樨 ¨§®¡à ¦¥¨ï
|
||
fld dword[edi+offs_obj_y_scale]
|
||
fdiv dword[ratio] ;¯à¨¢¥¤¥¨¥ ¬ áèâ ¡ ¯® ®á¨ y ãç¨âë¢ ï çâ® ¯® ¢ëá®â¥ íªà ¬¥ìè¥
|
||
fcomp dword[edi+offs_obj_x_scale]
|
||
fstsw ax
|
||
sahf
|
||
jb @f
|
||
;ᦠ⨥ ¬ áèâ ¡ ¯® y
|
||
fld dword[edi+offs_obj_x_scale]
|
||
fmul dword[ratio]
|
||
fstp dword[edi+offs_obj_y_scale] ;¬ áèâ ¡ ¯® ®á¨ y = ¬ áèâ ¡ ¯® ®á¨ x
|
||
jmp .end
|
||
@@:
|
||
;ᦠ⨥ ¬ áèâ ¡ ¯® x >...<
|
||
fld dword[edi+offs_obj_x_scale]
|
||
fdiv dword[ratio]
|
||
fstp dword[edi+offs_obj_x_scale]
|
||
.end:
|
||
ret
|
||
endp
|
||
|
||
;ãáâ ®¢ª ®à¬ «¥© ¤«ï £à ¥©
|
||
align 4
|
||
proc obj_set_normals, o_data:dword
|
||
locals
|
||
tbl1 rd 9 ;ebp-72
|
||
tbl2 rd 9 ;ebp-36
|
||
endl
|
||
pushad
|
||
mov ecx,[o_data]
|
||
cmp dword[ecx+offs_obj_poi_count],0
|
||
je .end
|
||
mov eax,[ecx+offs_obj_tri_count]
|
||
mov [ecx+offs_obj_normals_tri_count],eax ; ª ¦¤ë© âà¥ã£®«ì¨ª 1 ®à¬ «ì
|
||
cmp eax,0
|
||
je .end
|
||
finit
|
||
imul eax,12
|
||
stdcall mem.Alloc, eax
|
||
mov [ecx+offs_obj_normals_tri_data],eax
|
||
|
||
mov edx,[ecx+offs_obj_tri_data]
|
||
mov ebx,[ecx+offs_obj_tri_count]
|
||
mov ecx,[ecx+offs_obj_poi_data]
|
||
align 4
|
||
@@:
|
||
mov edi,ebp
|
||
sub edi,36 ;tbl2
|
||
movzx esi,word[edx] ;1-ï ¢¥àè¨
|
||
imul esi,12
|
||
add esi,ecx
|
||
movsd
|
||
movsd
|
||
movsd
|
||
movzx esi,word[edx+2] ;2-ï ¢¥àè¨
|
||
imul esi,12
|
||
add esi,ecx
|
||
movsd
|
||
movsd
|
||
movsd
|
||
movzx esi,word[edx+4] ;3-ï ¢¥àè¨
|
||
imul esi,12
|
||
add esi,ecx
|
||
movsd
|
||
movsd
|
||
movsd
|
||
|
||
mov esi,ebp
|
||
sub esi,72 ;tbl1
|
||
sub edi,36 ;tbl2
|
||
;v1 <-> v2
|
||
fld dword[edi+12]
|
||
fsub dword[edi]
|
||
fstp dword[esi] ;(x1-x2)
|
||
fld dword[edi+16]
|
||
fsub dword[edi+4]
|
||
fstp dword[esi+4] ;(y1-y2)
|
||
fld dword[edi+20]
|
||
fsub dword[edi+8]
|
||
fstp dword[esi+8] ;(z1-z2)
|
||
;v2 <-> v3
|
||
fld dword[edi+24]
|
||
fsub dword[edi+12]
|
||
fstp dword[esi+12] ;(x2-x3)
|
||
fld dword[edi+28]
|
||
fsub dword[edi+16]
|
||
fstp dword[esi+16] ;(y2-y3)
|
||
fld dword[edi+32]
|
||
fsub dword[edi+20]
|
||
fstp dword[esi+20] ;(z2-z3)
|
||
;v3 <-> v1
|
||
fld dword[edi]
|
||
fsub dword[edi+24]
|
||
fstp dword[esi+24] ;(x3-x1)
|
||
fld dword[edi+4]
|
||
fsub dword[edi+28]
|
||
fstp dword[esi+28] ;(y3-y1)
|
||
fld dword[edi+8]
|
||
fsub dword[edi+32]
|
||
fstp dword[esi+32] ;(z3-z1)
|
||
|
||
;a1,a2,a3
|
||
fld dword[esi+4]
|
||
fmul dword[esi+8]
|
||
fstp dword[edi] ;a1=(y1-y2)*(z1-z2)
|
||
fld dword[esi+16]
|
||
fmul dword[esi+20]
|
||
fstp dword[edi+4] ;a2=(y2-y3)*(z2-z3)
|
||
fld dword[esi+28]
|
||
fmul dword[esi+32]
|
||
fstp dword[edi+8] ;a3=(y3-y1)*(z3-z1)
|
||
;b1,b2,b3
|
||
fld dword[esi]
|
||
fmul dword[esi+8]
|
||
fstp dword[edi+12] ;b1=(x1-x2)*(z1-z2)
|
||
fld dword[esi+12]
|
||
fmul dword[esi+20]
|
||
fstp dword[edi+16] ;b2=(x2-x3)*(z2-z3)
|
||
fld dword[esi+24]
|
||
fmul dword[esi+32]
|
||
fstp dword[edi+20] ;b3=(x3-x1)*(z3-z1)
|
||
;c1,á2,á3
|
||
fld dword[esi]
|
||
fmul dword[esi+4]
|
||
fstp dword[edi+24] ;c1=(x1-x2)*(y1-y2)
|
||
fld dword[esi+12]
|
||
fmul dword[esi+16]
|
||
fstp dword[edi+28] ;c2=(x2-x3)*(y2-y3)
|
||
fld dword[esi+24]
|
||
fmul dword[esi+28]
|
||
fstp dword[edi+32] ;c3=(x3-x1)*(y3-y1)
|
||
|
||
fld dword[edi]
|
||
fadd dword[edi+4]
|
||
fadd dword[edi+8]
|
||
fstp dword[eax] ;set normal.a
|
||
fld dword[edi+12]
|
||
fadd dword[edi+16]
|
||
fadd dword[edi+20]
|
||
fstp dword[eax+4] ;set normal.b
|
||
fld dword[edi+24]
|
||
fadd dword[edi+28]
|
||
fadd dword[edi+32]
|
||
fstp dword[eax+8] ;set normal.c
|
||
|
||
add edx,8 ;à §¬¥à âà¥ã£®«ì¨ª = (3 ¢¥àè¨ë (¯® 2¡) + ᢮©á⢠(2¡))
|
||
add eax,12
|
||
dec ebx
|
||
jnz @b
|
||
.end:
|
||
popad
|
||
ret
|
||
endp
|
||
|
||
; áâனª áâàãªâãàë 3d ®¡ê¥ªâ
|
||
align 4
|
||
proc obj_init, o_data:dword
|
||
pushad
|
||
mov edi,[o_data]
|
||
stdcall obj_clear_param, edi
|
||
stdcall [tl_node_get_data],tree1
|
||
xor edx,edx
|
||
cmp eax,0
|
||
je .no_points
|
||
mov ebx,[eax] ;¯®«ãç ¥¬ § 票¥ ᤢ¨£ ¢ë¡à ®£® ¡«®ª
|
||
add ebx,[open_file_data]
|
||
xor ecx,ecx
|
||
cmp word[ebx],CHUNK_OBJBLOCK
|
||
jne @f
|
||
mov ecx,ebx
|
||
add ecx,dword[ecx+2] ;£à ¨æ ¡«®ª
|
||
push eax edi
|
||
mov edi,ebx
|
||
add edi,6
|
||
cld
|
||
xor al,al
|
||
repne scasb ;¯à®¯ã᪠¨¬¥¨ ®¡ê¥ªâ
|
||
mov ebx,edi
|
||
pop edi eax
|
||
@@:
|
||
cmp word[ebx],CHUNK_TRIMESH
|
||
jne @f
|
||
mov ecx,ebx
|
||
add ecx,dword[ecx+2] ;£à ¨æ ¡«®ª
|
||
add ebx,6
|
||
@@:
|
||
cmp word[ebx],CHUNK_VERTLIST
|
||
jne .no_points
|
||
mov esi,ebx
|
||
movzx edx,word[ebx+6] ;ª®««¨ç¥á⢮ â®ç¥ª
|
||
add ebx,8
|
||
mov [edi+offs_obj_poi_data],ebx
|
||
mov [edi+offs_obj_poi_count],edx
|
||
|
||
.cycle_0: ;横« ¤«ï ¯®¨áª âà¥ã£®«ì¨ª®¢
|
||
add esi,dword[esi+2]
|
||
cmp word[esi],CHUNK_FACELIST
|
||
je @f
|
||
cmp ecx,esi
|
||
jg .cycle_0 ;¯®ª ¥ ¤®á⨣ãâ £à¨æ áâ à襣® ¡«®ª
|
||
jmp .end_points ;¥á«¨ ¥ 諨 âà¥ã£®«ì¨ª¨
|
||
@@:
|
||
;¥á«¨ 諨 âà¥ã£®«ì¨ª¨
|
||
movzx edx,word[esi+6]
|
||
mov [edi+offs_obj_tri_count],edx
|
||
add esi,8 ;2+4+2 (chunk+size+count)
|
||
mov [edi+offs_obj_tri_data],esi
|
||
.end_points:
|
||
|
||
stdcall obj_set_sizes, edi
|
||
stdcall obj_set_normals, edi
|
||
if version_edit eq 0
|
||
stdcall draw_3d, edi
|
||
end if
|
||
.no_points:
|
||
popad
|
||
ret
|
||
endp
|
||
|
||
; áâனª ¬ â¥à¨ «
|
||
align 4
|
||
proc mat_init, m_data:dword
|
||
pushad
|
||
mov edi,[m_data]
|
||
|
||
;... clear edi ...
|
||
mov dword[edi+offs_mat_name],0
|
||
mov dword[edi+offs_mat_col_ambient],0
|
||
mov dword[edi+offs_mat_col_diffuse],0
|
||
mov dword[edi+offs_mat_col_specular],0
|
||
|
||
stdcall [tl_node_get_data],tree1
|
||
xor edx,edx
|
||
cmp eax,0
|
||
je .no_material
|
||
mov ebx,[eax] ;¯®«ãç ¥¬ § 票¥ ᤢ¨£ ¢ë¡à ®£® ¡«®ª
|
||
add ebx,[open_file_data]
|
||
xor ecx,ecx
|
||
cmp word[ebx],CHUNK_MATERIAL
|
||
jne .no_material
|
||
mov ecx,ebx
|
||
add ecx,dword[ecx+2] ;£à ¨æ ¡«®ª
|
||
add ebx,6
|
||
cmp word[ebx],CHUNK_MATNAME
|
||
jne .no_material
|
||
;*** (0) ***
|
||
mov esi,ebx
|
||
add ebx,6
|
||
mov [edi+offs_mat_name],ebx
|
||
sub ebx,6
|
||
;*** (1) ***
|
||
.cycle_0: ;横« ¤«ï ¯®¨áª 梥⠬ â¥à¨ «
|
||
add esi,dword[esi+2]
|
||
cmp word[esi],0xa010
|
||
je @f
|
||
cmp ecx,esi
|
||
jg .cycle_0 ;¯®ª ¥ ¤®á⨣ãâ £à¨æ áâ à襣® ¡«®ª
|
||
jmp .end_material ;¥á«¨ ¥ 諨 梥⠬ â¥à¨ «
|
||
@@:
|
||
;¥á«¨ 諨 梥⠬ â¥à¨ «
|
||
add esi,6
|
||
cmp word[esi],0x0011
|
||
jne .end_material
|
||
add esi,6
|
||
mov dl,byte[esi]
|
||
mov [edi+offs_mat_col_ambient+2],dl
|
||
mov dx,word[esi+1]
|
||
ror dx,8
|
||
mov [edi+offs_mat_col_ambient],dx
|
||
;*** (2) ***
|
||
mov esi,ebx
|
||
.cycle_1: ;横« ¤«ï ¯®¨áª 梥⠬ â¥à¨ «
|
||
add esi,dword[esi+2]
|
||
cmp word[esi],0xa020
|
||
je @f
|
||
cmp ecx,esi
|
||
jg .cycle_1 ;¯®ª ¥ ¤®á⨣ãâ £à¨æ áâ à襣® ¡«®ª
|
||
jmp .end_material ;¥á«¨ ¥ 諨 梥⠬ â¥à¨ «
|
||
@@:
|
||
;¥á«¨ 諨 梥⠬ â¥à¨ «
|
||
add esi,6
|
||
cmp word[esi],0x0011
|
||
jne .end_material
|
||
add esi,6
|
||
mov dl,byte[esi]
|
||
mov [edi+offs_mat_col_diffuse+2],dl
|
||
mov dx,word[esi+1]
|
||
ror dx,8
|
||
mov [edi+offs_mat_col_diffuse],dx
|
||
;*** (3) ***
|
||
mov esi,ebx
|
||
.cycle_2: ;横« ¤«ï ¯®¨áª 梥⠬ â¥à¨ «
|
||
add esi,dword[esi+2]
|
||
cmp word[esi],0xa030
|
||
je @f
|
||
cmp ecx,esi
|
||
jg .cycle_2 ;¯®ª ¥ ¤®á⨣ãâ £à¨æ áâ à襣® ¡«®ª
|
||
jmp .end_material ;¥á«¨ ¥ 諨 梥⠬ â¥à¨ «
|
||
@@:
|
||
;¥á«¨ 諨 梥⠬ â¥à¨ «
|
||
add esi,6
|
||
cmp word[esi],0x0011
|
||
jne .end_material
|
||
add esi,6
|
||
mov dl,byte[esi]
|
||
mov [edi+offs_mat_col_specular+2],dl
|
||
mov dx,word[esi+1]
|
||
ror dx,8
|
||
mov [edi+offs_mat_col_specular],dx
|
||
|
||
.end_material:
|
||
.no_material:
|
||
popad
|
||
ret
|
||
endp
|
||
|
||
align 4
|
||
proc buf_draw_beg uses eax, buf:dword
|
||
mov eax,[buf]
|
||
stdcall [buf2d_clear], eax, [eax+16] ;ç¨á⨬ ¡ãä¥à
|
||
stdcall [buf2d_draw_text], eax, buf_1,txt_open_3ds,5,5,0xff
|
||
stdcall [buf2d_draw_text], eax, buf_1,openfile_path,5,15,0xff
|
||
cmp dword[level_stack],FILE_ERROR_CHUNK_SIZE ;¢®§¬®¦ ®è¨¡ª ä ©«
|
||
jne @f
|
||
stdcall [buf2d_draw_text], eax, buf_1,txt_3ds_err_sizes,5,25,0xff0000
|
||
@@:
|
||
ret
|
||
endp
|
||
|
||
;à¨á®¢ ¨¥ ¬ â¥à¨ «
|
||
align 4
|
||
proc draw_material uses edi, m_data:dword
|
||
mov edi,[m_data]
|
||
stdcall buf_draw_beg, buf_ogl
|
||
stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_afff,5,35,0xff
|
||
|
||
stdcall [buf2d_draw_text], buf_ogl,buf_1,[edi+offs_mat_name],15,45,0 ;¨¬ï ¬ â¥à¨ «
|
||
stdcall draw_color, [edi+offs_mat_col_ambient], txt_a010,2,55 ;®ªà㦠î騩 梥â
|
||
stdcall draw_color, [edi+offs_mat_col_diffuse], txt_a020,2,75 ;¤¨äã§ë© 梥â
|
||
stdcall draw_color, [edi+offs_mat_col_specular],txt_a030,2,95 ;§¥àª «ìë© æ¢¥â
|
||
|
||
stdcall [buf2d_draw], buf_ogl
|
||
ret
|
||
endp
|
||
|
||
align 4
|
||
proc draw_color uses eax ebx, color:dword, text:dword, c_x:dword, c_y:dword
|
||
mov eax,[c_x]
|
||
mov ebx,[c_y]
|
||
; ¯àאַ㣮«ì¨ª
|
||
inc ebx
|
||
stdcall [buf2d_filled_rect_by_size], buf_ogl,eax,ebx,30,17,[color]
|
||
dec ebx
|
||
stdcall [buf2d_rect_by_size], buf_ogl,eax,ebx,30,19, 0
|
||
; ¯®¤¯¨á¨
|
||
add eax,33
|
||
stdcall [buf2d_draw_text], buf_ogl, buf_1,[text],eax,ebx,0
|
||
add ebx,10
|
||
stdcall hex_in_str, buffer,[color],6
|
||
mov byte[buffer+6],0
|
||
stdcall [buf2d_draw_text], buf_ogl, buf_1,buffer,eax,ebx,0
|
||
ret
|
||
endp
|
||
|
||
;à¨á®¢ ¨¥ â®ç¥ª ¢ 3d
|
||
align 4
|
||
proc draw_3d uses eax ebx ecx edi, o_data:dword
|
||
mov edi,[o_data]
|
||
if 0 ;debug
|
||
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT
|
||
mov eax,[edi+offs_obj_poi_data]
|
||
stdcall convert_int_to_str, txt_select_vert.count,16
|
||
stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_select_vert,5,3,[color_select]
|
||
stdcall [kosglSwapBuffers]
|
||
jmp .end_f
|
||
end if
|
||
cmp dword[edi+offs_obj_poi_count],2
|
||
jl .end_f
|
||
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;®ç¨á⨬ ¡ãä¥à 梥⠨ £«ã¡¨ë
|
||
stdcall [glPushMatrix]
|
||
bt dword[draw_mode],bit_light
|
||
jnc @f
|
||
call SetLight
|
||
jmp .end_l
|
||
@@:
|
||
stdcall [glDisable],GL_LIGHTING
|
||
.end_l:
|
||
stdcall [glTranslatef], 0.0,0.0,0.5 ;correct for z
|
||
stdcall [glScalef], [edi+offs_obj_x_scale],[edi+offs_obj_y_scale],[edi+offs_obj_z_scale]
|
||
stdcall [glScalef], 1.0,1.0,0.7 ;correct for z
|
||
stdcall [glRotatef], [angle_z],0.0,0.0,1.0
|
||
stdcall [glRotatef], [angle_y],0.0,1.0,0.0
|
||
stdcall [glRotatef], [angle_x],1.0,0.0,0.0
|
||
stdcall [glTranslatef], [edi+offs_obj_x_centr],[edi+offs_obj_y_centr],[edi+offs_obj_z_centr]
|
||
|
||
;à¨á®¢ ¨¥ â®ç¥ª
|
||
bt dword[draw_mode],bit_vertexes
|
||
jnc .end_points
|
||
stdcall [glColor3ub],[color_vert+2],[color_vert+1],[color_vert]
|
||
stdcall [glBegin],GL_POINTS
|
||
mov eax,[edi+offs_obj_poi_data]
|
||
mov ebx,[edi+offs_obj_poi_count]
|
||
@@:
|
||
stdcall [glVertex3f], [eax],[eax+4],[eax+8]
|
||
add eax,12
|
||
dec ebx
|
||
jnz @b
|
||
stdcall [glEnd]
|
||
.end_points:
|
||
|
||
if version_edit eq 1
|
||
;à¨á®¢ ¨¥ ªâ¨¢®© â®çª¨
|
||
stdcall [tl_node_get_data],tree3
|
||
cmp eax,0
|
||
je @f
|
||
;¢ë¤¥«¥¨¥ ªâ¨¢®© â®çª¨
|
||
mov eax,[eax]
|
||
|
||
stdcall [glBegin],GL_LINES
|
||
stdcall [glColor3ub], [color_ox+2],[color_ox+1],[color_ox]
|
||
stdcall [glVertex3f], [edi+offs_obj_x_min],[eax+4],[eax+8]
|
||
stdcall [glVertex3f], [edi+offs_obj_x_max],[eax+4],[eax+8]
|
||
stdcall [glColor3ub], [color_oy+2],[color_oy+1],[color_oy]
|
||
stdcall [glVertex3f], [eax],[edi+offs_obj_y_min],[eax+8]
|
||
stdcall [glVertex3f], [eax],[edi+offs_obj_y_max],[eax+8]
|
||
stdcall [glColor3ub], [color_oz+2],[color_oz+1],[color_oz]
|
||
stdcall [glVertex3f], [eax],[eax+4],[edi+offs_obj_z_min]
|
||
stdcall [glVertex3f], [eax],[eax+4],[edi+offs_obj_z_max]
|
||
stdcall [glEnd]
|
||
|
||
stdcall [glColor3ub],[color_select+2],[color_select+1],[color_select]
|
||
stdcall [glPushMatrix]
|
||
stdcall [glTranslatef], [eax],[eax+4],[eax+8]
|
||
stdcall [gluSphere], [qObj], [sph_radius], 8,8
|
||
stdcall [glPopMatrix]
|
||
@@:
|
||
|
||
;à¨á®¢ ¨¥ ¢ë¤¥«¥ëå â®ç¥ª
|
||
cmp dword[obj_poi_sel_c],0
|
||
je .end_select
|
||
mov ecx,dword[obj_poi_sel_c]
|
||
stdcall [glColor3ub],[color_select+2],[color_select+1],[color_select]
|
||
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_sel
|
||
stdcall [tl_node_poi_get_data], tree3,ebx
|
||
mov eax,[eax]
|
||
stdcall [glPushMatrix]
|
||
stdcall [glTranslatef], [eax],[eax+4],[eax+8]
|
||
stdcall [gluSphere], [qObj], [sph_radius], 4,4
|
||
stdcall [glPopMatrix]
|
||
dec ecx
|
||
jz .end_select
|
||
.next_sel:
|
||
stdcall dword[tl_node_poi_get_next_info], tree3,ebx
|
||
jmp @b
|
||
.end_select:
|
||
end if
|
||
|
||
;à¨á®¢ ¨¥ £à ¥©
|
||
bt dword[draw_mode],bit_faces
|
||
jnc .end_triangles
|
||
cmp dword[edi+offs_obj_tri_count],0
|
||
je .end_triangles
|
||
cmp dword[edi+offs_obj_poi_count],0
|
||
je .end_triangles
|
||
bt dword[draw_mode],bit_faces_fill
|
||
jc @f
|
||
push GL_LINE
|
||
jmp .end_0
|
||
@@:
|
||
push GL_FILL
|
||
.end_0:
|
||
stdcall [glPolygonMode], GL_FRONT_AND_BACK ;mode - 㦥 ¢ á⥪¥
|
||
stdcall [glColor3ub],[color_face+2],[color_face+1],[color_face]
|
||
stdcall [glBegin],GL_TRIANGLES
|
||
mov eax,[edi+offs_obj_tri_data]
|
||
mov ecx,[edi+offs_obj_tri_count]
|
||
mov edx,[edi+offs_obj_normals_tri_data]
|
||
@@:
|
||
;
|
||
bt dword[draw_mode],bit_light
|
||
jnc .norm
|
||
;[obj_normals_tri_count]
|
||
stdcall [glNormal3fv], edx
|
||
add edx,12
|
||
.norm:
|
||
;
|
||
movzx ebx,word[eax] ;1-ï ¢¥àè¨
|
||
imul ebx,12
|
||
add ebx,[edi+offs_obj_poi_data]
|
||
stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
|
||
movzx ebx,word[eax+2] ;2-ï ¢¥àè¨
|
||
imul ebx,12
|
||
add ebx,[edi+offs_obj_poi_data]
|
||
stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
|
||
movzx ebx,word[eax+4] ;3-ï ¢¥àè¨
|
||
imul ebx,12
|
||
add ebx,[edi+offs_obj_poi_data]
|
||
stdcall [glVertex3f], [ebx],[ebx+4],[ebx+8]
|
||
add eax,8 ;à §¬¥à âà¥ã£®«ì¨ª = (3 ¢¥àè¨ë (¯® 2¡) + ᢮©á⢠(2¡))
|
||
dec ecx
|
||
jnz @b
|
||
stdcall [glEnd]
|
||
.end_triangles:
|
||
|
||
stdcall [glPopMatrix]
|
||
if version_edit eq 1
|
||
cmp dword[obj_poi_sel_c],0
|
||
je @f
|
||
stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_select_vert,5,3,[color_select]
|
||
@@:
|
||
end if
|
||
stdcall [kosglSwapBuffers]
|
||
.end_f:
|
||
ret
|
||
endp
|
||
|
||
align 4
|
||
SetLight:
|
||
stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position
|
||
stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir
|
||
|
||
stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light
|
||
stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light
|
||
|
||
stdcall [glEnable], GL_COLOR_MATERIAL
|
||
stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE
|
||
stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular
|
||
stdcall [glMaterialf], GL_FRONT, GL_SHININESS, mat_shininess
|
||
stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient
|
||
|
||
stdcall [glEnable],GL_LIGHTING
|
||
stdcall [glEnable],GL_LIGHT0
|
||
ret
|
||
|
||
;¢ª«îç ¥¬ ०¨¬ à¨á®¢ ¨ï ¢¥àè¨
|
||
align 4
|
||
mnu_vertexes_on:
|
||
or dword[draw_mode], 1 shl bit_vertexes
|
||
and dword[draw_mode], not (1 shl bit_faces) ;¢ëª«îç ¥¬ ०¨¬ à¨á®¢ ¨ï £à ¥© (çâ®-¡ë ¥ ¬¥è «¨)
|
||
call update_obj
|
||
ret
|
||
|
||
;¢ª«îç ¥¬ ०¨¬ à¨á®¢ ¨ï ª ઠáëå £à ¥©
|
||
align 4
|
||
mnu_edges_on:
|
||
or dword[draw_mode], 1 shl bit_faces
|
||
and dword[draw_mode], not ((1 shl bit_vertexes)+(1 shl bit_faces_fill))
|
||
call update_obj
|
||
ret
|
||
|
||
;¢ª«îç ¥¬ ०¨¬ à¨á®¢ ¨ï ᯫ®èëå £à ¥©
|
||
align 4
|
||
mnu_faces_on:
|
||
or dword[draw_mode], (1 shl bit_faces)+(1 shl bit_faces_fill)
|
||
and dword[draw_mode], not (1 shl bit_vertexes)
|
||
call update_obj
|
||
ret
|
||
|
||
;¢ª«îç ¥¬ ¨«¨ ®âª«îç ¥¬ ®á¢¥é¥¨¥
|
||
align 4
|
||
mnu_light_on_off:
|
||
xor dword[draw_mode], 1 shl bit_light
|
||
call update_obj
|
||
ret
|
||
|
||
align 4
|
||
mnu_reset_settings:
|
||
mov dword[angle_x],0.0
|
||
mov dword[angle_y],0.0
|
||
mov dword[angle_z],0.0
|
||
m2m dword[draw_mode],dword[def_dr_mode]
|
||
call update_obj
|
||
ret
|
||
|
||
if version_edit eq 1
|
||
|
||
align 4
|
||
update_obj:
|
||
stdcall draw_3d, o3d
|
||
ret
|
||
|
||
else
|
||
|
||
align 4
|
||
update_obj:
|
||
push eax ebx
|
||
stdcall [tl_node_get_data],tree1
|
||
cmp eax,0
|
||
je @f
|
||
mov ebx,dword[eax] ;¯®«ãç ¥¬ § 票¥ ᤢ¨£ ¢ë¡à ®£® ¡«®ª ®â®á¨â¥«ì® ç « ä ©«
|
||
add ebx,dword[open_file_data] ;¯®«ãç ¥¬ § 票¥ ᤢ¨£ ¢ ¯ ¬ïâ¨
|
||
cmp word[ebx],CHUNK_OBJBLOCK
|
||
jne @f
|
||
add eax,14 ;14=list_offs_obj3d
|
||
stdcall draw_3d, eax
|
||
@@:
|
||
pop ebx eax
|
||
ret
|
||
|
||
end if
|
||
|
||
align 4
|
||
draw_mode dd 0 ;०¨¬ à¨á®¢ ¨ï ®¡ê¥ªâ
|
||
def_dr_mode dd 0 ;०¨¬ à¨á®¢ ¨ï ¯® 㬮«ç ¨î
|
||
delt_size dd 3.0 ;¨§¬¥¥¨¥ 㣫®¢ ¯à¨ ¯®¢®à®â å á ª«¨¢¨ âãàë
|
||
mouse_drag dd 0 ;०¨¬ ¯®¢®à®â áæ¥ë ®â ¯¥à¥¬¥é¥¨¨ ªãàá®à ¬ëè¨
|
||
mouse_x dd 0
|
||
mouse_y dd 0
|
||
sph_radius dd 0 ;à ¤¨ãá áä¥àë ¤«ï ¢ë¤¥«¥¨ï ªâ¨¢®© â®çª¨
|
||
|