Deutsches Lazarusforum

Zufällig stöbere ich hier rum und finde dieses Thread und während mir Egoismus vorgeworfen wird, heißt es auch HIIR, das Problem sei vom User selber gelöst aber ohne die Lösung zu präsentieren. Wennschn dann hat die Moral gefälligst FÜR ALLE User zu gelten. Ich bin Anfänger und kann noch nicht alles ...

//eine beliebige eigene Ellipsenroutine
procedure DrawEllipse(xm,ym,xR,yR,stangle,endangle: Extended);
...
begin
...
while angle < endangle do
begin
a := x / cos(angle); b := y / sin(angle); //x = a * cos(angle); y = b * sin(angle)
yp := b/a * sqrt(sqr(a)-sqr(x));
py := Round(yp ...

NOCH EINE VARIANTE


program ardemo;

{$mode objfpc}{$H+}

uses
Classes, SysUtils, vipgfx, tools, myTTF, Types, fpcanvas, fpcnvs, math, ellipses;

type
TEllipse_Info = class //Dieses Demo verwendet die Unit ellipses.pp, deshalb hier anderer Klassenname
private
FCenterX, FCenterY: Integer ...

Die Pixelanzahl der Ellipsenpinkte beträgt 378, da lege ich das Array für die Ellipsenpunkte statisch fest, das sollte die Exception eliminieren. den übrigen Quellcode habt Ihr ja. Hoffe dass dieser Cde für Euch von Nutzen ist. So könnt Ihr alle Paramter der Ellipse aus der EllipseInfo Klasse ...

Hallo

Ich habe nun eine CalculateEllipse Funkuion! mit dem Rückgabewert vom Typ TEllipseinfo entwickelt, die die Ellipse oder einen Bogen derselben zeichnet und die Punkte dieser Ellipse in ein Array von TPoiont Elementen schreibt. Diese Punkte können dann an eine Polygon Routine übergeben werden ...

Ich habe jetzt die Ellipse mittels der EllipseInfo Klasse in ellpses.pp berechnet. So hier:


function CalculateEllipse(Boundes: TRect; Angle1, Angle2: Double; var sx,sy,ex,ey: Integer): TEllipseInfo;
var info : TEllipseInfo;
r, y : integer;
a, b: integer;
xc,yc: integer;
rx1,ry1: integer;
rx2 ...

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 ...