A: (0, 0)
a = 1.3 (slider from 0 to 5, step 0.1)
B = Point(xAxis)
f = Segment(A, B)
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
c = Circle(B, (a * distanceAB))
g = Line(A, B)
h = OrthogonalLine(B, g)
C_1, C = Intersect(c, h)
i = Segment(B, C)
D, j = Outil2(a, B, C)
E, k = Outil2(a, C, D)
F, l = Outil2(a, D, E)
m = Line(D, B)
n = Line(C, A)
α = Angle(C, B, A)

Tool: Outil2
Outil2[ <Nombre>, <Point>, <Point> ]
Input: a, A, B
Output: C, i

A: (0, 0)
distanceAB = Distance(A, B)
c = Circle(B, (a * distanceAB))
g = Line(A, B)
h = OrthogonalLine(B, g)
C_1, C = Intersect(c, h)
i = Segment(B, C)