home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol069 / init.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  905 b   |  58 lines
  1. External GRAPHICS::INIT(2);
  2. (*$E+ *)
  3.  
  4. { set default parameter values }
  5. procedure Initialize;
  6. begin
  7.   Done := false;
  8.   NumPols := 0;
  9.   NumDisplay := 0;
  10.   NumVtces := 0;
  11.   NumPts := 0;
  12.   with EyePt do
  13.     begin
  14.       X:=5.0;
  15.       Y:=-5.0;
  16.       Z:=3.0
  17.     end;
  18.   with CntrInt do
  19.     begin
  20.       X:=0.0;
  21.       Y:=0.0;
  22.       Z:=0.0;
  23.     end;
  24.   WindowSize := 4;
  25.   with Window[1] do
  26.     begin
  27.       X:=-4.0;
  28.       Y:=-3.0;
  29.       Z:=16.0
  30.     end;
  31.   with Window[2] do
  32.      begin
  33.        X:=-4.0;
  34.        Y:= 3.0;
  35.        Z:=16.0
  36.      end;
  37.   with Window[3] do
  38.     begin
  39.       X:= 4.0;
  40.       Y:= 3.0;
  41.       Z:=16.0
  42.     end;
  43.   with Window[4] do
  44.     begin
  45.       X:= 4.0;
  46.       Y:=-3.0;
  47.       Z:=16.0
  48.     end;
  49.   GetScreenScale;
  50.   GetPlanes(Window,WindowSize);
  51.   with ScreenCtr do
  52.     begin
  53.       X:=DotsAcross/2;
  54.       Y:=DotsDown/2
  55.     end
  56. end;    { Initialize }
  57. .
  58.