forked from KolibriOS/kolibrios
3602 lines
98 KiB
NASM
3602 lines
98 KiB
NASM
|
|
; 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.vxm.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.
|
|
|
|
|
|
; Some adjustments made by Madis Kalme
|
|
; madis.kalme@mail.ee
|
|
; I tried optimizing it a bit, but don't know if it was successful. The objects
|
|
; can be:
|
|
; 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_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 ; \/ /
|
|
TEX_SHIFT equ 9 ; texture width shifting ; __||__ /
|
|
TEXTURE_SIZE EQU (TEX_X * TEX_Y)-1 ; /| |
|
|
TEX equ SHIFTING ; TEX={SHIFTING | FLUENTLY} ; / \ /
|
|
FLUENTLY = 0 ; / | |
|
|
SHIFTING = 1 ; ------
|
|
CATMULL_SHIFT equ 8 ; | |
|
|
LIGHT_SIZE equ 22 ; | |
|
|
NON = 0 ; -/ \-
|
|
MMX = 1
|
|
SSE = 2
|
|
SSE2 = 3
|
|
SSE3 = 4
|
|
Ext = SSE3 ;Ext={ NON | MMX | SSE | SSE2 | SSE3 }
|
|
|
|
; 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
|
|
dd I_END ; size of image
|
|
dd MEM_END ; memory for app
|
|
dd MEM_END ; esp
|
|
dd I_Param ; I_Param
|
|
dd 0x0 ; I_Icon
|
|
|
|
START: ; start of execution
|
|
cld
|
|
mov eax, 500 shl 16 + 600 ; ... or set manually
|
|
mov [size_y_var],ax
|
|
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
|
|
|
|
|
|
call alloc_buffer_mem
|
|
call read_param
|
|
call read_from_disk ; read, if all is ok eax = 0
|
|
cmp eax,0
|
|
jne .gen
|
|
mov esi,[fptr]
|
|
cmp [esi],word 4D4Dh
|
|
jne .asc
|
|
call read_tp_variables ; init points and triangles count variables
|
|
cmp eax,0
|
|
je .gen
|
|
jmp .malloc
|
|
.gen:
|
|
call generate_object
|
|
jmp .opt
|
|
.asc:
|
|
mov [triangles_count_var],10000 ; to do: read asc header
|
|
mov [points_count_var],10000
|
|
call alloc_mem_for_tp
|
|
call read_asc
|
|
jmp .opt
|
|
.malloc:
|
|
if USE_LFN
|
|
call alloc_mem_for_tp
|
|
end if
|
|
call read_from_file
|
|
.opt:
|
|
|
|
|
|
|
|
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
|
|
end if
|
|
call init_triangles_normals2
|
|
call init_point_normals
|
|
call init_envmap2
|
|
call init_envmap_cub
|
|
call generate_texture2
|
|
call init_sincos_tab
|
|
call do_color_buffer ; intit color_map
|
|
mov edi,bumpmap
|
|
call calc_bumpmap
|
|
call calc_bumpmap_coords ; bump and texture mapping
|
|
call draw_window
|
|
;mov [draw_win_at_first],0
|
|
;mov eax,40 ; set events mask
|
|
;mov ebx,1100000000000000000000000100111b
|
|
;int 0x40
|
|
|
|
|
|
still:
|
|
cmp [edit_flag],1
|
|
jne @f
|
|
mov eax,40 ; set events mask
|
|
mov ebx,1100000000000000000000000100111b
|
|
jmp .int
|
|
@@:
|
|
mov eax,40 ; set events mask
|
|
mov ebx,111b
|
|
.int:
|
|
int 0x40
|
|
|
|
mov eax,23
|
|
mov ebx,TIMEOUT
|
|
cmp [speed_flag],0
|
|
je .skip
|
|
mov eax,11
|
|
.skip:
|
|
cmp [edit_flag],1
|
|
jne @f
|
|
mov eax,10
|
|
|
|
@@:
|
|
int 0x40
|
|
|
|
cmp eax,1 ; redraw event ?
|
|
je red
|
|
cmp eax,2 ; key event ?
|
|
je key
|
|
cmp eax,3 ; button event ?
|
|
je button
|
|
cmp eax,6 ; mouse event ?
|
|
jne @f
|
|
cmp [edit_flag],1 ; handle mouse only when edit is active
|
|
jne @f
|
|
|
|
mov eax,37
|
|
mov ebx,7 ; get mouse scroll
|
|
int 0x40
|
|
and eax, 0xFFFF ; check only vertial
|
|
cmp eax, 65535
|
|
je button.zoom_in
|
|
cmp eax, 1
|
|
je button.zoom_out
|
|
|
|
mov eax,37
|
|
mov ebx,3 ;read mouse state
|
|
int 0x40
|
|
mov [mouse_state],eax
|
|
call edit
|
|
@@:
|
|
jmp noclose
|
|
|
|
red: ; redraw
|
|
mov eax,9 ; get process info
|
|
mov ebx,procinfo
|
|
mov ecx,-1
|
|
int 0x40
|
|
mov eax,[procinfo+42] ; read params of window
|
|
sub eax,115
|
|
mov [size_x_var],ax
|
|
shr ax,1
|
|
mov [vect_x],ax
|
|
;
|
|
mov eax,[procinfo+46]
|
|
sub eax,30
|
|
mov [size_y_var],ax
|
|
shr ax,1
|
|
mov [vect_y],ax
|
|
|
|
mov eax,[procinfo+34]
|
|
mov [x_start],ax
|
|
mov eax,[procinfo+38]
|
|
mov [y_start],ax
|
|
call alloc_buffer_mem ;realloc mem for scr & z buffs
|
|
call draw_window
|
|
|
|
jmp noclose
|
|
|
|
key: ; key
|
|
mov eax,2 ; just read it and ignore
|
|
int 0x40
|
|
|
|
cmp ah, '+'
|
|
je button.zoom_in
|
|
cmp ah, '='
|
|
je button.zoom_in
|
|
cmp ah, '-'
|
|
je button.zoom_out
|
|
cmp ah, 176 ;left
|
|
je add_vec_buttons.x_minus
|
|
cmp ah, 179 ;right
|
|
je add_vec_buttons.x_plus
|
|
cmp ah, 178 ;up
|
|
je add_vec_buttons.y_minus
|
|
cmp ah, 177 ;down
|
|
je add_vec_buttons.y_plus
|
|
|
|
jmp noclose
|
|
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
int 0x40
|
|
|
|
cmp ah,1 ; button id=1 ?
|
|
jne @f
|
|
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
@@:
|
|
cmp ah,30
|
|
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
|
|
jne .next_m6
|
|
cmp [dr_flag],2
|
|
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
|
|
|
|
@@:
|
|
.next_m6:
|
|
; ah = 5 -> scale-
|
|
cmp ah,5
|
|
jne @f
|
|
.zoom_out:
|
|
mov dword[scale],0.7
|
|
fninit
|
|
fld [rsscale]
|
|
fmul [scale]
|
|
fstp [rsscale]
|
|
|
|
@@:
|
|
cmp ah,6 ; ah = 6 -> scale+
|
|
jne @f
|
|
.zoom_in:
|
|
mov dword[scale],1.3
|
|
fninit
|
|
fld [rsscale]
|
|
fmul [scale]
|
|
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
|
|
cmp ah,13
|
|
jne .next_m4
|
|
@@:
|
|
call mirror
|
|
.next_m4:
|
|
cmp ah,14
|
|
jne @f
|
|
call exchange
|
|
@@:
|
|
cmp ah,15
|
|
jne @f
|
|
cmp [emboss_flag],1
|
|
; call init_envmap2
|
|
call do_emboss
|
|
@@:
|
|
; cmp ah,17
|
|
; jne .next_m
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; call draw_window ; redraw other labels to navigation buttons
|
|
; @@:
|
|
; cmp [move_flag],0
|
|
; jne .next_m
|
|
; call draw_window ; redraw other labels to navigation buttons
|
|
.next_m:
|
|
cmp ah,18
|
|
jne .next_m2
|
|
|
|
mov [re_alloc_flag],1 ; reallocate memory
|
|
mov [triangles_count_var],20000
|
|
mov [points_count_var],20000
|
|
call alloc_mem_for_tp
|
|
mov [re_alloc_flag],0
|
|
|
|
mov bl,[generator_flag]
|
|
; or bl,bl
|
|
; jz .next_m2
|
|
cmp bl,1
|
|
jne @f
|
|
call generate_object
|
|
jmp .calc_norm
|
|
@@:
|
|
cmp bl,4
|
|
jg @f
|
|
movzx eax,bl ; eax < - object number
|
|
call generate_object2
|
|
jmp .calc_norm
|
|
@@:
|
|
call generate_object3
|
|
.calc_norm:
|
|
call optimize_object1
|
|
call init_triangles_normals2
|
|
call init_point_normals
|
|
call calc_bumpmap_coords ; bump and texture mapping
|
|
|
|
.next_m2:
|
|
cmp ah,19
|
|
je @f
|
|
cmp ah,20
|
|
jne .next_m3
|
|
@@:
|
|
mov edi,bumpmap
|
|
call calc_bumpmap
|
|
.next_m3:
|
|
cmp ah,21 ; re map bumps, texture coordinates
|
|
jne @f
|
|
call calc_bumpmap_coords
|
|
@@:
|
|
jmp noclose
|
|
|
|
|
|
; there are 6 navigation buttons each
|
|
add_vec_buttons: ; can move: object, camera,.. list is open
|
|
;
|
|
cmp ah,30
|
|
jne .next
|
|
cmp [move_flag],0
|
|
jne @f
|
|
; cmp [move_flag],2
|
|
; je .set_light1
|
|
.y_minus:
|
|
sub [vect_y],10
|
|
jmp .next
|
|
@@:
|
|
cmp [move_flag],1
|
|
jne @f
|
|
sub [yobs],10 ; observator = camera position
|
|
jmp .next
|
|
@@:
|
|
sub [sin_amplitude],10
|
|
;--------------------------------------------------
|
|
; .set_light1: ; r -
|
|
; movzx ebx,[light_no_flag] ; * 22
|
|
; mov ecx,ebx
|
|
; shl ebx,4
|
|
; shl ecx,1
|
|
; add ebx,ecx
|
|
; shl ecx,1
|
|
; add ebx,ecx
|
|
; add ebx,lights+6 ; 6 -> light vector size
|
|
;
|
|
; movzx ecx,[light_comp_flag]
|
|
; lea ecx,[ecx*3}
|
|
; add ebx,ecx ; ebx -> color to set
|
|
|
|
;---------------------------------------------------
|
|
.next:
|
|
cmp ah,31
|
|
jne .next1
|
|
cmp [move_flag],1
|
|
je @f
|
|
add [vect_z],10
|
|
jmp .next1
|
|
@@:
|
|
add [zobs],10 ; observator = camera position
|
|
.next1:
|
|
cmp ah,33
|
|
jne .next2
|
|
cmp [move_flag],0
|
|
jne @f
|
|
.x_minus:
|
|
sub [vect_x],10
|
|
jmp .next2
|
|
@@:
|
|
cmp [move_flag],1
|
|
jne @f
|
|
sub [xobs],10 ; observator = camera position
|
|
jmp .next2
|
|
@@:
|
|
fninit
|
|
fld [sin_frq]
|
|
fsub [sin_delta]
|
|
fstp [sin_frq]
|
|
.next2:
|
|
cmp ah,32
|
|
jne .next3
|
|
cmp [move_flag],0
|
|
jne @f
|
|
.x_plus:
|
|
add [vect_x],10
|
|
jmp .next3
|
|
@@:
|
|
cmp [move_flag],1
|
|
jne @f
|
|
add [xobs],10 ; observator = camera position
|
|
jmp .next3
|
|
@@:
|
|
fninit
|
|
fld [sin_frq] ; change wave effect frequency
|
|
fadd [sin_delta]
|
|
fstp [sin_frq]
|
|
.next3:
|
|
cmp ah,34
|
|
jne .next4
|
|
cmp [move_flag],1
|
|
je @f
|
|
|
|
sub [vect_z],10
|
|
jmp .next4
|
|
@@:
|
|
sub [zobs],10 ; observator = camera position
|
|
.next4:
|
|
cmp ah,35
|
|
jne .next5
|
|
cmp [move_flag],0
|
|
jne @f
|
|
; call add_vector
|
|
.y_plus:
|
|
add [vect_y],10
|
|
jmp .next5
|
|
@@:
|
|
cmp [move_flag],1
|
|
jne @f
|
|
add [yobs],10 ; observator = camera position
|
|
jmp .next5
|
|
@@:
|
|
add [sin_amplitude],10
|
|
.next5:
|
|
|
|
|
|
|
|
noclose:
|
|
|
|
cmp [edit_flag],1
|
|
jz .end_rot
|
|
cmp [r_flag],2
|
|
jne .no_x
|
|
inc [angle_x]
|
|
and [angle_x],0xff
|
|
mov [angle_z],0
|
|
jmp .end_rot
|
|
|
|
.no_x:
|
|
cmp [r_flag],0
|
|
jne .no_y
|
|
inc [angle_y]
|
|
and [angle_y],0xff
|
|
mov [angle_z],0
|
|
jmp .end_rot
|
|
|
|
.no_y:
|
|
cmp [r_flag],1
|
|
jne .end_rot
|
|
mov cx,[angle_x]
|
|
inc cx
|
|
and cx,0xff
|
|
mov [angle_z],0
|
|
mov [angle_y],cx
|
|
mov [angle_x],cx
|
|
.end_rot:
|
|
|
|
mov esi,angle_x
|
|
mov edi,matrix
|
|
call make_rotation_matrix
|
|
RDTSC
|
|
push eax
|
|
mov esi,[points_normals_ptr]
|
|
mov edi,[points_normals_rot_ptr]
|
|
mov ebx,matrix
|
|
mov ecx,[points_count_var]
|
|
call rotary
|
|
|
|
mov esi,matrix
|
|
call add_scale_to_matrix
|
|
|
|
mov esi,[points_ptr]
|
|
mov edi,[points_rotated_ptr]
|
|
mov ebx,matrix
|
|
mov ecx,[points_count_var]
|
|
call rotary
|
|
|
|
|
|
mov esi,[points_rotated_ptr]
|
|
mov edi,[points_translated_ptr]
|
|
mov ecx,[points_count_var]
|
|
call translate_points
|
|
|
|
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
|
|
je .non_f
|
|
@@:
|
|
call fill_Z_buffer ; make background
|
|
.non_f:
|
|
cmp [dr_flag],6
|
|
jne @f
|
|
call draw_dots
|
|
jmp .blurrr
|
|
@@:
|
|
call draw_triangles ; draw all triangles from the list
|
|
cmp [edit_flag],0
|
|
jz .no_edit
|
|
call clear_vertices_index
|
|
call draw_handlers
|
|
; call edit
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.no_edit:
|
|
|
|
.blurrr:
|
|
cmp [sinus_flag],0
|
|
je @f
|
|
call do_sinus
|
|
@@:
|
|
cmp [fire_flag],0
|
|
jne @f
|
|
cmp [blur_flag],0
|
|
je .no_blur ; no blur, no fire
|
|
movzx ecx,[blur_flag]
|
|
call blur_screen ; blur and fire
|
|
jmp .no_blur
|
|
@@:
|
|
cmp [emboss_flag],0
|
|
jne .emb ; if emboss=true -> no fire
|
|
movzx ecx,[fire_flag]
|
|
call blur_screen ; blur and fire
|
|
.no_blur: ; no blur, no fire
|
|
cmp [emboss_flag],0
|
|
je @f
|
|
.emb:
|
|
call do_emboss
|
|
|
|
@@:
|
|
|
|
|
|
cmp [inc_bright_flag],0 ; increase brightness
|
|
je .no_inc_bright
|
|
movzx ebx,[inc_bright_flag]
|
|
shl ebx,4
|
|
mov esi,[screen_ptr]
|
|
movzx ecx,word[size_y_var]
|
|
movzx eax,word[size_x_var]
|
|
mul ecx
|
|
lea ecx,[eax*4]
|
|
|
|
if (Ext = MMX)|(Ext = SSE)
|
|
mov bh,bl
|
|
push bx
|
|
shl ebx,16
|
|
pop bx
|
|
push ebx
|
|
push ebx
|
|
movq mm0,[esp]
|
|
add esp,8
|
|
else if Ext >= SSE2
|
|
mov bh,bl
|
|
push bx
|
|
shl ebx,16
|
|
pop bx
|
|
movd xmm0,ebx
|
|
shufps xmm0,xmm0,0
|
|
end if
|
|
.oop:
|
|
if Ext=NON
|
|
lodsb
|
|
add al,bl
|
|
jnc @f
|
|
mov byte[esi-1],255
|
|
loop .oop
|
|
@@:
|
|
mov [esi-1],al
|
|
loop .oop
|
|
else if (Ext=MMX)|(Ext=SSE)
|
|
movq mm1,[esi]
|
|
movq mm2,[esi+8]
|
|
paddusb mm1,mm0
|
|
paddusb mm2,mm0
|
|
movq [esi],mm1
|
|
movq [esi+8],mm2
|
|
add esi,16
|
|
sub ecx,16
|
|
jnz .oop
|
|
else
|
|
movaps xmm1,[esi]
|
|
paddusb xmm1,xmm0
|
|
movaps [esi],xmm1
|
|
add esi,16
|
|
sub ecx,16
|
|
jnc .oop
|
|
end if
|
|
|
|
.no_inc_bright:
|
|
|
|
|
|
cmp [dec_bright_flag],0
|
|
je .no_dec_bright
|
|
movzx ebx,[dec_bright_flag]
|
|
shl ebx,4
|
|
mov esi,[screen_ptr]
|
|
movzx eax,word[size_x_var]
|
|
movzx ecx,word[size_y_var]
|
|
mul ecx
|
|
lea ecx,[eax*4]
|
|
if (Ext = MMX)|(Ext = SSE)
|
|
mov bh,bl
|
|
push bx
|
|
shl ebx,16
|
|
pop bx
|
|
push ebx
|
|
push ebx
|
|
movq mm0,[esp]
|
|
add esp,8
|
|
else if Ext >=SSE2
|
|
mov bh,bl
|
|
push bx
|
|
shl ebx,16
|
|
pop bx
|
|
movd xmm0,ebx
|
|
shufps xmm0,xmm0,0
|
|
end if
|
|
.oop1:
|
|
if Ext=NON
|
|
lodsb
|
|
sub al,bl
|
|
jb @f
|
|
mov [esi-1],al
|
|
loop .oop1
|
|
@@:
|
|
mov byte[esi-1],0
|
|
loop .oop1
|
|
else if (Ext = MMX)|(Ext=SSE)
|
|
movq mm1,[esi]
|
|
psubusb mm1,mm0
|
|
movq [esi],mm1
|
|
add esi,8
|
|
sub ecx,8
|
|
jnz .oop1
|
|
else
|
|
movaps xmm1,[esi]
|
|
psubusb xmm1,xmm0
|
|
movaps [esi],xmm1
|
|
add esi,16
|
|
sub ecx,16
|
|
jnc .oop1
|
|
end if
|
|
.no_dec_bright:
|
|
|
|
|
|
RDTSC
|
|
sub eax,[esp]
|
|
sub eax,41
|
|
; pop eax
|
|
|
|
mov ecx,10
|
|
.dc:
|
|
xor edx,edx
|
|
mov edi,10
|
|
div edi
|
|
add dl,30h
|
|
mov [STRdata+ecx-1],dl
|
|
loop .dc
|
|
pop eax
|
|
|
|
|
|
mov eax,7 ; put image
|
|
mov ebx,[screen_ptr]
|
|
mov ecx,[size_y_var]
|
|
; mov ecx,SIZE_X shl 16 + SIZE_Y
|
|
mov edx,[offset_y] ;5 shl 16 + 25
|
|
cmp [dr_flag],12
|
|
jge .ff
|
|
int 0x40
|
|
jmp .f
|
|
.ff:
|
|
mov eax,65
|
|
mov esi,32
|
|
xor ebp,ebp
|
|
int 0x40
|
|
.f:
|
|
mov eax,13
|
|
mov bx,[size_x_var]
|
|
add ebx,18
|
|
shl ebx,16
|
|
mov bx,60
|
|
mov cx,[size_y_var]
|
|
sub cx,2
|
|
shl ecx,16
|
|
mov cx,9
|
|
xor edx,edx
|
|
int 40h
|
|
|
|
mov eax,4 ; function 4 : write text to window
|
|
mov bx,[size_x_var]
|
|
add ebx,18
|
|
shl ebx,16
|
|
mov bx,[size_y_var]
|
|
sub bx,2 ; [x start] *65536 + [y start]
|
|
mov ecx,0x00888888
|
|
mov edx,STRdata ; pointer to text beginning
|
|
mov esi,10 ; text length
|
|
int 40h
|
|
|
|
|
|
|
|
jmp still
|
|
|
|
;--------------------------------------------------------------------------------
|
|
;-------------------------PROCEDURES---------------------------------------------
|
|
;--------------------------------------------------------------------------------
|
|
include "FLAT_CAT.INC"
|
|
include "TEX_CAT.INC"
|
|
include "BUMP_CAT.INC"
|
|
include "3DMATH.INC"
|
|
include "GRD_LINE.INC"
|
|
include "B_PROCS.INC"
|
|
include "A_PROCS.INC"
|
|
include "GRD_CAT.INC"
|
|
include "BUMP_TEX.INC"
|
|
include "GRD_TEX.INC"
|
|
include "TWO_TEX.INC"
|
|
include "ASC.INC"
|
|
if Ext >= SSE3
|
|
include "3R_PHG.INC"
|
|
include '3STENCIL.INC'
|
|
include '3GLASS.INC'
|
|
end if
|
|
clear_vertices_index:
|
|
mov edi,[vertices_index_ptr]
|
|
movzx eax,word[size_x_var]
|
|
movzx ecx,word[size_y_var]
|
|
imul ecx,eax
|
|
xor eax,eax
|
|
shr ecx,1
|
|
rep stosd
|
|
ret
|
|
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_rotated equ ebp-34
|
|
.mx equ ebp-70
|
|
|
|
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
|
|
lea ecx,[ebx*2]
|
|
lea ebx,[ebx*3]
|
|
|
|
cmp [dr_flag],12
|
|
jl @f
|
|
add ebx,[esp]
|
|
@@:
|
|
add esp,4
|
|
add ebx,[screen_ptr]
|
|
mov ebx,[ebx]
|
|
and ebx,0x00ffffff
|
|
cmp ebx,0x00ff0000 ; is handle bar ?
|
|
}
|
|
|
|
emms
|
|
mov eax,37 ; get mouse state
|
|
mov ebx,1 ; x = 5, y = 25 - offsets
|
|
int 0x40
|
|
|
|
mov ebx,[offset_y] ;5 shl 16 + 25
|
|
movd mm0,ebx
|
|
movd mm1,eax
|
|
movd mm3,[size_y_var]
|
|
pcmpgtw mm0,mm1
|
|
pcmpgtw mm3,mm1
|
|
pxor mm3,mm0
|
|
movd eax,mm3
|
|
mov cx,ax
|
|
shr eax,16
|
|
and ax,cx
|
|
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
|
|
; sub esp,256
|
|
mov [.x_coord],eax
|
|
test word[mouse_state],100000000b
|
|
jz .not_press ; check if left mouse button press
|
|
|
|
; left button pressed
|
|
|
|
|
|
check_bar
|
|
jne .no_edit
|
|
add ecx,[vertices_index_ptr]
|
|
mov cx,word[ecx]
|
|
inc cx
|
|
|
|
|
|
mov [vertex_edit_no],cx ;if vert_edit_no = 0, no vertex selected
|
|
|
|
mov eax,dword[.x_coord]
|
|
mov dword[edit_end_x],eax
|
|
mov dword[edit_start_x],eax
|
|
jmp .end
|
|
.not_press:
|
|
test byte[mouse_state],1b ; check if left button is held
|
|
jz .not_held
|
|
; check_bar
|
|
; jne .no_edit
|
|
; add ecx,[vertices_index_ptr]
|
|
; mov cx,[ecx]
|
|
; inc cx
|
|
cmp [vertex_edit_no],0 ; cx ; vertex number
|
|
je .end
|
|
push dword[.x_coord]
|
|
pop dword[edit_end_x]
|
|
jmp .end
|
|
.not_held:
|
|
shr [mouse_state],16
|
|
test byte[mouse_state],1b ; test if left button released
|
|
jz .end
|
|
check_bar
|
|
jne .end
|
|
|
|
movzx esi,[vertex_edit_no]
|
|
dec esi
|
|
lea esi,[esi*3]
|
|
add esi,esi
|
|
add esi,[points_translated_ptr]
|
|
emms
|
|
|
|
movd mm1,dword[esi]
|
|
paddw mm1,mm0
|
|
psubw mm1,qword[vect_x]
|
|
movd dword[esi],mm1
|
|
|
|
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
|
|
lea edi,[.mx]
|
|
call reverse_mx_3x3
|
|
|
|
lea esi,[.points]
|
|
lea edi,[.points_rotated]
|
|
lea ebx,[.mx]
|
|
mov ecx,1
|
|
call rotary
|
|
|
|
; inject into vertex list
|
|
movzx edi,[vertex_edit_no]
|
|
dec edi
|
|
lea edi,[edi*3]
|
|
shl edi,2
|
|
add edi,[points_ptr]
|
|
lea esi,[.points_rotated]
|
|
cld
|
|
movsd
|
|
movsd
|
|
movsd
|
|
; mov ecx,3
|
|
; cld
|
|
; rep movsd
|
|
|
|
|
|
mov dword[edit_end_x],0
|
|
mov [vertex_edit_no],0
|
|
|
|
.no_edit:
|
|
.end:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret
|
|
|
|
alloc_buffer_mem:
|
|
push ebp
|
|
mov ebp,esp
|
|
.temp equ ebp-4
|
|
push dword 0
|
|
|
|
mov eax, 68
|
|
mov ebx, 11
|
|
int 0x40 ; -> create heap, to be sure
|
|
|
|
|
|
movzx ecx,word[size_x_var]
|
|
movzx eax,word[size_y_var]
|
|
mul ecx
|
|
|
|
mov [.temp],eax
|
|
lea ecx,[eax*4] ; more mem for r_phg cause
|
|
add ecx,256
|
|
mov eax,68
|
|
mov ebx,20
|
|
mov edx,[screen_ptr]
|
|
int 0x40
|
|
mov [screen_ptr],eax
|
|
|
|
mov ecx,[.temp]
|
|
shl ecx,2
|
|
add ecx,256
|
|
mov eax,68
|
|
mov ebx,20
|
|
mov edx,[Zbuffer_ptr]
|
|
int 0x40
|
|
mov [Zbuffer_ptr],eax
|
|
|
|
|
|
mov ecx,[.temp]
|
|
add ecx,ecx
|
|
add ecx,256
|
|
mov eax,68
|
|
mov ebx,20
|
|
mov edx,[vertices_index_ptr]
|
|
int 0x40
|
|
mov [vertices_index_ptr],eax
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
|
|
|
|
|
|
|
|
update_flags:
|
|
; updates flags and writing flag description
|
|
; in ah - button number
|
|
push ax
|
|
mov edi,menu
|
|
.ch_another:
|
|
cmp ah,byte[edi] ; ah = button id
|
|
jne @f
|
|
mov bl,byte[edi+11] ; max_flag + 1
|
|
cmp bl,255
|
|
je .no_write
|
|
inc byte[edi+12] ; flag
|
|
cmp byte[edi+12],bl
|
|
jne .write
|
|
mov byte[edi+12],0
|
|
jmp .write
|
|
@@:
|
|
add edi,17
|
|
cmp byte[edi],-1
|
|
jne .ch_another
|
|
jmp .no_write
|
|
.write:
|
|
; clreol {pascal never dies}
|
|
; * eax = 13 - function number
|
|
; * ebx = [coordinate on axis x]*65536 + [size on axis x]
|
|
; * ecx = [coordinate on axis y]*65536 + [size on axis y]
|
|
; * edx = color 0xRRGGBB or 0x80RRGGBB for gradient fill
|
|
|
|
mov eax,13 ; function 13 write rectangle
|
|
movzx ecx,byte[edi]
|
|
sub cl,2
|
|
lea ecx,[ecx*3]
|
|
lea ecx,[ecx*5]
|
|
add ecx,28
|
|
shl ecx,16
|
|
add ecx,14 ; ecx = [coord y]*65536 + [size y]
|
|
mov bx,[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(12+70)*65536+25 ; [x start] *65536 + [size x]
|
|
mov edx,0x00000000 ; color 0x00RRGGBB
|
|
int 0x40
|
|
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,byte[edi]
|
|
sub bl,2
|
|
lea ebx,[ebx*3]
|
|
lea ebx,[ebx*5]
|
|
mov cx,[size_x_var]
|
|
shl ecx,16
|
|
add ebx,ecx
|
|
add ebx,(12+70)*65536+28 ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
movzx edx,byte[edi+12] ; current flag
|
|
shl edx,2 ; * 4 = text length
|
|
add edx,dword[edi+13] ; pointer to text beginning
|
|
mov esi,4 ; text length -
|
|
; flag description 4 characters
|
|
int 0x40
|
|
|
|
.no_write:
|
|
pop ax
|
|
ret
|
|
normalize_all_light_vectors:
|
|
mov edi,lights
|
|
@@:
|
|
call normalize_vector ; 3dmath.inc
|
|
add edi,LIGHT_SIZE
|
|
cmp edi,lightsend ;ecx
|
|
jl @b
|
|
ret
|
|
|
|
calc_bumpmap_coords: ; map texture, bump
|
|
;macro .comment222
|
|
; ; planar mapping
|
|
; mov esi,points
|
|
; mov edi,tex_points
|
|
; @@:
|
|
; add esi,2
|
|
; movsd
|
|
; cmp dword[esi],dword -1
|
|
; jne @b
|
|
|
|
; .Pi2 equ dword[ebp-4]
|
|
|
|
; mov ebp,esp
|
|
; sub esp,4
|
|
|
|
fninit
|
|
fldpi
|
|
fadd st,st
|
|
mov esi,[points_ptr]
|
|
mov edi,tex_points
|
|
mov ecx,[points_count_var]
|
|
inc ecx
|
|
; cmp [map_tex_flag],1
|
|
; jne .cylindric
|
|
; spherical mapping around y axle
|
|
|
|
@@:
|
|
fld dword[esi] ; x coord
|
|
fld dword[esi+8] ; z coord
|
|
fpatan ; arctg(st1/st)
|
|
; fdiv .Pi2
|
|
fdiv st0,st1
|
|
fimul [tex_x_div2]
|
|
fiadd [tex_x_div2]
|
|
fistp word[edi] ; x
|
|
|
|
fld dword[esi+4] ; y coord
|
|
fld dword[esi] ; x
|
|
fmul st,st0
|
|
fld dword[esi+4] ; y
|
|
fmul st,st0
|
|
fld dword[esi+8] ; z
|
|
fmul st,st0
|
|
faddp
|
|
faddp
|
|
fsqrt
|
|
fpatan
|
|
fldpi
|
|
fdivp
|
|
fimul [tex_y_div2]
|
|
fiadd [tex_y_div2]
|
|
fistp word[edi+2] ; y
|
|
|
|
add esi,12
|
|
add edi,4
|
|
loop @b
|
|
ffree st0
|
|
; jmp .end_map
|
|
; .cylindric:
|
|
; fld dword[esi] ; around y axle
|
|
; fld dword[esi+8]
|
|
; fpatan
|
|
; fdiv st0,st1
|
|
; fimul [tex_x_div2]
|
|
; fiadd [tex_x_div2]
|
|
; fistp word[edi]
|
|
|
|
; fld dword[esi+4]
|
|
; fimul [tex_y_div2]
|
|
; fiadd [tex_y_div2]
|
|
; fistp word[edi+2]
|
|
|
|
; add esi,12
|
|
; add edi,4
|
|
; loop .cylindric
|
|
; ffree st0
|
|
;; mov esp,ebp
|
|
; .end_map:
|
|
ret
|
|
|
|
|
|
init_envmap2: ; do env_map using many light sources
|
|
;env_map 512 x 512 x 3 bytes
|
|
.temp equ word [ebp-2]
|
|
.nEy equ word [ebp-4]
|
|
.nEx equ word [ebp-6]
|
|
.col_r equ [ebp-8]
|
|
.col_g equ [ebp-9]
|
|
.col_b equ [ebp-10]
|
|
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,20
|
|
mov edi,envmap
|
|
fninit
|
|
|
|
mov dx,- TEX_Y / 2 ;256 ; dx - vertical coordinate = y
|
|
.ie_ver:
|
|
mov cx,- TEX_X / 2 ;256 ; cx - horizontal coord = x
|
|
.ie_hor:
|
|
xor ebx,ebx
|
|
mov dword .col_b, 0
|
|
.light:
|
|
lea esi,[lights+ebx]
|
|
fld dword[esi] ; light vector x cooficient
|
|
fimul [tex_x_div2] ;[i256]
|
|
mov .temp,cx
|
|
fisubr .temp
|
|
fistp .nEx
|
|
fld dword[esi+4] ; light vector y cooficient
|
|
fimul [tex_y_div2] ;[i256]
|
|
mov .temp,dx
|
|
fisubr .temp
|
|
fistp .nEy
|
|
|
|
cmp .nEx,- TEX_X / 2 ;256
|
|
jl .update_counters
|
|
cmp .nEy,- TEX_Y / 2 ;256
|
|
jl .update_counters
|
|
cmp .nEx,TEX_X / 2 ;256
|
|
jg .update_counters
|
|
cmp .nEy,TEX_Y / 2 ;256
|
|
jg .update_counters
|
|
|
|
fild .nEx
|
|
fmul st,st0
|
|
fild .nEy
|
|
fmul st,st0
|
|
faddp
|
|
fsqrt
|
|
fisubr [i256]
|
|
fmul [env_const]
|
|
fidiv [i256] ; st - 'virtual' dot product
|
|
|
|
fcom [dot_max]
|
|
fstsw ax
|
|
sahf
|
|
jb @f
|
|
ffree st
|
|
fld1 ;[dot_max]
|
|
@@:
|
|
fcom [dot_min]
|
|
fstsw ax
|
|
sahf
|
|
ja @f
|
|
ffree st
|
|
fldz ;[dot_min]
|
|
@@:
|
|
push ebp
|
|
movzx ax,byte[esi+21]
|
|
push ax ;- shines
|
|
mov al,byte[esi+14] ; b orginal color
|
|
push ax
|
|
mov al,byte[esi+13] ; g
|
|
push ax
|
|
mov al,byte[esi+12] ; r
|
|
push ax
|
|
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
|
|
mov al,byte[esi+17] ; b min col
|
|
push ax
|
|
mov al,byte[esi+16] ; g
|
|
push ax
|
|
mov al,byte[esi+15] ; r
|
|
push ax
|
|
push eax ; earlier - dot pr
|
|
; fstp .dot_product
|
|
; push .dot_product
|
|
call calc_one_col
|
|
pop ebp
|
|
; eax-0x00rrggbb
|
|
cmp al,.col_b
|
|
jbe @f
|
|
mov .col_b,al
|
|
@@: ; eax - ggbb00rr
|
|
shr ax,8
|
|
cmp al,.col_g
|
|
jbe @f
|
|
mov .col_g,al
|
|
@@: ; eax - bb0000gg
|
|
shr eax,16
|
|
cmp al,.col_r
|
|
jbe @f
|
|
mov .col_r,al
|
|
@@:
|
|
.update_counters: ; update and jump when neccesery
|
|
add ebx,LIGHT_SIZE
|
|
cmp bx,[all_lights_size]
|
|
jl .light ; next_light
|
|
mov eax,dword .col_b
|
|
stosd
|
|
dec edi
|
|
|
|
inc cx
|
|
cmp cx,TEX_X / 2 ;256
|
|
jne .ie_hor
|
|
|
|
inc dx
|
|
cmp dx,TEX_Y / 2 ;256
|
|
jne .ie_ver
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret
|
|
|
|
|
|
|
|
do_color_buffer: ; do color buffer for Gouraud, flat shading
|
|
;env_map 512 x 512 x 3 bytes ; many lights using
|
|
.temp equ word [ebp-2]
|
|
.nz equ dword [ebp-6] ; dword
|
|
.ny equ dword [ebp-10]
|
|
.nx equ dword [ebp-14]
|
|
.col_r equ [ebp-16]
|
|
.col_g equ [ebp-17]
|
|
.col_b equ [ebp-18]
|
|
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,20
|
|
mov edi,color_map
|
|
fninit
|
|
|
|
mov dx,- TEX_Y / 2 ;-256 ; dx - vertical coordinate = y
|
|
.ie_ver:
|
|
mov cx,- TEX_X / 2 ;256 ; cx - horizontal coord = x
|
|
.ie_hor:
|
|
mov .temp,cx
|
|
fild .temp
|
|
fidiv [i256] ;st = Nx - vector normal x cooficient
|
|
fst .nx
|
|
fmul st,st0
|
|
mov .temp,dx
|
|
fild .temp
|
|
fidiv [i256] ; st = Ny - vector normal y coeficient
|
|
fst .ny
|
|
fmul st,st0
|
|
faddp
|
|
fld1
|
|
fchs
|
|
faddp
|
|
fabs
|
|
fsqrt
|
|
fchs
|
|
fstp .nz ; st - Nz - vect normal z coeficient
|
|
xor ebx,ebx
|
|
mov dword .col_b, 0
|
|
.light:
|
|
push edi ;env_map
|
|
lea esi,[lights+ebx]
|
|
lea edi,.nx
|
|
call dot_product
|
|
pop edi
|
|
fcom [dot_min]
|
|
fstsw ax
|
|
sahf
|
|
ja .env_ok1 ;compare with dot_max
|
|
ffree st
|
|
|
|
jmp .update_counters
|
|
.env_ok1:
|
|
fcom [dot_max]
|
|
fstsw ax
|
|
sahf
|
|
jb .env_ok2 ; calc col
|
|
ffree st
|
|
jmp .update_counters
|
|
.env_ok2: ;calc col
|
|
push ebp
|
|
movzx ax,byte[esi+21]
|
|
push ax ;- shines
|
|
mov al,byte[esi+14] ; b orginal color
|
|
push ax
|
|
mov al,byte[esi+13] ; g
|
|
push ax
|
|
mov al,byte[esi+12] ; r
|
|
push ax
|
|
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
|
|
mov al,byte[esi+17] ; b min col
|
|
push ax
|
|
mov al,byte[esi+16] ; g
|
|
push ax
|
|
mov al,byte[esi+15] ; r
|
|
push ax
|
|
push eax ; earlier - dot pr
|
|
; fstp .dot_product
|
|
; push .dot_product
|
|
call calc_one_col
|
|
pop ebp
|
|
; eax-0x00rrggbb
|
|
cmp al,.col_b
|
|
jbe @f
|
|
mov .col_b,al
|
|
@@:
|
|
shr ax,8
|
|
cmp al,.col_g
|
|
jbe @f
|
|
mov .col_g,al
|
|
@@:
|
|
shr eax,16
|
|
cmp al,.col_r
|
|
jbe @f
|
|
mov .col_r,al
|
|
@@:
|
|
.update_counters: ; update and jump when neccesery
|
|
add ebx,LIGHT_SIZE
|
|
cmp bx,[all_lights_size]
|
|
jl .light ; next_light
|
|
mov eax,dword .col_b
|
|
stosd
|
|
dec edi
|
|
|
|
inc cx
|
|
cmp cx,TEX_X / 2 ;256
|
|
jne .ie_hor
|
|
|
|
inc dx
|
|
cmp dx,TEX_X / 2 ;256
|
|
jne .ie_ver
|
|
|
|
.env_done:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret
|
|
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
|
|
mov ebp,esp
|
|
sub esp,64
|
|
and ebp,-16
|
|
mov edi,[points_normals_ptr]
|
|
mov .point_number,0
|
|
.ipn_loop:
|
|
movd xmm0,.point_number
|
|
pshufd xmm0,xmm0,0
|
|
mov .hit_faces,0
|
|
mov .x,dword 0
|
|
mov .y,0
|
|
mov .z,0
|
|
mov esi,[triangles_ptr]
|
|
xor ecx,ecx ; ecx - triangle number
|
|
.ipn_check_face:
|
|
movdqu xmm1,[esi]
|
|
pcmpeqd xmm1,xmm0
|
|
pmovmskb eax,xmm1
|
|
and eax,0xfff
|
|
or eax,eax
|
|
jz .ipn_next_face
|
|
push esi
|
|
mov esi,ecx
|
|
lea esi,[esi*3]
|
|
shl esi,2
|
|
add esi,[triangles_normals_ptr]
|
|
movups xmm7,[esi]
|
|
addps xmm7,.x
|
|
movaps .x,xmm7
|
|
pop esi
|
|
inc .hit_faces
|
|
|
|
.ipn_next_face:
|
|
add esi,12
|
|
inc ecx
|
|
cmp ecx,[triangles_count_var]
|
|
jne .ipn_check_face
|
|
cvtsi2ss xmm6,.hit_faces
|
|
movaps xmm7,.x
|
|
rcpss xmm6,xmm6
|
|
shufps xmm6,xmm6,11000000b
|
|
mulps xmm7,xmm6
|
|
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
|
|
|
|
add esp,64
|
|
pop ebp
|
|
ret
|
|
else
|
|
init_point_normals:
|
|
.x equ dword [ebp-4]
|
|
.y equ dword [ebp-8]
|
|
.z equ dword [ebp-12]
|
|
.point_number equ dword [ebp-28]
|
|
.hit_faces equ dword [ebp-32]
|
|
|
|
fninit
|
|
mov ebp,esp
|
|
sub esp,32
|
|
mov edi,[points_normals_ptr]
|
|
mov .point_number,0
|
|
.ipn_loop:
|
|
mov .hit_faces,0
|
|
mov .x,0
|
|
mov .y,0
|
|
mov .z,0
|
|
mov esi,[triangles_ptr]
|
|
xor ecx,ecx ; ecx - triangle number
|
|
.ipn_check_face:
|
|
xor ebx,ebx ; ebx - 'position' in one triangle
|
|
.ipn_check_vertex:
|
|
mov eax,dword[esi+ebx] ; eax - point_number
|
|
cmp eax,.point_number
|
|
jne .ipn_next_vertex
|
|
push esi
|
|
mov esi,ecx
|
|
lea esi,[esi*3]
|
|
; lea esi,[triangles_normals+esi*4]
|
|
shl esi,2
|
|
add esi,[triangles_normals_ptr]
|
|
|
|
fld .x
|
|
fadd dword[esi+vec_x] ; vec_x this defined in 3dmath.asm - x cooficient
|
|
fstp .x ; of normal vactor
|
|
fld .y
|
|
fadd dword[esi+vec_y]
|
|
fstp .y
|
|
fld .z
|
|
fadd dword[esi+vec_z]
|
|
fstp .z
|
|
pop esi
|
|
inc .hit_faces
|
|
jmp .ipn_next_face
|
|
.ipn_next_vertex:
|
|
add ebx,4
|
|
cmp ebx,12
|
|
jne .ipn_check_vertex
|
|
.ipn_next_face:
|
|
add esi,12
|
|
inc ecx
|
|
cmp ecx,[triangles_count_var]
|
|
jne .ipn_check_face
|
|
|
|
fld .x
|
|
fidiv .hit_faces
|
|
fstp dword[edi+vec_x]
|
|
fld .y
|
|
fidiv .hit_faces
|
|
fstp dword[edi+vec_y]
|
|
fld .z
|
|
fidiv .hit_faces
|
|
fstp dword[edi+vec_z]
|
|
call normalize_vector
|
|
add edi,12 ;type vector 3d
|
|
inc .point_number
|
|
mov edx,.point_number
|
|
cmp edx,[points_count_var]
|
|
jne .ipn_loop
|
|
|
|
mov esp,ebp
|
|
ret
|
|
;===============================================================
|
|
end if
|
|
init_triangles_normals2:
|
|
mov ebx,[triangles_normals_ptr]
|
|
mov ebp,[triangles_ptr]
|
|
mov ecx,[triangles_count_var]
|
|
@@:
|
|
push ecx
|
|
push ebx
|
|
mov ebx,vectors
|
|
mov esi,dword[ebp] ; first point index
|
|
lea esi,[esi*3]
|
|
; lea esi,[points+esi*2] ; esi - pointer to 1st 3d point
|
|
shl esi,2
|
|
add esi,[points_ptr]
|
|
mov edi,dword[ebp+4] ; first point index
|
|
lea edi,[edi*3]
|
|
shl edi,2
|
|
add edi,[points_ptr]
|
|
; movzx edi,word[ebp+2] ; second point index
|
|
; lea edi,[edi*3]
|
|
; lea edi,[points+edi*2] ; edi - pointer to 2nd 3d point
|
|
call make_vector_r
|
|
add ebx,12
|
|
mov esi,edi
|
|
mov edi,dword[ebp+8] ; third point index
|
|
lea edi,[edi*3]
|
|
shl edi,2
|
|
add edi,[points_ptr]
|
|
; lea edi,[points+edi*2]
|
|
call make_vector_r
|
|
mov edi,ebx ; edi - pointer to 2nd vector
|
|
mov esi,ebx
|
|
sub esi,12 ; esi - pointer to 1st vector
|
|
pop ebx
|
|
call cross_product
|
|
mov edi,ebx
|
|
call normalize_vector
|
|
add ebp,12
|
|
add ebx,12
|
|
pop ecx
|
|
sub ecx,1
|
|
jnz @b
|
|
; cmp dword[ebp],-1
|
|
; jne @b
|
|
ret
|
|
|
|
if Ext >= SSE3
|
|
copy_lights: ; after normalising !
|
|
mov esi,lights
|
|
mov edi,lights_aligned
|
|
mov ecx,3
|
|
.again:
|
|
push ecx
|
|
mov ecx,3
|
|
cld
|
|
rep movsd
|
|
xor eax,eax
|
|
stosd
|
|
mov ecx,3
|
|
.b:
|
|
push ecx
|
|
mov ecx,3
|
|
@@:
|
|
movzx ebx,byte[esi]
|
|
cvtsi2ss xmm0,ebx
|
|
movss [edi],xmm0
|
|
inc esi
|
|
add edi,4
|
|
loop @b
|
|
stosd
|
|
pop ecx
|
|
loop .b
|
|
inc esi ; skip shiness
|
|
pop ecx
|
|
loop .again
|
|
ret
|
|
end if
|
|
|
|
clrscr:
|
|
mov edi,[screen_ptr]
|
|
movzx ecx,word[size_x_var]
|
|
movzx eax,word[size_y_var]
|
|
imul ecx,eax
|
|
|
|
|
|
xor eax,eax
|
|
if Ext=NON
|
|
rep stosd
|
|
else if Ext = MMX
|
|
pxor mm0,mm0
|
|
@@:
|
|
movq [edi+00],mm0
|
|
movq [edi+08],mm0
|
|
movq [edi+16],mm0
|
|
movq [edi+24],mm0
|
|
add edi,32
|
|
sub ecx,8
|
|
jnc @b
|
|
else
|
|
push ecx
|
|
mov ecx,edi
|
|
and ecx,0x0000000f
|
|
rep stosb
|
|
pop ecx
|
|
and ecx,0xfffffff0
|
|
xorps xmm0,xmm0
|
|
@@:
|
|
movaps [edi],xmm0
|
|
movaps [edi+16],xmm0
|
|
movaps [edi+32],xmm0
|
|
movaps [edi+48],xmm0
|
|
add edi,64
|
|
sub ecx,16
|
|
jnz @b
|
|
end if
|
|
|
|
ret
|
|
|
|
|
|
draw_triangles:
|
|
|
|
emms
|
|
; update translated list MMX required
|
|
cmp [vertex_edit_no],0
|
|
je @f
|
|
movzx eax,[vertex_edit_no]
|
|
dec eax
|
|
movd mm0,[edit_end_x]
|
|
psubw mm0,[edit_start_x]
|
|
lea eax,[eax*3]
|
|
add eax,eax
|
|
add eax,[points_translated_ptr]
|
|
movd mm1,dword[eax]
|
|
paddw mm1,mm0
|
|
movd dword[eax],mm1
|
|
@@:
|
|
if Ext >= SSE3
|
|
cmp [dr_flag],13
|
|
jne .no_stencil
|
|
mov esi,[triangles_ptr]
|
|
mov ecx,[triangles_count_var]
|
|
@@:
|
|
push esi
|
|
push ecx
|
|
|
|
mov eax,[esi]
|
|
mov ebx,[esi+4]
|
|
mov ecx,[esi+8]
|
|
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 xmm0,[esp]
|
|
add esp,12
|
|
andps xmm0,[zero_hgst_dd]
|
|
|
|
|
|
mov eax,[esi]
|
|
mov ebx,[esi+4]
|
|
mov ecx,[esi+8]
|
|
shl eax,1
|
|
shl ebx,1
|
|
shl ecx,1
|
|
lea eax,[eax*3]
|
|
lea ebx,[ebx*3]
|
|
lea ecx,[ecx*3]
|
|
add eax,[points_translated_ptr]
|
|
add ebx,[points_translated_ptr]
|
|
add ecx,[points_translated_ptr]
|
|
mov eax,[eax]
|
|
mov ebx,[ebx]
|
|
mov ecx,[ecx]
|
|
ror eax,16
|
|
ror ebx,16
|
|
ror ecx,16
|
|
|
|
|
|
mov esi,[Zbuffer_ptr]
|
|
|
|
call stencil_tri
|
|
|
|
pop ecx
|
|
pop esi
|
|
add esi,12
|
|
dec ecx
|
|
jnz @b
|
|
|
|
.no_stencil:
|
|
end if
|
|
|
|
|
|
|
|
mov esi,[triangles_ptr]
|
|
mov ecx,[triangles_count_var]
|
|
.again_dts:
|
|
push ecx
|
|
mov ebp,[points_translated_ptr]
|
|
if Ext >= SSE2
|
|
mov eax,dword[esi]
|
|
mov [point_index1],eax
|
|
lea eax,[eax*3]
|
|
add eax,eax
|
|
push ebp
|
|
add ebp,eax
|
|
mov eax,[ebp]
|
|
; cmp [vertex_edit_no],0
|
|
; jne @f
|
|
;
|
|
; @@:
|
|
mov dword[xx1],eax
|
|
mov eax,[ebp+4]
|
|
mov [zz1],ax
|
|
|
|
pop ebp
|
|
|
|
|
|
mov eax,dword[esi+4]
|
|
mov [point_index2],eax
|
|
lea eax,[eax*3]
|
|
add eax,eax
|
|
push ebp
|
|
add ebp,eax
|
|
mov eax,[ebp]
|
|
mov dword[xx2],eax
|
|
mov eax,[ebp+4]
|
|
mov [zz2],ax
|
|
pop ebp
|
|
|
|
|
|
mov eax,dword[esi+8] ; xyz3 = [ebp+[esi+4]*6]
|
|
mov [point_index3],eax
|
|
lea eax,[eax*3]
|
|
add eax,eax
|
|
; push ebp
|
|
add ebp,eax
|
|
mov eax,[ebp]
|
|
mov dword[xx3],eax
|
|
mov eax,[ebp+4]
|
|
mov [zz3],ax
|
|
else
|
|
movq mm0,[esi] ; don't know MMX
|
|
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
|
|
movdqa xmm1,xmm0
|
|
paddd xmm0,xmm0
|
|
paddd xmm0,xmm1
|
|
movd eax,xmm0
|
|
psrldq xmm0,4
|
|
movd ebx,xmm0
|
|
psrldq xmm0,4
|
|
movd ecx,xmm0
|
|
and eax,0FFFFh
|
|
and ebx,0FFFFh
|
|
and ecx,0FFFFh
|
|
movq mm0,[ebp+eax]
|
|
movq mm1,[ebp+ebx]
|
|
movq mm2,[ebp+ecx]
|
|
movq qword[xx1],mm0
|
|
movq qword[xx2],mm1
|
|
movq qword[xx3],mm2
|
|
; emms
|
|
end if ; *********************************
|
|
if 0
|
|
cmp [vertex_edit_no],0
|
|
jne .no_edit
|
|
mov ax,[vertex_edit_no]
|
|
dec ax
|
|
cmp ax,[point_index1]
|
|
jne @f
|
|
movd mm0,[edit_start_x]
|
|
psubw mm0,[edit_end_x]
|
|
movd mm1,dword[xx1]
|
|
paddw mm1,mm0
|
|
movd dword[xx1],mm1
|
|
jmp .no_edit
|
|
@@:
|
|
|
|
cmp ax,[point_index2]
|
|
jne @f
|
|
movd mm0,[edit_start_x]
|
|
psubw mm0,[edit_end_x]
|
|
movd mm1,dword[xx2]
|
|
paddw mm1,mm0
|
|
movd dword[xx2],mm1
|
|
jmp .no_edit
|
|
@@:
|
|
|
|
cmp ax,[point_index3]
|
|
jne @f
|
|
movd mm0,[edit_start_x]
|
|
psubw mm0,[edit_end_x]
|
|
movd mm1,dword[xx3]
|
|
paddw mm1,mm0
|
|
movd dword[xx3],mm1
|
|
jmp .no_edit
|
|
@@:
|
|
|
|
|
|
.no_edit:
|
|
end if
|
|
|
|
push esi ;
|
|
fninit ; DO culling AT FIRST
|
|
cmp [culling_flag],1 ; (if culling_flag = 1)
|
|
jne .no_culling
|
|
mov esi,point_index1 ; *********************************
|
|
mov ecx,3 ;
|
|
@@:
|
|
mov eax,dword[esi]
|
|
lea eax,[eax*3]
|
|
shl eax,2
|
|
add eax,[points_normals_rot_ptr]
|
|
; lea eax,[eax+point_normals_rotated]
|
|
fld dword[eax+8] ; *****************************
|
|
ftst ; CHECKING OF Z COOFICIENT OF
|
|
fstsw ax ; NORMAL VECTOR
|
|
sahf
|
|
jb @f
|
|
ffree st
|
|
loop @b
|
|
jmp .end_draw ; non 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
|
|
je .bump_mapping
|
|
cmp [dr_flag],4
|
|
je .tex_mapping
|
|
cmp [dr_flag],5
|
|
je .rainbow
|
|
cmp [dr_flag],7
|
|
je .grd_tex
|
|
cmp [dr_flag],8
|
|
je .two_tex
|
|
cmp [dr_flag],9
|
|
je .bump_tex
|
|
cmp [dr_flag],10
|
|
je .cubic_env_mapping
|
|
cmp [dr_flag],11
|
|
je .draw_smooth_line
|
|
if Ext >= SSE3
|
|
cmp [dr_flag],12
|
|
je .r_phg
|
|
cmp [dr_flag],13
|
|
je .glass
|
|
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
|
|
fld dword[eax] ; x cooficient of normal vector
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp1]
|
|
; texture y=(rotated point normal -> y * 255)+255
|
|
fld dword[eax+4] ; y cooficient
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp2]
|
|
|
|
mov eax,[temp2]
|
|
mov ebx,[temp1]
|
|
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
|
|
; jne @f
|
|
lea edx,[ecx*3]
|
|
push word[edx*2+xx1-2] ; zz1 ,2 ,3
|
|
; @@:
|
|
ror eax,16 ; eax -0xxxrrggbb -> 0xggbbxxrr
|
|
xor ah,ah
|
|
push ax ;r
|
|
rol eax,8 ; eax-0xggbb00rr -> 0xbb00rrgg
|
|
xor ah,ah
|
|
push ax ;g
|
|
shr eax,24
|
|
push ax ;b
|
|
|
|
sub esi,4
|
|
dec cx
|
|
jnz .again_grd_draw
|
|
jmp .both_draw
|
|
|
|
; movzx edi,[point_index3] ;gouraud shading according to light vector
|
|
; lea edi,[edi*3]
|
|
; lea edi,[4*edi+point_normals_rotated] ; edi - normal
|
|
; mov esi,light_vector
|
|
; call dot_product
|
|
; fabs
|
|
; fimul [orginal_color_r]
|
|
; fistp [temp_col]
|
|
; and [temp_col],0x00ff
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
|
|
; movzx edi,[point_index2]
|
|
; lea edi,[edi*3]
|
|
; lea edi,[4*edi+point_normals_rotated] ; edi - normal
|
|
; mov esi,light_vector
|
|
; call dot_product
|
|
; fabs
|
|
; fimul [orginal_color_r]
|
|
; fistp [temp_col]
|
|
; and [temp_col],0x00ff
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
|
|
; movzx edi,[point_index1]
|
|
; lea edi,[edi*3]
|
|
; lea edi,[4*edi+point_normals_rotated] ; edi - normal
|
|
; mov esi,light_vector
|
|
; call dot_product
|
|
; fabs
|
|
; fimul [orginal_color_r]
|
|
; fistp [temp_col]
|
|
; and [temp_col],0x00ff
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
; push [temp_col]
|
|
.rainbow:
|
|
; cmp [catmull_flag],1 ; put on stack z coordinate if necessary
|
|
; jne @f
|
|
push [zz3]
|
|
@@:
|
|
mov eax,dword[yy3]
|
|
mov ebx,0x00ff00ff
|
|
and eax,ebx
|
|
push eax
|
|
neg al
|
|
push ax
|
|
push [zz2]
|
|
|
|
mov eax,dword[yy2]
|
|
and eax,ebx
|
|
push eax
|
|
neg al
|
|
push ax
|
|
push [zz1]
|
|
|
|
mov eax,dword[yy1]
|
|
and eax,ebx
|
|
push eax
|
|
neg al
|
|
push ax
|
|
.both_draw:
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,[Zbuffer_ptr]
|
|
call gouraud_triangle_z
|
|
jmp .end_draw
|
|
|
|
.flat_draw: ;**************************
|
|
fninit ; FLAT DRAWING
|
|
mov eax,[point_index1]
|
|
mov ebx,[point_index2]
|
|
mov ecx,[point_index3]
|
|
shl eax,2
|
|
shl ebx,2
|
|
shl ecx,2
|
|
lea eax,[eax*3] ;+point_normals_rotated]
|
|
add eax,[points_normals_rot_ptr]
|
|
lea ebx,[ebx*3] ;+point_normals_rotated]
|
|
add ebx,[points_normals_rot_ptr]
|
|
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]
|
|
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]
|
|
fimul [correct_tex]
|
|
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]
|
|
|
|
lea eax,[3*edx]
|
|
add eax,color_map
|
|
mov edx,dword[eax]
|
|
|
|
and edx,0x00ffffff ; edx = 0x00rrggbb
|
|
|
|
|
|
|
|
; mov ax,[zz1] ; z position depend draw
|
|
; add ax,[zz2]
|
|
; add ax,[zz3]
|
|
; cwd
|
|
; idiv [i3] ; = -((a+b+c)/3+130)
|
|
; add ax,130
|
|
; neg al
|
|
; xor edx,edx
|
|
; mov ah,al ;set color according to z position
|
|
; shl eax,8
|
|
; mov edx,eax
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
|
|
mov esi,[Zbuffer_ptr]
|
|
push word[zz3]
|
|
push word[zz2]
|
|
push word[zz1]
|
|
call flat_triangle_z
|
|
jmp .end_draw
|
|
|
|
.env_mapping:
|
|
push [zz3]
|
|
push [zz2]
|
|
push [zz1]
|
|
|
|
mov esi,point_index1
|
|
sub esp,12
|
|
mov edi,esp
|
|
mov ecx,3
|
|
@@:
|
|
mov eax,dword[esi]
|
|
lea eax,[eax*3]
|
|
shl eax,2
|
|
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]
|
|
|
|
add edi,4
|
|
add esi,4
|
|
loop @b
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,envmap
|
|
|
|
mov edx,[Zbuffer_ptr]
|
|
call tex_triangle_z
|
|
|
|
jmp .end_draw
|
|
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
.cubic_env_mapping:
|
|
push [zz3]
|
|
push [zz2]
|
|
push [zz1]
|
|
|
|
mov esi,point_index1
|
|
sub esp,12
|
|
mov edi,esp
|
|
mov ecx,3
|
|
@@:
|
|
mov eax,dword[esi]
|
|
lea eax,[eax*3]
|
|
shl eax,2
|
|
add eax,[points_normals_rot_ptr]
|
|
|
|
fld dword[eax]
|
|
fmul dword[eax+4]
|
|
fld1
|
|
fld1
|
|
faddp
|
|
fmulp
|
|
fimul [correct_tex]
|
|
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]
|
|
; 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 of last ch.
|
|
add edi,4
|
|
add esi,4
|
|
loop @b
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,envmap_cub
|
|
mov edx,[Zbuffer_ptr]
|
|
|
|
call tex_triangle_z
|
|
|
|
jmp .end_draw
|
|
|
|
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
.bump_mapping:
|
|
|
|
push [Zbuffer_ptr]
|
|
push [zz3]
|
|
push [zz2]
|
|
push [zz1]
|
|
|
|
mov esi,point_index1
|
|
sub esp,12
|
|
mov edi,esp
|
|
mov ecx,3
|
|
@@:
|
|
mov eax,dword[esi]
|
|
lea eax,[eax*3]
|
|
shl eax,2
|
|
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]
|
|
|
|
add edi,4
|
|
add esi,4
|
|
loop @b
|
|
|
|
mov esi,[point_index3] ; bump map coords
|
|
shl esi,2
|
|
add esi,tex_points
|
|
push dword[esi]
|
|
mov esi,[point_index2]
|
|
shl esi,2
|
|
add esi,tex_points
|
|
; lea esi,[esi*3]
|
|
; lea esi,[points+2+esi*2]
|
|
push dword[esi]
|
|
; push dword[xx2]
|
|
mov esi,[point_index1]
|
|
shl esi,2
|
|
add esi,tex_points
|
|
; 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
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,envmap
|
|
mov edx,bumpmap ;BUMP_MAPPING
|
|
|
|
call bump_triangle_z
|
|
|
|
jmp .end_draw
|
|
|
|
.tex_mapping:
|
|
|
|
push [zz3]
|
|
push [zz2]
|
|
push [zz1]
|
|
; @@:
|
|
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]
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,texmap
|
|
mov edx,[Zbuffer_ptr]
|
|
|
|
call tex_triangle_z
|
|
|
|
jmp .end_draw
|
|
; .ray:
|
|
; grd_triangle according to points index
|
|
; cmp [catmull_flag],0
|
|
; je @f
|
|
; push [zz3] ; spot light with attenuation
|
|
; @@:
|
|
; movzx eax,[point_index3] ; env_map - points color list
|
|
; shl eax,1 ; each color as word, 0x00rr00gg00bb..
|
|
; lea eax,[3*eax+bumpmap]
|
|
; push word[eax]
|
|
; push word[eax+2]
|
|
; push word[eax+4]
|
|
; cmp [catmull_flag],0
|
|
; je @f
|
|
; push [zz2]
|
|
; @@:
|
|
; movzx eax,[point_index2] ; env_map - points color list
|
|
; shl eax,1 ; each color as word, 0x00rr00gg00bb..
|
|
; lea eax,[eax*3+bumpmap]
|
|
; push word[eax]
|
|
; push word[eax+2]
|
|
; push word[eax+4]
|
|
; cmp [catmull_flag],0
|
|
; je @f
|
|
; push [zz1]
|
|
; @@:
|
|
; movzx eax,[point_index1] ; env_map - points color list
|
|
; shl eax,1 ; each color as word, 0xrr00gg00bb00..
|
|
; lea eax,[eax*3+bumpmap]
|
|
; push word[eax]
|
|
; push word[eax+2]
|
|
; push word[eax+4]
|
|
; jmp .both_draw
|
|
|
|
.grd_tex: ; smooth shading + texture
|
|
push ebp
|
|
mov ebp,esp
|
|
sub esp,4
|
|
push ebp
|
|
|
|
mov esi,[point_index3] ; tex map coords
|
|
shl esi,2
|
|
add esi,tex_points
|
|
push dword[esi] ; texture coords as first
|
|
mov esi,[point_index2] ; group of parameters
|
|
shl esi,2
|
|
add esi,tex_points
|
|
push dword[esi]
|
|
mov esi,[point_index1]
|
|
shl esi,2
|
|
add esi,tex_points
|
|
push dword[esi]
|
|
|
|
mov esi,point_index3
|
|
mov ecx,3
|
|
|
|
.aagain_grd_draw:
|
|
|
|
lea edx,[ecx*3]
|
|
push word[edx*2+xx1-2] ; zz1 ,2 ,3
|
|
fninit
|
|
mov eax,dword[esi]
|
|
shl eax,2
|
|
lea eax,[eax*3] ;+point_normals_rotated]
|
|
add eax,[points_normals_rot_ptr]
|
|
; texture x=(rotated point normal -> x * 255)+255
|
|
fld dword[eax] ; x cooficient of normal vector
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp1] ;word[ebp-2]
|
|
; texture y=(rotated point normal -> y * 255)+255
|
|
fld dword[eax+4] ; y cooficient
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp2] ;word[ebp-4]
|
|
|
|
mov eax,[temp2] ;word[ebp-4]
|
|
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]
|
|
add eax,color_map
|
|
mov eax,dword[eax]
|
|
|
|
ror eax,16 ; eax -0xxxrrggbb -> 0xggbbxxrr
|
|
xor ah,ah
|
|
push ax ;r
|
|
rol eax,8 ; eax-0xggbb00rr -> 0xbb00rrgg
|
|
xor ah,ah
|
|
push ax ;g
|
|
shr eax,24
|
|
push ax ;b
|
|
|
|
sub esi,4
|
|
dec cx
|
|
jnz .aagain_grd_draw
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov edx,texmap
|
|
mov esi,[Zbuffer_ptr]
|
|
|
|
call tex_plus_grd_triangle
|
|
|
|
pop ebp
|
|
mov esp,ebp
|
|
pop ebp
|
|
jmp .end_draw
|
|
|
|
.two_tex:
|
|
push [Zbuffer_ptr]
|
|
|
|
push word[zz3]
|
|
push word[zz2]
|
|
push word[zz1]
|
|
|
|
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]
|
|
|
|
mov esi,point_index1 ; env coords
|
|
sub esp,12
|
|
mov edi,esp
|
|
mov ecx,3
|
|
@@:
|
|
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
|
|
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]
|
|
and word[edi+2],0x7fff ; some objects need it
|
|
add edi,4
|
|
add esi,4
|
|
loop @b
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,texmap
|
|
mov edx,envmap
|
|
|
|
call two_tex_triangle_z
|
|
jmp .end_draw
|
|
|
|
.bump_tex:
|
|
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]
|
|
|
|
push dword texmap
|
|
|
|
push [Zbuffer_ptr]
|
|
xor edi,edi
|
|
|
|
push word[zz3]
|
|
push word[zz2]
|
|
push word[zz1]
|
|
|
|
mov esi,point_index1 ; env coords
|
|
sub esp,12
|
|
mov edi,esp
|
|
mov ecx,3
|
|
@@:
|
|
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
|
|
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]
|
|
|
|
add edi,4
|
|
add esi,4
|
|
loop @b
|
|
|
|
; push dword 1 shl 16 + 1 ; emap coords
|
|
; push dword 127 shl 16 + 1
|
|
; push dword 127 shl 16 + 127
|
|
|
|
mov esi,[point_index3] ; bump 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]
|
|
|
|
; push dword 1 shl 16 + 127
|
|
; push dword 127 shl 16 + 127
|
|
; push dword 1 shl 16 + 1 ; bump coords
|
|
|
|
mov eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,envmap
|
|
mov edx,bumpmap
|
|
|
|
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]
|
|
; texture ;x=(rotated point normal -> x * 255)+255
|
|
fld dword[eax] ; x cooficient of normal vector
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp1] ;word[esp-2]
|
|
; texture y=(rotated point normal -> y * 255)+255
|
|
fld dword[eax+4] ; y cooficient
|
|
fimul [correct_tex]
|
|
fiadd [correct_tex]
|
|
fistp [temp2] ;word[esp-4]
|
|
|
|
mov eax,[temp2] ;word[esp-4]
|
|
mov ebx,[temp1] ;word[esp-2]
|
|
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
|
|
@@:
|
|
|
|
if Ext >= SSE3
|
|
.r_phg:
|
|
|
|
|
|
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 eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,[Zbuffer_ptr]
|
|
|
|
call real_phong_tri_z
|
|
|
|
jmp .end_draw
|
|
|
|
.glass:
|
|
|
|
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 eax,dword[xx1]
|
|
ror eax,16
|
|
mov ebx,dword[xx2]
|
|
ror ebx,16
|
|
mov ecx,dword[xx3]
|
|
ror ecx,16
|
|
mov edi,[screen_ptr]
|
|
mov esi,[Zbuffer_ptr]
|
|
|
|
call glass_tri
|
|
|
|
jmp .end_draw
|
|
end if
|
|
|
|
|
|
|
|
|
|
.end_draw:
|
|
pop esi
|
|
add esi,12
|
|
|
|
pop ecx
|
|
sub ecx,1
|
|
|
|
jnz .again_dts
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
draw_handlers:
|
|
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
.counter equ ebp-16
|
|
.xres3m18 equ ebp-8
|
|
.xres2m12 equ ebp-12
|
|
|
|
|
|
; init counter
|
|
sub esp,12
|
|
push dword 0
|
|
|
|
movzx eax,word[size_x_var]
|
|
cmp [dr_flag],12
|
|
jge @f
|
|
lea ebx,[eax*3]
|
|
sub ebx,18
|
|
add eax,eax
|
|
sub eax,12
|
|
mov [.xres3m18],ebx
|
|
mov [.xres2m12],eax
|
|
jmp .f
|
|
@@:
|
|
lea ebx,[eax*4]
|
|
sub ebx,4*6
|
|
add eax,eax
|
|
sub eax,3*4
|
|
mov [.xres3m18],ebx
|
|
mov [.xres2m12],eax
|
|
.f:
|
|
|
|
|
|
|
|
mov esi,[points_translated_ptr]
|
|
.loop:
|
|
push esi
|
|
; DO culling AT FIRST
|
|
cmp [culling_flag],1 ; (if culling_flag = 1)
|
|
jne .no_culling
|
|
mov edi,[.counter] ; *********************************
|
|
lea edi,[edi*3]
|
|
shl edi,2
|
|
add edi,[points_normals_rot_ptr]
|
|
mov eax,[edi+8] ; check sign of z coof
|
|
shr eax,31
|
|
cmp eax,1
|
|
jnz .skip
|
|
.no_culling:
|
|
mov eax,[esi]
|
|
movzx ebx,ax ; ebx - x
|
|
shr eax,16 ; eax - y
|
|
cmp eax,4 ; check if markers not exceedes screen
|
|
jle .skip
|
|
cmp ebx,4
|
|
jle .skip
|
|
movzx edx,word[size_x_var]
|
|
sub edx,4
|
|
movzx ecx,word[size_y_var]
|
|
sub ecx,4
|
|
cmp ebx,edx
|
|
jge .skip
|
|
cmp eax,ecx
|
|
jge .skip
|
|
|
|
movzx edx,word[size_x_var]
|
|
; sub ebx,3
|
|
; sub eax,3
|
|
imul eax,edx
|
|
add eax,ebx
|
|
push eax
|
|
lea edi,[eax*3]
|
|
cmp [dr_flag],12
|
|
jl @f
|
|
add edi,[esp]
|
|
@@:
|
|
add esp,4
|
|
lea eax,[eax*2]
|
|
; draw bar 6x6
|
|
add edi,[screen_ptr]
|
|
add eax,dword[vertices_index_ptr]
|
|
|
|
|
|
|
|
|
|
mov edx,[.counter]
|
|
mov ecx,6
|
|
|
|
.oop:
|
|
push ecx
|
|
mov ecx,6
|
|
|
|
.do:
|
|
mov word[edi],0x0000 ;ax
|
|
mov byte[edi+2],0xff ;al
|
|
mov word[eax],dx
|
|
add eax,2
|
|
cmp [dr_flag],12
|
|
jl @f
|
|
add edi,4
|
|
loop .do
|
|
jmp .ad
|
|
@@:
|
|
add edi,3
|
|
loop .do
|
|
.ad:
|
|
add edi,[.xres3m18]
|
|
add eax,[.xres2m12]
|
|
pop ecx
|
|
loop .oop
|
|
|
|
.skip:
|
|
pop esi
|
|
add esi,6
|
|
inc dword[.counter]
|
|
mov ecx,[.counter]
|
|
cmp ecx,[points_count_var]
|
|
jng .loop
|
|
|
|
mov esp,ebp
|
|
pop ebp
|
|
|
|
ret
|
|
|
|
|
|
fill_Z_buffer:
|
|
mov eax,0x70000000
|
|
cmp [dr_flag],12
|
|
jne @f
|
|
mov eax,60000.1
|
|
@@:
|
|
mov edi,[Zbuffer_ptr]
|
|
movzx ecx,word[size_x_var]
|
|
movzx ebx,word[size_y_var]
|
|
imul ecx,ebx
|
|
if Ext>=SSE2
|
|
movd xmm0,eax
|
|
shufps xmm0,xmm0,0
|
|
push ecx
|
|
mov ecx,edi
|
|
and edi,0xffffff00
|
|
and ecx,0x000000ff
|
|
mov edx,ecx
|
|
rep stosd
|
|
pop ecx
|
|
sub ecx,edx
|
|
@@:
|
|
movaps [edi],xmm0
|
|
movaps [edi+16],xmm0
|
|
movaps [edi+32],xmm0
|
|
movaps [edi+48],xmm0
|
|
add edi,64
|
|
sub ecx,16
|
|
jnc @b
|
|
else
|
|
rep stosd
|
|
end if
|
|
ret
|
|
|
|
read_tp_variables: ; read [triangles_count_var] and [points_count_var]
|
|
; and allocate memory
|
|
xor ebx,ebx
|
|
xor ebp,ebp
|
|
mov [points_count_var],ebx
|
|
mov [triangles_count_var],ebx
|
|
if USE_LFN = 0
|
|
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 eax,dword[esi+2]
|
|
cmp eax,[fsize] ;This must tell the length
|
|
je @f
|
|
xor eax,eax
|
|
ret
|
|
@@:
|
|
add eax,esi
|
|
mov [EndFile],eax ;
|
|
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],word 3D3Dh
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
add esi,6
|
|
.find4k:
|
|
cmp [esi],word 4000h
|
|
je @f
|
|
add esi,[esi+2]
|
|
cmp esi,[EndFile]
|
|
jc .find4k
|
|
jmp .exit
|
|
@@:
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],byte 0
|
|
je @f
|
|
inc esi
|
|
jmp @b
|
|
@@:
|
|
inc esi
|
|
@@:
|
|
cmp [esi],word 4100h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],word 4110h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
movzx ecx,word[esi+6]
|
|
add [points_count_var],ecx
|
|
|
|
mov edx,ecx
|
|
add esi,8
|
|
@@:
|
|
|
|
add ebx,6
|
|
add esi,12
|
|
; dec ecx
|
|
loop @b
|
|
@@:
|
|
|
|
@@:
|
|
cmp [esi],word 4120h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
movzx ecx,word[esi+6]
|
|
add [triangles_count_var],ecx
|
|
add esi,8
|
|
|
|
@@:
|
|
add esi,8
|
|
dec ecx
|
|
jnz @b
|
|
; xor ecx,ecx
|
|
add ebp,edx
|
|
jmp .find4k
|
|
mov eax,-1 ;<---mark if OK
|
|
.exit:
|
|
ret
|
|
|
|
read_from_file:
|
|
fninit
|
|
mov edi,[triangles_ptr]
|
|
xor ebx,ebx
|
|
xor ebp,ebp
|
|
mov [points_count_var],0
|
|
mov [triangles_count_var],0
|
|
if USE_LFN = 0
|
|
mov esi,SourceFile
|
|
else
|
|
mov esi,[fptr]
|
|
end if
|
|
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]
|
|
; jne .exit
|
|
|
|
add eax,esi
|
|
mov [EndFile],eax ;
|
|
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],word 3D3Dh
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
add esi,6
|
|
.find4k:
|
|
cmp [esi],word 4000h
|
|
je @f
|
|
add esi,[esi+2]
|
|
cmp esi,[EndFile]
|
|
jc .find4k
|
|
jmp .exit
|
|
@@:
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],byte 0
|
|
je @f
|
|
inc esi
|
|
jmp @b
|
|
@@:
|
|
inc esi
|
|
@@:
|
|
cmp [esi],word 4100h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
add esi,6
|
|
@@:
|
|
cmp [esi],word 4110h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
movzx ecx,word[esi+6]
|
|
add [points_count_var],ecx
|
|
|
|
mov edx,ecx
|
|
add esi,8
|
|
@@:
|
|
push edi
|
|
mov edi,[points_ptr]
|
|
push dword[esi+0]
|
|
pop dword[edi+ebx*2+0]
|
|
push dword[esi+4]
|
|
pop dword[edi+ebx*2+4]
|
|
push dword[esi+8]
|
|
pop dword[edi+ebx*2+8]
|
|
pop edi
|
|
|
|
add ebx,6
|
|
add esi,12
|
|
dec ecx
|
|
jnz @b
|
|
@@:
|
|
; mov dword[points+ebx],-1
|
|
push edi
|
|
mov edi,[points_ptr]
|
|
mov dword[edi+ebx*2],-1 ; end mark (not always in use)
|
|
pop edi
|
|
@@:
|
|
cmp [esi],word 4120h
|
|
je @f
|
|
add esi,[esi+2]
|
|
jmp @b
|
|
@@:
|
|
movzx ecx,word[esi+6]
|
|
add [triangles_count_var],ecx
|
|
add esi,8
|
|
;mov edi,triangles
|
|
@@:
|
|
movzx eax,word[esi]
|
|
stosd
|
|
movzx eax,word[esi+2]
|
|
stosd
|
|
movzx eax,word[esi+4]
|
|
stosd
|
|
add dword[edi-12],ebp
|
|
add dword[edi-8],ebp
|
|
add dword[edi-4],ebp
|
|
add esi,8
|
|
dec ecx
|
|
jnz @b
|
|
add ebp,edx
|
|
jmp .find4k
|
|
mov eax,-1 ;<---mark if OK
|
|
.exit:
|
|
mov dword[edi],-1
|
|
ret
|
|
|
|
alloc_mem_for_tp:
|
|
mov eax, 68
|
|
cmp [re_alloc_flag],1
|
|
jz @f
|
|
mov ebx, 12
|
|
jmp .alloc
|
|
@@:
|
|
mov ebx,20
|
|
.alloc:
|
|
|
|
mov ecx,[triangles_count_var]
|
|
add ecx,20
|
|
lea ecx, [ecx*3]
|
|
shl ecx,2
|
|
mov edx,[triangles_ptr]
|
|
int 0x40 ; -> allocate memory to triangles
|
|
mov [triangles_ptr], eax ; -> eax = pointer to allocated mem
|
|
|
|
; ststic memory
|
|
|
|
mov eax, 68
|
|
mov ecx, [triangles_count_var]
|
|
lea ecx, [3+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]
|
|
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]
|
|
shl ecx, 2
|
|
mov edx,[points_normals_rot_ptr]
|
|
int 0x40
|
|
mov [points_normals_rot_ptr], eax
|
|
|
|
mov eax, 68
|
|
mov edx,[points_ptr]
|
|
int 0x40
|
|
mov [points_ptr], eax
|
|
|
|
mov eax, 68
|
|
mov edx,[points_rotated_ptr]
|
|
int 0x40
|
|
mov [points_rotated_ptr], eax
|
|
|
|
mov eax, 68
|
|
mov ecx, [points_count_var]
|
|
inc ecx
|
|
shl ecx, 3
|
|
mov edx,[points_translated_ptr]
|
|
int 0x40
|
|
mov [points_translated_ptr], eax
|
|
ret
|
|
|
|
|
|
|
|
read_from_disk:
|
|
if USE_LFN
|
|
;-
|
|
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 dword[ebx],0
|
|
; int 0x40 ; -> read file
|
|
;load kpacked files by Leency
|
|
mov eax,68
|
|
mov ebx,27
|
|
mov ecx,file_name
|
|
int 0x40
|
|
|
|
mov [fsize],edx
|
|
mov [file_info+16],eax
|
|
|
|
test eax,eax
|
|
jnz .open_opened_well
|
|
mov eax,6 ;otherwise => failed
|
|
jmp @f
|
|
.open_opened_well:
|
|
xor eax,eax
|
|
@@:
|
|
else
|
|
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:
|
|
mov esi,I_Param
|
|
cmp dword[esi],0
|
|
je .end
|
|
cmp byte[esi],'/'
|
|
je .copy
|
|
mov edi,esi
|
|
mov ecx,25 ; 25 - would be enought
|
|
repe scasb
|
|
jne .end
|
|
dec edi
|
|
mov esi,edi
|
|
.copy:
|
|
mov edi,file_name
|
|
mov ecx,50
|
|
rep movsd
|
|
.end:
|
|
ret
|
|
buttons: ; draw some buttons (all but navigation and close )
|
|
mov edi,menu
|
|
.again:
|
|
mov eax,8 ; function 8 : define and draw button
|
|
mov bx,[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(10)*65536+62 ; [x start] *65536 + [x size]
|
|
movzx ecx,byte[edi] ; button id = position+2
|
|
sub cl,2
|
|
lea ecx,[ecx*5]
|
|
lea ecx,[ecx*3]
|
|
add ecx,25
|
|
shl ecx,16
|
|
add ecx,12
|
|
movzx edx,byte[edi] ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
; BUTTON LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,byte[edi]
|
|
sub bl,2 ; button id, according to position
|
|
lea ebx,[ebx*3]
|
|
lea ebx,[ebx*5]
|
|
mov cx,[size_x_var]
|
|
shl ecx,16
|
|
add ebx,ecx
|
|
add ebx,(12)*65536+28 ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
lea edx,[edi+1] ; pointer to text beginning
|
|
mov esi,10 ; text length
|
|
int 0x40
|
|
cmp byte[edi+11],255 ; if max_flag=255
|
|
je @f ; skip
|
|
; flag description
|
|
; mov eax,4 ; function 4 : write text to window
|
|
; movzx ebx,byte[edi]
|
|
; sub bl,2
|
|
; lea ebx,[ebx*3]
|
|
; lea ebx,[ebx*5]
|
|
; add ebx,(SIZE_X+12+70)*65536+28 ; [x start] *65536 + [y start]
|
|
add ebx,70*65536
|
|
; mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
movzx edx,byte[edi+12] ; current flag
|
|
shl edx,2 ; * 4 = text length
|
|
add edx,dword[edi+13] ; pointer to text beginning
|
|
mov esi,4 ; text length
|
|
int 0x40
|
|
|
|
@@:
|
|
add edi,17
|
|
cmp byte[edi],-1
|
|
jnz .again
|
|
ret
|
|
; *********************************************
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
; *********************************************
|
|
draw_window:
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,1 ; 1, start of draw
|
|
int 0x40
|
|
|
|
; DRAW WINDOW
|
|
mov eax,0 ; function 0 : define and draw window
|
|
mov bx,[x_start]
|
|
shl ebx,16
|
|
mov cx,[y_start]
|
|
shl ecx,16
|
|
;ebx - [x start] *65536 + [x size]
|
|
;ecx - [y start] *65536 + [y size]
|
|
mov bx,[size_x_var]
|
|
add bx,115
|
|
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
|
|
|
|
; ADD VECTOR LABEL ; add vector buttons - 30 ++
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(12)*65536+(168+15*(13+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelvector ; pointer to text beginning
|
|
mov esi,labelvectorend-labelvector ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
; VECTOR Y- BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,30*65536+20 ; [x start] *65536 + [x size]
|
|
mov ecx,(165+15*(14+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,30 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR Y- LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(32)*65536+(168+15*(14+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelyminus ; pointer to text beginning
|
|
mov esi,labelyminusend-labelyminus ; text length
|
|
cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
; VECTOR Z+ BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(51)*65536+21 ; [x start] *65536 + [x size]
|
|
mov ecx,(165+15*(14+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,31 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR Z+ LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(53)*65536+(168+15*(14+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelzplus ; pointer to text beginning
|
|
mov esi,labelzplusend-labelzplus ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
|
|
int 0x40
|
|
; VECTOR x- BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(10)*65536+21 ; [x start] *65536 + [x size]
|
|
mov ecx,(165+15*(15+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,32 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR x- LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(12)*65536+(168+15*(15+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelxminus ; pointer to text beginning
|
|
mov esi,labelxminusend-labelxminus ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
; VECTOR x+ BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(51)*65536+21 ; [x start] *65536 + [x size]
|
|
mov ecx,(165+15*(15+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,33 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR x+ LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(53)*65536+(168+15*(15+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelxplus ; pointer to text beginning
|
|
mov esi,labelxplusend-labelxplus ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
; VECTOR z- BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(10)*65536+62-41 ; [x start] *65536 + [x size]
|
|
mov ecx,(25+140+15*(16+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,34 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR z- LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(12)*65536+(168+15*(16+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelzminus ; pointer to text beginning
|
|
mov esi,labelzminusend-labelzminus ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
;VECTOR Y+ BUTTON
|
|
mov eax,8 ; function 8 : define and draw button
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(10+20)*65536+20 ; [x start] *65536 + [x size]
|
|
mov ecx,(165+15*(16+.Y_ADD))*65536+12 ; [y start] *65536 + [y size]
|
|
mov edx,35 ; button id
|
|
mov esi,0x6688dd ; button color RRGGBB
|
|
int 0x40
|
|
;VECTOR Y+ LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
movzx ebx,word[size_x_var]
|
|
shl ebx,16
|
|
add ebx,(32)*65536+(168+15*(16+.Y_ADD)) ; [x start] *65536 + [y start]
|
|
mov ecx,0x00ddeeff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelyplus ; pointer to text beginning
|
|
mov esi,labelyplusend-labelyplus ; text length
|
|
; cmp [move_flag],2
|
|
; jne @f
|
|
; add edx,navigation_size
|
|
; @@:
|
|
int 0x40
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,2 ; 2, end of draw
|
|
int 0x40
|
|
ret
|
|
|
|
|
|
; DATA AREA ************************************
|
|
|
|
include 'DATA.INC'
|
|
align 16
|
|
MEM_END:
|