C = Intersect(xAxis, yAxis)
B = Point(yAxis)
c = Circle(B, 4)
A = Intersect(c, xAxis, 2)
t1, b, a, c_1 = Polygon(C, A, B)
vzdialenosťCB = Distance(C, B)
Midpoint(C, B)
TextCB: Name[C] + (Name[B]) + " = " + vzdialenosťCB
vzdialenosťAB = Distance(A, B)
Midpoint(A, B)
TextAB: Name[A] + (Name[B]) + " = " + vzdialenosťAB
D = (5, -2)
f = Ray(C, D)
d = Circle(C, 1)
E = Intersect(d, f, 1)
e = Circle(E, 1)
F = Intersect(e, f, 2)
g = Circle(F, 1)
G = Intersect(g, f, 2)
h = Line(F, A)
i = Line(G, h)
A' = Intersect(i, xAxis)
j = Line(A', a)
B' = Intersect(j, yAxis)
t2, i_1, a_1, h_1 = Polygon(C, A', B')
vzdialenosťIH = Distance(B', A')
Midpoint(B', A')
TextIH: Name[B'] + (Name[A']) + " = " + vzdialenosťIH