forked from KolibriOS/kolibrios
424 lines
8.4 KiB
PHP
424 lines
8.4 KiB
PHP
;=========================================================================
|
|
detect_chunks:
|
|
; make pivot table, sort, remove unused vertices, find chunks...
|
|
; in - some global variables
|
|
; out:
|
|
; ebx - chunks list ptr, every chunk as word
|
|
; ecx - chunks number
|
|
; esi - tri_ch ; vertices with triangles list
|
|
; edi - t_ptr ; pointers to tri_ch list
|
|
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,60
|
|
|
|
|
|
.tri_ch equ dword[ebp-4] ; tri chunks list ptr
|
|
.chunks equ dword[ebp-8] ; chunks ptreach tri chunk No. as word
|
|
.endt equ dword[ebp-12] ;
|
|
.t_ptr equ dword[ebp-16] ; pointers list
|
|
.tri_ch1 equ dword[ebp-20] ;
|
|
.up equ dword[ebp-24] ; upload ptr
|
|
.chmr equ dword[ebp-28] ; bit mark list if tri stored
|
|
.str equ dword[ebp-32] ; store ptr
|
|
.ltch1 equ dword[ebp-36] ; end of tri_ch1 ptr
|
|
.ch_cnt equ dword[ebp-40]
|
|
.cntt equ dword[ebp-44]
|
|
.cc equ dword[ebp-48]
|
|
.lsparam equ dword[ebp-52]
|
|
.fix_mark equ dword[ebp-56]
|
|
.endVptr equ dword[ebp-60]
|
|
|
|
; some triangles have repeated indices of vertices
|
|
; check and remove such triangles
|
|
call remove_dead_tri
|
|
|
|
mov ecx,[triangles_count_var]
|
|
shl ecx,3
|
|
lea ecx,[ecx*3]
|
|
add ecx,100
|
|
mov eax,68
|
|
mov ebx,12
|
|
int 0x40
|
|
mov .tri_ch,eax
|
|
|
|
|
|
mov ecx,[triangles_count_var]
|
|
imul ecx,[i12]
|
|
add ecx,32
|
|
mov eax,68
|
|
mov ebx,12
|
|
int 0x40
|
|
mov .tri_ch1,eax
|
|
|
|
mov ecx,[points_count_var]
|
|
shl ecx,2
|
|
add ecx,1120
|
|
mov eax,68
|
|
mov ebx,12
|
|
int 0x40
|
|
mov .t_ptr,eax
|
|
|
|
mov ecx,[triangles_count_var]
|
|
shl ecx,1
|
|
add ecx,20
|
|
mov eax,68
|
|
mov ebx,12
|
|
int 0x40
|
|
mov .chunks,eax
|
|
|
|
mov ecx,[triangles_count_var]
|
|
shr ecx,3
|
|
add ecx,20
|
|
mov eax,68
|
|
mov ebx,12
|
|
int 0x40
|
|
mov .chmr,eax ; chunks mark if bit is set - tri was used
|
|
|
|
mov edi,eax
|
|
; pxor xmm0,xmm0
|
|
mov ecx,[triangles_count_var]
|
|
shr ecx,5
|
|
inc ecx
|
|
xor eax,eax
|
|
cld
|
|
rep stosd
|
|
; shr ecx,7
|
|
; inc ecx
|
|
; @@:
|
|
; movdqa [edi],xmm0
|
|
; add edi,16
|
|
; loop @b
|
|
|
|
|
|
mov eax,[points_count_var]
|
|
imul eax,[i12]
|
|
add eax,[points_ptr]
|
|
mov .endVptr,eax
|
|
|
|
; make pivot table
|
|
|
|
mov edi,.tri_ch
|
|
mov esi,[triangles_ptr]
|
|
xor ecx,ecx
|
|
@@:
|
|
movd xmm1,ecx
|
|
movq xmm0,[esi]
|
|
pshufd xmm1,xmm1,0
|
|
movd xmm2,[esi+8]
|
|
punpckldq xmm0,xmm1
|
|
punpckldq xmm2,xmm1
|
|
movdqu [edi],xmm0
|
|
movq [edi+16],xmm2
|
|
add esi,12
|
|
add edi,24
|
|
inc ecx
|
|
cmp ecx,[triangles_count_var]
|
|
jnz @b
|
|
|
|
;sort
|
|
|
|
mov ebx,.tri_ch
|
|
mov ecx,[triangles_count_var]
|
|
lea ecx,[ecx*3]
|
|
|
|
mov esi,ecx
|
|
shl esi,3
|
|
add esi,ebx
|
|
mov .endt,esi
|
|
|
|
.ccc: ; ebx - vert index
|
|
mov eax,[ebx+8] ; ebx+4 - tri index
|
|
cmp eax,[ebx]
|
|
jge .g
|
|
movq xmm0,[ebx+8]
|
|
push ebx
|
|
.c:
|
|
cmp ebx,esi
|
|
jae .done
|
|
cmp ebx,.tri_ch
|
|
jb .done
|
|
cmp eax,[ebx]
|
|
jae .done
|
|
movq xmm7,[ebx]
|
|
movq [ebx+8],xmm7
|
|
sub ebx,8
|
|
jnc .c
|
|
add ebx,8
|
|
.done:
|
|
movq [ebx+8],xmm0
|
|
.p:
|
|
pop ebx
|
|
.g:
|
|
add ebx,8
|
|
dec ecx
|
|
cmp ecx,1
|
|
jnz .ccc
|
|
|
|
|
|
|
|
|
|
|
|
mov ecx,[points_count_var]
|
|
mov esi,.tri_ch
|
|
dec ecx
|
|
.ptC:
|
|
mov eax,[esi]
|
|
add esi,8
|
|
.ptCff:
|
|
cmp esi,.endt
|
|
jae .dnC
|
|
cmp eax,[esi]
|
|
je @f
|
|
lea ebx,[eax+1]
|
|
cmp ebx,[esi]
|
|
jne .movt
|
|
dec ecx
|
|
jz .dnC ; check done
|
|
@@:
|
|
jmp .ptC
|
|
|
|
; jmp .dnC
|
|
|
|
.movt:
|
|
|
|
movd xmm5,esi
|
|
movd xmm7,ebx
|
|
mov edi,[esi]
|
|
sub edi,ebx
|
|
movd xmm6,edi
|
|
|
|
@@:
|
|
cmp esi,.endt
|
|
jnb @f
|
|
sub [esi],edi ; fix .tri_ch pivot table list
|
|
add esi,8
|
|
jmp @b
|
|
@@:
|
|
|
|
|
|
;shrink vert
|
|
lea ebx,[ebx*3]
|
|
shl ebx,2
|
|
add ebx,[points_ptr]
|
|
imul edi,[i12]
|
|
add edi,ebx
|
|
|
|
cmp edi,.endVptr ; fix points_r list
|
|
ja .dnV
|
|
@@:
|
|
movq xmm0,[edi]
|
|
movd xmm1,[edi+8]
|
|
movq [ebx],xmm0
|
|
movd [ebx+8],xmm1
|
|
add edi,12
|
|
add ebx,12
|
|
cmp edi,.endVptr ; fix point_r list
|
|
jna @b
|
|
|
|
.dnV:
|
|
|
|
; recalc tri all indices above ebx - sub edi
|
|
push ecx
|
|
|
|
mov esi,[triangles_ptr]
|
|
mov ecx,[triangles_count_var]
|
|
lea ecx,[ecx*3]
|
|
movd edi,xmm6
|
|
movd ebx,xmm7
|
|
.agT:
|
|
cmp [esi],ebx
|
|
jb @f
|
|
sub [esi],edi
|
|
@@:
|
|
add esi,4
|
|
loop .agT
|
|
|
|
pop ecx
|
|
|
|
movd esi,xmm5
|
|
|
|
sub [points_count_var],edi
|
|
|
|
dec ecx
|
|
|
|
jmp .ptCff ; again check sth found
|
|
|
|
|
|
.dnC: ; check done
|
|
|
|
|
|
|
|
.do_ch:
|
|
|
|
|
|
;make t_ptr - table with pointers/adresses
|
|
|
|
|
|
mov ecx,[points_count_var]
|
|
mov esi,.tri_ch
|
|
mov edi,.t_ptr
|
|
mov ebx,ecx
|
|
|
|
mov [edi],esi
|
|
add edi,4
|
|
dec ecx
|
|
jz .dn
|
|
.pt:
|
|
mov eax,[esi] ; [esi] - vert ind
|
|
add esi,8
|
|
cmp eax,[esi] ; [esi+4] - tri ind
|
|
je @f
|
|
mov [edi],esi
|
|
add edi,4
|
|
dec ecx
|
|
jz .dn
|
|
@@:
|
|
cmp esi,.endt
|
|
jb .pt
|
|
|
|
|
|
.dn:
|
|
|
|
|
|
; each dword position in .t_ptr list - adress of corresponding
|
|
; triangles indices, each triangles from such index contains this
|
|
; vertice
|
|
|
|
|
|
mov eax,[triangles_count_var]
|
|
mov .cntt,eax ; temp help cnt
|
|
xor ecx,ecx
|
|
mov .cc,ecx
|
|
mov esi,[triangles_ptr]
|
|
mov edi,.tri_ch1
|
|
imul eax,[i12]
|
|
add eax,edi
|
|
mov .ltch1,eax ; last
|
|
|
|
mov .up,esi
|
|
mov .str,edi
|
|
; mov edi,.tri_ch1
|
|
.lb1: ; nx chunk
|
|
cmp edi,.ltch1
|
|
jnb .endl
|
|
mov edi,.tri_ch1
|
|
mov .str,edi
|
|
mov eax,.cc
|
|
mov edx,.cc
|
|
inc .cc
|
|
cmp edx,[triangles_count_var]
|
|
jz .endl
|
|
shr eax,3
|
|
and edx,111b
|
|
add eax,.chmr
|
|
|
|
xor ebx,ebx
|
|
bt [eax],edx ; mark
|
|
jc @f ; tri was stored
|
|
inc ecx
|
|
or ebx,1b
|
|
mov esi,.up
|
|
movdqu xmm0,[esi]
|
|
movdqu [edi],xmm0
|
|
add .str,12
|
|
@@:
|
|
add .up,12
|
|
or ebx,ebx
|
|
jz .lb1
|
|
|
|
.lb2:
|
|
mov eax,[edi]
|
|
mov edx,[edi] ; edx - vert ind
|
|
shl eax,2
|
|
add eax,.t_ptr
|
|
mov eax,[eax] ; [eax] - t ptr
|
|
or eax,eax
|
|
jz .endl
|
|
.nxt:
|
|
|
|
mov esi,[eax+4]
|
|
mov ebx,[eax+4]
|
|
shr esi,3
|
|
and ebx,111b
|
|
add esi,.chmr
|
|
bts [esi],ebx ; mark
|
|
jc @f ; tri was stored
|
|
dec .cntt
|
|
je .endl
|
|
mov esi,[eax+4] ; [eax+4] - tri ind
|
|
add esi,esi
|
|
add esi,.chunks
|
|
mov [esi],cx
|
|
mov esi,[eax+4]
|
|
|
|
imul esi,[i12]
|
|
add esi,[triangles_ptr]
|
|
movups xmm0,[esi]
|
|
mov esi,.str
|
|
movups [esi],xmm0
|
|
add .str,12
|
|
@@:
|
|
add eax,8
|
|
cmp edx,[eax]
|
|
je .nxt
|
|
add edi,4
|
|
|
|
cmp edi,.str
|
|
jne .lb2
|
|
jmp .lb1
|
|
|
|
.endl:
|
|
|
|
mov .ch_cnt,ecx
|
|
|
|
|
|
.end:
|
|
|
|
|
|
|
|
; mov eax,68
|
|
; mov ebx,13
|
|
; mov ecx,.t_ptr
|
|
; int 0x40
|
|
|
|
; mov eax,68
|
|
; mov ebx,13
|
|
; mov ecx,.tri_ch
|
|
; int 0x40
|
|
|
|
mov eax,68
|
|
mov ebx,13
|
|
mov ecx,.tri_ch1
|
|
int 0x40
|
|
|
|
mov eax,68
|
|
mov ebx,13
|
|
mov ecx,.chmr
|
|
int 0x40
|
|
; for now free mem - cunks list - unused
|
|
|
|
; mov eax,68
|
|
; mov ebx,13
|
|
; mov ecx,.chunks
|
|
; int 0x40
|
|
|
|
|
|
|
|
mov ebx,.chunks
|
|
mov ecx,.ch_cnt
|
|
|
|
mov esi,.tri_ch
|
|
mov edi,.t_ptr
|
|
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|