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 = (4.92, -2.72)
z_2 = (5.8, -4.08)
z_3 = (7.34, -3.48)
z_4 = (6.18, -1.94)
d12 = Distance(z_1, z_2)
Textz1z2: "\left| " + (Name[z_1]) + (Name[z_2]) + "\right| = " + d12
d13 = Distance(z_1, z_3)
Textz1z3: "\left| " + (Name[z_1]) + (Name[z_3]) + "\right| = " + d13
d14 = Distance(z_1, z_4)
Textz1z4: "\left| " + (Name[z_1]) + (Name[z_4]) + "\right| = " + d14
d23 = Distance(z_2, z_3)
Textz2z3: "\left| " + (Name[z_2]) + (Name[z_3]) + "\right| = " + d23
d24 = Distance(z_2, z_4)
Textz2z4: "\left| " + (Name[z_2]) + (Name[z_4]) + "\right| = " + d24
d34 = Distance(z_3, z_4)
Textz3z4: "\left| " + (Name[z_3]) + (Name[z_4]) + "\right| = " + d34
mi1213 = Min(d12, d13)
mi1214 = Min(d12, d14)
mi1223 = Min(d12, d23)
mi1224 = Min(d12, d24)
mi1234 = Min(d12, d34)
mi1314 = Min(d13, d14)
mi1323 = Min(d13, d23)
mi1324 = Min(d13, d24)
mi1334 = Min(d13, d34)
mi1423 = Min(d14, d23)
mi1424 = Min(d14, d24)
mi1434 = Min(d14, d34)
mi2324 = Min(d23, d24)
mi2334 = Min(d23, d34)
mi2434 = Min(d24, d34)
A2 = 1
A1 = 1
A3 = 1
A4 = 1
A5 = 2
A6 = 2
A7 = 2
A8 = 2
A9 = 3
A10 = 3
A11 = 3
A12 = 3
A13 = 4
A14 = 4
A15 = 4
A16 = 4
B1 = 1
B2 = 2
B3 = 3
B4 = 4
B5 = 1
B6 = 2
B7 = 3
B8 = 4
B9 = 1
B10 = 2
B11 = 3
B12 = 4
B13 = 1
B14 = 2
B15 = 3
B16 = 4
sma123 = Min(mi1213, mi1223)
sma124 = Min(mi1214, mi1224)
sma134 = Min(mi1314, mi1334)
sma234 = Min(mi2334, mi2324)
f = Segment(z_1, z_2)
g = Segment(z_2, z_3)
h = Segment(z_4, z_3)
i = Segment(z_4, z_1)
j = Segment(z_2, z_4)
k = Segment(z_1, z_3)

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)