{===================================================}
{=== VECTOR.TPU Written By Franz-Josef Ayestaran ===}
{===================================================}


{ *** Public Variables *** }
{ ************************ }

type
   two_dimensional_array = array[1..2,1..201] of integer;

var
   Xoffset,Yoffset,Zoffset:Integer;  { Used for movement of the object }

{ ************************ }

{ *** Public Procedures / Functions *** }
{ ************************************* }

Procedure clear2darray(var oldcord:two_dimensional_array);
Procedure Old2New;
Procedure New2Old;
procedure paste2d;
procedure Draw2dwire(x,y:integer;colour:byte);
Procedure Clear2d;
Procedure Save2d(Filename:string);
Procedure Load2d(Filename:string);
procedure zero2dwire;
procedure scale2dwire(scale:real);
procedure rotate2dwire(degrees:integer);
Procedure Draw3dwireuser(colour:byte;where:word);
Procedure Draw3dsoliduser(colour:byte;where:word);
 Function rad(theta:real) : real;
Procedure SetUp3dwire(xd:boolean);
Procedure Rotate3dwire(X,Y,Z:Integer);

{ ************************************* }