11 lines
221 B
ObjectPascal
11 lines
221 B
ObjectPascal
|
uses GraphWPF;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Parameters.ArrowSizeAcross := 4;
|
|||
|
|
Parameters.ArrowSizeAlong := 10;
|
|||
|
|
SetMathematicCoords;
|
|||
|
|
var (p1,p2,p3) := (Pnt(0,0),Pnt(2,3),Pnt(4,-1));
|
|||
|
|
Arrow(p1,p2);
|
|||
|
|
Arrow(p2,p3);
|
|||
|
|
Arrow(p3,p1);
|
|||
|
|
end.
|