VRP - šesťuholník

O_1→O\;  \left [ OO_1∥S_1S_2, \; E_1O∥S_0S_1  \right ] 

A_1,B_1, ...→ \; A,B, ...

∀M_1∈k(O_1,r=O_1A_1) \; → \; M

AB,CD \text{- združené priemery 

\text{Rytzova konštrukcia

q = 0.5 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 0.7853981633974483 rad (slider from 10° to 70°, step 0.08726646259971647)
text4: "α = " + (LaTeX[α]) + ""
S_0 = Point(xAxis)
S_{2} = Point(yAxis)
S' = Rotate(S_{2}, (-α), S_0)
β = Angle(S', S_0, S_{2})
f = Ray(S_0, S')
c = Circle(S_0, (q * y(S_{2})))
S_1 = Intersect(c, f, 1)
u = Vector(S_0, S_1)
v = Vector(S_{2}, S_1)
O_1 = (6, 12)
g = OrthogonalLine(O_1, xAxis)
h = OrthogonalLine(O_1, g)
A_{1} = Point(h)
d = Circle(O_1, A_{1})
B_{1} = Mirror(A_{1}, O_1)
C_{1} = Intersect(d, g, 1)
D_{1} = Mirror(C_{1}, O_1)
i = Line(O_1, v)
E_1 = Intersect(g, xAxis)
j = Line(E_1, u)
O = Intersect(i, j)
e_1 = Vector(O_1, O)
m_1 = Vector(E_1, O)
k = Line(O, xAxis)
l = Line(A_{1}, i)
m = Line(B_{1}, i)
n = Line(O, g)
p = Line(D_{1}, i)
r = Line(C_{1}, i)
A = Intersect(k, l)
B = Intersect(k, m)
D = Intersect(j, p)
C = Intersect(j, r)
n_1 = Vector(B_{1}, B)
p_1 = Vector(C_{1}, C)
q_1 = Vector(A_{1}, A)
r_1 = Vector(D_{1}, D)
M_{1} = Point(d)
s = Line(M_{1}, i)
g_1 = Line(M_{1}, g)
E_2 = Intersect(g_1, xAxis)
h_1 = Line(E_2, j)
M = Intersect(h_1, s)
s_1 = Vector(M_{1}, M)
t_1 = Vector(E_2, M)
f_2 = Segment(M_{1}, E_2)
k_1 = Segment(B, A)
l_1 = Segment(D, C)
e = Circle(O, A)
E = Intersect(e, n, 2)
F = Midpoint(E, D)
t = Circle(F, O)
a = Line(E, D)
G, H = Intersect(t, a)
a_1 = Segment(E, G)
b_1 = Segment(H, E)
b = Line(O, H)
f_1 = Line(O, G)
c_1 = Circle(O, Segment[H, D])
I, J = Intersect(c_1, f_1)
i_1 = Segment(I, J)
j_1 = Line(O, H)
K, L = Intersect(e, j_1)
d_1 = Segment(K, L)
c_2 = Conic(B, C, A, L, J)