WebSVN – Kolibri OS – Diff – /programs/demos/view3ds/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
 
 
 
 
 
   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

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

Subversion Repositories Kolibri OS

(root)/programs/demos/view3ds/a_procs.inc – Rev 8232 → 8666