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

-; application : View3ds ver. 0.076 - tiny .3ds and .asc files viewer
+; application : View3ds ver. 0.077 - 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
-        call   alloc_buffer_mem
+        call    alloc_buffer_mem
-        call   read_param
+        call    read_param
-        call   read_from_disk    ; read, if all is ok eax = 0
+        call    read_from_disk    ; read, if all is ok eax = 0
+        btr     eax,31            ; mark 1
-        cmp    eax,0
+        cmp     eax,0
-        jne    .gen
+        jne     .gen
+        bts     eax,31            ; mark 2
-        mov    esi,[fptr]
+        mov     esi,[fptr]
-        cmp    [esi],word 4D4Dh
+        cmp     [esi],word 4D4Dh
-        jne    .asc
+        jne     .asc_gen
-        call   read_tp_variables ; init points and triangles count variables
+        call    read_tp_variables ; init points and triangles count variables
-        cmp    eax,0
+        cmp     eax,0
         jne    .malloc
+        xor    eax,eax            ; if failed read -> generate
     .gen:
+    .asc_gen:   ; read asc file or generate
+        push    eax
-     ; if no house.3ds on board - generate
+     ; if no house.3ds on rd - generate
-        xor      bl,bl ; reallocate memory
+        xor      bl,bl ; allocate memory
         mov      [triangles_count_var],20000
         mov      [points_count_var],20000
         call     alloc_mem_for_tp
+        pop      eax
+        bt       eax,31
+        jc       .asc
-        mov    bl,[generator_flag]
+        mov      bl,[generator_flag]
-        call   generate_object
+        call     generate_object
+        mov      ax,1  ;mark
-        jmp    .opt
+        jmp      .opt
     .asc:
+   ;     xor    bl,bl
-        mov    [triangles_count_var],10000  ; to do: read asc header
+   ;     mov    [triangles_count_var],20000  ; to do: read asc header
-        mov    [points_count_var],10000
+   ;     mov    [points_count_var],20000
-        call   alloc_mem_for_tp
+   ;     call   alloc_mem_for_tp
         call   read_asc
+        xor    ax,ax
         jmp    .opt
     .malloc:
         call   alloc_mem_for_tp
         call   read_from_file
     .opt:
+      if     Ext >= SSE2
+        push   ax
+      end if
         call   optimize_object1     ;  proc in file b_procs.asm
                                     ;  set point(0,0,0) in center and  calc all coords
                                     ;  to be in <-1.0,1.0>
         call   normalize_all_light_vectors
         call   copy_lights ; to aligned float
-        call   init_triangles_normals2
+ ;       call   init_triangles_normals2
+     if Ext >= SSE2
-     if Ext >= SSE2
+              ; if first byte of ax set -> old style normal vectors finding
         call   detect_chunks
         mov    [chunks_number],ecx
-        mov    [chunks_ptr],ebx
+        mov    [chunks_ptr],ebx
+        push   esi
+        push   edi
         call   init_triangles_normals2
-     ;   esi -   tri_ch
+     ;  esi -   tri_ch
-     ;   edi -   t_ptr - every vertice index  - pointer to to all triangles
+     ;  edi -   t_ptr - every vertice index  - pointer to to all triangles
+     ;          that have this index
+        pop    edi
+        pop    esi
+        pop    ax
      ;           that have this index
      end if
         call   init_sincos_tab
         call   do_color_buffer   ; intit color_map
      if Ext >= SSE3
         call   init_point_lights
-        mov    [fire_flag],0     ; proteza
+     end if
-     end if
         mov    edi,bumpmap
         call   calc_bumpmap
         call   calc_bumpmap_coords   ; bump and texture mapping
         call   do_edges_list
         call   draw_window
        @@:
         jmp     noclose
     red:   ; redraw
+     ;   xor     edx,edx
+     ; @@:
+     ;   push    edx
         mov     eax,9  ; get process info
         mov     ebx,procinfo
