WebSVN – Kolibri OS – Diff – /programs/demos/3dtcub10/trunk/3DTCUB10.ASM


;
; 9 Ver Screen saver
; 5 Ver 24 bit texture.
; 23/8/2004
; Pavlushin Evgeni 3d cube screen saver
; mail: waptap@mail.ru       site: www.deck4.narod.ru
;
; This programm develop on sample text3d to Mikolaj Felix 25/5/2001
; mfelix@polbox.com
;
 
use32
               org     0x0
               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     0x200000                ; memory for app
               dd     0x200000                ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
 
include 'lang.inc'
include '..\..\..\macros.inc'
MAX_DEGS equ 512 ;quantity of angels 2^n.Minimize for speedup
MAX_POINTS equ 8 ;quantity of points
MAX_FACES equ 6  ;quantity of points
 
START:
    finit
    call draw_window
    call clear_screen
    call init_sincos
 
still:
    mov eax,23  ; wait for system event with 2 ms timeout
    mov ebx,2   ; wait 2 ms, then continue
    mcall
 
;    mov eax,11 ;If you want maximum speed! :)
;    mcall
 
    dec  eax                  ; window redraw request ?
    je   red
    dec  eax                  ; key in buffer ?
    je   key
    dec  eax                  ; button in buffer ?
    je   button
 
main_loop:
 call fade_texture
 
	mov esi,cube
	mov edi,cube_rotated
	mov ecx,MAX_POINTS*3
copy_object:
 fild word [esi]
 fstp dword [edi]
 add esi,2
 add edi,4
 dec ecx
 jnz copy_object
 
 mov esi,angle_x
 mov edi,cube_rotated
 mov ecx,MAX_POINTS
 call rotate_points
	
 mov esi,cube_rotated
 mov edi,coord2d
 mov ecx,MAX_POINTS
 call translate_points
 
 call draw_textured_faces
 call clear_screen_buffer
 
 add [angle_x],1
 add [angle_y],3
 add [angle_z],1
 
 jmp still
 
red:
     call draw_window
     jmp still
key:
     mov eax,2
     jmp exit
button:
     mov eax,17
     mcall
     cmp ah,1
     jne still
exit:
     mov eax,-1
     mcall
 
;Draw window
draw_window:
    mov eax,12  ;Start
    mov ebx,1
    mcall
 
    mov eax,0   ;Draw window
    mov ebx,0*65536+(799) ;x start*65536+x size
    mov ecx,0*65536+(599) ;y start*65536+y size
    mov edx,0x00000000         ;0x03 use skinned window
    mcall
 
    call clear_screen
 
    mov eax,12  ;End
    mov ebx,2
    mcall
    ret
 
head_label: db "3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR MENUETOS. USE "
            db "800x600 SCREEN MODE FROM VIEW. PRESS ANY KEY FOR EXIT"
hl_end:
 
;FADE IN FADE OUT TEXTURE
 
x_step db 0
x_num  db 1
 
fade_texture:
 mov ecx,0
loox:
 mov al,[file_texture+ecx]
 mov [texture+ecx],al
 inc ecx
 cmp ecx,128*128*3
 jnae loox
 
 mov ecx,0
loox2:
 mov al,[file_texture+ecx]
 cmp [x_step],al
 jae xxx
 sub al,[x_step]
 jmp nnn
xxx:
 mov al,0
nnn:
 mov [texture+ecx],al
 inc ecx
 cmp ecx,128*128*3
 jnae loox2
 
 cmp [x_step],255
 jne no_max
 mov [x_num],-1
no_max:
 cmp [x_step],0
 jne no_min
 mov [x_num],1
no_min:
 mov al,[x_num]
 add [x_step],al
 ret
 
; Clear Screen
clear_screen:
 mov eax,13
 mov ebx,0*65536+800
 mov ecx,0*65536+600
 mov edx,0
 mcall
 
 mov eax,4   ;Out Text
 mov ebx,8*65536+8          ;x start*65536+y start
 mov ecx,0x00ffffff         ;color White
 mov edx,head_label
 mov esi,hl_end-head_label
 mcall
 ret
 
clear_screen_buffer:
 mov ebx,scrbuf
 mov ecx,800*65536+(600-40)  ;sub 40 for antiflickering title
 mov edx,0*65536+40
 mov eax,7
 mcall
 
 mov eax,4   ;Out Text
 mov ebx,8*65536+580          ;x start*65536+y start
 mov ebp,[n_step]
 shl ebp,16
 sub ebx,ebp
 mov ecx,0x0000ff00         ;color White
 mov edx,move_text
 add edx,[step]
 mov esi,130 ;mt_end-move_text
 mcall
 
 inc [n_step]
 cmp [n_step],6
 jna t_ok
 mov [n_step],0
 inc [step]
 cmp [step],mt_end-move_text-130
 jng t_ok
 mov [step],0
t_ok:
 
 mov edi,scrbuf
 mov eax,0  ;black background
 mov ecx,800*600*3/4 ; 16000
 cld
 rep stosd
 ret
 
n_step dd 0
step dd 0
 
move_text: db "                                            "
           db "                                            "
           db "                                            "
           db "***** 3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR "
           db "MENUET OS. SET 800x600 SCREEN MODE FROM VIEW THIS SCREEN "
           db "SAVER *****                                        "
           db "SITE OF THE RUSSIAN DEVELOPERS TO MENUETOS: "
           db "www.menuet.narod.ru                         "
           db "RUSSIAN MENUET APLICATION ARCHIVE PAGE ON: "
           db "www.meosfiles.narod.ru                      "
           db "AUTOR OF THIS SCREEN SAVER Pavlushin Evgeni "
           db "MY SITE: www.deck4.narod.ru (Slow update)   "
           db "AND MAIL BOX: waptap@mail.ru                "
           db "THANK YOU FOR USE!                          "
           db "                                            "
           db "                                            "
           db "                                            "
mt_end:
 
 
;include graphlib.asm Mikolaj Felix 9/12/2000 mfelix@polbox.com
;Draw textured faces proc
 
@@rx1 dw 0 ;equ [bp-2]
@@ry1 dw 0 ;equ [bp-4]
@@rx2 dw 0 ;equ [bp-6]
@@ry2 dw 0 ;equ [bp-8]
@@rx3 dw 0 ;equ [bp-10]
@@ry3 dw 0 ;equ [bp-12]
@@rx4 dw 0 ;equ [bp-14]
@@ry4 dw 0 ;equ [bp-16]
 
draw_textured_faces:
	
 mov esi,link
 mov ecx,MAX_FACES
