Diagonalen einzeichnen

C = (1, 4)
A = (6, 4)
D = (4, 3)
B = (3, 5)
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.635993021395754, 4.447185000129757)
H = (3.4526743831469475, 3.436055695104469)
I = (4.152686978933684, 3.474945283759288)
J = (4.580472454136691, 2.19158885815027)
K = (4.055463007296638, 2.152699269495451)
poly2, h, i, j, k = Polygon(H, I, J, K)
L = Point(b)
M = (3.7249015037306785, 5.6138726597743185)
N = (4.1721317732610945, 5.438869510827634)
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