WebSVN – Kolibri OS – Diff – /programs/demos/view3ds/view3ds.asm

-; application : View3ds ver. 0.071 - tiny .3ds and .asc files viewer
+; application : View3ds ver. 0.072 - tiny .3ds and .asc files viewer
 ;               with a few graphics effects demonstration.
 ; compiler    : FASM
 ; system      : KolibriOS
 ; author      : Macgub aka Maciej Guba
 ; email       : macgub3@wp.pl
-; web         : http://macgub.vxm.pl
+; web         : http://macgub.j.pl, http://macgub.co.pl
 ; Fell free to use this intro in your own distribution of KolibriOS.
 ; Special greetings to KolibriOS team .
 ; I hope because my demos Christian Belive will be near to each of You.
 ; 1) Read from a file (*.3DS standard)
 ; 2) Written in manually (at the end of the code) ; now not exist
-SIZE_X equ 512
+SIZE_X equ 500
-SIZE_Y equ 512                               ;      /////     I want definitely
+SIZE_Y equ 600                               ;      /////     I want definitely
 TIMEOUT equ 10                               ;     ------     say:
 ROUND equ 10                                 ;     \ @ @/     keep smiling every
 TEX_X equ 512    ; texture width             ;      \ ./    / day.
 TEX_Y equ 512    ;         height            ;       \/    /
         dd     0x0              ; I_Icon
 START:    ; start of execution
         cld
-        mov    eax, 500 shl 16 + 600 ; ... or set manually
-        mov    [size_y_var],ax
+        push   dword (SIZE_Y shr 3) * 3
-        shr    ax,1
-        mov    [vect_y],ax
-        shr    ax,2
-        movzx  ebx,ax
-        movzx  ebx,ax
-        lea    ebx,[ebx*3]
-        push   ebx
         fninit
         fild   dword[esp]
         fstp   [rsscale]
         pop    ebx
-        shr    eax,16
-        mov    [size_x_var],ax
-        shr    ax,1
-        mov    [vect_x],ax
  ;       mov    eax, 20 shl  16 + 20
         mov    [x_start],dword 20 shl  16 + 20  ;eax
         ;mov     [draw_win_at_first],0
         ;mov    eax,40         ; set events mask
         ;mov    ebx,1100000000000000000000000100111b
         ;int    0x40
       if Ext >= SSE3
+        mov     eax,1
+        cpuid
+        bt      ecx,0  ; is sse3 on board?
+        jc      @f
+        mov     [max_dr_flg],12
+       @@:
+       end if
 still:
         cmp    [edit_flag],1
         jne    @f
         mov    eax,40         ; set events mask
         cmp     ah,5
         jne     @f
-            .zoom_out:
+     .zoom_out:
         mov     dword[scale],0.7
-        fninit
+        movss   xmm0,[rsscale]
+        mulss   xmm0,[scale]
+        movss   [rsscale],xmm0
+      ;  fninit
-        fld     [rsscale]
+      ;  fld     [rsscale]
-        fmul    [scale]
+      ;  fmul    [scale]
-        fstp    [rsscale]
+      ;  fstp    [rsscale]
       @@:
         cmp     ah,6                 ; ah = 6 ->  scale+
         jne     @f
-            .zoom_in:
+       .zoom_in:
         mov     dword[scale],1.3
+        movss   xmm0,[rsscale]
+        mulss   xmm0,[scale]
+        movss   [rsscale],xmm0
-        fninit
+       ; fninit
-        fld     [rsscale]
+       ; fld     [rsscale]
-        fmul    [scale]
+       ; fmul    [scale]
-        fstp    [rsscale]
+       ; fstp    [rsscale]
       @@:
         cmp     ah,9    ; lights random                 ;    'flat'  0
         jne     .next_m5                                ;    'grd '  1
         cmp     [fire_flag],0
         jne     @f
         call    clrscr          ; clear the screen
      @@:
