Subversion Repositories Kolibri OS

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

   mov	   ecx,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

   cmp	   eax,SIZE_Y

   jg	   .skip

;   mov     edx,SIZE_X

;   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

   cmp	   dword .x,SIZE_X

   jl	   .again

   mov	   dword .x,0

   inc	   dword .y

   cmp	   dword .y,SIZE_Y

   jl	   .again

   ; copy from temporary buffer -> Zbuffer to screen

   mov	   esi,[Zbuffer_ptr]

   mov	   edi,[screen_ptr]

   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

   jge	   @f

   cmp	   bx,SIZE_X

   jge	   @f

   mov	   edx,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:

 ;  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

;********************************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