VRP - šesťuholník

q = 0.5 (slider from 1 / 12 to 3, step 1 / 12)
text5 = SurdText(q)
text1: "q=" + (LaTeX[text5]) + ""
α = 0.7853981633974483 rad (slider from 5° to 90°, 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)
text2: "k=" + (LaTeX[text5]) + ""
A = (14, 6)
g = Line(A, xAxis)
d = Circle(A, 6)
B = (18, 10)
C = (22, 6)
D = (24, 12)
h = Segment(A, B)
i = Segment(C, D)
j = Segment(C, B)