VRP - šesťuholník

\text{Obrazy }A,B,C,D,O,L,M \text{ bodov }A_1,B_1,... 

\text{Obraz hranola}

\text{Obraz kružnice - podstavy kužeľa }e(O,M)

\text{Obraz kužeľa}

q = 0.75 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 2.0943951023931953 rad (slider from 10° to 150°, step 0.08726646259971647)
text4: "α = " + (LaTeX[α]) + ""
S_0 = Point(xAxis)
S = Point(yAxis)
S' = Rotate(S, (-α), S_0)
β = Angle(S', S_0, S)
f = Ray(S_0, S')
c = Circle(S_0, (q * y(S)))
S_1 = Intersect(c, f, 1)
u_{2} = Vector(S_0, S_1)
v = Vector(S, S_1)
A_{1} = (3.1227639892210384, 10.110957945070883)
C_{1} = Point(Circle[A_{1}, 14])
g = Segment(A_{1}, C_{1})
h = LineBisector(A_{1}, C_{1})
O_{1} = Intersect(h, g)
d = Circle(A_{1}, 8.5)
B_{1}, D_{1} = Intersect(d, h)
q1, a, b, c_1, d_1 = Polygon(A_{1}, B_{1}, C_{1}, D_{1})
i = OrthogonalLine(O_{1}, d_1)
e = Circle(O_{1}, 10.5 / 2)
L_{1} = Point(q1)
M_{1} = Point(e)
R_1 = Intersect(h, xAxis)
j = Line(R_1, u_{2})
k = Line(O_{1}, v)
O = Intersect(j, k)
l = Line(O, h)
n = Line(A_{1}, v)
p = Line(O, xAxis)
m = Line(D_{1}, k)
r = Line(M_{1}, n)
s = Line(M_{1}, h)
f_1 = Line(L_{1}, m)
g_1 = Line(L_{1}, l)
G = Intersect(g_1, xAxis)
h_1 = Line(G, u_{2})
i_1 = Line(G, u_{2})
A_{2} = Intersect(h_1, i_1)
L = Intersect(f_1, h_1)
A = Intersect(p, n)
C = Mirror(A, O)
D = Intersect(m, j)
B = Mirror(D, O)
R_2 = Intersect(s, xAxis)
w = Vector(L_{1}, L)
GMB2 = Locus(L, L_{1})
q2, a_1, d_2, c_2, b_1 = Polygon(A, D, C, B)
t = Line(R_2, u_{2})
M = Intersect(r, t)
u_1 = Vector(M_{1}, M)
e_1 = Circle(O, 2)
O' = Intersect(e_1, l, 2)
u = Vector(O, O')
A' = Translate(A, u)
D' = Translate(D, u)
C' = Translate(C, u)
B' = Translate(B, u)
q2', a', d', c', b' = Polygon(A', D', C', B')
n_1 = Segment(A, A')
p_1 = Segment(D, D')
q_1 = Segment(C, C')
r_1 = Segment(B, B')
j_1 = Segment(A, A')
k_1 = Segment(D, D')
l_1 = Segment(C, C')
m_1 = Segment(B, B')
GMB1 = Locus(M, M_{1})
E = Point(GMB1)
F = Point(GMB1)
H = Point(GMB1)
I = Point(GMB1)
s_1 = Conic(M, E, F, H, I)
t_1 = Circle(O, 7.5)
V = Intersect(t_1, l, 2)
f_2, g_2 = Tangent(V, s_1)
T_1 = Intersect(s_1, g_2)
T_2 = Intersect(s_1, f_2)
h_2 = Segment(T_2, V)
i_2 = Segment(V, T_1)
j_2 = Line(T_1, n)
J, K = Intersect(e, j_2)
k_2 = Line(T_2, k)
N, P = Intersect(e, k_2)
e_2 = CircleArc(O_{1}, N, J)
Q = Point(e_2)
m_2 = Line(Q, j_2)
R, T = Intersect(s_1, m_2)
GMB3 = Locus(R, Q)
l_2 = Line(T_2, k)
n_2 = Segment(T_2, V)
p_2 = Segment(V, T_1)