drawpoly.pas

Пример программы для процедуры Drawpoly.

Код примера
  {Drawpoly.PAS}
 
  { Пример программы для процедуры Drawpoly }
 
  Uses Graph;
 
  Const Triangle : Array [1..4] Of PointType = ((X: 50; Y: 100),
                                                (X: 100; Y:100), 
                                                (X: 150; Y: 150),
                                                (X:  50; Y: 100));
  Var Gd, Gm : Integer;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
  If GraphResult <> grOk Then Halt(1);
  DrawPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
  ReadLn;
  CloseGraph;
 End.

Скачать drawpoly.pas