A = (-14.229023592815965, 0.6702485559916445)
B = (-6.540934090022407, 0.6702485559916531)
C = (-11.960656591001623, 3.3192140480432806)
AB = Segment(A, B)
AC = Segment(A, C)
BC = Segment(C, B)
α = Angle(A, C, B)
β = Angle(B, A, C)
γ = Angle(C, B, A)

Tool: SquareTool
Tool2[ <Number>, <Point> ]
Input: side, A
Output: poly1

B = Point(Circle[A, side])
a = Segment(A, B)
c = Circle(A, side)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
d = Circle(C, side)
e = OrthogonalLine(C, b)
D = Intersect(d, e, 1)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)