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

-; application : View3ds ver. 0.075 - tiny .3ds and .asc files viewer
+; application : View3ds ver. 0.076 - 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.co.pl, http://macgub.j.pl
+; web         : 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.
 ; can be:
 ; 1) Read from a file (*.3DS standard)
 ; 2) Written in manually (at the end of the code) ; now not exist
-format binary as ""
 SIZE_X equ 512
 SIZE_Y equ 512                               ;      /////     I want definitely
 TIMEOUT equ 10                               ;     ------     say:
 SSE   =   2
 SSE2  =   3
 SSE3  =   4
-Ext   =   SSE3           ;Ext={ NON | MMX | SSE | SSE2 | SSE3 }
+Ext   =   SSE3          ;Ext={ NON | MMX | SSE | SSE2 | SSE3 }
 ; For now correct only SSE2 and SSE3 versions. if you have older CPU
+; For now correct only SSE2 and SSE3 versions. if you have older CPU
 ; use older versions of app. Probably ver 005 will be OK but it need
 ; re-edit to support new Kolibri features.
-; 0 for short names (Menuet-compatible), 1 for long names (Kolibri features)
-USE_LFN = 1  ; App is Kolibri only now.
 use32
         org    0x0
         db     'MENUET01'       ; 8 byte id
         dd     0x01             ; header version
         dd     START            ; start of code
                                     ;  to be in <-1.0,1.0>
         call   normalize_all_light_vectors
         call   copy_lights ; to aligned float
         call   init_triangles_normals2
         call   init_point_normals
+     if Ext >= SSE2
+        call   detect_chunks
+        mov    [chunks_number],ecx
+        mov    [chunks_ptr],ebx
+     ;   esi -   tri_ch
+     ;   edi -   t_ptr - every vertice index  - pointer to to all triangles
+     ;           that have this index
+     end if
+        call   init_point_normals
         call   init_envmap2
+        call   init_envmap2
         call   init_envmap_cub
         call   generate_texture2
         call   init_sincos_tab
         call   do_color_buffer   ; intit color_map
      if Ext >= SSE3
         mov     eax,1
         cpuid
         bt      ecx,0  ; is sse3 on board?
         jc      @f
-        mov     [max_dr_flg],12
+        mov     byte[max_dr_flg],12
         mov     [isSSE3],0
        @@:
      end if
-still:
+ still:
         cmp    [edit_flag],1
         jne    @f
         mov    eax,40         ; set events mask
         mov    ebx,1100000000000000000000000100111b
    jmp     still
    jmp     still
 ;--------------------------------------------------------------------------------
 ;-------------------------PROCEDURES---------------------------------------------
 ;--------------------------------------------------------------------------------
 include "flat_cat.inc"
 include "tex_cat.inc"
 include "bump_cat.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 "chunks.inc"
 include "grd_cat.inc"
 include "bump_tex.inc"
         movzx  edx,word[size_x_var]
         imul   edx,ecx
         add    ebx,edx
         push   ebx
-        lea    ecx,[ebx*2]
+        mov    ecx,ebx
+        shl     ecx,2
+       ; lea    ecx,[ebx*2]
         lea    ebx,[ebx*3]
         cmp    [dr_flag],12
         jl    @f
         add    ebx,[esp]
         check_bar
         jne    .no_edit
         add    ecx,[vertices_index_ptr]
-        mov    cx,word[ecx]
+        mov    ecx,[ecx]
+      ;  cmp    ecx,-1
-        inc    cx
+      ;  je     .no_edit
-        mov    [vertex_edit_no],cx ;if vert_edit_no = 0, no vertex selected
+        mov    [vertex_edit_no],ecx ;if vert_edit_no = -1, no vertex selected
        ; jne    .no_edit
        ; add    ecx,[vertices_index_ptr]
        ; mov    cx,[ecx]
        ; inc    cx
-        cmp    [vertex_edit_no],0 ; cx  ; vertex number
+        cmp    [vertex_edit_no],-1 ; cx  ; vertex number
         je     .end
         push   dword[.x_coord]
         pop    dword[edit_end_x]
         jmp    .end
       .not_held:
         shr    [mouse_state],16
         jz     .end
         check_bar
         jne    .end
-        movzx  esi,[vertex_edit_no]
+        mov    esi,[vertex_edit_no]
-        dec    esi
+    ;    dec    esi
         lea    esi,[esi*3]
         add    esi,esi
         add    esi,[points_translated_ptr]
         emms
         mov     ecx,1
         call    rotary
    ;    inject into vertex list
