Tiziano. Venus y el organista

A = (-3.5200000000000014, -5.08)
a = Line(A, xAxis)
B = Point(a)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
C = Point(b)
d = OrthogonalLine(C, b)
D = Point(b)
e = Circle(C, D)
E = Intersect(e, d, 2.0)
f = OrthogonalLine(E, d)
g = OrthogonalLine(D, b)
F = Intersect(c, g)
G = Intersect(a, f)
h = Segment(D, F)
i = Segment(E, G)
lista1 = Sequence(D + s / 9.0 * (h, 0.0), s, 0.0, 9.0)
lista2 = Sequence(G + s / 9.0 * (0.0, i), s, 0.0, 9.0)
j = Line(D + 3.0 / 9.0 * (h, 0.0), yAxis)
k = Line(D + 5.0 / 9.0 * (h, 0.0), yAxis)
l = Line(G + 4.0 / 9.0 * (0.0, i), xAxis)
m = Line(G + 6.0 / 9.0 * (0.0, i), xAxis)
H = Intersect(c, l)
I = Intersect(l, b)
J = Intersect(m, b)
K = Intersect(m, c)
L = Intersect(k, d)
M = Intersect(j, d)
N = Intersect(j, a)
O = Intersect(k, a)
n = Segment(M, N)
p = Segment(L, O)
q = Segment(J, K)
r = Segment(I, H)
s = Segment(A, K)
P = Intersect(d, c)
t = Segment(I, P)
Q = Intersect(n, s)
R = Intersect(p, t)
c_1 = Circle(R, Q)
paso = 0 (slider from 0 to 7, step 1)