Wirklich unbedingt "selbst Pixel für Pixel"
TCanvas.Ellipse für einen Kreis, bzw. eine Ellipse
und
Vcl.Graphics.TCanvas.Arc für einen Bogen (Teil eines Kreises/Ellipse)
Vcl.Graphics.TCanvas.Ellipse
Vcl.Graphics.TCanvas.Arc
PS: py und yn sind doch etwas "nutzlos", da sie (ihr Inhalt) niemals verwendet werden,
und ich bin mir fast sicher, dass der Compilier es dir eigentlich auch mitteilen sollte. (falls jemand die Compilerwarnungen liest)
py, vor dem DrawPixel ist auch nutzlos.
Sicher, dass danach bei Longword(yp) nicht py anstatt yp gemeint ist?
Sowie die a und b, vor der Schleife, auch noch.
Wobei es ja bereits beim invaliden "CAST"
Longword(yp)
abgeraut sein wird
und natürlich beim nichtdeklarieren
y
.
Sicher, dass deine Übersetzung so wirklich allgemein nicht irgendwelche groben Überlegungs-/Übersetzungsfehler (Formel zu Code) besitzt, als nur das eine fehlende X?