dtf_loop:
 push ecx
 
 xor ebx,ebx
 mov bl,byte [esi]		; point 1
 shl bx,2
 mov eax,dword [coord2d+bx] ;COPY 1 FOURANGLE POINT
 mov dword [@@rx1],eax
 
 xor ebx,ebx
 mov bl,byte [esi+1]		; point 2
 shl bx,2
 mov eax,dword [coord2d+bx] ;COPY 2 FOURANGLE POINT
 mov dword [@@rx2],eax
 
 xor ebx,ebx
 mov bl,byte [esi+2]		; point 3
 shl bx,2
 mov eax,dword [coord2d+bx] ;COPY 3 FOURANGLE POINT
 mov dword [@@rx3],eax
 
 xor bh,bh			; point 4
 mov bl,byte [esi+3]
 shl bx,2
 mov eax,dword [coord2d+bx] ;COPY 4 FOURANGLE POINT
 mov dword [@@rx4],eax
 
 mov ax,[@@ry1]
 sub ax,[@@ry3]
 mov bx,[@@rx2]
 sub bx,[@@rx1]
 imul bx
 shl edx,16
 mov dx,ax
 push edx
 mov ax,[@@rx1]
 sub ax,[@@rx3]
 mov bx,[@@ry2]
 sub bx,[@@ry1]
 imul bx
 shl edx,16
 mov dx,ax
 pop ebx
 sub ebx,edx			; normal_z = (y1-y3)*(x2-x1)-(x1-x3)*(y2-y1)
 or ebx,ebx
 jl dtf_next_face		; normal_z < 0	
 
 ; FIRST PICE OF FOUR ANGLE
 
 ; Set 3 triangel puts for texture ycoord*65536+xcoord
 mov dword [@@tex_x3],127*65536+127 ;3 point
 mov dword [@@tex_x2],0*65536+127   ;2 point
 mov dword [@@tex_x1],0*65536+0     ;1 point
 ; Set texture bitmap offset
 mov [@@tex_off],texture
 ; Set 3 triangel puts coordinates
 mov eax,dword [@@rx3]
 mov dword [@@x3],eax
 mov eax,dword [@@rx2]
 mov dword [@@x2],eax
 mov eax,dword [@@rx1]
 mov dword [@@x1],eax
 call textured_triangle
 
 ; SECOND PICE OF FOUR ANGLE
 
 ; Set 3 triangel puts for texture ycoord*65536+xcoord
 mov dword [@@tex_x3],127*65536+0   ;3 point
 mov dword [@@tex_x2],127*65536+127 ;2 point
 mov dword [@@tex_x1],0*65536+0     ;1 point
 ; Set texture bitmap offset
 mov [@@tex_off],texture
 ; Set 3 triangel puts coordinates
 mov eax,dword [@@rx4]
 mov dword [@@x3],eax
 mov eax,dword [@@rx3]
 mov dword [@@x2],eax
 mov eax,dword [@@rx1]
 mov dword [@@x1],eax
 call textured_triangle
 
dtf_next_face:
 add esi,4
 pop ecx
 dec ecx
 jnz dtf_loop
 ret
 
;include tex3.asm Mikolaj Felix 15/5/2001 mfelix@polbox.com
 
@@x1 dw 0 ;equ [bp+4]
@@y1 dw 0 ;equ [bp+6]
@@x2 dw 0 ;equ [bp+8]
@@y2 dw 0 ;equ [bp+10]
@@x3 dw 0 ;equ [bp+12]
@@y3 dw 0 ;equ [bp+14]
 
@@tex_off dd 0 ;equ [bp+16]
@@tex_x1 dw 0 ;equ [bp+18]
@@tex_y1 dw 0 ;equ [bp+20]
@@tex_x2 dw 0 ;equ [bp+22]
@@tex_y2 dw 0 ;equ [bp+24]
@@tex_x3 dw 0 ;equ [bp+26]
@@tex_y3 dw 0 ;equ [bp+28]
 
@@dx12 dw 0 ;equ [bp-2]
@@dx13 dw 0 ;equ [bp-4]
@@dx23 dw 0 ;equ [bp-6]
 
@@tex_dx12 dw 0 ;equ [bp-8]
@@tex_dy12 dw 0 ;equ [bp-10]
@@tex_dx13 dw 0 ;equ [bp-12]
@@tex_dy13 dw 0 ;equ [bp-14]
@@tex_dx23 dw 0 ;equ [bp-16]
@@tex_dy23 dw 0 ;equ [bp-18]
 
@@scan_x1 dw 0 ;equ [bp-20]
@@scan_y1 dw 0 ;equ [bp-22]
@@scan_x2 dw 0 ;equ [bp-24]
@@scan_y2 dw 0 ;equ [bp-26]
 
 
textured_triangle:
 
	mov ax,[@@y1]
	cmp ax,[@@y3]
	jb tt_check1
 
	xchg ax,[@@y3]
	mov [@@y1],ax
 
	mov ax,[@@x1]
	xchg ax,[@@x3]
	mov [@@x1],ax
 
	mov ax,[@@tex_y1]
	xchg ax,[@@tex_y3]
	mov [@@tex_y1],ax
 
	mov ax,[@@tex_x1]
	xchg ax,[@@tex_x3]
	mov [@@tex_x1],ax
tt_check1:
	mov ax,[@@y2]
	cmp ax,[@@y3]
	jb tt_check2
 
	xchg ax,[@@y3]
	mov [@@y2],ax
 
	mov ax,[@@x2]
	xchg ax,[@@x3]
	mov [@@x2],ax
 
	mov ax,[@@tex_y2]
	xchg ax,[@@tex_y3]
	mov [@@tex_y2],ax
 
	mov ax,[@@tex_x2]
	xchg ax,[@@tex_x3]
	mov [@@tex_x2],ax
tt_check2:
	mov ax,[@@y1]
	cmp ax,[@@y2]
	jb tt_check3
 
	xchg ax,[@@y2]
	mov [@@y1],ax
 
	mov ax,[@@x1]
	xchg ax,[@@x2]
	mov [@@x1],ax
 
	mov ax,[@@tex_y1]
	xchg ax,[@@tex_y2]
	mov [@@tex_y1],ax
 
	mov ax,[@@tex_x1]
	xchg ax,[@@tex_x2]
	mov [@@tex_x1],ax
tt_check3:
 
	mov bx,[@@y2]
	sub bx,[@@y1]
	jnz tt_dx12_make
 
	mov word [@@dx12],0
	mov word [@@tex_dx12],0
	mov word [@@tex_dy12],0
	jmp tt_dx12_done
tt_dx12_make:
	mov ax,[@@x2]
	sub ax,[@@x1]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx12],ax			; dx12 = (x2-x1)/(y2-y1)
 
	mov ax,[@@tex_x2]
	sub ax,[@@tex_x1]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dx12],ax		; tex_dx12 = (tex_x2-tex_x1)/(y2-y1)
 
	mov ax,[@@tex_y2]
	sub ax,[@@tex_y1]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dy12],ax		; tex_dy12 = (tex_y2-tex_y1)/(y2-y1)
tt_dx12_done:
 
	mov bx,[@@y3]
	sub bx,[@@y1]
	jnz tt_dx13_make
 
	mov word [@@dx13],0
	mov word [@@tex_dx13],0
	mov word [@@tex_dy13],0
	jmp tt_dx13_done
tt_dx13_make:
	mov ax,[@@x3]
	sub ax,[@@x1]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx13],ax			; dx13 = (x3-x1)/(y3-y1)
 
	mov ax,[@@tex_x3]
	sub ax,[@@tex_x1]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dx13],ax		; tex_dx13 = (tex_x3-tex_x1)/(y3-y1)
 
	mov ax,[@@tex_y3]
	sub ax,[@@tex_y1]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dy13],ax		; tex_dy13 = (tex_y3-tex_x1)/(y3-y1)
tt_dx13_done:
 
	mov bx,[@@y3]
	sub bx,[@@y2]
	jnz tt_dx23_make
 
	mov word [@@dx23],0
	mov word [@@tex_dx23],0
	mov word [@@tex_dy23],0
	jmp tt_dx23_done
