diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-02-27 19:53:35 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-03-07 22:44:08 +0200 |
| commit | b50c7fe536960a49349475f5c361044b097f24dc (patch) | |
| tree | eb74f0624ebaca3b6ee64a08b3edb63883eb06c2 /src/corelib/render/software/agg-demos/Agg2DDemo.dpr | |
| parent | a955b0e4833ba419478be83523fe433d645cd789 (diff) | |
| download | fpGUI-b50c7fe536960a49349475f5c361044b097f24dc.tar.xz | |
initial import of AggPas 2.4 RM3
The AggPas demos will not compile at this time, because I have restructured
the directories a bit. I wanted a pristine checkin though. The demos will be
fixed in the next few commits.
Diffstat (limited to 'src/corelib/render/software/agg-demos/Agg2DDemo.dpr')
| -rw-r--r-- | src/corelib/render/software/agg-demos/Agg2DDemo.dpr | 758 |
1 files changed, 758 insertions, 0 deletions
diff --git a/src/corelib/render/software/agg-demos/Agg2DDemo.dpr b/src/corelib/render/software/agg-demos/Agg2DDemo.dpr new file mode 100644 index 00000000..36fc844d --- /dev/null +++ b/src/corelib/render/software/agg-demos/Agg2DDemo.dpr @@ -0,0 +1,758 @@ +{mac_copy:spheres2.bmp}
+//
+// AggPas 2.4 RM3 Demo application
+// Note: Press F1 key on run to see more info about this demo
+//
+// Paths: src;src\ctrl;src\svg;src\util;src\platform\win;expat-wrap
+//
+program
+ Agg2DDemo ;
+
+uses
+ SysUtils ,
+ agg_basics ,
+ agg_platform_support ,
+ file_utils_ ,
+ agg_2D ;
+
+{$I agg_mode.inc }
+
+const
+ flip_y = true;
+ angle_step = 5;
+ gamma_step = 0.1;
+
+var
+ FONT_TIMES : AnsiString = 'Times New Roman';
+ FONT_ARIAL : AnsiString = 'Arial';
+ FONT_VERDA : AnsiString = 'Verdana';
+
+type
+ the_application = object(platform_support )
+ m_graphics ,
+ m_timer : Agg2D;
+ m_angle ,
+ m_gamma : double;
+ m_image : int;
+ m_gmText : AnsiString;
+
+ constructor Construct(format_ : pix_format_e; flip_y_ : boolean );
+ destructor Destruct;
+
+ procedure on_init; virtual;
+ procedure on_draw; virtual;
+
+ procedure on_mouse_move(x ,y : int; flags : unsigned ); virtual;
+
+ procedure on_mouse_button_down(x ,y : int; flags : unsigned ); virtual;
+ procedure on_mouse_button_up (x ,y : int; flags : unsigned ); virtual;
+
+ procedure on_key(x ,y : int; key ,flags : unsigned ); virtual;
+
+ end;
+
+{ CONSTRUCT }
+constructor the_application.Construct;
+begin
+ inherited Construct(format_ ,flip_y_ );
+
+ m_graphics.Construct;
+ m_timer.Construct;
+
+ m_angle:=0;
+ m_gamma:=1.4;
+ m_image:=6;
+
+ Str(m_gamma:0:2 ,m_gmText ); m_gmText:='Gamma: ' + m_gmText;
+
+end;
+
+{ DESTRUCT }
+destructor the_application.Destruct;
+begin
+ inherited Destruct;
+
+ m_graphics.Destruct;
+ m_timer.Destruct;
+
+ Finalize(m_gmText );
+
+end;
+
+{ ON_INIT }
+procedure the_application.on_init;
+begin
+end;
+
+{ ON_DRAW }
+procedure the_application.on_draw;
+var
+ xb1 ,yb1 ,xb2 ,yb2 : double;
+
+ clr ,c1 ,c2 ,c3 : Color;
+
+ img : Image;
+
+ parl : array[0..5 ] of double;
+ poly : array[0..11 ] of double;
+
+ tm : double;
+ fps : int;
+
+ timer ,rate : AnsiString;
+
+begin
+ start_timer;
+
+ m_graphics.attach(
+ rbuf_window._buf ,
+ rbuf_window._width ,
+ rbuf_window._height ,
+ rbuf_window._stride );
+
+ m_graphics.clearAll(255 ,255 ,255 );
+
+ //m_graphics.clearAll(0 ,0 ,0 );
+
+ //m_graphics.blendMode(BlendSub );
+ //m_graphics.blendMode(BlendAdd );
+
+ m_graphics.antiAliasGamma(m_gamma );
+
+// Set flipText(true) if you have the Y axis upside down.
+ m_graphics.flipText(not flip_y );
+
+// ClipBox.
+ //m_graphics.clipBox(50 ,50 ,rbuf_window._width - 50 ,rbuf_window._height - 50 );
+
+// Transfornations - Rotate around (300,300) to 5 degree
+ m_graphics.translate(-300 ,-300 );
+ m_graphics.rotate (deg2Rad(m_angle ) );
+ m_graphics.translate(300 ,300 );
+ //m_graphics.skew (0.1 ,0.1 );
+
+// Viewport - set 0,0,600,600 to the actual window size
+// preserving aspect ratio and placing the viewport in the center.
+// To ignore aspect ratio use Agg2D::Anisotropic
+// Note that the viewport just adds transformations to the current
+// affine matrix. So that, set the viewport *after* all transformations!
+ m_graphics.viewport(
+ 0 ,0 ,600 ,600 ,
+ 0 ,0 ,_width ,_height ,
+ //Anisotropic );
+ XMidYMid );
+ //XMinYMin );
+ //XMidYMin );
+ //XMaxYMin );
+ //XMinYMid );
+ //XMaxYMid );
+ //XMinYMax );
+ //XMidYMax );
+ //XMaxYMax );
+
+// Rounded Rect
+ m_graphics.lineColor(0 ,0 ,0 );
+ m_graphics.noFill;
+ m_graphics.roundedRect(0.5 ,0.5 ,600 - 0.5 ,600 - 0.5 ,20.0 );
+
+// Regular Text
+{ m_graphics.font(char_ptr(FONT_TIMES ) ,14.0 ,false ,false );
+ m_graphics.fillColor(0 ,0 ,0 );
+ m_graphics.noLine;
+ m_graphics.text(100 ,20 ,char_ptr(PChar('Regular Raster Text -- Fast, but can''t be rotated' ) ) );{}
+
+// Outlined Text
+ m_graphics.font(char_ptr(FONT_TIMES ) ,50.0 ,false ,false ,{RasterFontCache}VectorFontCache );
+ m_graphics.lineColor(50 ,0 ,0 );
+ m_graphics.fillColor(180 ,200 ,100 );
+ m_graphics.lineWidth(1.0 );
+ m_graphics.text(100.5 ,50.5 ,char_ptr(PChar('Outlined Text' ) ) );
+
+// Gamma Text
+(* m_graphics.font(char_ptr(FONT_ARIAL ) ,38.0 ,true ,true ,VectorFontCache );
+
+ c1.Construct (255 ,0 ,0 ,255 );
+ c2.Construct (0 ,255 ,0 ,255 );
+ m_graphics.fillLinearGradient(50 ,1 ,300 ,10 ,c1 ,c2 );
+
+ m_graphics.noLine;
+ m_graphics.text(12.5 ,565.5 ,char_ptr(@m_gmText[1 ] ) );
+ //m_graphics.rectangle(12.5 ,565.5 ,290 ,590 ); (**)
+
+// Text Alignment
+ m_graphics.lineColor(0 ,0 ,0 );
+ m_graphics.line(250.5 - 150 ,150.5 ,250.5 + 150 ,150.5 );
+ m_graphics.line(250.5 ,150.5 - 20 ,250.5 ,150.5 + 20 );
+ m_graphics.line(250.5 - 150 ,200.5 ,250.5 + 150 ,200.5 );
+ m_graphics.line(250.5 ,200.5 - 20 ,250.5 ,200.5 + 20 );
+ m_graphics.line(250.5 - 150 ,250.5 ,250.5 + 150 ,250.5 );
+ m_graphics.line(250.5 ,250.5 - 20 ,250.5 ,250.5 + 20 );
+ m_graphics.line(250.5 - 150 ,300.5 ,250.5 + 150 ,300.5 );
+ m_graphics.line(250.5 ,300.5 - 20 ,250.5 ,300.5 + 20 );
+ m_graphics.line(250.5 - 150 ,350.5 ,250.5 + 150 ,350.5 );
+ m_graphics.line(250.5 ,350.5 - 20 ,250.5 ,350.5 + 20 );
+ m_graphics.line(250.5 - 150 ,400.5 ,250.5 + 150 ,400.5 );
+ m_graphics.line(250.5 ,400.5 - 20 ,250.5 ,400.5 + 20 );
+ m_graphics.line(250.5 - 150 ,450.5 ,250.5 + 150 ,450.5 );
+ m_graphics.line(250.5 ,450.5 - 20 ,250.5 ,450.5 + 20 );
+ m_graphics.line(250.5 - 150 ,500.5 ,250.5 + 150 ,500.5 );
+ m_graphics.line(250.5 ,500.5 - 20 ,250.5 ,500.5 + 20 );
+ m_graphics.line(250.5 - 150 ,550.5 ,250.5 + 150 ,550.5 );
+ m_graphics.line(250.5 ,550.5 - 20 ,250.5 ,550.5 + 20 );
+
+ m_graphics.fillColor(100 ,50 ,50 );
+ m_graphics.noLine;
+ //m_graphics.textHints(false );
+ m_graphics.font(char_ptr(FONT_TIMES ) ,40.0 ,false ,false ,VectorFontCache );
+
+ m_graphics.textAlignment(AlignLeft ,AlignBottom );
+ m_graphics.text(250.0 ,150.0 ,char_ptr(PChar('Left-Bottom' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignCenter ,AlignBottom );
+ m_graphics.text(250.0 ,200.0 ,char_ptr(PChar('Center-Bottom' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignRight ,AlignBottom );
+ m_graphics.text(250.0 ,250.0 ,char_ptr(PChar('Right-Bottom' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignLeft ,AlignCenter );
+ m_graphics.text(250.0 ,300.0 ,char_ptr(PChar('Left-Center' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignCenter ,AlignCenter );
+ m_graphics.text(250.0 ,350.0 ,char_ptr(PChar('Center-Center' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignRight ,AlignCenter );
+ m_graphics.text(250.0 ,400.0 ,char_ptr(PChar('Right-Center' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignLeft ,AlignTop );
+ m_graphics.text(250.0 ,450.0 ,char_ptr(PChar('Left-Top' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignCenter ,AlignTop );
+ m_graphics.text(250.0 ,500.0 ,char_ptr(PChar('Center-Top' ) ) ,true ,0 ,0 );
+
+ m_graphics.textAlignment(AlignRight ,AlignTop );
+ m_graphics.text(250.0 ,550.0 ,char_ptr(PChar('Right-Top' ) ) ,true ,0 ,0 );
+
+// Gradients (Aqua Buttons)
+//=======================================
+ m_graphics.font(char_ptr(FONT_VERDA ) ,20.0 ,false ,false ,VectorFontCache );
+
+ xb1:=400;
+ yb1:=80;
+ xb2:=xb1 + 150;
+ yb2:=yb1 + 36;
+
+ clr.Construct (0 ,50 ,180 ,180 );
+ m_graphics.fillColor (clr );
+ clr.Construct (0 ,0 ,80 ,255 );
+ m_graphics.lineColor (clr );
+ m_graphics.lineWidth (1.0);
+ m_graphics.roundedRect(xb1 ,yb1 ,xb2 ,yb2 ,12 ,18 );
+
+ clr.Construct (0 ,0 ,0 ,0 );
+ m_graphics.lineColor(clr );
+
+ c1.Construct (100 ,200 ,255 ,255 );
+ c2.Construct (255 ,255 ,255 ,0 );
+ m_graphics.fillLinearGradient(xb1 ,yb1 ,xb1 ,yb1 + 30 ,c1 ,c2 );
+ m_graphics.roundedRect (xb1 + 3 ,yb1 + 2.5 ,xb2 - 3 ,yb1 + 30 ,9 ,18 ,1 ,1 );
+
+ clr.Construct (0 ,0 ,50 ,200 );
+ m_graphics.fillColor(clr );
+ m_graphics.noLine;
+ m_graphics.textAlignment(AlignCenter ,AlignCenter );
+ m_graphics.text(
+ (xb1 + xb2 ) / 2.0 ,
+ (yb1 + yb2 ) / 2.0 ,
+ char_ptr(PChar('Aqua Button' ) ) ,
+ true ,0.0 ,0.0 );
+
+ c1.Construct(0 ,0 ,255 ,0 );
+ c2.Construct(100 ,255 ,255 ,255 );
+ m_graphics.fillLinearGradient(xb1 ,yb2 - 20 ,xb1 ,yb2 - 3 ,c1 ,c2 );
+ m_graphics.roundedRect (xb1 + 3 ,yb2 - 20 ,xb2 - 3 ,yb2 - 2 ,1 ,1 ,9 ,18 );
+
+// Aqua Button Pressed
+ xb1:=400;
+ yb1:=30;
+ xb2:=xb1 + 150;
+ yb2:=yb1 + 36;
+
+ clr.Construct (0 ,50 ,180 ,180 );
+ m_graphics.fillColor (clr );
+ clr.Construct (0 ,0 ,0 ,255 );
+ m_graphics.lineColor (clr );
+ m_graphics.lineWidth (2.0 );
+ m_graphics.roundedRect(xb1 ,yb1 ,xb2 ,yb2 ,12 ,18 );
+
+ clr.Construct (0 ,0 ,0 ,0 );
+ m_graphics.lineColor(clr );
+
+ c1.Construct (60 ,160 ,255 ,255 );
+ c2.Construct (100 ,255 ,255 ,0 );
+ m_graphics.fillLinearGradient(xb1 ,yb1 + 2 ,xb1 ,yb1 + 25 ,c1 ,c2 );
+ m_graphics.roundedRect (xb1 + 3 ,yb1 + 2.5 ,xb2 - 3 ,yb1 + 30 ,9 ,18 ,1 ,1 );
+
+ clr.Construct (0 ,0 ,50 ,255 );
+ m_graphics.fillColor(clr );
+ m_graphics.noLine;
+ m_graphics.textAlignment(AlignCenter ,AlignCenter );
+ m_graphics.text(
+ (xb1 + xb2 ) / 2.0 ,
+ (yb1 + yb2 ) / 2.0 ,
+ char_ptr(PChar('Aqua Pressed' ) ) ,
+ false ,0.0 );
+
+ c1.Construct (0 ,180 ,255 ,0 );
+ c2.Construct (0 ,200 ,255 ,255 );
+ m_graphics.fillLinearGradient(xb1 ,yb2 - 25 ,xb1 ,yb2 - 5 ,c1 ,c2 );
+ m_graphics.roundedRect (xb1 + 3 ,yb2 - 25 ,xb2 - 3 ,yb2 - 2 ,1 ,1 ,9 ,18 );
+
+// Basic Shapes -- Ellipse
+//===========================================
+ m_graphics.lineWidth(3.5 );
+ m_graphics.lineColor(20 ,80 ,80 );
+ m_graphics.fillColor(200 ,255 ,80 ,200 );
+ m_graphics.ellipse (450 ,200 ,50 ,90 );
+
+// Paths
+//===========================================
+ m_graphics.resetPath;
+ m_graphics.fillColor (255 ,0 ,0 ,100 );
+ m_graphics.lineColor (0 ,0 ,255 ,100 );
+ m_graphics.lineWidth (2 );
+ m_graphics.moveTo (300 / 2 ,200 / 2 );
+ m_graphics.horLineRel(-150 / 2 );
+ m_graphics.arcRel (150 / 2 ,150 / 2 ,0 ,true ,false ,150 / 2 ,-150 / 2 );
+ m_graphics.closePolygon;
+ m_graphics.drawPath;
+
+ m_graphics.resetPath;
+ m_graphics.fillColor (255 ,255 ,0 ,100 );
+ m_graphics.lineColor (0 ,0 ,255 ,100 );
+ m_graphics.lineWidth (2 );
+ m_graphics.moveTo (275 / 2 ,175 / 2 );
+ m_graphics.verLineRel(-150 / 2 );
+ m_graphics.arcRel (150 / 2 ,150 / 2 ,0 ,false ,false ,-150 / 2 ,150 / 2 );
+ m_graphics.closePolygon;
+ m_graphics.drawPath;
+
+ m_graphics.resetPath;
+ m_graphics.noFill;
+ m_graphics.lineColor(127 ,0 ,0 );
+ m_graphics.lineWidth(5 );
+ m_graphics.moveTo (600 / 2 ,350 / 2 );
+ m_graphics.lineRel (50 / 2 ,-25 / 2 );
+ m_graphics.arcRel (25 / 2 ,25 / 2 ,deg2Rad(-30 ) ,false ,true ,50 / 2 ,-25 / 2 );
+ m_graphics.lineRel (50 / 2 ,-25 / 2);
+ m_graphics.arcRel (25 / 2 ,50 / 2 ,deg2Rad(-30 ) ,false ,true ,50 / 2 ,-25 / 2 );
+ m_graphics.lineRel (50 / 2 ,-25 / 2 );
+ m_graphics.arcRel (25 / 2 ,75 / 2 ,deg2Rad(-30 ) ,false ,true ,50 / 2 ,-25 / 2 );
+ m_graphics.lineRel (50 ,-25 );
+ m_graphics.arcRel (25 / 2 ,100 / 2 ,deg2Rad(-30 ) ,false ,true ,50 / 2 ,-25 / 2 );
+ m_graphics.lineRel (50 / 2 ,-25 / 2 );
+ m_graphics.drawPath;
+
+// Master Alpha. From now on everything will be translucent
+//===========================================
+ m_graphics.masterAlpha(0.85 );
+
+// Image Transformations
+//===========================================
+ img.Construct(
+ rbuf_img(0 )._buf ,
+ rbuf_img(0 )._width ,
+ rbuf_img(0 )._height ,
+ rbuf_img(0 )._stride );
+
+ m_graphics.imageFilter(Bilinear );
+
+ //m_graphics.imageResample(NoResample );
+ //m_graphics.imageResample(ResampleAlways );
+ m_graphics.imageResample(ResampleOnZoomOut );
+
+// Set the initial image blending operation as BlendDst, that actually
+// does nothing.
+//-----------------
+ m_graphics.imageBlendMode(BlendDst );
+
+// Transform the whole image to the destination rectangle
+//-----------------
+ if m_image = 1 then
+ m_graphics.transformImage(@img ,450 ,200 ,595 ,350 );{1}
+
+// Transform the rectangular part of the image to the destination rectangle
+//-----------------
+ if m_image = 2 then
+ m_graphics.transformImage(
+ @img ,60 ,60 ,img.width - 60 ,img.height - 60 ,
+ 450 ,200 ,595 ,350 );{2}
+
+// Transform the whole image to the destination parallelogram
+//-----------------
+ if m_image = 3 then
+ begin
+ parl[0 ]:=450;
+ parl[1 ]:=200;
+ parl[2 ]:=595;
+ parl[3 ]:=220;
+ parl[4 ]:=575;
+ parl[5 ]:=350;
+
+ m_graphics.transformImage(@img ,@parl[0 ] );{3}
+
+ end;
+
+// Transform the rectangular part of the image to the destination parallelogram
+//-----------------
+ if m_image = 4 then
+ begin
+ parl[0 ]:=450;
+ parl[1 ]:=200;
+ parl[2 ]:=595;
+ parl[3 ]:=220;
+ parl[4 ]:=575;
+ parl[5 ]:=350;
+
+ m_graphics.transformImage(@img ,60 ,60 ,img.width - 60 ,img.height - 60 ,@parl[0 ] );{4}
+
+ end;
+
+// Transform image to the destination path. The scale is determined by a rectangle
+//-----------------
+ if m_image = 5 then
+ begin
+ m_graphics.resetPath;
+ m_graphics.moveTo (450 ,200 );
+ m_graphics.cubicCurveTo (595 ,220 ,575 ,350 ,595 ,350 );
+ m_graphics.lineTo (470 ,340 );
+ m_graphics.transformImagePath(@img ,450 ,200 ,595 ,350 );{5}
+
+ end;
+
+// Transform image to the destination path.
+// The scale is determined by a rectangle
+//-----------------
+ if m_image = 6 then
+ begin
+ m_graphics.resetPath;
+ m_graphics.moveTo (450 ,200 );
+ m_graphics.cubicCurveTo(595 ,220 ,575 ,350 ,595 ,350 );
+ m_graphics.lineTo (470 ,340 );
+ m_graphics.transformImagePath(
+ @img ,60 ,60 ,img.width - 60 ,img.height - 60 ,
+ 450 ,200 ,595 ,350 );{6}
+
+ end;
+
+// Transform image to the destination path.
+// The transformation is determined by a parallelogram
+ if m_image = 7 then
+ begin
+ m_graphics.resetPath;
+ m_graphics.moveTo (450 ,200 );
+ m_graphics.cubicCurveTo(595 ,220 ,575 ,350 ,595 ,350 );
+ m_graphics.lineTo (470 ,340 );
+
+ parl[0 ]:=450;
+ parl[1 ]:=200;
+ parl[2 ]:=595;
+ parl[3 ]:=220;
+ parl[4 ]:=575;
+ parl[5 ]:=350;
+
+ m_graphics.transformImagePath(@img ,@parl[0 ] );{7}
+
+ end;
+
+// Transform the rectangular part of the image to the destination path.
+// The transformation is determined by a parallelogram
+ if m_image = 8 then
+ begin
+ m_graphics.resetPath;
+ m_graphics.moveTo (450 ,200 );
+ m_graphics.cubicCurveTo(595 ,220 ,575 ,350 ,595 ,350 );
+ m_graphics.lineTo (470 ,340 );
+
+ parl[0 ]:=450;
+ parl[1 ]:=200;
+ parl[2 ]:=595;
+ parl[3 ]:=220;
+ parl[4 ]:=575;
+ parl[5 ]:=350;
+
+ m_graphics.transformImagePath(@img ,60 ,60 ,img.width - 60 ,img.height - 60 ,@parl[0 ] );{8}
+
+ end;
+
+// Free Image
+ img.Destruct;
+
+// Add/Sub/Contrast Blending Modes
+ m_graphics.noLine;
+ m_graphics.fillColor(70 ,70 ,0 );
+ m_graphics.blendMode(BlendAdd );
+ m_graphics.ellipse (500 ,280 ,20 ,40 );
+
+ m_graphics.fillColor(255 ,255 ,255 );
+ m_graphics.blendMode(BlendContrast );
+ m_graphics.ellipse (500 + 40 ,280 ,20 ,40 );
+
+// Radial gradient.
+ m_graphics.blendMode (BlendAlpha );
+ c1.Construct (255 ,255 ,0 , 0);
+ c2.Construct (0 ,0 ,127 );
+ c3.Construct (0 ,255 ,0 , 0);
+ m_graphics.fillRadialGradient(400 ,500 ,40 ,c1 ,c2 ,c3 );
+ m_graphics.ellipse (400 ,500 ,40 ,40 );
+
+// More ...
+(* m_graphics.masterAlpha(1 );
+
+ //m_graphics.lineColor(50 ,60 ,70 );
+
+ c1.Construct (255 ,0 ,0 ,255 );
+ c2.Construct (0 ,255 ,0 ,255 );
+ m_graphics.lineLinearGradient(0 ,0 ,500 ,0 ,c1 ,c2 );{}
+
+ m_graphics.fillColor(255 ,0 ,0 );
+ m_graphics.lineJoin (JoinMiter );
+ m_graphics.lineWidth(15 );
+ m_graphics.triangle (10 ,10 ,100 ,20 ,50 ,150 );
+
+ m_graphics.lineJoin (JoinRound );
+ m_graphics.lineWidth(4 );
+ m_graphics.noFill;
+ m_graphics.rectangle(55 ,540 ,135 ,495 );
+
+ m_graphics.masterAlpha(0.5 );
+
+ m_graphics.fillColor(255 ,127 ,65 );
+ m_graphics.star (300 ,300 ,30 ,70 ,55 ,5 );
+ m_graphics.arc (400 ,400 ,30 ,30 ,300 ,1150 );
+
+ m_graphics.lineWidth(20 );
+ m_graphics.lineCap (CapRound );
+ m_graphics.curve (80 ,400 ,90 ,220 ,190 ,390 );
+ m_graphics.curve (80 ,500 ,90 ,320 ,190 ,490 ,310 ,330 );
+
+ poly[0 ]:=400;
+ poly[1 ]:=580;
+
+ poly[2 ]:=530;
+ poly[3 ]:=400;
+
+ poly[4 ]:=590;
+ poly[5 ]:=500;
+
+ poly[6 ]:=450;
+ poly[7 ]:=380;
+
+ poly[8 ]:=490;
+ poly[9 ]:=570;
+
+ poly[10 ]:=420;
+ poly[11 ]:=420;
+
+ m_graphics.fillEvenOdd(false );
+ m_graphics.lineWidth (3 );
+ m_graphics.polygon (@poly[0 ] ,6 );
+
+ m_graphics.lineColor(221 ,160 ,221 );
+ m_graphics.lineWidth(6 );
+ m_graphics.polyline (@poly[0 ] ,6 ); (**)
+
+// TIMER DRAW
+// ----------
+ tm:=elapsed_time;
+
+ m_timer.attach(
+ rbuf_window._buf ,
+ rbuf_window._width ,
+ rbuf_window._height ,
+ rbuf_window._stride );
+
+ m_timer.antiAliasGamma(1.4 );
+
+ m_timer.flipText(not flip_y );
+ m_timer.viewport(
+ 0 ,0 ,600 ,600 ,
+ 0 ,0 ,_width ,_height ,
+ //Anisotropic );
+ XMidYMid );
+
+ Str(tm:0:2 ,timer );
+
+ timer:='Frame time: ' + timer + ' ms';
+
+ fps:=Trunc(1000 / tm );
+
+ Str(fps ,rate );
+
+ timer:=timer + ' (' + rate + ' FPS)';
+
+ m_timer.font(char_ptr(FONT_ARIAL ) ,15.0 ,true ,false ,VectorFontCache );
+ m_timer.noLine;
+ m_timer.fillColor(255 ,0 ,0 );
+ m_timer.text(350 ,8 ,char_ptr(@timer[1 ] ) );
+
+end;
+
+{ ON_MOUSE_MOVE }
+procedure the_application.on_mouse_move;
+begin
+end;
+
+{ ON_MOUSE_BUTTON_DOWN }
+procedure the_application.on_mouse_button_down;
+begin
+end;
+
+{ ON_MOUSE_BUTTON_UP }
+procedure the_application.on_mouse_button_up;
+begin
+end;
+
+{ ON_KEY }
+procedure the_application.on_key;
+begin
+ if key = key_f1 then
+ message_(
+ '"Quick and dirty prototype" of 2D drawing API for AGG.'#13#13 +
+ 'Written and published by Maxim Shemanarev (c) 2005 - 2006. '#13 +
+ 'Ported to Object Pascal by Milan Marusinec (c) 2007.'#13#13 +
+ 'How to play with:'#13#13 +
+ 'Key Down - Rotate clockwise'#13 +
+ 'Key Up - Rotate counterclockwise'#13 +
+ 'Key Right - Next image transformation'#13 +
+ 'Key Left - Previous image transformation'#13 +
+ 'Key Plus - Increase gamma'#13 +
+ 'Key Minus - Decrease gamma' );
+
+ if key = key_down then
+ begin
+ m_angle:=m_angle - angle_step;
+
+ if m_angle < 0 then
+ m_angle:=360 - angle_step;
+
+ force_redraw;
+
+ end;
+
+ if key = key_up then
+ begin
+ m_angle:=m_angle + angle_step;
+
+ if m_angle > 360 then
+ m_angle:=angle_step;
+
+ force_redraw;
+
+ end;
+
+ if key = key_right then
+ begin
+ inc(m_image );
+
+ if m_image > 8 then
+ m_image:=1;
+
+ force_redraw;
+
+ end;
+
+ if key = key_left then
+ begin
+ dec(m_image );
+
+ if m_image < 1 then
+ m_image:=8;
+
+ force_redraw;
+
+ end;
+
+ if key = key_kp_plus then
+ begin
+ m_gamma:=m_gamma + gamma_step;
+
+ Str(m_gamma:0:2 ,m_gmText ); m_gmText:='Gamma: ' + m_gmText;
+
+ force_redraw;
+
+ end;
+
+ if key = key_kp_minus then
+ begin
+ m_gamma:=m_gamma - gamma_step;
+
+ Str(m_gamma:0:2 ,m_gmText ); m_gmText:='Gamma: ' + m_gmText;
+
+ force_redraw;
+
+ end;
+
+end;
+
+VAR
+ app : the_application;
+ buf : array [0..255 ] of char;
+ ext : string[10 ];
+
+ img_name ,p ,n ,x : shortstring;
+
+BEGIN
+ if Agg2DUsesFreeType then
+ begin
+ FONT_TIMES:='times.ttf';
+ FONT_ARIAL:='arial.ttf';
+ FONT_VERDA:='verdana.ttf';
+
+ end;
+
+ app.Construct(pix_format_bgra32 ,flip_y );
+ app.caption_ ('Agg2DDemo (F1-Help)' );
+
+ img_name:='spheres2';
+
+{$IFDEF WIN32 }
+ if ParamCount > 0 then
+ begin
+ spread_name(ParamStr(1 ) ,p ,n ,x );
+
+ img_name:=fold_name(p ,n ,'' );
+
+ end;
+
+{$ENDIF }
+
+ if not app.load_img(0 ,img_name ) then
+ begin
+ img_name:=img_name + #0;
+ ext :=app._img_ext + #0;
+
+ if img_name = 'spheres2'#0 then
+ begin
+ sprintf(@buf[0 ] ,'File not found: %s' ,ptrcomp(@img_name[1 ] ) );
+ sprintf(@buf[StrLen(@buf ) ] ,'%s. '#13'Download http://www.antigrain.com/' ,ptrcomp(@ext[1 ] ) );
+ sprintf(@buf[StrLen(@buf ) ] ,'%s' ,ptrcomp(@img_name[1 ] ) );
+ sprintf(@buf[StrLen(@buf ) ] ,'%s'#13'or copy it from another directory if available.' ,ptrcomp(@ext[1 ] ) );
+
+ end
+ else
+ begin
+ sprintf(@buf[0 ] ,'File not found: %s' ,ptrcomp(@img_name[1 ] ) );
+ sprintf(@buf[StrLen(@buf ) ] ,'%s' ,ptrcomp(@ext[1 ] ) );
+
+ end;
+
+ app.message_(@buf[0 ] );
+
+ end
+ else
+ if app.init(600 ,600 ,window_resize ) then
+ app.run;
+
+ app.Destruct;
+
+END.
\ No newline at end of file |