siema mam problem niewiem jak nawysowac choinke w module grapf jelsi ktos wie jak to zrobic z gory dzieki podejrzewam ze mozna to zrobic z 3 trojkatow ale niemoge nigdzie znaleŹĆ jak zrobic trojkat jeden pod drugim i jeden wikszy od drugiego bede wdzieczny za pomoc :D!!
Trójkąt to trzy linie, tego też nie umiesz?
DrawPoly (procedure) (Graph Unit)
Draws the outline of a polygon using the current line style and color.
Declaration:
procedure DrawPoly(NumPoints: Word; var PolyPoints);
Target:
Real, Protected
Remarks:
NumPoints specifies the number of coordinates in PolyPoints. A coordinate
consists of two words, an X and a Y value.
Restrictions:
Must be in graphics mode.
See Also:
FillPoly
GetLineSettings
GraphResult
SetColor
SetLineStyle
SetWriteMode
Sample Code:
{Drawpoly.PAS}
{Sample code for the Drawpoly function.}
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.
ales mi choinke zrobil mi choidzilo ze niewiem jak zrobic trojkat jeden pod drugim zeby wyszla choinka !!
Po pierwsze to nie ja tylko borland, po drugie to narysuj sobie na kartce choinkę z trójkątów popatrz na współrzędne wierzchołków i rysuj. Odrobinka wysiłku nie zaszkodzi co... ?
a mozesz mi chociaz powiedziec gdzie wpisac zeby 2 trojkat sie pojawil ??
Nie. Dla mnie EOT.