forked from KolibriOS/kolibrios
ray: filenames to lowercase
git-svn-id: svn://kolibrios.org@6388 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
288
programs/demos/ray/ray.inc
Normal file
288
programs/demos/ray/ray.inc
Normal file
@@ -0,0 +1,288 @@
|
||||
MAX_SPHERES = 5
|
||||
MAX_LIGHTS = 3
|
||||
;ray
|
||||
|
||||
main_loop:
|
||||
xor eax,eax ; y
|
||||
.next_line:
|
||||
xor ebx,ebx ; x
|
||||
|
||||
@@:
|
||||
push eax
|
||||
push ebx
|
||||
call find_intersection
|
||||
pop ebx
|
||||
pop eax
|
||||
add ebx,1
|
||||
cmp ebx,XRES
|
||||
jnz @b
|
||||
|
||||
add eax,1
|
||||
cmp eax,YRES
|
||||
jnz .next_line
|
||||
|
||||
ret
|
||||
init_calc: ; do some intial calculations
|
||||
|
||||
ret
|
||||
|
||||
find_intersection: ;with for now single sphere
|
||||
; eax - y
|
||||
; ebx - x
|
||||
push ebp
|
||||
mov ebp,esp
|
||||
sub esp,128
|
||||
and ebp,0xfffffff0
|
||||
.dz equ dword[ebp-8]
|
||||
.dy equ dword[ebp-12]
|
||||
.dx equ [ebp-16]
|
||||
.a equ dword[ebp-20]
|
||||
.b equ dword[ebp-24]
|
||||
.c equ dword[ebp-28]
|
||||
.delta equ dword[ebp-32]
|
||||
.iy equ dword[ebp-36]
|
||||
.ix equ [ebp-40]
|
||||
.t1 equ [ebp-44]
|
||||
.t2 equ [ebp-48]
|
||||
.n equ [ebp-64]
|
||||
.sph_xyz equ [ebp-80]
|
||||
.one_write equ byte [ebp-81] ;tells if sth written in 'nearest' data
|
||||
.sph_counter equ dword [ebp-85]
|
||||
|
||||
|
||||
mov .iy,eax
|
||||
mov .ix,ebx
|
||||
|
||||
mov .one_write,0
|
||||
xorps xmm0,xmm0
|
||||
cvtpi2ps xmm0,.ix
|
||||
mov ecx,XRES
|
||||
cvtsi2ss xmm2,ecx
|
||||
shufps xmm2,xmm2,0
|
||||
divps xmm0,xmm2
|
||||
subps xmm0,[camera]
|
||||
movaps .dx,xmm0
|
||||
movaps xmm1,xmm0
|
||||
mulps xmm1,xmm0
|
||||
haddps xmm1,xmm1
|
||||
haddps xmm1,xmm1
|
||||
movss .a,xmm1
|
||||
mov .sph_counter,0
|
||||
.next_sph:
|
||||
xorps xmm5,xmm5
|
||||
movaps xmm5,[camera]
|
||||
mov edx,.sph_counter
|
||||
shl edx,4
|
||||
add edx,sphere
|
||||
subps xmm5,[edx] ;[sphere] ;;[edx]
|
||||
mulps xmm5,[float2]
|
||||
movaps xmm0,.dx
|
||||
mulps xmm5,xmm0
|
||||
haddps xmm5,xmm5
|
||||
haddps xmm5,xmm5
|
||||
movss .b,xmm5
|
||||
|
||||
|
||||
movaps xmm4,[edx] ;[sphere] ; [edx]
|
||||
mulps xmm4,xmm4
|
||||
; haddps xmm4,xmm4
|
||||
; haddps xmm4,xmm4
|
||||
movaps xmm5,[camera]
|
||||
mulps xmm5,xmm5
|
||||
addps xmm4,xmm5
|
||||
haddps xmm4,xmm4
|
||||
haddps xmm4,xmm4
|
||||
; addss xmm4,xmm5
|
||||
movaps xmm5,[edx] ;;[sphere] ;; [edx]
|
||||
mulps xmm5,[camera]
|
||||
haddps xmm5,xmm5
|
||||
haddps xmm5,xmm5
|
||||
mulss xmm5,[float2]
|
||||
subss xmm4,xmm5
|
||||
mov ebx,.sph_counter
|
||||
shl ebx,2
|
||||
add ebx,sph_radius
|
||||
movss xmm5,[ebx] ;[R] ; [ebx]
|
||||
mulss xmm5,xmm5
|
||||
subss xmm4,xmm5
|
||||
movss .c,xmm4
|
||||
|
||||
movss xmm5,.b
|
||||
mulss xmm5,xmm5
|
||||
mulss xmm4,.a
|
||||
mulss xmm4,[float4]
|
||||
subss xmm5,xmm4
|
||||
movss .delta,xmm5
|
||||
xorps xmm6,xmm6
|
||||
cmpnltss xmm5,xmm6
|
||||
movd ecx,xmm5 ; ecx = -1 greater than 0.0
|
||||
cmp ecx,0
|
||||
jnz @f
|
||||
jmp .next_s ; no intersection
|
||||
; add .sph_counter,1
|
||||
; cmp .sph_counter,MAX_SPHERES
|
||||
; jnz .next_sph
|
||||
; jmp .put_pixel
|
||||
|
||||
|
||||
@@:
|
||||
movss xmm5,.delta
|
||||
sqrtss xmm5,xmm5
|
||||
movss xmm4,xmm5
|
||||
subss xmm6,.b
|
||||
movss xmm7,xmm6
|
||||
subss xmm6,xmm5
|
||||
divss xmm6,[float2]
|
||||
divss xmm6,.a
|
||||
movss .t1,xmm6
|
||||
addss xmm4,xmm7
|
||||
divss xmm4,[float2]
|
||||
divss xmm4,.a
|
||||
movss .t2,xmm4
|
||||
movss xmm5,xmm4
|
||||
|
||||
cmpnltss xmm4,.t1
|
||||
movd ecx,xmm4
|
||||
or ecx,ecx
|
||||
jne @f
|
||||
movss xmm5,.t2
|
||||
@@:
|
||||
cmp .one_write,0 ; test if sth in 'nearest' data is written
|
||||
jz @f
|
||||
movss xmm4,xmm5
|
||||
cmpnltss xmm4,[smalest_t]
|
||||
movd ecx,xmm4
|
||||
or ecx,ecx
|
||||
jz .next_s
|
||||
@@:
|
||||
movss [smalest_t],xmm5
|
||||
; push .a
|
||||
; pop [smalest_a]
|
||||
; push .b
|
||||
; pop [smalest_b]
|
||||
; push .c
|
||||
; pop [smalest_c]
|
||||
; push .delta
|
||||
; pop [smalest_delta]
|
||||
movaps xmm0,[edx]
|
||||
movaps [nearest_sphere],xmm0
|
||||
push dword[ebx]
|
||||
pop dword[nearest_radius]
|
||||
mov .one_write,1
|
||||
|
||||
.next_s:
|
||||
add .sph_counter,1
|
||||
cmp .sph_counter,MAX_SPHERES
|
||||
jnz .next_sph
|
||||
|
||||
.put_pixel:
|
||||
cmp .one_write,0
|
||||
je .end
|
||||
|
||||
movss xmm5,[smalest_t]
|
||||
shufps xmm5,xmm5,0 ; calc and put pixel
|
||||
movaps xmm6,.dx
|
||||
mulps xmm6,xmm5
|
||||
movaps xmm4,[camera]
|
||||
addps xmm4,xmm6 ; xmm4 - x,y,z on the sphere
|
||||
movaps xmm7,xmm4
|
||||
subps xmm4,[nearest_sphere]
|
||||
; movaps xmm6,xmm7
|
||||
; addps xmm6,[nearest_sphere]
|
||||
; movaps .sph_xyz,xmm6
|
||||
|
||||
movss xmm0,[nearest_radius]
|
||||
shufps xmm0,xmm0,0
|
||||
divps xmm4,xmm0 ; xmm4 - normal to surface vector
|
||||
movaps xmm1,xmm4 ; copy of normal in xmm1
|
||||
xor eax,eax
|
||||
xorps xmm3,xmm3
|
||||
movss xmm2,[light_factor]
|
||||
shufps xmm2,xmm2,0
|
||||
|
||||
.next_light:
|
||||
; push eax
|
||||
mov ebx,eax
|
||||
shl ebx,4
|
||||
;add eax,light
|
||||
movaps xmm5,[light+ebx];[light] ;; [eax]
|
||||
subps xmm5,xmm7 ; calc light unit vector
|
||||
movaps xmm6,xmm5
|
||||
mulps xmm5,xmm5
|
||||
haddps xmm5,xmm5
|
||||
haddps xmm5,xmm5
|
||||
sqrtss xmm5,xmm5
|
||||
divps xmm6,xmm5 ; xmm6 - normalized light vector
|
||||
; dot_product
|
||||
movaps xmm4,xmm1 ; xmm4 - normal to surface
|
||||
mulps xmm4,xmm6
|
||||
haddps xmm4,xmm4
|
||||
haddps xmm4,xmm4
|
||||
shufps xmm4,xmm4,0
|
||||
; movaps xmm5,xmm4
|
||||
; mulps xmm5,xmm5
|
||||
; mulps xmm5,xmm5
|
||||
; mulps xmm5,[color]
|
||||
mulps xmm4,[lights_color+ebx] ; xmm4 - computed col. light vector dep.
|
||||
; addps xmm4,xmm5
|
||||
mulps xmm4,xmm2
|
||||
addps xmm3,xmm4
|
||||
; pop eax
|
||||
add eax,1
|
||||
cmp eax,MAX_LIGHTS
|
||||
jnz .next_light
|
||||
if 0
|
||||
; mix with texture
|
||||
movaps xmm0,.sph_xyz
|
||||
movss xmm1,[nearest_radius]
|
||||
shufps xmm1,xmm1,0
|
||||
divps xmm0,xmm1
|
||||
mulps xmm0,[correct_tex] ; f64
|
||||
; addps xmm0,[correct_tex]
|
||||
cvtss2si eax,xmm0
|
||||
psrldq xmm0,4
|
||||
cvtss2si ebx,xmm0
|
||||
imul ebx,[tex_x]
|
||||
add ebx,eax
|
||||
lea ebx,[ebx*3]
|
||||
add ebx,bitmap
|
||||
;mov eax,[ebx]
|
||||
movd xmm1,[ebx]
|
||||
xorps xmm7,xmm7
|
||||
punpcklbw xmm1,xmm7
|
||||
punpcklwd xmm1,xmm7
|
||||
cvtdq2ps xmm1,xmm1
|
||||
mulps xmm3,xmm1
|
||||
divps xmm3,[float255]
|
||||
; divps xmm1,[float2]
|
||||
; divps xmm3,[float2]
|
||||
; addps xmm3,xmm1
|
||||
end if
|
||||
|
||||
|
||||
minps xmm3,[float255]
|
||||
cvtps2dq xmm3,xmm3
|
||||
packssdw xmm3,xmm3
|
||||
packuswb xmm3,xmm3
|
||||
|
||||
|
||||
|
||||
|
||||
mov edi,screen
|
||||
mov ecx,XRES
|
||||
imul ecx,.iy
|
||||
add ecx,.ix
|
||||
lea ecx,[ecx*3]
|
||||
add edi,ecx
|
||||
movd [edi],xmm3
|
||||
|
||||
.end:
|
||||
add esp,128
|
||||
pop ebp
|
||||
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user