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

-; application : View3ds ver. 0.072 - tiny .3ds and .asc files viewer
+; application : View3ds ver. 0.071 - 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.j.pl, http://macgub.co.pl
+; web         : http://macgub.co.pl, http://macgub.j.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 500
+SIZE_X equ 512
-SIZE_Y equ 600                               ;      /////     I want definitely
+SIZE_Y equ 512                               ;      /////     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            ;       \/    /
         fild   dword[esp]
         fstp   [rsscale]
         pop    ebx
-        mov    [x_start],dword 20 shl  16 + 20  ;eax
         call   alloc_buffer_mem
         call   read_param
         call   read_from_disk    ; read, if all is ok eax = 0
         cmp    eax,0
         jne    .gen
         call   alloc_mem_for_tp
         call   read_asc
         jmp    .opt
     .malloc:
-     if USE_LFN
+        call   alloc_mem_for_tp
-        call   alloc_mem_for_tp
-     end if
+        call   read_from_file
-        call   read_from_file
     .opt:
         call   optimize_object1     ;  proc in file b_procs.asm
-        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
       if Ext >= SSE3
         call   copy_lights ; to aligned float
         call   do_color_buffer   ; intit color_map
         mov    edi,bumpmap
         call   calc_bumpmap
         call   calc_bumpmap_coords   ; bump and texture mapping
-        call   draw_window
+        call   do_edges_list
+        call   draw_window
         ;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
         mov     ebx,procinfo
         mov     ecx,-1
         int     0x40
         mov     eax,[procinfo+42]    ; read params of window
-        sub     eax,115
+        sub     eax,225
         mov     [size_x_var],ax
         shr     ax,1
         mov     [vect_x],ax
+;
         mov     eax,[procinfo+46]
         sub     eax,30
         cmp     ah,5
         jne     @f
-     .zoom_out:
+        .zoom_out:
         mov     dword[scale],0.7
-        movss   xmm0,[rsscale]
+        fninit
-        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]
+        fninit
-        mulss   xmm0,[scale]
-        movss   [rsscale],xmm0
-       ; 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
         call    make_random_lights                      ;    'env '  2
         call    normalize_all_light_vectors             ;    'bump'  3
       if Ext >= SSE3
         call    copy_lights
       end if
         call    do_color_buffer   ; intit color_map     ;    'tex '  4
       ;  cmp     [emboss_flag],1                         ;    'pos '  5
-      ;  je      @f                                      ;    'dots'  6
-      ;  cmp     [dr_flag],8
-      ;  jge     @f
-      ;  cmp     [dr_flag],2                             ;    'txgr'  7
-      ;  jl      .next_m5                            ;    '2tex'  8
-      ;  cmp     [dr_flag],3                             ;    'btex'  9
-      ;  jg      .next_m5
-    ; @@:
         call    init_envmap2    ; update env map if shading model = environment or bump
     .next_m5:
         cmp      ah,11
         je       @f
         cmp      ah,12
         je       @f
         call    optimize_object1
         call    init_triangles_normals2
         call    init_point_normals
         call    calc_bumpmap_coords   ; bump and texture mapping
         call    do_edges_list
-     .next_m2:
+        call    write_info
+     .next_m2:
         cmp      ah,19
         je       @f
         cmp      ah,20
         jne      .next_m3
      @@:
         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
     mov     eax,7           ; put image
     mov     ebx,[screen_ptr]
-    mov     ecx,[size_y_var]
-  ;  mov     ecx,SIZE_X shl 16 + SIZE_Y
+    mov     ecx,[size_y_var]
-    mov     edx,[offset_y]  ;5 shl 16 + 25
+    mov    edx,[offset_y]
-    cmp     [dr_flag],12
+    cmp     [dr_flag],11
     jge     .ff
     int     0x40
     jmp     .f
   .ff:
          mov      al,byte[esi+13]   ; g
          push     ax
          mov      al,byte[esi+12]   ; r
          push     ax
-    ;     pxor       xmm1,xmm1
+         mov      al,byte[esi+20]   ; b     max color
-    ;     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 >= SSE2
+if Ext >= SSE3
 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
