Паскаль, использование drawpoly()
Крик о помощи =)
Не могу разобраться с процедурой Drawpoly модуля graph...
Объясните пожалуйста как её пользоваться на примере такой задачи:
рисунок 5 конечной звезды
кординаты вершин:
320,1
640,240
640,480
1,480
1,240
заранее благодарен)
Не могу разобраться с процедурой Drawpoly модуля graph...
Объясните пожалуйста как её пользоваться на примере такой задачи:
рисунок 5 конечной звезды
кординаты вершин:
320,1
640,240
640,480
1,480
1,240
заранее благодарен)
разберись на примере что в хелпе:
[highlight=pascal]
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, '');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.
[/highlight]
кстати надо заметить, что для того, чтобы нарисовать такую звезду как у красной армии тебе понадобится не 5, а 10 точек, потому что надо указать будет все угловые точки, а углов у такой звезды если не ошибаюсь как раз 10. чтобы выполнить задание тебе надо лишь вместо 4 поставить 10, дописать по аналогии еще 6 точек и изменить 4, а затем указать путь к bgi драйверу
[highlight=pascal]
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, '');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.
[/highlight]
кстати надо заметить, что для того, чтобы нарисовать такую звезду как у красной армии тебе понадобится не 5, а 10 точек, потому что надо указать будет все угловые точки, а углов у такой звезды если не ошибаюсь как раз 10. чтобы выполнить задание тебе надо лишь вместо 4 поставить 10, дописать по аналогии еще 6 точек и изменить 4, а затем указать путь к bgi драйверу
спасибо)