WebSVN – Kolibri OS – Diff – /programs/demos/3dcube2/trunk/3DCUBE2.ASM


;
; 3D POLYGONAL CUBE - ASCL
;
; Pavlushin Evgeni
; mail: waptap@mail.ru       site: www.deck4.narod.ru
;
; Create on base 3D test sample
; Mikolaj Felix 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     0x30000                  ; memory for app
               dd     0x30000                  ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
 
MAX_POINTS equ 8
MAX_TRIANGLES equ 12
SCREEN_X equ 320
SCREEN_Y equ 200
 
include 'lang.inc'
include '..\..\..\macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
 
START:
    call draw_window
   	call init_sin_cos
 
still:
    mov eax,11
    mcall
 
    dec eax
;    cmp  eax,1                  ; window redraw request ?
    jz   red
    dec eax
;    cmp  eax,2                  ; key in buffer ?
    jz   key
    dec eax
;    cmp  eax,3                  ; button in buffer ?
    jz   button
 
    fps  230,8,cl_White,cl_Black
 
main_loop:
 
	mov esi,object
	mov edi,object_rotated
	mov ecx,MAX_POINTS*3
	cld
	rep movsw
 
	mov esi,angle_x
	mov edi,object_rotated
	mov ecx,MAX_POINTS
	call rotate_points
 
	mov esi,object_rotated
	mov edi,object_translated
	mov ecx,MAX_POINTS
	call translate_points
 
	call draw_faces
 
	call clear_screen_buffer
 
	add [angle_x],2
	add [angle_y],3
	add [angle_z],1
 
     jmp still
 
red:
     call draw_window
     jmp still
key:
     mov eax,2
     mcall
     jmp still
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,100*65536+(SCREEN_X+9) ;x start*65536+x size
    mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
    mov edx,0x14000000         ;0x03 use skinned window
    mov edi,title
    mcall
 
    mov eax,12  ;End
    mov ebx,2
    mcall
    ret
 
title db '3D TEST SAMPLE FOR MENUETOS',0
 
 
; Draw faces procedure
 
draw_faces:
 
	mov esi,link
	mov ecx,MAX_TRIANGLES
df_draw:
	push ecx
	mov ecx,3
	mov edi,@@tx1 ;bp
df_get_point:
	xor bh,bh
	mov bl,byte [esi]
	shl bx,2
	mov ax,word [object_translated+bx]
	mov word [edi],ax
	mov ax,word [object_translated+bx+2]
	mov word [edi+2],ax
	inc esi
	add edi,4
	dec ecx
	jnz df_get_point
 
	mov ax,[@@ty1]
	sub ax,[@@ty3]
	mov bx,[@@tx2]
	sub bx,[@@tx1]
	imul bx
	shl edx,16
	mov dx,ax
	push edx
	mov ax,[@@tx1]
	sub ax,[@@tx3]
	mov bx,[@@ty2]
	sub bx,[@@ty1]
	imul bx
	shl edx,16
	mov dx,ax
	pop ebx
	sub ebx,edx
	or ebx,ebx
	jge df_next
 
	xor ah,ah
	mov al,byte [si]
	
 mov  [@@xcol],ax
 
	call filled_triangle
df_next:
	inc si
	pop ecx
	dec ecx
	jnz df_draw
	ret
 
;modify
;include graphlib.asm
 
clear_screen_buffer:
 
;outscrbuf
 mov ebx,scrbuf
 mov ecx,SCREEN_X*65536+SCREEN_Y
 mov edx,5*65536+22
 mov ax,7
 mcall
 
;White background
 mov edi,scrbuf
 mov ecx,(SCREEN_X*SCREEN_Y*3)/4
 mov eax,0xffffffff
 cld
 rep stosd
 
	ret
 
;include triangle.asm
; Mikolaj Felix 14/5/2001
; mfelix@polbox.com
 
;filled trangle procedure
 
@@tx1  dw 0
@@ty1  dw 0
@@tx2  dw 0
@@ty2  dw 0
@@tx3  dw 0
@@ty3  dw 0
@@xcol dw 0
 
@@dx12 dw 0
@@dx13 dw 0
@@dx23 dw 0
 
filled_triangle:
 
 mov ax,[@@xcol]  ;trnsforming color
 mov bl,al        ;byte bbbggrrx
 mov dl,al        ;to 3 byte
 mov dh,al        ;bbbxxxxx ggxxxxxx rrxxxxxx
 and dh,00000001b
 
 and al,11100000b
 and bl,00011000b
 and dl,00000110b
 shl bl,3
 shl dl,5
 
 cmp dh,1
 jne no_bitup
 or  al,00011111b
 or  bl,00111111b
 or  dl,00111111b
no_bitup:
 
 shl eax,8 ;puck colors
 mov al,bl
 shl eax,8
 mov al,dl
 mov dword [@@rgb],eax
 mov eax,0 ; for 16 bit instructions
 
	mov ax,[@@ty1]
	cmp ax,[@@ty3]
	jb ft_check1
 
	xchg ax,[@@ty3]
	mov [@@ty1],ax
 
	mov ax,[@@tx1]
	xchg ax,[@@tx3]
	mov [@@tx1],ax