-    ;    cmp     [catmull_flag],1  ;non sort if Catmull = on
-    ;    je      .no_sort
-    ; 64 indexes    call    sort_triangles
-      .no_sort:
         cmp     [dr_flag],7       ; fill if 2tex and texgrd
         jge     @f
         cmp     [catmull_flag],0  ;non fill if Catmull = off
         je      .non_f
         cmp     [dr_flag],6       ; non fill if dots
         call   clear_vertices_index
         call   draw_handlers
     ;    call   edit
     .no_edit:
       .blurrr:
         cmp  [sinus_flag],0
         call    do_emboss
       @@:
     cmp     [inc_bright_flag],0           ; increase brightness
     je      .no_inc_bright
     movzx   ebx,[inc_bright_flag]
     shl     ebx,4
 ;--------------------------------------------------------------------------------
 ;-------------------------PROCEDURES---------------------------------------------
 ;--------------------------------------------------------------------------------
-include "FLAT_CAT.INC"
+include "flat_cat.inc"
-include "TEX_CAT.INC"
+include "tex_cat.inc"
-include "BUMP_CAT.INC"
+include "bump_cat.inc"
-include "3DMATH.INC"
+include "3dmath.inc"
-include "GRD_LINE.INC"
+include "grd_line.inc"
-include "B_PROCS.INC"
+include "b_procs.inc"
-include "A_PROCS.INC"
+include "a_procs.inc"
-include "GRD_CAT.INC"
+include "grd_cat.inc"
-include "BUMP_TEX.INC"
+include "bump_tex.inc"
-include "GRD_TEX.INC"
+include "grd_tex.inc"
-include "TWO_TEX.INC"
+include "two_tex.inc"
-include "ASC.INC"
+include "asc.inc"
 if Ext >= SSE3
-include "3R_PHG.INC"
+include "3r_phg.inc"
-include '3STENCIL.INC'
+include '3stencil.inc'
-include '3GLASS.INC'
+include '3glass.inc'
+include '3glass_tex.inc'
 end if
 clear_vertices_index:
     mov   edi,[vertices_index_ptr]
     movzx eax,word[size_x_var]
     movzx ecx,word[size_y_var]
          mov      al,byte[esi+13]   ; g
          push     ax
          mov      al,byte[esi+12]   ; r
          push     ax
-         mov      al,byte[esi+20]   ; b     max color
+    ;     pxor       xmm1,xmm1
+    ;     movd       xmm0,[esi+12]
+    ;     punpckhbw  xmm0,xmm1
+    ;     sub        esp,8
+    ;     movq       [esp],xmm0
+         mov      al,byte[esi+20]   ; b     max color
          push     ax
          mov      al,byte[esi+19]   ; g
          push     ax
          mov      al,byte[esi+18]   ; r
          push     ax
     .env_done:
          mov     esp,ebp
          pop     ebp
 ret
-if Ext >= SSE3
+if   Ext >= SSE2
 init_point_normals:
 .z equ dword [ebp-8]
 .y equ dword [ebp-12]
 .x equ [ebp-16]
 .point_number equ dword [ebp-28]
 .hit_faces    equ dword [ebp-32]
         fninit
-        push      ebp
+         push      ebp
         mov       ebp,esp
         sub       esp,64
         and       ebp,-16
         cmp       ecx,[triangles_count_var]
         jne       .ipn_check_face
         cvtsi2ss  xmm6,.hit_faces
         movaps    xmm7,.x
         rcpss     xmm6,xmm6
+        rcpss     xmm6,xmm6
         shufps    xmm6,xmm6,11000000b
         mulps     xmm7,xmm6
-        movaps    xmm6,xmm7
+        movlps    [edi],xmm7
-        mulps     xmm6,xmm6
-        andps     xmm6,[zero_hgst_dd]
-        haddps    xmm6,xmm6
-        haddps    xmm6,xmm6
-        rsqrtps    xmm6,xmm6
-        mulps     xmm7,xmm6
-        movlps    [edi],xmm7
         movhlps   xmm7,xmm7
         movss     [edi+8],xmm7
