THotPDF.RegisterLatticeFormGouraudShading Method

Apibrėžia PDF 1.3+ tinklinės formos Gouraud šešėliavimo trikampių tinklą (ISO 32000-1 8.7.4.5.5, /ShadingType 5) ir pateikia jį kaip įterptą Pattern Type 2 įrašą puslapio Resources/Pattern žodyne. Braižymo variklis automatiškai suformuoja kiekvienų gretimų eilučių poras į trikampių juostas, todėl kviečiamajam būtinas tik viršūnių tinklas — naudinga, kai pradinių duomenų taškai jau pateikiami reguliariame imčių tinklelyje (reljefo žemėlapiai, FEA rezultatai, moksliniai šilumos žemėlapiai). Naudokite RegisterFreeFormGouraudShading tada, kai trianguliacija nelygi ir reikia trikampio vėliavų

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);

Šešėliavimas išvedamas kaip netiesioginis srautas su /ShadingType 5, /BitsPerCoordinate 16, /BitsPerComponent 8 ir /VerticesPerRow N. Skirtingai nuo Type 4, čia nėra vėliavos baito kiekvienai viršūnei, o /BitsPerFlag šešėliavimo žodyne nėra; kiekviena viršūnė užima 4 + NumComponents baitus (2 didžiojo galo X + 2 didžiojo galo Y + N spalvų komponentų). /Decode masyvas mapina 16 bitų koordinates atgal į pateiktą [XMin, XMax] x [YMin, YMax] vartotojo erdvės stačiakampį, o kiekvieną spalvos komponentą atgal į [0, 1]

Viršūnės pateikiamos eilutės tvarka: pirmos VerticesPerRow viršūnės sudaro 0 eilutę, kitos VerticesPerRow sudaro 1 eilutę ir t. t. Braižymo variklis sujungia kiekvieną gretimų eilučių porą (eilutė i ir eilutė i+1) į trikampių juostą — be vėliavų, be aiškaus trikampių sąrašo. Extended reikšmių skaičius, perduodamas kaip Vertices, turi būti daugybinis (2 + NumComponents) * VerticesPerRow ir gautas eilučių skaičius turi būti bent 2

XMin, YMin, XMax, YMax - vartotojo erdvės stačiakampis, apribojantis tinklą. Šios keturios reikšmės tampa pirmomis keturiomis /Decode įrašomis. Nustatykite jas toje pačioje vartotojo koordinačių sistemoje, kurioje piešiate: HotPDF ekrano koordinatėse Rectangle išraiška (X, Y, W, H) atitinka PDF vartotojo erdvės stačiakampį (X, PageHeight - Y - H) iki (X + W, PageHeight - Y)

NumComponents - spalvų komponentų skaičius vienai viršūnei. Nurodykite 1 kaip DeviceGray, 3 kaip DeviceRGB arba 4 kaip DeviceCMYK. Kitos reikšmės sukelia išimtį

VerticesPerRow - N viršūnių, pateikiamų kiekvienoje tinklelio eilėje, N >= 2. Žodyno įrašas /VerticesPerRow tiesiogiai naudoja šią reikšmę. Eilučių skaičius M yra išvedamas iš masyvo ilgio kaip VertexCount / VerticesPerRow ir turi būti ne mažesnis kaip 2

Vertices - tiesus Extended masyvas formatu (X, Y, c1...cN) vienai viršūnei, kartojamas eilutėmis (pirmiausia 0 eilutė, tada 1, 2...). Koordinatės apribojamos į [XMin, XMax] x [YMin, YMax] ir kvantifikuojamos į 16 bitų sveikuosius skaičius; spalvų komponentai apribojami į [0, 1] ir kvantifikuojami į 8 bitų sveikuosius skaičius

Grąžinama reikšmė: automatiškai sugeneruotas rašto pavadinimas (Sh1, Sh2, ...) užregistruotas dabartinio puslapio Resources/Pattern žodyne. Grąžina tuščią eilutę, kai StrictVersionLock įjungtas ir aktyvi Version yra žemiau PDF 1.3, kitu atveju dokumento versija automatiškai pakeliama iki 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;