paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 09:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Now the SVG writer works for lines

Browse Source 
git-svn-id: trunk@15801 -
This commit is contained in:
sekelsenmat 2010-08-13 15:32:03 +00:00
parent 2567d761a4
commit 3708922b62
3 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fpvectorial/src/fpvectorial.pas
View File

@ -38,10 +38,10 @@ type
st2DLine, st2DBezier,
st3DLine, st3DBezier);
{@
{@@
The coordinates in fpvectorial are given in millimiters and
the starting point is in the top-left corner of the document
and it grows to the bottom and to the right.
the starting point is in the bottom-left corner of the document.
The X grows to the right and the Y grows to the top.
}
TPathSegment = record
SegmentType: TSegmentType;

14
packages/fpvectorial/src/fpvtocanvas.pas
View File

@ -14,6 +14,20 @@ procedure DrawFPVectorialToCanvas(ASource: TvVectorialDocument; ADest: TFPCustom
implementation
{@@
This function draws a FPVectorial vectorial image to a TFPCustomCanvas
descendent, such as TCanvas from the LCL.
Be careful that by default this routine does not execute coordinate transformations,
and that FPVectorial works with a start point in the bottom-left corner, with
the X growing to the right and the Y growing to the top. This will result in
an image in TFPCustomCanvas mirrored in the Y axis in relation with the document
as seen in a PDF viewer, for example. This can be easily changed with the
provided parameters. To have the standard view of an image viewer one could
use this function like this:
DrawFPVectorialToCanvas(ASource, ADest, 0, ASource.Height, 1.0, -1.0);
}
procedure DrawFPVectorialToCanvas(ASource: TvVectorialDocument; ADest: TFPCustomCanvas;
ADestX: Integer = 0; ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0);
var

15
packages/fpvectorial/src/svgvectorialwriter.pas
View File

@ -36,8 +36,8 @@ implementation
procedure TvSVGVectorialWriter.WriteDocumentSize(AStrings: TStrings; AData: TvVectorialDocument);
begin
AStrings.Add(' width="744.09448819"');
AStrings.Add(' height="1052.3622047"');
AStrings.Add(' width="' + FloatToStr(AData.Width, FPointSeparator) + 'mm"');
AStrings.Add(' height="' + FloatToStr(AData.Height, FPointSeparator) + 'mm"');
end;
procedure TvSVGVectorialWriter.WriteDocumentName(AStrings: TStrings; AData: TvVectorialDocument);
@ -46,9 +46,11 @@ begin
end;
{@@
SVG Coordinate system measures things in millimiters.
SVG Coordinate system measures things in whatever unit we pass to it, so we
choose to pass in millimiters (mm), like FPVectorial uses.
The initial point is in the bottom-left corner of the document and it grows
to the top and to the right.
to the top and to the right, just like in FPVectorial.
SVG uses commas "," to separate the X,Y coordinates, so it always uses points
"." as decimal separators and uses no thousand separators
@ -70,9 +72,8 @@ begin
PtX := lPath.Points[j].X;
PtY := lPath.Points[j].Y;
PtY := AData.Height - PtY;
PathStr := PathStr + FloatToStr(PtX, FPointSeparator) + ','
+ FloatToStr(PtY, FPointSeparator) + ' ';
PathStr := PathStr + FloatToStr(PtX, FPointSeparator) + 'mm,'
+ FloatToStr(PtY, FPointSeparator) + 'mm ';
end;
AStrings.Add(' <path');