VRP - šesťuholník

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 = Vector(S_0, S_1)
v = Vector(S, S_1)
A = (7.051044668000083, 8.453151420081552)
C = Point(Circle[A, 14])
g = Segment(A, C)
h = LineBisector(A, C)
O = Intersect(h, g)
d = Circle(A, 8.5)
B, D = Intersect(d, h)
q1, a, b, c_1, d_1 = Polygon(A, B, C, D)
i = OrthogonalLine(O, d_1)
e = Circle(O, 10.5 / 2)
M = Point(e)