751 lines
18 KiB
NASM
751 lines
18 KiB
NASM
align 4
|
|
sp128f dd 128.0
|
|
|
|
align 4
|
|
proc glopMaterial uses eax ebx ecx edi esi, context:dword, p:dword
|
|
; edi -> GLMaterial *m
|
|
mov eax,[context]
|
|
mov ebx,[p]
|
|
mov ecx,[ebx+4] ;ecx = p[1]
|
|
|
|
cmp ecx,GL_FRONT_AND_BACK ;if (mode == GL_FRONT_AND_BACK)
|
|
jne @f
|
|
mov dword[ebx+4],GL_FRONT ;p[1].i=GL_FRONT
|
|
mov edi,ebp
|
|
add edi,12
|
|
stdcall glopMaterial,eax,edi
|
|
mov ecx,GL_BACK
|
|
@@:
|
|
mov edi,eax
|
|
add edi,offs_cont_materials
|
|
cmp ecx,GL_FRONT ;if (mode == GL_FRONT) m=&context.materials[0]
|
|
je @f
|
|
add edi,sizeof.GLMaterial ;else m=&context.materials[1]
|
|
@@:
|
|
|
|
mov ecx,4
|
|
mov esi,ebx ;esi = &p
|
|
add esi,12 ;esi = &p[3]
|
|
mov ebx,[ebx+8] ;ebx = p[2]
|
|
cmp ebx,GL_EMISSION
|
|
jne @f
|
|
;add edi,offs_mate_emission ;offs_mate_emission=0
|
|
rep movsd
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_AMBIENT
|
|
jne @f
|
|
add edi,offs_mate_ambient
|
|
rep movsd
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_DIFFUSE
|
|
jne @f
|
|
add edi,offs_mate_diffuse
|
|
rep movsd
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_SPECULAR
|
|
jne @f
|
|
add edi,offs_mate_specular
|
|
rep movsd
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_SHININESS
|
|
jne @f
|
|
fld dword[esi]
|
|
add edi,offs_mate_shininess
|
|
movsd
|
|
mov dword[edi],SPECULAR_BUFFER_RESOLUTION
|
|
fdiv dword[sp128f]
|
|
fimul dword[edi]
|
|
fistp dword[edi] ;m.shininess_i = (v[0]/128.0f)*SPECULAR_BUFFER_RESOLUTION
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_AMBIENT_AND_DIFFUSE
|
|
jne @f
|
|
add edi,offs_mate_ambient
|
|
rep movsd
|
|
sub esi,16
|
|
;edi = &offs_mate_diffuse
|
|
mov ecx,4
|
|
rep movsd
|
|
jmp .end_f
|
|
@@: ;default
|
|
; assert(0);
|
|
.end_f:
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc glopColorMaterial uses eax ebx ecx, context:dword, p:dword
|
|
mov eax,[context]
|
|
mov ebx,[p]
|
|
mov ecx,[ebx+4] ;ecx = p[1]
|
|
mov dword[eax+offs_cont_current_color_material_mode],ecx
|
|
mov ecx,[ebx+8] ;ecx = p[2]
|
|
mov dword[eax+offs_cont_current_color_material_type],ecx
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
proc glopLight context:dword, p:dword
|
|
locals
|
|
pos V4
|
|
endl
|
|
pushad
|
|
mov eax,[context]
|
|
mov ebx,[p]
|
|
mov edx,[ebx+4] ;edx = p[1]
|
|
|
|
; assert(edx >= GL_LIGHT0 && edx < GL_LIGHT0+MAX_LIGHTS );
|
|
|
|
sub edx,GL_LIGHT0
|
|
imul edx,sizeof.GLLight
|
|
add edx,eax
|
|
add edx,offs_cont_lights
|
|
|
|
mov ecx,[ebx+8] ;ecx = p[2]
|
|
cmp ecx,GL_AMBIENT
|
|
jne @f
|
|
mov esi,ebx
|
|
add esi,12
|
|
mov edi,edx
|
|
;add edi,offs_ligh_ambient ;offs_ligh_ambient = 0
|
|
mov ecx,4
|
|
rep movsd ;l.ambient=v
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_DIFFUSE
|
|
jne @f
|
|
mov esi,ebx
|
|
add esi,12
|
|
mov edi,edx
|
|
add edi,offs_ligh_diffuse
|
|
mov ecx,4
|
|
rep movsd ;l.diffuse=v
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_SPECULAR
|
|
jne @f
|
|
mov esi,ebx
|
|
add esi,12
|
|
mov edi,edx
|
|
add edi,offs_ligh_specular
|
|
mov ecx,4
|
|
rep movsd ;l.specular=v
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_POSITION
|
|
jne @f
|
|
mov edi,ebx ;ebx = [ebp+12] = [p] = &p[0]
|
|
add edi,12 ;&p[3]
|
|
mov esi,ebp
|
|
sub esi,16 ;&pos
|
|
stdcall gl_M4_MulV4, esi,dword[eax+offs_cont_matrix_stack_ptr],edi
|
|
mov edi,edx
|
|
add edi,offs_ligh_position
|
|
mov ecx,4
|
|
rep movsd ;l.position=pos
|
|
|
|
fld dword[edi-4] ;if(l.position.v[3] == 0)
|
|
ftst
|
|
fstsw ax
|
|
sahf
|
|
jne .end_i
|
|
;mov esi,ebp
|
|
sub esi,16 ;&pos
|
|
mov edi,edx
|
|
add edi,offs_ligh_norm_position
|
|
mov ecx,3
|
|
rep movsd ;l.norm_position=pos[1,2,3]
|
|
|
|
;mov edi,edx
|
|
;add edi,offs_ligh_norm_position
|
|
sub edi,12
|
|
stdcall gl_V3_Norm,edi ;&l.norm_position
|
|
.end_i:
|
|
ffree st0
|
|
fincstp
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_SPOT_DIRECTION
|
|
jne @f
|
|
mov esi,ebx ;&p[0]
|
|
add esi,12
|
|
mov edi,edx
|
|
add edi,offs_ligh_spot_direction
|
|
mov ecx,3
|
|
rep movsd ;l.spot_direction=v[0,1,2]
|
|
;mov esi,ebx
|
|
;add esi,12
|
|
sub esi,12
|
|
;mov edi,edx
|
|
;add edi,offs_ligh_norm_spot_direction
|
|
add edi,offs_ligh_norm_spot_direction-(offs_ligh_spot_direction+12)
|
|
mov ecx,3
|
|
rep movsd ;l.norm_spot_direction=v[0,1,2]
|
|
add edx,offs_ligh_norm_spot_direction
|
|
stdcall gl_V3_Norm,edx
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_SPOT_EXPONENT
|
|
jne @f
|
|
mov ecx,[ebx+12]
|
|
mov [edi+offs_ligh_spot_exponent],ecx ;l.spot_exponent=p[3]
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_SPOT_CUTOFF
|
|
jne .end_spot_c
|
|
fld dword[ebp+12] ;float a=v.v[0]
|
|
; assert(a == 180 || (a>=0 && a<=90));
|
|
fst dword[edi+offs_ligh_spot_cutoff] ;l.spot_cutoff=a
|
|
fcom dword[an180f] ;if (a != 180)
|
|
fstsw ax
|
|
sahf
|
|
je @f
|
|
fldpi
|
|
fmulp
|
|
fdiv dword[an180f]
|
|
fcos
|
|
fstp dword[edi+offs_ligh_cos_spot_cutoff] ;l.cos_spot_cutoff=cos(a * M_PI / 180.0)
|
|
jmp .end_f
|
|
@@:
|
|
ffree st0
|
|
fincstp
|
|
jmp .end_f
|
|
.end_spot_c:
|
|
cmp ecx,GL_CONSTANT_ATTENUATION
|
|
jne @f
|
|
mov ecx,[ebx+12]
|
|
mov [edi+offs_ligh_attenuation],ecx ;l->attenuation[0]=p[3]
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_LINEAR_ATTENUATION
|
|
jne @f
|
|
mov ecx,[ebx+12]
|
|
mov [edi+offs_ligh_attenuation+4],ecx ;l->attenuation[1]=p[3]
|
|
jmp .end_f
|
|
@@:
|
|
cmp ecx,GL_QUADRATIC_ATTENUATION
|
|
jne @f
|
|
mov ecx,[ebx+12]
|
|
mov [edi+offs_ligh_attenuation+8],ecx ;l->attenuation[2]=p[3]
|
|
jmp .end_f
|
|
@@: ;default:
|
|
; assert(0);
|
|
.end_f:
|
|
popad
|
|
ret
|
|
endp
|
|
|
|
|
|
align 4
|
|
proc glopLightModel uses ebx ecx esi edi, context:dword, p:dword
|
|
mov edi,[context]
|
|
mov ebx,[p]
|
|
mov ebx,[ebx+4]
|
|
mov esi,[ebp+12] ;&p[0]
|
|
add esi,8 ;&p[2]
|
|
|
|
cmp ebx,GL_LIGHT_MODEL_AMBIENT
|
|
jne @f
|
|
mov ecx,4
|
|
add edi,offs_cont_ambient_light_model
|
|
rep movsd ;for(i=0;i<4;i++) context.ambient_light_model.v[i]=v[i]
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_LIGHT_MODEL_LOCAL_VIEWER
|
|
jne @f
|
|
fld dword[esi] ;st0 = p[2]
|
|
fistp dword[edi+offs_cont_local_light_model]
|
|
jmp .end_f
|
|
@@:
|
|
cmp ebx,GL_LIGHT_MODEL_TWO_SIDE
|
|
jne @f
|
|
fld dword[esi] ;st0 = p[2]
|
|
fistp dword[edi+offs_cont_light_model_two_side]
|
|
jmp .end_f
|
|
@@: ;default:
|
|
; tgl_warning("glopLightModel: illegal pname: 0x%x\n", ebx);
|
|
; //assert(0);
|
|
.end_f:
|
|
ret
|
|
endp
|
|
|
|
macro clampf a, min, max
|
|
{
|
|
local .o_1
|
|
local .o_2
|
|
local .end_m
|
|
fld dword a ;if (a<=0.0)
|
|
ftst
|
|
fstsw ax
|
|
sahf
|
|
ja .o_1
|
|
ffree st0
|
|
fincstp
|
|
mov eax,0.0
|
|
jmp .end_m ;return 0.0
|
|
.o_1:
|
|
fld1 ;else if (a>=1.0)
|
|
fcompp
|
|
fstsw ax
|
|
sahf
|
|
ja .o_2
|
|
mov eax,1.0
|
|
jmp .end_m ;return 1.0
|
|
.o_2:
|
|
mov eax,dword a ;else return a
|
|
.end_m:
|
|
}
|
|
|
|
align 4
|
|
proc gl_enable_disable_light uses eax ebx ecx, context:dword, light:dword, v:dword
|
|
mov eax,[context]
|
|
mov ebx,[light]
|
|
imul ebx,sizeof.GLLight
|
|
add ebx,eax
|
|
add ebx,offs_cont_lights
|
|
|
|
xor ecx,ecx
|
|
cmp dword[ebx+offs_ligh_enabled],0
|
|
jne @f
|
|
not ecx
|
|
@@:
|
|
and ecx,[v]
|
|
or ecx,ecx
|
|
jz @f
|
|
;if (v && !l.enabled)
|
|
mov dword[ebx+offs_ligh_enabled],1
|
|
mov ecx,[eax+offs_cont_first_light]
|
|
mov [ebx+offs_ligh_next],ecx
|
|
mov [eax+offs_cont_first_light],ebx ;context.first_light = l
|
|
mov dword[ebx+offs_ligh_prev],0 ;l.prev = NULL
|
|
jmp .end_f
|
|
@@:
|
|
xor ecx,ecx
|
|
cmp dword[v],0
|
|
jne @f
|
|
not ecx
|
|
@@:
|
|
and ecx,[ebx+offs_ligh_enabled]
|
|
or ecx,ecx
|
|
jz .end_f
|
|
;else if (!v && l.enabled)
|
|
mov dword[ebx+offs_ligh_enabled],0 ;l.enabled = 0
|
|
mov ecx,[ebx+offs_ligh_next]
|
|
cmp dword[ebx+offs_ligh_prev],0 ;if (l.prev == NULL)
|
|
jne .els_0
|
|
mov [eax+offs_cont_first_light],ecx ;context.first_light = l.next
|
|
jmp @f
|
|
.els_0:
|
|
mov eax,[ebx+offs_ligh_prev]
|
|
mov [eax+offs_ligh_next],ecx ;l.prev.next = l.next
|
|
@@:
|
|
cmp dword[ebx+offs_ligh_next],0
|
|
je .end_f
|
|
mov ecx,[ebx+offs_ligh_prev]
|
|
mov eax,[ebx+offs_ligh_next]
|
|
mov [eax+offs_ligh_prev],ecx ;l.next.prev = l.prev
|
|
.end_f:
|
|
ret
|
|
endp
|
|
|
|
align 4
|
|
fl_1e_3 dd 1.0e-3
|
|
|
|
; non optimized lightening model
|
|
align 4
|
|
proc gl_shade_vertex, context:dword, v:dword
|
|
locals
|
|
R dd ? ;float ebp-96
|
|
G dd ? ;float ebp-92
|
|
B dd ? ;float ebp-88
|
|
A dd ? ;float ebp-84
|
|
s V3 ;ebp-80
|
|
d V3 ;ebp-68
|
|
tmp dd ? ;float ebp-56
|
|
att dd ? ;float ebp-52
|
|
dot_spot dd ? ;float ebp-48
|
|
lR dd ? ;float ebp-44
|
|
lB dd ? ;float ebp-40
|
|
lG dd ? ;float ebp-36
|
|
twoside dd ? ;int ebp-32
|
|
idx dd ? ;int ebp-28
|
|
n V3 ;ebp-24
|
|
vcoord V3 ;ebp-12
|
|
endl
|
|
pushad
|
|
; ebx -> GLLight *l
|
|
; ecx -> GLMaterial *m
|
|
; esi -> GLVertex *v
|
|
|
|
;n = v.normal
|
|
;d = l.position
|
|
; diffuse light
|
|
;dot = d*n
|
|
;dot_spot = d*l.norm_spot_direction
|
|
; specular light
|
|
;s = d-v.ec
|
|
;dot_spec = n*s
|
|
|
|
mov esi,[v]
|
|
mov edx,[context]
|
|
mov ecx,edx
|
|
add ecx,offs_cont_materials ;ecx(m) = &context.materials[0]
|
|
mov eax,[edx+offs_cont_light_model_two_side]
|
|
mov [twoside],eax
|
|
|
|
add esi,offs_vert_normal
|
|
mov edi,ebp
|
|
sub edi,24 ;edi = &n
|
|
movsd ;n.X=v.normal.X
|
|
movsd ;n.Y=v.normal.Y
|
|
movsd ;n.Z=v.normal.Z
|
|
mov esi,[v]
|
|
|
|
fld dword[edx+offs_cont_ambient_light_model]
|
|
fmul dword[ecx+offs_mate_ambient]
|
|
fadd dword[ecx] ;offs_mate_emission=0
|
|
fstp dword[R] ;R=m.emission.v[0]+m.ambient.v[0]*context.ambient_light_model.v[0]
|
|
fld dword[edx+offs_cont_ambient_light_model+4]
|
|
fmul dword[ecx+offs_mate_ambient+4]
|
|
fadd dword[ecx+offs_mate_emission+4]
|
|
fstp dword[G]
|
|
fld dword[edx+offs_cont_ambient_light_model+8]
|
|
fmul dword[ecx+offs_mate_ambient+8]
|
|
fadd dword[ecx+offs_mate_emission+8]
|
|
fstp dword[B]
|
|
clampf [ecx+offs_mate_diffuse+12],0,1
|
|
mov [A],eax ;A=clampf(m.diffuse.v[3],0,1)
|
|
|
|
mov ebx,[edx+offs_cont_first_light]
|
|
.cycle_0: ;for(l=context.first_light;l!=NULL;l=l.next)
|
|
or ebx,ebx
|
|
jz .cycle_0_end
|
|
|
|
; ambient
|
|
fld dword[ecx+offs_mate_ambient]
|
|
fmul dword[ebx] ;offs_ligh_ambient=0
|
|
fstp dword[lR] ;lR=l.ambient.v[0] * m.ambient.v[0]
|
|
fld dword[ecx+offs_mate_ambient+4]
|
|
fmul dword[ebx+offs_ligh_ambient+4]
|
|
fstp dword[lG] ;lG=l.ambient.v[1] * m.ambient.v[1]
|
|
fld dword[ecx+offs_mate_ambient+8]
|
|
fmul dword[ebx+offs_ligh_ambient+8]
|
|
fstp dword[lB] ;lB=l.ambient.v[2] * m.ambient.v[2]
|
|
|
|
fld dword[ebx+offs_ligh_position+offs_W]
|
|
ftst ;if (l.position.v[3] == 0)
|
|
fstsw ax
|
|
sahf
|
|
jne .els_0
|
|
; light at infinity
|
|
ffree st0 ;l.position.v[3]
|
|
fincstp
|
|
mov eax,[ebx+offs_ligh_norm_position]
|
|
mov [d],eax ;d.X=l.norm_position.v[0]
|
|
mov eax,[ebx+offs_ligh_norm_position+offs_Y]
|
|
mov [d+offs_Y],eax ;d.Y=l.norm_position.v[1]
|
|
mov eax,[ebx+offs_ligh_norm_position+offs_Z]
|
|
mov [d+offs_Z],eax ;d.Z=l.norm_position.v[2]
|
|
mov dword[att],1.0
|
|
jmp .els_0_end
|
|
.els_0:
|
|
; distance attenuation
|
|
ffree st0 ;l.position.v[3]
|
|
fincstp
|
|
fld dword[ebx+offs_ligh_position]
|
|
fsub dword[esi+offs_vert_ec]
|
|
fstp dword[d] ;d.X=l.position.v[0]-v.ec.v[0]
|
|
fld dword[ebx+offs_ligh_position+offs_Y]
|
|
fsub dword[esi+offs_vert_ec+offs_Y]
|
|
fstp dword[d+offs_Y] ;d.Y=l.position.v[1]-v.ec.v[1]
|
|
fld dword[ebx+offs_ligh_position+offs_Z]
|
|
fsub dword[esi+offs_vert_ec+offs_Z]
|
|
fstp dword[d+offs_Z] ;d.Z=l.position.v[2]-v.ec.v[2]
|
|
fld dword[d]
|
|
fmul st0,st0
|
|
fld dword[d+offs_Y]
|
|
fmul st0,st0
|
|
faddp
|
|
fld dword[d+offs_Z]
|
|
fmul st0,st0
|
|
faddp
|
|
fsqrt ;dist=sqrt(d.X^2+d.Y^2+d.Z^2)
|
|
fcom dword[fl_1e_3]
|
|
fstsw ax
|
|
sahf
|
|
jbe @f ;if (dist>1.0e-3)
|
|
fld1
|
|
fdiv st0,st1
|
|
fld dword[d]
|
|
fmul st0,st1
|
|
fstp dword[d]
|
|
fld dword[d+offs_Y]
|
|
fmul st0,st1
|
|
fstp dword[d+offs_Y]
|
|
fld dword[d+offs_Z]
|
|
fmul st0,st1
|
|
fstp dword[d+offs_Z]
|
|
ffree st0 ;1.0/dist
|
|
fincstp
|
|
@@:
|
|
fld dword[ebx+offs_ligh_attenuation+8]
|
|
fmul st0,st1 ;st0 = dist * l.attenuation[2]
|
|
fadd dword[ebx+offs_ligh_attenuation+4]
|
|
fmul st0,st1
|
|
fadd dword[ebx+offs_ligh_attenuation]
|
|
fld1
|
|
fdiv st0,st1
|
|
fstp dword[att] ;att = 1.0f/(l.attenuation[0]+dist*(l.attenuation[1]+dist*l.attenuation[2]))
|
|
ffree st0 ;1.0
|
|
fincstp
|
|
ffree st0 ;dist
|
|
fincstp
|
|
.els_0_end:
|
|
fld dword[d]
|
|
fmul dword[n]
|
|
fld dword[d+offs_Y]
|
|
fmul dword[n+offs_Y]
|
|
faddp
|
|
fld dword[d+offs_Z]
|
|
fmul dword[n+offs_Z]
|
|
faddp ;dot = d.X*n.X+d.Y*n.Y+d.Z*n.Z
|
|
cmp dword[twoside],0 ;if (twoside && dot < 0)
|
|
je @f
|
|
ftst ;if (dot<0)
|
|
fstsw ax
|
|
sahf
|
|
jae @f
|
|
fchs ;dot = -dot
|
|
@@:
|
|
ftst ;if (dot>0)
|
|
fstsw ax
|
|
sahf
|
|
jbe .if0_end
|
|
; diffuse light
|
|
fld dword[ecx+offs_mate_diffuse]
|
|
fmul dword[ebx+offs_ligh_diffuse]
|
|
fmul st0,st1
|
|
fadd dword[lR]
|
|
fstp dword[lR] ;lR+=dot * l.diffuse.v[0] * m.diffuse.v[0]
|
|
fld dword[ecx+offs_mate_diffuse+4]
|
|
fmul dword[ebx+offs_ligh_diffuse+4]
|
|
fmul st0,st1
|
|
fadd dword[lG]
|
|
fstp dword[lG] ;lG+=dot * l.diffuse.v[1] * m.diffuse.v[1]
|
|
fld dword[ecx+offs_mate_diffuse+8]
|
|
fmul dword[ebx+offs_ligh_diffuse+8]
|
|
fmul st0,st1
|
|
fadd dword[lB]
|
|
fstp dword[lB] ;lB+=dot * l.diffuse.v[2] * m.diffuse.v[2]
|
|
ffree st0 ;dot
|
|
fincstp
|
|
|
|
; spot light
|
|
fld dword[ebx+offs_ligh_spot_cutoff]
|
|
fcomp dword[an180f] ;if (l.spot_cutoff != 180)
|
|
fstsw ax
|
|
sahf
|
|
je .if1_end
|
|
fld dword[ebx+offs_ligh_norm_spot_direction]
|
|
fmul dword[d]
|
|
fld dword[ebx+offs_ligh_norm_spot_direction+offs_Y]
|
|
fmul dword[d+offs_Y]
|
|
faddp
|
|
fld dword[ebx+offs_ligh_norm_spot_direction+offs_Z]
|
|
fmul dword[d+offs_Z]
|
|
faddp
|
|
fchs
|
|
fst dword[dot_spot]
|
|
cmp dword[twoside],0 ;if (twoside && dot_spot < 0)
|
|
je @f
|
|
ftst ;if (dot_spot<0)
|
|
fstsw ax
|
|
sahf
|
|
jae @f
|
|
fchs ;dot_spot = -dot_spot
|
|
@@:
|
|
fcom dword[ebx+offs_ligh_cos_spot_cutoff] ;if (dot_spot < l.cos_spot_cutoff)
|
|
fstsw ax
|
|
sahf
|
|
jae .els_1
|
|
; no contribution
|
|
ffree st0 ;dot_spot
|
|
fincstp
|
|
mov ebx,[ebx+offs_ligh_next]
|
|
jmp .cycle_0 ;continue
|
|
.els_1:
|
|
; TODO: optimize
|
|
fld dword[ebx+offs_ligh_spot_exponent]
|
|
ftst ;if (l.spot_exponent > 0)
|
|
fstsw ax
|
|
sahf
|
|
jbe @f
|
|
fxch st1 ;dot_spot <--> l.spot_exponent
|
|
;Вычисляем x^y
|
|
;fld y
|
|
;fld x
|
|
fyl2x ;Стек FPU теперь содержит: st0=z=y*log2(x):
|
|
;Теперь считаем 2**z:
|
|
fld st0 ;Создаем еще одну копию z
|
|
frndint ;Округляем
|
|
fsubr st0,st1 ;st1=z, st0=z-trunc(z)
|
|
f2xm1 ;st1=z, st0=2**(z-trunc(z))-1
|
|
fld1
|
|
faddp ;st1=z, st0=2**(z-trunc(z))
|
|
fscale ;st1=z, st0=(2**trunc(z))*(2**(z-trunc(z)))=2**t
|
|
fxch st1
|
|
fstp st ;Результат остается на вершине стека st0
|
|
fmul dword[att]
|
|
fstp dword[att] ;att=att*pow(dot_spot,l.spot_exponent)
|
|
jmp .if1_end_f1
|
|
@@:
|
|
ffree st0 ;l.spot_exponent
|
|
fincstp
|
|
.if1_end_f1:
|
|
ffree st0 ;dot_spot
|
|
fincstp
|
|
.if1_end:
|
|
|
|
; specular light
|
|
cmp dword[edx+offs_cont_local_light_model],0 ;if (c.local_light_model)
|
|
je .els_2
|
|
mov eax,[esi+offs_vert_ec]
|
|
mov [vcoord],eax ;vcoord.X=v.ec.X
|
|
mov eax,[esi+offs_vert_ec+offs_Y]
|
|
mov [vcoord+offs_Y],eax ;vcoord.Y=v.ec.Y
|
|
mov eax,[esi+offs_vert_ec+offs_Z]
|
|
mov [vcoord+offs_Z],eax ;vcoord.Z=v.ec.Z
|
|
mov eax,ebp
|
|
sub eax,12 ;eax = &vcoord
|
|
stdcall gl_V3_Norm, eax
|
|
fld dword[d]
|
|
fsub dword[vcoord]
|
|
fstp dword[s] ;s.X=d.X-vcoord.X
|
|
fld dword[d+offs_Y]
|
|
fsub dword[vcoord+offs_Y]
|
|
fstp dword[s+offs_Y] ;s.Y=d.Y-vcoord.Y
|
|
fld dword[d+offs_Z]
|
|
fsub dword[vcoord+offs_Z]
|
|
fstp dword[s+offs_Z] ;s.Z=d.Z-vcoord.Z
|
|
jmp .els_2_end
|
|
.els_2:
|
|
mov eax,[d]
|
|
mov [s],eax ;s.X=d.X
|
|
mov eax,[d+offs_Y]
|
|
mov [s+offs_Y],eax ;s.Y=d.Y
|
|
fld1
|
|
fadd dword[d+offs_Z]
|
|
fstp dword[s+offs_Z] ;s.Z=d.Z+1.0
|
|
.els_2_end:
|
|
fld dword[n]
|
|
fmul dword[s]
|
|
fld dword[n+offs_Y]
|
|
fmul dword[s+offs_Y]
|
|
faddp
|
|
fld dword[n+offs_Z]
|
|
fmul dword[s+offs_Z]
|
|
faddp ;dot_spec = n.X*s.X +n.Y*s.Y +n.Z*s.Z
|
|
cmp dword[twoside],0 ;if (twoside && dot_spec < 0)
|
|
je @f
|
|
ftst ;if (dot_spec < 0)
|
|
fstsw ax
|
|
sahf
|
|
jae @f
|
|
fchs ;dot_spec = -dot_spec
|
|
@@:
|
|
ftst ;if (dot_spec > 0)
|
|
fstsw ax
|
|
sahf
|
|
jbe .if0_end
|
|
fld dword[s]
|
|
fmul st0,st0
|
|
fld dword[s+offs_Y]
|
|
fmul st0,st0
|
|
faddp
|
|
fld dword[s+offs_Z]
|
|
fmul st0,st0
|
|
faddp ;st0 = s.X^2 +s.Y^2 +s.Z^2
|
|
fsqrt
|
|
fcom dword[fl_1e_3]
|
|
fstsw ax
|
|
sahf
|
|
jbe @f ;if (tmp > 1.0e-3)
|
|
fdiv st1,st0 ;dot_spec /= tmp
|
|
@@:
|
|
ffree st0 ;tmp
|
|
fincstp
|
|
|
|
; TODO: optimize
|
|
; testing specular buffer code
|
|
; dot_spec= pow(dot_spec,m.shininess)
|
|
stdcall specbuf_get_buffer, edx, dword[ecx+offs_mate_shininess_i], dword[ecx+offs_mate_shininess]
|
|
mov edi,eax ;edi = specbuf
|
|
mov dword[idx],SPECULAR_BUFFER_SIZE ;idx = SPECULAR_BUFFER_SIZE
|
|
|
|
;idx = (int)(dot_spec*SPECULAR_BUFFER_SIZE)
|
|
fimul dword[idx]
|
|
fistp dword[idx]
|
|
;if (idx > SPECULAR_BUFFER_SIZE) idx = SPECULAR_BUFFER_SIZE
|
|
cmp dword[idx],SPECULAR_BUFFER_SIZE
|
|
jle @f
|
|
mov dword[idx],SPECULAR_BUFFER_SIZE
|
|
@@:
|
|
shl dword[idx],2
|
|
add edi,dword[idx]
|
|
fld dword[edi+offs_spec_buf] ;dot_spec = specbuf.buf[idx]
|
|
fld dword[ebx+offs_ligh_specular]
|
|
fmul st0,st1
|
|
fmul dword[ecx+offs_mate_specular]
|
|
fadd dword[lR]
|
|
fstp dword[lR] ;lR+=dot_spec * l.specular.v[0] * m.specular.v[0]
|
|
fld dword[ebx+offs_ligh_specular+4]
|
|
fmul st0,st1
|
|
fmul dword[ecx+offs_mate_specular+4]
|
|
fadd dword[lG]
|
|
fstp dword[lG] ;lG+=dot_spec * l.specular.v[1] * m.specular.v[1]
|
|
fld dword[ebx+offs_ligh_specular+8]
|
|
fmul st0,st1
|
|
fmul dword[ecx+offs_mate_specular+8]
|
|
fadd dword[lB]
|
|
fstp dword[lB] ;lB+=dot_spec * l.specular.v[2] * m.specular.v[2]
|
|
.if0_end:
|
|
ffree st0 ;dot [or] dot_spec
|
|
fincstp
|
|
.if2_end:
|
|
|
|
fld dword[att]
|
|
fld dword[lR]
|
|
fmul st0,st1
|
|
fadd dword[R]
|
|
fstp dword[R] ;R += att * lR
|
|
fld dword[lG]
|
|
fmul st0,st1
|
|
fadd dword[G]
|
|
fstp dword[G] ;G += att * lG
|
|
fld dword[lB]
|
|
fmul st0,st1
|
|
fadd dword[B]
|
|
fstp dword[B] ;B += att * lB
|
|
ffree st0 ;att
|
|
fincstp
|
|
mov ebx,[ebx+offs_ligh_next]
|
|
jmp .cycle_0
|
|
.cycle_0_end:
|
|
|
|
clampf [R],0,1
|
|
mov [esi+offs_vert_color],eax ;v.color.v[0]=clampf(R,0,1)
|
|
clampf [G],0,1
|
|
mov [esi+offs_vert_color+4],eax ;v.color.v[1]=clampf(G,0,1)
|
|
clampf [B],0,1
|
|
mov [esi+offs_vert_color+8],eax ;v.color.v[2]=clampf(B,0,1)
|
|
mov eax,[A]
|
|
mov [esi+offs_vert_color+12],eax ;v.color.v[3]=A
|
|
popad
|
|
ret
|
|
endp
|
|
|