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

[thomas2009]

Hallo
normalerweise könnte man mehrere Schnitt-Linien beim zeichnen einer Ellipse eingeben

Delphi-Quellcode:

canvas.arc(0,100, 100,200,  200,150,0,150); // 1/2 Kreis

Nun möchte ich einen 1/4 Kreis zeichnen über 2 Schnitt-Linien :

Delphi-Quellcode:

canvas.arc(0,100, 100,200,  200,150,0,150,   50/200,50,100); // 1/4 Kreis
// aber wird nicht mehrere Punkte akzeptiert !!!

[edit=Matze]Bild angehängt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[fkerber]

Hi!

Könntest du das Bild bitte als Anhang hier hochladen und aus dem Beitrag entfernen?
Dann bliebe es auch erhalten, falls der externe Server mal down ist und die Ladezeit des Threads würde sich auch verringern. ;)


Danke!

Ciao, Frederic

[DeddyH]

Versuch es mal testhalber hiermit:

Delphi-Quellcode:

Canvas.Arc(10,10,150,150,150,80,80,10);

Und dann schau noch mal in die Hilfe ;)

[thomas2009]

Zitat:

Zitat von DeddyH

Versuch es mal testhalber hiermit:

Delphi-Quellcode:

Canvas.Arc(10,10,150,150,150,80,80,10);

Und dann schau noch mal in die Hilfe ;)

Danke für den Tipp

Stimmt, du hasst das Problem gelöst mit einer einzigen Schnitt-Line
Also, man kann nur eine Schnitt-Linie eingeben

[DeddyH]

Nein. Die ersten 4 Zahlen definieren das umgebende Rechteck der Ellipse. Die nächsten beiden definieren den Punkt, durch den die erste Schnittlinie ausgehend vom Mittelpunkt der Ellipse verläuft. Die letzten beiden definieren den Punkt, durch den die zweite Schnittlinie gegen den Uhrzeigersinn verläuft. Tauscht man also diese beiden Punkte aus, hat man statt eines 1/4 Kreises einen 3/4-Kreis.

[thomas2009]

Delphi-Quellcode:

Canvas.Arc({Rechteck=}10,10,150,150,   {Sehnenlänge=}150,80,80,10);// Oder ?

[Luckie]

Ich möchte die Bitte von fkerber noch mal wiederholen. Bitte pack das Bild in den Anhang zu deinem Thread. Dann bleibt es uns auch erhalten, wenn es vom Server gelöscht wird und das Laden der Seite geht schneller. Du kannst dies tun, in dem du deinen ersten Beitrag entsprechend editierst.

[himitsu]

siehe Arc

Delphi-Quellcode:

Canvas.Arc(
  {Rechteck=}10,20,150,160,
  {Sehne 1=10:150,20:50,}150,80,
  {Sehne 2=10:150,20:50,}80,10
);

// a:b = Mittelpunkt zwischen a und b,
// also 10:150,20:50 = Mittelpunkt des Rechtecks um die Ellipse

sozusagen je der Endpunkt der Sehnen ... der Startpunkt ist die Kreismitte

[DeddyH]

Siehe Anhang.

[himitsu]

hab hier mal schnell was zusammengetippt

Übernimmt den Mittelpunkt, Durchmesser (Diameter), sowie den Start- und Endwinkel im Bogenmaß.

Delphi-Quellcode:

Type TCanvasEx = Class(TCanvas)
  Public
    Procedure Arc    (X, Y, D:      Integer; S, E: Single); Overload;
    Procedure Arc    (X, Y, Dh, Dv: Integer; S, E: Single); Overload;
    Procedure Chord  (X, Y, D:      Integer; S, E: Single); Overload;
    Procedure Chord  (X, Y, Dh, Dv: Integer; S, E: Single); Overload;
    Procedure Ellipse(X, Y, D:      Integer);               Overload;
    Procedure Ellipse(X, Y, Dh, Dv: Integer);               Overload;
    Procedure Line   (X1, Y1, X2, Y2: Integer);             Overload;
  End;

[add]
Wer jetzt fragt, warum nicht den Radius ... hatte ich erst, aber da kann man den Durchmesser ja nur in 2er-Schritten einstellen.

Dh und Dv sind der horizontale bzw. vertikale Durchmesser

[edit]
neuer Anhang siehe #16

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

[fkerber]

Hi!

@Thomas2009:
Ich bitte dich nochmals, die Bilder als Anhänge dranzuhängen, statt sie so einzubinden.
Ist der externe Server einmal down oder die Bilder von dort gelöscht, so ist der Beitrag vollkommen wertlos.
Außerdem dauert das Laden des Threads hier unnötig lange, wenn man die Bilder einmal gesehen hat...

Danke!

Ciao, Frederic

[himitsu]

@Thomas:
hätt ja beinah vergessen ... dein 1/4-Tür-Kreis wäre:

Delphi-Quellcode:

TSimpleCanvas({DeinCanvas}PaintBox1.Canvas).Arc({X}165, {Y}85, {D}150, -PI/2, 0);

[himitsu]

so, und nun das Ganze nochmal als Class-Helper (geht natürlich nur in neueren Delphis)

Man braucht jetzt also nichtmal mehr 'nen Cast des Canvas :mrgreen:


Im Anhang beide Versionen Class(TCanvas) und Class helper for TCanvas,
samt je 'nem Demo-Projekt und TSimpleCanvas in eine eigene Unit ausgelagert.

Delphi-Quellcode:

// mit Class-Helper
PaintBox.Canvas.ArcFullArrow(...

// ohne
TSimpleCanvas(PaintBox.Canvas).ArcFullArrow(...