THotPDF.RegisterFreeFormGouraudShading Method

声明 PDF 1.3+ 自由形式 Gouraud 着色三角网格 shading（ISO 32000-1 8.7.4.5.4，/ShadingType 4），并包装为页面 Resources/Pattern 字典中的内联 Pattern Type 2 条目。把返回的 pattern 名称与 THPDFPage.SetFillPattern 或 THPDFPage.SetStrokePattern 配合使用，可绘制颜色在每个三角形内平滑变化的矢量渐变。

function RegisterFreeFormGouraudShading(XMin, YMin, XMax, YMax: Single; NumComponents: Integer; const Vertices: array of Extended): AnsiString;

AnsiString RegisterFreeFormGouraudShading(float XMin, float YMin, float XMax, float YMax, int NumComponents, const Extended* Vertices, int VertexElementCount);

该 shading 作为单个间接流输出，带有 /ShadingType 4、/BitsPerCoordinate 16、/BitsPerComponent 8 和 /BitsPerFlag 8。每个顶点按流顺序打包为 8 + NumComponents − 3 字节：1 字节的 flag（独立三角形时恒为 0）、2 字节大端的 X 坐标、2 字节大端的 Y 坐标，以及 NumComponents 个 8 位颜色分量。/Decode 数组把 16 位坐标映射回所给的 [XMin, XMax] x [YMin, YMax] 用户空间矩形，把每个颜色分量映射回 [0, 1]

顶点每次消费三个，作为独立三角形。传入的Extended 值的数量（传入 Vertices）必须恰好为(2 + NumComponents) * 3 * TriangleCount；数组长度不是 stride 的倍数或顶点数不是三的倍数时，辅助方法抛出异常。

XMin, YMin, XMax, YMax - 限定 mesh 的用户空间矩形。这四个值成为 /Decode 的前四个条目，使 16 位编码的顶点坐标映射回 PDF 用户空间。请放在将要绘制的同一用户空间坐标中——对 HotPDF 中位于Rectangle 的屏幕坐标 (X, Y, W, H) Rectangle，对应的 PDF 用户空间矩形是(X, PageHeight - Y - H) 到 (X + W, PageHeight - Y)。

NumComponents - 每个顶点的颜色分量数量。DeviceGray 传 1，DeviceRGB 传 3，DeviceCMYK 传 4。其他值抛出异常。生成 shading 的 /ColorSpace 条目会相应设置。

Vertices - Extended 值的扁平数组，按 (X, Y, c1...cN) 的顺序排列，每个顶点重复一次。坐标会被钳位到 [XMin, XMax] x [YMin, YMax] 范围并量化为 16 位整数；颜色分量会被钳位到 [0, 1] 并量化为 8 位整数。由于注册的 shading 对每个顶点都使用值为 0 的 flag（独立三角形），需要共用一条边的相邻三角形必须原样重复共享的顶点

返回值：自动生成的 pattern 名称（Sh1、Sh2 等），注册在当前页面的 Resources/Pattern 字典。StrictVersionLock 开启且当前 Version 低于 PDF 1.3 时返回空字符串（否则文档版本自动提升到 1.3）。

代码示例

// Four-corner colour quad split into two independent triangles
// along the top-left -> bot-right diagonal. The colours blend
// smoothly across the mesh; the diagonal is the ridge where the
// two triangles meet
//
//   top-left red    -- top-right green
//        |                  |
//   bot-left blue   -- bot-right yellow
var
  Doc: THotPDF;
  PatName: AnsiString;
  Verts: array[0..29] of Extended;
  H, XMin, YMin, XMax, YMax: Single;
begin
  Doc := THotPDF.Create(nil);
  try
    Doc.Version := pdf14;
    Doc.BeginDoc;
    H := Doc.CurrentPage.Height;
    XMin := 0; YMin := H - 200; XMax := 200; YMax := H;
    // triangle A: top-left red, top-right green, bot-right yellow
    Verts[ 0] := XMin; Verts[ 1] := YMax; Verts[ 2] := 1.0; Verts[ 3] := 0.0; Verts[ 4] := 0.0;
    Verts[ 5] := XMax; Verts[ 6] := YMax; Verts[ 7] := 0.0; Verts[ 8] := 1.0; Verts[ 9] := 0.0;
    Verts[10] := XMax; Verts[11] := YMin; Verts[12] := 1.0; Verts[13] := 1.0; Verts[14] := 0.0;
    // triangle B: top-left red, bot-right yellow, bot-left blue
    Verts[15] := XMin; Verts[16] := YMax; Verts[17] := 1.0; Verts[18] := 0.0; Verts[19] := 0.0;
    Verts[20] := XMax; Verts[21] := YMin; Verts[22] := 1.0; Verts[23] := 1.0; Verts[24] := 0.0;
    Verts[25] := XMin; Verts[26] := YMin; Verts[27] := 0.0; Verts[28] := 0.0; Verts[29] := 1.0;
    PatName := Doc.RegisterFreeFormGouraudShading(
      XMin, YMin, XMax, YMax, 3, Verts);
    Doc.CurrentPage.SetFillPattern(PatName);
    Doc.CurrentPage.Rectangle(0, 0, 200, 200);
    Doc.CurrentPage.Fill;
    Doc.EndDoc;
  finally
    Doc.Free;
  end;
end;