Die Linien, die auf der X- und Y-Achse beginnen, scheinen immer den gleichen Abstand zueinander zu haben (Startpunkte auf den Achsen).
Aber die Endpunkte der Linien, die zu einem Kreisbogen zusammenlaufen, werden wahrscheinlich mit Sinus und Cosinus berechnet worden zu sein.
Ist sicher interessant ausprobieren welche Formen dabei rauskommen, wenn man für die Endpunkte mal etwas mit Sinus und Cosinus experimentiert.
Linien kann man in Delphi/Lazarus mit dem Canvas-Objekt zeichnen, z.B. TImage.Picture.Canvas.LineTo(x,y)
Canvas.MoveTo(0, 0);
Canvas.LineTo(X, Y);
https://de.wikipedia.org/wiki/Sinus_und_Kosinus