-        movlps    [edi],xmm7
+        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
-        call      normalize_vector
+        add       edi,12
-    ;    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
       .no_stencil:
       end if
         cmp     [dr_flag],11
         je      .draw_smooth_line
         mov esi,[triangles_ptr]
         mov ecx,[triangles_count_var]
     .again_dts:
         push    ecx
         mov     ebp,[points_translated_ptr]
-      if Ext = NON
+      if Ext >= SSE2
         mov     eax,dword[esi]
         mov     [point_index1],eax
         mov     eax,[ebp+4]
         mov     [zz3],ax
       else
         movq    mm0,[esi]           ; don't know MMX
-        movq    qword[point_index1],mm0
+        mov     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]
-        bt      dword[eax+8],+31
+;        lea     eax,[eax+point_normals_rotated]
-        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],13
         je      .glass
         cmp     [dr_flag],14
         je      .glass_tex
      end if                                 ; ****************
-     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]
-    if Ext < SSE
+        ; texture x=(rotated point normal -> x * 255)+255
-        ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]       ; x cooficient of normal vector
-        fmul    dword[correct_texf]
+        fimul   [correct_tex]
-        fadd    dword[correct_texf]
+        fiadd   [correct_tex]
         fistp   [temp1]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]      ; y cooficient
-        fmul    dword[correct_texf]
+        fimul   [correct_tex]
-        fadd    dword[correct_texf]
+        fiadd   [correct_tex]
         fistp   [temp2]
         mov      eax,[temp2]
+        mov      eax,[temp2]
         mov      ebx,[temp1]
-     else
+        and      ebx,0xfffffff
-        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
-        imul    eax,[i12]
+        shl     ebx,2
-        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]
-        fmul   dword[correct_texf]
+        fimul   [correct_tex]
-        fadd   dword[correct_texf]
+        fiadd   [correct_tex]
         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]
-        fmul   dword[correct_texf]
+        fimul   [correct_tex]
-        fadd   dword[correct_texf]
+        fiadd   [correct_tex]
         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
-        movlps      xmm0,[eax]
+        ; texture x=(rotated point normal -> x * 255)+255
+        fld     dword[eax]
-        mulps       xmm0,[correct_texf]
+        fimul   [correct_tex]
-        addps       xmm0,[correct_texf]
+        fiadd   [correct_tex]
-        cvtps2dq    xmm0,xmm0
+        fistp   word[edi]
-        packssdw    xmm0,xmm0
+        ; texture y=(rotated point normal -> y * 255)+255
+        fld     dword[eax+4]
-        movd        [edi],xmm0
+        fimul   [correct_tex]
+        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
-        fmul    dword[correct_texf]
+        fimul   [correct_tex]
-        fadd    dword[correct_texf]
+        fiadd   [correct_tex]
         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
-    ;    imul    eax,[i12]
+        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
         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
-        push   dword[esi]
+;       lea    esi,[esi*3]
+;       lea    esi,[points+2+esi*2]
+        push   dword[esi]
-        mov    esi,[point_index1]
+  ;     push   dword[xx2]
+        mov    esi,[point_index1]
         shl    esi,2
         add    esi,tex_points
-        push   dword[esi]
+;       lea     esi,[esi*3]
+;       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]
-     if Ext < SSE
+        add     eax,[points_normals_rot_ptr]
         ; texture x=(rotated point normal -> x * 255)+255
         fld     dword[eax]       ; x cooficient of normal vector
-        fmul    dword[correct_texf]
+        fimul   [correct_tex]
-        fadd    dword[correct_texf]
+        fiadd   [correct_tex]
         fistp   [temp1]  ;word[ebp-2]
         ; texture y=(rotated point normal -> y * 255)+255
         fld     dword[eax+4]      ; y cooficient
-        fmul    dword[correct_texf]
+        fimul   [correct_tex]
-        fadd    dword[correct_texf]
+        fiadd   [correct_tex]
+        fistp   [temp2]  ;word[ebp-4]
-        fistp   [temp2]  ;word[ebp-4]
-        mov      eax,[temp2]
+        mov      eax,[temp2]   ;word[ebp-4]
-        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
-      end if
+        mov      ebx,[temp1]   ;word[ebp-2]
         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
