WebSVN – Kolibri OS – Diff – /programs/demos/3DS/A_PROCS.INC


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
;   movzx   eax,[sinus_flag]
;   mov     edx,10
;   mul     edx
;   mov     [sin_amplitude],eax
;   mov     [sin_frq],eax
   fninit
;if Ext = SSE2
;   movups  xmm1,[const0123]   ; xmm1 - init values
;   mov     eax,0x000000ff
;   movd    xmm2,eax
;   shufps  xmm2,xmm2,0        ; xmm2 - mask value
;   mov     eax,4
;   movd    xmm3,eax
;   shufps  xmm3,xmm3,0
 .again:
if  0
   fild    dword .x
   fidiv   [sin_frq]
   fsin
   fimul   [sin_amplitude]
   fiadd   dword .y
   fistp   dword .new_y
else
   fild    dword .x
   fmul    [sin_frq]
   fistp   dword .temp
   mov	   eax, .temp
;   mov     bx, [angle_x]
;   add     bx, [angle_y]
;   movzx   ebx,bx
;   shr     ebx,1       ; change phase
;   add     eax,ebx
 
 
   and	   eax, 0x000000ff
 
;   cdq
 ;  mul     [sin_frq]
;   and      eax,0x000000ff
;   and     ax,0x00ff
;   cwde
 
   fld	   dword [sin_tab+eax*4]
   fimul   dword [sin_amplitude]
   fiadd   dword .y
   fistp   dword .new_y
end if
   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]
   mov	   eax,[esi]
   mov	   [edi+ebx],eax
 .skip:
   add	   esi,3
   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
   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]
   movzx   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]
 lea   ebx,[ebx*3]
 mov   edx,esi
 add   esi,ebx
 lea   ebx,[ebx+esi]
 pxor  xmm0,xmm0
 push  eax
@@:
 movlps     xmm1,[esi+3]
 movhps     xmm1,[esi+6]
 punpcklbw  xmm1,xmm0
 movlps     xmm2,[esi-3]
 movhps     xmm2,[esi]
 punpcklbw  xmm2,xmm0
 movlps     xmm3,[ebx]
 movhps     xmm3,[ebx+3]
 movlps     xmm4,[edx]
 movhps     xmm4,[edx+3]
 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
 lea	     eax,[eax*3+envmap_cub]
 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
 
 
 add	edi,8
 add	esi,6
 add	ebx,6
 add	edx,6
 sub	ecx,2
 jnc	@b
 
 
 pop	ecx  ;,eax
 mov	edi,[screen_ptr]
 mov	esi,[Zbuffer_ptr]
@@:
 movsd
 dec	edi
 loop	@b
end if
ret
 
;align 16
; emboss_bias:
;    dw 128, 128, 128, 128, 128, 128, 128, 128
 
if 0  ; old emb proc
 
 ;  emboss -  after drawing all,
 ;  transfer screen buffer into bump map
 ;  and draw two bump triangles
 ; *************************************
	mov	esi,screen
	mov	edi,bumpmap2
	mov	ecx,TEXTURE_SIZE/3
	cld
if  Ext=NON
	xor	eax,eax
	xor	bh,bh
	xor	dh,dh
      @@:
	lodsb
	movzx	bx,al
	lodsb
	movzx	dx,al
	lodsb
	add	ax,bx
	add	ax,dx
      ;  cwd
      ;  div     [i3]
 ;;       push    ax
 ;;       pop     bx
 ;;       shr     bx,3
 ;;       shr     ax,2
 ;;       add     ax,bx
 
	lea	 eax,[eax*5]
	shr	 ax,4
 
	stosb
	loop	@b
else
	emms
	pxor	      mm1,mm1
	mov	      ebx,0x0000ffff
      @@:
	movd	      mm0,[esi]
	punpcklbw     mm0,mm1
	movq	      mm2,mm0
	psrlq	      mm2,16
	movq	      mm3,mm0
	psrlq	      mm3,32
	paddw	      mm0,mm2
	paddw	      mm0,mm3
 
 
	movd	      eax,mm0
	and	      eax,ebx
	lea	      eax,[eax*5]
	shr	      ax,4
	stosb
	add	      esi,3
	loop	      @b
 
