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