-        movzx   edi,[vertex_edit_no]
+        mov     edi,[vertex_edit_no]
-        dec     edi
+    ;    dec     edi
         lea     edi,[edi*3]
         shl     edi,2
         add     edi,[points_ptr]
         lea     esi,[.points_rotated]
         cld
      ;   rep     movsd
         mov    dword[edit_end_x],0
-        mov    [vertex_edit_no],0
+        mov    [vertex_edit_no],-1
       .no_edit:
       .end:
     mov      [Zbuffer_ptr],eax
     mov      ecx,[.temp]
-    add      ecx,ecx
+    shl      ecx,2
     add      ecx,256
     mov      eax,68
     mov      ebx,20
     mov      edx,[vertices_index_ptr]
 ret
 if   Ext >= SSE2
 init_point_normals:
+;in:
+;    esi - tri_ch
+;    edi - t_ptr
 .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]
+.t_ptr        equ dword [ebp-36]
+.tri_ch       equ dword [ebp-40]
+.max_val      equ dword [ebp-44]
         push      ebp
         mov       ebp,esp
         sub       esp,64
+        and       ebp,-16
+        mov       .t_ptr,edi
+        mov       .tri_ch,esi
+        mov       ecx,[triangles_count_var]
+        shl       ecx,3
+        lea       ecx,[ecx*3]
+        add       ecx,.tri_ch
+        mov       .max_val,ecx
+        xor       edx,edx
+     .lp1:
+        mov       ebx,edx
+        shl       ebx,2
+        add       ebx,.t_ptr
+        mov       esi,[ebx]
+        or        esi,esi
+        jz        .old
+        xorps     xmm1,xmm1
+        xor       ecx,ecx
+     @@:
+        mov       eax,[esi+4] ; eax - tri index
+        mov       ebx,[esi]
+        imul      eax,[i12]
+        add       eax,[triangles_normals_ptr]
+        movups    xmm0,[eax]
+        inc       ecx
+        addps     xmm1,xmm0
+        add       esi,8
+        cmp       esi,.max_val   ; some objects need this check
+        ja        .old           ;old method
+        cmp       ebx,[esi]
+        je        @b
+        cvtsi2ss xmm2,ecx
+        rcpss    xmm2,xmm2
+        shufps   xmm2,xmm2,0
+        mulps    xmm1,xmm2
+        mov      edi,edx
+        imul     edi,[i12]
+        add      edi,[points_normals_ptr]
+        movlps   [edi],xmm1
+        movhlps  xmm1,xmm1
+        movss    [edi+8],xmm1
+        call      normalize_vector
+        inc      edx
+        cmp      edx,[points_count_var]
+        jnz      .lp1
+        jmp      .end
+      .old:
         and       ebp,-16
         mov       edi,[points_normals_ptr]
-        mov       .point_number,0
+        mov       .point_number,edx
     .ipn_loop:
         movd      xmm0,.point_number
         pshufd    xmm0,xmm0,0
         mov       .hit_faces,0
         inc       .point_number
         mov       edx,.point_number
         cmp       edx,[points_count_var]
         jne       .ipn_loop
      .end:
+        mov     eax,68
+        mov     ebx,13
+        mov     ecx,.t_ptr
+        int     0x40
+        mov     eax,68
+        mov     ebx,13
+        mov     ecx,.tri_ch
+        int     0x40
         add       esp,64
         pop       ebp
 ret
 else
         emms
       ;  update translated list  MMX required
-        cmp     [vertex_edit_no],0
+        cmp     [vertex_edit_no],-1
         je      @f
-        movzx   eax,[vertex_edit_no]
+        mov     eax,[vertex_edit_no]
-        dec     eax
+      ;  dec     eax
         movd    mm0,[edit_end_x]
         psubw   mm0,[edit_start_x]
         lea     eax,[eax*3]
         add     eax,eax
         push    word .zz3
         push    word .zz2
         push    word .zz1
-        mov    esi, .point_index3      ; tex map coords
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index2
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index1
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
+        fninit
-        lea     esi, .point_index1     ; env coords
-        sub     esp,12
+        lea     esi, .point_index3     ; env coords
+        mov     edi,esp
-        mov     edi,esp
+        sub     esp,24
         mov     ecx,3
       @@:
-        mov     eax,dword[esi]
-        lea     eax,[eax*3]
+        mov     eax,dword[esi]
+        shl     eax,2
+        mov     ebx,eax
+  ;      mov     ebx,eax
+        add     ebx,[tex_points_ptr]
+        mov     ebx,[ebx]
+        mov     [edi-8],ebx
-        shl     eax,2
+        lea     eax,[eax*3]
         add     eax,[points_normals_rot_ptr]
         ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]
         fimul   [correct_tex]
         fiadd   [correct_tex]
