Source position: bgrapen.pas line 73
type TComputeArrowHeadProc = function(
const APosition: TPointF;
const ADirection: TPointF;
const AWidth: single;
const ACurrentPos: single
):ArrayOfTPointF of object;