A = (2, -2)
B = (8, -2)
f = LineBisector(A, B)
C = Point(f)
D = Point(Circle[C, 4])
g = Segment(C, D)
m1, a, d, b, c = Polygon(A, D, B, C)
Pistem1 = PointIn(m1)