-        add       edi,12
+        call      normalize_vector
+    ;    movaps    xmm6,xmm7
+    ;    mulps     xmm6,xmm6
+    ;    andps     xmm6,[zero_hgst_dd]
+    ;    haddps    xmm6,xmm6
+    ;    haddps    xmm6,xmm6
+    ;    rsqrtps    xmm6,xmm6
+    ;    mulps     xmm7,xmm6
+    ;    movlps    [edi],xmm7
+    ;    movhlps   xmm7,xmm7
+    ;    movss     [edi+8],xmm7
+        add       edi,12
         inc       .point_number
         mov       edx,.point_number
         cmp       edx,[points_count_var]
         jne       .ipn_loop
         movd    dword[eax],mm1
      @@:
      if Ext >= SSE3
         cmp     [dr_flag],13
-        jne     .no_stencil
+        jnge    .no_stencil
         mov     esi,[triangles_ptr]
         mov     ecx,[triangles_count_var]
      @@:
         push    esi
         push    ecx
         mov ecx,[triangles_count_var]
     .again_dts:
         push    ecx
         mov     ebp,[points_translated_ptr]
-      if Ext >= SSE2
+      if Ext = NON
         mov     eax,dword[esi]
         mov     [point_index1],eax
         lea     eax,[eax*3]
         add     eax,eax
         push    ebp
         add     ebp,eax
         mov     eax,[ebp+4]
         mov     [zz3],ax
       else
         movq    mm0,[esi]           ; don't know MMX
-        mov     qword[point_index1],mm0
+        movq    qword[point_index1],mm0
        ; shr     eax,16
        ; mov     [point_index2],ax
         mov     eax,dword[esi+8]
         mov     [point_index3],eax
         movdqu  xmm0,[esi]
         paddd   xmm0,xmm0
         mov     eax,dword[esi]
         lea     eax,[eax*3]
         shl     eax,2
         add     eax,[points_normals_rot_ptr]
-;        lea     eax,[eax+point_normals_rotated]
+        bt      dword[eax+8],+31
+        jc      .no_culling
+;        lea     eax,[eax+point_normals_rotated]
-        fld     dword[eax+8]             ; *****************************
+     ;   fld     dword[eax+8]             ; *****************************
-        ftst                             ; CHECKING OF Z COOFICIENT OF
+  ;      ftst                             ; CHECKING OF Z COOFICIENT OF
-        fstsw   ax                       ; NORMAL VECTOR
+  ;      fstsw   ax                       ; NORMAL VECTOR
-        sahf
+  ;      sahf
-        jb      @f
+  ;      jb      @f
-        ffree   st
+  ;      ffree   st
         loop    @b
         jmp     .end_draw   ; non visable
-      @@:
+  ;    @@:
-        ffree   st  ;is visable
+  ;      ffree   st  ;is visable
       .no_culling:
         cmp     [dr_flag],0               ; draw type flag
         je      .flat_draw
         cmp     [dr_flag],2
         je      .env_mapping
         cmp     [dr_flag],3
         cmp     [dr_flag],12
         je      .r_phg
         cmp     [dr_flag],13
         je      .glass
-     end if                                 ; ****************
+        cmp     [dr_flag],14
+        je      .glass_tex
+     end if                                 ; ****************
         mov     esi,point_index3      ; do Gouraud shading
         mov     ecx,3
       .again_grd_draw:
         mov     eax,dword[esi]
         shl     eax,2
         lea     eax,[eax*3]
         add     eax,[points_normals_rot_ptr]
-        ; texture x=(rotated point normal -> x * 255)+255
+    if Ext < SSE
+        ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]       ; x cooficient of normal vector
-        fimul   [correct_tex]
+        fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd    dword[correct_texf]
         fistp   [temp1]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]      ; y cooficient
-        fimul   [correct_tex]
+        fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd    dword[correct_texf]
         fistp   [temp2]
         mov      eax,[temp2]
-        mov      eax,[temp2]
         mov      ebx,[temp1]
-        and      ebx,0xfffffff
+     else
+        movlps   xmm0,[eax]
+        mulps    xmm0,[correct_texf]
+        addps    xmm0,[correct_texf]
+        cvtps2dq xmm0,xmm0
+        movd     eax,xmm0
+        psrldq   xmm0,4
+        movd     ebx,xmm0
+     end if
+        and      ebx,0xfffffff
         shl      eax,TEX_SHIFT
         add      eax,ebx
         lea      eax,[eax*3+color_map]
         mov      eax,dword[eax]
      ;   cmp     [catmull_flag],1      ; put on stack z coordinate if necessary
         fninit                             ; FLAT DRAWING
         mov     eax,[point_index1]
         mov     ebx,[point_index2]
         mov     ecx,[point_index3]
