home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / DRPOLY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  400 b   |  25 lines
  1. uses
  2.   Graph;
  3.  
  4. const
  5.   Triangle : array[1..4] of PointType =
  6.    ((x:  50; y: 100),
  7.     (x: 100; y: 100),
  8.     (x: 150; y: 150),
  9.     (x:  50; y: 100));
  10.  
  11. var
  12.   Gd, Gm : integer;
  13.  
  14. begin
  15.   Gd := Detect;
  16.   InitGraph(Gd, Gm, '');
  17.   if GraphResult <> grOk then
  18.     Halt(1);
  19.   DrawPoly(SizeOf(Triangle) div SizeOf(PointType), { 4 }
  20.            Triangle);
  21.   Readln;
  22.   CloseGraph;
  23. end.
  24.  
  25.