PDisk Inverse Point

PDisk Ray

PDisk Line

PDisk Segment

a = Ray(Center[Circle[(0, 0), (1, 0)]], A)
b = OrthogonalLine(A, a)
B, C = Intersect(Circle[(0, 0), (1, 0)], b)
c = Segment(Center[Circle[(0, 0), (1, 0)]], B)
d = OrthogonalLine(B, c)
A' = Intersect(a, d)
A' = PDiskInversePoint(A)
d = CircumcircleArc(B, A, A')
E, F = Intersect(d, Circle[(0, 0), (1, 0)])
G = If(E ≟ E, E, F)
e = CircumcircleArc(B, A, G)
A' = PDiskInversePoint(A)
d = CircumcircleArc(B, A, A')
E, F = Intersect(d, Circle[(0, 0), (1, 0)])
G = If(E ≟ E, E, F)
f, H = PDiskRay(A, B)
g = CircumcircleArc(G, A, H)
a = Ray(Center[Circle[(0, 0), (1, 0)]], A)
b = OrthogonalLine(A, a)
C, D = Intersect(Circle[(0, 0), (1, 0)], b)
c = Segment(Center[Circle[(0, 0), (1, 0)]], C)
d = OrthogonalLine(C, c)
E = Intersect(d, a)
e = Circle(E, A, B)
F = Center(e)
f = Segment(A, B)
G = Midpoint(f)
g = Ray(F, G)
H = Intersect(e, g)
h = CircumcircleArc(A, H, B)