-        shl     eax,2
+    ;    shl     eax,2
-        shl     ebx,2
+        imul    eax,[i12]
+        imul    ebx,[i12]
+        imul    ecx,[i12]
+     ;   shl     ebx,2
-        shl     ecx,2
+     ;   shl     ecx,2
-        lea     eax,[eax*3]  ;+point_normals_rotated]
+     ;   lea     eax,[eax*3]  ;+point_normals_rotated]
         add     eax,[points_normals_rot_ptr]
-        lea     ebx,[ebx*3]  ;+point_normals_rotated]
+     ;   lea     ebx,[ebx*3]  ;+point_normals_rotated]
         add     ebx,[points_normals_rot_ptr]
-        lea     ecx,[ecx*3]  ;+point_normals_rotated]
+     ;   lea     ecx,[ecx*3]  ;+point_normals_rotated]
         add     ecx,[points_normals_rot_ptr]
         fld     dword[eax]      ; x cooficient of normal vector
         fadd    dword[ebx]
         fadd    dword[ecx]
         fidiv   [i3]
-        fimul   [correct_tex]
+        fmul   dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd   dword[correct_texf]
         fistp   [temp1]  ;dword[esp-4]    ; x temp variables
         fld     dword[eax+4]    ; y cooficient of normal vector
         fadd    dword[ebx+4]
         fadd    dword[ecx+4]
         fidiv   [i3]
-        fimul   [correct_tex]
+        fmul   dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd   dword[correct_texf]
         fistp   [temp2]  ;dword[esp-8]   ;  y
         mov     edx,[temp2] ;dword[esp-8]
         and     edx,0xfffffff
         and     [temp1],0xfffffff
         shl     edx,TEX_SHIFT
         add     edx,[temp1]  ;dword[esp-4]
-        mov     eax,dword[esi]
+        mov       eax,dword[esi]
-        lea     eax,[eax*3]
+        lea       eax,[eax*3]
-        shl     eax,2
+        shl       eax,2
-        add     eax,[points_normals_rot_ptr]       ;point_normals_rotated
+        add       eax,[points_normals_rot_ptr]       ;point_normals_rotated
-        ; texture x=(rotated point normal -> x * 255)+255
+        movlps      xmm0,[eax]
-        fld     dword[eax]
-        fimul   [correct_tex]
+        mulps       xmm0,[correct_texf]
-        fiadd   [correct_tex]
+        addps       xmm0,[correct_texf]
-        fistp   word[edi]
+        cvtps2dq    xmm0,xmm0
-        ; texture y=(rotated point normal -> y * 255)+255
+        packssdw    xmm0,xmm0
-        fld     dword[eax+4]
-        fimul   [correct_tex]
+        movd        [edi],xmm0
-        fiadd   [correct_tex]
-        fistp   word[edi+2]
+        add         edi,4
-        add     edi,4
-        add     esi,4
+        add         esi,4
-        loop    @b
+        loop        @b
         mov     eax,dword[xx1]
         fld1
         fld1
         faddp
         fmulp
-        fimul   [correct_tex]
+        fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd    dword[correct_texf]
         fistp   word[edi]
         mov     word[edi+2],0
 ;        fistp   word[edi+2]
 ; # last change
 ;        ; texture x=(rotated point normal -> x * 255)+255
 ;        fld     dword[eax]
       @@:
         mov     eax,dword[esi]
         lea     eax,[eax*3]
         shl     eax,2
-        add     eax,[points_normals_rot_ptr]  ;point_normals_rotated
+    ;    imul    eax,[i12]
+        add     eax,[points_normals_rot_ptr]  ;point_normals_rotated
         ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]
