α = 0.6264073464102067 (slider from -3.141592653589793 to 3.141592653589793, step 0.314)
x_1 = (1, 0)
e = 2.2 (slider from -5 to 5, step 0.1)
z_1 = Rotate(x_1, 1.5707963267948966)
y_1: (0.5 * Rotate[x_1, α])
z = Line((0, 0), y_1)
B: z_1 + (e * x_1) - (e * y_1)
C: (2 * z_1) + (e * x_1) + (e * y_1)
D: z_1 - (e * x_1) + (e * y_1)
A: ((-1 * e) * x_1) - (e * y_1)
poly1, a, b, c, d = Polygon(A, B, C, D)
P: (3 * z_1) - x_1 - y_1
S: P + (((-1 * 2) - (4 * e)) / (((4 * e) * e) + 2) * ((-1 * x_1) - y_1 + ((2 * e) * z_1)))
veelhoek1, i, j, k, l = Polygon(S, S - (0.1 * (S - P)), S - (0.1 * (S - P)) + (0.06 * ((e * x_1) + (e * y_1) + z_1)), S + (0.06 * ((e * x_1) + (e * y_1) + z_1)))
h = Line(P, P - x_1 - y_1 + ((2 * e) * z_1))
g = Segment(B, D)
f = Segment(A, C)