e = 2.2 (slider from -5 to 5, step 0.1)
x_1 = (1, 0)
z_1 = Rotate(x_1, 1.5707963267948966)
α = 0.31240734641020707 (slider from -3.141592653589793 to 3.141592653589793, step 0.314)
y_1: (0.5 * Rotate[x_1, α])
v_2: z_1 + y_1
v_1: x_1 - y_1
z = Line((0, 0), y_1)
B: (e * ((-1 * v_1) + v_2))
r_l: (-1 * x_1) - y_1 + z_1
s_l: (0 * x_1) + (0 * z_1)
l = Line(s_l, r_l)
C: (e * ((-1 * v_1) - v_2))
D: (e * (v_1 - v_2))
A: (e * (v_1 + v_2))
veelhoek1, a, b, c, d = Polygon(A, B, C, D)
P: (3 * z_1) - (2 * y_1)
Q: P - (5 / 3 * r_l)
S: P - (Q - s_l)
veelhoek2, p, q, f, s = Polygon(P, Q, (0, 0), S)
g = Segment(P, (0, 0))
veelhoek3, s_1, h, i, j = Polygon(S, S + (0.1 * (P - S)), S + (0.1 * (P - S)) - (0.1 * r_l), S - (0.1 * r_l))