Metode THotPDF.RegisterLatticeFormGouraudShading

Mendeklarasikan shading triangle mesh Gouraud berbentuk lattice PDF 1.3+ (ISO 32000-1 8.7.4.5.5, /ShadingType 5) dan membungkusnya sebagai entri Pattern Type 2 inline di dictionary Resources/Pattern pada halaman. Renderer secara otomatis men-triangulasi setiap pasangan baris bersebelahan menjadi triangle strip, jadi pemanggil hanya perlu menyediakan grid simpul - berguna saat data sumber sudah berada pada grid sampel reguler seperti terrain, hasil FEA, atau heatmap ilmiah. Gunakan RegisterFreeFormGouraudShading jika triangulasinya tidak teratur dan flag per segitiga diperlukan

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

Shading dikeluarkan sebagai stream tidak langsung dengan /ShadingType 5, /BitsPerCoordinate 16, /BitsPerComponent 8 dan /VerticesPerRow N. Tidak seperti Type 4, tidak ada byte flag per simpul dan /BitsPerFlag tidak hadir di dictionary shading; setiap simpul memakai 4 + NumComponents byte, yaitu 2 byte X big-endian + 2 byte Y big-endian + N komponen warna. Array /Decode memetakan koordinat 16-bit kembali ke persegi panjang ruang pengguna [XMin, XMax] x [YMin, YMax] yang diberikan dan setiap komponen warna kembali ke [0, 1]

Simpul diurutkan row-major: VerticesPerRow simpul pertama membentuk baris 0, VerticesPerRow berikutnya membentuk baris 1, dan seterusnya. Renderer menghubungkan setiap pasangan baris bersebelahan (baris i dan baris i+1) menjadi triangle strip - tanpa flag dan tanpa daftar segitiga eksplisit. Jumlah nilai Extended yang Anda berikan dalam Vertices harus merupakan kelipatan dari (2 + NumComponents) * VerticesPerRow dan jumlah baris hasilnya harus minimal 2

XMin, YMin, XMax, YMax - persegi panjang ruang pengguna yang membatasi lattice. Empat nilai ini menjadi empat entri pertama /Decode. Letakkan dalam koordinat ruang pengguna yang sama dengan area yang akan Anda gambar - untuk Rectangle koordinat layar HotPDF di (X, Y, W, H), persegi panjang ruang pengguna PDF yang cocok adalah (X, PageHeight - Y - H) sampai (X + W, PageHeight - Y)

NumComponents - jumlah komponen warna per simpul. Gunakan 1 untuk DeviceGray, 3 untuk DeviceRGB, atau 4 untuk DeviceCMYK. Nilai lain akan memunculkan exception

VerticesPerRow - jumlah simpul N per baris lattice, dengan N >= 2. Entri dictionary /VerticesPerRow memakai nilai ini apa adanya. Jumlah baris M diturunkan dari panjang array sebagai VertexCount / VerticesPerRow dan harus minimal 2

Vertices - array datar berisi nilai Extended dalam urutan (X, Y, c1...cN) per simpul, diulang row-major, yaitu baris 0 dulu lalu baris 1 dan seterusnya. Koordinat dijepit ke [XMin, XMax] x [YMin, YMax] dan dikuantisasi ke integer 16-bit; komponen warna dijepit ke [0, 1] dan dikuantisasi ke integer 8-bit

Nilai balik: nama pattern yang dihasilkan otomatis (Sh1, Sh2, ...) yang terdaftar di dictionary Resources/Pattern halaman aktif. Mengembalikan string kosong saat StrictVersionLock aktif dan Version aktif berada di bawah PDF 1.3, jika tidak versi dokumen dinaikkan otomatis ke 1.3

Contoh kode

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