A = (2, -7)
B = (5.7, -6.64)
a = Segment(A, B)
B' = Rotate(B, 30*°, A)
α = Angle(B, A, B')
B'_1 = Rotate(B, 330*°, A)
β = Angle(B'_1, A, B)
A' = Rotate(A, 330*°, B)
γ = Angle(A', B, A)
A'_1 = Rotate(A, 30*°, B)
δ = Angle(A, B, A'_1)
b = Segment(A, B')
c = Segment(B, A')
d = Segment(A, B'_1)
e = Segment(B, A'_1)
C = Intersect(b, c)
D = Intersect(d, e)
poly1, c_1, a_1, d_1, b_1 = Polygon(C, A, D, B)
z_1 = (3.14, 1.1)
w_1 = (5.82, 1.5)
z_2 = (4.68, 1)
w_2 = (4.96, -1.4)
w_3 = (6.44, -1.4)
w_4 = (7.9, -1.5)
f = Segment(z_1, z_2)
E = Midpoint(z_1, z_2)
z_5: w_1 - 1
g = Ray(E, z_5)
h = Circle(z_1, z_2)
k = Circle(z_2, z_1)
F = Intersect(k, g, 1)
G = Intersect(h, g, 1)
distanceEF = Distance(E, F)
TextEF: "\left| " + (Name[E]) + (Name[F]) + "\right| = " + distanceEF
distanceEG = Distance(E, G)
TextEG: "\left| " + (Name[E]) + (Name[G]) + "\right| = " + distanceEG
rho = Max(distanceEF, distanceEG)
distanceEz5 = Distance(E, z_5)
TextEz5: "\left| " + (Name[E]) + (Name[z_5]) + "\right| = " + distanceEz5
rho2 = Max(rho, distanceEz5)
p = Circle(E, rho2)
H = Intersect(p, g, 1)
i = Segment(z_2, H)

Tool: Kab
Input: A, B
Output: C, poly1, a, D

a = Segment(A, B)
B' = Rotate(B, 30*°, A)
B'_1 = Rotate(B, 330*°, A)
A' = Rotate(A, 330*°, B)
A'_1 = Rotate(A, 30*°, B)
b = Segment(A, B')
c = Segment(B, A')
d = Segment(A, B'_1)
e = Segment(B, A'_1)
C = Intersect(b, c)
D = Intersect(d, e)
poly1, c_1, a_1, d_1, b_1 = Polygon(C, A, D, B)