end if
	push	ebp
 
	push	dword 0 	 ; env coords
	push	word 0
	push	word SIZE_X
	push	word SIZE_Y
	push	dword 0
	push	dword 0 	 ; bump coords
	push	word SIZE_X
	push	word SIZE_Y
	push	word 0
	mov	eax,SIZE_Y
	mov	ebx,SIZE_X*65536+0
	xor	ecx,ecx
	mov	edx,bumpmap2
	mov	esi,envmap
	mov	edi,screen
	call	bump_triangle
 
	push	dword SIZE_X shl 16 + SIZE_Y	   ; env coords
	push	word 0
	push	word SIZE_X
	push	word SIZE_Y
	push	word 0
	push	dword SIZE_X shl 16 + SIZE_Y	    ; bump coords
	push	word 0
	push	word SIZE_X
	push	word SIZE_Y
	push	word 0
	mov	eax,SIZE_Y
	mov	ebx,SIZE_X * 65536+0
	mov	ecx,SIZE_X shl 16 + SIZE_Y
	mov	edx,bumpmap2
	mov	esi,envmap
	mov	edi,screen
	call	bump_triangle
 
	pop	ebp
ret
end if
;********************************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	ax,4
	mov	bx,4+4
	mov	[triangles_count_var],164*3   ;140
 
	mov	cx,80*3  ;68
      @@:
	stosw		      ;----
	mov	[edi],bx      ;    |
	add	edi,2	      ;    |
	inc	ax	      ;    |
	stosw		      ;    |repeat 4 times
 
	mov	[edi],bx      ;    |
	inc	bx
	add	edi,2
	stosw		      ;    |
	mov	[edi],bx      ;    |
	add	edi,2	      ;----
	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	ax,5
	mov	bx,5+5
	mov	[triangles_count_var],204
 
	mov	cx,100
      @@:
	stosw		      ;----
	mov	[edi],bx      ;    |
	add	edi,2	      ;    |
	inc	ax	      ;    |
	stosw		      ;    |repeat
 
	mov	[edi],bx      ;    |
	inc	bx
	add	edi,2
	stosw		      ;    |
	mov	[edi],bx      ;    |
	add	edi,2	      ;----
	loop	 @b
 
	mov	ax,5
	mov	bx,[points_count_var]
	sub	bx,2
	mov	dl,2
    .nx:
	mov	cx,5
	add	[triangles_count_var],cx
    @@:
	stosw
	add	ax,5
	stosw
	mov	word[edi],bx
	add	edi,2
	loop	@b
 
	cmp	dl,1
	je	@f
 
	inc	bx
	jmp	.lab
     @@:
	dec	bx
     .lab:
	mov	cx,5
	add	[triangles_count_var],cx
     @@:
	stosw
	add	ax,5
	stosw
	mov	word[edi],bx
	add	edi,2
	loop	@b
 
	dec	dl
	or	dl,dl
	jnz	.nx
 
	sub	ax,25
	stosw
	sub	ax,50
	stosw
	mov	word[edi],bx
	add	edi,2
 
	stosw
	add	ax,50
	stosw
	inc	bx
	mov	word[edi],bx
	add	edi,2
	add	[triangles_count_var],2
 
	mov	dword[edi],-1  ; < - end mark
	mov	[culling_flag],0
 
	mov	esp,ebp
	pop	ebp
 
ret

