[fpc-pascal]Easy graphics<

[Michael Van Canneyt]

On Thu, 22 Apr 2004, Alan Mead wrote:

> What is the easiest way to create PNG or JPG images from within a FPC
> program?  Ideally, in a cross-platform way although I mostly use
> Linux.  Thanks!
Very easy.

Roughly like this:

uses fpimage,fpcanvas,fpwritepng, fpwritejpg;

Var
  Image : TMemoryImage;
  Canvas : TFPimageCanvas;

begin
  // Create image,
  Image:=TMemoryImage.Create(640,480);
  Image.PaletteBased:=False;
  // Create canvas.
  Canvas:=TFPImageCanvas.Create(Image);
  Canvas.Pen.Color:=colRed;
  Canvas.Circle(100,100,50);
  Canvas.Rectangle(50,50,150,150);
  // Free canvas
  Canvas.Free;
  Image.SaveToFile('myfile.png'); // Write as png
  Image.SaveToFile('myfile.jpg'); // Alternatively, write as jpg
  // Free Image.
  Image.Free;
end.

See the fcl/image directory for all needed units.
Supported are bmp,png,jpg,xpm and PPM/PBM.

There is no documentation yet, but I can provide some examples and explanations.
This is fully cross-platform.

Michael.