ft_check1:
	mov ax,[@@ty2]
	cmp ax,[@@ty3]
	jb ft_check2
 
	xchg ax,[@@ty3]
	mov [@@ty2],ax
 
	mov ax,[@@tx2]
	xchg ax,[@@tx3]
	mov [@@tx2],ax
ft_check2:
	mov ax,[@@ty1]
	cmp ax,[@@ty2]
	jb ft_check3
 
	xchg ax,[@@ty2]
	mov [@@ty1],ax
 
	mov ax,[@@tx1]
	xchg ax,[@@tx2]
	mov [@@tx1],ax
ft_check3:
 
	mov bx,[@@ty2]
	sub bx,[@@ty1]
	jnz ft_dx12_make
 
	mov [@@dx12],word 0
	jmp ft_dx12_done
ft_dx12_make:
	mov ax,[@@tx2]
	sub ax,[@@tx1]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx12],ax			; dx12 = (x2-x1)/(y2-y1)
ft_dx12_done:
 
	mov bx,[@@ty3]
	sub bx,[@@ty1]
	jnz ft_dx13_make
 
	mov [@@dx13],word 0
	jmp ft_dx13_done
ft_dx13_make:
	mov ax,[@@tx3]
	sub ax,[@@tx1]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx13],ax			; dx13 = (x3-x1)/(y3-y1)
ft_dx13_done:
 
	mov bx,[@@ty3]
	sub bx,[@@ty2]
	jnz ft_dx23_make
 
	mov [@@dx23],word 0
	jmp ft_dx23_done
ft_dx23_make:
	mov ax,[@@tx3]
	sub ax,[@@tx2]
	shl ax,7
	cwd
	idiv bx
	mov [@@dx23],ax			; dx23 = (x3-x2)/(y3-y2)
ft_dx23_done:
 
	mov ax,[@@tx1]
	shl ax,7
	mov bx,ax
 
	mov cx,[@@ty1]
ft_loop1:
 
 pushad
 
	mov [@@ly],cx
	mov dx,bx
	shr dx,7
	mov [@@lx2],dx
	mov dx,ax
	shr dx,7
	mov [@@lx1],dx
	mov ax,[@@xcol]
 mov [@@lcol],ax
 call horizontal_line
 
 popad
 
	add ax,[@@dx13]
	add bx,[@@dx12]
	inc cx
	cmp cx,[@@ty2]
	jb ft_loop1
 
	
	mov bx,[@@tx2]
	shl bx,7
	mov cx,[@@ty2]
ft_loop2:
 
 pushad
 
	mov [@@ly],cx
	mov dx,bx
	shr dx,7
	mov [@@lx2],dx
	mov dx,ax
	shr dx,7
	mov [@@lx1],dx
 mov ax,[@@xcol]
 mov [@@lcol],ax
	call horizontal_line
 
 popad
 
	add ax,[@@dx13]
	add bx,[@@dx23]
	inc ecx
	cmp cx,[@@ty3]
	jb ft_loop2
 
	ret
 
;horizontal line subproc
 
@@lx1  dw 0
@@lx2  dw 0
@@ly   dw 0
@@lcol dw 0
 
@@rgb  dd 0
 
horizontal_line:
 
 mov ecx,0
 mov cx,[@@lx1]
 cmp cx,[@@lx2]
 ja  x12
 je  ext
; ret
 mov cx,[@@lx2]
 sub cx,[@@lx1]
 mov edi,3
 jmp xx
x12:
 mov cx,[@@lx1]
 sub cx,[@@lx2]
 mov edi,-3
 jmp xx
ext:
 mov ecx,-1 ;1
; sub ebp,3
xx:
 mov eax,0
 mov ax,[@@ly]
 mov ebx,SCREEN_X ;320
 mul ebx
 mov ebp,0
 mov bp,[@@lx1] ;for correct 16 bit size
 add eax,ebp
 mov ebx,3
 mul ebx
 mov ebp,eax
 sub ebp,3   ;for delete  white dots
 add ecx,2
loo:
 
 mov eax,dword [@@rgb]
 mov bl,al
 shr eax,8 ;puck colors
 
 mov byte [scrbuf+ebp],ah
 mov byte [scrbuf+ebp+1],al
 mov byte [scrbuf+ebp+2],bl
 add ebp,edi
 dec ecx
 jnz loo
 
	ret
 
;include fixed3d.asm
; Mikolaj Felix 25/5/2001
; mfelix@polbox.com
 
;------------------------------------------------------------
;	ds:si	- offset to angles
;	ds:di	- offset to 3d points
;	cx	- number of points
;------------------------------------------------------------
 
@@sin_x dw 0
@@cos_x dw 0
@@sin_y dw 0
@@cos_y dw 0
@@sin_z dw 0
@@cos_z dw 0
 
@@px equ word [edi]
@@py equ word [edi+2]
@@pz equ word [edi+4]
 
rotate_points:
 
 push edi
	mov edi,@@sin_x
	mov edx,3