-        movlps   xmm0,[eax]
+        fld     dword[eax]
-        mulps    xmm0,[correct_texf]
-        addps    xmm0,[correct_texf]
-        cvtps2dq xmm0,xmm0
-        packssdw xmm0,xmm0
-        movd     [edi],xmm0
-     ;   fld     dword[eax]
-     ;   fmul    dword[correct_texf]
+        fimul   [correct_tex]
-     ;   fadd    dword[correct_texf]
+        fiadd   [correct_tex]
-     ;   fistp   word[edi]
+        fistp   word[edi]
         ; texture y=(rotated point normal -> y * 255)+255
-      ;  fld     dword[eax+4]
+        fld     dword[eax+4]
-      ;  fmul    dword[correct_texf]
+        fimul   [correct_tex]
-      ;  fadd    dword[correct_texf]
+        fiadd   [correct_tex]
-      ;  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]
-      if Ext >= SSE
+        ; texture x=(rotated point normal -> x * 255)+255
-        ; texture x=(rotated point normal -> x * 255)+255
-        movlps   xmm0,[eax]
+        fld     dword[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
         call bump_tex_triangle_z
-        jmp     .end_draw
-      .draw_smooth_line:
-        mov     esi,point_index3
-        mov     ecx,3
-      .again_line_param:
-        mov     eax,dword[esi]
-        shl     eax,2
-        lea     eax,[eax*3]
-        add     eax,[points_normals_rot_ptr]
-      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
-        fmul   dword[correct_texf]
-        fadd   dword[correct_texf]
-        fistp   [temp1]  ;word[esp-2]
-        ; texture y=(rotated point normal -> y * 255)+255
-        fld     dword[eax+4]      ; y cooficient
-        fmul   dword[correct_texf]
-        fadd   dword[correct_texf]
-        fistp   [temp2]  ;word[esp-4]
-        mov      eax,[temp2]  ;word[esp-4]
-        mov      ebx,[temp1]  ;word[esp-2]
-      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]
-        shl      ebx,2
-        mov      [ebx+col1],eax
-        sub      esi,4
-        dec      ecx
-        jnz      .again_line_param
-        mov     edi,[screen_ptr]
-        mov     esi,[Zbuffer_ptr]
-        mov     eax,[col1]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz1]
-        push    [yy1]
-        push    [xx1]
-        mov     eax,[col2]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz2]
-        push    [yy2]
-        push    [xx2]
-        call    smooth_line
-     @@:
-        mov     edi,[screen_ptr]
-        mov     esi,[Zbuffer_ptr]
-        mov     eax,[col1]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz1]
-        push    [yy1]
-        push    [xx1]
-        mov     eax,[col3]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz3]
-        push    [yy3]
-        push    [xx3]
-        call    smooth_line
-      @@:
-        mov     edi,[screen_ptr]
-        mov     esi,[Zbuffer_ptr]
-        mov     eax,[col3]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz3]
-        push    [yy3]
-        push    [xx3]
-        mov     eax,[col2]
-        movzx   bx,al
-        push    bx                ; b
-        movzx   bx,ah
-        push    bx
-        rol     eax,16
-        xor     ah,ah
-        push    ax
-        push    [zz2]
-        push    [yy2]
-        push    [xx2]
-        call    smooth_line
         jmp     .end_draw
       @@:
         jmp     .end_draw
-     .glass:
      .glass:
         movd      xmm5,[size_y_var]
         punpcklwd xmm5,[the_zero]
         call    glass_tri
         jmp     .end_draw
    .glass_tex:
         movd      xmm5,[size_y_var]
         punpcklwd xmm5,[the_zero]
         mov     esi,[Zbuffer_ptr]
         call    glass_tex_tri
-        jmp     .end_draw
-end if
 end if
       .end_draw:
         pop     esi
         add     esi,12