-        fimul   [correct_tex]
-        fiadd   [correct_tex]
-        fistp   word[edi]
-        ; texture y=(rotated point normal -> y * 255)+255
-        fld     dword[eax+4]
-        fimul   [correct_tex]
-        fiadd   [correct_tex]
-        fistp   word[edi+2]
+        movlps      xmm0,[eax]
+        mulps       xmm0,[correct_texf]
+        addps       xmm0,[correct_texf]
+        cvtps2dq    xmm0,xmm0
+        packssdw    xmm0,xmm0
+        movd        [edi],xmm0
-        add     edi,4
+        add         edi,4
-        add     esi,4
+        add         esi,4
-        loop    @b
+        loop        @b
         push   dword[esi]
         mov    esi,[point_index2]
         shl    esi,2
         add    esi,tex_points
-;       lea    esi,[esi*3]
+        push   dword[esi]
-;       lea    esi,[points+2+esi*2]
-        push   dword[esi]
-  ;     push   dword[xx2]
+        mov    esi,[point_index1]
-        mov    esi,[point_index1]
         shl    esi,2
         add    esi,tex_points
-;       lea     esi,[esi*3]
+        push   dword[esi]
-;       lea     esi,[points+2+esi*2]
-        push   dword[esi]
    ;    push     dword[xx1]
         mov     eax,dword[xx1]
         ror     eax,16
         mov     ebx,dword[xx2]
         ror     ebx,16
       .aagain_grd_draw:
         lea      edx,[ecx*3]
         push     word[edx*2+xx1-2]    ; zz1 ,2 ,3
-        fninit
+    ;    fninit
         mov     eax,dword[esi]
         shl     eax,2
         lea     eax,[eax*3] ;+point_normals_rotated]
+        add     eax,[points_normals_rot_ptr]
-        add     eax,[points_normals_rot_ptr]
+     if Ext < SSE
         ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]       ; x cooficient of normal vector
-        fimul   [correct_tex]
+        fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd    dword[correct_texf]
         fistp   [temp1]  ;word[ebp-2]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]      ; y cooficient
-        fimul   [correct_tex]
+        fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd    dword[correct_texf]
-        fistp   [temp2]  ;word[ebp-4]
+        fistp   [temp2]  ;word[ebp-4]
-        mov      eax,[temp2]   ;word[ebp-4]
+        mov      eax,[temp2]
+        mov      ebx,[temp1]
+       else
+        movlps   xmm0,[eax]
+        mulps    xmm0,[correct_texf]
+        addps    xmm0,[correct_texf]
+        cvtps2dq xmm0,xmm0
+        movd     eax,xmm0
+        psrldq   xmm0,4
+        movd     ebx,xmm0
-        mov      ebx,[temp1]   ;word[ebp-2]
+      end if
         and      ebx,0xfffffff ; some onjects need thid 'and'
         shl      eax,TEX_SHIFT
         add      eax,ebx
         lea      eax,[eax*3]
         lea     eax,[eax*3]
         shl     eax,2
         add     eax,[points_normals_rot_ptr]
         ; texture x=(rotated point normal -> x * 255)+255
-        fld     dword[eax]
+        movlps   xmm0,[eax]
+        mulps    xmm0,[correct_texf]
+        addps    xmm0,[correct_texf]
+        cvtps2dq xmm0,xmm0
+        packssdw xmm0,xmm0
+        movd     [edi],xmm0
+     ;   fld     dword[eax]
-        fimul   [correct_tex]
+     ;   fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+     ;   fadd    dword[correct_texf]
-        fistp   word[edi]
+     ;   fistp   word[edi]
         ; texture y=(rotated point normal -> y * 255)+255
-        fld     dword[eax+4]
+      ;  fld     dword[eax+4]
-        fimul   [correct_tex]
+      ;  fmul    dword[correct_texf]
-        fiadd   [correct_tex]
+      ;  fadd    dword[correct_texf]
-        fistp   word[edi+2]
+      ;  fistp   word[edi+2]
         and     word[edi+2],0x7fff  ; some objects need it
         add     edi,4
         add     esi,4
         loop    @b
         mov     eax,dword[esi]
         lea     eax,[eax*3]
         shl     eax,2
         add     eax,[points_normals_rot_ptr]
