VRP - šesťuholník

q = 0.75 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 1.0471975511965976 rad (slider from 10° to 70°, 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)
B: (9.10528, 0)
g = OrthogonalLine(B, xAxis)
B_{1} = Point(Circle[B, 5.5])
h = Segment(B, B_{1})
i = OrthogonalLine(B_{1}, xAxis)
d = Circle(B_{1}, 7)
C_{1}, D = Intersect(d, i)
e = Circle(B, D)
A = Intersect(e, g, 2)
k = Semicircle(A, B)
p = Circle(B, B_{1})
C = Intersect(k, p, 1)
j = Segment(A, C)
l = Segment(B, C)
m = Segment(B, A)