Kreissegment drehen

[Hannes R.]

Hallo in die Runde,

nachdem dies mein erstes Posting hier ist vorab ein paar Worte. (Hoffentlich habe ich die Rubrik zum Vorstellen nicht übersehen!)
Ich habe mir das RAD-Studio 2009 als Trial geladen und versuche Delphi zu erlernen. Dazu möchte ich gern eine kleine Animation einer Lokomotivsteuerung (Hobby) erstellen. Die Basic`s hoffe ich verstanden zu haben.
Auch die Umsetzung mathematischer Hintergründe gelingt langsam und ich kann mechanische Abhängigkeiten per Canvas sichtbar machen. So läuft mittlerweile ein animierter Kurbeltrieb mit Kolben, Zylinder etc.
Nun stehe ich vor folgendem Problem:
Ein Kreissegment soll um einen Punkt der auf diesem Kreisbogens liegt gedreht werden.(Kulisse)
Canvas bietet ja die Möglichkeit mit "Arc" einen Kreisbogen zu zeichnen nur das Drehen macht mir Probleme. Wenn ich die Koordinaten des umschließenden Rectangles drehe funktioniert das nicht mehr.
Die Suche hier und auch an anderer Stelle hat mich nicht richtig weiter gebracht..
Zur späteren Nutzung wäre es gut weitere Punkte auf diesem Segment genau bestimmen zu können.

über eine Hilfestellung wäre ich dankbar

mfG
Hannes

[sx2008]

In folgendem Artikel sind Funktionen zum Drehen von Punkten im 2-dimensionalen Raum.
http://www.delphipraxis.net/internal...ct.php?t=38391
Wenn du einen Kreisbogen drehen möchtest musst als Punkte auf den Ursprung verschieben,
dann um den entsprechenden Winkel drehen und dann an die Position verschieben,
an dem du ihn brauchst.

Ich würde empfehlen, zuerst mal mit einem Dreieck zu beginnen (Zeichnen mit MoveTo und LineTo)
um ein Gefühl für das Drehen und Verschieben zu bekommen.

[Hannes R.]

Hallo sx2008,

vielen Dank, das ging ja schnell! Da werde ich mich einarbeiten müssen.
Es fällt schon etwas schwer nach ca. 20 Jahren Programmierabstinenz wieder rein zu kommen.

mfG
Hannes

[Wolfgang Mix]

Herzlich willkommen
bin ja auch schon 50++, aber wenn was hakt,
ist man hier gut aufgehoben.

[Hannes R.]

Hallo Wolfgang,

vielen Dank für die nette Begrüßung!
Ich habe ja, als Gast, hier schon einige Zeit verbracht. Leider werde ich mit meinem
Anfänger(un)wissen für längere Zeit nur zu den Lesenden gehören.

mfG

Hannes

[Wolfgang Mix]

Das wäre schade ,
von Deinen Fortschritten mit Canvas könnten doch auch andere,
z.B. meine Schüler profitieren, ich allerdings auch.
Sei 'mal nicht so bescheiden.

Gruß

Wolfgang

[Hannes R.]

Hallo Wolfgang,

es hat mich jetzt schon überrascht, das Interesse an meinen ersten Gehversuchen besteht.
Ich will versuchen davon, auch wenn es sicher zur allgemeinen Belustigung der Profi`s beitragen wird, Etwas zu zeigen. Allerdings nicht mehr heute..

mfG
Hannes

[Wolfgang Mix]

Hallo Hannes,

ein Kreissegment mit Canvas zu drehen, ist für viele schon eine große Herausforderung.
Ohne Übertreibung behaupte ich einmal, daß 90% meiner Schüler ohne Hilfe
damit überfordert wären (Fachgymnasium 11. Jahrgang). Amüsieren wird sich hier über Deinen Code,
zumindest von den Experten, kein einziger. Du mußt allerdings damit rechnen, daß Dein
Code aus mehreren Gedankenrichtungen optimiert wird, was ja ja prima ist.

Auf abwertende Kommentare achten schon die Moderatoren.

Also, wir freuen uns, Dich wieder zu sehen

Gruß

Wolfgang

PS: Zeige doch einmal bitte, wenn auch nur als EXE-Datei, Deine beschriebenen Übungen,
dann kann man weniger meckern

Anbei eine Schülerarbeit aus dem 11. Jahrgang

[Hannes R.]

Hallo Wolfgang,

Deine Antwort hat mir etwas Mut gemacht.
Anbei mein Machwerk..
Mit "Projekt - neu - Zylinder/Rahmen" kann man eigene Maße eingeben. Diese werden dann mit dem Button "aktualisieren" in die Animation übernommen.
Leider stimmt die Skalierung nur bei einer Auflösung von 1024x768. Da muß ich auch noch nachbessern.

freundliche Grüße

Hannes

[Jakob Ullmann]

Ich würde allerdings von so einer Funktion abraten (wie die von sx2008 verlinkte). Punkte zu drehen ist ja weniger ein programmiertechnisches Problem, eher ein mathematisches. Ist eigentlich nur Grundwissen über Trigonometrische Funktionen und Satz des Pythagoras.