オイラー線 - DyGeom.m on Mathematica+KETpic

SetDirectory[NotebookDirectory[]];
<< DyGeom.m
p1 = FreePoint[{-5, -1}, pointname -> "A", pointposition -> "w"]
p2 = FreePoint[{1, 4}, pointname -> "B", pointposition -> "nw"]
p3 = FreePoint[{2, -1}, pointname -> "C", pointposition -> "e"]
l12 = ConnectPoints[p1, p2, clipping -> {p1, p2}]
l23 = ConnectPoints[p2, p3, clipping -> {p2, p3}]
l13 = ConnectPoints[p3, p1, clipping -> {p1, p3}]
p12 = MidPoint[p1, p2]
p23 = MidPoint[p2, p3]
p13 = MidPoint[p1, p3]
l1 = ConnectPoints[p1, p23]
l2 = ConnectPoints[p2, p13]
gcenter = IntersectionLL[l1, l2]
m1 = PerpendicularLine[p1, l23]
m2 = PerpendicularLine[p2, l13]
hcenter = IntersectionLL[m1, m2]
n1 = PerpendicularLine[p23, l23]
n2 = PerpendicularLine[p13, l13]
ocenter = IntersectionLL[n1, n2]
eulerline = ConnectPoints[hcenter, ocenter, clipping -> {hcenter, ocenter}]
DrawConstruction[p1, p2, p3, l12, l23, l13, gcenter, hcenter, ocenter, eulerline]

---