pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpvectorial: Can already render some PostScript

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1676 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-14 12:49:29 +00:00
parent 5fe2309336
commit e29333eafb
2 changed files with 740 additions and 506 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1233
applications/fpvviewer/fpvectorialsrc/epsvectorialreader.pas
View File

File diff suppressed because it is too large Load Diff

13
applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
View File

@ -292,6 +292,7 @@ type
procedure AddLineToPath(AX, AY: Double); overload;
procedure AddLineToPath(AX, AY: Double; AColor: TvColor); overload;
procedure AddLineToPath(AX, AY, AZ: Double); overload;
procedure GetCurrenPathPenPos(var AX, AY: Double);
procedure AddBezierToPath(AX1, AY1, AX2, AY2, AX3, AY3: Double); overload;
procedure AddBezierToPath(AX1, AY1, AZ1, AX2, AY2, AZ2, AX3, AY3, AZ3: Double); overload;
procedure SetBrushColor(AColor: TvColor);
@ -661,6 +662,18 @@ begin
AppendSegmentToTmpPath(segment);
end;
{@@
Gets the current Pen Pos in the temporary path
}
procedure TvVectorialDocument.GetCurrenPathPenPos(var AX, AY: Double);
begin
// Check if we are the first segment in the tmp path
if FTmpPath.PointsEnd = nil then raise Exception.Create('[TvVectorialDocument.GetCurrenPathPenPos] One cannot obtain the Pen Pos if there are no segments in the temporary path');
AX := T2DSegment(FTmpPath.PointsEnd).X;
AY := T2DSegment(FTmpPath.PointsEnd).Y;
end;
{@@
Adds a bezier element to the path. It starts where the previous element ended
and it goes throw the control points [AX1, AY1] and [AX2, AY2] and ends