lazarus/components/fpvectorial/examples/fpvwritetest.pas

{
FPVectorial example application for writing vectorial images
generated in code to disk. This program will generate the following
vectorial images:

single_line_1    One line from (0, 20) to (30, 30)
single_line_2    One line from (20, 30) to (30, 20)
polyline_1       One line from (0, 0) to (10, 10) to (20, 30) to (30, 20)
polyline_2       One line from (10, 10) to (20, 30) to (30, 20) to (40, 40)
bezier_1         One path starting in (0, 0) lining to (10, 10) then bezier to (20, 10) and then line to (30, 0)
bezier_2         One curve from (10, 10) to (20, 20)
text_ascii       One text written at (10, 10)
text_europen     One text testing european languages at (20, 20)
text_asian       One text testing asian languages at (30, 30)

Author: Felipe Monteiro de Carvalho

License: Public Domain
}
program fpvwritetest;

{$mode objfpc}{$H+}

uses
  fpvectorial, svgvectorialwriter, fpvutils;

const
  cFormat = vfSVG;
  cExtension = '.svg';
var
  Vec: TvVectorialDocument;

{$R *.res}

begin
  Vec := TvVectorialDocument.Create;
  try
    // All documents are 10cm x 10cm
    Vec.Width := 100;
    Vec.Height := 100;

    // single_line_1    One line from (0, 20) to (30, 30)
    Vec.StartPath(0, 20);
    Vec.AddLineToPath(30, 30);
    Vec.EndPath();
    Vec.WriteToFile('single_line_1' + cExtension, cFormat);

    // single_line_2    One line from (20, 30) to (30, 20)
    Vec.Clear;
    Vec.StartPath(20, 30);
    Vec.AddLineToPath(30, 20);
    Vec.EndPath();
    Vec.WriteToFile('single_line_2' + cExtension, cFormat);

    // single_line_3    One line from (0, 20) to (30, 30) + frame
    Vec.Clear;
    Vec.StartPath(0, 20);
    Vec.AddLineToPath(30, 30);
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(100, 0);
    Vec.AddLineToPath(100, 100);
    Vec.AddLineToPath(0, 100);
    Vec.AddLineToPath(0, 0);
    Vec.EndPath();
    Vec.WriteToFile('single_line_3' + cExtension, cFormat);

    // polyline_1       One line from (0, 0) to (10, 10) to (20, 30) to (30, 20)
    Vec.Clear;
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(10, 10);
    Vec.AddLineToPath(20, 30);
    Vec.AddLineToPath(30, 20);
    Vec.EndPath();
    Vec.WriteToFile('polyline_1' + cExtension, cFormat);

    //    polyline_2       One line from (10, 10) to (20, 30) to (30, 20) to (40, 40)
    Vec.Clear;
    Vec.StartPath(10, 10);
    Vec.AddLineToPath(20, 30);
    Vec.AddLineToPath(30, 20);
    Vec.AddLineToPath(40, 40);
    Vec.EndPath();
    Vec.WriteToFile('polyline_2' + cExtension, cFormat);

    // bezier_1         One path starting in (0, 0) lining to (10, 10) then bezier to (20, 10) and then line to (30, 0)
    Vec.Clear;
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(10, 10);
    Vec.AddBezierToPath(10, 20, 20, 20, 20, 10);
    Vec.AddLineToPath(30, 0);
    Vec.EndPath();
    Vec.WriteToFile('bezier_1' + cExtension, cFormat);

    // bezier_2         One curve from (10, 10) to (20, 20)
    Vec.Clear;
    Vec.StartPath(10, 10);
    Vec.AddBezierToPath(10, 15, 15, 20, 20, 10);
    Vec.EndPath();
    Vec.WriteToFile('bezier_2' + cExtension, cFormat);

    // text_ascii       One text written at (10, 10)
    Vec.Clear;
    Vec.AddText(10, 10, 0, '10,10 Some text in english.');
    Vec.WriteToFile('text_ascii' + cExtension, cFormat);

    // text_europen     One text testing european languages at (20, 20)
    Vec.Clear;
    Vec.AddText(20, 20, 0, '20, 20 Mówić, cześć, Włosku, Parabéns, Assunção, Correções.');
    Vec.WriteToFile('text_europen' + cExtension, cFormat);

    // text_asian       One text testing asian languages at (30, 30)
    Vec.Clear;
    Vec.AddText(30, 30, 0, '30, 30 森林，是一个高密度树木的区域');
    Vec.WriteToFile('text_asian' + cExtension, cFormat);

    // multi_test_1     Combines various elements
    Vec.Clear;
    Vec.StartPath(0, 20);
    Vec.AddLineToPath(30, 30);
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(100, 0);
    Vec.AddLineToPath(100, 100);
    Vec.AddLineToPath(0, 100);
    Vec.AddLineToPath(0, 0);
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(10, 10);
    Vec.AddBezierToPath(10, 20, 20, 20, 20, 10);
    Vec.AddLineToPath(30, 0);
    Vec.EndPath();
    Vec.AddText(10, 10, 0, '10,10 Some text in english.');
    Vec.AddText(20, 20, 0, '20, 20 Mówić, cześć, Włosku, Parabéns.');
    Vec.AddText(30, 30, 0, '30, 30 森林，是一个高密');
    Vec.WriteToFile('multi_test_1' + cExtension, cFormat);

    // pen_test_1     Tests the properties of the Pen
    Vec.Clear;
    Vec.StartPath(0, 20);
    Vec.AddLineToPath(30, 30);
    Vec.SetPenWidth(10);
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(100, 0);
    Vec.AddLineToPath(100, 100);
    Vec.AddLineToPath(0, 100);
    Vec.AddLineToPath(0, 0);
    Vec.SetPenWidth(10);
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(10, 10);
    Vec.AddBezierToPath(10, 20, 20, 20, 20, 10);
    Vec.AddLineToPath(30, 0);
    Vec.SetPenWidth(10);
    Vec.EndPath();
    Vec.WriteToFile('pen_test_1' + cExtension, cFormat);

    // pen_test_2     Tests the properties of the Pen
    Vec.Clear;
    Vec.StartPath(0, 20);
    Vec.AddLineToPath(30, 30);
    Vec.SetPenWidth(10);
    Vec.SetPenColor(RGBToVColor(255, 0, 0));
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(100, 0);
    Vec.AddLineToPath(100, 100);
    Vec.AddLineToPath(0, 100);
    Vec.AddLineToPath(0, 0);
    Vec.SetPenWidth(10);
    Vec.SetPenColor(RGBToVColor(0, 255, 0));
    Vec.EndPath();
    Vec.StartPath(0, 0);
    Vec.AddLineToPath(10, 10);
    Vec.AddBezierToPath(10, 20, 20, 20, 20, 10);
    Vec.AddLineToPath(30, 0);
    Vec.SetPenWidth(10);
    Vec.SetPenColor(RGBToVColor(0, 0, 255));
    Vec.EndPath();
    Vec.WriteToFile('pen_test_2' + cExtension, cFormat);
  finally
    Vec.Free;
  end;
end.