C: (-3, 2)
E = Point(Segment[C, (x(C) + 7, y(C))])
A = (-3, 2)
B = (19, 2)
S: (-2, -3)
T: (-1, -3)
t_1 = Segment(S, T)
U: (0, -3)
a_1 = Segment(T, U)
V: (1, -3)
b_1 = Segment(U, V)
f = Line(A, B)
g = OrthogonalLine(C, f)
D: (x(C), y(C) + Distance[C, E])
F = Midpoint(D, C)
j = Line(D, f)
k = Line(E, g)
G: (x(E), y(D))
l = Segment(F, E)
p = Circle(F, l)
H = Intersect(p, g, 1)
m = Line(H, f)
q = Circle(C, H)
R = Intersect(q, f, 2)
n = Line(R, g)
W = Intersect(m, n)
Z = Intersect(j, n)
veelhoek1, c_1, r, z_1, d = Polygon(C, R, Z, D)
veelhoek2, r_2, e, g_1, z_2 = Polygon(R, E, G, Z)
veelhoek3, r_3, w, h_1, c_2 = Polygon(R, W, H, C)
h = Segment(C, F)
i = Segment(F, D)
stap = 14 (slider from 0 to 14, step 1)
s = Segment(D, F)
t = Segment(R, E)
I = (-5.054696871625528, -1.7380178516466405)
c = Circle(C, E)