-        mov     ecx,-1
+        or      ecx,-1
         int     0x40
+     ;   pop     edx
+     ;   inc     edx
+     ;   cmp     dword[procinfo+26],50000000  ; ~ 10 Mbytes
+     ;   jb      @f
+     ;   cmp     edx,1
+     ;   je      @b
+    ; @@:
         mov     eax,[procinfo+42]    ; read params of window
         sub     eax,225
         mov     [size_x_var],ax
         shr     ax,1
         mov     [vect_x],ax
         jge     add_vec_buttons
         call    update_flags          ; update flags and write labels of flags
                                       ; do other operations according to flag
-        cmp     ah,3                  ; ah = 3 -> shading model
+;        cmp     ah,3                 ; ah = 3 -> shading model
-        jne     .next_m6
+;        jne     .next_m6
-        cmp     [dr_flag],2
+;        cmp     [dr_flag],2
-        jne     @f
+;        jne     @f
    ;     call    init_envmap2    ;   <----! this don't works in env mode
                                  ;          and more than ~18 kb objects
  ;       call    init_envmap_cub2
-     @@:
+;     @@:
         cmp     [dr_flag],4
         jne     @f
         call    generate_texture2
      if Ext >= SSE2
         call   detect_chunks
         mov    [chunks_number],ecx
         mov    [chunks_ptr],ebx
         mov    ax,1  ; - old style detecting normal vectors
-     ;   esi -   tri_ch
+     ;   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    calc_bumpmap_coords   ; bump and texture mapping
         call    do_edges_list
         call    write_info
      .next_m2:
         cmp      ah,19
         je       @f
         cmp      ah,20
         jne      .next_m3
     mul     ecx
     lea     ecx,[eax*4]
 if (Ext = MMX)|(Ext = SSE)
+    emms
     mov      bh,bl
     push     bx
     shl      ebx,16
     pop      bx
     push     ebx
     movzx eax,word[size_x_var]
     movzx ecx,word[size_y_var]
     imul  ecx,eax
     xor   eax,eax
-    shr   ecx,1
+ ;   shr   ecx,1
     rep   stosd
 ret
 edit:     ; mmx required, edit mesh by vertex
+edit:     ; mmx required, edit mesh by vertex
         push   ebp
         mov    ebp,esp
         sub    esp,128
         .y_coord equ ebp-2
         .x_coord equ ebp-4
         .points_translated equ ebp-10
-        .points            equ ebp-22
+        .points            equ ebp-26
-        .points_rotated    equ ebp-34
+        .points_rotated    equ ebp-26-16
-        .mx                equ ebp-70
+        .mx                equ ebp-26-56
     macro check_bar
