Plane example for Delphi
procedure TForm1.PlaneClick(Sender: TObject);
var
ptCenter: TPoint;
begin
ptCenter.x:= Trunc( LEADImage1.BitmapWidth /2 );
ptCenter.y:= Trunc( LEADImage1.BitmapHeight /2 );
LEADImage1.Plane( ptCenter, 0, Trunc(LEADImage1.BitmapHeight), Trunc(LEADImage1.BitmapWidth/2), -1, 0, 25, 0, 0, 50, RGB(255,0,255), RGB(0,0,0), PLANE_RIGHT Or PLANE_LEFT Or PLANE_FILL_CLR );
end;