AggPas - Anti-Grain Geomertry for Object Pascal

TAgg2D.Polyline(xy, numPoints)

Description

Draws open path consisting of an arbitrary number of linear segments.

Parameters

xy: PDouble

Pointer to the first element of an array containing polyline linear segments defined as x:y couples [in subpixels].

numPoints: integer

Determines how many x:y couples are in the linear segments array defining a polyline.

Example

var
  i: integer;
  poly: array[1..40] of double;

if VG.Attach(Image1.Picture.Bitmap) then begin

  VG.ClearAll(255, 255, 255);

  // Randomize polyline vertexes
  Randomize;
  for i := 1 to 20 do begin
    poly[i * 2 - 1] := random(ClientWidth - 20) + 10.5;
    poly[i * 2] := random(ClientHeight - 20) + 10.5;
  end;

  // Draw Polyline
  VG.LineWidth(3);
  VG.LineColor($FF, $00, $00);

  VG.Polyline(@poly[1], 20);

end;

Screenshot: example