home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / SETVP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  833 b   |  35 lines
  1. uses Graph;
  2. const
  3.   vp1 : ViewPortType =
  4.     (x1: 10; y1: 80; x2: 100; y2: 150; Clip : ClipOn);
  5.   vp2 : ViewPortType =
  6.     (x1: 110; y1: 0; x2: 200; y2:  70; Clip : ClipOn);
  7. var
  8.   GraphDriver, GraphMode : integer;
  9.  
  10. begin
  11.   GraphDriver := Detect;
  12.   InitGraph(GraphDriver,GraphMode,'');
  13.   if GraphResult <> grOk then
  14.     Halt(1);
  15.   with vp1 do
  16.   begin
  17.     Rectangle(Succ(x1),Succ(y1), { Outline viewport 1 }
  18.               Pred(x2),Pred(y2));
  19.     SetViewPort(x1, y1, x2, y2, ClipOn);
  20.     OutText('ViewPort1');
  21.   end;
  22.  
  23.   { Full screen }
  24.   SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn);
  25.   with vp2 do
  26.   begin
  27.     { Outline viewport 2 }
  28.     Rectangle(Succ(x1),Succ(y1),
  29.               Pred(x2),Pred(y2));
  30.     SetViewPort(x1, y1, x2, y2, ClipOn);
  31.     OutText('ViewPort2');
  32.   end;
  33.   Readln;
  34.   CloseGraph;
  35. end.