THotPDF.RegisterFreeFormGouraudShading Method

Deklarerer en PDF 1.3+ fri-form Gouraud-skalert trekantmesh-utfylling, i henhold til ISO 32000-1 8.7.4.5.4 og /ShadingType 4, og pakker den inn i en innebygd Pattern Type 2-oppføring i sidens Resources/Pattern-ordbok. Bruk det returnerte mønsternavnet med THPDFPage.SetFillPattern eller THPDFPage.SetStrokePattern for å male en vektorgradient der fargen varierer jevnt over hver trekant

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

Utfyllingen sendes ut som én indirekte strøm med /ShadingType 4, /BitsPerCoordinate 16, /BitsPerComponent 8 og /BitsPerFlag 8. Hvert toppunkt pakkes i strømrekkefølge som 8 + NumComponents − 3 byte - ett flagg på 1 byte, alltid 0 for uavhengige trekanter, 2 big-endian-byter for X-koordinaten, 2 big-endian-byter for Y-koordinaten og NumComponents fargekomponenter på 8 bit. /Decode-tabellen mapper de 16-bit kodede koordinatene tilbake til det oppgitte brukerromsrektangelet [XMin, XMax] x [YMin, YMax] og hver fargekomponent tilbake til [0, 1]

Vertices brukes tre og tre som uavhengige trekanter. Antallet Extended-verdier du sender inn i Vertices må være nøyaktig (2 + NumComponents) * 3 * TriangleCount; hjelperen utløser et unntak når tabellengden ikke er et multiplum av steglengden eller når antallet toppunkter ikke er et multiplum av tre

XMin, YMin, XMax, YMax - brukerromsrektangelet som avgrenser mesh-en. Disse fire verdiene blir de fire første oppføringene i /Decode slik at de 16-bit kodede toppunktkoordinatene mappes tilbake til PDF-brukerrommet. Plasser dem i de samme brukerromskoordinatene du vil tegne inn i - for HotPDFs skjermkoordinat-Rectangle på (X, Y, W, H) er det tilsvarende PDF-brukerromsrektangelet (X, PageHeight - Y - H) til (X + W, PageHeight - Y)

NumComponents - antall fargekomponenter per toppunkt. Send 1 for DeviceGray, 3 for DeviceRGB eller 4 for DeviceCMYK. Enhver annen verdi utløser et unntak. /ColorSpace-oppføringen i den resulterende utfyllingen settes tilsvarende

Vertices - flatt tabell av Extended-verdier i rekkefølgen (X, Y, c1...cN), gjentatt for hvert toppunkt. Koordinatene klamres til boksen [XMin, XMax] x [YMin, YMax] og kvantiseres til 16-bit-heltall; fargekomponentene klamres til [0, 1] og kvantiseres til 8-bit-heltall. Nabotrekanter som må dele en kant, må gjenta de delte toppunktene ordrett fordi den registrerte utfyllingen bruker et flagg på 0 for hvert toppunkt, altså uavhengige trekanter

Returverdi: et automatisk generert mønsternavn (Sh1, Sh2, ...) registrert i gjeldende sides Resources/Pattern-ordbok. Returnerer en tom streng når StrictVersionLock er aktivert og den aktive Version er under PDF 1.3, ellers heves dokumentversjonen automatisk til 1.3

Kodeeksempel

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