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