Dreh mich

A = (0, 3)
c = Circle(A, 1.0)
B = Point(c)
Vieleck1, a, b, d, e, f, C, D, E = Polygon(A, B, 5.0)
F = (4.001143204873617, 3.176516154045748)
g = Circle(C, B, A)
H = Midpoint(A, B)
I = Midpoint(C, B)
K = Midpoint(A, E)
L = Midpoint(D, C)
h = Line(D, H)
i = Line(C, K)
G = Intersect(h, i)
k = Circle(F, Segment[G, D])
Dreh = Point(k)
p = Circle(Dreh, 1.0)
N, O = Intersect(p, k)
q = Circle(N, 1.0)
P, Q = Intersect(k, q)
r = Circle(Q, 1.0)
R = Intersect(k, r, 2.0)
Vieleck2, m, n, q_1, r_1, o = Polygon(Dreh, N, Q, R, O)
j = Line(N, F)