+        pop     ecx
+        dec     ecx
+        jnz     .again_dts
+ret
+   .draw_smooth_line:
+        mov     esi,[edges_ptr]
+        xor     ecx,ecx
+    .again_s_line:
+        push    ecx
+        push    esi
+        mov     ecx,2
+     .aga_n:
+        mov     eax,[esi]
+        shl     eax,2
+        lea     eax,[eax*3]
+        add     eax,[points_normals_rot_ptr]
+        movups   xmm0,[eax]
+        xorps    xmm1,xmm1
+        mov      edx,lights_aligned
+    .again_cc:
+        movaps    xmm3,xmm0   ;.cnv
+        mulps     xmm3,[edx]
+        andps     xmm3,[zero_hgst_dd]
+   ;     haddps    xmm3,xmm3
+   ;     haddps    xmm3,xmm3   ; xmm3 - dot pr
+        movhlps   xmm2,xmm3
+        addps     xmm3,xmm2
+        movdqa    xmm2,xmm3
+        shufps    xmm2,xmm2,01010101b
+        addps     xmm3,xmm2
+        shufps    xmm3,xmm3,0
+        movaps    xmm6,xmm3   ;xmm7
+        mulps     xmm6,xmm6
+        mulps     xmm6,xmm6
+        mulps     xmm6,xmm6
+        mulps     xmm6,xmm6
+        mulps     xmm6,xmm6
+        mulps     xmm6,[edx+48]
+        movaps    xmm7,xmm3
+        mulps     xmm7,[edx+16]
+        addps     xmm7,xmm6
+        addps     xmm7,[edx+32]
+        minps     xmm7,[mask_255f]   ; global
+        maxps     xmm1,xmm7
+        add       edx,64     ; size of one light in aligned list
+        cmp       edx,lights_aligned_end
+        jl        .again_cc
+        sub       esp,16
+        movups    [esp],xmm1
+        add       esi,4
+        loop      .aga_n
+        movups    xmm0,[esp]
+        movups    xmm1,[esp+16]
+        add       esp,32
+        sub       esi,8
+        mov     ecx,[esi]
+        mov     edx,[esi+4]
+        imul    ecx,[i6]
+        imul    edx,[i6]
+        add     ecx,[points_translated_ptr]
+        add     edx,[points_translated_ptr]
+        movd    xmm7,[ecx]
+        movhps  xmm7,[edx]
+        pshufd  xmm7,xmm7,11101000b
+        movdqa  xmm6,xmm7
+        movd    xmm5,[size_y_var]
+        pshuflw xmm5,xmm5,00010001b
+        pcmpgtw xmm7,xmm5
+        pcmpgtw xmm6,[the_zero]
+        pxor    xmm7,xmm6
+        pmovmskb eax,xmm7
+        cmp     al,-1
+        jnz      .skp
+        mov     eax,[esi]
+        mov     ebx,[esi+4]
+        imul    eax,[i12]
+        imul    ebx,[i12]
+        add     eax,[points_rotated_ptr]
+        add     ebx,[points_rotated_ptr]
+        movss   xmm2,[eax+8]
+        movss   xmm3,[ebx+8]
+        movzx   eax,word[ecx]
+        movzx   ebx,word[ecx+2]
+        movzx   ecx,word[edx]
+        movzx   edx,word[edx+2]
+        emms
+        movd    mm1,[screen_ptr]
+        movd    mm0,[Zbuffer_ptr]
+        movzx   esi,word[size_x_var]
+        movd    mm2,esi
+        push    ebp
 fill_Z_buffer:
         mov     eax,0x70000000
-        cmp     [dr_flag],12
+        cmp     [dr_flag],11
-        jne     @f
+        jl      @f
         mov     eax,60000.1
     @@:
         mov     edi,[Zbuffer_ptr]
         movzx   ecx,word[size_x_var]
         xor     ebx,ebx
         xor     ebp,ebp
         mov     [points_count_var],0
         mov     [triangles_count_var],0
-   if USE_LFN = 0
+        mov     esi,[fptr]
-        mov     esi,SourceFile
-   else
-        mov     esi,[fptr]
-   end if
+        cmp     [esi],word 4D4Dh
-        cmp     [esi],word 4D4Dh
         jne     .exit ;Must be legal .3DS file
 ;        cmp     dword[esi+2],EndFile-SourceFile
 ;        jne     .exit ;This must tell the length
         mov     eax,dword[esi+2]
   ;      cmp     eax,[fsize]
         add     esi,8
         ;mov     edi,triangles
       @@:
         movzx   eax,word[esi]