tt_dx23_make:
	mov ax,[@@x3]
	sub ax,[@@x2]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx23],ax			; dx23 = (x3-x2)/(y3-y2)
 
	mov ax,[@@tex_x3]
	sub ax,[@@tex_x2]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dx23],ax		; tex_dx23 = (tex_x3-tex_x2)/(y3-y2)
 
	mov ax,[@@tex_y3]
	sub ax,[@@tex_y2]
	shl ax,7
	cwd
	idiv bx
	mov [@@tex_dy23],ax		; tex_dy23 = (tex_y3-tex_y2)/(y3-y2)
tt_dx23_done:
 
 
	mov ax,[@@x1]
	shl ax,7
	mov bx,ax
	mov cx,[@@y1]
 
	mov dx,[@@tex_x1]
	shl dx,7
	mov [@@scan_x1],dx
	mov [@@scan_x2],dx
	mov dx,[@@tex_y1]
	shl dx,7
	mov [@@scan_y1],dx
	mov [@@scan_y2],dx
tt_loop1:
 pushad
;	push ax
;	push bx
;	push cx
 
	mov dx,[@@scan_y2]
	shr dx,7
	mov [@@tex_ly2],dx ;push dx
	mov dx,[@@scan_x2]
	shr dx,7
	mov [@@tex_lx2],dx ;push dx
	mov dx,[@@scan_y1]
	shr dx,7
	mov [@@tex_ly1],dx ;push dx
	mov dx,[@@scan_x1]
	shr dx,7
	mov [@@tex_lx1],dx ;push dx
	mov ebp,dword [@@tex_off]  ;push word ptr @@tex_off
 mov [@@tex_loff],ebp
 
	mov [@@ly],cx ;push cx
	mov dx,bx
	shr dx,7
	mov [@@lx2],dx ;push dx
	mov dx,ax
	shr dx,7
	mov [@@lx1],dx ; push dx
	call textured_horizontal_line
 
;	pop cx
;	pop bx
;	pop ax
 popad
 
	mov dx,[@@tex_dx13]
	add [@@scan_x1],dx
	mov dx,[@@tex_dx12]
	add [@@scan_x2],dx
	mov dx,[@@tex_dy13]
	add [@@scan_y1],dx
	mov dx,[@@tex_dy12]
	add [@@scan_y2],dx
 
	add ax,[@@dx13]
	add bx,[@@dx12]
	inc cx
	cmp cx,[@@y2]
	jb tt_loop1
 
	mov bx,[@@x2]
	shl bx,7
	mov cx,[@@y2]
 
	mov dx,[@@tex_x2]
	shl dx,7
	mov [@@scan_x2],dx
	mov dx,[@@tex_y2]
	shl dx,7
	mov [@@scan_y2],dx
tt_loop2:
 
 pushad
;	push ax
;	push bx
;	push cx
 
	mov dx,[@@scan_y2]
	shr dx,7
	mov [@@tex_ly2],dx ;push dx
	mov dx,[@@scan_x2]
	shr dx,7
	mov [@@tex_lx2],dx ;push dx
	mov dx,[@@scan_y1]
	shr dx,7
	mov [@@tex_ly1],dx ;push dx
	mov dx,[@@scan_x1]
	shr dx,7
	mov [@@tex_lx1],dx ;push dx
	mov ebp,dword [@@tex_off]  ;push word ptr @@tex_off
 mov [@@tex_loff],ebp
 
	mov [@@ly],cx ;push cx
	mov dx,bx
	shr dx,7
	mov [@@lx2],dx ;push dx
	mov dx,ax
	shr dx,7
	mov [@@lx1],dx ; push dx
	call textured_horizontal_line
 
;	pop cx
;	pop bx
;	pop ax
 popad
 
	mov dx,[@@tex_dx13]
	add [@@scan_x1],dx
	mov dx,[@@tex_dx23]
	add [@@scan_x2],dx
	mov dx,[@@tex_dy13]
	add [@@scan_y1],dx
	mov dx,[@@tex_dy23]
	add [@@scan_y2],dx
 
	add ax,[@@dx13]
	add bx,[@@dx23]
	inc cx
	cmp cx,[@@y3]
	jb tt_loop2
	ret
 
@@lx1 dw 0 ;equ [bp+4]
@@lx2 dw 0 ;equ [bp+6]
@@ly dw 0 ;equ [bp+8]
 
@@tex_loff dd 0 ;equ [bp+10]
@@tex_lx1 dw 0 ;equ [bp+12]
@@tex_ly1 dw 0 ;equ [bp+14]
@@tex_lx2 dw 0 ;equ [bp+16]
@@tex_ly2 dw 0 ;equ [bp+18]
 
@@tex_ldx dw 0 ;equ [bp-2]
@@tex_ldy dw 0 ;equ [bp-4]
 
textured_horizontal_line:
 
	mov ax,[@@lx1]
	cmp ax,[@@lx2]
	je thl_quit
	jb thl_ok
 
	xchg ax,[@@lx2]
	mov [@@lx1],ax
 
	mov ax,[@@tex_lx1]
	xchg ax,[@@tex_lx2]
	mov [@@tex_lx1],ax
 
	mov ax,[@@tex_ly1]
	xchg ax,[@@tex_ly2]
	mov [@@tex_ly1],ax
thl_ok:
 
 ; Fast method
; mov edi,0
;	mov di,[@@ly]  ;edi = calculating start of line
;	mov ax,di
;	shl di,6  ;ly*64
;	shl ax,8  ;ly*256
;	add di,ax    ;di = (ly*64)+(ly*256)
;	add di,[@@lx1] ;di = ly*320+lx1
; mov eax,edi
; shl eax,1
; add edi,eax
; add edi,scrbuf
 
 ; Uneversal method
 movsx edi,[@@ly]
 mov eax,800   ;di = ly*320+lx1
 mul edi
 movsx ebx,[@@lx1]
 add eax,ebx ;[@@lx1]
 mov edi,3
 mul edi
 mov edi,eax
 add edi,scrbuf
 
	mov cx,[@@lx2]
	sub cx,[@@lx1]
 
	mov ax,[@@tex_lx2]
	sub ax,[@@tex_lx1]
	shl ax,7
	cwd
	idiv cx
	mov [@@tex_ldx],ax			; tex_dx = (tex_x2-tex_x1)/(x2-x1)
 
	mov ax,[@@tex_ly2]
	sub ax,[@@tex_ly1]
	shl ax,7
	cwd
	idiv cx
	mov [@@tex_ldy],ax			; tex_dy = (tex_y2-tex_y1)/(x2-x1)
 
	cld
	inc cx
	mov ax,[@@tex_lx1]
	shl ax,7
	mov bx,[@@tex_ly1]
	shl bx,7
 
thl_loop:
	mov dx,ax
	push bx
 
	and bx,0ff80h
	shr ax,7
	add bx,ax
 mov ebp,0
 mov bp,bx
 mov eax,ebp
 shl eax,1
 add ebp,eax
	add ebp,[@@tex_loff]
 
	mov al,byte [ebp+2]
	stosb
	mov al,byte [ebp+1]
	stosb
	mov al,byte [ebp]
	stosb
 
	pop bx
	mov ax,dx
 
	add ax,[@@tex_ldx]
	add bx,[@@tex_ldy]
	dec cx
	jnz thl_loop
thl_quit:
	ret
 
;include math3d_2.asm
; Mikolaj Felix 20/06/2001
; mfelix@polbox.com
 
;------------------------------------------------------------
;	ds:si	- offset to angles (int)
;	ds:di	- offset to array of 3d points
;	cx	- number of points
;------------------------------------------------------------
 