-        ; texture x=(rotated point normal -> x * 255)+255
+      if Ext >= SSE
+        ; texture x=(rotated point normal -> x * 255)+255
-        fld     dword[eax]
+        movlps   xmm0,[eax]
+        mulps    xmm0,[correct_texf]
+        addps    xmm0,[correct_texf]
+        cvtps2dq xmm0,xmm0
+        packssdw xmm0,xmm0
+        movd     [edi],xmm0
+      else
+        fld     dword[eax]
         fimul   [correct_tex]
         fiadd   [correct_tex]
         fistp   word[edi]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]
         fimul   [correct_tex]
         fiadd   [correct_tex]
         fistp   word[edi+2]
      end if
         add     edi,4
         add     esi,4
         loop    @b
 ;        push  dword 1 shl 16 + 1  ; emap coords
         mov     eax,dword[esi]
         shl     eax,2
         lea     eax,[eax*3]
         add     eax,[points_normals_rot_ptr]
-        ; texture ;x=(rotated point normal -> x * 255)+255
+      if Ext>=SSE2
+        movlps  xmm0,[eax]
+        mulps   xmm0,[correct_texf]
+        addps   xmm0,[correct_texf]
+        cvtps2dq xmm0,xmm0
+        movd    eax,xmm0
+        psrldq  xmm0,4
+        movd    ebx,xmm0
+       else if
+         ; texture ;x=(rotated point normal -> x * 255)+255
         fld     dword[eax]       ; x cooficient of normal vector
-        fimul   [correct_tex]
+        fmul   dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd   dword[correct_texf]
         fistp   [temp1]  ;word[esp-2]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]      ; y cooficient
-        fimul   [correct_tex]
+        fmul   dword[correct_texf]
-        fiadd   [correct_tex]
+        fadd   dword[correct_texf]
         fistp   [temp2]  ;word[esp-4]
         mov      eax,[temp2]  ;word[esp-4]
-        mov      eax,[temp2]  ;word[esp-4]
         mov      ebx,[temp1]  ;word[esp-2]
-        and      ebx,0xfffffff
+      end if
+        and      ebx,0xfffffff
         shl      eax,TEX_SHIFT
         add      eax,ebx
         lea      eax,[eax*3+color_map]
         mov      eax,dword[eax]
         lea      ebx,[ecx-1]
         ror     ebx,16
         mov     ecx,dword[xx3]
         ror     ecx,16
         mov     edi,[screen_ptr]
-        mov     esi,[Zbuffer_ptr]
+        mov     edx,[Zbuffer_ptr]
+        mov     esi,[Zbuffer_ptr]
         call    glass_tri
+        jmp     .end_draw
+   .glass_tex:
+        movd      xmm5,[size_y_var]
+        punpcklwd xmm5,[the_zero]
+        pshufd    xmm5,xmm5,01110011b
+        mov     eax,[point_index1]
+        mov     ebx,[point_index2]
+        mov     ecx,[point_index3]
+        imul    eax,[i12]
+        imul    ebx,[i12]
+        imul    ecx,[i12]
+        add     eax,[points_normals_rot_ptr]
+        add     ebx,[points_normals_rot_ptr]
+        add     ecx,[points_normals_rot_ptr]
+        movups  xmm0,[eax]
+        movups  xmm1,[ebx]
+        movups  xmm2,[ecx]
+        andps   xmm0,[zero_hgst_dd]
+        andps   xmm1,[zero_hgst_dd]
+        andps   xmm2,[zero_hgst_dd]
+        xorps   xmm3,xmm3
+        mov     eax,[point_index1]
+        mov     ebx,[point_index2]
+        mov     ecx,[point_index3]
+        imul    eax,[i12]
+        imul    ebx,[i12]
+        imul    ecx,[i12]
+        add     eax,[points_rotated_ptr]
+        add     ebx,[points_rotated_ptr]
+        add     ecx,[points_rotated_ptr]
+        push    dword[ecx+8]
+        push    dword[ebx+8]
+        push    dword[eax+8]
+        movups  xmm4,[esp]
+        add     esp,12
+        andps   xmm4,[zero_hgst_dd]
+        mov    esi,[point_index3]      ; tex map coords
+        shl    esi,2
+        add    esi,tex_points
+        push   dword[esi]
+        mov    esi,[point_index2]
+        shl    esi,2
+        add    esi,tex_points
+        push   dword[esi]
+        mov    esi,[point_index1]
+        shl    esi,2
+        add    esi,tex_points
+        push   dword[esi]
+        movups xmm6,[esp]
+        add    esp,12
+     ;   pshuflw xmm6,xmm6,10110001b
+     ;   pshufhw xmm6,xmm6,10110001b
+        movzx  eax,word[size_x_var]
+        andps  xmm6,[zero_hgst_dd]
+        movd   xmm7,eax
+        pslldq xmm7,12
+        por    xmm6,xmm7
+        mov     eax,dword[xx1]
+        ror     eax,16
+        mov     ebx,dword[xx2]
+        ror     ebx,16
+        mov     ecx,dword[xx3]
+        ror     ecx,16
+        mov     edx,texmap
+        mov     edi,[screen_ptr]
+        mov     esi,[Zbuffer_ptr]
+        call    glass_tex_tri
         jmp     .end_draw
         add     esi,8
         ;mov     edi,triangles
       @@:
         movzx   eax,word[esi]
