Vektor Format anzeigen/drucken

[Gruber_Hans_12345]

tja, ich habe zwar absolut keine ahnung warum ich diese faktoren brauche (habe die jetzt mal mit testen rausbekommen) aber das ergebnis sieht schon mal zu 99% gut aus (ganz kleine abweichungen sind noch drinnen) - werde es noch mal mit mehr texte probieren

Delphi-Quellcode:

  scale := 0.971;

  M := TGPMatrix.Create;
  M.Reset;
  M.Translate(-0.184*fFontHeight, 0, MatrixOrderAppend);
  M.Scale(scale, 1, MatrixOrderAppend);
  M.Translate((1-scale)*(X), 0, MatrixOrderAppend);
  fPath.transform(M);
  M.Free;

ich weiss, ich könnte die zwei translate zusammenfassen, aber so ist es wenigstens etwas übersichtlich ...