program fpvwritegroup;
{$mode objfpc}{$H+}
uses
fpimage, fpCanvas,
fpvectorial, svgvectorialwriter, fpvutils, fpvectorialpkg;
const
cFormat = vfSVG;
cExtension = '.svg';
var
Vec: TvVectorialDocument;
Page: TvVectorialPage;
begin
Vec := TvVectorialDocument.Create;
try
// All documents are 10cm x 10cm
Vec.Width := 100;
Vec.Height := 100;
Page := Vec.AddPage();
Page.Clear;
with Page.AddCircle(0, 0, 10) do
begin
Brush.Color := colYellow;
Brush.Style := bsSolid;
end;
Page.AddLayerAndSetAsCurrent('g1');
with Page.AddCircle(50, 50, 10) do
begin
Brush.Color := colRed;
Brush.Style := bsSolid;
end;
with Page.AddCircle(55, 50, 10) do
begin
Brush.Color := colGreen;
Brush.Style := bsSolid;
end;
Page.ClearLayerSelection;
with Page.AddCircle(100, 100, 10) do
begin
Brush.Color := colBlue;
Brush.Style := bsSolid;
end;
Vec.WriteToFile('layer_demo' + cExtension, cFormat);
finally
Vec.Free;
end;
end.