@@sin_x dd 0 ;equ dword ptr [bp-4]
@@cos_x dd 0 ;equ dword ptr [bp-8]
@@sin_y dd 0 ;equ dword ptr [bp-12]
@@cos_y dd 0 ;equ dword ptr [bp-16]
@@sin_z dd 0 ;equ dword ptr [bp-20]
@@cos_z dd 0 ;equ dword ptr [bp-24]
 
@@x equ dword [edi]
@@y equ dword [edi+4]
@@z equ dword [edi+8]
 
rotate_points:
 
	push edi
	mov edi,@@sin_x
	mov edx,3
rp_sin_cos:
	mov bx,word [esi]
	and bx,MAX_DEGS-1
	shl bx,2
	mov eax,dword [sintab+bx] 	
	mov dword [edi],eax
	mov eax,dword [costab+bx]
	mov dword [edi+4],eax
	add edi,8
	add esi,2
	dec edx
	jnz rp_sin_cos
	pop edi
 
rp_rotate:
	fld @@y
	fmul [@@cos_x]
	fld @@z
	fmul [@@sin_x]
	fsubp st1,st
	fld @@y
	fxch st1
	fstp @@y			; Yrotated = Cos (A)*Y - Sin (A)*Z
	fmul [@@sin_x]
	fld @@z
	fmul [@@cos_x]
	faddp st1,st
	fstp @@z			; Zrotated = Sin (A)*Y + Cos (A)*Z
	
	fld @@x
	fmul [@@cos_y]
	fld @@z
	fmul [@@sin_y]
	fsubp st1,st
	fld @@x
	fxch st1
	fstp @@x			; Xrotated = Cos (A)*X - Sin (A)*Z
	fmul [@@sin_y]
	fld @@z
	fmul [@@cos_y]
	faddp st1,st
	fstp @@z			; Zrotated = Sin (A)*X + Cos (A)*Z
	
	fld @@x
	fmul [@@cos_z]
	fld @@y
	fmul [@@sin_z]
	fsubp st1,st
	fld @@x
	fxch st1
	fstp @@x			; Xrotated = Cos (A)*X - Sin (A)*Y
	fmul [@@sin_z]
	fld @@y
	fmul [@@cos_z]
	faddp st1,st
	fstp @@y			; Yrotated = Sin (A)*X + Cos (A)*Y
 
	add edi,12
	dec ecx
	jnz rp_rotate
	ret
					
;------------------------------------------------------------
;	ds:si	- offset to array of 3d points
;	ds:di	- offset to 2d points
;	cx	- number of points
;------------------------------------------------------------
 
translate_points:
 
	fld dword [esi+8]
	fadd [perspective]
 
	fld dword [esi]
	fmul [perspective]
	fdiv st,st1
	fadd [correct_x]
	fistp word [edi]		; x2d = (x*persp)/(z+persp)+correct_x
 
	fld dword [esi+4]
	fmul [perspective]
	fdivrp st1,st
	fadd [correct_y]
	fistp word [edi+2]		; y2d = (y*persp)/(z+persp)+correct_y
 
	add esi,12
	add edi,4
 dec ecx
 jnz translate_points
 ret
 
; initalize SIN&COS table
 
@@temp1 dd 0 ;dword ptr [bp-4]
@@temp2 dd 0 ;dword ptr [bp-8]
 
init_sincos:
	mov [@@temp1],0
	fldpi
	mov [@@temp2],MAX_DEGS/2
	fidiv [@@temp2]
	fstp [@@temp2]
 
	xor edi,edi
	mov ecx,MAX_DEGS
isc_loop:
	fld [@@temp1]
	fld st0
	fld st0
	fsin
	fstp dword [sintab+edi]
	fcos
	fstp dword [costab+edi]
	fadd [@@temp2]
	fstp [@@temp1]
 
	add edi,4
	dec ecx
	jnz isc_loop
	ret
 
perspective dd 256.0
correct_x dd 400.0
correct_y dd 300.0
 
angle_x dw 0
angle_y dw 0
angle_z dw 0
 
file_texture:
file 'texture.raw'
 
cube	dw -50,-50,50, 50,-50,50, 50,50,50, -50,50,50	
    	dw -50,-50,-50, 50,-50,-50, 50,50,-50, -50,50,-50
 
link db 0,1,2,3, 5,4,7,6, 1,5,6,2, 4,0,3,7, 4,5,1,0, 3,2,6,7
 
sintab:
rd MAX_DEGS
costab:
rd MAX_DEGS
 
cube_rotated:
rd MAX_POINTS*3
coord2d:
rw MAX_POINTS*2
texture:
rb 128*128*3
scrbuf:
 
I_END:

