Muschellinie
Author: Gisbert Friege nach dem Artikel von Ingmar Rubin in "Die Wurzel" Heft 6/04
Date: 3.9.2004

A = (-2.3999999999999924, -1.1333333333333333)
C = (42.15000000000001, -1.6500000000000001)
s_1 = Segment(A, C)
B = Point(s_1)
g_1 = OrthogonalLine(B, s_1)
P = Point(s_1)
d = Distance(A, P)
k_1 = Circle(B, d)
Q_2, Q_1 = Intersect(k_1, g_1)
g_2 = Line(P, Q_1)
k_2 = Circle(P, 16)
R_2, R_1 = Intersect(k_2, g_2)