kkk.dilatace

kružnice a se z nějakého důvodu sama navrací do modré barvy, omlouvám se

A = (12.06595494977024, 15.287708949986925)
a = Circle(A, 5)
B = Point(Circle[A, 10])
v = Segment(A, B)
X = Intersect(a, v)
b = Circle(B, 5)
p = OrthogonalLine(X, v)
o = Circle(B, 10)
C, O = Intersect(o, p)
c = Circle(C, 5)
krok = 7 (slider from 0 to 7, step 1)
f = Segment(A, B)
g = Segment(A, C)
h = Segment(B, C)
i = OrthogonalLine(A, h)
j = OrthogonalLine(C, f)
D = Intersect(i, j)
d = Circle(D, A)
q = Circle(A, 5)
E, F = Intersect(q, i)
e = Circle(D, F)
k = Circle(D, E)