home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_GEN
/
LIB3D30A.ZIP
/
HDR3D.INT
< prev
next >
Wrap
Text File
|
1994-03-10
|
2KB
|
67 lines
(******************************************************************************
* hdr3d *
* This unit includes the headers needed for 3D manipulation .. *
******************************************************************************)
unit hdr3d;
interface
const
version3dLib = '3.0';
const
MaxPoints = 20;
MaxLines = 50;
maxObjects = 9; {size of object table}
maxNest = 10; {size of loop table of interpreter}
const ScreenWidth = 1000;
HalfWidth = screenWidth / 2;
radFactor = 180 / 3.1415926535897932385;
type
line3dPtr = ^ line3d;
Line3d = record
FromP, ToP : integer;
end;
screenPointsPtr = ^ screenPoints;
screenPoints = record
sX,sY : integer;
end;
axisType = (x,y,z);
type
point3dPtr = ^ point3d;
point3d = record
x, y, z : real;
end;
const
zeroPoint : point3d = (x:0.0; y:0.0; z:0.0);
xAxis : integer = 45;
yAxis : integer = 45;
var
{$ifdef windows}
MaxX, MaxY : word; { In pixels for graphics screen }
MaxColor : word;
{$endif}
{$ifdef os2}
MaxX, MaxY : longint; { In pixels for graphics screen }
MaxColor : longint;
{$endif}
cosine_x,cosine_y,sine_x,sine_y : Real;
currentPath : string[32];
const
currentAxis : axisType = x;
Procedure CalcAxisDeg;
procedure setDefaultSuffix(var Fname : string; suffix : string);
implementation
end.