Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Was Du @himitsu als Demo geschrieben hast, kann davon viel lernen ;) |
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Dasselbe wie was?
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Liste der Anhänge anzeigen (Anzahl: 1)
OK, da die Punkte zufällig auf Dem Kreis liegen, kommt's hier mal auf's Gleiche raus,
aber
Code:
siehe Anhang
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 |
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
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:
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Zitat:
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
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 |
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
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.
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Liste der Anhänge anzeigen (Anzahl: 1)
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:
[edit]
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ß 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. |
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Liste der Anhänge anzeigen (Anzahl: 2)
Von meiner Seite akzeptable
|
Re: Arc( z,e,i,c,h,n,e,n) 1/4 Kreis
Liste der Anhänge anzeigen (Anzahl: 1)
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) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz