VRP - šesťuholník

A_1→A:A_1A_o∥SS_o,A_1A∥SS'

B_1→B:B_1B_o∥SS_o,B_1B∥SS'

\text{Štvorec }A_1B_1C_1D_1

\text{Postupne zostrojíme obrazy: }C,D

\text{Využijeme rovnobežnosť }CD∥AB∧AD∥BC

\text{Rovnobežník }ABCD

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 = 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: "\text{ Zostrojte obraz } \text{ ... vo }VRP (  " + (LaTeX[α]) + ",q=" + (LaTeX[text5]) + "  )"
A_1 = (7.627673024518112, 2.8670642163131697)
B_1 = (14.619291847299168, -1.3134913684425231)