A = (2.72, 0.3)
B = Point(Circle[A, 100])
c = Circle(B, 60)
a = Segment(A, B)
b = OrthogonalLine(B, a)
C_1 = Intersect(c, b, 2)
g = Line(B, C_1)
C = Intersect(c, g, 2)
poly1, e, h, i = Polygon(A, B, C)
D = Point(a)
d = OrthogonalLine(D, a)
AD = Distance(A, D)
f = Segment(A, C_1)
β = Angle(C, B, A)
j = OrthogonalLine(D, a)
E = Intersect(j, i)
poly2, a_1, d_1, e_1 = Polygon(D, E, A)