paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 05:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: add test for bezier segments

Browse Source 
git-svn-id: trunk@52903 -
This commit is contained in:
wp 2016-09-01 17:30:47 +00:00
parent 3846e84b9a
commit b376242455
2 changed files with 80 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/fpvectorial/tests/vtmain.pas
View File

@ -116,23 +116,11 @@ type
// Arcs
procedure Render_Arc(APage: TvVectorialPage; AIntParam: Integer);
// Bezier
procedure Render_Bezier(Apage: TvVectorialPage; AIntParam: Integer);
// Text
// procedure Render_Text(APage: TvVectorialPage; Anchor: TvTextAnchor; Angle: Double);
procedure Render_Text(APage: TvVectorialpage; AIntParam: Integer);
{
procedure Render_Text_Left(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Center(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Right(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Left_30deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Center_30deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Right_30deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Left_90deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Center_90deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Right_90deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Left_m90deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Center_m90deg(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Right_m90deg(APage: TvVectorialPage; AIntParam: Integer);
}
procedure Render_Text_Fonts(APage: TvVectorialPage; AIntParam: Integer);
procedure Render_Text_Colors(APage: TvVectorialPage; AIntParam: Integer);
public
@ -658,6 +646,12 @@ begin
Tree.Items.AddChildObject(node, 'Quadrant IV+I, reverse',
TRenderParams.Create(@Render_Arc, 'arc_ellrot_ccw_q41r.png', $2107));
{ -----------------------------------------------}
node := Tree.Items.AddChild(nil, 'Bezier');
{ -----------------------------------------------}
Tree.Items.AddChildObject(node, 'Single segment',
TRenderParams.Create(@Render_Bezier, 'bezier.png'));
{ -----------------------------------------------}
node0 := Tree.Items.AddChild(nil, 'Gradients');
{ -----------------------------------------------}
@ -843,6 +837,20 @@ begin
CreateArc(APage, x1, y1, x2, y2, CX, CY, rx, ry, phi, isClockwise);
end;
procedure TMainForm.Render_Bezier(APage: TvVectorialpage; AIntParam: Integer);
const
X1 = 10;
Y1 = 25;
X2 = 30;
Y2 = 80;
X3 = 50;
Y3 = 70;
X4 = 90;
Y4 = 25;
begin
CreateBezier(APage, X1,Y1, X2,Y2, X3,Y3, X4,Y4);
end;
procedure TMainForm.Render_Path_Hole_SolidFill(APage: TvVectorialPage;
AIntParam: Integer);
var

80
components/fpvectorial/tests/vtprimitives.pas
View File

@ -14,6 +14,7 @@ function CreateRoundedRect(APage: TvVectorialPage; X1, Y1, X2, Y2, RX, RY: Doubl
function CreatePolygon(APage: TvVectorialPage; const APoints: array of T3DPoint): TvPolygon;
function CreateArc(APage: TvVectorialPage; X1,Y1, X2,Y2, CX,CY, RX, RY, Angle: Double;
Clockwise: Boolean): TPath;
function CreateBezier(APage: TvVectorialPage; X1,Y1, X2,Y2, X3,Y3, X4,Y4: Double): TPath;
function CreateSimpleBrush(AStyle: TFPBrushStyle; AColor: TFPColor): TvBrush; overload;
function CreateSimpleBrush(AStyle: TFPBrushStyle): TvBrush; overload;
@ -30,26 +31,7 @@ function CreateStdRoundedRect(APage: TvVectorialPage): TvRectangle;
function CreateStdPolygon(APage: TvVectorialPage): TvPolygon;
function CreateStdSelfIntersectingPolygon(APage: TvVectorialPage): TvPolygon;
function CreatePathWithHole(APage: TvVectorialPage): TPath;
(*
function CreateStdCircArcQ1(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ12(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ2(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ23(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ3(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ34(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ4(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArcQ41(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArc32(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdCircArc14(APage: TvVectorialPage; Clockwise, Reverse: Boolean): TPath;
function CreateStdEllArcQ1(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ12(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ2(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ23(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ3(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ34(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ4(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
function CreateStdEllArcQ41(APage: TvVectorialPage; Clockwise, Reverse: Boolean; Angle: Double): TPath;
*)
function StdSolidBrush: TvBrush;
function StdHorizGradientBrush: TvBrush;
function StdVertGradientBrush: TvBrush;
@ -148,7 +130,6 @@ end;
function CreateArc(APage: TvVectorialPage; X1,Y1, X2,Y2, CX,CY, RX, RY, Angle: Double;
Clockwise: Boolean): TPath;
var
path: TPath;
txt: TvText;
begin
if APage.UseTopLeftCoordinates then begin
@ -161,8 +142,8 @@ begin
APage.StartPath(X1, Y1);
APage.AddEllipticalArcWithCenterToPath(RX, RY, Angle, X2, Y2, CX, CY, Clockwise);
path := APage.EndPath;
path.Pen := StdPen;
Result := APage.EndPath;
Result.Pen := StdPen;
txt := TvText.Create(APage);
txt.Value.Add('1');
@ -179,6 +160,59 @@ begin
APage.AddEntity(txt);
end;
function CreateBezier(APage: TvVectorialPage;
X1,Y1, X2,Y2, X3,Y3, X4,Y4: Double): TPath;
var
txt: TvText;
begin
if APage.UseTopLeftCoordinates then begin
Y1 := PAGE_SIZE - Y1;
Y2 := PAGE_SIZE - Y2;
Y3 := PAGE_SIZE - Y3;
Y4 := PAGE_SIZE - Y4;
end;
APage.StartPath(X1, Y1);
APage.AddBezierToPath(X2,Y2, X3,Y3, X4,Y4);
Result := APage.EndPath;
Result.Pen := StdPen;
APage.StartPath(X1, Y1);
APage.AddLineToPath(X2, Y2);
APage.Endpath.Pen.Color := colRed;
APage.StartPath(X4,Y4);
APage.AddLineToPath(X3, Y3);
APage.EndPath.Pen.Color := colRed;
txt := TvText.Create(APage);
txt.Value.Add('1');
txt.X := X1;
txt.Y := Y1;
txt.Font.Color := colRed;
APage.AddEntity(txt);
txt := TvText.Create(APage);
txt.Value.Add('2');
txt.X := X2;
txt.Y := Y2;
txt.Font.Color := colRed;
APage.AddEntity(txt);
txt := TvText.Create(APage);
txt.Value.Add('3');
txt.X := X3;
txt.Y := Y3;
txt.Font.Color := colRed;
APage.AddEntity(txt);
txt := TvText.Create(APage);
txt.Value.Add('4');
txt.X := X4;
txt.Y := Y4;
txt.Font.Color := colRed;
APage.AddEntity(txt);
end;
{ Brushes }