bisector -- Angle bisector of two lines

i1 : circ=Circle{Radius=>0.1,"fill"=>"red","stroke"=>"black"};

i2 : (a,b,c)=apply(([-1,-1],[2,0],[0,2]),coord -> gNode(coord,circ,Draggable=>true))

o2 = (a, b, c)

o2 : Sequence

i3 : p=bisector(a,b,c); q=bisector(b,c,a); r=bisector(c,a,b); o=crossing(p,a,q,b);

i7 : gList(Line{a,b},Line{a,c},Line{b,c},Line{p,a},Line{q,b},Line{r,c},Circle{o,projection(o,a,b)},a,b,c)

o7 = GraphicsList{cache => CacheTable{}                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            }
                  Contents => {Line{cache => CacheTable{}                                                                                                           }, Line{cache => CacheTable{}                                                                                                           }, Line{cache => CacheTable{}                                                                                                           }, Line{cache => CacheTable{}                                                                                                           }, Line{cache => CacheTable{}                                                                                                           }, Line{cache => CacheTable{}                                                                                                           }, Circle{cache => CacheTable{}                                                                                                             }, a, b, c}
                                    Point1 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point1 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point1 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point1 => p                                                                                                                             Point1 => q                                                                                                                             Point1 => r                                                                                                                               Center => o
                                                                 RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-         Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }          Radius => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:306:25-306:82]*-      }
                                    Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }        Point2 => GraphicsCoordinate{JsFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:70:29-70:61]*-      }                                     RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                        RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:305:33-305:91]*-
                                                                 RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-                                      RefPointFunc => -*Function[/usr/share/Macaulay2/VectorGraphics.m2:69:37-69:62]*-         style => MutableHashTable{}                                                                                                             style => MutableHashTable{}                                                                                                             style => MutableHashTable{}                                                                                                               style => MutableHashTable{}
                                    style => MutableHashTable{}                                                                                                             style => MutableHashTable{}                                                                                                             style => MutableHashTable{}
                  style => MutableHashTable{}

o7 : GraphicsList