+    {
         movzx  ebx,word[.x_coord]
         movzx  ecx,word[.y_coord]
         movzx  edx,word[size_x_var]
         imul   edx,ecx
-        add    ebx,edx
-        push   ebx
+        add    ebx,edx
         mov    ecx,ebx
-        shl     ecx,2
-       ; lea    ecx,[ebx*2]
+        shl    ecx,2
-        lea    ebx,[ebx*3]
+        lea    ebx,[ebx*3]
-        cmp    [dr_flag],12
-        jl    @f
+        cmp    [dr_flag],10
-        add    ebx,[esp]
-      @@:
-        add    esp,4
+        cmovg  ebx,ecx
         add    ebx,[screen_ptr]
         mov    ebx,[ebx]
         and    ebx,0x00ffffff
         cmp    ebx,0x00ff0000 ; is handle bar  ?
         movd    mm3,[size_y_var]
         pcmpgtw mm0,mm1
         pcmpgtw mm3,mm1
         pxor    mm3,mm0
-        movd    eax,mm3
+        pmovmskb eax,mm3
-        mov     cx,ax
+        and     eax,1111b
-        shr     eax,16
-        and     ax,cx
-        or      ax,ax
+        or      ax,ax
         jz      .no_edit
         movd    mm0,ebx
         psubw   mm1,mm0
         movd    eax,mm1
-      ; store both x and y coordinates
-        ror    eax,16
-       ; push   eax
+      ; store both x and y coordinates
-       ; sub    esp,256
+        ror    eax,16
         mov    [.x_coord],eax
         test   word[mouse_state],100000000b
-        jz     .not_press  ; check if left mouse button press
         jz     .not_press  ; check if left mouse button press
         ;  left button  pressed
         ;  left button  pressed
         check_bar
         jz     .end
         check_bar
         jne    .end
-        mov    esi,[vertex_edit_no]
+        movd        xmm0,[edit_end_x]
-    ;    dec    esi
+        punpcklwd   xmm0,[the_zero]
-        lea    esi,[esi*3]
+        movd        xmm1,[vect_x]
-        add    esi,esi
+        punpcklwd   xmm1,[the_zero]
-        add    esi,[points_translated_ptr]
+   ;     movd        xmm2,[offset_y]
-        emms
+   ;     punpcklwd   xmm2,[the_zero]
-        movd    mm1,dword[esi]
+        psubd       xmm0,xmm1
-        paddw   mm1,mm0
+   ;     psubd       xmm0,xmm2
-        psubw   mm1,qword[vect_x]
+        cvtdq2ps    xmm0,xmm0
-        movd    dword[esi],mm1
+        movups      [.points],xmm0
-        lea    edi,[.points]
-     ; detranslate
-        fninit
-        fild word[esi+4]
-        fstp dword[edi+8]
-        fild word[esi+2]
-        fisub word[offset_x]
-        fstp dword[edi+4]
-        fild word[esi]
-        fisub word[offset_y]   ; proteza
         fstp dword[edi]
         mov     esi,matrix
         cld
         movsd
         movsd
         movsd
      ;   mov     ecx,3
-     ;   cld
-     ;   rep     movsd
+        mov    dword[edit_start_x],0
         mov    dword[edit_end_x],0
         mov    [vertex_edit_no],-1
       .no_edit:
     mov      [vertices_index_ptr],eax
     mov      esp,ebp
     pop      ebp
+ret
 init_point_normals:
 ;in:
 ;    esi - tri_ch
 ;    edi - t_ptr
-.z equ dword [ebp-8]
+;    ax =  1 -> old style finding 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]
 .t_ptr        equ dword [ebp-36]
 .tri_ch       equ dword [ebp-40]
 .max_val      equ dword [ebp-44]
 .mark         equ word  [ebp-45]
         push      ebp
         mov       ebp,esp
         sub       esp,64
         and       ebp,-16
         mov       .t_ptr,edi
         mov       .tri_ch,esi
+;        mov       .mark,ax
+        bt        ax,0
         jc        .old1
         jnz      .lp1
         jmp      .end
+      .old1:
         xor     edx,edx
       .old:
         inc       .point_number
         mov       edx,.point_number
         cmp       edx,[points_count_var]
         jne       .ipn_loop
-     .end:
+ ;       cmp       .mark,1
+ ;       je        .end1
+ ;        always free if Ext>=SSE2
+     .end:
         mov     eax,68
         mov     ebx,13
         mov     ecx,.t_ptr
         mov     ebx,13
         mov     ecx,.tri_ch
         int     0x40
+  ;   .end1:
         add       esp,64
         mov     edi,[screen_ptr]
         movzx   ecx,word[size_x_var]
         movzx   eax,word[size_y_var]
         imul    ecx,eax
         cld
         xor     eax,eax
-      if Ext=NON
+  ;    if Ext=NON
         rep     stosd
