Diagonalen einzeichnen

C = (1, 3)
A = (6, 3)
D = (4, 2)
B = (3, 4)
poly1, a, c, b, d = Polygon(C, D, A, B)
E = Midpoint(C, A)
e = Line(C, A)
F = Point(e)
F' = Mirror(F, E)
G = (2.778246211574972, 3.458921506375044)
H = (3.5695784822685472, 2.4414943011975896)
I = (4.22902204117986, 2.460335545737913)
J = (4.681211910147617, 1.348702117858843)
K = (4.191339552099214, 1.3110196287781966)
poly2, h, i, j, k = Polygon(H, I, J, K)
L = Point(b)
M = (3.965244617615335, 4.796649868737992)
N = (4.323228263881476, 4.570554934254114)
O = Point(b)
poly3, l, m, n, o = Polygon(L, M, N, O)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
f = Segment(C, A)
g = Segment(B, D)
C' = Rotate(C, α, E)
D' = Rotate(D, α, E)
A' = Rotate(A, α, E)
B' = Rotate(B, α, E)
poly1', c', d', a', b' = Polygon(C', D', A', B')
q = Segment(B', D')
r = Segment(C', A')
p = false