-        add     eax,ebp
+        stosd
-        stosd
         movzx   eax,word[esi+2]
-        add     eax,ebp
+        stosd
-        stosd
         movzx   eax,word[esi+4]
-        add     eax,ebp
+        stosd
-        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
         mov     edx,[triangles_ptr]
         int     0x40                   ;  -> allocate memory to triangles
         mov     [triangles_ptr], eax   ;  -> eax = pointer to allocated mem
+        mov     eax, 68
+        mov     ecx,[triangles_count_var]
+        imul    ecx,[i36]
+        mov     edx,[edges_ptr]
+        int     0x40                   ;  -> allocate memory to triangles
+        mov     [edges_ptr], eax   ;  -> eax = pointer to allocated mem
                                             ; ststic  memory
         mov     eax, 68
         mov     ecx, [triangles_count_var]
        xor     eax,eax
     @@:
   ;  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
         add     edi,17
         cmp     byte[edi],-1
         jnz     .again
 ret
-;   *********************************************
+write_info:
+        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
+        xor     edx,edx
+        int     0x40
+        xor     esi,esi
+        emms
+        movd    mm7,esi
+     .nxxx:
+        push    esi
+        movd    mm7,esi
+        mov     eax,4           ; function 4 : write text to window
+        movzx   ebx,word[size_x_var]
+        shl     ebx,16
+        add     ebx,120*65536   ; [x start] *65536 + [y start]
+        mov     bx,si
+        shl     bx,3
+        add     ebx,30
+        mov     ecx,0x00ddeeff  ; font 1 & color ( 0xF0RRGGBB )
+        movd    edx,mm7
+        shl     edx,2
+        add     edx,lab_vert      ; pointer to text beginning
+        mov     esi,lab_vert_end-lab_vert     ; text length
+        int     0x40
+        movd    esi,mm7
+        mov     eax,[points_count_var+esi]
+        mov     ecx,10
+   .dc:
+        xor     edx,edx
+        mov     edi,10
+        div     edi
+        add     dl,30h
+        mov     [STRdata+ecx-1],dl
+        loop    .dc
+        mov  eax,4                     ; function 4 : write text to window
+        mov  bx,[size_x_var]
+        add  ebx,120
+        shl  ebx,16
+        mov  bx,si                     ; [x start] *65536 + [y start]
+        shl  bx,3
+        add  bx,45
+        mov  ecx,0x00ddeeff
+        mov  edx,STRdata               ; pointer to text beginning
+        mov  esi,10                    ; text length
+        int  40h
+        pop  esi
+        add  esi,4
+        cmp  esi,12
+        jnz  .nxxx
+ret
+;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
     draw_window:
         mov     eax,12          ; function 12:tell os about windowdraw
         mov     ebx,1           ; 1, start of draw
         shl     ecx,16
 ;ebx -  [x start] *65536 + [x size]
 ;ecx -  [y start] *65536 + [y size]
         mov     bx,[size_x_var]
-        add     bx,115
+        add     bx,225
         mov     cx,[size_y_var]
         add     cx,30
     ; @@:
         mov     edx,0x13000000  ; color of work area RRGGBB,8->color gl
         mov     edi,labelt      ; WINDOW LABEL
         int     0x40
         call    buttons         ; more buttons
+        .Y_ADD equ 2   ;-> offset of 'add vector' buttons
+     ;   mov     eax,47
+     ;   mov     ebx,0000000000111000000000000000b
+     ;   mov     ecx,[points_count_var]
+     ;   movzx   edx,word[size_x_var]
+     ;   shl     edx,16
+     ;   add     edx,130*65536+60  ; [x start] *65536 + [y start]
+     ;   mov     esi,0x00ddeeff  ; font 1 & color ( 0xF0RRGGBB )
+     ;   int     0x40
-        .Y_ADD equ 2   ;-> offset of 'add vector' buttons
+       call  write_info
         ; ADD VECTOR LABEL      ; add vector buttons - 30 ++
         mov     eax,4           ; function 4 : write text to window
         movzx   ebx,word[size_x_var]

Subversion Repositories Kolibri OS

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