home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / bgiexamp.arc / DRPOLY.PAS < prev    next >
Pascal/Delphi Source File  |  1988-08-29  |  400b  |  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.