forked from KolibriOS/kolibrios
412 lines
8.8 KiB
Plaintext
412 lines
8.8 KiB
Plaintext
|
x3d equ 0
|
||
|
|
y3d equ 2
|
||
|
|
z3d equ 4
|
||
|
|
vec_x equ 0
|
||
|
|
vec_y equ 4
|
||
|
|
vec_z equ 8
|
||
|
|
; 3d point - triple integer word coordinate
|
||
|
|
; vector - triple float dword coordinate
|
||
|
|
;----------------------in: --------------------------------
|
||
|
|
;------------------------ esi - pointer to 1st 3d point ---
|
||
|
|
;------------------------ edi - pointer to 2nd 3d point ---
|
||
|
|
;------------------------ ebx - pointer to result vector --
|
||
|
|
;---------------------- out : none ------------------------
|
||
|
|
if 0
|
||
|
|
make_vector:
|
||
|
|
fninit
|
||
|
|
fild word[edi+x3d] ;edi+x3d
|
||
|
|
fisub word[esi+x3d] ;esi+x3d
|
||
|
|
fstp dword[ebx+vec_x]
|
||
|
|
|
||
|
|
fild word[edi+y3d]
|
||
|
|
fisub word[esi+y3d]
|
||
|
|
fstp dword[ebx+vec_y]
|
||
|
|
|
||
|
|
fild word[edi+z3d]
|
||
|
|
fisub word[esi+z3d]
|
||
|
|
fstp dword[ebx+vec_z]
|
||
|
|
|
||
|
|
ret
|
||
|
|
end if
|
||
|
|
make_vector_r:
|
||
|
|
fninit
|
||
|
|
fld dword[edi] ;edi+x3d
|
||
|
|
fsub dword[esi] ;esi+x3d
|
||
|
|
fstp dword[ebx+vec_x]
|
||
|
|
|
||
|
|
fld dword[edi+4]
|
||
|
|
fsub dword[esi+4]
|
||
|
|
fstp dword[ebx+vec_y]
|
||
|
|
|
||
|
|
fld dword[edi+8]
|
||
|
|
fsub dword[esi+8]
|
||
|
|
fstp dword[ebx+vec_z]
|
||
|
|
|
||
|
|
ret
|
||
|
|
;---------------------- in: -------------------------------
|
||
|
|
;--------------------------- esi - pointer to 1st vector --
|
||
|
|
;--------------------------- edi - pointer to 2nd vector --
|
||
|
|
;--------------------------- ebx - pointer to result vector
|
||
|
|
;---------------------- out : none
|
||
|
|
cross_product:
|
||
|
|
fninit
|
||
|
|
fld dword [esi+vec_y]
|
||
|
|
fmul dword [edi+vec_z]
|
||
|
|
fld dword [esi+vec_z]
|
||
|
|
fmul dword [edi+vec_y]
|
||
|
|
fsubp ;st1 ,st
|
||
|
|
fstp dword [ebx+vec_x]
|
||
|
|
|
||
|
|
fld dword [esi+vec_z]
|
||
|
|
fmul dword [edi+vec_x]
|
||
|
|
fld dword [esi+vec_x]
|
||
|
|
fmul dword [edi+vec_z]
|
||
|
|
fsubp ;st1 ,st
|
||
|
|
fstp dword [ebx+vec_y]
|
||
|
|
|
||
|
|
fld dword [esi+vec_x]
|
||
|
|
fmul dword [edi+vec_y]
|
||
|
|
fld dword [esi+vec_y]
|
||
|
|
fmul dword [edi+vec_x]
|
||
|
|
fsubp ;st1 ,st
|
||
|
|
fstp dword [ebx+vec_z]
|
||
|
|
ret
|
||
|
|
;----------------------- in: ------------------------------
|
||
|
|
;---------------------------- edi - pointer to vector -----
|
||
|
|
;----------------------- out : none
|
||
|
|
normalize_vector:
|
||
|
|
fninit
|
||
|
|
fld dword [edi+vec_x]
|
||
|
|
fmul st, st
|
||
|
|
fld dword [edi+vec_y]
|
||
|
|
fmul st, st
|
||
|
|
fld dword [edi+vec_z]
|
||
|
|
fmul st, st
|
||
|
|
faddp st1, st
|
||
|
|
faddp st1, st
|
||
|
|
fsqrt
|
||
|
|
|
||
|
|
ftst
|
||
|
|
fstsw ax
|
||
|
|
sahf
|
||
|
|
jnz @f
|
||
|
|
|
||
|
|
fst dword [edi+vec_x]
|
||
|
|
fst dword [edi+vec_y]
|
||
|
|
fstp dword [edi+vec_z]
|
||
|
|
ret
|
||
|
|
@@:
|
||
|
|
fld st
|
||
|
|
fld st
|
||
|
|
fdivr dword [edi+vec_x]
|
||
|
|
fstp dword [edi+vec_x]
|
||
|
|
fdivr dword [edi+vec_y]
|
||
|
|
fstp dword [edi+vec_y]
|
||
|
|
fdivr dword [edi+vec_z]
|
||
|
|
fstp dword [edi+vec_z]
|
||
|
|
ret
|
||
|
|
;------------------in: -------------------------
|
||
|
|
;------------------ esi - pointer to 1st vector
|
||
|
|
;------------------ edi - pointer to 2nd vector
|
||
|
|
;------------------out: ------------------------
|
||
|
|
;------------------ st0 - dot-product
|
||
|
|
dot_product:
|
||
|
|
fninit
|
||
|
|
fld dword [esi+vec_x]
|
||
|
|
fmul dword [edi+vec_x]
|
||
|
|
fld dword [esi+vec_y]
|
||
|
|
fmul dword [edi+vec_y]
|
||
|
|
fld dword [esi+vec_z]
|
||
|
|
fmul dword [edi+vec_z]
|
||
|
|
faddp
|
||
|
|
faddp
|
||
|
|
ret
|
||
|
|
|
||
|
|
; DOS version Coded by Mikolaj Felix aka Majuma
|
||
|
|
; mfelix@polbox.com
|
||
|
|
; www.majuma.xt.pl
|
||
|
|
; into FASM translation by Macgub
|
||
|
|
init_sincos_tab:
|
||
|
|
.counter equ dword [ebp-4] ; cur angle
|
||
|
|
|
||
|
|
push ebp
|
||
|
|
mov ebp,esp
|
||
|
|
|
||
|
|
xor eax,eax
|
||
|
|
push eax ; init .counter
|
||
|
|
mov edi,cos_tab
|
||
|
|
mov esi,sin_tab
|
||
|
|
mov ecx,256
|
||
|
|
fninit
|
||
|
|
|
||
|
|
fld .counter
|
||
|
|
@@:
|
||
|
|
fld st
|
||
|
|
fsincos
|
||
|
|
fstp dword [edi]
|
||
|
|
fstp dword [esi]
|
||
|
|
; fadd [piD180]
|
||
|
|
fadd [piD128]
|
||
|
|
add esi,4
|
||
|
|
add edi,4
|
||
|
|
loop @b
|
||
|
|
ffree st
|
||
|
|
|
||
|
|
mov esp,ebp
|
||
|
|
pop ebp
|
||
|
|
ret
|
||
|
|
;------
|
||
|
|
; esi - offset (pointer) to angles, edi offset to 3x3 matrix
|
||
|
|
make_rotation_matrix:
|
||
|
|
.sinx equ dword[ebp-4]
|
||
|
|
.cosx equ dword[ebp-8]
|
||
|
|
.siny equ dword[ebp-12]
|
||
|
|
.cosy equ dword[ebp-16]
|
||
|
|
.sinz equ dword[ebp-20]
|
||
|
|
.cosz equ dword[ebp-24]
|
||
|
|
push ebp
|
||
|
|
mov ebp,esp
|
||
|
|
sub esp,24
|
||
|
|
|
||
|
|
movzx ebx,word[esi]
|
||
|
|
shl ebx,2
|
||
|
|
mov eax,dword[sin_tab+ebx]
|
||
|
|
mov .sinx,eax
|
||
|
|
mov edx,dword[cos_tab+ebx]
|
||
|
|
mov .cosx,edx
|
||
|
|
|
||
|
|
movzx ebx,word[esi+2]
|
||
|
|
shl ebx,2
|
||
|
|
mov eax,dword[sin_tab+ebx]
|
||
|
|
mov .siny,eax
|
||
|
|
mov edx,dword[cos_tab+ebx]
|
||
|
|
mov .cosy,edx
|
||
|
|
|
||
|
|
movzx ebx,word[esi+4]
|
||
|
|
shl ebx,2
|
||
|
|
mov eax,dword[sin_tab+ebx]
|
||
|
|
mov .sinz,eax
|
||
|
|
mov edx,dword[cos_tab+ebx]
|
||
|
|
mov .cosz,edx
|
||
|
|
|
||
|
|
fninit
|
||
|
|
fld .cosy
|
||
|
|
fmul .cosz
|
||
|
|
fstp dword[edi]
|
||
|
|
|
||
|
|
fld .sinx
|
||
|
|
fmul .siny
|
||
|
|
fmul .cosz
|
||
|
|
fld .cosx
|
||
|
|
fmul .sinz
|
||
|
|
fchs
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+12]
|
||
|
|
|
||
|
|
fld .cosx
|
||
|
|
fmul .siny
|
||
|
|
fmul .cosz
|
||
|
|
fld .sinx
|
||
|
|
fmul .sinz
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+24]
|
||
|
|
|
||
|
|
fld .siny
|
||
|
|
fmul .sinz
|
||
|
|
fstp dword[edi+4]
|
||
|
|
|
||
|
|
fld .sinx
|
||
|
|
fmul .siny
|
||
|
|
fmul .sinz
|
||
|
|
fld .cosx
|
||
|
|
fmul .cosz
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+16]
|
||
|
|
|
||
|
|
fld .cosx
|
||
|
|
fmul .siny
|
||
|
|
fmul .sinz
|
||
|
|
fld .sinx
|
||
|
|
fchs
|
||
|
|
fmul .cosz
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+28]
|
||
|
|
|
||
|
|
fld .siny
|
||
|
|
fchs
|
||
|
|
fstp dword[edi+8]
|
||
|
|
|
||
|
|
fld .cosy
|
||
|
|
fmul .sinx
|
||
|
|
fstp dword[edi+20]
|
||
|
|
|
||
|
|
fld .cosx
|
||
|
|
fmul .cosy
|
||
|
|
fstp dword[edi+32]
|
||
|
|
|
||
|
|
mov esp,ebp
|
||
|
|
pop ebp
|
||
|
|
ret
|
||
|
|
;---------------------
|
||
|
|
; in: esi - ptr to points(normals], each point(normal) coeficient as dword
|
||
|
|
; edi - ptr to rotated points(normals)
|
||
|
|
; ebx - ptr to 3x3 (9 dwords, 36 bytes) rotation matrix
|
||
|
|
; ecx - number of points(normals)
|
||
|
|
rotary:
|
||
|
|
if Ext<SSE
|
||
|
|
fninit
|
||
|
|
.again:
|
||
|
|
|
||
|
|
fld dword[esi]
|
||
|
|
fmul dword[ebx]
|
||
|
|
fld dword[esi+4]
|
||
|
|
fmul dword[ebx+12]
|
||
|
|
faddp
|
||
|
|
fld dword[esi+8]
|
||
|
|
fmul dword[ebx+24]
|
||
|
|
faddp
|
||
|
|
fstp dword[edi]
|
||
|
|
|
||
|
|
|
||
|
|
fld dword[esi+4]
|
||
|
|
fmul dword[ebx+16]
|
||
|
|
fld dword[esi]
|
||
|
|
fmul dword[ebx+4]
|
||
|
|
faddp
|
||
|
|
fld dword[esi+8]
|
||
|
|
fmul dword[ebx+28]
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+4]
|
||
|
|
|
||
|
|
|
||
|
|
fld dword[esi+8]
|
||
|
|
fmul dword[ebx+32]
|
||
|
|
fld dword[esi]
|
||
|
|
fmul dword[ebx+8]
|
||
|
|
fld dword[esi+4]
|
||
|
|
fmul dword[ebx+20]
|
||
|
|
faddp
|
||
|
|
faddp
|
||
|
|
fstp dword[edi+8]
|
||
|
|
|
||
|
|
|
||
|
|
add esi,12
|
||
|
|
add edi,12
|
||
|
|
loop .again
|
||
|
|
mov [edi],dword -1
|
||
|
|
else
|
||
|
|
; Copyright (C) 1999-2001 Brian Paul
|
||
|
|
; Copyright (C) Maciej Guba
|
||
|
|
;---------------------
|
||
|
|
; in: esi - ptr to points(normals], each point(normal) coeficient as dword
|
||
|
|
; edi - ptr to rotated points(normals)
|
||
|
|
; ebx - ptr to 3x3 (9 dwords, 36 bytes) rotation matrix
|
||
|
|
; ecx - number of points(normals)
|
||
|
|
;align 32
|
||
|
|
movups xmm4,[ebx]
|
||
|
|
movups xmm5,[ebx+12]
|
||
|
|
movups xmm6,[ebx+24]
|
||
|
|
;align 32
|
||
|
|
.again:
|
||
|
|
movss xmm0,dword[esi]
|
||
|
|
shufps xmm0,xmm0,0
|
||
|
|
mulps xmm0,xmm4
|
||
|
|
|
||
|
|
movss xmm1,dword[esi+4]
|
||
|
|
shufps xmm1,xmm1,0
|
||
|
|
mulps xmm1,xmm5
|
||
|
|
|
||
|
|
movss xmm2,dword[esi+8]
|
||
|
|
shufps xmm2,xmm2,0
|
||
|
|
mulps xmm2,xmm6
|
||
|
|
|
||
|
|
addps xmm0,xmm1
|
||
|
|
addps xmm0,xmm2
|
||
|
|
|
||
|
|
movups [edi],xmm0
|
||
|
|
|
||
|
|
add esi,12
|
||
|
|
add edi,12
|
||
|
|
dec ecx
|
||
|
|
jne .again
|
||
|
|
mov [edi],dword -1
|
||
|
|
end if
|
||
|
|
ret
|
||
|
|
;----------------------------------------------
|
||
|
|
; esi - pointer to 3x3 matrix
|
||
|
|
add_scale_to_matrix:
|
||
|
|
fninit
|
||
|
|
fld [rsscale]
|
||
|
|
fld dword[esi] ;-----
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi]
|
||
|
|
fld dword[esi+12] ; x scale
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+12]
|
||
|
|
fld dword[esi+24]
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+24] ;------
|
||
|
|
|
||
|
|
fld dword[esi+4] ;-----
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+4]
|
||
|
|
fld dword[esi+16] ; y scale
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+16]
|
||
|
|
fld dword[esi+28]
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+28] ;------
|
||
|
|
|
||
|
|
|
||
|
|
fld dword[esi+8] ;-----
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+8]
|
||
|
|
fld dword[esi+20] ; z scale
|
||
|
|
fmul st,st1
|
||
|
|
fstp dword[esi+20]
|
||
|
|
fld dword[esi+32]
|
||
|
|
fmulp st1,st
|
||
|
|
fstp dword[esi+32] ;------
|
||
|
|
|
||
|
|
ret
|
||
|
|
|
||
|
|
;in esi - offset to 3d points (point as 3 dwords float)
|
||
|
|
; edi - offset to 2d points ( as 3 words integer)
|
||
|
|
; ecx - number of points
|
||
|
|
translate_points: ; just convert into integer; z coord still needed
|
||
|
|
fninit
|
||
|
|
.again:
|
||
|
|
fld dword[esi+8]
|
||
|
|
; fmul [rsscale]
|
||
|
|
fist word[edi+4]
|
||
|
|
|
||
|
|
fisub [zobs]
|
||
|
|
fchs
|
||
|
|
|
||
|
|
fld dword[esi]
|
||
|
|
; fmul [rsscale]
|
||
|
|
fisub [xobs]
|
||
|
|
fimul [zobs]
|
||
|
|
fdiv st0,st1
|
||
|
|
|
||
|
|
fiadd [xobs]
|
||
|
|
fiadd [vect_x]
|
||
|
|
fistp word[edi]
|
||
|
|
|
||
|
|
fld dword[esi+4]
|
||
|
|
; fmul [rsscale]
|
||
|
|
fisub [yobs]
|
||
|
|
fimul [zobs]
|
||
|
|
fdivrp ; st0,st1
|
||
|
|
|
||
|
|
fiadd [yobs]
|
||
|
|
fiadd [vect_y]
|
||
|
|
fistp word[edi+2]
|
||
|
|
|
||
|
|
add esi,12
|
||
|
|
add edi,6
|
||
|
|
dec ecx
|
||
|
|
jnz .again
|
||
|
|
|
||
|
|
ret
|