home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
var_3d.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-17
|
1KB
|
35 lines
Unit Var_3d;
Interface
Uses Tools;
Const Txt_Nbre=5; {nombre de textures utilisées }
Txt_Taille: {tailles des textures }
Array[0..Txt_Nbre-1] of Word=
($0a0a,$0a0a,$0a0a,$0a0a,$0a0a);
Var vz:Word; {déplacement dans l'écran }
rotx, {angle de rotation }
roty,
rotz:word; {rotation en unités de 3 degrés }
su_sort:Boolean; {tri des surfaces ?}
Remplir:Boolean; {true : remplir / false : lignes}
su_cacher:Boolean; {traitement des faces cachées ?}
Texture:Boolean; {utiliser des textures ?}
lightsrc:Boolean; {utiliser une source de lumière ?}
Verre:Boolean; {surfaces en verre ?}
Txt_Data:Array[0..Txt_Nbre-1] of Pointer;
{situation des textures en mémoire }
Txt_Offs:Array[0..Txt_Nbre-1] of Word;
{offset à l'intérieur de l'image de la texture }
Txt_Pic:Pointer; {pointeur sur l'image de la texture }
Sinus:Array[0..149] of Word; {table de sinus pour les rotations }
Implementation
Begin
Sin_Gen(Sinus,120,16384,0);
Move(Sinus[0],Sinus[120],60);
End.