Pascal-Schnecken
Author: Dörte Haftendorn
Date: Juli 05

B = Intersect(xAxis, yAxis)
A = Point(xAxis)
c = Circle(A, B)
Q = Point(c)
g = Line(Q, B)
k = 7.1000000000000005 (slider from 0 to 12, step 0.1)
kr: (x - x(Q))² + (y - y(Q))² = k²
C, P = Intersect(kr, g)
Leine = Segment(Q, P)
loc1 = Locus(P, Q)