rp_sin_cos:
	mov bx,word [esi]
	and bx,511
	shl bx,1
	mov ax,word [sin_table+bx]
	mov word [edi],ax
	mov ax,word [cos_table+bx]
	mov word [edi+2],ax
 
	add esi,2
	add edi,4
	dec edx
	jnz rp_sin_cos
	pop edi
 
rp_rotate:
 
	; rotate around x-axis
 
	mov ax,@@py
	imul [@@cos_x]
	mov bx,ax
	mov si,dx
 
	mov ax,@@pz
	imul [@@sin_x]
	sub bx,ax
	sbb si,dx
	shrd bx,si,14
	push bx
 
	mov ax,@@py
	imul [@@sin_x]
	mov bx,ax
	mov si,dx
 
	mov ax,@@pz
	imul [@@cos_x]
	add bx,ax
	adc si,dx
	shrd bx,si,14
 
	pop @@py
	mov @@pz,bx
 
	; rotate around y-axis
 
	mov ax,@@px
	imul [@@cos_y]
	mov bx,ax
	mov si,dx
 
	mov ax,@@pz
	imul [@@sin_y]
	sub bx,ax
	sbb si,dx
	shrd bx,si,14
	push bx
 
	mov ax,@@px
	imul [@@sin_y]
	mov bx,ax
	mov si,dx
 
	mov ax,@@pz
	imul [@@cos_y]
	add bx,ax
	adc si,dx
	shrd bx,si,14
 
	pop @@px
	mov @@pz,bx
 
	; rotate around z-axis
 
	mov ax,@@px
	imul [@@cos_z]
	mov bx,ax
	mov si,dx
 
	mov ax,@@py
	imul [@@sin_z]
	sub bx,ax
	sbb si,dx
	shrd bx,si,14
	push bx
 
	mov ax,@@px
	imul [@@sin_z]
	mov bx,ax
	mov si,dx
 
	mov ax,@@py
	imul [@@cos_z]
	add bx,ax
	adc si,dx
	shrd bx,si,14
 
	pop @@px
	mov @@py,bx
 
	add edi,6
	dec ecx
	jnz rp_rotate
 
	ret
 
;------------------------------------------------------------
;	ds:si	- offset to 3d points
;	es:di	- offset to 2d points
;	cx	- number of points
;------------------------------------------------------------
 
 mx dw 0
 my dw 0
 
translate_points:
 pushad
 mov eax,37
 mov ebx,1
 mcall
 mov ebx,eax
 shr eax,16
 and ebx,0xffff
 cmp ax,SCREEN_X
 jna x_n
 mov ax,0 ;SCREEN_X
x_n:
 cmp bx,SCREEN_Y
 jna y_n
 mov bx,0 ;SCREEN_Y
y_n:
 mov [mx],ax
 mov [my],bx
 popad
 
 mov ebx,0  ;?
	mov bx,word [esi+4]
 mov ax,[my]
 cmp ax,0
 jng no_m
 shl ax,3
 add bx,ax
no_m:
 add bx,256  ; Z factor (zoom)
 
 mov eax,0  ;?
	mov ax,word [esi]
	shl ax,8
	cwd
	idiv bx; bx
	add ax,(SCREEN_X/2) ;160         ;X factor (center X)
	stosw
 
 mov eax,0  ;?
	mov ax,word [esi+2]
	shl ax,8
	cwd
	idiv bx
	add ax,(SCREEN_Y/2) ;100         ;Y factor (center Y)
	stosw
 
	add esi,6
	dec ecx
	jnz translate_points
	ret
 
init_sin_cos:
	finit
	fldz
	fstp [temp]
	xor edi,edi
	mov ecx,512
isc_make:
	fld [temp]
	fld st0
	fld st0
	fsin
	fmul [fixed_point_const]
	fistp word [sin_table+edi]
	fcos
	fmul [fixed_point_const]
	fistp word [cos_table+edi]
 
	fadd [inc_angle]
	fstp [temp]
 
	add edi,2
	loop isc_make
	ret
 
temp dd 0
 
fixed_point_const dd 16384.0
inc_angle dd 0.01227184630309			; pi/256
 
angle_x dw 0
angle_y dw 0
angle_z dw 0
 
object	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,10000011b, 0,2,3,10000011b ;purpure   side
 db  5,4,7,00000111b, 5,7,6,00000111b ;soft-red  side
 db  1,5,6,00011000b, 1,6,2,00011000b ;soft-lime side
 db  4,0,3,11100001b, 4,3,7,11100001b ;soft-blue side
 db  4,5,1,00011111b, 1,0,4,00011111b ;yellow    side
 db  3,2,6,00000000b, 3,6,7,00000000b ;black     side
 
sin_table:
rw 512
cos_table:
rw 512
 
object_rotated:
rw MAX_POINTS*3
object_translated:
rw MAX_POINTS*2
 
scrbuf:
I_END:

