Arc( z,e,i,c,h,n,e,n) 1/4 Kreis

[thomas2009]

Zitat:

Zitat von DeddyH

Siehe Anhang.

Ja, verstehe. aber das ist das selbe

Was Du @himitsu als Demo geschrieben hast, kann davon viel lernen ;)

[DeddyH]

Dasselbe wie was?

[himitsu]

OK, da die Punkte zufällig auf Dem Kreis liegen, kommt's hier mal auf's Gleiche raus,

aber

Code:

10, 10, 150, 150,   80, -70,   200, 80

bzw.

10, 10, 150, 150,   80, 50,    110, 80

oder wie wär's mit

10, 10, 150, 150,   80, 50,    200, 80

siehe Anhang

[Cyf]

Was ihr nicht bedenkt ist, dass die GDI die letzte Spalte und Zeile nicht mit einbezieht, also fehlt genau genomen noch jeweils ein Pixel, den man auf den Rahmen aufaddieren muss. :wink: Ja ich weiß, der kümmert eigentlich niemanden. :zwinker:

[himitsu]

Zitat:

Zitat von Cyf

Was ihr nicht bedenkt ist, ... :zwinker:

na zum Glück hab ich das Beispiel-Cödelen nicht als Fertig ausgepriesen :mrgreen:

[himitsu]

OK, hab mal das mit dem 1 Pixel ala Cyf geändert
und noch ein 'ne "neue" Funktion hinzugefügt.

ist euch dabei schonmal aufgefallen, daß MoveTo das letze Pixel nur wegläßt, wenn Pen.Width = 1 ist?

Das mit den Pfeilen für Pfeil am Ende eines Bogens zeichnen? funktioniert bei Kreisen schonmal.
Bei Ellipsen hab ich noch "kleine" Probleme :oops:
siehe Tangente an einer Ellipse berechnen?

[edit]
ups, Datei vergessen

[edit2]
so, neue Datei jetzt im Anhang von 18

[Cyf]

Was mit dem Pixel bei Kreisanteilen vielleicht noch wichtig ist, ist das die GDI scheinbar dann mit nem Kreismittelpunkt auf nem "gebrochenen" Pixel rechnet und Vektoren vom Kreismittelpunkt aus betrachtet falsch dargestellt werden (da logischerweise nur Ganzzahlen angenommen werden), nimmt man z.B. einen Einheitsvektor mit [1,0] und rechnet sich den Kreismittelpunkt aus (der Punkt bildet ja ne Halbgerade und muss nicht auf dem Kreis liegen), so wird eventuell ein falscher Kreisabschnitt dargestellt, also sollte man kleine Vektoren immer erst skalieren (also mindestens bis auf den Kreisradius), damit der 0,5 große Fehler vom Mittelpunkt nicht mehr in der Zeichnung sichtbar ist. Nur falls man das mal so umsetzen möchte vom Mittelpunkt aus Koordinaten draufzurechnen.

[himitsu]

Das mit den Pfeilen sieht jetzt erstma "hübsch" aus.

Also könnt ihr gern mal nachsehn ob es so in Ordnung geht.
(die Pfeile sind zwar nicht Pixelgenau so groß, wie man es angibt, aber es solle dennoch halbwegs gleichmäßig aussehn :angel2: )

Und dann hab ich die Klasse etwas umbenannt.

aktuelle Funktionen wären:

Delphi-Quellcode:

Type TSimpleCanvas = Class(TCanvas)
  Public
    Procedure Arc         (X, Y, D:        Integer; S, E: Single);
    Procedure Arc         (X, Y, Dh, Dv:   Integer; S, E: Single);
    Procedure ArcArrow    (X, Y, D:        Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcArrow    (X, Y, Dh, Dv:   Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcFullArrow(X, Y, D:        Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure ArcFullArrow(X, Y, Dh, Dv:   Integer; S, E: Single; A: Integer; Ab: Single);
    Procedure Chord       (X, Y, D:        Integer; S, E: Single);
    Procedure Chord       (X, Y, Dh, Dv:   Integer; S, E: Single);
    Procedure Ellipse     (X, Y, D:        Integer);
    Procedure Ellipse     (X, Y, Dh, Dv:   Integer);
    Procedure Line        (X1, Y1, X2, Y2: Integer);
    Procedure Pie         (X, Y, D:        Integer; S, E: Single);
    Procedure Pie         (X, Y, Dh, Dv:   Integer; S, E: Single);
  End;

// X, Y   = Mittelpunkt
// D      = Durchmesser
// Dh, Dv = Durchmesser horizontal/vertikal
// S, E   = Start- und Endwinkel im Bogenmaß (RAD)
// A      = Pfeillänge
// Ab     = Winkel der Pfeilspitze, ebenfalls im Bogenmaß

[edit]
hab im Angang die Ellipsen-Verzerrung noch etwas verstärkt (sie flacher gemacht)
und die Anzeigedauer je Typ verlängert.

[add]
Wenn der Durchmesser im Verhältnis zur Pfeillänge zu klein ist, wird der Pfeil nicht gezeichnet.
wird nicht berechnet, sonder nur ein etwa um 90° gedrehter Pfeil (zum Radius) gezeichnet

[add2]
es werden Arc, ArcArrow, ArcFullArrow, Chord und Pie der Reihe nach angezeigt.

[add3]
hab noch ein paar Controls für Linienbreite, Pfeilgröße und Co. draufgepackt, außerdem wird jetzt nimmer zwischen den Controls automatisch umgeschaltet.

[thomas2009]

Von meiner Seite akzeptable

[himitsu]

hab oben noch etwas geändert .. siehe [add3] in #18

Dann gibt's ein "nettes" Problem bei zu großen Pfeilen und zu kleinen Radien.
Mein erster Gedanke war zwar einfach den Endpunkt der Linie (welcher ja derzeit in der Pfeilspitze liegt) einfach auf das Pfeilende zu verschieben, aber so einfach ist das garnicht, da sich dan unter umständen die Linie umkehren kann (in der falschen Richtung verläuft)