forked from KolibriOS/kolibrios
624 lines
14 KiB
PHP
624 lines
14 KiB
PHP
do_sinus:
|
|
.x equ [ebp-8]
|
|
.y equ [ebp-12]
|
|
.new_y equ [ebp-16]
|
|
.temp equ [ebp-20]
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,64
|
|
mov dword .x,0
|
|
mov dword .y,0
|
|
mov esi,[screen_ptr]
|
|
mov edi,[Zbuffer_ptr]
|
|
push edi
|
|
; clear Zbuffer temporally used as image buffer
|
|
movzx ecx,word[size_x_var]
|
|
movzx eax,word[size_y_var]
|
|
imul ecx,eax ;SIZE_X*SIZE_Y
|
|
xor eax,eax
|
|
cld
|
|
rep stosd
|
|
pop edi
|
|
fninit
|
|
.again:
|
|
fild dword .x
|
|
fmul [sin_frq]
|
|
fistp dword .temp
|
|
mov eax, .temp
|
|
|
|
and eax, 0x000000ff
|
|
|
|
|
|
fld dword [sin_tab+eax*4]
|
|
fimul dword [sin_amplitude]
|
|
fiadd dword .y
|
|
fistp dword .new_y
|
|
|
|
mov eax,.new_y
|
|
or eax,eax
|
|
jl .skip
|
|
movzx ebx,word[size_y_var]
|
|
cmp eax,ebx ;SIZE_Y
|
|
jg .skip
|
|
movzx edx,word[size_x_var]
|
|
mul edx
|
|
; shl eax,9
|
|
add eax,dword .x
|
|
|
|
lea ebx,[eax*3]
|
|
cmp [dr_flag],12 ; 32 bit col cause
|
|
jl @f
|
|
add ebx,eax
|
|
@@:
|
|
mov eax,[esi]
|
|
mov [edi+ebx],eax
|
|
.skip:
|
|
add esi,3
|
|
cmp [dr_flag],12
|
|
jl @f
|
|
inc esi
|
|
@@:
|
|
inc dword .x
|
|
movzx edx,word[size_x_var]
|
|
cmp dword .x,edx ;SIZE_X
|
|
jl .again
|
|
mov dword .x,0
|
|
inc dword .y
|
|
movzx edx,word[size_y_var]
|
|
cmp dword .y,edx ;SIZE_Y
|
|
jl .again
|
|
|
|
; copy from temporary buffer -> Zbuffer to screen
|
|
mov esi,[Zbuffer_ptr]
|
|
mov edi,[screen_ptr]
|
|
movzx ecx,word[size_x_var]
|
|
movzx eax,word[size_y_var]
|
|
imul ecx,eax
|
|
cmp [dr_flag],12
|
|
jge @f
|
|
lea ecx,[ecx*3]
|
|
shr ecx,2
|
|
; mov ecx,SIZE_X*SIZE_Y*3/4
|
|
@@:
|
|
cld
|
|
rep movsd
|
|
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret
|
|
|
|
|
|
draw_dots:
|
|
mov esi,[points_translated_ptr]
|
|
mov ecx,[points_count_var]
|
|
.drw:
|
|
@@:
|
|
lodsd
|
|
add esi,2 ; skip z
|
|
movzx ebx,ax
|
|
shr eax,16 ; bx = x , ax = y
|
|
or ax,ax
|
|
jl @f
|
|
or bx,bx
|
|
jl @f
|
|
cmp ax,[size_y_var] ;SIZE_Y
|
|
jge @f
|
|
cmp bx,[size_x_var] ;SIZE_X
|
|
jge @f
|
|
movzx edx,word[size_x_var] ;SIZE_X ; SIZE_X not only power of 2 -> 256,512,...
|
|
mul edx
|
|
add eax,ebx
|
|
mov edi,[screen_ptr]
|
|
lea eax,[eax*3]
|
|
add edi,eax
|
|
xor eax,eax
|
|
not eax
|
|
stosd
|
|
@@:
|
|
loop .drw
|
|
|
|
ret
|
|
|
|
do_emboss: ; sse2 version only
|
|
if Ext >= SSE2
|
|
movzx ecx,[bumps_deep_flag]
|
|
inc ecx
|
|
call blur_screen ;blur n times
|
|
|
|
mov eax,[size_y_var] ;load both x, y
|
|
mov ebx,eax
|
|
shr ebx,16
|
|
cwde
|
|
mul ebx
|
|
mov ecx,eax
|
|
sub ecx,ebx
|
|
sub ecx,ebx
|
|
mov esi,[screen_ptr]
|
|
mov edi,[Zbuffer_ptr]
|
|
cmp [dr_flag],12
|
|
jge @f
|
|
lea ebx,[ebx*3]
|
|
jmp .f
|
|
@@:
|
|
shl ebx,2
|
|
.f:
|
|
mov edx,esi
|
|
add esi,ebx
|
|
lea ebx,[ebx+esi]
|
|
pxor xmm0,xmm0
|
|
push eax
|
|
.emb:
|
|
cmp [dr_flag],12
|
|
jge @f
|
|
movlps xmm1,[esi+3]
|
|
movhps xmm1,[esi+6]
|
|
movlps xmm2,[esi-3]
|
|
movhps xmm2,[esi]
|
|
movlps xmm3,[ebx]
|
|
movhps xmm3,[ebx+3]
|
|
movlps xmm4,[edx]
|
|
movhps xmm4,[edx+3]
|
|
jmp .ff
|
|
@@:
|
|
movlps xmm1,[esi+4]
|
|
movhps xmm1,[esi+8]
|
|
movlps xmm2,[esi-4]
|
|
movhps xmm2,[esi]
|
|
movlps xmm3,[ebx]
|
|
movhps xmm3,[ebx+4]
|
|
movlps xmm4,[edx]
|
|
movhps xmm4,[edx+4]
|
|
.ff:
|
|
punpcklbw xmm1,xmm0
|
|
punpcklbw xmm2,xmm0
|
|
punpcklbw xmm3,xmm0
|
|
punpcklbw xmm4,xmm0
|
|
psubsw xmm1,xmm2
|
|
paddw xmm1,[emboss_bias]
|
|
psubsw xmm3,xmm4
|
|
paddw xmm3,[emboss_bias]
|
|
pmulhw xmm1,xmm3
|
|
movaps xmm7,xmm1
|
|
movaps xmm6,xmm1
|
|
psrlq xmm7,2*8
|
|
psrlq xmm6,4*8
|
|
pmaxsw xmm1,xmm7
|
|
pmaxsw xmm1,xmm6
|
|
|
|
if 0
|
|
movaps xmm7,xmm3
|
|
movaps xmm6,xmm3
|
|
psrlq xmm7,2*8
|
|
psrlq xmm6,4*8
|
|
pmaxsw xmm3,xmm7
|
|
pmaxsw xmm3,xmm6
|
|
end if
|
|
pmaxsw xmm1,xmm3
|
|
|
|
movd eax,xmm1
|
|
movzx eax,al
|
|
; cmp [dr_flag],12
|
|
; je @f
|
|
lea eax,[eax*3+envmap_cub]
|
|
; jmp .fff
|
|
;@@:
|
|
|
|
mov eax,[eax]
|
|
mov [edi],eax ;xmm1
|
|
psrldq xmm1,8
|
|
movd eax,xmm1
|
|
movzx eax,al
|
|
lea eax,[eax*3+envmap_cub]
|
|
mov eax,[eax]
|
|
mov [edi+4],eax
|
|
|
|
cmp [dr_flag],12
|
|
jl @f
|
|
add esi,2
|
|
add ebx,2
|
|
add edx,2
|
|
@@:
|
|
|
|
add edi,8
|
|
add esi,6
|
|
add ebx,6
|
|
add edx,6
|
|
sub ecx,2
|
|
jnc .emb
|
|
|
|
|
|
pop ecx ;,eax
|
|
mov edi,[screen_ptr]
|
|
mov esi,[Zbuffer_ptr]
|
|
cmp [dr_flag],12
|
|
jge .e
|
|
@@:
|
|
movsd
|
|
dec edi
|
|
loop @b
|
|
.e:
|
|
rep movsd
|
|
|
|
end if
|
|
|
|
ret
|
|
|
|
|
|
;********************************EMBOSS DONE*******************************
|
|
|
|
|
|
generate_object2: ; torus
|
|
;in ax - figure number 2=torus, 3=loop, 4=loop
|
|
;locals
|
|
; counter dw ?
|
|
; sin dd ?
|
|
; cos dd ?
|
|
;endl
|
|
.counter equ word[ebp-2]
|
|
.sin equ dword[ebp-6]
|
|
.cos equ dword[ebp-10]
|
|
.sin2 equ dword[ebp-14]
|
|
.cos2 equ dword[ebp-18]
|
|
.piD180m3 equ dword[ebp-22]
|
|
.cD2 equ word[ebp-24]
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,24
|
|
|
|
push ax
|
|
|
|
fninit
|
|
mov edi,[points_ptr]
|
|
xor eax,eax
|
|
; init seed -> 4 3d points
|
|
mov dword[edi],-1.0 ; x
|
|
add edi,4
|
|
stosd ; y
|
|
stosd ; z
|
|
mov dword[edi],-0.9 ; x1
|
|
mov dword[edi+4],0.1 ; y1
|
|
add edi,8
|
|
stosd ; z1
|
|
mov dword[edi],-0.8
|
|
add edi,4
|
|
stosd
|
|
stosd
|
|
mov dword[edi],-0.9 ; x3
|
|
mov dword[edi+4],-0.1 ; y3
|
|
add edi,8
|
|
stosd ; z3
|
|
mov [points_count_var],4
|
|
|
|
fld [piD180]
|
|
fidiv [i3]
|
|
fstp .piD180m3
|
|
mov .cD2,5
|
|
|
|
pop ax
|
|
mov ecx,1
|
|
mov edx,9
|
|
.next: ; calc angle and rotate seed 4 points
|
|
mov .counter,cx
|
|
mov ebx,[points_ptr]
|
|
fld .piD180m3
|
|
fimul .counter
|
|
fld st
|
|
fsincos
|
|
fstp .sin
|
|
fstp .cos
|
|
fadd st,st0
|
|
fsincos
|
|
fstp .sin2
|
|
fstp .cos2
|
|
|
|
.rotor: ; next 4
|
|
; rotary y
|
|
fld dword[ebx] ; x
|
|
fld .sin
|
|
fmul dword[ebx+8] ; z * sinbeta
|
|
fchs
|
|
fld .cos
|
|
fmul dword[ebx] ; x * cosbeta
|
|
faddp
|
|
fstp dword[edi] ; new x
|
|
fmul .sin ; old x * sinbeta
|
|
fld .cos
|
|
fmul dword[ebx+8] ; z * cosbeta
|
|
faddp
|
|
dec dx
|
|
or dx,dx
|
|
jnz @f
|
|
; mov .counter,dx
|
|
fld st
|
|
fidiv [i3]
|
|
faddp
|
|
@@:
|
|
fstp dword[edi+8] ; new z
|
|
fld dword[ebx+4]
|
|
or dx,dx
|
|
jnz @f
|
|
; fld1
|
|
; faddp
|
|
; fld st
|
|
fadd st,st0
|
|
fadd st,st0
|
|
; fxch
|
|
; fimul [i3]
|
|
; fsin
|
|
; faddp
|
|
mov dx,9
|
|
@@:
|
|
fstp dword[edi+4]
|
|
; rotary x
|
|
cmp al,3
|
|
jl .end_rot
|
|
fld dword[edi+4] ;y
|
|
fld .sin2
|
|
fmul dword[edi+8] ;z
|
|
fld .cos2
|
|
fmul dword[edi+4] ;y
|
|
faddp
|
|
fstp dword[edi+4] ; new y
|
|
fmul .sin2 ; sinbeta * old y
|
|
fchs
|
|
fld .cos2
|
|
fmul dword[edi+8]
|
|
faddp
|
|
fstp dword[edi+8]
|
|
; rotary z
|
|
cmp al,4
|
|
jl .end_rot
|
|
fld dword[edi] ;x
|
|
fld .sin
|
|
fmul dword[edi+4] ;y
|
|
fld .cos
|
|
fmul dword[edi] ;x
|
|
faddp
|
|
fstp dword[edi] ;new x
|
|
fmul .sin ; sinbeta * old x
|
|
fchs
|
|
fld .cos
|
|
fmul dword[edi+4] ; cosbeta * y
|
|
faddp
|
|
fstp dword[edi+4] ; new y
|
|
|
|
|
|
|
|
.end_rot:
|
|
|
|
add edi,12
|
|
add ebx,12
|
|
mov esi,[points_ptr]
|
|
add esi,12*4
|
|
cmp ebx,esi
|
|
jl .rotor
|
|
|
|
add [points_count_var],4
|
|
add cx,18
|
|
cmp cx,(18*21*3)+1
|
|
jle .next
|
|
|
|
mov edi,[triangles_ptr]
|
|
mov eax,4
|
|
mov ebx,4+4
|
|
mov [triangles_count_var],160*3 ;164*3 ;140
|
|
|
|
mov ecx,80*3 ;68
|
|
@@:
|
|
stosd ;----
|
|
mov [edi],ebx ; |
|
|
add edi,4 ; |
|
|
inc eax ; |
|
|
stosd ; |repeat 4 times
|
|
|
|
mov [edi],ebx ; |
|
|
inc ebx
|
|
add edi,4
|
|
stosd ; |
|
|
mov [edi],ebx ; |
|
|
add edi,4 ;----
|
|
loop @b
|
|
|
|
|
|
mov dword[edi],-1 ; < - end mark
|
|
mov [culling_flag],0
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
|
|
ret
|
|
generate_object3: ; heart
|
|
;locals
|
|
; counter dw ?
|
|
; sin dd ?
|
|
; cos dd ?
|
|
;endl
|
|
.counter equ word[ebp-2]
|
|
.sin equ dword[ebp-6]
|
|
.cos equ dword[ebp-10]
|
|
.sin2 equ dword[ebp-14]
|
|
.cos2 equ dword[ebp-18]
|
|
.piD180m3 equ dword[ebp-22]
|
|
.cD2 equ word[ebp-24]
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,24
|
|
|
|
fninit
|
|
mov edi,[points_ptr]
|
|
xor eax,eax
|
|
; init seed -> eight 3d points
|
|
mov dword[edi],2.0
|
|
add edi,4
|
|
stosd
|
|
stosd
|
|
|
|
mov dword[edi],2.0
|
|
mov dword[edi+4],-0.5
|
|
add edi,8
|
|
stosd
|
|
|
|
mov dword[edi],1.5
|
|
mov dword[edi+4],-1.5
|
|
add edi,8
|
|
stosd
|
|
mov dword[edi],1.0
|
|
mov dword[edi+4],-2.0
|
|
add edi,8
|
|
stosd
|
|
|
|
stosd
|
|
mov dword[edi],-2.5
|
|
add edi,4
|
|
stosd
|
|
|
|
mov [points_count_var],5
|
|
|
|
mov ecx,1
|
|
.next: ; calc angle and rotate seed 4 points
|
|
mov .counter,cx
|
|
mov ebx,[points_ptr]
|
|
fld [piD180]
|
|
fimul .counter
|
|
fsincos
|
|
fstp .sin
|
|
fstp .cos
|
|
|
|
.rotor: ; next 4
|
|
; rotary y
|
|
fld dword[ebx] ; x
|
|
fld .sin
|
|
fmul dword[ebx+8] ; z * sinbeta
|
|
fchs
|
|
fld .cos
|
|
fmul dword[ebx] ; x * cosbeta
|
|
faddp
|
|
fidiv [i3]
|
|
fstp dword[edi] ; new x
|
|
fmul .sin ; old x * sinbeta
|
|
fld .cos
|
|
fmul dword[ebx+8] ; z * cosbeta
|
|
faddp
|
|
fstp dword[edi+8] ; new z
|
|
|
|
fld dword[ebx+4] ;y
|
|
fstp dword[edi+4]
|
|
|
|
|
|
.end_rot:
|
|
|
|
add edi,12
|
|
add ebx,12
|
|
mov esi,[points_ptr]
|
|
add esi,12*5
|
|
cmp ebx,esi ;real_points + (12*5)
|
|
jl .rotor
|
|
|
|
add [points_count_var],5
|
|
add cx,18
|
|
cmp cx,(18*21)+1
|
|
jle .next
|
|
;last points
|
|
|
|
xor eax,eax
|
|
|
|
mov dword[edi],0.22
|
|
mov dword[edi+4],0.77
|
|
mov dword[edi+8],1.25
|
|
add edi,12
|
|
|
|
mov dword[edi],0.22
|
|
mov dword[edi+4],0.77
|
|
mov dword[edi+8],-1.25
|
|
add edi,12
|
|
stosd
|
|
|
|
add [points_count_var],2
|
|
|
|
; init triangles list
|
|
|
|
mov edi,[triangles_ptr]
|
|
mov eax,5
|
|
mov ebx,5+5
|
|
mov [triangles_count_var],200 ;204
|
|
|
|
mov ecx,100
|
|
@@:
|
|
stosd ;----
|
|
mov [edi],ebx ; |
|
|
add edi,4 ; |
|
|
inc eax ; |
|
|
stosd ; |repeat
|
|
|
|
mov [edi],ebx ; |
|
|
inc ebx
|
|
add edi,4
|
|
stosd ; |
|
|
mov [edi],ebx ; |
|
|
add edi,4 ;----
|
|
loop @b
|
|
|
|
mov eax,5
|
|
mov ebx,[points_count_var]
|
|
sub ebx,2
|
|
mov dl,2
|
|
.nx:
|
|
mov ecx,5
|
|
add [triangles_count_var],ecx
|
|
@@:
|
|
stosd
|
|
add eax,5
|
|
stosd
|
|
mov dword[edi],ebx
|
|
add edi,4
|
|
loop @b
|
|
|
|
cmp dl,1
|
|
je @f
|
|
|
|
inc ebx
|
|
jmp .lab
|
|
@@:
|
|
dec ebx
|
|
.lab:
|
|
mov ecx,5
|
|
add [triangles_count_var],ecx
|
|
@@:
|
|
stosd
|
|
add eax,5
|
|
stosd
|
|
mov dword[edi],ebx
|
|
add edi,4
|
|
loop @b
|
|
|
|
dec dl
|
|
or dl,dl
|
|
jnz .nx
|
|
|
|
sub eax,25
|
|
stosd
|
|
sub eax,50
|
|
stosd
|
|
mov dword[edi],ebx
|
|
add edi,4
|
|
|
|
stosd
|
|
add eax,50
|
|
stosd
|
|
inc ebx
|
|
mov dword[edi],ebx
|
|
add edi,4
|
|
add [triangles_count_var],2
|
|
|
|
mov dword[edi],-1 ; < - end mark
|
|
mov [culling_flag],0
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
|
|
ret
|
|
|
|
|
|
|