PascalType.Painter.pas

unit PascalType.Painter;

////////////////////////////////////////////////////////////////////////////////
//                                                                            //
//  Version: MPL 1.1 or LGPL 2.1 with linking exception                       //
//                                                                            //
//  The contents of this file are subject to the Mozilla Public License       //
//  Version 1.1 (the "License"); you may not use this file except in          //
//  compliance with the License. You may obtain a copy of the License at      //
//  http://www.mozilla.org/MPL/                                               //
//                                                                            //
//  Software distributed under the License is distributed on an "AS IS"       //
//  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the   //
//  License for the specific language governing rights and limitations under  //
//  the License.                                                              //
//                                                                            //
//  Alternatively, the contents of this file may be used under the terms of   //
//  the Free Pascal modified version of the GNU Lesser General Public         //
//  License Version 2.1 (the "FPC modified LGPL License"), in which case the  //
//  provisions of this license are applicable instead of those above.         //
//  Please see the file LICENSE.txt for additional information concerning     //
//  this license.                                                             //
//                                                                            //
//  The code is part of the PascalType Project                                //
//                                                                            //
//  The initial developer of this code is Anders Melander.                    //
//                                                                            //
//  Portions created by Anders Melander are Copyright (C) 2024                //
//  by Anders Melander. All Rights Reserved.                                  //
//                                                                            //
////////////////////////////////////////////////////////////////////////////////

interface

{$I PT_Compiler.inc}

{$define FILL_PATH}
{-$define STROKE_PATH}

uses
  System.Types,
  PascalType.Classes;

type
  TRenderFloat = Single;
  TFloatPoint = System.Types.TPointF;
  TFloatRect = System.Types.TRectF;

  TArrayOfFloatPoint = TArray<TFloatPoint>;
  TArrayOfArrayOfFloatPoint = TArray<TArrayOfFloatPoint>;


//------------------------------------------------------------------------------
//
//              IPascalTypePainter
//
//------------------------------------------------------------------------------
// Represents the object used to paint a glyph.
//------------------------------------------------------------------------------
type
  IPascalTypePainter = interface
    ['{E16C8963-A9E5-407A-84C4-FEDDE957B7CF}']
    procedure BeginUpdate;
    procedure EndUpdate;

    procedure BeginGlyph;
    procedure EndGlyph;

    procedure BeginPath;
    procedure EndPath(AClose: boolean);

    procedure SetColor(Color: Cardinal);
    function GetColor: Cardinal;
    property Color: Cardinal read GetColor write SetColor;

    procedure SetStrokeColor(Color: Cardinal);

    procedure MoveTo(const p: TFloatPoint);
    procedure LineTo(const p: TFloatPoint);
    procedure QuadraticBezierTo(const ControlPoint, p: TFloatPoint);
    procedure CubicBezierTo(const ControlPoint1, ControlPoint2, p: TFloatPoint);
  end;

  IPascalTypeDebugPainter = interface(IPascalTypePainter)
    ['{4514F078-ED94-4B1F-844F-F15F4A8E86D9}']
    procedure Rectangle(const r: TFloatRect);
    procedure Circle(const p: TFloatPoint; Radius: TRenderFloat);
  end;

//------------------------------------------------------------------------------
//
//              IPascalTypePainterAdvanced
//
//------------------------------------------------------------------------------
// COLRv1 painter
//------------------------------------------------------------------------------
type
  TGradientColorStop = record
    Offset: Single;
    Color: Cardinal;
  end;

  TGradientColorStops = TArray<TGradientColorStop>;

  TGradientExtendMode = (emPad, emRepeat, emReflect);

  TCompositeMode = (
    // Porter-Duff modes
    cmClear,
    cmSource, // Copy
    cmDestination,
    cmSourceOver,
    cmDestinationOver,
    cmSourceIn,
    cmDestinationIn,
    cmSourceOut,
    cmDestinationOut,
    cmSourceAtop,
    cmDestinationAtop,
    cmXor,

    cmPlus, // Lighter

    // Separable color blend modes
    cmScreen,
    cmOverlay,
    cmDarken,
    cmLighten,
    cmColorDodge,
    cmColorBurn,
    cmHardLight,
    cmSoftLight,
    cmDifference,
    cmExclusion,
    cmMultiply,

    // Non-separable color blend modes
    cmHslHue,
    cmHslSaturation,
    cmHslColor,
    cmHslLuminosity
  );

  TCompositeComponent = (ccBackdrop, ccSource);

type
  IPascalTypePainterAdvanced = interface(IPascalTypePainter)
    ['{70007B58-698F-4CD2-99B2-90630DA98225}']
    procedure SetLinearGradient(const p0, p1, p2: TFloatPoint; const ColorStops: TGradientColorStops; Extend: TGradientExtendMode);
    procedure SetRadialGradient(const c0: TFloatPoint; r0: TRenderFloat; const c1: TFloatPoint; r1: TRenderFloat; const ColorStops: TGradientColorStops; Extend: TGradientExtendMode);
    procedure SetSweepGradient(const Center: TFloatPoint; StartAngle, EndAngle: Single; const ColorStops: TGradientColorStops; Extend: TGradientExtendMode);

    procedure PushTransform(const xx, yx, xy, yy, dx, dy: Single);
    procedure PopTransform;

    procedure BeginCaptureClipPath; // Begin capture of glyph vectorization of TPascalTypePath through IPascalTypePainter
    procedure EndCaptureClipPath; // End capture and push path

    procedure PushClipRect(const ClipRect: TFloatRect);
    procedure PushClipPath(const Path: TArrayOfArrayOfFloatPoint);
    procedure PopClip;

    procedure BeginComposite(Mode: TCompositeMode);
    procedure BeginCompositeComponent(Component: TCompositeComponent);
    procedure EndCompositeComponent;
    procedure EndComposite;

    procedure Fill;
    procedure SetScaler(AScalerX, AScalerY: Single);
  end;

implementation

//------------------------------------------------------------------------------
//
//
//
//------------------------------------------------------------------------------

end.