233 lines
4.5 KiB
NASM
233 lines
4.5 KiB
NASM
use16
|
|
align 1
|
|
|
|
include "..\include\mem.h"
|
|
include "..\include\fat.h"
|
|
include "..\include\divers.h"
|
|
include "..\include\3d.h"
|
|
|
|
org 0h
|
|
|
|
header exe 1,0,imports,0,realstart
|
|
|
|
alldata:
|
|
camera vertex3d 320.0,240.0,70.0
|
|
|
|
zoom dd 5.0
|
|
rot1 dd 0.1
|
|
rot2 dd -0.1
|
|
|
|
vertexnbp dw 15
|
|
dd 0.0,0.0,0.0
|
|
dd 20.0,0.0,0.0
|
|
dd 24.0,0.0,0.0
|
|
dd 20.0,-2.0,0.0
|
|
dd 20.0,2.0,0.0
|
|
dd 0.0,0.0,0.0
|
|
dd 0.0,20.0,0.0
|
|
dd 0.0,24.0,0.0
|
|
dd -2.0,20.0,0.0
|
|
dd 2.0,20.0,0.0
|
|
dd 0.0,0.0,0.0
|
|
dd 0.0,0.0,20.0
|
|
dd 0.0,0.0,24.0
|
|
dd -2.0,-2.0,20.0
|
|
dd 2.0,2.0,20.0
|
|
|
|
facenbp dw 6
|
|
dw 0,1,1
|
|
dw 2,4,3
|
|
dw 5,6,6
|
|
dw 7,9,8
|
|
dw 10,11,11
|
|
dw 12,14,13
|
|
|
|
vertexnbp2 dw 15
|
|
dd 0.0,0.0,0.0
|
|
dd 20.0,0.0,0.0
|
|
dd 24.0,0.0,0.0
|
|
dd 20.0,-2.0,0.0
|
|
dd 20.0,2.0,0.0
|
|
dd 0.0,0.0,0.0
|
|
dd 0.0,20.0,0.0
|
|
dd 0.0,24.0,0.0
|
|
dd -2.0,20.0,0.0
|
|
dd 2.0,20.0,0.0
|
|
dd 0.0,0.0,0.0
|
|
dd 0.0,0.0,20.0
|
|
dd 0.0,0.0,24.0
|
|
dd -2.0,-2.0,20.0
|
|
dd 2.0,2.0,20.0
|
|
|
|
|
|
mat1 mat
|
|
mat2 mat
|
|
mat3 mat
|
|
matrixp mat
|
|
|
|
mode db 0
|
|
|
|
objectp:
|
|
vertexp equ objectp+15
|
|
facep equ vertexp+20000
|
|
screen equ facep+20000
|
|
|
|
realstart:
|
|
invoke savestate
|
|
invoke setvideomode,10
|
|
invoke clearscreen
|
|
invoke mballoc,65535
|
|
mov es,ax
|
|
mov si, alldata
|
|
mov di,si
|
|
mov ecx,( realstart- alldata)
|
|
shr ecx,2
|
|
inc ecx
|
|
cld
|
|
rep movsd
|
|
invoke projfile, filename
|
|
jc errorloading
|
|
invoke mbfind, filename
|
|
jc errorloading
|
|
push es
|
|
pop ds
|
|
mov es,ax
|
|
invoke load3ds,es,0, objectp, vertexp, matrixp, facep
|
|
invoke transform, vertexnbp, matrixp
|
|
invoke identity, mat1
|
|
jmp show
|
|
rool:
|
|
mov ah,1
|
|
int 16h
|
|
jz rool
|
|
xor ax,ax
|
|
int 16h
|
|
cmp ax,011Bh
|
|
je endee
|
|
cmp ax,3B00h
|
|
jne notmode
|
|
inc [mode]
|
|
cmp [mode],3
|
|
jb notmodify
|
|
mov [mode],0
|
|
jmp notmodify
|
|
notmode:
|
|
cmp ax,4800h
|
|
jne notup
|
|
invoke rotationx, mat1,[rot2]
|
|
jmp show
|
|
notup:
|
|
cmp ax,5000h
|
|
jne notdown
|
|
invoke rotationx, mat1,[rot1]
|
|
jmp show
|
|
notdown:
|
|
cmp ax,4B00h
|
|
jne notleft
|
|
invoke rotationy, mat1,[rot1]
|
|
jmp show
|
|
notleft:
|
|
cmp ax,4D00h
|
|
jne notright
|
|
invoke rotationy, mat1,[rot2]
|
|
jmp show
|
|
notright:
|
|
cmp ax,4900h
|
|
jne notupup
|
|
invoke rotationz, mat1,[rot1]
|
|
jmp show
|
|
notupup:
|
|
cmp ax,5100h
|
|
jne notdowndown
|
|
invoke rotationz, mat1,[rot2]
|
|
jmp show
|
|
notdowndown:
|
|
cmp ax,4A2Dh
|
|
jne notminus
|
|
fld [camera.tz]
|
|
fsub [zoom]
|
|
fstp [camera.tz]
|
|
jmp show
|
|
notminus:
|
|
cmp ax,4E2Bh
|
|
jne notmaxus
|
|
fld [camera.tz]
|
|
fadd [zoom]
|
|
fstp [camera.tz]
|
|
jmp show
|
|
notmaxus:
|
|
invoke identity, mat1
|
|
jmp rool
|
|
show:
|
|
invoke transform, vertexp, mat1
|
|
invoke transform, vertexnbp, mat1
|
|
notmodify:
|
|
invoke clearscreen
|
|
invoke print, objectp
|
|
invoke draw3d_line,3, facenbp, vertexnbp, screen, camera,3
|
|
invoke draw3d_line,3, facenbp, vertexnbp2, screen, camera,3
|
|
cmp [mode],0
|
|
jne line
|
|
invoke draw3d_point, vertexp, screen, camera,4
|
|
jmp retrace
|
|
line:
|
|
cmp [mode],1
|
|
jne hidden
|
|
invoke draw3d_line,3, facep, vertexp, screen, camera,4
|
|
jmp retrace
|
|
hidden:
|
|
invoke draw3d_hidden,3, facep, vertexp, screen, camera,4
|
|
retrace:
|
|
invoke waitretrace
|
|
invoke waitretrace
|
|
jmp rool
|
|
endee:
|
|
invoke restorestate
|
|
retf
|
|
|
|
errorloading:
|
|
push cs
|
|
pop ds
|
|
invoke print, errorload
|
|
invoke bioswaitkey
|
|
jmp endee
|
|
|
|
errorload db '\c02Erreur au chargement du fichier 3D\l<Appuyez sur une touche>\c07',0
|
|
|
|
filename find "SPHERE.3DS"
|
|
|
|
|
|
importing
|
|
use 3D.LIB,draw3d_point
|
|
use 3D.LIB,draw3d_line
|
|
use 3D.LIB,draw3d_hidden
|
|
use 3D.LIB,draw3d_hidden_fill
|
|
use 3D.LIB,load3ds
|
|
use 3D.LIB,translate
|
|
use 3D.LIB,translatex
|
|
use 3D.LIB,translatey
|
|
use 3D.LIB,translatez
|
|
use 3D.LIB,scale
|
|
use 3D.LIB,rescale
|
|
use 3D.LIB,copy
|
|
use 3D.LIB,fill
|
|
use 3D.LIB,identity
|
|
use 3D.LIB,rotationx
|
|
use 3D.LIB,rotationy
|
|
use 3D.LIB,rotationz
|
|
use 3D.LIB,rotation
|
|
use 3D.LIB,project
|
|
use 3D.LIB,transform
|
|
use 3D.LIB,multiply
|
|
use VIDEO,savestate
|
|
use VIDEO,clearscreen
|
|
use VIDEO,setvideomode
|
|
use VIDEO,restorestate
|
|
use VIDEO,waitretrace
|
|
use SYSTEME,bioswaitkey
|
|
use SYSTEME,mbfind
|
|
use SYSTEME,mballoc
|
|
use VIDEO.LIB,print
|
|
use DISQUE,projfile
|
|
endi
|