-        fistp   word[edi]
+        fistp   word[edi-4]
         and     word[edi-4],0x7fff   ; some objects need it
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]
         fimul   [correct_tex]
         fiadd   [correct_tex]
-        fistp   word[edi+2]
+        fistp   word[edi-2]
+        and     word[edi-2],0x7fff  ; some objects need it
-        and     word[edi+2],0x7fff  ; some objects need it
-        add     edi,4
+        sub     edi,8
-        add     esi,4
+        sub     esi,4
         loop    @b
         mov     eax, .xx1
         jmp     .end_draw
    .bump_tex:
         push   ebp
-        mov    esi, .point_index3      ; tex map coords
-        shl    esi,2
+        fninit
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index2
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index1
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
         push  dword texmap
         push  [Zbuffer_ptr]
+        push    word .zz3
-        push    word .zz3
+        push    word .zz2
-        push    word .zz2
+        push    word .zz1
         push    word .zz1
-        lea     esi, .index1x12     ; env coords
+        lea     ebx, .point_index1
-        sub     esp,12
+        sub     esp,36
+        mov     edi,esp
+        mov     ecx,3
+      @@:
+        mov     eax,[ebx]
+        shl     eax,2
+        mov     esi,eax
+        lea     esi,[esi*3]
+        add     eax,[tex_points_ptr]
+        mov     eax,[eax]
-        mov     edi,esp
+        ror     eax,16
-        mov     ecx,3
+        mov     [edi],eax
-      @@:
+        mov     [edi+8],eax
         mov     eax,dword[esi]
-        add     eax,[points_normals_rot_ptr]
+        add     esi,[points_normals_rot_ptr]
         ; texture x=(rotated point normal -> x * 255)+255
-        fld     dword[eax]
+        fld     dword[esi]
         fimul   [correct_tex]
         fiadd   [correct_tex]
-        fistp   word[edi]
+        fistp   word[edi+6]             ; env coords
         ; texture y=(rotated point normal -> y * 255)+255
-        fld     dword[eax+4]
-        fimul   [correct_tex]
+        fld     dword[esi+4]
-        fiadd   [correct_tex]
+        fimul   [correct_tex]
-        fistp   word[edi+2]
+        fiadd   [correct_tex]
-        add     edi,4
-        add     esi,4
-        loop    @b
-        mov    esi, .point_index3      ; bump map coords
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index2
-        shl    esi,2
-        add    esi,[tex_points_ptr]
-        push   dword[esi]
-        mov    esi, .point_index1
+        fistp   word[edi+4]
-        shl    esi,2
+        add     ebx,4
-        add    esi,[tex_points_ptr]
+        add     edi,12
-        push   dword[esi]
+        loop    @b
 ret
 draw_handlers:
 draw_handlers:
        ;  in eax - render model
-       push  ebp
+        push  ebp
-       mov   ebp,esp
+        mov   ebp,esp
+;        emms
-       .counter  equ ebp-16
+       .fac         equ  dword[ebp-16]
-       .xres3m18 equ ebp-8
+       .xplus_scr    equ ebp-8
-       .xres2m12 equ ebp-12
-       .dr_model equ dword[ebp-4]
+       .xplus_index  equ ebp-12
-     ; init counter
+       .dr_model equ dword[ebp-4]
-       sub   esp,12
+       sub     esp,16
-       push  dword 0
+       mov     .dr_model,eax
        mov   .dr_model,eax
-       movzx eax,word[size_x_var]
+       movzx   eax,word[size_x_var]
        cmp    .dr_model,12
-       jge    @f
-       lea   ebx,[eax*3]
-       sub   ebx,18
+       jge     @f
-       add   eax,eax
+       lea    ebx,[eax*3]
-       sub   eax,12
+       sub    ebx,3*6
-       mov   [.xres3m18],ebx
+       mov    [.xplus_scr],ebx   ; for scr 1st cause
-       mov   [.xres2m12],eax
+       mov    .fac,3
-       jmp   .f
+       jmp    .in_r
-     @@:
-       lea   ebx,[eax*4]
-       sub   ebx,4*6
+    @@:
-       add   eax,eax
+       lea    ebx,[eax*4]       ; for scr 2cond cause
-       sub   eax,3*4
+       sub    ebx,4*6
+       mov    [.xplus_scr],ebx
+       mov    .fac,4
+     .in_r:
+       lea    ebx,[eax*4]
+       sub    ebx,4*6
+       mov    [.xplus_index],ebx  ; index
+       xor    ecx,ecx
-       mov   [.xres3m18],ebx
-       mov   [.xres2m12],eax
+       mov    eax,4 shl 16 + 4
-     .f:
+       movd   xmm0,[size_y_var]
        movd   xmm1,eax
        psubw  xmm0,xmm1
