THotPDF.RegisterLatticeFormGouraudShading Method

Deklarerar en PDF 1.3+ lattice-form Gouraud-shaded triangle mesh-shading (ISO 32000-1 8.7.4.5.5, /ShadingType 5) och slår in den i en inline Pattern Type 2-post i sidans Resources/Pattern-ordlista. Renderaren autotriangulerar varje par intilliggande rader till en triangle strip, så anroparen tillhandahåller bara vertexrutnätet - användbart när källdata redan ligger på ett regelbundet sample grid (terrain, FEA results, scientific heatmaps). Använd RegisterFreeFormGouraudShading när trianguleringen är oregelbunden och flaggor per triangle behövs.

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

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

Shadingen emitteras som en indirekt stream med /ShadingType 5, /BitsPerCoordinate 16, /BitsPerComponent 8 och /VerticesPerRow N. Till skillnad från Type 4 finns ingen flaggbyte per vertex och /BitsPerFlag saknas i shading-ordlistan; varje vertex upptar 4 + NumComponents byte (2 big-endian X + 2 big-endian Y + N färgkomponenter). /Decode-arrayen mappar de 16-bitars koordinaterna tillbaka till den angivna user-space-rektangeln [XMin, XMax] x [YMin, YMax] och varje färgkomponent tillbaka till [0, 1].

Vertices ordnas row-major: de första VerticesPerRow vertexarna bildar rad 0, nästa VerticesPerRow bildar rad 1, och så vidare. Renderaren kopplar varje par intilliggande rader (rad i och rad i+1) till en triangle strip - inga flaggor, ingen explicit triangellista. Antalet Extended-värden som skickas i Vertices måste vara en multipel av (2 + NumComponents) * VerticesPerRow och det resulterande radantalet måste vara minst 2.

XMin, YMin, XMax, YMax - user-space-rektangeln som avgränsar latticen. Dessa fyra värden blir de första fyra posterna i /Decode. Placera dem i samma user-space-koordinater som du ska måla i - för HotPDF:s skärmkoordinat-Rectangle vid (X, Y, W, H) är motsvarande PDF user-space-rektangel (X, PageHeight - Y - H) till (X + W, PageHeight - Y).

NumComponents - antal färgkomponenter per vertex. Skicka 1 för DeviceGray, 3 för DeviceRGB eller 4 för DeviceCMYK. Alla andra värden utlöser ett undantag.

VerticesPerRow - antal vertices N per lattice-rad, N >= 2. Ordlisteposten /VerticesPerRow tar detta värde verbatim. Antalet rader M härleds från arraylängden som VertexCount / VerticesPerRow och måste vara minst 2.

Vertices - platt array av Extended-värden i ordningen (X, Y, c1...cN) per vertex, upprepad row-major (rad 0 först, sedan rad 1, ...). Koordinater klampas till [XMin, XMax] x [YMin, YMax] och kvantiseras till 16-bitars heltal; färgkomponenter klampas till [0, 1] och kvantiseras till 8-bitars heltal.

Returvärde: ett automatiskt genererat pattern-namn (Sh1, Sh2, ...) registrerat i den aktuella sidans Resources/Pattern-ordlista. Returnerar en tom sträng när StrictVersionLock är på och aktiv Version är under PDF 1.3 (annars höjs dokumentversionen automatiskt till 1.3).

Code Example

// 3x3 lattice over a 200x200 quad. The renderer auto-triangulates
// adjacent rows into a triangle strip, giving 4 cells x 2 triangles
// = 8 triangles. Colour layout (visual):
//
//   row 0 (top, Y=YMax): red     yellow  green
//   row 1 (mid):         magenta gray    cyan
//   row 2 (bot, Y=YMin): blue    purple  orange
var
  Doc: THotPDF;
  PatName: AnsiString;
  Verts: array[0..44] of Extended;   // 9 vertices x 5 floats each
  H, XMin, YMin, XMax, YMax, XMid, YMid: 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;
    XMid := (XMin + XMax) / 2;
    YMid := (YMin + YMax) / 2;
    // row 0 (Y=YMax): red - yellow - green
    Verts[ 0] := XMin; Verts[ 1] := YMax; Verts[ 2] := 1.0; Verts[ 3] := 0.0; Verts[ 4] := 0.0;
    Verts[ 5] := XMid; Verts[ 6] := YMax; Verts[ 7] := 1.0; Verts[ 8] := 1.0; Verts[ 9] := 0.0;
    Verts[10] := XMax; Verts[11] := YMax; Verts[12] := 0.0; Verts[13] := 1.0; Verts[14] := 0.0;
    // row 1 (Y mid): magenta - gray - cyan
    Verts[15] := XMin; Verts[16] := YMid; Verts[17] := 1.0; Verts[18] := 0.0; Verts[19] := 1.0;
    Verts[20] := XMid; Verts[21] := YMid; Verts[22] := 0.5; Verts[23] := 0.5; Verts[24] := 0.5;
    Verts[25] := XMax; Verts[26] := YMid; Verts[27] := 0.0; Verts[28] := 1.0; Verts[29] := 1.0;
    // row 2 (Y=YMin): blue - purple - orange
    Verts[30] := XMin; Verts[31] := YMin; Verts[32] := 0.0; Verts[33] := 0.0; Verts[34] := 1.0;
    Verts[35] := XMid; Verts[36] := YMin; Verts[37] := 0.5; Verts[38] := 0.0; Verts[39] := 0.5;
    Verts[40] := XMax; Verts[41] := YMin; Verts[42] := 1.0; Verts[43] := 0.5; Verts[44] := 0.0;
    PatName := Doc.RegisterLatticeFormGouraudShading(
      XMin, YMin, XMax, YMax, 3, 3, Verts);
    Doc.CurrentPage.SetFillPattern(PatName);
    Doc.CurrentPage.Rectangle(0, 0, 200, 200);
    Doc.CurrentPage.Fill;
    Doc.EndDoc;
  finally
    Doc.Free;
  end;
end;