A

B

C

D

E

F

G

H

S

T

1

1

1

1

1

α

α

α

α

A = Point(xAxis)
c = Circle(A, 1)
B, C = Intersect(c, yAxis)
a = Segment(A, C)
b = OrthogonalLine(A, a)
D, E = Intersect(c, b)
d = OrthogonalLine(D, b)
e = OrthogonalLine(C, a)
F = Intersect(e, d)
f = OrthogonalLine(D, xAxis)
G = Intersect(f, xAxis)
g = Circle(G, 1)
H, I = Intersect(g, f)
h = OrthogonalLine(I, f)
J, K = Intersect(g, xAxis)
i = OrthogonalLine(K, xAxis)
L = Intersect(h, i)
j = OrthogonalLine(F, f)
M = Intersect(yAxis, j)
N = Intersect(f, j)
k = Segment(M, N)
l = Segment(N, G)
O = Intersect(yAxis, xAxis)
m = Segment(M, O)
n = Segment(O, G)
p = Segment(C, F)
q = Segment(F, D)
r = Segment(A, D)
veelhoek1, i_1, l_1, k_1, g_1 = Polygon(I, L, K, G)
β = Angle(n, r)