Rev 485	Rev 551
1	;	1	;
2	; 3D POLYGONAL CUBE - ASCL	2	; 3D POLYGONAL CUBE - ASCL
3	;	3	;
4	; Pavlushin Evgeni	4	; Pavlushin Evgeni
5	; mail: waptap@mail.ru site: www.deck4.narod.ru	5	; mail: waptap@mail.ru site: www.deck4.narod.ru
6	;	6	;
7	; Create on base 3D test sample	7	; Create on base 3D test sample
8	; Mikolaj Felix mfelix@polbox.com	8	; Mikolaj Felix mfelix@polbox.com
9	;	9	;
10		10
11	use32	11	use32
12	org 0x0	12	org 0x0
13	db 'MENUET01' ; 8 byte id	13	db 'MENUET01' ; 8 byte id
14	dd 0x01 ; header version	14	dd 0x01 ; header version
15	dd START ; start of code	15	dd START ; start of code
16	dd I_END ; size of image	16	dd I_END ; size of image
17	dd 0x30000 ; memory for app	17	dd 0x30000 ; memory for app
18	dd 0x30000 ; esp	18	dd 0x30000 ; esp
19	dd 0x0 , 0x0 ; I_Param , I_Icon	19	dd 0x0 , 0x0 ; I_Param , I_Icon
20		20
21	MAX_POINTS equ 8	21	MAX_POINTS equ 8
22	MAX_TRIANGLES equ 12	22	MAX_TRIANGLES equ 12
23	SCREEN_X equ 320	23	SCREEN_X equ 320
24	SCREEN_Y equ 200	24	SCREEN_Y equ 200
25		25
26	include 'lang.inc'	26	include 'lang.inc'
27	include '..\..\..\macros.inc'	27	include '..\..\..\macros.inc'
28	include 'ascl.inc'	28	include 'ascl.inc'
29	include 'ascgl.inc'	29	include 'ascgl.inc'
30		30
31	START:	31	START:
32	call draw_window	32	call draw_window
33	call init_sin_cos	33	call init_sin_cos
34		34
35	still:	35	still:
36	mov eax,11	36	mov eax,11
37	mcall	37	mcall
38		38
39	dec eax	39	dec eax
40	; cmp eax,1 ; window redraw request ?	40	; cmp eax,1 ; window redraw request ?
41	jz red	41	jz red
42	dec eax	42	dec eax
43	; cmp eax,2 ; key in buffer ?	43	; cmp eax,2 ; key in buffer ?
44	jz key	44	jz key
45	dec eax	45	dec eax
46	; cmp eax,3 ; button in buffer ?	46	; cmp eax,3 ; button in buffer ?
47	jz button	47	jz button
48		48
49	fps 230,8,cl_White,cl_Black	49	fps 230,8,cl_White,cl_Black
50		50
51	main_loop:	51	main_loop:
52		52
53	mov esi,object	53	mov esi,object
54	mov edi,object_rotated	54	mov edi,object_rotated
55	mov ecx,MAX_POINTS*3	55	mov ecx,MAX_POINTS*3
56	cld	56	cld
57	rep movsw	57	rep movsw
58		58
59	mov esi,angle_x	59	mov esi,angle_x
60	mov edi,object_rotated	60	mov edi,object_rotated
61	mov ecx,MAX_POINTS	61	mov ecx,MAX_POINTS
62	call rotate_points	62	call rotate_points
63		63
64	mov esi,object_rotated	64	mov esi,object_rotated
65	mov edi,object_translated	65	mov edi,object_translated
66	mov ecx,MAX_POINTS	66	mov ecx,MAX_POINTS
67	call translate_points	67	call translate_points
68		68
69	call draw_faces	69	call draw_faces
70		70
71	call clear_screen_buffer	71	call clear_screen_buffer
72		72
73	add [angle_x],2	73	add [angle_x],2
74	add [angle_y],3	74	add [angle_y],3
75	add [angle_z],1	75	add [angle_z],1
76		76
77	jmp still	77	jmp still
78		78
79	red:	79	red:
80	call draw_window	80	call draw_window
81	jmp still	81	jmp still
82	key:	82	key:
83	mov eax,2	83	mov eax,2
84	mcall	84	mcall
85	jmp still	85	jmp still
86	button:	86	button:
87	mov eax,17	87	mov eax,17
88	mcall	88	mcall
89	cmp ah,1	89	cmp ah,1
90	jne still	90	jne still
91	exit:	91	exit:
92	mov eax,-1	92	mov eax,-1
93	mcall	93	mcall
94		94
95	;Draw window	95	;Draw window
96	draw_window:	96	draw_window:
97	mov eax,12 ;Start	97	mov eax,12 ;Start
98	mov ebx,1	98	mov ebx,1
99	mcall	99	mcall
100		100
101	mov eax,0 ;Draw window	101	mov eax,0 ;Draw window
102	mov ebx,10065536+(SCREEN_X+9) ;x start65536+x size	102	mov ebx,10065536+(SCREEN_X+9) ;x start65536+x size
103	mov ecx,10065536+(SCREEN_Y+26) ;y start65536+y size	103	mov ecx,10065536+(SCREEN_Y+26) ;y start65536+y size
104	mov edx,0x13000000 ;0x03 use skinned window	104	mov edx,0x14000000 ;0x03 use skinned window
105	mov edi,title	105	mov edi,title
106	mcall	106	mcall
107		107
108	mov eax,12 ;End	108	mov eax,12 ;End
109	mov ebx,2	109	mov ebx,2
110	mcall	110	mcall
111	ret	111	ret
112		112
113	title db '3D TEST SAMPLE FOR MENUETOS',0	113	title db '3D TEST SAMPLE FOR MENUETOS',0
114		114
115		115
116	; Draw faces procedure	116	; Draw faces procedure
117		117
118	draw_faces:	118	draw_faces:
119		119
120	mov esi,link	120	mov esi,link
121	mov ecx,MAX_TRIANGLES	121	mov ecx,MAX_TRIANGLES
122	df_draw:	122	df_draw:
123	push ecx	123	push ecx
124	mov ecx,3	124	mov ecx,3
125	mov edi,@@tx1 ;bp	125	mov edi,@@tx1 ;bp
126	df_get_point:	126	df_get_point:
127	xor bh,bh	127	xor bh,bh
128	mov bl,byte [esi]	128	mov bl,byte [esi]
129	shl bx,2	129	shl bx,2
130	mov ax,word [object_translated+bx]	130	mov ax,word [object_translated+bx]
131	mov word [edi],ax	131	mov word [edi],ax
132	mov ax,word [object_translated+bx+2]	132	mov ax,word [object_translated+bx+2]
133	mov word [edi+2],ax	133	mov word [edi+2],ax
134	inc esi	134	inc esi
135	add edi,4	135	add edi,4
136	dec ecx	136	dec ecx
137	jnz df_get_point	137	jnz df_get_point
138		138
139	mov ax,[@@ty1]	139	mov ax,[@@ty1]
140	sub ax,[@@ty3]	140	sub ax,[@@ty3]
141	mov bx,[@@tx2]	141	mov bx,[@@tx2]
142	sub bx,[@@tx1]	142	sub bx,[@@tx1]
143	imul bx	143	imul bx
144	shl edx,16	144	shl edx,16
145	mov dx,ax	145	mov dx,ax
146	push edx	146	push edx
147	mov ax,[@@tx1]	147	mov ax,[@@tx1]
148	sub ax,[@@tx3]	148	sub ax,[@@tx3]
149	mov bx,[@@ty2]	149	mov bx,[@@ty2]
150	sub bx,[@@ty1]	150	sub bx,[@@ty1]
151	imul bx	151	imul bx
152	shl edx,16	152	shl edx,16
153	mov dx,ax	153	mov dx,ax
154	pop ebx	154	pop ebx
155	sub ebx,edx	155	sub ebx,edx
156	or ebx,ebx	156	or ebx,ebx
157	jge df_next	157	jge df_next
158		158
159	xor ah,ah	159	xor ah,ah
160	mov al,byte [si]	160	mov al,byte [si]
161		161
162	mov [@@xcol],ax	162	mov [@@xcol],ax
163		163
164	call filled_triangle	164	call filled_triangle
165	df_next:	165	df_next:
166	inc si	166	inc si
167	pop ecx	167	pop ecx
168	dec ecx	168	dec ecx
169	jnz df_draw	169	jnz df_draw
170	ret	170	ret
171		171
172	;modify	172	;modify
173	;include graphlib.asm	173	;include graphlib.asm
174		174
175	clear_screen_buffer:	175	clear_screen_buffer:
176		176
177	;outscrbuf	177	;outscrbuf
178	mov ebx,scrbuf	178	mov ebx,scrbuf
179	mov ecx,SCREEN_X*65536+SCREEN_Y	179	mov ecx,SCREEN_X*65536+SCREEN_Y
180	mov edx,5*65536+22	180	mov edx,5*65536+22
181	mov ax,7	181	mov ax,7
182	mcall	182	mcall
183		183
184	;White background	184	;White background
185	mov edi,scrbuf	185	mov edi,scrbuf
186	mov ecx,(SCREEN_XSCREEN_Y3)/4	186	mov ecx,(SCREEN_XSCREEN_Y3)/4
187	mov eax,0xffffffff	187	mov eax,0xffffffff
188	cld	188	cld
189	rep stosd	189	rep stosd
190		190
191	ret	191	ret
192		192
193	;include triangle.asm	193	;include triangle.asm
194	; Mikolaj Felix 14/5/2001	194	; Mikolaj Felix 14/5/2001
195	; mfelix@polbox.com	195	; mfelix@polbox.com
196		196
197	;filled trangle procedure	197	;filled trangle procedure
198		198
199	@@tx1 dw 0	199	@@tx1 dw 0
200	@@ty1 dw 0	200	@@ty1 dw 0
201	@@tx2 dw 0	201	@@tx2 dw 0
202	@@ty2 dw 0	202	@@ty2 dw 0
203	@@tx3 dw 0	203	@@tx3 dw 0
204	@@ty3 dw 0	204	@@ty3 dw 0
205	@@xcol dw 0	205	@@xcol dw 0
206		206
207	@@dx12 dw 0	207	@@dx12 dw 0
208	@@dx13 dw 0	208	@@dx13 dw 0
209	@@dx23 dw 0	209	@@dx23 dw 0
210		210
211	filled_triangle:	211	filled_triangle:
212		212
213	mov ax,[@@xcol] ;trnsforming color	213	mov ax,[@@xcol] ;trnsforming color
214	mov bl,al ;byte bbbggrrx	214	mov bl,al ;byte bbbggrrx
215	mov dl,al ;to 3 byte	215	mov dl,al ;to 3 byte
216	mov dh,al ;bbbxxxxx ggxxxxxx rrxxxxxx	216	mov dh,al ;bbbxxxxx ggxxxxxx rrxxxxxx
217	and dh,00000001b	217	and dh,00000001b
218		218
219	and al,11100000b	219	and al,11100000b
220	and bl,00011000b	220	and bl,00011000b
221	and dl,00000110b	221	and dl,00000110b
222	shl bl,3	222	shl bl,3
223	shl dl,5	223	shl dl,5
224		224
225	cmp dh,1	225	cmp dh,1
226	jne no_bitup	226	jne no_bitup
227	or al,00011111b	227	or al,00011111b
228	or bl,00111111b	228	or bl,00111111b
229	or dl,00111111b	229	or dl,00111111b
230	no_bitup:	230	no_bitup:
231		231
232	shl eax,8 ;puck colors	232	shl eax,8 ;puck colors
233	mov al,bl	233	mov al,bl
234	shl eax,8	234	shl eax,8
235	mov al,dl	235	mov al,dl
236	mov dword [@@rgb],eax	236	mov dword [@@rgb],eax
237	mov eax,0 ; for 16 bit instructions	237	mov eax,0 ; for 16 bit instructions
238		238
239	mov ax,[@@ty1]	239	mov ax,[@@ty1]
240	cmp ax,[@@ty3]	240	cmp ax,[@@ty3]
241	jb ft_check1	241	jb ft_check1
242		242
243	xchg ax,[@@ty3]	243	xchg ax,[@@ty3]
244	mov [@@ty1],ax	244	mov [@@ty1],ax
245		245
246	mov ax,[@@tx1]	246	mov ax,[@@tx1]
247	xchg ax,[@@tx3]	247	xchg ax,[@@tx3]
248	mov [@@tx1],ax	248	mov [@@tx1],ax
249	ft_check1:	249	ft_check1:
250	mov ax,[@@ty2]	250	mov ax,[@@ty2]
251	cmp ax,[@@ty3]	251	cmp ax,[@@ty3]
252	jb ft_check2	252	jb ft_check2
253		253
254	xchg ax,[@@ty3]	254	xchg ax,[@@ty3]
255	mov [@@ty2],ax	255	mov [@@ty2],ax
256		256
257	mov ax,[@@tx2]	257	mov ax,[@@tx2]
258	xchg ax,[@@tx3]	258	xchg ax,[@@tx3]
259	mov [@@tx2],ax	259	mov [@@tx2],ax
260	ft_check2:	260	ft_check2:
261	mov ax,[@@ty1]	261	mov ax,[@@ty1]
262	cmp ax,[@@ty2]	262	cmp ax,[@@ty2]
263	jb ft_check3	263	jb ft_check3
264		264
265	xchg ax,[@@ty2]	265	xchg ax,[@@ty2]
266	mov [@@ty1],ax	266	mov [@@ty1],ax
267		267
268	mov ax,[@@tx1]	268	mov ax,[@@tx1]
269	xchg ax,[@@tx2]	269	xchg ax,[@@tx2]
270	mov [@@tx1],ax	270	mov [@@tx1],ax
271	ft_check3:	271	ft_check3:
272		272
273	mov bx,[@@ty2]	273	mov bx,[@@ty2]
274	sub bx,[@@ty1]	274	sub bx,[@@ty1]
275	jnz ft_dx12_make	275	jnz ft_dx12_make
276		276
277	mov [@@dx12],word 0	277	mov [@@dx12],word 0
278	jmp ft_dx12_done	278	jmp ft_dx12_done
279	ft_dx12_make:	279	ft_dx12_make:
280	mov ax,[@@tx2]	280	mov ax,[@@tx2]
281	sub ax,[@@tx1]	281	sub ax,[@@tx1]
282	shl ax,7	282	shl ax,7
283	cwd	283	cwd
284	idiv bx	284	idiv bx
285	mov [@@dx12],ax ; dx12 = (x2-x1)/(y2-y1)	285	mov [@@dx12],ax ; dx12 = (x2-x1)/(y2-y1)
286	ft_dx12_done:	286	ft_dx12_done:
287		287
288	mov bx,[@@ty3]	288	mov bx,[@@ty3]
289	sub bx,[@@ty1]	289	sub bx,[@@ty1]
290	jnz ft_dx13_make	290	jnz ft_dx13_make
291		291
292	mov [@@dx13],word 0	292	mov [@@dx13],word 0
293	jmp ft_dx13_done	293	jmp ft_dx13_done
294	ft_dx13_make:	294	ft_dx13_make:
295	mov ax,[@@tx3]	295	mov ax,[@@tx3]
296	sub ax,[@@tx1]	296	sub ax,[@@tx1]
297	shl ax,7	297	shl ax,7
298	cwd	298	cwd
299	idiv bx	299	idiv bx
300	mov [@@dx13],ax ; dx13 = (x3-x1)/(y3-y1)	300	mov [@@dx13],ax ; dx13 = (x3-x1)/(y3-y1)
301	ft_dx13_done:	301	ft_dx13_done:
302		302
303	mov bx,[@@ty3]	303	mov bx,[@@ty3]
304	sub bx,[@@ty2]	304	sub bx,[@@ty2]
305	jnz ft_dx23_make	305	jnz ft_dx23_make
306		306
307	mov [@@dx23],word 0	307	mov [@@dx23],word 0
308	jmp ft_dx23_done	308	jmp ft_dx23_done
309	ft_dx23_make:	309	ft_dx23_make:
310	mov ax,[@@tx3]	310	mov ax,[@@tx3]
311	sub ax,[@@tx2]	311	sub ax,[@@tx2]
312	shl ax,7	312	shl ax,7
313	cwd	313	cwd
314	idiv bx	314	idiv bx
315	mov [@@dx23],ax ; dx23 = (x3-x2)/(y3-y2)	315	mov [@@dx23],ax ; dx23 = (x3-x2)/(y3-y2)
316	ft_dx23_done:	316	ft_dx23_done:
317		317
318	mov ax,[@@tx1]	318	mov ax,[@@tx1]
319	shl ax,7	319	shl ax,7
320	mov bx,ax	320	mov bx,ax
321		321
322	mov cx,[@@ty1]	322	mov cx,[@@ty1]
323	ft_loop1:	323	ft_loop1:
324		324
325	pushad	325	pushad
326		326
327	mov [@@ly],cx	327	mov [@@ly],cx
328	mov dx,bx	328	mov dx,bx
329	shr dx,7	329	shr dx,7
330	mov [@@lx2],dx	330	mov [@@lx2],dx
331	mov dx,ax	331	mov dx,ax
332	shr dx,7	332	shr dx,7
333	mov [@@lx1],dx	333	mov [@@lx1],dx
334	mov ax,[@@xcol]	334	mov ax,[@@xcol]
335	mov [@@lcol],ax	335	mov [@@lcol],ax
336	call horizontal_line	336	call horizontal_line
337		337
338	popad	338	popad
339		339
340	add ax,[@@dx13]	340	add ax,[@@dx13]
341	add bx,[@@dx12]	341	add bx,[@@dx12]
342	inc cx	342	inc cx
343	cmp cx,[@@ty2]	343	cmp cx,[@@ty2]
344	jb ft_loop1	344	jb ft_loop1
345		345
346		346
347	mov bx,[@@tx2]	347	mov bx,[@@tx2]
348	shl bx,7	348	shl bx,7
349	mov cx,[@@ty2]	349	mov cx,[@@ty2]
350	ft_loop2:	350	ft_loop2:
351		351
352	pushad	352	pushad
353		353
354	mov [@@ly],cx	354	mov [@@ly],cx
355	mov dx,bx	355	mov dx,bx
356	shr dx,7	356	shr dx,7
357	mov [@@lx2],dx	357	mov [@@lx2],dx
358	mov dx,ax	358	mov dx,ax
359	shr dx,7	359	shr dx,7
360	mov [@@lx1],dx	360	mov [@@lx1],dx
361	mov ax,[@@xcol]	361	mov ax,[@@xcol]
362	mov [@@lcol],ax	362	mov [@@lcol],ax
363	call horizontal_line	363	call horizontal_line
364		364
365	popad	365	popad
366		366
367	add ax,[@@dx13]	367	add ax,[@@dx13]
368	add bx,[@@dx23]	368	add bx,[@@dx23]
369	inc ecx	369	inc ecx
370	cmp cx,[@@ty3]	370	cmp cx,[@@ty3]
371	jb ft_loop2	371	jb ft_loop2
372		372
373	ret	373	ret
374		374
375	;horizontal line subproc	375	;horizontal line subproc
376		376
377	@@lx1 dw 0	377	@@lx1 dw 0
378	@@lx2 dw 0	378	@@lx2 dw 0
379	@@ly dw 0	379	@@ly dw 0
380	@@lcol dw 0	380	@@lcol dw 0
381		381
382	@@rgb dd 0	382	@@rgb dd 0
383		383
384	horizontal_line:	384	horizontal_line:
385		385
386	mov ecx,0	386	mov ecx,0
387	mov cx,[@@lx1]	387	mov cx,[@@lx1]
388	cmp cx,[@@lx2]	388	cmp cx,[@@lx2]
389	ja x12	389	ja x12
390	je ext	390	je ext
391	; ret	391	; ret
392	mov cx,[@@lx2]	392	mov cx,[@@lx2]
393	sub cx,[@@lx1]	393	sub cx,[@@lx1]
394	mov edi,3	394	mov edi,3
395	jmp xx	395	jmp xx
396	x12:	396	x12:
397	mov cx,[@@lx1]	397	mov cx,[@@lx1]
398	sub cx,[@@lx2]	398	sub cx,[@@lx2]
399	mov edi,-3	399	mov edi,-3
400	jmp xx	400	jmp xx
401	ext:	401	ext:
402	mov ecx,-1 ;1	402	mov ecx,-1 ;1
403	; sub ebp,3	403	; sub ebp,3
404	xx:	404	xx:
405	mov eax,0	405	mov eax,0
406	mov ax,[@@ly]	406	mov ax,[@@ly]
407	mov ebx,SCREEN_X ;320	407	mov ebx,SCREEN_X ;320
408	mul ebx	408	mul ebx
409	mov ebp,0	409	mov ebp,0
410	mov bp,[@@lx1] ;for correct 16 bit size	410	mov bp,[@@lx1] ;for correct 16 bit size
411	add eax,ebp	411	add eax,ebp
412	mov ebx,3	412	mov ebx,3
413	mul ebx	413	mul ebx
414	mov ebp,eax	414	mov ebp,eax
415	sub ebp,3 ;for delete white dots	415	sub ebp,3 ;for delete white dots
416	add ecx,2	416	add ecx,2
417	loo:	417	loo:
418		418
419	mov eax,dword [@@rgb]	419	mov eax,dword [@@rgb]
420	mov bl,al	420	mov bl,al
421	shr eax,8 ;puck colors	421	shr eax,8 ;puck colors
422		422
423	mov byte [scrbuf+ebp],ah	423	mov byte [scrbuf+ebp],ah
424	mov byte [scrbuf+ebp+1],al	424	mov byte [scrbuf+ebp+1],al
425	mov byte [scrbuf+ebp+2],bl	425	mov byte [scrbuf+ebp+2],bl
426	add ebp,edi	426	add ebp,edi
427	dec ecx	427	dec ecx
428	jnz loo	428	jnz loo
429		429
430	ret	430	ret
431		431
432	;include fixed3d.asm	432	;include fixed3d.asm
433	; Mikolaj Felix 25/5/2001	433	; Mikolaj Felix 25/5/2001
434	; mfelix@polbox.com	434	; mfelix@polbox.com
435		435
436	;------------------------------------------------------------	436	;------------------------------------------------------------
437	; ds:si - offset to angles	437	; ds:si - offset to angles
438	; ds:di - offset to 3d points	438	; ds:di - offset to 3d points
439	; cx - number of points	439	; cx - number of points
440	;------------------------------------------------------------	440	;------------------------------------------------------------
441		441
442	@@sin_x dw 0	442	@@sin_x dw 0
443	@@cos_x dw 0	443	@@cos_x dw 0
444	@@sin_y dw 0	444	@@sin_y dw 0
445	@@cos_y dw 0	445	@@cos_y dw 0
446	@@sin_z dw 0	446	@@sin_z dw 0
447	@@cos_z dw 0	447	@@cos_z dw 0
448		448
449	@@px equ word [edi]	449	@@px equ word [edi]
450	@@py equ word [edi+2]	450	@@py equ word [edi+2]
451	@@pz equ word [edi+4]	451	@@pz equ word [edi+4]
452		452
453	rotate_points:	453	rotate_points:
454		454
455	push edi	455	push edi
456	mov edi,@@sin_x	456	mov edi,@@sin_x
457	mov edx,3	457	mov edx,3
458	rp_sin_cos:	458	rp_sin_cos:
459	mov bx,word [esi]	459	mov bx,word [esi]
460	and bx,511	460	and bx,511
461	shl bx,1	461	shl bx,1
462	mov ax,word [sin_table+bx]	462	mov ax,word [sin_table+bx]
463	mov word [edi],ax	463	mov word [edi],ax
464	mov ax,word [cos_table+bx]	464	mov ax,word [cos_table+bx]
465	mov word [edi+2],ax	465	mov word [edi+2],ax
466		466
467	add esi,2	467	add esi,2
468	add edi,4	468	add edi,4
469	dec edx	469	dec edx
470	jnz rp_sin_cos	470	jnz rp_sin_cos
471	pop edi	471	pop edi
472		472
473	rp_rotate:	473	rp_rotate:
474		474
475	; rotate around x-axis	475	; rotate around x-axis
476		476
477	mov ax,@@py	477	mov ax,@@py
478	imul [@@cos_x]	478	imul [@@cos_x]
479	mov bx,ax	479	mov bx,ax
480	mov si,dx	480	mov si,dx
481		481
482	mov ax,@@pz	482	mov ax,@@pz
483	imul [@@sin_x]	483	imul [@@sin_x]
484	sub bx,ax	484	sub bx,ax
485	sbb si,dx	485	sbb si,dx
486	shrd bx,si,14	486	shrd bx,si,14
487	push bx	487	push bx
488		488
489	mov ax,@@py	489	mov ax,@@py
490	imul [@@sin_x]	490	imul [@@sin_x]
491	mov bx,ax	491	mov bx,ax
492	mov si,dx	492	mov si,dx
493		493
494	mov ax,@@pz	494	mov ax,@@pz
495	imul [@@cos_x]	495	imul [@@cos_x]
496	add bx,ax	496	add bx,ax
497	adc si,dx	497	adc si,dx
498	shrd bx,si,14	498	shrd bx,si,14
499		499
500	pop @@py	500	pop @@py

Subversion Repositories Kolibri OS

(root)/programs/demos/3dcube2/trunk/3DCUBE2.ASM – Rev 485 → 551