Deutsches Lazarusforum

Wenn Du etwas verändert haben möchtest, dann ändere etwas.
Sonst nimm halt Delphi ...


++


Eine Verinbarung bei Opensouce muss sich ja dabei nicht an die gesetzlich vorgeschriebene Form halten, mir geht es um eine verbindliche Vereinbarung über die Funktionen und Eigenschaften einer ...

Vielleicht als Erinnerung, Lazarus (und FPC) und die ganzen Bibliotheken liegen im Quellcode vor. Somit sind alle Quelltexte uneingeschränkt einsehbar. Und auch schon am Rechner vorhanden.
Da gucke ich gelegentlich auch rein.


Man muss hier einwenden das es für einen Anfänger nicht viel ...

Nun, ich habe jetzt eine neue Ellipsenfunktion in Arbeit, noch nicht getestet!



procedure PlotEllipse(x1,y1,x2,y2: Integer; alpha1,alpha2: extended);
var
a,b: Integer;
ra,rb: extended;
x,y: Integer;
alpha: Extended;
e,r: Extended;
begin
alpha := alpha1;
a := (x2-x1) div 2;
b := (y2-y1 ...

si tacuisses ...

ich fürchte Philosoph wird in diesem Leben keiner mehr aus mir.
30 Zugriffe in etwas weniger als 2 Stunden und kein Post? -- egal.

Einem Anfänger (wie du dich selbst bezeichnest) kann man durchaus Unwissenheit zugestehen und @wp_xyz hat sich ja auch intensiv um dein Anliegen ...

Vielleicht als Erinnerung, Lazarus (und FPC) und die ganzen Bibliotheken liegen im Quellcode vor. Somit sind alle Quelltexte uneingeschränkt einsehbar. Und auch schon am Rechner vorhanden.
Da gucke ich gelegentlich auch rein.


Man kann sich auch den letzten Stand der Entwicklung (main bzw ...

Jauuuu, es ist vollbracht. Habe es hinbekommen. Hatte bloden Schusselfehler drin. Sorry, jetzt aber wird das Tortenstück korrekt gezeichnet.

Jetzt liegt bei Benutzung dieser Funktion:


procedure EllipseParams2Coords(X, Y, Width, Height: Integer;
t1, t2: extended; out SX, SY, EX, EY: Integer);
var
sin_t1, cos_t1, sin_t2, cos_t2: Extended;
a, b: Double;
begin
SinCos(t1, sin_t1, cos_t1);
SinCos(t2, sin_t2, cos_t2);
a := Width/2;
b ...

So schaut mein Code jetzt aus


procedure TFPFclCanvas.Arc(Left,Top,Right,Bottom,SX,SY,EX,EY: integer);
var
R: TRect;
Angle1,Angle2: Extended;
xm,ym,xR,YR: Integer;
Center: TPoint;
cosWStart,cosWEnd: Extended; //fur sincos Prozedur, Winkelwerte
sinWStart,sinWend: Extended; //fur sincos ...

Ok, ich könnte ja "UniversalArc()" verwenden. Wie aber verhält sich meine PaintEllipse Function/Procedure in Bezug auf die richtige Berechnung der Ellipsenpunkte? Wenn ich also meine PaintEllipse Prozedur aus meinem ersten Beitrag hier im Thread verwende und an dieser die Korrekturen anwende.
In ...

Ist ja richitig viel Arbeit, so eine Ellipse zu berechnen. Danke wie verrückt dafür. Aber leider sehe ich in Deinem Beispielprojekt jetzt nicht die Verwendung Deiner Routinen wie im Forum hier vorgestellt. Wie sähe dann der Ellipsenbogen nun aus mit bei Codierung beiden Arc Funktionen. Mit der ...

Nun gut, da will ich mir das Diskussionsforum zunächst angucken. Spontan ergibt sich aufgrund Studium der Bartsch-Formelsammlung die folgende Frage:

es gibt da 2 Formen der Exzentritzität einer Ellipse, die lineare und die numerische. Scheint also nicht ganz trivial zu sein, da die Endpinkte des ...

Bei mir, Lazarus 3.8 mit FPC 3.2.2 64 Bit sehe ich beide Ellipsenbögen exakt abgeschlossen.

Sollte dies der Fehler sein, frage ich mal wie Windows das in seinem API macht?
Und wie macht linux das, der XServer?

Auf jeden Fall wäre da eine fehlerbereinigte Arc Routine mit diesen Parametern hilfreich ...

Ich habe das Projekt gerade in der Bearbeitung, Ich versteh noch nicht warum der Winkel zwischen den Kreisen die die Bogenenden markieren, je nach Stellung der Scrollbars auch mal auf dem Bogen liegen, nicht an den Enden. Wenn ich den Scrollbar für StartAngle verändere liegen die kleinen Kreise auch ...

Danke für die schnelle Antwort. Habe mir die .zip Datei runter geladen aber eine Frage ist noch offen:

So wie ich das verstehe, sind die Punkte SX,SY,EX,EY bisher beliebige Punkte der Ebene gewesen, deren Verbindungslinie vom Mittelpunkt der Ellipse zum Schnittpunkt Ellipse Verbindungslinie ...

Hallo,

Ich sehe zwei Arc Methoden

die erste: Arc(left,top,right,bottom, Angle16Deg,Angle16DegLength: Integer);

die zweite: Arc(left,top,right,bottom,SX,SY,EX,EY: integer);

Welche Bedeutung haben in der zweiten Methode die Parameter SX,EX,SY,EY???

Sollten das in diesem Fall die Schnittpunkte ...