-       mov   esi,[points_translated_ptr]
+       pshuflw xmm0,xmm0,00000001b
      .loop:
-       push  esi
+     .l:
-                                         ; DO culling AT FIRST
+       push    ecx
-        cmp     [culling_flag],1         ; (if culling_flag = 1)
-        jne     .no_culling
+       cmp     [culling_flag],1         ; (if culling_flag = 1)
-        mov     edi,[.counter]           ; *********************************
-        lea     edi,[edi*3]
+       jne     .no_culling
-        shl     edi,2
+       mov     edi,ecx           ; *********************************
-        add     edi,[points_normals_rot_ptr]
+       lea     edi,[edi*3]
-        mov     eax,[edi+8]              ; check sign of z coof
-        shr     eax,31
-        cmp     eax,1
-        jnz     .skip
+       shl     edi,2
-    .no_culling:
+       add     edi,[points_normals_rot_ptr]
-       mov   eax,[esi]
+       bt      dword[edi+8],31
-       movzx ebx,ax         ; ebx - x
+       jnc     .skip
-       shr   eax,16         ; eax - y
+     .no_culling:
-       cmp   eax,4          ; check if markers not exceedes screen
+       mov     esi,ecx
-       jle   .skip
+       lea     esi,[esi*3]
-       cmp   ebx,4
+       add     esi,esi
-       jle   .skip
+       add     esi,[points_translated_ptr]
-       movzx edx,word[size_x_var]
+       movd    xmm2,[esi]
-       sub   edx,4
+       movd    xmm3,[esi]
+       pcmpgtw xmm2,xmm0
+       pcmpgtw xmm3,xmm1
+       pxor    xmm3,xmm2
+       movd     eax,xmm3
-       movzx ecx,word[size_y_var]
+       cmp      eax,-1
-       sub   ecx,4
-       cmp   ebx,edx
-       jge   .skip
+       jne      .skip
-       cmp   eax,ecx
-       jge   .skip
+       movzx   eax,word[esi]
-       movzx edx,word[size_x_var]
-    ;   sub   ebx,3
-    ;   sub   eax,3
+       movzx   ebx,word[esi+2]
-       imul  eax,edx
-       add   eax,ebx
+       sub     eax,2
-       push   eax
-       lea   edi,[eax*3]
-       cmp    .dr_model,12
+       sub     ebx,2
-       jl    @f
+       movzx   edx, word[size_x_var]
-       add    edi,[esp]
-      @@:
-       add    esp,4
-       lea   eax,[eax*2]
-       ; draw bar 6x6
+       imul    ebx,edx
+       add     ebx,eax
-       add   edi,[screen_ptr]
+       mov     edi,ebx
-       add   eax,dword[vertices_index_ptr]
+       imul    ebx,.fac
        shl     edi,2
+       add     ebx,[screen_ptr]
-       mov   edx,[.counter]
+       add     edi,[vertices_index_ptr]
-       mov   ecx,6
+       mov     eax,ecx
+       cld
-     .oop:
-       push  ecx
-       mov   ecx,6
-     .do:
-       mov   word[edi],0x0000 ;ax
+       mov     ecx,6
-       mov   byte[edi+2],0xff   ;al
-       mov   word[eax],dx
-       add   eax,2
+    .l2:
-       cmp   .dr_model,12
+       push    ecx
-       jl    @f
-       add   edi,4
+       mov     ecx,6       ; draw bar
-       loop  .do
+    .l1:
-       jmp   .ad
+       mov     word[ebx],0
-      @@:
+       mov     byte[ebx+2],0xff
-       add   edi,3
-       loop  .do
+       stosd
-      .ad:
+       add     ebx,.fac
-       add   edi,[.xres3m18]
+       loop    .l1
-       add   eax,[.xres2m12]
-       pop   ecx
-       loop  .oop
+       add     ebx,[.xplus_scr]
+       add     edi,[.xplus_index]
-    .skip:
+       pop     ecx
-       pop   esi
+       loop    .l2
-       add   esi,6
-       inc   dword[.counter]
+     .skip:
+       pop      ecx
-       mov   ecx,[.counter]
+       inc      ecx
-       cmp   ecx,[points_count_var]
+       cmp      ecx,[points_count_var]
-       jng   .loop
+       jna      .l
-       mov   esp,ebp
+       mov      esp,ebp
         xor     ebx,ebx
         xor     ebp,ebp
         mov     [points_count_var],ebx
         mov     [triangles_count_var],ebx
-   if USE_LFN = 0
+        mov     esi,[fptr]
-        mov     esi,SourceFile
-   else
-        mov     esi,[fptr]
    end if
         cmp     [esi],word 4D4Dh
         je      @f ;Must be legal .3DS file
         xor     eax,eax
         ret
         mov     edx,ecx
         add     esi,8
      @@:
+        lea     ecx,[ecx*3]
+        add     ecx,ecx
-        add     ebx,6
+        add     ebx,ecx
+        add     ecx,ecx
-        add     esi,12
+        add     esi,ecx
      ;   dec     ecx
-        loop     @b
+      ;  loop     @b
       @@:
       @@:
         cmp     [esi],word 4120h
         add     [triangles_count_var],ecx
         add     esi,8
       @@:
+        shl     ecx,3
-        add     esi,8
+        add     esi,ecx
-        dec     ecx
+       ; dec     ecx
-        jnz     @b
+       ; jnz     @b
+       ; loop    @b
 ;        xor     ecx,ecx
         add     ebp,edx
         jmp     .find4k
         mov     eax,-1 ;<---mark if OK
       .exit:
         pop     edi
         add     ebx,6
         add     esi,12
-        dec     ecx
+       ; dec     ecx
-        jnz     @b
+       ; jnz     @b
+        loop    @b
       @@:
   ;      mov     dword[points+ebx],-1
         push    edi
         mov     edi,[points_ptr]
         mov     dword[edi+ebx*2],-1        ; end mark (not always in use)
         add     dword[edi-12],ebp
         add     dword[edi-8],ebp
         add     dword[edi-4],ebp
         add     esi,8
-        dec     ecx
+    ;    dec     ecx
-        jnz     @b
+    ;    jnz     @b
-        add     ebp,edx
+        loop    @b
+        add     ebp,edx
         jmp     .find4k
         mov     eax,-1 ;<---mark if OK
       .exit:
         mov     dword[edi],-1
 ret
 alloc_mem_for_tp:
+alloc_mem_for_tp:
         mov     eax, 68
         cmp     [re_alloc_flag],1
         jz      @f
         mov     ebx, 12
         jmp     .alloc
                                             ; ststic  memory
         mov     eax, 68
         mov     ecx, [triangles_count_var]
-        lea     ecx, [3+ecx*3]
+        lea     ecx, [6+ecx*3]
         shl     ecx, 2
         mov     edx,[triangles_normals_ptr]
         int     0x40                           ;  -> allocate memory for triangles normals
         mov     [triangles_normals_ptr], eax   ;  -> eax = pointer to allocated mem
         mov     eax, 68
         mov     ecx, [points_count_var]
-        lea     ecx,[3+ecx*3]
+        lea     ecx,[6+ecx*3]
         shl     ecx, 2
         mov     edx,[points_normals_ptr]
         int     0x40
         mov     [points_normals_ptr], eax
         mov     eax, 68
     ;    mov     ebx, 12
         mov     ecx, [points_count_var]
-        lea     ecx,[3+ecx*3]
+        lea     ecx,[10+ecx*3]
+        shl     ecx, 2
-        shl     ecx, 2
+        mov     edx,[points_normals_rot_ptr]
-        mov     edx,[points_normals_rot_ptr]
+        int     0x40
-        int     0x40
+        mov     [points_normals_rot_ptr], eax
         mov     [points_normals_rot_ptr], eax
         mov     eax, 68
         mov     ebx, 12
         mov     ecx, [points_count_var]
         shl     ecx,2
+        add     ecx,32
         mov     edx,[tex_points_ptr]
         int     0x40
         mov     [tex_points_ptr], eax
         mov     eax, 68
         mov     ecx, [points_count_var]
-        inc     ecx
+        add     ecx,10
         shl     ecx, 3
         mov     edx,[points_translated_ptr]
         int     0x40
         mov     [points_translated_ptr], eax
         mov     eax,13
         mov     bx,[size_x_var]
         shl     ebx,16
         add     ebx,120*65536+70   ; [x start] *65536 + [y start]
-        mov     ecx,30 shl 16 + 100
+        mov     ecx,30 shl 16 + 150
         xor     edx,edx
         int     0x40
         mov  esi,10                    ; text length
         int  40h
         pop  esi
         add  esi,4
-        cmp  esi,12
+        cmp  esi,16
         jnz  .nxxx
 ret
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
     draw_window:

Subversion Repositories Kolibri OS

(root)/programs/demos/view3ds/view3ds.asm – Rev 9454 → 9512