emf drehen

[gargano]

Hallo zusammen,

ich suche eine Möglichkeit ein emf File zu drehen, also eine Funktion
in der Art :

EMFRotate (src,dest:TMetafile;Angle:Integer);

Wichtig ist, daß dest auch wieder EMF ist, damit keine Qualitätsverluste
entstehen.
Bitte keine Vorschläge für bmp-rotate, die habe ich genügend. Alle mit dem Nachteil
massiver Qualitätsverluste beim zoomen.

Gibt es sowas ?

Gruß
gargano

[FAlter]

Hi,

ich hab zwar mal was zum EMF gedreht zeichnen gefunden, aber das dann auf ein neues EMF zu zeichnen ist nicht gerade ideal Suche also auch nach einer Lösung zu TMetafile drehen.

180° geht ganz einfach mit Canvas.StretchDraw und oben/unten sowie links/rechts vertauschhen im Rechteck.

Ungefähr so ähnlich:

Delphi-Quellcode:

        //TODO
        with TMetafileCanvas.Create(Graphic, 0) do
        try
          dc:=Handle;
          SetGraphicsMode(DC, GM_ADVANCED);
          XFORM.eM11 :=  0;
          XFORM.eM22 :=  0;
          XFORM.eM12 := -1;
          XFORM.eM21 :=  1;
          XFORM.eDX  := H2;
          XFORM.eDY  := W2;
          SetMapMode(dc, MM_TEXT);
          SetWorldTransform(DC, XFORM);
          Draw(-W2, -H2, Graphic);
        finally
          Free;
        end;

Wie gesagt, so toll funktioniert es nicht. Ich beobachte sogar Verzerrungen wenn eine bereits gedrehte Metafile nochmal gedreht wird.

[edit] Und selbst damit gehen nur vielfache von 90° [/edit]

Mfg
FAlter

[gargano]

Hallo FAlter,

danke für den Tip.
Andere Winkel als 90° kann man mit

XFORM.eM11 := Cos(DegToRad(Angle));
XFORM.eM22 := Cos(DegToRad(Angle));
XFORM.eM12 := Sin(DegToRad(Angle));
XFORM.eM21 := -Sin(DegToRad(Angle));

darstellen,Verzerrungen inbegriffen.

Allerdings kann ich die Eigenart von eDX und eDY nicht ganz nachvollziehen.
Bei mir ist dann das gedrehte Bild nicht an derselben Stelle wie das nicht gedrehte,
sondern verschoben.

Gruß
Gargano

[FAlter]

Hi,

Zitat von gargano:

Andere Winkel als 90° kann man mit

XFORM.eM11 := Cos(DegToRad(Angle));
XFORM.eM22 := Cos(DegToRad(Angle));
XFORM.eM12 := Sin(DegToRad(Angle));
XFORM.eM21 := -Sin(DegToRad(Angle));

darstellen,Verzerrungen inbegriffen.

An Winkelfunktionen habe ich noch gar nicht gedacht.

Mfg
FAlter

[gargano]

Hallo Falter,

hast Du eine Erklärung für die Verschiebung ?

Gruß
Gargano

[FAlter]

Hi,

ich dachte, eDX und eDY wären das Drehzentrum, dann hast du nen Winkel, und wenn du dann zeichnest, wird alles mitgedreht, d. h. sämtliche Operationen auf deinem DC werden transformiert. Gibst du nun irgendwelche Koordinaten ein, werden diese mitgedreht und dann an der neuen Stelle gezeichnet. Wahrscheinlich war das der Grund, weshalb ich damals negative Koordinaten übergeben habe.

Hmm, ich habe den Code derzeit auskommentiert, muss ihn nochmal überarbeiten. Dann werde ich mich nochmal genauer damit beschäftigen.

Mfg
FAlter

[gargano]

Hi FAlter,

Drehzentrum könnte hinkommen, die Hilfe gilt folgende Info für SetWorldTransform :

For any coordinates (x, y) in world space, the transformed coordinates in page space (x', y') can be determined by the following algorithm:

x' = x * eM11 + y * eM21 + eDx,
y' = x * eM12 + y * eM22 + eDy,
where the transformation matrix is represented by the following:

| eM11 eM12 0 |
| eM21 eM22 0 |
| eDx eDy 1 |


Gruß
Gargano

[gargano]

Noch ein Nachtrag :
Jetzt habe ich einiges ausprobiert :

Drehpunkt scheint immer 0,0 zu sein, nur wird jeh nach Drehrichtung das Bild dann verschoben.
Probier mal es mir einem Blatt Papier aus.
Deshalb muß dann das gesamte Bild noch verschoben werden, damit es wieder in den ursprünglichen dc paßt.
Bei Dir war es negativ, für 90° wäre es

Dx := h;
Dy :=0;

für -90°

eDx := 0 ;
eDy := w

Verzerrungen gibt es mit einem floodfill erzeugten Rechteck mit z. B 45° in dem Bild.

Gruß
gargano