THotPDF.RegisterFreeFormGouraudShading Method

PDF 1.3+ のフリーフォーム Gouraud シェーディング三角形メッシュ（ISO 32000-1 8.7.4.5.4、/ShadingType 4）を宣言し、ページの Resources/Pattern ディクショナリーにインラインの Pattern Type 2 エントリーとして包み込みます。返されたパターン名を 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);

シェーディングは、/ShadingType 4、/BitsPerCoordinate 16、/BitsPerComponent 8、/BitsPerFlag 8 を持つ単一の間接ストリームとして出力されます。各頂点はストリーム順に 8 + NumComponents − 3 バイトでパックされます。内訳は、1 バイトのフラグ（独立した三角形では常に 0）、X 座標の 2 バイト（big-endian）、Y 座標の 2 バイト（big-endian）、そして NumComponents 個の 8 ビットカラー成分です。/Decode 配列は、16 ビットの座標を、指定された [XMin, XMax] x [YMin, YMax] のユーザー空間の矩形に、各カラー成分を [0, 1] に、それぞれ戻します

頂点は 3 個ずつ独立した三角形として消費されます。Vertices に渡す Extended 値の数は正確に (2 + NumComponents) * 3 * TriangleCount でなければなりません。配列長がストライドの倍数でない場合や、頂点数が 3 の倍数でない場合には、ヘルパーが例外を発生させます

XMin, YMin, XMax, YMax - メッシュを囲むユーザー空間の矩形です。この 4 つの値が /Decode の先頭 4 エントリーとなり、16 ビットでエンコードされた頂点座標が PDF ユーザー空間へ写像し戻されます。これから塗り込むのと同じユーザー空間座標に置いてください。HotPDF のスクリーン座標の Rectangle が (X, Y, W, H) のとき、対応する PDF ユーザー空間の矩形は (X, PageHeight - Y - H) から (X + W, PageHeight - Y) です

NumComponents - 頂点ごとのカラーコンポーネント数です。DeviceGray には 1、DeviceRGB には 3、DeviceCMYK には 4 を渡します。それ以外の値は例外を発生させます。結果のシェーディングの /ColorSpace エントリーはそれに応じて設定されます

Vertices - (X, Y, c1...cN) の順に並ぶ Extended 値のフラット配列で、頂点ごとに繰り返します。座標は [XMin, XMax] x [YMin, YMax] の箱にクランプされ 16 ビット整数へ量子化され、カラーコンポーネントは [0, 1] にクランプされ 8 ビット整数へ量子化されます。エッジを共有する必要がある隣接三角形は、共有する頂点をそのまま繰り返し含めてください。登録されるシェーディングではすべての頂点のフラグが 0（独立三角形）であるためです

戻り値: 自動生成のパターン名（Sh1、Sh2、...）。現在のページの Resources/Pattern 辞書に登録されます。StrictVersionLock がオンで、有効な Version が PDF 1.3 未満の場合は空文字列を返します（それ以外の場合、ドキュメントのバージョンは 1.3 に自動で引き上げられます）

コード例

// 4 隅に色を置いた四角形を、左上 -> 右下の対角線で
// 2 つの独立した三角形に分割します。色はメッシュ上で
// なめらかに混ざり、対角線は 2 つの三角形が
// 出会う稜線になります
//
//   左上 赤    -- 右上 緑
//        |                  |
//   左下 青   -- 右下 黄
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;
    // 三角形 A：左上 赤、右上 緑、右下 黄
    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;
    // 三角形 B：左上 赤、右下 黄、左下 青
    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;