-        stosd
+        add     eax,ebp
+        stosd
         movzx   eax,word[esi+2]
-        stosd
+        add     eax,ebp
+        stosd
         movzx   eax,word[esi+4]
-        stosd
+        add     eax,ebp
+        stosd
-        add     dword[edi-12],ebp
+ ;       add     dword[edi-12],ebp
-        add     dword[edi-8],ebp
+ ;       add     dword[edi-8],ebp
-        add     dword[edi-4],ebp
+ ;       add     dword[edi-4],ebp
         add     esi,8
         dec     ecx
         jnz     @b
         add     ebp,edx
         jmp     .find4k
         mov     eax,-1 ;<---mark if OK
-read_from_disk:
 if USE_LFN
-;-
+read_from_disk:
     mov     eax, 68
-    mov     ebx, 11
-    int     0x40                   ;  -> create heap
- ;    mov     eax, 70
- ;    mov     ebx, file_info
- ;    mov     dword[ebx], 5          ;  -> subfunction number
- ;    int     0x40                   ;  -> read file size
- ;    mov     ebx, [fptr]
- ;    mov     ebx, dword[ebx+32]
- ;    inc     ebx
- ;    mov     [fsize], ebx
-    ;   mov     eax, 68
-    ;   mov     ebx, 12
-    ;   mov     ecx, [fsize]
-    ;   int     0x40                   ;  -> allocate memory for file
-    ;   mov     [fptr], eax            ;  -> eax = pointer to allocated mem
- ;    mov     eax, 70
- ;    mov     ebx, file_info
+    mov     ebx, 11
- ;    mov     dword[ebx],0
+    int     0x40                   ;  -> create heap
  ;    int     0x40                   ; -> read file
    ;load kpacked files by Leency
        mov     eax,68
        jmp     @f
        .open_opened_well:
        xor     eax,eax
     @@:
-else
+  ;  eax = 0   -> ok file loaded
-    mov      eax,58
-    mov      ebx,file_info
-    int      0x40
-    mov      eax,ebx
-    shr      eax,9
-    inc      eax
-    mov      [fsize],eax
-;    mov      ecx,ebx
-;    add      ecx,MEM_END
-;    mov      ebx,1
-;    mov      eax,64     ; allocate mem  - resize app mem
-                        ; for points and  triangles
-    int      0x40
-    mov      eax,58
-    mov      ebx,file_info
-    int      0x40
-end if
-  ;  eax = 0   -> ok file loaded
-ret
-  ;  eax = 0   -> ok file loaded
 ret
 read_param:
+read_param:
     mov        esi,I_Param
     cmp        dword[esi],0
     je         .end
     cmp        byte[esi],'/'
     je         .copy
    ; DATA AREA  ************************************
-   include 'DATA.INC'
+   include 'data.inc'

Subversion Repositories Kolibri OS

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