KETpicとの共存 - DyGeom.m on Mathematica+KETpic

ウラワザ的ですが，こういうこともできます．

---

SetDirectory[NotebookDirectory[]];
<< DyGeom.m
MyXYDomain = False
MyTeXFileName = "zu.tex"
pd = plotdata[0.5*xvar^2, {xvar, XMIN, XMAX}]
setwindow[{XMIN, XMAX}, {YMIN, YMAX}]
openfile[MyTeXFileName]
beginpicture["1cm"]
p1 = FreePoint[{2, 2}]
p2 = FreePoint[{-3, 4.5}]
p3 = MidPoint[p1, p2]
l1 = ConnectPoints[p1, p2, clipping -> {p1, p2}]
AddConstructionToKetpic[p1, p2, p3, l1]
drwline[pd]
endpicture[1]
closefile[]

---