Rev 109	Rev 485
1	;	1	;
2	; 9 Ver Screen saver	2	; 9 Ver Screen saver
3	; 5 Ver 24 bit texture.	3	; 5 Ver 24 bit texture.
4	; 23/8/2004	4	; 23/8/2004
5	; Pavlushin Evgeni 3d cube screen saver	5	; Pavlushin Evgeni 3d cube screen saver
6	; mail: waptap@mail.ru site: www.deck4.narod.ru	6	; mail: waptap@mail.ru site: www.deck4.narod.ru
7	;	7	;
8	; This programm develop on sample text3d to Mikolaj Felix 25/5/2001	8	; This programm develop on sample text3d to Mikolaj Felix 25/5/2001
9	; mfelix@polbox.com	9	; mfelix@polbox.com
10	;	10	;
11		11
12	use32	12	use32
13	org 0x0	13	org 0x0
14	db 'MENUET01' ; 8 byte id	14	db 'MENUET01' ; 8 byte id
15	dd 0x01 ; header version	15	dd 0x01 ; header version
16	dd START ; start of code	16	dd START ; start of code
17	dd I_END ; size of image	17	dd I_END ; size of image
18	dd 0x200000 ; memory for app	18	dd 0x200000 ; memory for app
19	dd 0x200000 ; esp	19	dd 0x200000 ; esp
20	dd 0x0 , 0x0 ; I_Param , I_Icon	20	dd 0x0 , 0x0 ; I_Param , I_Icon
21		21
22	include 'lang.inc'	22	include 'lang.inc'
-		23	include '..\..\..\macros.inc'
23	MAX_DEGS equ 512 ;quantity of angels 2^n.Minimize for speedup	24	MAX_DEGS equ 512 ;quantity of angels 2^n.Minimize for speedup
24	MAX_POINTS equ 8 ;quantity of points	25	MAX_POINTS equ 8 ;quantity of points
25	MAX_FACES equ 6 ;quantity of points	26	MAX_FACES equ 6 ;quantity of points
26		27
27	START:	28	START:
28	finit	29	finit
29	call draw_window	30	call draw_window
30	call clear_screen	31	call clear_screen
31	call init_sincos	32	call init_sincos
32		33
33	still:	34	still:
34	mov eax,23 ; wait for system event with 2 ms timeout	35	mov eax,23 ; wait for system event with 2 ms timeout
35	mov ebx,2 ; wait 2 ms, then continue	36	mov ebx,2 ; wait 2 ms, then continue
36	int 0x40	37	mcall
37		38
38	; mov eax,11 ;If you want maximum speed! :)	39	; mov eax,11 ;If you want maximum speed! :)
39	; int 0x40	40	; mcall
40		41
41	dec eax ; window redraw request ?	42	dec eax ; window redraw request ?
42	je red	43	je red
43	dec eax ; key in buffer ?	44	dec eax ; key in buffer ?
44	je key	45	je key
45	dec eax ; button in buffer ?	46	dec eax ; button in buffer ?
46	je button	47	je button
47		48
48	main_loop:	49	main_loop:
49	call fade_texture	50	call fade_texture
50		51
51	mov esi,cube	52	mov esi,cube
52	mov edi,cube_rotated	53	mov edi,cube_rotated
53	mov ecx,MAX_POINTS*3	54	mov ecx,MAX_POINTS*3
54	copy_object:	55	copy_object:
55	fild word [esi]	56	fild word [esi]
56	fstp dword [edi]	57	fstp dword [edi]
57	add esi,2	58	add esi,2
58	add edi,4	59	add edi,4
59	dec ecx	60	dec ecx
60	jnz copy_object	61	jnz copy_object
61		62
62	mov esi,angle_x	63	mov esi,angle_x
63	mov edi,cube_rotated	64	mov edi,cube_rotated
64	mov ecx,MAX_POINTS	65	mov ecx,MAX_POINTS
65	call rotate_points	66	call rotate_points
66		67
67	mov esi,cube_rotated	68	mov esi,cube_rotated
68	mov edi,coord2d	69	mov edi,coord2d
69	mov ecx,MAX_POINTS	70	mov ecx,MAX_POINTS
70	call translate_points	71	call translate_points
71		72
72	call draw_textured_faces	73	call draw_textured_faces
73	call clear_screen_buffer	74	call clear_screen_buffer
74		75
75	add [angle_x],1	76	add [angle_x],1
76	add [angle_y],3	77	add [angle_y],3
77	add [angle_z],1	78	add [angle_z],1
78		79
79	jmp still	80	jmp still
80		81
81	red:	82	red:
82	call draw_window	83	call draw_window
83	jmp still	84	jmp still
84	key:	85	key:
85	mov eax,2	86	mov eax,2
86	jmp exit	87	jmp exit
87	button:	88	button:
88	mov eax,17	89	mov eax,17
89	int 0x40	90	mcall
90	cmp ah,1	91	cmp ah,1
91	jne still	92	jne still
92	exit:	93	exit:
93	mov eax,-1	94	mov eax,-1
94	int 0x40	95	mcall
95		96
96	;Draw window	97	;Draw window
97	draw_window:	98	draw_window:
98	mov eax,12 ;Start	99	mov eax,12 ;Start
99	mov ebx,1	100	mov ebx,1
100	int 0x40	101	mcall
101		102
102	mov eax,0 ;Draw window	103	mov eax,0 ;Draw window
103	mov ebx,065536+(799) ;x start65536+x size	104	mov ebx,065536+(799) ;x start65536+x size
104	mov ecx,065536+(599) ;y start65536+y size	105	mov ecx,065536+(599) ;y start65536+y size
105	mov edx,0x00000000 ;0x03 use skinned window	106	mov edx,0x00000000 ;0x03 use skinned window
106	int 0x40	107	mcall
107		108
108	call clear_screen	109	call clear_screen
109		110
110	mov eax,12 ;End	111	mov eax,12 ;End
111	mov ebx,2	112	mov ebx,2
112	int 0x40	113	mcall
113	ret	114	ret
114		115
115	head_label: db "3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR MENUETOS. USE "	116	head_label: db "3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR MENUETOS. USE "
116	db "800x600 SCREEN MODE FROM VIEW. PRESS ANY KEY FOR EXIT"	117	db "800x600 SCREEN MODE FROM VIEW. PRESS ANY KEY FOR EXIT"
117	hl_end:	118	hl_end:
118		119
119	;FADE IN FADE OUT TEXTURE	120	;FADE IN FADE OUT TEXTURE
120		121
121	x_step db 0	122	x_step db 0
122	x_num db 1	123	x_num db 1
123		124
124	fade_texture:	125	fade_texture:
125	mov ecx,0	126	mov ecx,0
126	loox:	127	loox:
127	mov al,[file_texture+ecx]	128	mov al,[file_texture+ecx]
128	mov [texture+ecx],al	129	mov [texture+ecx],al
129	inc ecx	130	inc ecx
130	cmp ecx,1281283	131	cmp ecx,1281283
131	jnae loox	132	jnae loox
132		133
133	mov ecx,0	134	mov ecx,0
134	loox2:	135	loox2:
135	mov al,[file_texture+ecx]	136	mov al,[file_texture+ecx]
136	cmp [x_step],al	137	cmp [x_step],al
137	jae xxx	138	jae xxx
138	sub al,[x_step]	139	sub al,[x_step]
139	jmp nnn	140	jmp nnn
140	xxx:	141	xxx:
141	mov al,0	142	mov al,0
142	nnn:	143	nnn:
143	mov [texture+ecx],al	144	mov [texture+ecx],al
144	inc ecx	145	inc ecx
145	cmp ecx,1281283	146	cmp ecx,1281283
146	jnae loox2	147	jnae loox2
147		148
148	cmp [x_step],255	149	cmp [x_step],255
149	jne no_max	150	jne no_max
150	mov [x_num],-1	151	mov [x_num],-1
151	no_max:	152	no_max:
152	cmp [x_step],0	153	cmp [x_step],0
153	jne no_min	154	jne no_min
154	mov [x_num],1	155	mov [x_num],1
155	no_min:	156	no_min:
156	mov al,[x_num]	157	mov al,[x_num]
157	add [x_step],al	158	add [x_step],al
158	ret	159	ret
159		160
160	; Clear Screen	161	; Clear Screen
161	clear_screen:	162	clear_screen:
162	mov eax,13	163	mov eax,13
163	mov ebx,0*65536+800	164	mov ebx,0*65536+800
164	mov ecx,0*65536+600	165	mov ecx,0*65536+600
165	mov edx,0	166	mov edx,0
166	int 40h	167	mcall
167		168
168	mov eax,4 ;Out Text	169	mov eax,4 ;Out Text
169	mov ebx,865536+8 ;x start65536+y start	170	mov ebx,865536+8 ;x start65536+y start
170	mov ecx,0x00ffffff ;color White	171	mov ecx,0x00ffffff ;color White
171	mov edx,head_label	172	mov edx,head_label
172	mov esi,hl_end-head_label	173	mov esi,hl_end-head_label
173	int 0x40	174	mcall
174	ret	175	ret
175		176
176	clear_screen_buffer:	177	clear_screen_buffer:
177	mov ebx,scrbuf	178	mov ebx,scrbuf
178	mov ecx,800*65536+(600-40) ;sub 40 for antiflickering title	179	mov ecx,800*65536+(600-40) ;sub 40 for antiflickering title
179	mov edx,0*65536+40	180	mov edx,0*65536+40
180	mov eax,7	181	mov eax,7
181	int 0x40	182	mcall
182		183
183	mov eax,4 ;Out Text	184	mov eax,4 ;Out Text
184	mov ebx,865536+580 ;x start65536+y start	185	mov ebx,865536+580 ;x start65536+y start
185	mov ebp,[n_step]	186	mov ebp,[n_step]
186	shl ebp,16	187	shl ebp,16
187	sub ebx,ebp	188	sub ebx,ebp
188	mov ecx,0x0000ff00 ;color White	189	mov ecx,0x0000ff00 ;color White
189	mov edx,move_text	190	mov edx,move_text
190	add edx,[step]	191	add edx,[step]
191	mov esi,130 ;mt_end-move_text	192	mov esi,130 ;mt_end-move_text
192	int 0x40	193	mcall
193		194
194	inc [n_step]	195	inc [n_step]
195	cmp [n_step],6	196	cmp [n_step],6
196	jna t_ok	197	jna t_ok
197	mov [n_step],0	198	mov [n_step],0
198	inc [step]	199	inc [step]
199	cmp [step],mt_end-move_text-130	200	cmp [step],mt_end-move_text-130
200	jng t_ok	201	jng t_ok
201	mov [step],0	202	mov [step],0
202	t_ok:	203	t_ok:
203		204
204	mov edi,scrbuf	205	mov edi,scrbuf
205	mov eax,0 ;black background	206	mov eax,0 ;black background
206	mov ecx,8006003/4 ; 16000	207	mov ecx,8006003/4 ; 16000
207	cld	208	cld
208	rep stosd	209	rep stosd
209	ret	210	ret
210		211
211	n_step dd 0	212	n_step dd 0
212	step dd 0	213	step dd 0
213		214
214	move_text: db " "	215	move_text: db " "
215	db " "	216	db " "
216	db " "	217	db " "
217	db "***** 3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR "	218	db "***** 3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR "
218	db "MENUET OS. SET 800x600 SCREEN MODE FROM VIEW THIS SCREEN "	219	db "MENUET OS. SET 800x600 SCREEN MODE FROM VIEW THIS SCREEN "
219	db "SAVER ***** "	220	db "SAVER ***** "
220	db "SITE OF THE RUSSIAN DEVELOPERS TO MENUETOS: "	221	db "SITE OF THE RUSSIAN DEVELOPERS TO MENUETOS: "
221	db "www.menuet.narod.ru "	222	db "www.menuet.narod.ru "
222	db "RUSSIAN MENUET APLICATION ARCHIVE PAGE ON: "	223	db "RUSSIAN MENUET APLICATION ARCHIVE PAGE ON: "
223	db "www.meosfiles.narod.ru "	224	db "www.meosfiles.narod.ru "
224	db "AUTOR OF THIS SCREEN SAVER Pavlushin Evgeni "	225	db "AUTOR OF THIS SCREEN SAVER Pavlushin Evgeni "
225	db "MY SITE: www.deck4.narod.ru (Slow update) "	226	db "MY SITE: www.deck4.narod.ru (Slow update) "
226	db "AND MAIL BOX: waptap@mail.ru "	227	db "AND MAIL BOX: waptap@mail.ru "
227	db "THANK YOU FOR USE! "	228	db "THANK YOU FOR USE! "
228	db " "	229	db " "
229	db " "	230	db " "
230	db " "	231	db " "
231	mt_end:	232	mt_end:
232		233
233		234
234	;include graphlib.asm Mikolaj Felix 9/12/2000 mfelix@polbox.com	235	;include graphlib.asm Mikolaj Felix 9/12/2000 mfelix@polbox.com
235	;Draw textured faces proc	236	;Draw textured faces proc
236		237
237	@@rx1 dw 0 ;equ [bp-2]	238	@@rx1 dw 0 ;equ [bp-2]
238	@@ry1 dw 0 ;equ [bp-4]	239	@@ry1 dw 0 ;equ [bp-4]
239	@@rx2 dw 0 ;equ [bp-6]	240	@@rx2 dw 0 ;equ [bp-6]
240	@@ry2 dw 0 ;equ [bp-8]	241	@@ry2 dw 0 ;equ [bp-8]
241	@@rx3 dw 0 ;equ [bp-10]	242	@@rx3 dw 0 ;equ [bp-10]
242	@@ry3 dw 0 ;equ [bp-12]	243	@@ry3 dw 0 ;equ [bp-12]
243	@@rx4 dw 0 ;equ [bp-14]	244	@@rx4 dw 0 ;equ [bp-14]
244	@@ry4 dw 0 ;equ [bp-16]	245	@@ry4 dw 0 ;equ [bp-16]
245		246
246	draw_textured_faces:	247	draw_textured_faces:
247		248
248	mov esi,link	249	mov esi,link
249	mov ecx,MAX_FACES	250	mov ecx,MAX_FACES
250	dtf_loop:	251	dtf_loop:
251	push ecx	252	push ecx
252		253
253	xor ebx,ebx	254	xor ebx,ebx
254	mov bl,byte [esi] ; point 1	255	mov bl,byte [esi] ; point 1
255	shl bx,2	256	shl bx,2
256	mov eax,dword [coord2d+bx] ;COPY 1 FOURANGLE POINT	257	mov eax,dword [coord2d+bx] ;COPY 1 FOURANGLE POINT
257	mov dword [@@rx1],eax	258	mov dword [@@rx1],eax
258		259
259	xor ebx,ebx	260	xor ebx,ebx
260	mov bl,byte [esi+1] ; point 2	261	mov bl,byte [esi+1] ; point 2
261	shl bx,2	262	shl bx,2
262	mov eax,dword [coord2d+bx] ;COPY 2 FOURANGLE POINT	263	mov eax,dword [coord2d+bx] ;COPY 2 FOURANGLE POINT
263	mov dword [@@rx2],eax	264	mov dword [@@rx2],eax
264		265
265	xor ebx,ebx	266	xor ebx,ebx
266	mov bl,byte [esi+2] ; point 3	267	mov bl,byte [esi+2] ; point 3
267	shl bx,2	268	shl bx,2
268	mov eax,dword [coord2d+bx] ;COPY 3 FOURANGLE POINT	269	mov eax,dword [coord2d+bx] ;COPY 3 FOURANGLE POINT
269	mov dword [@@rx3],eax	270	mov dword [@@rx3],eax
270		271
271	xor bh,bh ; point 4	272	xor bh,bh ; point 4
272	mov bl,byte [esi+3]	273	mov bl,byte [esi+3]
273	shl bx,2	274	shl bx,2
274	mov eax,dword [coord2d+bx] ;COPY 4 FOURANGLE POINT	275	mov eax,dword [coord2d+bx] ;COPY 4 FOURANGLE POINT
275	mov dword [@@rx4],eax	276	mov dword [@@rx4],eax
276		277
277	mov ax,[@@ry1]	278	mov ax,[@@ry1]
278	sub ax,[@@ry3]	279	sub ax,[@@ry3]
279	mov bx,[@@rx2]	280	mov bx,[@@rx2]
280	sub bx,[@@rx1]	281	sub bx,[@@rx1]
281	imul bx	282	imul bx
282	shl edx,16	283	shl edx,16
283	mov dx,ax	284	mov dx,ax
284	push edx	285	push edx
285	mov ax,[@@rx1]	286	mov ax,[@@rx1]
286	sub ax,[@@rx3]	287	sub ax,[@@rx3]
287	mov bx,[@@ry2]	288	mov bx,[@@ry2]
288	sub bx,[@@ry1]	289	sub bx,[@@ry1]
289	imul bx	290	imul bx
290	shl edx,16	291	shl edx,16
291	mov dx,ax	292	mov dx,ax
292	pop ebx	293	pop ebx
293	sub ebx,edx ; normal_z = (y1-y3)(x2-x1)-(x1-x3)(y2-y1)	294	sub ebx,edx ; normal_z = (y1-y3)(x2-x1)-(x1-x3)(y2-y1)
294	or ebx,ebx	295	or ebx,ebx
295	jl dtf_next_face ; normal_z < 0	296	jl dtf_next_face ; normal_z < 0
296		297
297	; FIRST PICE OF FOUR ANGLE	298	; FIRST PICE OF FOUR ANGLE
298		299
299	; Set 3 triangel puts for texture ycoord*65536+xcoord	300	; Set 3 triangel puts for texture ycoord*65536+xcoord
300	mov dword [@@tex_x3],127*65536+127 ;3 point	301	mov dword [@@tex_x3],127*65536+127 ;3 point
301	mov dword [@@tex_x2],0*65536+127 ;2 point	302	mov dword [@@tex_x2],0*65536+127 ;2 point
302	mov dword [@@tex_x1],0*65536+0 ;1 point	303	mov dword [@@tex_x1],0*65536+0 ;1 point
303	; Set texture bitmap offset	304	; Set texture bitmap offset
304	mov [@@tex_off],texture	305	mov [@@tex_off],texture
305	; Set 3 triangel puts coordinates	306	; Set 3 triangel puts coordinates
306	mov eax,dword [@@rx3]	307	mov eax,dword [@@rx3]
307	mov dword [@@x3],eax	308	mov dword [@@x3],eax
308	mov eax,dword [@@rx2]	309	mov eax,dword [@@rx2]
309	mov dword [@@x2],eax	310	mov dword [@@x2],eax
310	mov eax,dword [@@rx1]	311	mov eax,dword [@@rx1]
311	mov dword [@@x1],eax	312	mov dword [@@x1],eax
312	call textured_triangle	313	call textured_triangle
313		314
314	; SECOND PICE OF FOUR ANGLE	315	; SECOND PICE OF FOUR ANGLE
315		316
316	; Set 3 triangel puts for texture ycoord*65536+xcoord	317	; Set 3 triangel puts for texture ycoord*65536+xcoord
317	mov dword [@@tex_x3],127*65536+0 ;3 point	318	mov dword [@@tex_x3],127*65536+0 ;3 point
318	mov dword [@@tex_x2],127*65536+127 ;2 point	319	mov dword [@@tex_x2],127*65536+127 ;2 point
319	mov dword [@@tex_x1],0*65536+0 ;1 point	320	mov dword [@@tex_x1],0*65536+0 ;1 point
320	; Set texture bitmap offset	321	; Set texture bitmap offset
321	mov [@@tex_off],texture	322	mov [@@tex_off],texture
322	; Set 3 triangel puts coordinates	323	; Set 3 triangel puts coordinates
323	mov eax,dword [@@rx4]	324	mov eax,dword [@@rx4]
324	mov dword [@@x3],eax	325	mov dword [@@x3],eax
325	mov eax,dword [@@rx3]	326	mov eax,dword [@@rx3]
326	mov dword [@@x2],eax	327	mov dword [@@x2],eax
327	mov eax,dword [@@rx1]	328	mov eax,dword [@@rx1]
328	mov dword [@@x1],eax	329	mov dword [@@x1],eax
329	call textured_triangle	330	call textured_triangle
330		331
331	dtf_next_face:	332	dtf_next_face:
332	add esi,4	333	add esi,4
333	pop ecx	334	pop ecx
334	dec ecx	335	dec ecx
335	jnz dtf_loop	336	jnz dtf_loop
336	ret	337	ret
337		338
338	;include tex3.asm Mikolaj Felix 15/5/2001 mfelix@polbox.com	339	;include tex3.asm Mikolaj Felix 15/5/2001 mfelix@polbox.com
339		340
340	@@x1 dw 0 ;equ [bp+4]	341	@@x1 dw 0 ;equ [bp+4]
341	@@y1 dw 0 ;equ [bp+6]	342	@@y1 dw 0 ;equ [bp+6]
342	@@x2 dw 0 ;equ [bp+8]	343	@@x2 dw 0 ;equ [bp+8]
343	@@y2 dw 0 ;equ [bp+10]	344	@@y2 dw 0 ;equ [bp+10]
344	@@x3 dw 0 ;equ [bp+12]	345	@@x3 dw 0 ;equ [bp+12]
345	@@y3 dw 0 ;equ [bp+14]	346	@@y3 dw 0 ;equ [bp+14]
346		347
347	@@tex_off dd 0 ;equ [bp+16]	348	@@tex_off dd 0 ;equ [bp+16]
348	@@tex_x1 dw 0 ;equ [bp+18]	349	@@tex_x1 dw 0 ;equ [bp+18]
349	@@tex_y1 dw 0 ;equ [bp+20]	350	@@tex_y1 dw 0 ;equ [bp+20]
350	@@tex_x2 dw 0 ;equ [bp+22]	351	@@tex_x2 dw 0 ;equ [bp+22]
351	@@tex_y2 dw 0 ;equ [bp+24]	352	@@tex_y2 dw 0 ;equ [bp+24]
352	@@tex_x3 dw 0 ;equ [bp+26]	353	@@tex_x3 dw 0 ;equ [bp+26]
353	@@tex_y3 dw 0 ;equ [bp+28]	354	@@tex_y3 dw 0 ;equ [bp+28]
354		355
355	@@dx12 dw 0 ;equ [bp-2]	356	@@dx12 dw 0 ;equ [bp-2]
356	@@dx13 dw 0 ;equ [bp-4]	357	@@dx13 dw 0 ;equ [bp-4]
357	@@dx23 dw 0 ;equ [bp-6]	358	@@dx23 dw 0 ;equ [bp-6]
358		359
359	@@tex_dx12 dw 0 ;equ [bp-8]	360	@@tex_dx12 dw 0 ;equ [bp-8]
360	@@tex_dy12 dw 0 ;equ [bp-10]	361	@@tex_dy12 dw 0 ;equ [bp-10]
361	@@tex_dx13 dw 0 ;equ [bp-12]	362	@@tex_dx13 dw 0 ;equ [bp-12]
362	@@tex_dy13 dw 0 ;equ [bp-14]	363	@@tex_dy13 dw 0 ;equ [bp-14]
363	@@tex_dx23 dw 0 ;equ [bp-16]	364	@@tex_dx23 dw 0 ;equ [bp-16]
364	@@tex_dy23 dw 0 ;equ [bp-18]	365	@@tex_dy23 dw 0 ;equ [bp-18]
365		366
366	@@scan_x1 dw 0 ;equ [bp-20]	367	@@scan_x1 dw 0 ;equ [bp-20]
367	@@scan_y1 dw 0 ;equ [bp-22]	368	@@scan_y1 dw 0 ;equ [bp-22]
368	@@scan_x2 dw 0 ;equ [bp-24]	369	@@scan_x2 dw 0 ;equ [bp-24]
369	@@scan_y2 dw 0 ;equ [bp-26]	370	@@scan_y2 dw 0 ;equ [bp-26]
370		371
371		372
372	textured_triangle:	373	textured_triangle:
373		374
374	mov ax,[@@y1]	375	mov ax,[@@y1]
375	cmp ax,[@@y3]	376	cmp ax,[@@y3]
376	jb tt_check1	377	jb tt_check1
377		378
378	xchg ax,[@@y3]	379	xchg ax,[@@y3]
379	mov [@@y1],ax	380	mov [@@y1],ax
380		381
381	mov ax,[@@x1]	382	mov ax,[@@x1]
382	xchg ax,[@@x3]	383	xchg ax,[@@x3]
383	mov [@@x1],ax	384	mov [@@x1],ax
384		385
385	mov ax,[@@tex_y1]	386	mov ax,[@@tex_y1]
386	xchg ax,[@@tex_y3]	387	xchg ax,[@@tex_y3]
387	mov [@@tex_y1],ax	388	mov [@@tex_y1],ax
388		389
389	mov ax,[@@tex_x1]	390	mov ax,[@@tex_x1]
390	xchg ax,[@@tex_x3]	391	xchg ax,[@@tex_x3]
391	mov [@@tex_x1],ax	392	mov [@@tex_x1],ax
392	tt_check1:	393	tt_check1:
393	mov ax,[@@y2]	394	mov ax,[@@y2]
394	cmp ax,[@@y3]	395	cmp ax,[@@y3]
395	jb tt_check2	396	jb tt_check2
396		397
397	xchg ax,[@@y3]	398	xchg ax,[@@y3]
398	mov [@@y2],ax	399	mov [@@y2],ax
399		400
400	mov ax,[@@x2]	401	mov ax,[@@x2]
401	xchg ax,[@@x3]	402	xchg ax,[@@x3]
402	mov [@@x2],ax	403	mov [@@x2],ax
403		404
404	mov ax,[@@tex_y2]	405	mov ax,[@@tex_y2]
405	xchg ax,[@@tex_y3]	406	xchg ax,[@@tex_y3]
406	mov [@@tex_y2],ax	407	mov [@@tex_y2],ax
407		408
408	mov ax,[@@tex_x2]	409	mov ax,[@@tex_x2]
409	xchg ax,[@@tex_x3]	410	xchg ax,[@@tex_x3]
410	mov [@@tex_x2],ax	411	mov [@@tex_x2],ax
411	tt_check2:	412	tt_check2:
412	mov ax,[@@y1]	413	mov ax,[@@y1]
413	cmp ax,[@@y2]	414	cmp ax,[@@y2]
414	jb tt_check3	415	jb tt_check3
415		416
416	xchg ax,[@@y2]	417	xchg ax,[@@y2]
417	mov [@@y1],ax	418	mov [@@y1],ax
418		419
419	mov ax,[@@x1]	420	mov ax,[@@x1]
420	xchg ax,[@@x2]	421	xchg ax,[@@x2]
421	mov [@@x1],ax	422	mov [@@x1],ax
422		423
423	mov ax,[@@tex_y1]	424	mov ax,[@@tex_y1]
424	xchg ax,[@@tex_y2]	425	xchg ax,[@@tex_y2]
425	mov [@@tex_y1],ax	426	mov [@@tex_y1],ax
426		427
427	mov ax,[@@tex_x1]	428	mov ax,[@@tex_x1]
428	xchg ax,[@@tex_x2]	429	xchg ax,[@@tex_x2]
429	mov [@@tex_x1],ax	430	mov [@@tex_x1],ax
430	tt_check3:	431	tt_check3:
431		432
432	mov bx,[@@y2]	433	mov bx,[@@y2]
433	sub bx,[@@y1]	434	sub bx,[@@y1]
434	jnz tt_dx12_make	435	jnz tt_dx12_make
435		436
436	mov word [@@dx12],0	437	mov word [@@dx12],0
437	mov word [@@tex_dx12],0	438	mov word [@@tex_dx12],0
438	mov word [@@tex_dy12],0	439	mov word [@@tex_dy12],0
439	jmp tt_dx12_done	440	jmp tt_dx12_done
440	tt_dx12_make:	441	tt_dx12_make:
441	mov ax,[@@x2]	442	mov ax,[@@x2]
442	sub ax,[@@x1]	443	sub ax,[@@x1]
443	shl ax,7	444	shl ax,7
444	cwd	445	cwd
445	idiv bx	446	idiv bx
446	mov [@@dx12],ax ; dx12 = (x2-x1)/(y2-y1)	447	mov [@@dx12],ax ; dx12 = (x2-x1)/(y2-y1)
447		448
448	mov ax,[@@tex_x2]	449	mov ax,[@@tex_x2]
449	sub ax,[@@tex_x1]	450	sub ax,[@@tex_x1]
450	shl ax,7	451	shl ax,7
451	cwd	452	cwd
452	idiv bx	453	idiv bx
453	mov [@@tex_dx12],ax ; tex_dx12 = (tex_x2-tex_x1)/(y2-y1)	454	mov [@@tex_dx12],ax ; tex_dx12 = (tex_x2-tex_x1)/(y2-y1)
454		455
455	mov ax,[@@tex_y2]	456	mov ax,[@@tex_y2]
456	sub ax,[@@tex_y1]	457	sub ax,[@@tex_y1]
457	shl ax,7	458	shl ax,7
458	cwd	459	cwd
459	idiv bx	460	idiv bx
460	mov [@@tex_dy12],ax ; tex_dy12 = (tex_y2-tex_y1)/(y2-y1)	461	mov [@@tex_dy12],ax ; tex_dy12 = (tex_y2-tex_y1)/(y2-y1)
461	tt_dx12_done:	462	tt_dx12_done:
462		463
463	mov bx,[@@y3]	464	mov bx,[@@y3]
464	sub bx,[@@y1]	465	sub bx,[@@y1]
465	jnz tt_dx13_make	466	jnz tt_dx13_make
466		467
467	mov word [@@dx13],0	468	mov word [@@dx13],0
468	mov word [@@tex_dx13],0	469	mov word [@@tex_dx13],0
469	mov word [@@tex_dy13],0	470	mov word [@@tex_dy13],0
470	jmp tt_dx13_done	471	jmp tt_dx13_done
471	tt_dx13_make:	472	tt_dx13_make:
472	mov ax,[@@x3]	473	mov ax,[@@x3]
473	sub ax,[@@x1]	474	sub ax,[@@x1]
474	shl ax,7	475	shl ax,7
475	cwd	476	cwd
476	idiv bx	477	idiv bx
477	mov [@@dx13],ax ; dx13 = (x3-x1)/(y3-y1)	478	mov [@@dx13],ax ; dx13 = (x3-x1)/(y3-y1)
478		479
479	mov ax,[@@tex_x3]	480	mov ax,[@@tex_x3]
480	sub ax,[@@tex_x1]	481	sub ax,[@@tex_x1]
481	shl ax,7	482	shl ax,7
482	cwd	483	cwd
483	idiv bx	484	idiv bx
484	mov [@@tex_dx13],ax ; tex_dx13 = (tex_x3-tex_x1)/(y3-y1)	485	mov [@@tex_dx13],ax ; tex_dx13 = (tex_x3-tex_x1)/(y3-y1)
485		486
486	mov ax,[@@tex_y3]	487	mov ax,[@@tex_y3]
487	sub ax,[@@tex_y1]	488	sub ax,[@@tex_y1]
488	shl ax,7	489	shl ax,7
489	cwd	490	cwd
490	idiv bx	491	idiv bx
491	mov [@@tex_dy13],ax ; tex_dy13 = (tex_y3-tex_x1)/(y3-y1)	492	mov [@@tex_dy13],ax ; tex_dy13 = (tex_y3-tex_x1)/(y3-y1)
492	tt_dx13_done:	493	tt_dx13_done:
493		494
494	mov bx,[@@y3]	495	mov bx,[@@y3]
495	sub bx,[@@y2]	496	sub bx,[@@y2]
496	jnz tt_dx23_make	497	jnz tt_dx23_make
497		498
498	mov word [@@dx23],0	499	mov word [@@dx23],0
499	mov word [@@tex_dx23],0	500	mov word [@@tex_dx23],0

Subversion Repositories Kolibri OS

(root)/programs/demos/3dtcub10/trunk/3DTCUB10.ASM – Rev 109 → 485