forked from KolibriOS/kolibrios
680 lines
10 KiB
NASM
680 lines
10 KiB
NASM
;
|
|
; 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: |