-      else if Ext = MMX
+;      else if Ext = MMX
-        pxor    mm0,mm0
+;        pxor    mm0,mm0
-      @@:
+ ;     @@:
-        movq    [edi+00],mm0
+ ;       movq    [edi+00],mm0
-        movq    [edi+08],mm0
+;        movq    [edi+08],mm0
-        movq    [edi+16],mm0
+;        movq    [edi+16],mm0
-        movq    [edi+24],mm0
+ ;       movq    [edi+24],mm0
-        add     edi,32
+ ;       add     edi,32
-        sub     ecx,8
+ ;       sub     ecx,8
-        jnc     @b
+ ;       jnc     @b
-      else
+ ;     else
-        push    ecx
+ ;       push    ecx
-        mov     ecx,edi
+ ;       mov     ecx,edi
-        and     ecx,0x0000000f
+ ;       and     ecx,0x0000000f
-        rep     stosb
+ ;       rep     stosb
-        pop     ecx
+ ;       pop     ecx
-        and     ecx,0xfffffff0
+ ;       and     ecx,0xfffffff0
-        xorps   xmm0,xmm0
+ ;       xorps   xmm0,xmm0
-      @@:
+ ;     @@:
-        movaps  [edi],xmm0
+ ;       movaps  [edi],xmm0
-        movaps  [edi+16],xmm0
+ ;       movaps  [edi+16],xmm0
-        movaps  [edi+32],xmm0
+ ;       movaps  [edi+32],xmm0
-        movaps  [edi+48],xmm0
+ ;       movaps  [edi+48],xmm0
-        add     edi,64
+ ;       add     edi,64
-        sub     ecx,16
+ ;       sub     ecx,16
-        jnz     @b
+ ;       jnz     @b
-      end if
+ ;     end if
 ret
         push    ebp
         mov     ebp,esp
-        sub     esp,60
+        sub     esp,64
    ;     cmp     ebx,0
    ;     je      @f
    ;     int3
    ;   @@:
         mov     eax, .index1x12
+        mov     eax, .index1x12
         mov     ebx, .index2x12
         mov     ecx, .index3x12
         add     eax,[points_rotated_ptr]
         add     ebx,[points_rotated_ptr]
         add     ecx,[points_rotated_ptr]
    .eend:
-        add      esp,60
+        add      esp,64
         pop      ebp
 ret
 draw_handlers:
        ;  in eax - render model
         mov     edx,[triangles_ptr]
         int     0x40                   ;  -> allocate memory to triangles
         mov     [triangles_ptr], eax   ;  -> eax = pointer to allocated mem
-        mov     eax, 68
+;        mov     eax, 68
-        mov     ecx,[triangles_count_var]
+;        mov     ecx,[triangles_count_var]
-        imul    ecx,[i36]
+;        imul    ecx,[i36]
-        mov     edx,[edges_ptr]
+;        mov     edx,[edges_ptr]
-        int     0x40                   ;  -> allocate memory to triangles
+;        int     0x40                   ;  -> allocate memory to triangles
-        mov     [edges_ptr], eax   ;  -> eax = pointer to allocated mem
+;        mov     [edges_ptr], eax   ;  -> eax = pointer to allocated mem
     @@:
   ;  eax = 0   -> ok file loaded
 ret
 read_param:
-    mov        esi,I_Param
+    cld
+    mov        esi,I_Param
     cmp        dword[esi],0
     je         .end
     cmp        byte[esi],'/'
     je         .copy
     mov        edi,esi
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
     draw_window:
-        movzx   eax,[fire_flag]
+        mov     eax,12          ; function 12:tell os about windowdraw
-        push    eax
-    ;    int3
-        mov     eax,12          ; function 12:tell os about windowdraw
         mov     ebx,1           ; 1, start of draw
         int     0x40
         ; DRAW WINDOW
         mov     eax,12          ; function 12:tell os about windowdraw
         mov     ebx,2           ; 2, end of draw
         int     0x40
-        pop     eax
+      ;  pop     eax
-        mov     [fire_flag],al
+      ;  mov     [fire_flag],al
         ret

Subversion Repositories Kolibri OS

(root)/programs/demos/view3ds/view3ds.asm – Rev 9521 → 9740