Rev 6619	Rev 6769
1	do_sinus:	1	do_sinus:
2	.x equ [ebp-8]	2	.x equ [ebp-8]
3	.y equ [ebp-12]	3	.y equ [ebp-12]
4	.new_y equ [ebp-16]	4	.new_y equ [ebp-16]
5	.temp equ [ebp-20]	5	.temp equ [ebp-20]
6	push ebp	6	push ebp
7	mov ebp,esp	7	mov ebp,esp
8	sub esp,64	8	sub esp,64
9	mov dword .x,0	9	mov dword .x,0
10	mov dword .y,0	10	mov dword .y,0
11	mov esi,[screen_ptr]	11	mov esi,[screen_ptr]
12	mov edi,[Zbuffer_ptr]	12	mov edi,[Zbuffer_ptr]
13	push edi	13	push edi
14	; clear Zbuffer temporally used as image buffer	14	; clear Zbuffer temporally used as image buffer
15	movzx ecx,word[size_x_var]	15	movzx ecx,word[size_x_var]
16	movzx eax,word[size_y_var]	16	movzx eax,word[size_y_var]
17	imul ecx,eax ;SIZE_X*SIZE_Y	17	imul ecx,eax ;SIZE_X*SIZE_Y
18	xor eax,eax	18	xor eax,eax
19	cld	19	cld
20	rep stosd	20	rep stosd
21	pop edi	21	pop edi
22	; movzx eax,[sinus_flag]	22	; movzx eax,[sinus_flag]
23	; mov edx,10	23	; mov edx,10
24	; mul edx	24	; mul edx
25	; mov [sin_amplitude],eax	25	; mov [sin_amplitude],eax
26	; mov [sin_frq],eax	26	; mov [sin_frq],eax
27	fninit	27	fninit
28	;if Ext = SSE2	28	;if Ext = SSE2
29	; movups xmm1,[const0123] ; xmm1 - init values	29	; movups xmm1,[const0123] ; xmm1 - init values
30	; mov eax,0x000000ff	30	; mov eax,0x000000ff
31	; movd xmm2,eax	31	; movd xmm2,eax
32	; shufps xmm2,xmm2,0 ; xmm2 - mask value	32	; shufps xmm2,xmm2,0 ; xmm2 - mask value
33	; mov eax,4	33	; mov eax,4
34	; movd xmm3,eax	34	; movd xmm3,eax
35	; shufps xmm3,xmm3,0	35	; shufps xmm3,xmm3,0
36	.again:	36	.again:
37	if 0	37	if 0
38	fild dword .x	38	fild dword .x
39	fidiv [sin_frq]	39	fidiv [sin_frq]
40	fsin	40	fsin
41	fimul [sin_amplitude]	41	fimul [sin_amplitude]
42	fiadd dword .y	42	fiadd dword .y
43	fistp dword .new_y	43	fistp dword .new_y
44	else	44	else
45	fild dword .x	45	fild dword .x
46	fmul [sin_frq]	46	fmul [sin_frq]
47	fistp dword .temp	47	fistp dword .temp
48	mov eax, .temp	48	mov eax, .temp
49	; mov bx, [angle_x]	49	; mov bx, [angle_x]
50	; add bx, [angle_y]	50	; add bx, [angle_y]
51	; movzx ebx,bx	51	; movzx ebx,bx
52	; shr ebx,1 ; change phase	52	; shr ebx,1 ; change phase
53	; add eax,ebx	53	; add eax,ebx
54		54
55		55
56	and eax, 0x000000ff	56	and eax, 0x000000ff
57		57
58	; cdq	58	; cdq
59	; mul [sin_frq]	59	; mul [sin_frq]
60	; and eax,0x000000ff	60	; and eax,0x000000ff
61	; and ax,0x00ff	61	; and ax,0x00ff
62	; cwde	62	; cwde
63		63
64	fld dword [sin_tab+eax*4]	64	fld dword [sin_tab+eax*4]
65	fimul dword [sin_amplitude]	65	fimul dword [sin_amplitude]
66	fiadd dword .y	66	fiadd dword .y
67	fistp dword .new_y	67	fistp dword .new_y
68	end if	68	end if
69	mov eax,.new_y	69	mov eax,.new_y
70	or eax,eax	70	or eax,eax
71	jl .skip	71	jl .skip
72	movzx ebx,word[size_y_var]	72	movzx ebx,word[size_y_var]
73	cmp eax,ebx ;SIZE_Y	73	cmp eax,ebx ;SIZE_Y
74	jg .skip	74	jg .skip
75	movzx edx,word[size_x_var]	75	movzx edx,word[size_x_var]
76	mul edx	76	mul edx
77	; shl eax,9	77	; shl eax,9
78	add eax,dword .x	78	add eax,dword .x
79	lea ebx,[eax*3]	79	lea ebx,[eax*3]
80	mov eax,[esi]	80	mov eax,[esi]
81	mov [edi+ebx],eax	81	mov [edi+ebx],eax
82	.skip:	82	.skip:
83	add esi,3	83	add esi,3
84	inc dword .x	84	inc dword .x
85	movzx edx,word[size_x_var]	85	movzx edx,word[size_x_var]
86	cmp dword .x,edx ;SIZE_X	86	cmp dword .x,edx ;SIZE_X
87	jl .again	87	jl .again
88	mov dword .x,0	88	mov dword .x,0
89	inc dword .y	89	inc dword .y
90	movzx edx,word[size_y_var]	90	movzx edx,word[size_y_var]
91	cmp dword .y,edx ;SIZE_Y	91	cmp dword .y,edx ;SIZE_Y
92	jl .again	92	jl .again
93		93
94	; copy from temporary buffer -> Zbuffer to screen	94	; copy from temporary buffer -> Zbuffer to screen
95	mov esi,[Zbuffer_ptr]	95	mov esi,[Zbuffer_ptr]
96	mov edi,[screen_ptr]	96	mov edi,[screen_ptr]
97	movzx ecx,word[size_x_var]	97	movzx ecx,word[size_x_var]
98	movzx eax,word[size_y_var]	98	movzx eax,word[size_y_var]
99	imul ecx,eax	99	imul ecx,eax
100	lea ecx,[ecx*3]	100	lea ecx,[ecx*3]
101	shr ecx,2	101	shr ecx,2
102	; mov ecx,SIZE_XSIZE_Y3/4	102	; mov ecx,SIZE_XSIZE_Y3/4
103	cld	103	cld
104	rep movsd	104	rep movsd
105		105
106		106
107	mov esp,ebp	107	mov esp,ebp
108	pop ebp	108	pop ebp
109	ret	109	ret
110		110
111		111
112	draw_dots:	112	draw_dots:
113	mov esi,[points_translated_ptr]	113	mov esi,[points_translated_ptr]
114	movzx ecx,[points_count_var]	114	movzx ecx,[points_count_var]
115	.drw:	115	.drw:
116	@@:	116	@@:
117	lodsd	117	lodsd
118	add esi,2 ; skip z	118	add esi,2 ; skip z
119	movzx ebx,ax	119	movzx ebx,ax
120	shr eax,16 ; bx = x , ax = y	120	shr eax,16 ; bx = x , ax = y
121	or ax,ax	121	or ax,ax
122	jl @f	122	jl @f
123	or bx,bx	123	or bx,bx
124	jl @f	124	jl @f
125	cmp ax,[size_y_var] ;SIZE_Y	125	cmp ax,[size_y_var] ;SIZE_Y
126	jge @f	126	jge @f
127	cmp bx,[size_x_var] ;SIZE_X	127	cmp bx,[size_x_var] ;SIZE_X
128	jge @f	128	jge @f
129	movzx edx,word[size_x_var] ;SIZE_X ; SIZE_X not only power of 2 -> 256,512,...	129	movzx edx,word[size_x_var] ;SIZE_X ; SIZE_X not only power of 2 -> 256,512,...
130	mul edx	130	mul edx
131	add eax,ebx	131	add eax,ebx
132	mov edi,[screen_ptr]	132	mov edi,[screen_ptr]
133	lea eax,[eax*3]	133	lea eax,[eax*3]
134	add edi,eax	134	add edi,eax
135	xor eax,eax	135	xor eax,eax
136	not eax	136	not eax
137	stosd	137	stosd
138	@@:	138	@@:
139	loop .drw	139	loop .drw
140		140
141	ret	141	ret
142		142
143	do_emboss: ; sse2 version only	143	do_emboss: ; sse2 version only
144	if Ext >= SSE2	144	if Ext >= SSE2
145	movzx ecx,[bumps_deep_flag]	145	movzx ecx,[bumps_deep_flag]
146	inc ecx	146	inc ecx
147	call blur_screen ;blur n times	147	call blur_screen ;blur n times
148		148
149	mov eax,[size_y_var] ;load both x, y	149	mov eax,[size_y_var] ;load both x, y
150	mov ebx,eax	150	mov ebx,eax
151	shr ebx,16	151	shr ebx,16
152	cwde	152	cwde
153	mul ebx	153	mul ebx
154	mov ecx,eax	154	mov ecx,eax
155	sub ecx,ebx	155	sub ecx,ebx
156	sub ecx,ebx	156	sub ecx,ebx
157	mov esi,[screen_ptr]	157	mov esi,[screen_ptr]
158	mov edi,[Zbuffer_ptr]	158	mov edi,[Zbuffer_ptr]
159	lea ebx,[ebx*3]	159	lea ebx,[ebx*3]
160	mov edx,esi	160	mov edx,esi
161	add esi,ebx	161	add esi,ebx
162	lea ebx,[ebx+esi]	162	lea ebx,[ebx+esi]
163	pxor xmm0,xmm0	163	pxor xmm0,xmm0
164	push eax	164	push eax
165	@@:	165	@@:
166	movlps xmm1,[esi+3]	166	movlps xmm1,[esi+3]
167	movhps xmm1,[esi+6]	167	movhps xmm1,[esi+6]
168	punpcklbw xmm1,xmm0	168	punpcklbw xmm1,xmm0
169	movlps xmm2,[esi-3]	169	movlps xmm2,[esi-3]
170	movhps xmm2,[esi]	170	movhps xmm2,[esi]
171	punpcklbw xmm2,xmm0	171	punpcklbw xmm2,xmm0
172	movlps xmm3,[ebx]	172	movlps xmm3,[ebx]
173	movhps xmm3,[ebx+3]	173	movhps xmm3,[ebx+3]
174	movlps xmm4,[edx]	174	movlps xmm4,[edx]
175	movhps xmm4,[edx+3]	175	movhps xmm4,[edx+3]
176	punpcklbw xmm3,xmm0	176	punpcklbw xmm3,xmm0
177	punpcklbw xmm4,xmm0	177	punpcklbw xmm4,xmm0
178	psubsw xmm1,xmm2	178	psubsw xmm1,xmm2
179	paddw xmm1,[.bias]	179	paddw xmm1,[emboss_bias]
180	psubsw xmm3,xmm4	180	psubsw xmm3,xmm4
181	paddw xmm3,[.bias]	181	paddw xmm3,[emboss_bias]
182	pmulhw xmm1,xmm3	182	pmulhw xmm1,xmm3
183	movaps xmm7,xmm1	183	movaps xmm7,xmm1
184	movaps xmm6,xmm1	184	movaps xmm6,xmm1
185	psrlq xmm7,2*8	185	psrlq xmm7,2*8
186	psrlq xmm6,4*8	186	psrlq xmm6,4*8
187	pmaxsw xmm1,xmm7	187	pmaxsw xmm1,xmm7
188	pmaxsw xmm1,xmm6	188	pmaxsw xmm1,xmm6
189		189
190	if 0	190	if 0
191	movaps xmm7,xmm3	191	movaps xmm7,xmm3
192	movaps xmm6,xmm3	192	movaps xmm6,xmm3
193	psrlq xmm7,2*8	193	psrlq xmm7,2*8
194	psrlq xmm6,4*8	194	psrlq xmm6,4*8
195	pmaxsw xmm3,xmm7	195	pmaxsw xmm3,xmm7
196	pmaxsw xmm3,xmm6	196	pmaxsw xmm3,xmm6
197	end if	197	end if
198	pmaxsw xmm1,xmm3	198	pmaxsw xmm1,xmm3
199		199
200	movd eax,xmm1	200	movd eax,xmm1
201	movzx eax,al	201	movzx eax,al
202	lea eax,[eax*3+envmap_cub]	202	lea eax,[eax*3+envmap_cub]
203	mov eax,[eax]	203	mov eax,[eax]
204	mov [edi],eax ;xmm1	204	mov [edi],eax ;xmm1
205	psrldq xmm1,8	205	psrldq xmm1,8
206	movd eax,xmm1	206	movd eax,xmm1
207	movzx eax,al	207	movzx eax,al
208	lea eax,[eax*3+envmap_cub]	208	lea eax,[eax*3+envmap_cub]
209	mov eax,[eax]	209	mov eax,[eax]
210	mov [edi+4],eax	210	mov [edi+4],eax
211		211
212		212
213	add edi,8	213	add edi,8
214	add esi,6	214	add esi,6
215	add ebx,6	215	add ebx,6
216	add edx,6	216	add edx,6
217	sub ecx,2	217	sub ecx,2
218	jnc @b	218	jnc @b
219		219
220		220
221	pop ecx ;,eax	221	pop ecx ;,eax
222	mov edi,[screen_ptr]	222	mov edi,[screen_ptr]
223	mov esi,[Zbuffer_ptr]	223	mov esi,[Zbuffer_ptr]
224	@@:	224	@@:
225	movsd	225	movsd
226	dec edi	226	dec edi
227	loop @b	227	loop @b
228	end if	228	end if
229	ret	229	ret
230		230
231	align 16	231	;align 16
232	.bias:	232	; emboss_bias:
233	dw 128, 128, 128, 128, 128, 128, 128, 128	233	; dw 128, 128, 128, 128, 128, 128, 128, 128
234		234
235	if 0 ; old emb proc	235	if 0 ; old emb proc
236		236
237	; emboss - after drawing all,	237	; emboss - after drawing all,
238	; transfer screen buffer into bump map	238	; transfer screen buffer into bump map
239	; and draw two bump triangles	239	; and draw two bump triangles
240	; *************************************	240	; *************************************
241	mov esi,screen	241	mov esi,screen
242	mov edi,bumpmap2	242	mov edi,bumpmap2
243	mov ecx,TEXTURE_SIZE/3	243	mov ecx,TEXTURE_SIZE/3
244	cld	244	cld
245	if Ext=NON	245	if Ext=NON
246	xor eax,eax	246	xor eax,eax
247	xor bh,bh	247	xor bh,bh
248	xor dh,dh	248	xor dh,dh
249	@@:	249	@@:
250	lodsb	250	lodsb
251	movzx bx,al	251	movzx bx,al
252	lodsb	252	lodsb
253	movzx dx,al	253	movzx dx,al
254	lodsb	254	lodsb
255	add ax,bx	255	add ax,bx
256	add ax,dx	256	add ax,dx
257	; cwd	257	; cwd
258	; div [i3]	258	; div [i3]
259	;; push ax	259	;; push ax
260	;; pop bx	260	;; pop bx
261	;; shr bx,3	261	;; shr bx,3
262	;; shr ax,2	262	;; shr ax,2
263	;; add ax,bx	263	;; add ax,bx
264		264
265	lea eax,[eax*5]	265	lea eax,[eax*5]
266	shr ax,4	266	shr ax,4
267		267
268	stosb	268	stosb
269	loop @b	269	loop @b
270	else	270	else
271	emms	271	emms
272	pxor mm1,mm1	272	pxor mm1,mm1
273	mov ebx,0x0000ffff	273	mov ebx,0x0000ffff
274	@@:	274	@@:
275	movd mm0,[esi]	275	movd mm0,[esi]
276	punpcklbw mm0,mm1	276	punpcklbw mm0,mm1
277	movq mm2,mm0	277	movq mm2,mm0
278	psrlq mm2,16	278	psrlq mm2,16
279	movq mm3,mm0	279	movq mm3,mm0
280	psrlq mm3,32	280	psrlq mm3,32
281	paddw mm0,mm2	281	paddw mm0,mm2
282	paddw mm0,mm3	282	paddw mm0,mm3
283		283
284		284
285	movd eax,mm0	285	movd eax,mm0
286	and eax,ebx	286	and eax,ebx
287	lea eax,[eax*5]	287	lea eax,[eax*5]
288	shr ax,4	288	shr ax,4
289	stosb	289	stosb
290	add esi,3	290	add esi,3
291	loop @b	291	loop @b
292		292
293	end if	293	end if
294	push ebp	294	push ebp
295		295
296	push dword 0 ; env coords	296	push dword 0 ; env coords
297	push word 0	297	push word 0
298	push word SIZE_X	298	push word SIZE_X
299	push word SIZE_Y	299	push word SIZE_Y
300	push dword 0	300	push dword 0
301	push dword 0 ; bump coords	301	push dword 0 ; bump coords
302	push word SIZE_X	302	push word SIZE_X
303	push word SIZE_Y	303	push word SIZE_Y
304	push word 0	304	push word 0
305	mov eax,SIZE_Y	305	mov eax,SIZE_Y
306	mov ebx,SIZE_X*65536+0	306	mov ebx,SIZE_X*65536+0
307	xor ecx,ecx	307	xor ecx,ecx
308	mov edx,bumpmap2	308	mov edx,bumpmap2
309	mov esi,envmap	309	mov esi,envmap
310	mov edi,screen	310	mov edi,screen
311	call bump_triangle	311	call bump_triangle
312		312
313	push dword SIZE_X shl 16 + SIZE_Y ; env coords	313	push dword SIZE_X shl 16 + SIZE_Y ; env coords
314	push word 0	314	push word 0
315	push word SIZE_X	315	push word SIZE_X
316	push word SIZE_Y	316	push word SIZE_Y
317	push word 0	317	push word 0
318	push dword SIZE_X shl 16 + SIZE_Y ; bump coords	318	push dword SIZE_X shl 16 + SIZE_Y ; bump coords
319	push word 0	319	push word 0
320	push word SIZE_X	320	push word SIZE_X
321	push word SIZE_Y	321	push word SIZE_Y
322	push word 0	322	push word 0
323	mov eax,SIZE_Y	323	mov eax,SIZE_Y
324	mov ebx,SIZE_X * 65536+0	324	mov ebx,SIZE_X * 65536+0
325	mov ecx,SIZE_X shl 16 + SIZE_Y	325	mov ecx,SIZE_X shl 16 + SIZE_Y
326	mov edx,bumpmap2	326	mov edx,bumpmap2
327	mov esi,envmap	327	mov esi,envmap
328	mov edi,screen	328	mov edi,screen
329	call bump_triangle	329	call bump_triangle
330		330
331	pop ebp	331	pop ebp
332	ret	332	ret
333	end if	333	end if
334	;******************************EMBOSS DONE*****************************	334	;******************************EMBOSS DONE*****************************
335		335
336		336
337	generate_object2: ; torus	337	generate_object2: ; torus
338	;in ax - figure number 2=torus, 3=loop, 4=loop	338	;in ax - figure number 2=torus, 3=loop, 4=loop
339	;locals	339	;locals
340	; counter dw ?	340	; counter dw ?
341	; sin dd ?	341	; sin dd ?
342	; cos dd ?	342	; cos dd ?
343	;endl	343	;endl
344	.counter equ word[ebp-2]	344	.counter equ word[ebp-2]
345	.sin equ dword[ebp-6]	345	.sin equ dword[ebp-6]
346	.cos equ dword[ebp-10]	346	.cos equ dword[ebp-10]
347	.sin2 equ dword[ebp-14]	347	.sin2 equ dword[ebp-14]
348	.cos2 equ dword[ebp-18]	348	.cos2 equ dword[ebp-18]
349	.piD180m3 equ dword[ebp-22]	349	.piD180m3 equ dword[ebp-22]
350	.cD2 equ word[ebp-24]	350	.cD2 equ word[ebp-24]
351	push ebp	351	push ebp
352	mov ebp,esp	352	mov ebp,esp
353	sub esp,24	353	sub esp,24
354		354
355	push ax	355	push ax
356		356
357	fninit	357	fninit
358	mov edi,[points_ptr]	358	mov edi,[points_ptr]
359	xor eax,eax	359	xor eax,eax
360	; init seed -> 4 3d points	360	; init seed -> 4 3d points
361	mov dword[edi],-1.0 ; x	361	mov dword[edi],-1.0 ; x
362	add edi,4	362	add edi,4
363	stosd ; y	363	stosd ; y
364	stosd ; z	364	stosd ; z
365	mov dword[edi],-0.9 ; x1	365	mov dword[edi],-0.9 ; x1
366	mov dword[edi+4],0.1 ; y1	366	mov dword[edi+4],0.1 ; y1
367	add edi,8	367	add edi,8
368	stosd ; z1	368	stosd ; z1
369	mov dword[edi],-0.8	369	mov dword[edi],-0.8
370	add edi,4	370	add edi,4
371	stosd	371	stosd
372	stosd	372	stosd
373	mov dword[edi],-0.9 ; x3	373	mov dword[edi],-0.9 ; x3
374	mov dword[edi+4],-0.1 ; y3	374	mov dword[edi+4],-0.1 ; y3
375	add edi,8	375	add edi,8
376	stosd ; z3	376	stosd ; z3
377	mov [points_count_var],4	377	mov [points_count_var],4
378		378
379	fld [piD180]	379	fld [piD180]
380	fidiv [i3]	380	fidiv [i3]
381	fstp .piD180m3	381	fstp .piD180m3
382	mov .cD2,5	382	mov .cD2,5
383		383
384	pop ax	384	pop ax
385	mov ecx,1	385	mov ecx,1
386	mov edx,9	386	mov edx,9
387	.next: ; calc angle and rotate seed 4 points	387	.next: ; calc angle and rotate seed 4 points
388	mov .counter,cx	388	mov .counter,cx
389	mov ebx,[points_ptr]	389	mov ebx,[points_ptr]
390	fld .piD180m3	390	fld .piD180m3
391	fimul .counter	391	fimul .counter
392	fld st	392	fld st
393	fsincos	393	fsincos
394	fstp .sin	394	fstp .sin
395	fstp .cos	395	fstp .cos
396	fadd st,st0	396	fadd st,st0
397	fsincos	397	fsincos
398	fstp .sin2	398	fstp .sin2
399	fstp .cos2	399	fstp .cos2
400		400
401	.rotor: ; next 4	401	.rotor: ; next 4
402	; rotary y	402	; rotary y
403	fld dword[ebx] ; x	403	fld dword[ebx] ; x
404	fld .sin	404	fld .sin
405	fmul dword[ebx+8] ; z * sinbeta	405	fmul dword[ebx+8] ; z * sinbeta
406	fchs	406	fchs
407	fld .cos	407	fld .cos
408	fmul dword[ebx] ; x * cosbeta	408	fmul dword[ebx] ; x * cosbeta
409	faddp	409	faddp
410	fstp dword[edi] ; new x	410	fstp dword[edi] ; new x
411	fmul .sin ; old x * sinbeta	411	fmul .sin ; old x * sinbeta
412	fld .cos	412	fld .cos
413	fmul dword[ebx+8] ; z * cosbeta	413	fmul dword[ebx+8] ; z * cosbeta
414	faddp	414	faddp
415	dec dx	415	dec dx
416	or dx,dx	416	or dx,dx
417	jnz @f	417	jnz @f
418	; mov .counter,dx	418	; mov .counter,dx
419	fld st	419	fld st
420	fidiv [i3]	420	fidiv [i3]
421	faddp	421	faddp
422	@@:	422	@@:
423	fstp dword[edi+8] ; new z	423	fstp dword[edi+8] ; new z
424	fld dword[ebx+4]	424	fld dword[ebx+4]
425	or dx,dx	425	or dx,dx
426	jnz @f	426	jnz @f
427	; fld1	427	; fld1
428	; faddp	428	; faddp
429	; fld st	429	; fld st
430	fadd st,st0	430	fadd st,st0
431	fadd st,st0	431	fadd st,st0
432	; fxch	432	; fxch
433	; fimul [i3]	433	; fimul [i3]
434	; fsin	434	; fsin
435	; faddp	435	; faddp
436	mov dx,9	436	mov dx,9
437	@@:	437	@@:
438	fstp dword[edi+4]	438	fstp dword[edi+4]
439	; rotary x	439	; rotary x
440	cmp al,3	440	cmp al,3
441	jl .end_rot	441	jl .end_rot
442	fld dword[edi+4] ;y	442	fld dword[edi+4] ;y
443	fld .sin2	443	fld .sin2
444	fmul dword[edi+8] ;z	444	fmul dword[edi+8] ;z
445	fld .cos2	445	fld .cos2
446	fmul dword[edi+4] ;y	446	fmul dword[edi+4] ;y
447	faddp	447	faddp
448	fstp dword[edi+4] ; new y	448	fstp dword[edi+4] ; new y
449	fmul .sin2 ; sinbeta * old y	449	fmul .sin2 ; sinbeta * old y
450	fchs	450	fchs
451	fld .cos2	451	fld .cos2
452	fmul dword[edi+8]	452	fmul dword[edi+8]
453	faddp	453	faddp
454	fstp dword[edi+8]	454	fstp dword[edi+8]
455	; rotary z	455	; rotary z
456	cmp al,4	456	cmp al,4
457	jl .end_rot	457	jl .end_rot
458	fld dword[edi] ;x	458	fld dword[edi] ;x
459	fld .sin	459	fld .sin
460	fmul dword[edi+4] ;y	460	fmul dword[edi+4] ;y
461	fld .cos	461	fld .cos
462	fmul dword[edi] ;x	462	fmul dword[edi] ;x
463	faddp	463	faddp
464	fstp dword[edi] ;new x	464	fstp dword[edi] ;new x
465	fmul .sin ; sinbeta * old x	465	fmul .sin ; sinbeta * old x
466	fchs	466	fchs
467	fld .cos	467	fld .cos
468	fmul dword[edi+4] ; cosbeta * y	468	fmul dword[edi+4] ; cosbeta * y
469	faddp	469	faddp
470	fstp dword[edi+4] ; new y	470	fstp dword[edi+4] ; new y
471		471
472		472
473		473
474	.end_rot:	474	.end_rot:
475		475
476	add edi,12	476	add edi,12
477	add ebx,12	477	add ebx,12
478	mov esi,[points_ptr]	478	mov esi,[points_ptr]
479	add esi,12*4	479	add esi,12*4
480	cmp ebx,esi	480	cmp ebx,esi
481	jl .rotor	481	jl .rotor
482		482
483	add [points_count_var],4	483	add [points_count_var],4
484	add cx,18	484	add cx,18
485	cmp cx,(18213)+1	485	cmp cx,(18213)+1
486	jle .next	486	jle .next
487		487
488	mov edi,[triangles_ptr]	488	mov edi,[triangles_ptr]
489	mov ax,4	489	mov ax,4
490	mov bx,4+4	490	mov bx,4+4
491	mov [triangles_count_var],164*3 ;140	491	mov [triangles_count_var],164*3 ;140
492		492
493	mov cx,80*3 ;68	493	mov cx,80*3 ;68
494	@@:	494	@@:
495	stosw ;----	495	stosw ;----
496	mov [edi],bx ; \|	496	mov [edi],bx ; \|
497	add edi,2 ; \|	497	add edi,2 ; \|
498	inc ax ; \|	498	inc ax ; \|
499	stosw ; \|repeat 4 times	499	stosw ; \|repeat 4 times
500		500

Subversion Repositories Kolibri OS

(root)/programs/demos/3DS/A_PROCS.INC – Rev 6619 → 6769