summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
committerNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
commitdc71274f16f7ff65145e034900f582b62453a033 (patch)
treea71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts
parentaecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff)
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts')
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/0Small.png (renamed from texmf-dist/scripts/ketpic/data/fontF/0Small.png)bin44733 -> 44733 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/0Smalla-h.png (renamed from texmf-dist/scripts/ketpic/data/fontF/0Smalla-h.png)bin53016 -> 53016 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/0Smalli-o.png (renamed from texmf-dist/scripts/ketpic/data/fontF/0Smalli-o.png)bin50904 -> 50904 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/0Smallp-w.png (renamed from texmf-dist/scripts/ketpic/data/fontF/0Smallp-w.png)bin50873 -> 50873 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/0Smallxyz.png (renamed from texmf-dist/scripts/ketpic/data/fontF/0Smallxyz.png)bin25488 -> 25488 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/nsi.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/nsi.cdy)bin150809 -> 150809 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/nsi.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/nsi.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/pcr.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/pcr.cdy)bin17929 -> 17929 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/pcr.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/pcr.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/qcr.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/qcr.cdy)bin17298 -> 17298 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/qcr.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/qcr.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/rcr.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/rcr.cdy)bin18491 -> 18491 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/rcr.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/rcr.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/tsi.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/tsi.cdy)bin149969 -> 149969 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/tsi.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/tsi.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/xsi.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/xsi.cdy)bin150258 -> 150258 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/xsi.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/xsi.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/ysi.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/ysi.cdy)bin150465 -> 150465 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/ysi.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/ysi.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/zsi.cdy (renamed from texmf-dist/scripts/ketpic/data/fontF/zsi.cdy)bin150287 -> 150287 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/fontF/zsi.txt (renamed from texmf-dist/scripts/ketpic/data/fontF/zsi.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(mitani).txt (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(mitani).txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a03.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a03.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a04.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a04.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a05.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a05.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a06.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a06.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a07.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a07.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a08.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a08.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a09.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a09.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a10.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/a10.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n01.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n01.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n02.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n02.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n03.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n03.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n04.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n04.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n05.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n05.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n06.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n06.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n07.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n07.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n08.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n08.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n09.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n09.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n10.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n10.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n11.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n11.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n12.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n12.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n13.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n13.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n14.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n14.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n15.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n15.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n16.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n16.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n17.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n17.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n18.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n18.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n19.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n19.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n20.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n20.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n21.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n21.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n22.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n22.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n23.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n23.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n24.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n24.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n25.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n25.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n26.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n26.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n27.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n27.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n28.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n28.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n29.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n29.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n30.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n30.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n31.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n31.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n32.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n32.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n33.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n33.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n34.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n34.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n35.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n35.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n36.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n36.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n37.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n37.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n38.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n38.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n39.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n39.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n40.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n40.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n41.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n41.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n42.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n42.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n43.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n43.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n49.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n49.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n50.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n50.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n51.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n51.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n52.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n52.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n53.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n53.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n54.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n54.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n55.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n55.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n56.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n56.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n57.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n57.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n58.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n58.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n59.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n59.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n60.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n60.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n61.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n61.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n62.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n62.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n63.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n63.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n64.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n64.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n65.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n65.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n66.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n66.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n67.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n67.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n68.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n68.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n69.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n69.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n70.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n70.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n71.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n71.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n72.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n72.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n73.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n73.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n74.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n74.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n75.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n75.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n76.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n76.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n77.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n77.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n78.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n78.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n79.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n79.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n80.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n80.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n81.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n81.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n82.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n82.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n83.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n83.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n84.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n84.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n85.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n85.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n86.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n86.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n87.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n87.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n88.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n88.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n89.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n89.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n90.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n90.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n91.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n91.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n92.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/n92.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p03.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p03.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p04.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p04.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p05.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p05.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p06.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p06.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p07.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p07.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p08.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p08.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p09.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p09.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p10.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/p10.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r01.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/r01.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r02.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/r02.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r03.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/r03.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r04.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/r04.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r05.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/r05.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s01.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s01.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s02.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s02.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s03.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s03.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s04.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s04.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s05.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s05.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s06.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s06.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s07.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s07.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s08.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s08.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s09.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s09.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s10.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s10.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s11.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s11.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13L.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13L.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13R.obj (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13R.obj)0
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf (renamed from texmf-dist/scripts/ketpic/data/polyhedrons_obj/整面凸多面体データ.pdf)bin77577 -> 77577 bytes
-rwxr-xr-xtexmf-dist/scripts/ketcindy/ketcindy.sh (renamed from texmf-dist/scripts/ketpic/ketcindy.sh)27
-rw-r--r--texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdybin0 -> 4868 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketfiles/template.cdybin0 -> 4322 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jarbin0 -> 156205 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpE.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpJ.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs4468
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs)2
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs (renamed from texmf-dist/scripts/ketpic/data/js/ketcindylib.txt)3535
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs)88
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt)2
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs4999
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpE.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpJ.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs)100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpE.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpJ.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt)4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs924
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs)119
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt)4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs5230
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin)bin648 -> 648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin)bin4128 -> 4128 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin)bin5420 -> 5420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin)bin13408 -> 13408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin)bin10624 -> 10624 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin)bin6168 -> 6168 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin)bin20540 -> 20540 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin)bin1104 -> 1104 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin)bin1808 -> 1808 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin)bin436 -> 436 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin)bin216 -> 216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin)bin3792 -> 3792 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin)bin4152 -> 4152 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin)bin328 -> 328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin)bin16600 -> 16600 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin)bin16648 -> 16648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin)bin10016 -> 10016 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin)bin6416 -> 6416 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin)bin7776 -> 7776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin)bin3972 -> 3972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin)bin7136 -> 7136 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin)bin3852 -> 3852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin)bin2652 -> 2652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin)bin820 -> 820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin)bin2320 -> 2320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin)bin5852 -> 5852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin)bin2572 -> 2572 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin)bin5688 -> 5688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin)bin4012 -> 4012 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin)bin6992 -> 6992 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin)bin1692 -> 1692 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin)bin612 -> 612 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin)bin1212 -> 1212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin)bin980 -> 980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin)bin1776 -> 1776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin)bin10104 -> 10104 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin)bin1956 -> 1956 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin)bin336 -> 336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin)bin5856 -> 5856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin)bin5860 -> 5860 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin)bin332 -> 332 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin)bin12948 -> 12948 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin)bin12716 -> 12716 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin)bin324 -> 324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin)bin9760 -> 9760 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin)bin9760 -> 9760 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin)bin288 -> 288 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin)bin23320 -> 23320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin)bin23352 -> 23352 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin)bin1420 -> 1420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin)bin3500 -> 3500 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin)bin1844 -> 1844 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin)bin2124 -> 2124 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin)bin27240 -> 27240 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin)bin6444 -> 6444 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin)bin2012 -> 2012 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin)bin1728 -> 1728 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin)bin944 -> 944 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin)bin1564 -> 1564 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin)bin26872 -> 26872 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin)bin14728 -> 14728 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin)bin3216 -> 3216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin)bin2820 -> 2820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin)bin6912 -> 6912 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin)bin13948 -> 13948 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin)bin3316 -> 3316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin)bin4060 -> 4060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin)bin2516 -> 2516 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin)bin14244 -> 14244 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin)bin572 -> 572 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin)bin11336 -> 11336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin)bin11312 -> 11312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin)bin480 -> 480 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin)bin10616 -> 10616 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin)bin4380 -> 4380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin)bin8964 -> 8964 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin)bin16256 -> 16256 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin)bin15652 -> 15652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin)bin1464 -> 1464 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin)bin4028 -> 4028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin)bin2080 -> 2080 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin)bin1952 -> 1952 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin)bin2180 -> 2180 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin)bin1720 -> 1720 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin)bin5292 -> 5292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin)bin12768 -> 12768 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin)bin1804 -> 1804 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin)bin300 -> 300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin)bin19876 -> 19876 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin)bin2972 -> 2972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin)bin16940 -> 16940 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin)bin312 -> 312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin)bin9664 -> 9664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin)bin1440 -> 1440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin)bin472 -> 472 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin)bin2248 -> 2248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin)bin3080 -> 3080 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin)bin12372 -> 12372 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin)bin5064 -> 5064 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin)bin3840 -> 3840 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin)bin12584 -> 12584 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin)bin3604 -> 3604 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin)bin384 -> 384 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin)bin5932 -> 5932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin)bin8520 -> 8520 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin)bin5604 -> 5604 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin)bin2476 -> 2476 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin)bin5160 -> 5160 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin)bin4212 -> 4212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin)bin6844 -> 6844 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin)bin16424 -> 16424 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin)bin4228 -> 4228 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin)bin9200 -> 9200 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin)bin2648 -> 2648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin)bin18292 -> 18292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin)bin10560 -> 10560 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin)bin4324 -> 4324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin)bin4028 -> 4028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin)bin1884 -> 1884 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin)bin8068 -> 8068 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin)bin6312 -> 6312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin)bin4576 -> 4576 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin)bin17088 -> 17088 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin)bin3736 -> 3736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin)bin53024 -> 53024 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin)bin4688 -> 4688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin)bin21092 -> 21092 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin)bin23944 -> 23944 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin)bin7988 -> 7988 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin)bin7812 -> 7812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin)bin16852 -> 16852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin)bin3220 -> 3220 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin)bin12032 -> 12032 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin)bin29828 -> 29828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin)bin1192 -> 1192 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin)bin27248 -> 27248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin)bin22316 -> 22316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin)bin1348 -> 1348 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin)bin676 -> 676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin)bin1764 -> 1764 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin)bin756 -> 756 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin)bin684 -> 684 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin)bin1088 -> 1088 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin)bin812 -> 812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin)bin876 -> 876 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin)bin1828 -> 1828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin)bin7004 -> 7004 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin)bin616 -> 616 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin)bin32960 -> 32960 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin)bin19056 -> 19056 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin)bin32456 -> 32456 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin)bin18916 -> 18916 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin)bin252 -> 252 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin)bin14664 -> 14664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin)bin720 -> 720 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin)bin980 -> 980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin)bin7580 -> 7580 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin)bin2684 -> 2684 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin)bin12672 -> 12672 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin)bin17328 -> 17328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin)bin624 -> 624 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin)bin17228 -> 17228 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin)bin2636 -> 2636 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin)bin9316 -> 9316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin)bin2696 -> 2696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin)bin2612 -> 2612 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin)bin888 -> 888 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin)bin11128 -> 11128 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin)bin5300 -> 5300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin)bin4812 -> 4812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin)bin2400 -> 2400 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin)bin2128 -> 2128 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin)bin3512 -> 3512 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin)bin14900 -> 14900 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin)bin1820 -> 1820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin)bin5492 -> 5492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin)bin4300 -> 4300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin)bin4232 -> 4232 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin)bin12336 -> 12336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin)bin5236 -> 5236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin)bin388 -> 388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin)bin312 -> 312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin)bin388 -> 388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin)bin22004 -> 22004 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin)bin23048 -> 23048 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin)bin356 -> 356 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin)bin380 -> 380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin)bin380 -> 380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin)bin392 -> 392 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin)bin368 -> 368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin)bin264 -> 264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin)bin264 -> 264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin)bin252 -> 252 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin)bin14492 -> 14492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin)bin1996 -> 1996 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin)bin1652 -> 1652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin)bin1924 -> 1924 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin)bin600 -> 600 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin)bin736 -> 736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin)bin3788 -> 3788 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin)bin2892 -> 2892 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin)bin3628 -> 3628 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin)bin3628 -> 3628 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin)bin284 -> 284 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin)bin328 -> 328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin)bin38656 -> 38656 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin)bin236 -> 236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin)bin6936 -> 6936 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin)bin1776 -> 1776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin)bin6668 -> 6668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin)bin6860 -> 6860 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin)bin3204 -> 3204 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin)bin1740 -> 1740 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin)bin1640 -> 1640 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin)bin3988 -> 3988 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin)bin4180 -> 4180 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin)bin3204 -> 3204 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin)bin300 -> 300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin)bin14664 -> 14664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin)bin8392 -> 8392 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin)bin2660 -> 2660 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin)bin15532 -> 15532 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin)bin7140 -> 7140 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin)bin1732 -> 1732 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin)bin3696 -> 3696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin)bin18700 -> 18700 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin)bin4212 -> 4212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin)bin812 -> 812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin)bin3696 -> 3696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin)bin1708 -> 1708 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin)bin1484 -> 1484 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin)bin3424 -> 3424 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin)bin9496 -> 9496 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin)bin3212 -> 3212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin)bin732 -> 732 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin)bin5372 -> 5372 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin)bin1364 -> 1364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin)bin724 -> 724 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin)bin804 -> 804 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin)bin1308 -> 1308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin)bin1248 -> 1248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin)bin2196 -> 2196 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin)bin7572 -> 7572 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin)bin284 -> 284 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin)bin5828 -> 5828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin)bin9872 -> 9872 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin)bin4736 -> 4736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin)bin4772 -> 4772 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin)bin3556 -> 3556 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin)bin3556 -> 3556 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin)bin16388 -> 16388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin)bin932 -> 932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin)bin932 -> 932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin)bin920 -> 920 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin)bin920 -> 920 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin)bin1504 -> 1504 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin)bin1504 -> 1504 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin)bin7784 -> 7784 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin)bin6808 -> 6808 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin)bin5092 -> 5092 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin)bin2896 -> 2896 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin)bin4348 -> 4348 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin)bin2896 -> 2896 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin)bin9444 -> 9444 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin)bin2412 -> 2412 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin)bin12656 -> 12656 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin)bin1028 -> 1028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin)bin2108 -> 2108 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin)bin7688 -> 7688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin)bin4260 -> 4260 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin)bin7908 -> 7908 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin)bin18164 -> 18164 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin)bin2664 -> 2664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin)bin1216 -> 1216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin)bin292 -> 292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin)bin156 -> 156 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin)bin1480 -> 1480 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin)bin404 -> 404 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin)bin1544 -> 1544 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin)bin408 -> 408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin)bin1328 -> 1328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin)bin4548 -> 4548 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin)bin1972 -> 1972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin)bin1044 -> 1044 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin)bin1980 -> 1980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin)bin6440 -> 6440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin)bin364 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin)bin580 -> 580 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin)bin3620 -> 3620 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin)bin3856 -> 3856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin)bin508 -> 508 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin)bin1508 -> 1508 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin)bin1056 -> 1056 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin)bin880 -> 880 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin)bin2024 -> 2024 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin)bin16976 -> 16976 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin)bin13224 -> 13224 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin)bin288 -> 288 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin)bin16456 -> 16456 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin)bin16448 -> 16448 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin)bin11664 -> 11664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin)bin11664 -> 11664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin)bin6748 -> 6748 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin)bin1668 -> 1668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin)bin4484 -> 4484 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin)bin5196 -> 5196 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin)bin3216 -> 3216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin)bin11368 -> 11368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin)bin11368 -> 11368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin)bin1300 -> 1300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin)bin3756 -> 3756 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt)0
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin)bin922 -> 922 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin)bin5238 -> 5238 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin)bin6737 -> 6737 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin)bin16618 -> 16618 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin)bin13269 -> 13269 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin)bin7643 -> 7643 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin)bin27459 -> 27459 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin)bin1449 -> 1449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin)bin2609 -> 2609 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin)bin703 -> 703 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin)bin324 -> 324 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin)bin5272 -> 5272 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin)bin6060 -> 6060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin)bin443 -> 443 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin)bin22449 -> 22449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin)bin22411 -> 22411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin)bin13046 -> 13046 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin)bin8338 -> 8338 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin)bin10457 -> 10457 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin)bin5225 -> 5225 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin)bin7824 -> 7824 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin)bin4360 -> 4360 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin)bin3001 -> 3001 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin)bin1090 -> 1090 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin)bin3257 -> 3257 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin)bin7543 -> 7543 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin)bin3159 -> 3159 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin)bin7165 -> 7165 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin)bin5752 -> 5752 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin)bin9264 -> 9264 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin)bin2182 -> 2182 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin)bin767 -> 767 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin)bin1266 -> 1266 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin)bin1103 -> 1103 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin)bin1991 -> 1991 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin)bin14179 -> 14179 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin)bin2819 -> 2819 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin)bin449 -> 449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin)bin7742 -> 7742 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin)bin7742 -> 7742 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin)bin446 -> 446 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin)bin17490 -> 17490 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin)bin16797 -> 16797 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin)bin440 -> 440 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin)bin12964 -> 12964 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin)bin12924 -> 12924 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin)bin413 -> 413 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin)bin426 -> 426 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin)bin31919 -> 31919 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin)bin31845 -> 31845 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin)bin1833 -> 1833 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin)bin4784 -> 4784 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin)bin2593 -> 2593 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin)bin2668 -> 2668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin)bin37476 -> 37476 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin)bin9089 -> 9089 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin)bin2752 -> 2752 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin)bin2511 -> 2511 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin)bin1280 -> 1280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin)bin2167 -> 2167 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin)bin33511 -> 33511 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin)bin454 -> 454 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin)bin19335 -> 19335 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin)bin17289 -> 17289 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin)bin4450 -> 4450 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin)bin4030 -> 4030 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin)bin8499 -> 8499 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin)bin17128 -> 17128 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin)bin4108 -> 4108 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin)bin5585 -> 5585 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin)bin3330 -> 3330 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin)bin17806 -> 17806 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin)bin836 -> 836 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin)bin15211 -> 15211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin)bin15184 -> 15184 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin)bin721 -> 721 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin)bin12554 -> 12554 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin)bin5757 -> 5757 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin)bin12460 -> 12460 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin)bin12215 -> 12215 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin)bin19645 -> 19645 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin)bin13219 -> 13219 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin)bin20630 -> 20630 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin)bin2035 -> 2035 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin)bin4895 -> 4895 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin)bin2555 -> 2555 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin)bin2655 -> 2655 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin)bin2809 -> 2809 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin)bin2385 -> 2385 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin)bin6802 -> 6802 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin)bin17186 -> 17186 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin)bin2585 -> 2585 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin)bin421 -> 421 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin)bin421 -> 421 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin)bin25781 -> 25781 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin)bin3973 -> 3973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin)bin437 -> 437 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin)bin21909 -> 21909 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin)bin516 -> 516 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin)bin13253 -> 13253 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin)bin1826 -> 1826 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin)bin750 -> 750 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin)bin3053 -> 3053 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin)bin4302 -> 4302 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin)bin15887 -> 15887 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin)bin6854 -> 6854 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin)bin4990 -> 4990 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin)bin15552 -> 15552 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin)bin4788 -> 4788 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin)bin621 -> 621 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin)bin7426 -> 7426 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin)bin10756 -> 10756 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin)bin7402 -> 7402 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin)bin3408 -> 3408 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin)bin8060 -> 8060 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin)bin5636 -> 5636 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin)bin9114 -> 9114 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin)bin20514 -> 20514 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin)bin5978 -> 5978 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin)bin11635 -> 11635 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin)bin2900 -> 2900 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin)bin24740 -> 24740 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin)bin12440 -> 12440 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin)bin5653 -> 5653 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin)bin5483 -> 5483 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin)bin2824 -> 2824 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin)bin10906 -> 10906 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin)bin8640 -> 8640 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin)bin6014 -> 6014 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin)bin21601 -> 21601 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin)bin4911 -> 4911 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin)bin68349 -> 68349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin)bin6211 -> 6211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin)bin27821 -> 27821 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin)bin31439 -> 31439 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin)bin10699 -> 10699 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin)bin10368 -> 10368 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin)bin21856 -> 21856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin)bin3637 -> 3637 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin)bin15057 -> 15057 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin)bin40156 -> 40156 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin)bin1651 -> 1651 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin)bin34512 -> 34512 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin)bin28313 -> 28313 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin)bin1174 -> 1174 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin)bin1136 -> 1136 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin)bin1135 -> 1135 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin)bin2264 -> 2264 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin)bin937 -> 937 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin)bin2517 -> 2517 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin)bin1260 -> 1260 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin)bin1085 -> 1085 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin)bin1799 -> 1799 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin)bin1280 -> 1280 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin)bin1415 -> 1415 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin)bin2552 -> 2552 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin)bin411 -> 411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin)bin9290 -> 9290 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin)bin771 -> 771 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin)bin42226 -> 42226 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin)bin23811 -> 23811 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin)bin41591 -> 41591 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin)bin23608 -> 23608 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin)bin398 -> 398 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin)bin17718 -> 17718 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin)bin973 -> 973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin)bin1206 -> 1206 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin)bin10238 -> 10238 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin)bin3588 -> 3588 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin)bin16478 -> 16478 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin)bin22731 -> 22731 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin)bin862 -> 862 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin)bin22172 -> 22172 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin)bin3732 -> 3732 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin)bin13035 -> 13035 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin)bin2939 -> 2939 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin)bin3258 -> 3258 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin)bin1045 -> 1045 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin)bin13672 -> 13672 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin)bin6676 -> 6676 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin)bin6365 -> 6365 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin)bin3079 -> 3079 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin)bin2839 -> 2839 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin)bin4477 -> 4477 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin)bin20071 -> 20071 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin)bin2390 -> 2390 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin)bin6865 -> 6865 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin)bin5346 -> 5346 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin)bin5465 -> 5465 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin)bin428 -> 428 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin)bin15744 -> 15744 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin)bin6665 -> 6665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin)bin496 -> 496 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin)bin431 -> 431 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin)bin500 -> 500 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin)bin29830 -> 29830 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin)bin30095 -> 30095 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin)bin531 -> 531 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin)bin619 -> 619 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin)bin619 -> 619 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin)bin625 -> 625 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin)bin592 -> 592 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin)bin492 -> 492 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin)bin492 -> 492 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin)bin498 -> 498 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin)bin465 -> 465 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin)bin19408 -> 19408 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin)bin2896 -> 2896 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin)bin2135 -> 2135 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin)bin3006 -> 3006 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin)bin2642 -> 2642 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin)bin948 -> 948 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin)bin849 -> 849 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin)bin5078 -> 5078 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin)bin3725 -> 3725 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin)bin4932 -> 4932 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin)bin4858 -> 4858 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin)bin415 -> 415 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin)bin484 -> 484 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin)bin51975 -> 51975 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin)bin1729 -> 1729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin)bin1729 -> 1729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin)bin1730 -> 1730 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin)bin389 -> 389 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin)bin1699 -> 1699 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin)bin9367 -> 9367 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin)bin2231 -> 2231 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin)bin8400 -> 8400 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin)bin8687 -> 8687 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin)bin4017 -> 4017 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin)bin2122 -> 2122 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin)bin2078 -> 2078 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin)bin5045 -> 5045 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin)bin5332 -> 5332 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin)bin4017 -> 4017 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin)bin23174 -> 23174 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin)bin11262 -> 11262 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin)bin3831 -> 3831 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin)bin21821 -> 21821 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin)bin9990 -> 9990 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin)bin2316 -> 2316 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin)bin4411 -> 4411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin)bin25211 -> 25211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin)bin5669 -> 5669 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin)bin1170 -> 1170 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin)bin5149 -> 5149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin)bin2344 -> 2344 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin)bin2016 -> 2016 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin)bin4137 -> 4137 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin)bin13034 -> 13034 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin)bin4119 -> 4119 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin)bin1023 -> 1023 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin)bin4968 -> 4968 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin)bin1802 -> 1802 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin)bin1028 -> 1028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin)bin432 -> 432 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin)bin1056 -> 1056 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin)bin1471 -> 1471 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin)bin1533 -> 1533 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin)bin1607 -> 1607 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin)bin3006 -> 3006 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin)bin3147 -> 3147 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin)bin3069 -> 3069 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin)bin10271 -> 10271 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin)bin11998 -> 11998 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin)bin7533 -> 7533 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin)bin13224 -> 13224 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin)bin5885 -> 5885 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin)bin5938 -> 5938 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin)bin4537 -> 4537 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin)bin4498 -> 4498 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin)bin22872 -> 22872 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin)bin1348 -> 1348 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin)bin2149 -> 2149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin)bin2149 -> 2149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin)bin9556 -> 9556 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin)bin9324 -> 9324 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin)bin6935 -> 6935 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin)bin4084 -> 4084 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin)bin5901 -> 5901 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin)bin4038 -> 4038 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin)bin12729 -> 12729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin)bin3439 -> 3439 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin)bin16665 -> 16665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin)bin1354 -> 1354 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin)bin2852 -> 2852 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin)bin9947 -> 9947 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin)bin5491 -> 5491 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin)bin10750 -> 10750 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin)bin25828 -> 25828 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin)bin3162 -> 3162 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin)bin1603 -> 1603 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin)bin420 -> 420 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin)bin251 -> 251 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin)bin1781 -> 1781 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin)bin546 -> 546 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin)bin1806 -> 1806 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin)bin565 -> 565 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin)bin1677 -> 1677 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin)bin5621 -> 5621 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin)bin2605 -> 2605 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin)bin1266 -> 1266 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin)bin2609 -> 2609 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin)bin8313 -> 8313 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin)bin469 -> 469 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin)bin531 -> 531 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin)bin526 -> 526 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin)bin537 -> 537 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin)bin385 -> 385 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin)bin909 -> 909 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin)bin4301 -> 4301 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin)bin5248 -> 5248 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin)bin728 -> 728 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin)bin2122 -> 2122 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin)bin1434 -> 1434 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin)bin1292 -> 1292 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin)bin2667 -> 2667 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin)bin21938 -> 21938 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin)bin17429 -> 17429 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin)bin437 -> 437 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin)bin463 -> 463 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin)bin21470 -> 21470 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin)bin21438 -> 21438 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin)bin15066 -> 15066 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin)bin15066 -> 15066 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin)bin8150 -> 8150 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin)bin2135 -> 2135 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin)bin5610 -> 5610 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin)bin6440 -> 6440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin)bin4660 -> 4660 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin)bin14997 -> 14997 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin)bin15036 -> 15036 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin)bin1665 -> 1665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin)bin4894 -> 4894 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib)0
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names (renamed from texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r11327
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r577
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin)bin648 -> 648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin)bin4128 -> 4128 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin)bin5420 -> 5420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin)bin13408 -> 13408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin)bin10624 -> 10624 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin)bin6168 -> 6168 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin)bin20540 -> 20540 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin)bin1104 -> 1104 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin)bin1808 -> 1808 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin)bin436 -> 436 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin)bin216 -> 216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin)bin3792 -> 3792 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin)bin4152 -> 4152 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin)bin328 -> 328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin)bin16600 -> 16600 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin)bin16648 -> 16648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin)bin10016 -> 10016 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin)bin6416 -> 6416 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin)bin7776 -> 7776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin)bin3972 -> 3972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin)bin7136 -> 7136 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin)bin3852 -> 3852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin)bin2652 -> 2652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin)bin820 -> 820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin)bin2320 -> 2320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin)bin5852 -> 5852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin)bin2572 -> 2572 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin)bin5688 -> 5688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin)bin4012 -> 4012 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin)bin6992 -> 6992 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin)bin1692 -> 1692 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin)bin612 -> 612 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin)bin1212 -> 1212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin)bin980 -> 980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin)bin1776 -> 1776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin)bin10104 -> 10104 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin)bin1956 -> 1956 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin)bin336 -> 336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin)bin5856 -> 5856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin)bin5860 -> 5860 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin)bin332 -> 332 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin)bin12948 -> 12948 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin)bin12716 -> 12716 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin)bin324 -> 324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin)bin9760 -> 9760 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin)bin9760 -> 9760 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin)bin288 -> 288 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin)bin23320 -> 23320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin)bin23352 -> 23352 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin)bin1420 -> 1420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin)bin3500 -> 3500 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin)bin1844 -> 1844 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin)bin2124 -> 2124 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin)bin27240 -> 27240 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin)bin6444 -> 6444 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin)bin2012 -> 2012 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin)bin1728 -> 1728 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin)bin944 -> 944 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin)bin1564 -> 1564 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin)bin26872 -> 26872 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin)bin17676 -> 17676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin)bin3216 -> 3216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin)bin2820 -> 2820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin)bin8004 -> 8004 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin)bin8588 -> 8588 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin)bin3316 -> 3316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin)bin4060 -> 4060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin)bin2516 -> 2516 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin)bin14244 -> 14244 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin)bin572 -> 572 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin)bin11336 -> 11336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin)bin11312 -> 11312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin)bin480 -> 480 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin)bin10616 -> 10616 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin)bin4380 -> 4380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin)bin8964 -> 8964 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin)bin16256 -> 16256 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin)bin15652 -> 15652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin)bin1464 -> 1464 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin)bin4028 -> 4028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin)bin2080 -> 2080 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin)bin1952 -> 1952 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin)bin2180 -> 2180 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin)bin1720 -> 1720 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin)bin5292 -> 5292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin)bin12768 -> 12768 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin)bin1804 -> 1804 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin)bin300 -> 300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin)bin19876 -> 19876 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin)bin2972 -> 2972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin)bin16940 -> 16940 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin)bin312 -> 312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin)bin9664 -> 9664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin)bin1440 -> 1440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin)bin472 -> 472 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin)bin2248 -> 2248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin)bin3080 -> 3080 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin)bin12372 -> 12372 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin)bin5064 -> 5064 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin)bin3840 -> 3840 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin)bin12584 -> 12584 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin)bin3604 -> 3604 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin)bin384 -> 384 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin)bin5932 -> 5932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin)bin8520 -> 8520 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin)bin5604 -> 5604 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin)bin2476 -> 2476 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin)bin5160 -> 5160 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin)bin4212 -> 4212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin)bin6844 -> 6844 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin)bin16424 -> 16424 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin)bin4228 -> 4228 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin)bin9200 -> 9200 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin)bin2648 -> 2648 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin)bin18292 -> 18292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin)bin10560 -> 10560 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin)bin4324 -> 4324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin)bin4028 -> 4028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin)bin1884 -> 1884 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin)bin8068 -> 8068 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin)bin6312 -> 6312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin)bin4576 -> 4576 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin)bin17804 -> 17804 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin)bin3736 -> 3736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin)bin53024 -> 53024 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin)bin4688 -> 4688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin)bin21092 -> 21092 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin)bin23944 -> 23944 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin)bin7988 -> 7988 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin)bin7812 -> 7812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin)bin16852 -> 16852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin)bin3220 -> 3220 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin)bin12032 -> 12032 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin)bin29828 -> 29828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin)bin1192 -> 1192 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin)bin27248 -> 27248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin)bin22316 -> 22316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin)bin712 -> 712 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin)bin1348 -> 1348 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin)bin676 -> 676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin)bin1764 -> 1764 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin)bin756 -> 756 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin)bin684 -> 684 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin)bin1088 -> 1088 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin)bin812 -> 812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin)bin876 -> 876 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin)bin1828 -> 1828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin)bin7004 -> 7004 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin)bin616 -> 616 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin)bin32960 -> 32960 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin)bin19056 -> 19056 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin)bin32456 -> 32456 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin)bin18916 -> 18916 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin)bin252 -> 252 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin)bin14664 -> 14664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin)bin720 -> 720 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin)bin980 -> 980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin)bin7580 -> 7580 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin)bin2684 -> 2684 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin)bin12672 -> 12672 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin)bin17328 -> 17328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin)bin624 -> 624 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin)bin17228 -> 17228 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin)bin2636 -> 2636 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin)bin9316 -> 9316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin)bin2696 -> 2696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin)bin2612 -> 2612 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin)bin888 -> 888 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin)bin11080 -> 11080 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin)bin5300 -> 5300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin)bin4812 -> 4812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin)bin2400 -> 2400 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin)bin2128 -> 2128 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin)bin3512 -> 3512 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin)bin14900 -> 14900 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin)bin1820 -> 1820 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin)bin5492 -> 5492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin)bin4300 -> 4300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin)bin4232 -> 4232 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin)bin12336 -> 12336 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin)bin5236 -> 5236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin)bin388 -> 388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin)bin312 -> 312 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin)bin388 -> 388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin)bin22004 -> 22004 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin)bin23048 -> 23048 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin)bin356 -> 356 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin)bin380 -> 380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin)bin380 -> 380 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin)bin392 -> 392 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin)bin368 -> 368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin)bin264 -> 264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin)bin264 -> 264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin)bin276 -> 276 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin)bin252 -> 252 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin)bin14492 -> 14492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin)bin1996 -> 1996 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin)bin1652 -> 1652 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin)bin1924 -> 1924 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin)bin600 -> 600 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin)bin736 -> 736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin)bin3788 -> 3788 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin)bin2892 -> 2892 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin)bin3628 -> 3628 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin)bin3628 -> 3628 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin)bin284 -> 284 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin)bin328 -> 328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin)bin38656 -> 38656 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin)bin236 -> 236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin)bin6936 -> 6936 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin)bin1776 -> 1776 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin)bin6668 -> 6668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin)bin6860 -> 6860 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin)bin3204 -> 3204 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin)bin1740 -> 1740 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin)bin1640 -> 1640 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin)bin3988 -> 3988 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin)bin4180 -> 4180 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin)bin3204 -> 3204 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin)bin300 -> 300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin)bin14664 -> 14664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin)bin8392 -> 8392 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin)bin2660 -> 2660 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin)bin15532 -> 15532 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin)bin7140 -> 7140 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin)bin1732 -> 1732 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin)bin3696 -> 3696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin)bin18700 -> 18700 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin)bin4212 -> 4212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin)bin812 -> 812 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin)bin3696 -> 3696 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin)bin1708 -> 1708 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin)bin1484 -> 1484 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin)bin3424 -> 3424 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin)bin9496 -> 9496 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin)bin3212 -> 3212 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin)bin732 -> 732 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin)bin5372 -> 5372 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin)bin1364 -> 1364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin)bin724 -> 724 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin)bin296 -> 296 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin)bin804 -> 804 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin)bin1260 -> 1260 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin)bin1248 -> 1248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin)bin1236 -> 1236 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin)bin2196 -> 2196 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin)bin2304 -> 2304 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin)bin7620 -> 7620 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin)bin284 -> 284 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin)bin5828 -> 5828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin)bin9872 -> 9872 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin)bin4736 -> 4736 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin)bin4772 -> 4772 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin)bin3556 -> 3556 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin)bin3556 -> 3556 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin)bin16388 -> 16388 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin)bin932 -> 932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin)bin932 -> 932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin)bin920 -> 920 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin)bin920 -> 920 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin)bin1504 -> 1504 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin)bin1504 -> 1504 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin)bin9176 -> 9176 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin)bin6808 -> 6808 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin)bin5092 -> 5092 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin)bin2896 -> 2896 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin)bin4348 -> 4348 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin)bin2896 -> 2896 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin)bin9444 -> 9444 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin)bin2412 -> 2412 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin)bin12656 -> 12656 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin)bin1028 -> 1028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin)bin2108 -> 2108 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin)bin7688 -> 7688 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin)bin4260 -> 4260 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin)bin7908 -> 7908 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin)bin18164 -> 18164 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin)bin2664 -> 2664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin)bin1216 -> 1216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin)bin292 -> 292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin)bin156 -> 156 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin)bin1480 -> 1480 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin)bin404 -> 404 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin)bin1544 -> 1544 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin)bin408 -> 408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin)bin1328 -> 1328 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin)bin4548 -> 4548 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin)bin1972 -> 1972 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin)bin1044 -> 1044 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin)bin1980 -> 1980 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin)bin6440 -> 6440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin)bin364 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin)bin308 -> 308 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin)bin580 -> 580 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin)bin3620 -> 3620 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin)bin3856 -> 3856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin)bin508 -> 508 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin)bin1508 -> 1508 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin)bin1056 -> 1056 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin)bin880 -> 880 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin)bin2024 -> 2024 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin)bin16976 -> 16976 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin)bin13224 -> 13224 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin)bin320 -> 320 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin)bin288 -> 288 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin)bin16456 -> 16456 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin)bin16448 -> 16448 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin)bin11664 -> 11664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin)bin11664 -> 11664 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin)bin6748 -> 6748 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin)bin1668 -> 1668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin)bin4484 -> 4484 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin)bin5196 -> 5196 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin)bin3216 -> 3216 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin)bin11368 -> 11368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin)bin11368 -> 11368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin)bin280 -> 280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin)bin1300 -> 1300 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin)bin3756 -> 3756 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin)bin922 -> 922 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin)bin5238 -> 5238 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin)bin6737 -> 6737 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin)bin16618 -> 16618 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin)bin13269 -> 13269 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin)bin7643 -> 7643 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin)bin27459 -> 27459 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin)bin1449 -> 1449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin)bin2609 -> 2609 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin)bin703 -> 703 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin)bin324 -> 324 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin)bin5272 -> 5272 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin)bin6060 -> 6060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin)bin443 -> 443 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin)bin22449 -> 22449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin)bin22411 -> 22411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin)bin13046 -> 13046 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin)bin8338 -> 8338 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin)bin10457 -> 10457 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin)bin5225 -> 5225 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin)bin7824 -> 7824 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin)bin4360 -> 4360 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin)bin3001 -> 3001 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin)bin1090 -> 1090 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin)bin3257 -> 3257 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin)bin7543 -> 7543 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin)bin3159 -> 3159 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin)bin7165 -> 7165 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin)bin5752 -> 5752 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin)bin9264 -> 9264 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin)bin2182 -> 2182 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin)bin767 -> 767 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin)bin1266 -> 1266 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin)bin1103 -> 1103 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin)bin1991 -> 1991 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin)bin14179 -> 14179 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin)bin2819 -> 2819 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin)bin449 -> 449 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin)bin7742 -> 7742 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin)bin7742 -> 7742 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin)bin446 -> 446 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin)bin17490 -> 17490 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin)bin16797 -> 16797 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin)bin440 -> 440 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin)bin12964 -> 12964 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin)bin12924 -> 12924 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin)bin413 -> 413 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin)bin426 -> 426 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin)bin31919 -> 31919 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin)bin31845 -> 31845 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin)bin1833 -> 1833 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin)bin4784 -> 4784 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin)bin2593 -> 2593 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin)bin2668 -> 2668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin)bin37476 -> 37476 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin)bin9089 -> 9089 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin)bin2752 -> 2752 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin)bin2511 -> 2511 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin)bin1280 -> 1280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin)bin2167 -> 2167 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin)bin33511 -> 33511 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin)bin454 -> 454 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin)bin22860 -> 22860 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin)bin17289 -> 17289 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin)bin4450 -> 4450 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin)bin4030 -> 4030 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin)bin9618 -> 9618 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin)bin11037 -> 11037 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin)bin4108 -> 4108 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin)bin5585 -> 5585 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin)bin3330 -> 3330 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin)bin17806 -> 17806 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin)bin836 -> 836 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin)bin15211 -> 15211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin)bin15184 -> 15184 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin)bin721 -> 721 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin)bin12554 -> 12554 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin)bin5757 -> 5757 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin)bin12460 -> 12460 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin)bin12215 -> 12215 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin)bin19645 -> 19645 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin)bin13219 -> 13219 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin)bin20630 -> 20630 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin)bin2035 -> 2035 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin)bin4895 -> 4895 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin)bin2555 -> 2555 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin)bin2655 -> 2655 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin)bin2809 -> 2809 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin)bin2385 -> 2385 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin)bin6802 -> 6802 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin)bin17186 -> 17186 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin)bin2585 -> 2585 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin)bin421 -> 421 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin)bin421 -> 421 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin)bin25781 -> 25781 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin)bin3973 -> 3973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin)bin437 -> 437 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin)bin21909 -> 21909 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin)bin516 -> 516 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin)bin13253 -> 13253 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin)bin1826 -> 1826 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin)bin750 -> 750 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin)bin3053 -> 3053 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin)bin4302 -> 4302 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin)bin15887 -> 15887 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin)bin6854 -> 6854 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin)bin4990 -> 4990 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin)bin15552 -> 15552 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin)bin4788 -> 4788 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin)bin621 -> 621 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin)bin7426 -> 7426 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin)bin10756 -> 10756 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin)bin7402 -> 7402 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin)bin3408 -> 3408 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin)bin8060 -> 8060 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin)bin5636 -> 5636 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin)bin9114 -> 9114 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin)bin20514 -> 20514 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin)bin5978 -> 5978 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin)bin11635 -> 11635 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin)bin2900 -> 2900 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin)bin24740 -> 24740 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin)bin12440 -> 12440 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin)bin5653 -> 5653 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin)bin5483 -> 5483 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin)bin2824 -> 2824 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin)bin10906 -> 10906 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin)bin8640 -> 8640 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin)bin6014 -> 6014 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin)bin22258 -> 22258 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin)bin4911 -> 4911 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin)bin68349 -> 68349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin)bin6211 -> 6211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin)bin27821 -> 27821 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin)bin31439 -> 31439 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin)bin10699 -> 10699 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin)bin10368 -> 10368 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin)bin21856 -> 21856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin)bin3637 -> 3637 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin)bin15057 -> 15057 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin)bin40156 -> 40156 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin)bin1651 -> 1651 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin)bin34512 -> 34512 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin)bin28313 -> 28313 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin)bin1174 -> 1174 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin)bin1136 -> 1136 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin)bin1135 -> 1135 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin)bin2264 -> 2264 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin)bin937 -> 937 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin)bin2517 -> 2517 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin)bin1260 -> 1260 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin)bin1085 -> 1085 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin)bin1799 -> 1799 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin)bin1280 -> 1280 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin)bin1415 -> 1415 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin)bin2552 -> 2552 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin)bin411 -> 411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin)bin9290 -> 9290 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin)bin771 -> 771 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin)bin42226 -> 42226 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin)bin23811 -> 23811 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin)bin41591 -> 41591 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin)bin23608 -> 23608 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin)bin398 -> 398 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin)bin17718 -> 17718 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin)bin973 -> 973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin)bin1206 -> 1206 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin)bin10238 -> 10238 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin)bin3588 -> 3588 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin)bin16478 -> 16478 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin)bin22731 -> 22731 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin)bin862 -> 862 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin)bin22172 -> 22172 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin)bin3732 -> 3732 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin)bin13035 -> 13035 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin)bin2939 -> 2939 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin)bin3258 -> 3258 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin)bin1045 -> 1045 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin)bin13672 -> 13672 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin)bin6676 -> 6676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin)bin6365 -> 6365 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin)bin3079 -> 3079 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin)bin2839 -> 2839 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin)bin4477 -> 4477 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin)bin20071 -> 20071 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin)bin2390 -> 2390 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin)bin6865 -> 6865 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin)bin5346 -> 5346 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin)bin5465 -> 5465 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin)bin428 -> 428 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin)bin15744 -> 15744 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin)bin6665 -> 6665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin)bin496 -> 496 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin)bin431 -> 431 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin)bin500 -> 500 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin)bin29830 -> 29830 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin)bin30095 -> 30095 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin)bin531 -> 531 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin)bin619 -> 619 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin)bin619 -> 619 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin)bin625 -> 625 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin)bin592 -> 592 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin)bin492 -> 492 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin)bin492 -> 492 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin)bin498 -> 498 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin)bin465 -> 465 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin)bin19408 -> 19408 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin)bin2896 -> 2896 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin)bin2135 -> 2135 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin)bin3006 -> 3006 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin)bin2642 -> 2642 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin)bin948 -> 948 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin)bin849 -> 849 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin)bin5078 -> 5078 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin)bin3725 -> 3725 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin)bin4932 -> 4932 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin)bin4858 -> 4858 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin)bin415 -> 415 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin)bin484 -> 484 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin)bin51975 -> 51975 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin)bin1729 -> 1729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin)bin1729 -> 1729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin)bin1730 -> 1730 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin)bin389 -> 389 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin)bin1699 -> 1699 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin)bin9367 -> 9367 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin)bin2231 -> 2231 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin)bin8400 -> 8400 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin)bin8687 -> 8687 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin)bin4017 -> 4017 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin)bin2122 -> 2122 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin)bin2078 -> 2078 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin)bin5045 -> 5045 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin)bin5332 -> 5332 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin)bin4017 -> 4017 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin)bin419 -> 419 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin)bin23174 -> 23174 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin)bin11262 -> 11262 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin)bin3831 -> 3831 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin)bin21821 -> 21821 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin)bin9990 -> 9990 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin)bin2316 -> 2316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin)bin4411 -> 4411 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin)bin25211 -> 25211 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin)bin5669 -> 5669 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin)bin1170 -> 1170 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin)bin5149 -> 5149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin)bin2344 -> 2344 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin)bin2016 -> 2016 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin)bin4137 -> 4137 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin)bin13034 -> 13034 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin)bin4119 -> 4119 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin)bin1023 -> 1023 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin)bin4968 -> 4968 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin)bin1802 -> 1802 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin)bin1028 -> 1028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin)bin432 -> 432 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin)bin1056 -> 1056 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin)bin1405 -> 1405 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin)bin1533 -> 1533 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin)bin1607 -> 1607 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin)bin3006 -> 3006 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin)bin3147 -> 3147 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin)bin3069 -> 3069 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin)bin10271 -> 10271 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin)bin11998 -> 11998 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin)bin7533 -> 7533 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin)bin13224 -> 13224 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin)bin5885 -> 5885 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin)bin5938 -> 5938 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin)bin4537 -> 4537 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin)bin4498 -> 4498 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin)bin22872 -> 22872 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin)bin1348 -> 1348 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin)bin1349 -> 1349 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin)bin2149 -> 2149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin)bin2149 -> 2149 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin)bin11150 -> 11150 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin)bin9324 -> 9324 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin)bin6935 -> 6935 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin)bin4084 -> 4084 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin)bin5901 -> 5901 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin)bin4038 -> 4038 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin)bin12729 -> 12729 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin)bin3439 -> 3439 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin)bin16665 -> 16665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin)bin1354 -> 1354 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin)bin2852 -> 2852 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin)bin9947 -> 9947 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin)bin5491 -> 5491 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin)bin10750 -> 10750 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin)bin25828 -> 25828 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin)bin3162 -> 3162 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin)bin1603 -> 1603 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin)bin420 -> 420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin)bin251 -> 251 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin)bin1781 -> 1781 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin)bin546 -> 546 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin)bin1806 -> 1806 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin)bin565 -> 565 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin)bin1677 -> 1677 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin)bin5621 -> 5621 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin)bin2605 -> 2605 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin)bin1266 -> 1266 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin)bin2609 -> 2609 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin)bin8313 -> 8313 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin)bin469 -> 469 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin)bin531 -> 531 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin)bin526 -> 526 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin)bin537 -> 537 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin)bin385 -> 385 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin)bin909 -> 909 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin)bin4301 -> 4301 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin)bin5248 -> 5248 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin)bin728 -> 728 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin)bin2122 -> 2122 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin)bin1434 -> 1434 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin)bin1292 -> 1292 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin)bin2667 -> 2667 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin)bin21938 -> 21938 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin)bin17429 -> 17429 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin)bin437 -> 437 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin)bin463 -> 463 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin)bin21470 -> 21470 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin)bin21438 -> 21438 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin)bin15066 -> 15066 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin)bin15066 -> 15066 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin)bin8150 -> 8150 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin)bin2135 -> 2135 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin)bin5610 -> 5610 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin)bin6440 -> 6440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin)bin4660 -> 4660 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin)bin14997 -> 14997 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin)bin15036 -> 15036 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin)bin364 -> 364 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin)bin1665 -> 1665 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin)bin4894 -> 4894 bytes
-rw-r--r--[-rwxr-xr-x]texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib (renamed from texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/maximaL/fourier_sec.max (renamed from texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/maximaL/matoperation.max (renamed from texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/maximaL/poincare.mac (renamed from texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/maximaL/rkfun.lisp (renamed from texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.pdfbin0 -> 2278676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.rr (renamed from texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr)552
-rw-r--r--texmf-dist/scripts/ketcindy/ketlibC/ketcommon.h (renamed from texmf-dist/scripts/ketpic/ketlibC/ketcommon.h)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlibC/surflib.h (renamed from texmf-dist/scripts/ketpic/ketlibC/surflib.h)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketlibC/surflibhead.h (renamed from texmf-dist/scripts/ketpic/ketlibC/surflibhead.h)0
-rw-r--r--texmf-dist/scripts/ketcindy/ketoutset.txt (renamed from texmf-dist/scripts/ketpic/ketoutset.txt)30
-rw-r--r--texmf-dist/scripts/ketcindy/setketcindy.txt15
-rwxr-xr-xtexmf-dist/scripts/ketpic/allbuttons.cdybin4706 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/data/Rtutorial/t4sample1.csv1
-rw-r--r--texmf-dist/scripts/ketpic/data/Rtutorial/t4sample2.csv74
-rw-r--r--texmf-dist/scripts/ketpic/data/Rtutorial/t6sample.csv21
-rw-r--r--texmf-dist/scripts/ketpic/data/Rtutorial/t7sample.csv21
-rw-r--r--texmf-dist/scripts/ketpic/data/Rtutorial/t8sampledistrtest.csv201
-rw-r--r--texmf-dist/scripts/ketpic/data/js/Cindy.js757
-rw-r--r--texmf-dist/scripts/ketpic/data/js/CindyJS.css121
-rw-r--r--texmf-dist/scripts/ketpic/dirhead.txt1
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdatabin1322605 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdfbin2214196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/setketcindy.txt74
-rwxr-xr-xtexmf-dist/scripts/ketpic/template.cdybin4261 -> 0 bytes
2278 files changed, 29345 insertions, 4010 deletions
diff --git a/texmf-dist/scripts/ketpic/data/fontF/0Small.png b/texmf-dist/scripts/ketcindy/data/fontF/0Small.png
index 8d491ce0..8d491ce0 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/0Small.png
+++ b/texmf-dist/scripts/ketcindy/data/fontF/0Small.png
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/0Smalla-h.png b/texmf-dist/scripts/ketcindy/data/fontF/0Smalla-h.png
index 4578fb1e..4578fb1e 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/0Smalla-h.png
+++ b/texmf-dist/scripts/ketcindy/data/fontF/0Smalla-h.png
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/0Smalli-o.png b/texmf-dist/scripts/ketcindy/data/fontF/0Smalli-o.png
index 812d3755..812d3755 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/0Smalli-o.png
+++ b/texmf-dist/scripts/ketcindy/data/fontF/0Smalli-o.png
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/0Smallp-w.png b/texmf-dist/scripts/ketcindy/data/fontF/0Smallp-w.png
index 29c6c446..29c6c446 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/0Smallp-w.png
+++ b/texmf-dist/scripts/ketcindy/data/fontF/0Smallp-w.png
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/0Smallxyz.png b/texmf-dist/scripts/ketcindy/data/fontF/0Smallxyz.png
index a4e3a6a6..a4e3a6a6 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/0Smallxyz.png
+++ b/texmf-dist/scripts/ketcindy/data/fontF/0Smallxyz.png
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/nsi.cdy b/texmf-dist/scripts/ketcindy/data/fontF/nsi.cdy
index 53393398..53393398 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/nsi.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/nsi.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/nsi.txt b/texmf-dist/scripts/ketcindy/data/fontF/nsi.txt
index 3492d65d..3492d65d 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/nsi.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/nsi.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/pcr.cdy b/texmf-dist/scripts/ketcindy/data/fontF/pcr.cdy
index cc8891d0..cc8891d0 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/pcr.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/pcr.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/pcr.txt b/texmf-dist/scripts/ketcindy/data/fontF/pcr.txt
index 76c429b5..76c429b5 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/pcr.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/pcr.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/qcr.cdy b/texmf-dist/scripts/ketcindy/data/fontF/qcr.cdy
index ad28dd15..ad28dd15 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/qcr.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/qcr.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/qcr.txt b/texmf-dist/scripts/ketcindy/data/fontF/qcr.txt
index 58a390e9..58a390e9 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/qcr.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/qcr.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/rcr.cdy b/texmf-dist/scripts/ketcindy/data/fontF/rcr.cdy
index e5a02dd9..e5a02dd9 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/rcr.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/rcr.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/rcr.txt b/texmf-dist/scripts/ketcindy/data/fontF/rcr.txt
index f668aba4..f668aba4 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/rcr.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/rcr.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/tsi.cdy b/texmf-dist/scripts/ketcindy/data/fontF/tsi.cdy
index 2fa6231c..2fa6231c 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/tsi.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/tsi.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/tsi.txt b/texmf-dist/scripts/ketcindy/data/fontF/tsi.txt
index 6a51e190..6a51e190 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/tsi.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/tsi.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/xsi.cdy b/texmf-dist/scripts/ketcindy/data/fontF/xsi.cdy
index 428c783d..428c783d 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/xsi.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/xsi.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/xsi.txt b/texmf-dist/scripts/ketcindy/data/fontF/xsi.txt
index f16d04f0..f16d04f0 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/xsi.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/xsi.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/ysi.cdy b/texmf-dist/scripts/ketcindy/data/fontF/ysi.cdy
index ff075329..ff075329 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/ysi.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/ysi.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/ysi.txt b/texmf-dist/scripts/ketcindy/data/fontF/ysi.txt
index 83f6b329..83f6b329 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/ysi.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/ysi.txt
diff --git a/texmf-dist/scripts/ketpic/data/fontF/zsi.cdy b/texmf-dist/scripts/ketcindy/data/fontF/zsi.cdy
index 3326d6ad..3326d6ad 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/zsi.cdy
+++ b/texmf-dist/scripts/ketcindy/data/fontF/zsi.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/fontF/zsi.txt b/texmf-dist/scripts/ketcindy/data/fontF/zsi.txt
index f62925cd..f62925cd 100644
--- a/texmf-dist/scripts/ketpic/data/fontF/zsi.txt
+++ b/texmf-dist/scripts/ketcindy/data/fontF/zsi.txt
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt
index 897ac82f..897ac82f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(kobayashi-suzuki).txt
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(mitani).txt b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(mitani).txt
index 262fff5b..262fff5b 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/READMEj(mitani).txt
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/READMEj(mitani).txt
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a03.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a03.obj
index 2259162a..2259162a 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a03.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a03.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a04.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a04.obj
index 552dd092..552dd092 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a04.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a04.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a05.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a05.obj
index 0ad84696..0ad84696 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a05.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a05.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a06.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a06.obj
index fa5467aa..fa5467aa 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a06.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a06.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a07.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a07.obj
index 17d011c5..17d011c5 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a07.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a07.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a08.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a08.obj
index 2235341d..2235341d 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a08.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a08.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a09.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a09.obj
index 79e22eca..79e22eca 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a09.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a09.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a10.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a10.obj
index cc602ba2..cc602ba2 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/a10.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/a10.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n01.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n01.obj
index 70574b60..70574b60 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n01.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n01.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n02.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n02.obj
index e279a395..e279a395 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n02.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n02.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n03.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n03.obj
index 72508077..72508077 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n03.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n03.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n04.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n04.obj
index 03abdf63..03abdf63 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n04.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n04.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n05.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n05.obj
index 7e79daa2..7e79daa2 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n05.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n05.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n06.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n06.obj
index f93e9b72..f93e9b72 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n06.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n06.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n07.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n07.obj
index 529d40b7..529d40b7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n07.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n07.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n08.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n08.obj
index 09205712..09205712 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n08.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n08.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n09.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n09.obj
index e7b7c9a7..e7b7c9a7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n09.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n09.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n10.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n10.obj
index 012f40ee..012f40ee 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n10.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n10.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n11.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n11.obj
index 291356f8..291356f8 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n11.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n11.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n12.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n12.obj
index 4513f468..4513f468 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n12.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n12.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n13.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n13.obj
index ba77013e..ba77013e 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n13.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n13.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n14.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n14.obj
index 066ad4d0..066ad4d0 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n14.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n14.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n15.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n15.obj
index cce594a8..cce594a8 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n15.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n15.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n16.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n16.obj
index 5222ab17..5222ab17 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n16.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n16.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n17.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n17.obj
index 5bafb396..5bafb396 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n17.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n17.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n18.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n18.obj
index 11416d75..11416d75 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n18.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n18.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n19.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n19.obj
index 6942d041..6942d041 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n19.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n19.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n20.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n20.obj
index 48711e26..48711e26 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n20.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n20.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n21.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n21.obj
index be39dcb0..be39dcb0 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n21.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n21.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n22.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n22.obj
index 1dfec909..1dfec909 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n22.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n22.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n23.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n23.obj
index a7c786ce..a7c786ce 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n23.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n23.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n24.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n24.obj
index 95d5834f..95d5834f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n24.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n24.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n25.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n25.obj
index e3048519..e3048519 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n25.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n25.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n26.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n26.obj
index 3eb6d8d7..3eb6d8d7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n26.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n26.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n27.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n27.obj
index 41a03100..41a03100 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n27.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n27.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n28.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n28.obj
index 8d1f142f..8d1f142f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n28.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n28.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n29.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n29.obj
index ef7fd148..ef7fd148 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n29.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n29.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n30.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n30.obj
index 565d361a..565d361a 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n30.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n30.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n31.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n31.obj
index 2bc879c4..2bc879c4 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n31.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n31.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n32.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n32.obj
index 39d12437..39d12437 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n32.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n32.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n33.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n33.obj
index 4fb6508f..4fb6508f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n33.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n33.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n34.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n34.obj
index eea5439f..eea5439f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n34.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n34.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n35.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n35.obj
index ed3b9efc..ed3b9efc 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n35.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n35.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n36.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n36.obj
index 977ef5c4..977ef5c4 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n36.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n36.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n37.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n37.obj
index 69c08490..69c08490 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n37.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n37.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n38.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n38.obj
index fd528ea3..fd528ea3 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n38.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n38.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n39.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n39.obj
index 5cb96de7..5cb96de7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n39.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n39.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n40.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n40.obj
index c1b57f02..c1b57f02 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n40.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n40.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n41.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n41.obj
index 3adcc5a7..3adcc5a7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n41.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n41.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n42.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n42.obj
index 414d704a..414d704a 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n42.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n42.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n43.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n43.obj
index 15b86180..15b86180 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n43.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n43.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44L.obj
index a118aec6..a118aec6 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44R.obj
index d29c2764..d29c2764 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n44R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n44R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45L.obj
index 79c06df1..79c06df1 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45R.obj
index 5b7ea3ed..5b7ea3ed 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n45R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n45R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46L.obj
index c36513d3..c36513d3 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46R.obj
index ce2cc058..ce2cc058 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n46R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n46R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47L.obj
index e2fa72f6..e2fa72f6 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47R.obj
index 2ab53743..2ab53743 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n47R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n47R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48L.obj
index b2c4ece1..b2c4ece1 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48R.obj
index 004d8254..004d8254 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n48R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n48R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n49.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n49.obj
index 6cedb9f8..6cedb9f8 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n49.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n49.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n50.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n50.obj
index f7c4ccbc..f7c4ccbc 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n50.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n50.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n51.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n51.obj
index 86483d6d..86483d6d 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n51.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n51.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n52.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n52.obj
index 8e67dd58..8e67dd58 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n52.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n52.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n53.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n53.obj
index cd266e99..cd266e99 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n53.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n53.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n54.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n54.obj
index 4377b1ff..4377b1ff 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n54.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n54.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n55.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n55.obj
index cfde17fe..cfde17fe 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n55.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n55.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n56.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n56.obj
index 7bae7915..7bae7915 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n56.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n56.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n57.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n57.obj
index 036ae2e3..036ae2e3 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n57.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n57.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n58.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n58.obj
index a7350853..a7350853 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n58.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n58.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n59.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n59.obj
index 9981d0b4..9981d0b4 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n59.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n59.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n60.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n60.obj
index 27819bd4..27819bd4 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n60.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n60.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n61.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n61.obj
index 9668c496..9668c496 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n61.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n61.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n62.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n62.obj
index 270b879b..270b879b 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n62.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n62.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n63.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n63.obj
index ee44b2b3..ee44b2b3 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n63.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n63.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n64.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n64.obj
index f1aadc5c..f1aadc5c 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n64.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n64.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n65.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n65.obj
index e5e0ba78..e5e0ba78 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n65.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n65.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n66.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n66.obj
index 8bcd109e..8bcd109e 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n66.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n66.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n67.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n67.obj
index 58572003..58572003 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n67.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n67.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n68.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n68.obj
index fbf46178..fbf46178 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n68.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n68.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n69.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n69.obj
index 2e11a375..2e11a375 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n69.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n69.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n70.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n70.obj
index 62c1da41..62c1da41 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n70.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n70.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n71.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n71.obj
index 331009af..331009af 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n71.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n71.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n72.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n72.obj
index ad80a06d..ad80a06d 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n72.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n72.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n73.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n73.obj
index d65e44ca..d65e44ca 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n73.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n73.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n74.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n74.obj
index b0a6ff58..b0a6ff58 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n74.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n74.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n75.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n75.obj
index a6eca558..a6eca558 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n75.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n75.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n76.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n76.obj
index 6ae6abe0..6ae6abe0 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n76.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n76.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n77.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n77.obj
index 14c23ffd..14c23ffd 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n77.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n77.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n78.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n78.obj
index 7693437a..7693437a 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n78.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n78.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n79.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n79.obj
index 5923c300..5923c300 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n79.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n79.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n80.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n80.obj
index c6797f3d..c6797f3d 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n80.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n80.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n81.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n81.obj
index e249e287..e249e287 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n81.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n81.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n82.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n82.obj
index bec40fa7..bec40fa7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n82.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n82.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n83.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n83.obj
index 40656942..40656942 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n83.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n83.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n84.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n84.obj
index 99140d2c..99140d2c 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n84.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n84.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n85.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n85.obj
index 88e6e2d9..88e6e2d9 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n85.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n85.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n86.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n86.obj
index 0c12e8e4..0c12e8e4 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n86.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n86.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n87.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n87.obj
index d6f957ec..d6f957ec 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n87.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n87.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n88.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n88.obj
index 6b72d3ca..6b72d3ca 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n88.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n88.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n89.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n89.obj
index 0b5c2160..0b5c2160 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n89.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n89.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n90.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n90.obj
index 12cea9c9..12cea9c9 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n90.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n90.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n91.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n91.obj
index 8fa9e15a..8fa9e15a 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n91.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n91.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n92.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n92.obj
index 1f85374b..1f85374b 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/n92.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/n92.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p03.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p03.obj
index 2dfa2604..2dfa2604 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p03.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p03.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p04.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p04.obj
index c42c1d1f..c42c1d1f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p04.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p04.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p05.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p05.obj
index e7731809..e7731809 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p05.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p05.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p06.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p06.obj
index 6b1fc4e7..6b1fc4e7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p06.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p06.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p07.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p07.obj
index b11e3f11..b11e3f11 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p07.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p07.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p08.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p08.obj
index 3b99bc23..3b99bc23 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p08.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p08.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p09.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p09.obj
index e00153ab..e00153ab 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p09.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p09.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p10.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p10.obj
index 31941eda..31941eda 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/p10.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/p10.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r01.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r01.obj
index 2edf33c5..2edf33c5 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r01.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r01.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r02.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r02.obj
index 85bbede8..85bbede8 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r02.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r02.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r03.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r03.obj
index c42c1d1f..c42c1d1f 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r03.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r03.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r04.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r04.obj
index 56a0c40c..56a0c40c 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r04.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r04.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r05.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r05.obj
index fd013dc2..fd013dc2 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/r05.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/r05.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s01.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s01.obj
index f493d9c7..f493d9c7 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s01.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s01.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s02.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s02.obj
index cc2dc6cb..cc2dc6cb 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s02.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s02.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s03.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s03.obj
index 0663c724..0663c724 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s03.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s03.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s04.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s04.obj
index 58e0fa0c..58e0fa0c 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s04.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s04.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s05.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s05.obj
index a2ec5ff1..a2ec5ff1 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s05.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s05.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s06.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s06.obj
index 4167cae1..4167cae1 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s06.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s06.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s07.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s07.obj
index 5820f529..5820f529 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s07.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s07.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s08.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s08.obj
index 8441f42c..8441f42c 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s08.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s08.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s09.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s09.obj
index 40f8fdd8..40f8fdd8 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s09.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s09.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s10.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s10.obj
index c9027972..c9027972 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s10.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s10.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s11.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s11.obj
index 496cd08e..496cd08e 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s11.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s11.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12L.obj
index aaee84e5..aaee84e5 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12R.obj
index 8cdb06b6..8cdb06b6 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s12R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s12R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13L.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13L.obj
index fe10910d..fe10910d 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13L.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13L.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13R.obj b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13R.obj
index fa9be1b3..fa9be1b3 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/s13R.obj
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/s13R.obj
diff --git a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/整面凸多面体データ.pdf b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf
index e2b52ddd..e2b52ddd 100644
--- a/texmf-dist/scripts/ketpic/data/polyhedrons_obj/整面凸多面体データ.pdf
+++ b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketcindy.sh b/texmf-dist/scripts/ketcindy/ketcindy.sh
index 344cbb23..49ac4d08 100755
--- a/texmf-dist/scripts/ketpic/ketcindy.sh
+++ b/texmf-dist/scripts/ketcindy/ketcindy.sh
@@ -2,6 +2,9 @@
#
# KETCindy starter script
#
+# (C) 2017 Norbert Preining
+# Licensed under the same license terms as ketpic itself, that is GPLv3+
+#
BinaryName=Cinderella2
TemplateFile=template.cdy
@@ -24,15 +27,35 @@ if [ ! -x "$cinderella" ] ; then
echo "Program $cinderella is not executable!" >&2
exit 1
fi
-
+# find real path
+realcind=`realpath "$cinderella"`
+cinddir=`dirname "$realcind"`
+plugindir="$cinddir/Plugins"
+plugin="$plugindir/KetCindyPlugin.jar"
+
+# find Jar
+KetCdyJar=`kpsewhich -format=texmfscripts KetCindyPlugin.jar`
# search for template.cdy
TempCdy=`kpsewhich -format=texmfscripts $TemplateFile`
-if [ -z "$TempCdy" ]
+if [ -z "$TempCdy" -o -z "$KetCdyJar" ]
then
echo "Cannot find $TemplateFile via kpsewhich, is ketpic installed?" >&2
exit 1
fi
+
+if [ ! -r "$plugin" ] ; then
+ echo "Cinderella is *NOT* set up for KETCindy!"
+ echo "You need to copy"
+ echo " $KetCdyJar"
+ echo "into"
+ echo " $plugindir"
+ echo ""
+ exit 1
+fi
+
+mkdir -p ~/ketcindy
+
exec "$cinderella" "$TempCdy"
diff --git a/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy b/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy
new file mode 100644
index 00000000..bf1d86fe
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketfiles/template.cdy b/texmf-dist/scripts/ketcindy/ketfiles/template.cdy
new file mode 100644
index 00000000..ba10738e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketfiles/template.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar b/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar
new file mode 100644
index 00000000..cee8f4ca
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs
index 53b542a0..53b542a0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpE.txt
index 27b40955..27b40955 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpE.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpJ.txt
index bd29d25f..bd29d25f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dhelpJ.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt
index 63f107b7..63f107b7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt
new file mode 100644
index 00000000..7cef6fc7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt
@@ -0,0 +1,8 @@
+// 2017.10.08
+// Bezier3,Putbezier3data,Mkbezierptcrv3d greatly changed
+// 2017.10.07
+// Mkpointlist debugged
+// Start3d,Ptseg3d, Setangle, Mkpointlist, Mkseq3d, Putpoint3d Skeleton..,Putbezier..
+// changed ( "=" removed from VLIST)
+// 2017.09.18
+// SCIWR,SCIRE removed
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
new file mode 100644
index 00000000..9732be4b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
@@ -0,0 +1,4468 @@
+// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+//
+//This program is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>
+//
+
+println("ketcindylib3d(2017.10.07) loaded");
+
+//help:start();
+
+Ketinit3d():=Ketinit3d(1);
+Ketinit3d(sf):=(
+ regional(tmp);
+ tmp=round(4*SW.y)/4;
+// Ketinit3d(sf,[round(SW.x)+1,tmp-0.5,tmp-1]);
+ Ketinit3d(sf,[-5,tmp-0.5,tmp-1]);
+);
+Ketinit3d(subflg,position):=(
+//help:Ketinit3d(subflg=1)
+ regional(ctr,tmp,tmp1,tmp2,tmp3,tmp4,xPos,yTh,yPh);
+// println("KETCindy3d V.2.3.5(2016.02.03)");
+ BezierNumber3=1; //15.02.28
+ if(!islist(BZLIST3),
+ BZLIST3=[]; //15.02.28
+ ,
+ tmp=apply(allpoints(),text(#));
+ tmp1=select(tmp,substring(#,length(#)-1,length(#))=="p");
+ tmp2=[];
+ forall(tmp1,ctr,
+ tmp=substring(ctr,0,length(ctr)-1);
+ tmp=select(BZLIST3,#_1==tmp);
+ if(length(tmp)>0,
+ tmp2=append(tmp2,tmp_1);
+ );
+ );
+ BZLIST3=tmp2;
+ );
+ SUBSCR=subflg;
+ Setwindow("Msg=no");
+ if(length(position)>2,
+ xPos=position_1;
+ yTh=position_2;
+ yPh=position_3;
+ ,
+ xPos=0;
+ yTh=position_1;
+ yPh=position_2;
+ );
+// THETA=60*pi/180;
+// PHI=30*pi/180;
+ FocusPoint=[0,0,0];
+ EyePoint=[5,5,5];
+ Listplot("th",[[xPos,yTh],[xPos+9,yTh]],["notex","linecolor->[0,1,0]","Msg=no"]);
+ Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],["notex","linecolor->[0,1,0]","Msg=no"]);
+ //16.02.10
+ PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
+ PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
+ THETA=(TH.x-xPos)*20*pi/180;
+ PHI=(FI.x-xPos)*40*pi/180;
+// Defvar("THETA",THETA); // 16.06.20
+// Defvar("PHI",PHI); // 16.06.20
+ drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
+ drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
+ tmp="Setangle("+text((TH.x-xPos)*20)+","+text((FI.x-xPos)*40)+")";
+ GLIST=append(GLIST,tmp);
+ Addax(0);
+ TSIZE=10;
+ TSIZEZ=10;
+ ErrFlg=0;
+);
+
+Start3d():=Start3d([]); //16.11.12
+Start3d(ptexception):=( //16.11.12
+//help:Start3d();
+//help:Start3d(execptionptlist);
+ regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
+ xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
+ GCLIST=[];
+ GLIST=[];
+ FUNLIST=[];
+ COM0thlist=[];
+ COM1stlist=[];
+ COM2ndlist=[];
+ SEG3dlist=[];
+ OutFileList=[];
+ FigPdfList=[]; // 16.04.08
+ ErrFlag=0;
+ OBJCMD=[]; // 16.11.29from
+ OCNAME=Fhead;
+ OCOPTION=["m","v"];// 16.11.29upto
+ ArrowlineNumber=1; // 16.01.31
+ ArrowheadNumber=1;
+ BezierNumber=1; //16.01.31
+ BezierNumber3=1; //16.08.19
+ Fnametex=Fhead+".tex"; // 15.04.06
+ FnameR=Fhead+".r";
+ FnameRbody=Fhead+"body.r";
+ Fnameout=Fhead+".txt";
+// Ketinit3d(SUBSCR); // 16.06.20
+ Setwindow("Msg=no"); // 16.06.20from
+ tmp=round(4*SW.y)/4;
+ xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
+ Listplot("th",[[xPos,yTh],[xPos+9,yTh]],
+ ["notex","linecolor->[0,1,0]","Msg=no"]);
+ Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],
+ ["notex","linecolor->[0,1,0]","Msg=no"]);
+ //16.02.10
+ PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
+ PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
+ drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
+ drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
+ tmp="Setangle("
+ +format((TH.x-xPos)*20,5)+","
+ +format((FI.x-xPos)*40,5)+")";
+ GLIST=append(GLIST,tmp);
+ THETA=(TH.x-xPos)*20*pi/180;
+ PHI=(FI.x-xPos)*40*pi/180; // 16.06.20upto
+ if(isselected(TH) % isselected(FI), // 17.05.18from
+ if(length(Ch)>0,
+ ChNum=Ch_(length(Ch));
+ if(ChNum==0, ChNum=1);
+ ,
+ ChNum=1;
+ );
+ Ch=[0];
+ );// 17.05.18upto
+ if(length(VLIST)==0, // 16.06.20
+ tmp=remove(allpoints(),[NE,SW,TH,FI,O,X,Y,Z]);//17.06.02
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp=parse(tmp1+"z.y");
+ pt3=Xyzcoord(pt.x,pt.y,tmp);
+ Defvar(tmp1+"3d",pt3);
+ pt2=Parapt(pt3); // 16.05.28from
+ Defvar(tmp1+"2d",pt2); // 16.05.28upto
+ );
+ );
+ ,
+ if(isselected(NE) % isselected(SW),
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp=select(VLIST,#_1==tmp1+"3d"); //17.10.07
+ pt3=tmp_1_2;
+ tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
+ parse(tmp);
+// if(SUBSCR==1,
+// tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
+// parse(tmp);
+// );
+ );
+ );
+ ,
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp2=parse(tmp1+"z");
+ if(isselected(pt) % isselected(tmp2),
+ Defvar(tmp1+"2d",pt.xy);
+ tmp=parse(tmp1+"z.y");
+ tmp=Xyzcoord(pt.x,pt.y,tmp);
+ Defvar(tmp1+"3d",tmp);
+ );
+ );
+ );
+ );
+ );
+ if(SUBSCR==1,
+ xmn=SW.x+NE.x-SW.x;
+ xMx=NE.x+NE.x-SW.x;
+ ymn=SW.y;
+ yMx=NE.y;
+ drawpoly([[xMx,yMx],[xmn,yMx],
+ [xmn,ymn],[xMx,ymn]],color->[1,1,1]);
+ connect([[NE.x-SW.x,yMx],[NE.x-SW.x,ymn]],
+ color->[0.5,0.5,0.5]);
+ );
+ // for Presentation //17.07.01from
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
+ SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+ letterc,mboxc,mboxc,mboxc,62,2,letterc];
+ ThinDense=0.1; //17.07.01upto
+ Ptseg3data(ptexception); //16.08.23
+);
+
+Setangle(theta,phi):=( //16.12.24
+//help:Setangle(60,30);
+ regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
+ xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
+ tmp=round(4*SW.y)/4;
+ xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
+ if(theta=="",theta=THETA*180/pi); // 17.01.19
+ if(phi=="",phi=PHI*180/pi);
+ THETA=theta*pi/180;
+ TH.x=theta/20+xPos;
+ PHI=phi*pi/180;
+ FI.x=phi/40+xPos;
+// drawtext([xPos-0.8,yTh-0.1],text(theta)); //17.05.05
+// drawtext([xPos-0.8,yPh-0.1],text(phi));
+ tmp="Setangle("
+ +format(theta,5)+","+format(phi,5)+")";
+ GLIST=append(GLIST,tmp);
+ if(length(VLIST)==0, // 16.06.20
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp=parse(tmp1+"z.y");
+ pt3=Xyzcoord(pt.x,pt.y,tmp);
+ Defvar(tmp1+"3d",pt3);
+ pt2=Parapt(pt3); // 16.05.28from
+ Defvar(tmp1+"2d",pt2); // 16.05.28upto
+ );
+ );
+ ,
+ if(isselected(NE) % isselected(SW),
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp=select(VLIST,#_1==tmp1+"3d");
+ pt3=tmp_1_2;
+ tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
+ parse(tmp);
+ );
+ );
+ ,
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp4=remove(tmp,ptexception);
+ forall(tmp4,pt,
+ tmp1=text(pt);
+ tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
+ if(tmp!="z",
+ tmp2=parse(tmp1+"z");
+ if(isselected(pt) % isselected(tmp2),
+ Defvar(tmp1+"2d",pt.xy);
+ tmp=parse(tmp1+"z.y");
+ tmp=Xyzcoord(pt.x,pt.y,tmp);
+ Defvar(tmp1+"3d",tmp);
+ );
+ );
+ );
+ );
+ );
+ forall(Datalist3d(),#,
+ tmp1=replace(#,"3d","2d");
+ tmp2=Projpara(#,["nodata"]);
+ tmp=tmp1+"="+textformat(tmp2,5);
+ parse(tmp);
+ );
+ Ptseg3data(ptexception);
+);
+
+Changestyle3d(nameL,style):=(
+//help:Changestyle3d(["geoseg3d","ax3d"],["notex"]);
+ regional(nmL,name,tmp,tmp1,tmp2);
+ if(islist(nameL),nmL=nameL,nmL=[nameL]);
+ tmp1=[];
+ forall(nmL,name,
+ tmp=parse(name);
+ if(isstring(tmp_1),
+ tmp1=concat(tmp1,tmp);
+ ,
+ tmp1=append(tmp1,name);
+ );
+ tmp=apply(tmp1,replace(#,"3d","2d"));
+ Changestyle(tmp,style);
+ tmp=apply(tmp,"sub"+#); // 15.05.24
+ Changestyle(tmp,style);
+ );
+);
+
+Dist3d(pt1):=Dist3d(pt1,[0,0,0]);
+Dist3d(pt1,pt2):=(
+//help:Dist3d(A3d,B3d);
+//help:Dist3d(A,B);
+//help:Dist3d("A","B");
+ regional(p1,p2);
+ if(islist(pt1),
+ p1=pt1;
+ ,
+ if(ispoint(pt1),p1=text(pt1),p1=pt1);
+ p1=parse(p1+"3d");
+ );
+ if(islist(pt2),
+ p2=pt2;
+ ,
+ if(ispoint(pt2),p2=text(pt2),p2=pt2);
+ p2=parse(p2+"3d");
+ );
+ sqrt((p2-p1)*(p2-p1));
+);
+
+Findangle(vec):=(
+//help:Findangle([2,1,4]);
+//help:Findangle([0,0,1,0]);
+ regional(vec3,vec2,Eps,th,ph,tmp);
+ Eps=10^(-4);
+ vec3=vec_(1..3);
+ vec2=vec_(1..2);
+ th=arccos(vec_3/|vec3|);
+ if(|vec2|>Eps,
+ ph=arccos(vec_1/|vec2|);
+ if(vec_2<0,
+ ph=2*pi-ph; // 15.03.28
+ );
+ ,
+ if(length(vec)>3,ph=vec_4*pi/180,ph=PHI);
+ );
+ [th,ph];
+);
+
+Cancoordpara(pc):=(
+//help:Cancoordpara([1,2,0]);
+ regional(Xz,Yz,Zz,tmp1,tmp2,tmp3);
+ Xz=pc_1; Yz=pc_2; Zz=pc_3;
+ tmp1=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
+ tmp2=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
+ tmp3=Yz*sin(THETA)+Zz*cos(THETA);
+ [tmp1,tmp2,tmp3];
+);
+
+Zparapt(cc):=(
+ regional(x,y,z);
+ x=cc_1; y=cc_2; z=cc_3;
+ x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
+);
+
+Projcoordpara(cc):=(
+//help:Projcoordpara([3,1,2]);
+ regional(tmp);
+ tmp=Parapt(cc);
+ [tmp_1,tmp_2,Zparapt(cc)];
+);
+
+Parapt(pt):=(
+//help:Parapt([2,1,5]);
+ regional(Xz,Yz);
+ Xz=-pt_1*sin(PHI)+pt_2*cos(PHI);
+ Yz=-pt_1*cos(PHI)*cos(THETA)-pt_2*sin(PHI)*cos(THETA)+pt_3*sin(THETA);
+ [Xz,Yz];
+);
+
+ProjCurve(crv):=(
+//help:Projcurve("sl3d1");
+ regional(CurveL,Curve,Eps,AnsL,Out,sp,cp,st,,ct,ii,pt,
+ Xz,Yz,tmp,tmp1,tmp2);
+ Eps=10^(-6);
+ sp=sin(PHI); cp=cos(PHI);
+ st=sin(THETA); ct=cos(THETA);
+ if(isstring(crv),CurveL=parse(crv),CurveL=crv);
+ if(MeasureDepth(CurveL)==1,CurveL=[CurveL]);
+ Out=[];
+ forall(CurveL,Curve,
+ AnsL=[];
+ forall(1..length(Curve),ii,
+ pt=Curve_ii;
+ if(pt_1!="inf",
+ Xz=-pt_1*sp+pt_2*cp;
+ Yz=-pt_1*cp*ct-pt_2*sp*ct+pt_3*st;
+ tmp=[Xz,Yz];
+ if(ii==1,
+ AnsL=[tmp];
+ ,
+ tmp1=AnsL_(length(AnsL));
+ if(tmp1_1=="inf" % |tmp-tmp1|>Eps,
+ AnsL=append(AnsL,tmp);
+ );
+ );
+ ,
+ AnsL=append(AnsL,["inf"]);
+ );
+ );
+ tmp1=[];
+ tmp2=select(1..length(AnsL),AnsL_#==["inf"]);
+ tmp=1;
+ forall(tmp2,
+ if(#>tmp,
+ tmp1=concat(tmp1,[AnsL_(tmp..(#-1))])
+ );
+ tmp=#+1;
+ );
+ if(tmp<length(AnsL),
+ tmp1=concat(tmp1,[AnsL_(tmp..length(AnsL))]);
+ );
+ AnsL=tmp1;
+ if(length(AnsL)==1,AnsL=AnsL_1);
+ Out=append(Out,AnsL);
+ );
+ if(length(Out)==1,
+ Out=Out_1;
+ );
+ Out;
+);
+
+Projpara(ptdata):=Projpara(ptdata,[]);
+Projpara(ptdata,options):=(
+ regional(name2,name3,Ltype,Noflg,opcindy,dtL,ptL,tmp,Out);
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ if(islist(ptdata),dtL=ptdata,dtL=[ptdata]);
+ Out=[];
+ forall(dtL,name3,
+// name3=#;
+ if(indexof(name3,"3d")>0, //17.05.24
+ name2=replace(name3,"3d","2d");
+ ,
+ name2="para"+name3;
+ );
+ ptL=Projcurve(name3);
+ ptL=select(ptL,length(#)>1);//17.06.02
+ if(length(ptL)==1,
+ ptL=ptL_1;
+ );
+ Out=append(Out,ptL);
+ if(Noflg<3,
+ println("generate projparadata "+name2);
+ tmp=name2+"="+textformat(ptL,5);
+ parse(tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ );
+ );
+ if(length(Out)==1,Out=Out_1);
+// Out=Flattenlist(Out);
+ if(length(Out)==1,Out=Out_1); // 15.02.24
+ tmp=[];
+ forall(Out,
+ if(length(#)>0,tmp=append(tmp,#));
+ );
+ Out=tmp;
+ Out;
+);
+
+InvparaptPp(pt,pd):=(
+ regional(Eps,fk,nfk,ph,fh,ah,bh,ak,bk,v1,v2,
+ nn,s0,t2,out,tmp,tmp1,tmp2,flg);
+ Eps=10^(-4);
+ if(isstring(pd),
+ fk=pd;
+ ,
+ fk=textformat(pd,5);
+ );
+ nfk=Numptcrv(parse(fk));
+ flg=0;
+ tmp=pt;
+ if(length(tmp)==1,
+ ph=tmp;
+ fh=pd;
+ ,
+ fh=Projpara(fk,["nodata"]);
+ if(nfk>2,
+ tmp1=Nearestpt(tmp,fh);
+ ph=tmp1_2;
+ ,
+ ah=Ptcrv(1,fh); bh=Ptcrv(2,fh);
+ v1=tmp-ah; v2=bh-ah;
+ tmp1=Crossprod(v1,v2);
+ if(abs(tmp1)>Eps,
+ println(" Not on the line");
+ out=[];
+ flg=1;
+ ,
+ ph=Dotprod(v1,v2)/|v2|^2+1;
+ );
+ );
+ );
+ if(flg==0,
+ if(nfk>2,
+ nn=floor(ph);
+ s0=ph-nn;
+ if(ph>Numptcrv(fh)-Eps,
+ out=[Ptend(fk),Numptcrv(fh)];
+ flg=1;
+ );
+ ,
+ nn=1;
+ s0=ph-1;
+ );
+ );
+ if(flg==0,
+ ak=Ptcrv(nn,fk); bk=Ptcrv(nn+1,fk);
+ ah=Ptcrv(nn,fh); bh=Ptcrv(nn+1,fh);
+ ph=(1-s0)*ah+a0*bh;
+ t2=s0;
+ pk=(1-t2)*ak+t2*bk;
+ out=[pk,nn+t2];
+ );
+ out;
+);
+
+Invparapt(pt,pd):=(
+ regional(tmp);
+ tmp=InvparaptPp(pt,pd);
+ tmp_1;
+);
+
+Subgraph(name,opcindy):=(
+ regional(tht,tmp,tmp1);
+ tht=THETA; THETA=pi/2;
+ tmp=Projpara(name3,["nodata"]);
+ if(length(tmp)>0, //15.08.17
+ tmp=Translatedata("",[tmp],[NE.x-SW.x,0],["nodata"]);
+ tmp1=replace("sub"+name,"3d","2d");
+ tmp=tmp1+"="+Textformat(tmp,5);
+ parse(tmp);
+ GCLIST=append(GCLIST,[tmp1,0,opcindy]);
+ );
+ THETA=tht; // 15.11.03
+);
+
+Spaceline(ptlist):=Spaceline(ptlist,[]); // 16.02.22 from
+Spaceline(Arg1,Arg2):=(
+ regional(name,tmp,tmp1,tmp2);
+ if(isstring(Arg1),
+ Spaceline(Arg1,Arg2,[]);
+ ,
+ tmp=text(Arg1);
+ tmp=substring(tmp,1,length(tmp)-1);
+ name="-"+replace(tmp,",","");
+ Spaceline(name,Arg1,Arg2);
+ );
+); // 16.02.22 upto
+Spaceline(nm,ptlistorg,optionorg):=(
+//help:Spaceline("1",[[2,5,1],[4,2,3]]);
+//help:Spaceline([A,B]);
+ regional(name2,name3,options,Out,tmp,tmp1,tmp2,
+ opstr,opcindy,Ltype,Noflg,eqL,ptlist, Msg);
+ ptlist=apply(ptlistorg,if(ispoint(#),parse(text(#)+"3d"),#)); // 16.02.10
+ if(substring(nm,0,2)=="bz",
+ name2=replace(nm,"bz","bz2d");
+ name3=replace(nm,"bz","bz3d");
+ ,
+ if(substring(nm,0,1)=="-",
+ tmp=substring(nm,1,length(nm));
+ if(indexof(tmp,"3d")>0,name3=tmp,name3=tmp+"3d");
+ name2=replace(name3,"3d","2d");
+ ,
+ name2="sl2d"+nm;
+ name3="sl3d"+nm;
+ );
+ );
+ options=select(optionorg,length(#)>0); // 160415
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ opcindy=tmp_(length(tmp));
+ Msg=1;
+ forall(eqL,
+ tmp=substring(#,0,1);
+ if(Toupper(tmp)=="M",
+ tmp=indexof(#,"=");
+ tmp1=substring(#,tmp,tmp+1);
+ if(Toupper(tmp1)=="N",
+ Msg=0;
+ );
+ );
+ );
+ if(Noflg<3,
+ if(Msg==1,
+ println("generate Spaceline "+name3);
+ );
+ tmp=name3+"="+ptlist;
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp="[";
+ forall(ptlist, //17.07.13from
+ if(isstring(#),
+ tmp=tmp+#+",";
+ ,
+ tmp=tmp+textformat(#,5)+",";
+ );
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+"]";
+ tmp=name3+"=Spaceline("+tmp+")"; //17.07.13upto
+// tmp=name3+"=Spaceline("+textformat(ptlist,5)+")"; //17.05.24
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ ptlist;
+);
+
+Spacecurve(nm,funstr,variable):=Spacecurve(nm,funstr,variable,[]);
+Spacecurve(nm,funstr,variable,optionorg):=(
+//help:Spacecurve("1","[cos(t),sin(t),0.5*t]","t=[0,4*pi]",["Num=200"]);
+ regional(name2,name3,options,Out,tmp,tmp1,tmp2,vname,tmpfn,str,Rng,Num,Msg,
+ Ec,Exfun,Dc,opstr,opcindy,Fntmp,Vatmp,Ltype,Noflg,eqL,t1,t2,dt,tt,pa,ke);
+ if(substring(nm,0,2)=="bz",
+ name2=replace(nm,"bz","bz2d");
+ name3=replace(nm,"bz","bz3d");
+ ,
+ name2="sc2d"+nm;
+ name3="sc3d"+nm;
+ );
+ Eps=10^(-4);
+ Num=50;
+ Ec=[];
+ Exfun="";
+ Dc=1000;
+ options=select(optionorg,length(#)>0); // 160415
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ Msg=1;
+ forall(eqL,
+ tmp=substring(#,0,1);
+ if(Toupper(tmp)=="M",
+ tmp=indexof(#,"=");
+ tmp1=substring(#,tmp,tmp+2);
+ if(Toupper(tmp1)=="NO",
+ Msg=0;
+ );
+ );
+ tmp=indexof(#,"N=");
+ if(tmp>0,
+ tmp1=substring(#,tmp+1,length(#));
+ Num=parse(tmp1);
+ opstr=opstr+",'"+#+"'";
+ );
+ tmp=indexof(#,"Num=");
+ if(tmp>0,
+ tmp1=substring(#,tmp+3,length(#));
+ Num=parse(tmp1);
+ opstr=opstr+",'"+#+"'";
+ );
+ tmp=indexof(#,"E=");
+ if(tmp>0,
+ tmp1=substring(#,tmp+1,length(#));
+ if(substring(tmp1,0,1)=="[",
+ Ec=parse(tmp1);
+ ,
+ Exfun=tmp1;
+ );
+ opstr=opstr+",'"+#+"'";
+ );
+ tmp=indexof(#,"Exc=");
+ if(tmp>0,
+ tmp1=substring(#,tmp+3,length(#));
+ if(substring(tmp1,0,1)=="[",
+ Ec=parse(tmp1);
+ ,
+ Exfun=tmp1;
+ );
+ );
+ );
+ tmp=indexof(variable,"=");
+ vname=substring(variable,0,tmp-1);
+ str=substring(variable,tmp,length(variable));
+ Rng=parse(str);
+ t1=Rng_1; t2=Rng_2;
+ dt=(t2-t1)/Num; // differ from Scilab
+ tmp="tmpfn("+vname+"):="+funstr+";";
+ parse(tmp);
+ Out=[];
+ Ec=append(sort(Ec),10000);
+ ke=1;
+ forall(0..Num,
+ pt=[];
+ tt=Rng_1+#*dt;
+ if(tt-Ec_ke<-Eps,
+ pa=tmpfn(tt);
+ );
+ if(abs(tt-Ec_ke)<=Eps,
+ if(length(Out)>0,
+ if(Out_(length(Out))_1!="inf",
+ pa=["inf"];
+ );
+ );
+ );
+ if(tt-Ec_ke>Eps,
+ pa=tmpfn(tt);
+ ke=ke+1;
+ );
+ if(length(pa)>0,
+ if(pa_1=="inf",
+ Out=append(Out,pa);
+ ,
+ if(length(Out)==0,
+ Out=[pa];
+ ,
+ tmp=Out_(length(Out));
+ if(tmp_1=="inf",
+ Out=append(Out,pa);
+ ,
+ if(|tmp-pa|<Dc,
+ Out=append(Out,pa);
+ ,
+ Out=concat(Out,[["inf"],pa]);
+ );
+ );
+ );
+ );
+ );
+ );
+ tmp1=[];
+ tmp2=select(1..length(Out),Out_#==["inf"]);
+ tmp=1;
+ forall(tmp2,
+ if(#>tmp,
+ tmp1=concat(tmp1,[Out_(tmp..(#-1))])
+ );
+ tmp=#+1;
+ );
+ if(tmp<length(Out),
+ tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
+ );
+ if(length(Out)==1,
+ Out=Out_1;
+ );
+ if(Noflg<3,
+ if(Msg==1,
+ println("generate Spacecurve "+name3);
+ );
+ tmp=name3+"="+textformat(Out,5);
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=name3+"=Spacecurve(Assign('"+funstr+"'),'"+variable+"'"+opstr+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ tmp=parse(name2); // 15.08.17
+ if(length(tmp)>0,
+ Subgraph(name3,opcindy);
+ ); // 15.08.17
+ );
+ );
+ Out;
+);
+
+Partcrv3d(nm,pA,pB,PkLstr):=Partcrv3d(nm,pA,pB,PkLstr,[]);
+Partcrv3d(nm,pA,pB,PkLstr,options):=(
+//help:Partcrv3d("1",A,B,"sl3d1");
+//help:Partcrv3d("1",1.3,2.5,"sl3d1");
+ regional(p1,p2,q1,q2,dt1,dts,dt3,tmp,tmp1,tmp2);
+ if(isreal(pA),
+ p1=pA; q1=pA;
+ ,
+ if(islist(pA),
+ tmp=pA;
+ ,
+ if(ispoint(pA),tmp=text(pA),tmp=pA);
+ tmp=parse(tmp+"3d");
+ );
+ p1=parapt(tmp);
+ q1=[p1_1,tmp_3]+[NE.x-SW.x,0];
+ );
+ if(isreal(pB),
+ p2=pB; q2=pB;
+ ,
+ if(islist(pB),
+ tmp=pB;
+ ,
+ if(ispoint(pB),tmp=text(pB),tmp=pB);
+ tmp=parse(tmp+"3d");
+ );
+ p2=parapt(tmp);
+ q2=[p2_1,tmp_3]+[NE.x-SW.x,0];
+ );
+ tmp=replace(PkLstr,"3d","2d");
+ dt1=partcrv("",p1,p2,tmp,["nodata"]);
+ dts=partcrv("",q1,q2,"sub"+tmp,["nodata"]);
+ dt=apply(1..length(dt1),
+ Xyzcoord(dt1_#_1,dt1_#_2,dts_#_2));
+ Spaceline("-part3d"+nm,dt,options);
+);
+
+Joincrvs3d(nm,plotstrL):=Joincrvs3d(nm,plotstrL,[]);//16.10.06
+Joincrvs3d(nm,plotstrL,options):=(
+//help:Joincrvs3d("1",["bz3da1","bz3da1"]);
+ regional(PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
+ opcindy,tmp,tmp1,tmp2,str,name2,name3,Ltype,Noflg);
+ name2="join2d"+nm;
+ name3="join3d"+nm;
+ QdL=[];
+ forall(plotstrL,str,
+ if(isstring(str),
+ tmp=parse(str);
+ ,
+ tmp=str;
+ );
+ QdL=append(QdL,tmp);
+ );
+ Eps=10^(-4);
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ tmp1=tmp_6;
+ if(length(tmp1)>0,Eps=tmp1_1);
+ Flg=0;
+ if(length(QdL)==0,
+ PtL=[];
+ Flg=1;
+ );
+ if(Flg==0,
+ PtL=QdL_1;
+ forall(2..length(QdL),Ni,
+ Qd=QdL_Ni;
+ if(length(Qd)>1,
+ pP=PtL_1;
+ pS=PtL_(length(PtL));
+ pQ=Qd_1;
+ pR=Qd_(length(Qd));
+ rMN=min([norm(pP-pQ),norm(pP-pR),
+ norm(pS-pQ),norm(pS-pR)]);
+ if(rMN==norm(pP-pR),
+ Qd=reverse(Qd);
+ ,
+ if(rMN==norm(pS-pQ),
+ PtL=reverse(PtL);
+ ,
+ if(rMN==norm(pS-pR),
+ PtL=reverse(PtL);
+ Qd=reverse(Qd);
+ );
+ );
+ );
+ );
+ if(rMN>Eps,
+ PtL=concat(PtL,Qd);
+ ,
+ PtL=concat(PtL,Qd_(2..length(Qd)));
+ );
+ );
+ );
+ if(Noflg<3,
+ println("generate Joincurves3d "+name3);
+ tmp=name3+"="+textformat(PtL,5);
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=text(plotstrL);
+ tmp=substring(tmp,1,length(tmp)-1);
+ tmp=name3+"=Joincrvs("+tmp+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ tmp=parse(name2); // 15.08.17
+ if(length(tmp)>0,
+ Subgraph(name3,opcindy);
+ ); // 15.08.17
+ );
+ );
+ PtL;
+);
+
+Xyzax3data(nm,Xrange,Yrange,Zrange):=
+ Xyzax3data(nm,Xrange,Yrange,Zrange,[]);
+Xyzax3data(nm,Xrange,Yrange,Zrange,options):=(
+//help:Xyzax3data("","x=[-5,5]","y=[-5,5]","z=[-5,5]");
+//help:Xyzax3data(Options2=["a1","Osw"]);
+ regional(name2,name3,Out,tmp,tmp1,tmp2,eqL,reL,strL,
+ opstr,opcindy,Ltype,Noflg,Axname,Arrow,Origin);
+ name2="ax2d"+nm;
+ name3="ax3d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ opcindy=tmp_(length(tmp));
+ Axname=1;
+ Arrow=0; // 16.08.14
+ Origin=""; // 16.08.14
+ if(length(reL)>0,
+ Axname=reL_1;
+ );
+ forall(strL, // 16.08.14from
+ tmp1=Toupper(substring(#,0,1));
+ if(tmp1=="A",
+ tmp=substring(#,1,length(#));
+ if(length(tmp)>0,
+ Arrow=parse(tmp);
+ ,
+ Arrow=1;
+ );
+ );
+ if(tmp1=="O",
+ tmp=indexof(#,",");
+ if(tmp>0,
+ Origin=substring(#,tmp,length(#));
+ ,
+ tmp=substring(#,1,length(#));
+ if(length(tmp)>0,
+ Origin=tmp;
+ ,
+ Origin="sw";
+ );
+ );
+ );
+ ); // 16.08.14upto
+ tmp1=indexof(Xrange,"=");
+ tmp=parse(substring(Xrange,tmp1,length(Xrange)));
+ Px=[tmp_1,0,0]; Qx=[tmp_2,0,0];
+ tmp1=indexof(Yrange,"=");
+ tmp=parse(substring(Yrange,tmp1,length(Yrange)));
+ Py=[0,tmp_1,0]; Qy=[0,tmp_2,0];
+ tmp1=indexof(Zrange,"=");
+ tmp=parse(substring(Zrange,tmp1,length(Zrange)));
+ Pz=[0,0,tmp_1]; Qz=[0,0,tmp_2];
+ Out=[[Px,Qx],[Py,Qy],[Pz,Qz]];
+ if(Axname>0,
+ Xyzaxparaname(Xrange,Yrange,Zrange,[Axname]);
+ );
+ if(Noflg<3,
+ println("generate axes "+name3);
+ tmp=name3+"="+textformat(Out,5);
+ parse(tmp);
+ tmp1=Projpara([name3],["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=name3+"=Xyzax3data("+
+ Dq+Xrange+Dq+","+Dq+Yrange+Dq+","+Dq+Zrange+Dq+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(Noflg<1, // 16.08.14from
+ if(Arrow>0,
+ tmp1=Parapt(Px); tmp2=Parapt(Qx);
+ Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
+ tmp1=Parapt(Py); tmp2=Parapt(Qy);
+ Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
+ tmp1=Parapt(Pz); tmp2=Parapt(Qz);
+ Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
+ );
+ if(length(Origin)>0,
+ Letter([Parapt([0,0,0]),Origin,"O"]);
+ );
+ ); // 16.08.14upto
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ Out;
+);
+
+Xyzaxparaname(Xrange,Yrange,Zrange):=
+ Xyzaxparaname(Xrange,Yrange,Zrange,[]);
+Xyzaxparaname(Xrange,Yrange,Zrange,options):=(
+ regional(tmp,tmp1,tmp2,Eps,Dr,Noflg,Xname,Yname,Zname,
+ px,qx,py,qy,pz,qz,ph,qh,rr,ch);
+ Eps=10.0^(-6);
+ Dr=0.19*1000/2.54/MilliIn;
+ Noflg=0;
+ forall(options,
+ if(isreal(#),Dr=Dr*#);
+ );
+ tmp=indexof(Xrange,"=");
+ Xname=substring(Xrange,0,tmp-1);
+ tmp=parse(substring(Xrange,tmp,length(Xrange)));
+ px=[tmp_1,0,0]; qx=[tmp_2,0,0];
+ tmp=indexof(Yrange,"=");
+ Yname=substring(Yrange,0,tmp-1);
+ tmp=parse(substring(Yrange,tmp,length(Yrange)));
+ py=[0,tmp_1,0]; qy=[0,tmp_2,0];
+ tmp=indexof(Zrange,"=");
+ Zname=substring(Zrange,0,tmp-1);
+ tmp=parse(substring(Zrange,tmp,length(Zrange)));
+ pz=[0,0,tmp_1]; qz=[0,0,tmp_2];
+ ph=Parapt(px); qh=Parapt(qx); rr=|ph-qh|;
+ if(rr>Eps,
+ ch=qh+Dr/rr*(qh-ph);
+ Expr(ch,"c",Xname);
+ );
+ ph=Parapt(py); qh=Parapt(qy); rr=|ph-qh|;
+ if(rr>Eps,
+ ch=qh+Dr/rr*(qh-ph);
+ Expr(ch,"c",Yname);
+ );
+ ph=Parapt(pz); qh=Parapt(qz); rr=|ph-qh|;
+ if(rr>Eps,
+ ch=qh+Dr/rr*(qh-ph);
+ Expr(ch,"c",Zname);
+ );
+);
+
+Datalist3d():=(
+//help:Datalist3d();
+ regional(out,tmp,tmp2,tmp3);
+ tmp=apply(GCLIST,#_1);
+ tmp=select(tmp,indexof(#,"2d")>0);
+ tmp2=select(tmp,indexof(#,"sub")==0);
+ tmp3=apply(tmp2,replace(#,"2d","3d"));
+ out=tmp3;
+);
+
+Datalist2d():=(
+//help:Datalist2d();
+ regional(out,tmp,tmp2,tmp3);
+ tmp=apply(GCLIST,#_1);
+ tmp=select(tmp,indexof(#,"2d")>0);
+ tmp2=select(tmp,indexof(#,"sub")==0);
+// tmp3=apply(tmp2,replace(#,"2d","3d"));
+ out=tmp2;
+);
+
+Embed(nm,Pd2str,funstr,varstr):=
+ Embed(nm,Pd2str,funstr,varstr,[]);
+Embed(nm,Pd2str,funstr,varstr,options):=(
+//help:Embed("1",["gr1"],"A3d+x*(B3d-A3d)+y*(C3d-A3d)","[x,y]");
+ regional(name2,name3,Pd2L,Pd2,tmp,tmp1,xstr,ystr,
+ Ltype,Noflg,opstr,opcindy,Out);
+ name2="em2d"+nm;
+ name3="em3d"+nm;
+ if(!islist(Pd2str),Pd2L=[Pd2str],Pd2L=Pd2str); // 15.03.06
+ tmp1=[]; // 15.10.31
+ forall(Pd2L,
+ if(isstring(#),tmp=parse(#),tmp=#);
+ if(MeasureDepth(tmp)==2,
+ tmp1=concat(tmp1,tmp);
+ );
+ if(MeasureDepth(tmp)==1,
+ tmp1=append(tmp1,tmp);
+ );
+ );
+ Pd2L=tmp1;
+ tmp=substring(varstr,0,1);
+ if(tmp=="[" % tmp=="(",
+ tmp1=substring(varstr,1,length(varstr)-1);
+ ,
+ tmp1=varstr;
+ );
+ tmp=indexof(tmp1,",");
+ xstr=substring(tmp1,0,tmp-1);
+ ystr=substring(tmp1,tmp,length(tmp1));
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ Out=[];
+ forall(Pd2L,Pd2,
+ tmp1=[];
+ forall(Pd2,
+ tmp=Assign(funstr,xstr,"("+textformat(#_1,5)+")");
+ tmp=Assign(tmp,ystr,"("+textformat(#_2,5)+")");
+ tmp=parse(tmp);
+ tmp1=append(tmp1,tmp);
+ );
+ Out=append(Out,tmp1);
+ );
+ if(length(Out)==1,
+ Out=Out_1;
+ );
+ if(Noflg<3,
+ println("generate Embed "+name3);
+ if(length(Out)>0,
+ tmp=name3+"="+textformat(Out,5);
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ );
+ if(!islist(Pd2str),
+ tmp=Pd2str;
+ ,
+ tmp=text(Pd2str);
+ tmp="list("+substring(tmp,1,length(tmp)-1)+")";
+ );
+ tmp=name3+"=Embed("+tmp+",'"+funstr+"','"+varstr+"'"+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ if(length(Out)>0,
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ );
+ Out;
+);
+
+Rotatept3d(point,w1,w2):=Rotate3pt(point,w1,w2);
+Rotatept3d(point,w1,w2,center):=Rotate3pt(point,w1,w2,center);
+//help:Rotatept3d(pt3d,[0,0,1],pi/2);
+//help:Rotatept3d(pt3d,[0,0,1],pi/2,[1,1,1]);
+Rotate3pt(point,w1,w2):=Rotate3pt(point,w1,w2,[0,0,0]);
+Rotate3pt(point,w1,w2,center):=(
+//help:Rotate3pt(pt3d,[0,0,1],pi/2);
+//help:Rotate3pt(pt3d,[0,0,1],pi/2,[1,1,1]);
+ regional(Eps,ct,st,v3,v1,v2,Ans,ns,PtL,num,
+ pt,tmp,tmp1,tmp2,Retflg,x,y,z,xx,yy,zz,flg);
+ Eps=10^(-4);
+ Retflg=0;
+ if(length(w2)==1,
+ ct=cos(w2);
+ st=sin(w2);
+ v3=1/|w1|*w1;
+ if(v3_1==0,
+ tmp=[1,0,0];
+ ,
+ tmp=[0,1,0];
+ );
+ w1=[tmp_2*v3_3-tmp_3*v3_2,
+ tmp_3*v3_1-tmp_1*v3_3,
+ tmp_1*v3_2-tmp_2*v3_1];
+ v1=1/|w1|*w1;
+ v2=[v3_2*v1_3-v3_3*v1_2,
+ v3_3*v1_1-v3_1*v1_3,
+ v3_1*v1_2-v3_2*v1_1];
+ ,
+ tmp=[w1_2*w2_3-w1_3*w2_2,
+ w1_3*w2_1-w1_1*w2_3,
+ w1_1*w2_2-w1_2*w2_1];
+ if(|tmp|<Eps,
+ Ans=point;
+ Retflg=1;
+ );
+ if(Retflg==0,
+ v1=1/|w1|*w1;
+ ns=v1_1*w2_1+v1_2*w2_2+v1_3*w2_3;
+ tmp=w2-ns*v1;
+ v2=1/|tmp|*tmp;
+ tmp=[v1_2*v2_3-v1_3*v2_2,
+ v1_3*v2_1-v1_1*v2_3,
+ v1_1*v2_2-v1_2*v2_1];
+ v3=1/|tmp|*tmp;
+ ct=ns/|w2|;
+ st=sqrt(1-ct^2);
+ );
+ );
+ if(Retflg==0,
+ if(|tmp|<Eps,
+ Ans=point;
+ Retflg=1;
+ );
+ );
+ if(Retflg==0,
+ if(MeasureDepth(point)>0,
+ PtL=point;
+ ,
+ PtL=[point];
+ );
+ Ans=[];
+ flg=0;
+ forall(1..length(PtL),num,
+ pt=PtL_num;
+ if(pt_1=="inf",
+ Ans=append(Ans,["inf"]);
+ flg=1;
+ );
+ if(flg==0,
+ x=pt_1-center_1; y=pt_2-center_2; z=pt_3-center_3;
+ xx=((v1_1*ct+v2_1*st)*v1_1+ (-v1_1*st+v2_1*ct)*v2_1+v3_1^2)*x
+ +((v1_1*ct+v2_1*st)*v1_2+(-v1_1*st+v2_1*ct)*v2_2+v3_1*v3_2)*y
+ +((v1_1*ct+v2_1*st)*v1_3+(-v1_1*st+v2_1*ct)*v2_3+v3_1*v3_3)*z;
+ yy=((v1_2*ct+v2_2*st)*v1_1+(-v1_2*st+v2_2*ct)*v2_1+v3_1*v3_2)*x
+ +((v1_2*ct+v2_2*st)*v1_2+(-v1_2*st+v2_2*ct)*v2_2+v3_2^2)*y
+ +((v1_2*ct+v2_2*st)*v1_3+(-v1_2*st+v2_2*ct)*v2_3+v3_2*v3_3)*z;
+ zz=((v1_3*ct+v2_3*st)*v1_1+(-v1_3*st+v2_3*ct)*v2_1+v3_1*v3_3)*x
+ +((v1_3*ct+v2_3*st)*v1_2+(-v1_3*st+v2_3*ct)*v2_2+v3_2*v3_3)*y
+ +((v1_3*ct+v2_3*st)*v1_3+(-v1_3*st+v2_3*ct)*v2_3+v3_3^2)*z;
+ Ans=append(Ans,center+[xx,yy,zz]);
+ );
+ );
+ if(length(Ans)==1,
+ Ans=Ans_1;
+ );
+ );
+ Ans;
+);
+
+Rotatedata3d(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2);
+Rotatedata3d(nm,P3data,w1,w2,options):=
+ Rotate3data(nm,P3data,w1,w2,options);
+//help:Rotatedata3d("1",["sl3d1","sc3d2"],[0,0,1],pi/3);
+Rotate3data(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2,[]);
+Rotate3data(nm,P3data,w1,w2,options):=(
+ regional(name3,name2,center,pdata,Pd3,Pd,Out,tmp,tmp1,
+ Ltype,Noflg,opcindy,opstr);
+ name3="rot3d"+nm;
+ name2="rot2d"+nm;
+ center=[0,0,0];
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ tmp1=tmp_6;
+ if(length(tmp1)>0,
+ center=tmp1_1;
+ );
+ if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
+ Out=[];
+ forall(Pd3,Pd,
+ if(isstring(Pd),Pd=parse(Pd));
+ if(MeasureDepth(Pd)==1,Pd=[Pd]);
+ Ans=[];
+ forall(Pd,
+ tmp=Rotate3pt(#,w1,w2,center);
+ Ans=append(Ans,tmp);
+ );
+ Out=append(Out,Ans);
+ );
+ Out=Flattenlist(Out);
+ if(length(Out)==1,Out=Out_1);
+ if(Noflg<3,
+ println("generate Rotate3data "+name3);
+ tmp=name3+"="+textformat(Out,5);
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=text(P3data);
+ tmp=replace(tmp,"[","list(");
+ tmp=replace(tmp,"]",")");
+ tmp=name3+"=Rotate3data("+tmp+","
+ +textformat(w1,5)+","+textformat(w2,5)+opstr+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ Out;
+);
+
+Translatept3d(point,w1):=Translate3pt(point,w1);
+//help:Translatept3d(pt3d,[1,2,3]);
+Translate3pt(point,w1):=(
+ regional(Eps,Ans,PtL,pt,num,xx,yy,zz,flg);
+ Eps=10^(-4);
+ if(MeasureDepth(point)>0,
+ PtL=point;
+ ,
+ PtL=[point];
+ );
+ Ans=[];
+ flg=0;
+ forall(1..length(PtL),num,
+ pt=PtL_num;
+ if(pt_1=="inf",
+ Ans=append(Ans,["inf"]);
+ flg=1;
+ );
+ if(flg==0,
+ xx=pt_1+w1_1; yy=pt_2+w1_2; zz=pt_3+w1_3;
+ Ans=append(Ans,[xx,yy,zz]);
+ );
+ );
+ if(length(Ans)==1,
+ Ans=Ans_1;
+ );
+ Ans;
+);
+
+Translatedata3d(nm,P3data,w1):=Translate3data(nm,P3data,w1);
+Translatedata3d(nm,P3data,w1,options):=
+ Translate3data(nm,P3data,w1,options);
+//help:Translatedata3d("1",["sl3d1"],[1,2,3]);
+Translate3data(nm,P3data,w1):=Translate3data(nm,P3data,w1,[]);
+Translate3data(nm,P3data,w1,options):=(
+ regional(name3,name2,pdata,Pd3,Pd,Out,tmp,tmp1,
+ Ltype,Noflg,opcindy);
+ name3="tra3d"+nm;
+ name2="tra2d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
+ Out=[];
+ forall(Pd3,Pd,
+ if(isstring(Pd),Pd=parse(Pd));
+ if(MeasureDepth(Pd)==1,Pd=[Pd]);
+ Ans=[];
+ forall(Pd,
+ tmp=Translate3pt(#,w1);
+ Ans=append(Ans,tmp);
+ );
+ Out=append(Out,Ans);
+ );
+ Out=Flattenlist(Out);
+ if(length(Out)==1,Out=Out_1);
+ if(Noflg<3,
+ println("generate Translate3data "+name3);
+ tmp=name3+"="+textformat(Out,5);
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=text(P3data);
+ tmp=replace(tmp,"[","list(");
+ tmp=replace(tmp,"]",")");
+ tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ Out;
+);
+
+Reflectpoint3d(point,vecL):=Reflect3point(point,vecL);
+Reflectpt3d(point,vecL):=Reflect3pt(point,vecL);
+//help:Reflectpoint3d(pt3d,[v1,v2,v3]);
+Reflect3point(point,vecL):=Reflect3pt(point,vecL);
+Reflect3pt(point,vecL):=(
+ regional(ans,v1,v2,v3,tmp,tmp1);
+ if(length(vecL)==1,
+ v1=vecL_1;
+ ans=2*v1-point;
+ );
+ if(length(vecL)==2,
+ v1=vecL_1;
+ v2=vecL_2;
+ v3=(v2-v1)/|v2-v1|;
+ tmp=v1+Dotprod(point-v1,v3)*v3;
+ ans=2*tmp-point;
+ );
+ if(length(vecL)==3,
+ v1=vecL_1;
+ v2=vecL_2;
+ v3=vecL_3;
+ tmp=Crossprod(v2-v1,v3-v1);
+ tmp1=point-Dotprod(tmp,point-v1)/|tmp|^2*tmp;
+ ans=2*tmp1-point;
+ );
+ ans;
+);
+
+Xyzcoord(X,Y,z):=(
+//help:Xyzcoord(A.x,A.y,Az.y);
+ regional(Eps,x3d,y3d,z3d);
+ x3d=(-X*sin(PHI)*cos(THETA)-Y*cos(PHI)+z*cos(PHI)*sin(THETA))/cos(THETA);
+ y3d=(X*cos(PHI)*cos(THETA)-Y*sin(PHI)+z*sin(PHI)*sin(THETA))/cos(THETA);
+ z3d=z;
+ [x3d,y3d,z3d];
+);
+
+PutonCurve3d(name,pdstr):=(
+//help:PutonCurve3d("T","sc3d1");
+ regional(pt,pd2str,tmp,tmp1,tmp2);
+ pd2str=replace(pdstr,"3d","2d");
+ PutonCurve(name,pd2str);
+ pt=parse(name+".xy");
+ tmp=Nearestpt(pt,pd2str); // 15.03.13
+ tmp1=ParamonCurve(tmp_1,tmp_2,pd2str);
+ tmp="sub"+pd2str;
+ tmp2=PointonCurve(tmp1,tmp);
+ pt=append(pt,tmp2_2);
+ pt=Xyzcoord(pt_1,pt_2,pt_3); // 15.03.13
+ tmp=name+"z.xy="+textformat(tmp2,5);
+ parse(tmp);
+ VLIST=select(VLIST,#_1!=name+"3d");
+ Defvar(name+"3d",pt);
+);
+
+Mkpointlist():=Mkpointlist([]); //16.11.12
+Mkpointlist(options):=( //16.11.12
+ regional(Eps,pos,ptL,plist,ilist,plistrest,
+ inforest,free,pt,pt3,ptz,par,vlistpre,
+ tmp,tmp1,tmp2,tmp3,tmp4,p1,p2,flg);
+ Eps=10^(-4);
+ tmp=Finddef(NE);
+ free=tmp_1;
+ pos=[NE.x+1,NE.y];
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp=remove(tmp,options); //16.11.12
+ plist=select(tmp,
+ substring(text(#),length(text(#))-1,length(text(#)))!="z"
+ );
+ if(SUBSCR==0,plist=[]);
+ ptL=[];
+ plistrest=[];
+ inforest=[];
+ forall(plist,pt,
+ inspect(pt,"ptsize",3);
+ inspect(pt,"color",2);
+ inspect(pt,"textsize",TSIZE);
+ ptz=text(pt)+"z";
+ tmp=Finddef(pt);
+ if(indexof(tmp_1,free)>0, // free point
+ tmp=select(VLIST,#_1==text(pt)+"3d");
+ if(length(tmp)==0,
+ tmp=pt.x+NE.x-SW.x;
+ Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
+ pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
+ Defvar(text(pt)+"3d",pt3);
+ Defvar(text(pt)+"fix",0);
+ vlistpre=VLIST; //16.08.20
+ );
+ flg=0;
+ if(isselected(pt),
+ if(parse(text(pt)+"fix")!=1, // 15.03.01
+ tmp=pt.x+NE.x-SW.x;
+ Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
+ pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
+ VLIST=select(VLIST,#_1!=text(pt)+"3d");
+ Defvar(text(pt)+"3d",pt3);
+ vlistpre=VLIST; //16.08.20
+ flg=1;
+ );
+ );
+ inspect(parse(ptz),"ptsize",3);
+ inspect(parse(ptz),"color",3);
+ inspect(parse(ptz),"textsize",TSIZEZ);
+ if(isselected(parse(ptz)),
+ if(parse(ptz+"fix")!=1, // 15.03.01
+ tmp=select(vlistpre,#_1==text(pt)+"3d"); //16.08.20
+ pt3=tmp_1_2;
+ pt3_3=parse(ptz+".y");
+ pt.xy=Parapt(pt3);
+ tmp=ptz+".x=pt.x+NE.x-SW.x";
+ parse(tmp);
+ VLIST=select(VLIST,#_1!=text(pt)+"3d");
+ Defvar(text(pt)+"3d",pt3);
+ flg=2;
+ );
+ );
+ if(flg==0,
+ tmp=select(VLIST,#_1==text(pt)+"3d");
+ if(length(tmp)>0, //17.10.07
+ pt3=tmp_1_2;
+ pt.xy=Parapt(pt3);
+ tmp=ptz+".x=pt.x+NE.x-SW.x";
+ parse(tmp);
+ ); //17.10.07
+ );
+ if(isselected(pt) % isselected(parse(ptz)),
+ drawtext(pos,text(pt3));
+ );
+ if(!contains(["p","q"],text(pt)),
+ ptL=append(ptL,pt);
+ );
+ ,
+ tmp=Findgeoinfo(pt);
+ tmp1=[parse(tmp_1),parse(tmp_2),parse(tmp_3)];
+ plistrest=append(plistrest,pt);
+ inforest=append(inforest,tmp);
+ );
+ );
+ if(length(plistrest)>0,
+ tmp=Sortpointlist([plistrest,inforest]);
+ plist=tmp_1;
+ ilist=tmp_2;
+ forall(1..length(plist),
+ pt=plist_#;
+ ptz=text(pt)+"z";
+ tmp=ilist_#;
+ p1=parse(tmp_3);
+ p2=p1+parse(tmp_2)-parse(tmp_1);
+ tmp1=p2-p1;
+ tmp2=pt-p1;
+ if(abs(tmp1_1)>abs(tmp1_2),
+ par=tmp2_1/tmp1_1;
+ ,
+ par=tmp2_2/tmp1_2;
+ );
+ tmp=ilist_#;
+ tmp1=parse(tmp_1+"3d");
+ tmp2=parse(tmp_2+"3d");
+ tmp3=parse(tmp_3+"3d");
+ tmp1=(1-par)*tmp3+par*(tmp3+tmp2-tmp1);
+ Putpoint(ptz,[pt.x+NE.x-SW.x,tmp1_3]);
+ inspect(parse(ptz),"ptsize",3);
+ inspect(parse(ptz),"color",3);
+ inspect(parse(ptz),"textsize",TSIZEZ);
+ pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
+ VLIST=select(VLIST,#_1!=tmp1+"3d");
+ Defvar(text(pt)+"3d",pt3);
+ vlistpre=VLIST; //16.08.20
+ if(isselected(pt) % isselected(parse(ptz)),
+ drawtext(pos,text(pt3));
+ );
+ if(!contains(["p","q"],text(pt)),
+ ptL=append(ptL,pt);
+ );
+ );
+ );
+ ptL;
+);
+
+Mkseg3d():=Mkseg3d([]);
+Mkseg3d(options):=(
+ regional(seg,nmseg,def,ptA,ptB,segL,opstr,opcindy,
+ name,strg,Ltype,Noflg,tht,tmp,tmp1,tmp2,tmp3);
+ name="geoseg3d";
+ strg=name+"=list(";
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ segL=[];
+ forall(allsegments(),seg,
+ inspect(seg,"labeled",false);
+ tmp=Finddef(seg);
+ def=tmp_1;
+ ptA=tmp_2;
+ ptB=tmp_3;
+ if(ispoint(parse(ptA)) & ispoint(parse(ptB)),
+ tmp1=select(VLIST,indexof(#_1,ptA+"3d")>0);
+ tmp2=select(VLIST,indexof(#_1,ptB+"3d")>0);
+ if(length(tmp1)>0 & length(tmp2)>0,
+ tmp1="["+ptA+"3d,"+ptB+"3d]";
+ nmseg=ptA+ptB;
+// Spaceline(nmseg,parse(tmp1),append(options,"Msg=nodisp")); //15.06.15
+ Spaceline("-"+nmseg+"3d",[ptA+"3d",ptB+"3d"], // 16.04.07
+ append(options,"Msg=nodisp")); //15.06.15
+ segL=append(segL,nmseg+"3d");// 16.04.07
+ strg=strg+nmseg+"3d,";// 16.04.07
+ );
+ );
+ );
+ println("generate totally "+name);
+ if(length(segL)>0, // 15.03.06
+ strg=substring(strg,0,length(strg)-1)+")";
+ if(Noflg<3,
+ GLIST=append(GLIST,strg);
+ );
+ tmp1=apply(segL,Dq+#+Dq); //15.03.02
+ tmp=name+"="+text(tmp1);
+ parse(tmp);
+ );
+ segL;
+);
+
+Ptseg3data():=Ptseg3data([]);
+//help:Ptseg3data();
+//help:Ptseg3data([A,B]);
+Ptseg3data(options):=(
+ regional(pt,pt3,plist,tmp,tmp1,tmp2);
+ if(isselected(TH) % isselected(FI),
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp=remove(tmp,options); //16.11.12
+ tmp=apply(tmp,text(#));
+ plist=select(tmp,substring(#,length(#)-1,length(#))!="z");
+ forall(plist,pt,
+ tmp1=text(pt);
+ tmp=select(VLIST,#_1==tmp1+"3d"); //17.10.07
+ if(length(tmp)>0,
+ pt3=tmp_1_2;
+ tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
+ parse(tmp);
+ if(SUBSCR==1,
+ tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
+ parse(tmp);
+ );
+ );
+ );
+ ,
+ Mkpointlist(options); // 16.12.18
+ );
+ forall(alllines(),
+ #.color=[0.5,0.5,1];
+ );
+ SEG3dlist=Mkseg3d(options);
+ SEG3dlist;
+);
+
+Putonseg3d(name,ptL):=Putonseg3d(name,ptL_1,ptL_2,[]);
+Putonseg3d(name,Arg1,Arg2):=(
+ if(islist(Arg1),
+ Putonseg3d(name,Arg1_1,Arg1_2,Arg2);
+ ,
+ Putonseg3d(name,Arg1,Arg2,[]);
+ );
+);
+Putonseg3d(name,pt1,pt2,options):=(
+//help:Putonseg3d("C",[A,B]);
+//help:Putonseg3d("C",A,B);
+ regional(par,pn1,pn2,tmp,tmp1,tmp2,tmp3);
+ par=0.5;
+ tmp=divoptions(options);
+ if(length(tmp_6)>0,
+ par=tmp_6_1;
+ );
+ Putonseg(name,pt1,pt2,[par]);
+ inspect(parse(name),"ptsize",3);
+ inspect(parse(name),"color",2);
+ inspect(parse(name),"textsize",TSIZEZ);
+ Putpoint(name+"z",[parse(name+".x"),0]);
+ inspect(parse(name+"z"),"ptsize",3);
+ inspect(parse(name+"z"),"color",3);
+ inspect(parse(name+"z"),"textsize",TSIZEZ);
+ pn1=text(pt1);
+ pn2=text(pt2);
+ tmp1=replace("PTCz.y=PTAz.y+|PTC-PTA|/|PTB-PTA|*(PTBz.y-PTAz.y)","PTC",name);
+ tmp1=replace(tmp1,"PTA",pn1);
+ tmp1=replace(tmp1,"PTB",pn2);
+ tmp2=replace("PTCz.x=PTAz.x+|PTC-PTA|/|PTB-PTA|*(PTBz.x-PTAz.x)","PTC",name);
+ tmp2=replace(tmp2,"PTA",pn1);
+ tmp2=replace(tmp2,"PTB",pn2);
+ parse(tmp2);
+ parse(tmp1);
+ tmp1=parse(name+".x");
+ tmp2=parse(name+".y");
+ tmp3=parse(name+"z.y");
+ tmp=Xyzcoord(tmp1,tmp2,tmp3);
+ Defvar(name+"3d",tmp);
+);
+
+Putpoint3d(ptslist):=Putpoint3d(ptslist,"",0);
+Putpoint3d(Arg1,Arg2):=( // 16.03.02 from
+ if(islist(Arg1),
+ Putpoint3d(Arg1,Arg2,0);
+ ,
+ Putpoint3d(Arg1,Arg2,"fix");
+ );
+);
+Putpoint3d(Arg1,Arg2,Arg3):=(
+//help:Putpoint3d(["A",[2,1,3]]);
+//help:Putpoint3d(["A",[2,1,3]],"fix");
+//help:Putpoint3d("A",[2,1,3]);
+//help:Putpoint3d(["A",[2,1,3]],["fix"]);
+ regional(nn,kk,pt,pt3,ptslist,fixstr,tmp,tmp1,tmp2,tmp3); //16.08.19
+ if(isstring(Arg1),
+ ptslist=[Arg1,Arg2];
+ fixstr=Arg3;
+ ,
+ ptslist=Arg1;
+ fixstr=Arg2;
+ );
+ if(islist(fixstr),fixstr=fixstr_1);// 16.03.02 upto
+ nn=length(ptslist)/2;
+ forall(1..nn,kk, // 16.08.19from
+ tmp1=ptslist_(2*kk-1);
+ pt3=ptslist_(2*kk); // 16.08.19upto
+ VLIST=select(VLIST,#_1!=tmp1+"3d");
+ tmp2=parse(tmp1);
+ if(ispoint(tmp2), // 16.05.26from
+ if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
+ tmp=Toupper(tmp);
+ if(tmp!="FIX",
+ tmp=Xyzcoord(tmp2.x,tmp2.y,parse(tmp1+"z").y);
+ ,
+ tmp=pt3;
+ );
+ Defvar(tmp1+"3d",tmp);
+ ,
+ Defvar(tmp1+"3d",pt3);
+ ); // 16.05.26upto
+ Defvar(tmp1+"fix",0);
+ pt=Parapt(pt3);
+ Putpoint(tmp1,pt,parse(tmp1+".xy"));
+ inspect(parse(tmp1),"ptsize",3);
+ inspect(parse(tmp1),"color",2);
+ inspect(parse(tmp1),"textsize",TSIZE);
+ if(SUBSCR==1,
+ tmp2=tmp1+"z";
+ tmp=[pt.x+NE.x-SW.x,pt3_3];
+ tmp1="[NE.x-SW.x+"+tmp1+".x,"+tmp2+"y]";
+ Putpoint(tmp2,tmp,parse(tmp1));
+ inspect(parse(tmp2),"ptsize",3);
+ inspect(parse(tmp2),"color",3);
+ inspect(parse(tmp2),"textsize",TSIZEZ);
+ );
+ );
+ if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
+ if(tmp=="fix" % tmp=="Fix",
+ Fixpoint3d(ptslist);
+ );
+);
+
+Fixpoint3d(ptlist):=(
+// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]);
+ regional(name,pt3,pt2,tmp,tmp1,tmp2);
+ forall(1..(length(ptlist)/2),
+ name=ptlist_(2*#-1);
+ Defvar(name+"fix",1);
+ pt3=ptlist_(2*#);
+ pt2=Parapt(pt3);
+ tmp1=textformat(pt2_1,5);
+ tmp2=textformat(pt2_2,5);
+ tmp=name+".xy=["+tmp1+","+tmp2+"]";
+ parse(tmp);
+ tmp1=name+".x+NE.x-SW.x";
+ tmp2=textformat(pt3_3,5);
+ tmp=name+"z.xy=["+tmp1+","+tmp2+"];";
+ parse(tmp);
+ );
+);
+
+Perppt(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"draw");
+Perppt(name,ptstr,pLstr,option):=Putperp(name,ptstr,pLstr,option);
+Putperp(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"put");
+Putperp(name,ptstr,pLstr,option):=(
+//help:Perppt("N","O","A-B-C");
+//help:Perppt("N","O","A-B-C","put");
+//help:Perppt("N","O","A-B","none");
+ regional(out,Eps,N3d,sgstr,pP,pA,pB,pC,tmp,tmp1,flgpL);
+ Eps=10^(-4);
+ pP=parse(ptstr+"3d");
+ tmp=indexof(pLstr,"-");
+ pA=parse(substring(pLstr,0,tmp-1)+"3d");
+ tmp1=substring(pLstr,tmp,length(pLstr));
+ tmp=indexof(tmp1,"-");
+ if(tmp>0,
+ pB=parse(substring(tmp1,0,tmp-1)+"3d");
+ pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
+ flgpL=1;
+ ,
+ pB=parse(tmp1+"3d");
+ flgpL=0;
+ );
+ if(flgpL==1,
+ tmp=Crossprod(pB-pA,pC-pA);
+ if(abs(tmp)<Eps,
+ err("not a plane");
+ ,
+ tmp=tmp/|tmp|;
+ N3d=pP+tmp;
+ Defvar("tmp3d",N3d); // temporary
+ sgstr=ptstr+"-tmp";
+ tmp=IntersectsgpL(name,sgstr,pLstr,"none");
+ VLIST=select(VLIST,#_1!="tmp3d");
+ out=tmp_1;
+ Defvar(name+"3d",tmp_1);
+ );
+ ,
+ if(|pB-pA|<Eps,
+ err("on the line");
+ ,
+ tmp1=(pB-pA)/|pB-pA|;
+ tmp=Dotprod(pP-pA,tmp1);
+ out=pA+tmp*tmp1;
+ Defvar(name+"3d",out);
+ );
+ );
+ if(islist(option),tmp=option_1,tmp=option);
+ tmp=substring(tmp,0,1);
+ if(tmp=="P" % tmp=="p",
+ Putpoint3d([name,out]);
+ Fixpoint3d([name,out]);
+ );
+ if(tmp=="D" % tmp=="d",
+ Drawpoint3d(out);
+ );
+ out;
+);
+
+Perpplane(name,ptstr,nvec):=
+ Perpplane(name,ptstr,nvec,"draw");
+Perpplane(name,ptstr,nstr,option):=(
+//help:Perpplane("A-B","P",[1,3,2]);
+//help:Perpplane("A-B","P",[0,0,1,0]);
+ regional(Eps,nvec,sgstr,pP,v1,v2,v3,
+ th,ph,pA,pB,tmp,tmp1,tmp2);
+ Eps=10^(-4);
+ if(isstring(nstr),nvec=parse(nstr+"3d"),nvec=nstr);
+ pP=parse(ptstr+"3d");
+ v3=nvec/|nvec|;
+ th=THETA; ph=PHI;
+ tmp=findangle(v3);
+ THETA=tmp_1; PHI=tmp_2;
+ v1=Cancoordpara([1,0,0]);
+ v2=Cancoordpara([0,1,0]);
+ THETA=th; PHI=ph;
+ tmp=indexof(pLstr,"-");
+ pA=pP+v1;
+ pB=pP+v2;
+ if(islist(option),tmp=option_1,tmp=option);
+ tmp=Toupper(substring(tmp,0,1)); // 16.06.19
+ if(tmp=="P",
+ tmp=indexof(name,"-");
+ tmp1=substring(name,0,tmp-1);
+ tmp2=substring(name,tmp,length(name));
+ Putpoint3d([tmp1,pA,tmp2,pB],["fix"]);
+ );
+ if(tmp=="D",
+ Drawpoint3d(pA);
+ Drawpoint3d(pB);
+ );
+ [pA,pB];
+);
+
+Drawpoint3d(pt3):=(
+//help:Drawpoint3d(pt3d);
+ regional(ptL,tmp,tmp1,tmp2);
+ if(MeasureDepth(pt3)==0,ptL=[pt3],ptL=pt3);
+ forall(ptL,
+ tmp=parapt(#);
+ draw(tmp_(1..2));
+ if(SUBSCR==1,
+ draw([tmp_1+NE.x-SW.x, #_3]);
+ );
+ );
+);
+
+Putaxes3d(size):=(
+//help:Putaxes3d(5);
+//help:Putaxes3d([1,2,3]);
+ regional(sL);
+ if(islist(size),sL=size,sL=[size,size,size]);
+ Putpoint3d(["O",[0,0,0]],"fix"); //17.06.02from
+ Putpoint3d(["X",[sL_1,0,0]],"fix");
+ Putpoint3d(["Y",[0,sL_2,0]],"fix");
+ Putpoint3d(["Z",[0,0,sL_3]],"fix");
+// Fixpoint3d(["O",[0,0,0]]);
+// Fixpoint3d(["X",[sL_1,0,0],"Y",[0,sL_2,0],"Z",[0,0,sL_3]]);//17.06.02fupto
+);
+
+IntersectsgpL(name,sgstr,pLstr):=
+ IntersectsgpL(name,sgstr,pLstr,"draw");
+IntersectsgpL(name,sgstr,pLstr,option):=(
+//help:IntersectsgpL("R","P-Q","A-B-C");
+//help:IntersectsgpL("R","P-Q","A-B-C","put");
+//// help:IntersectsgpL("","P-Q","A-B-C","none");
+//help:IntersectsgpL("",[p1,p2],[p3,p4,p5],"draw");
+ regional(opstr,out,pP,pQ,pA,pB,pC,pH,pK,pR,tseg,tt,ss,Eps,flg,
+ nvec,tmp,tmp1,tmp2,tmp3,tmp4);
+ if(islist(option),opstr=option_1,opstr=option);
+ Eps=10^(-4);
+ flg=0;
+ if(!isstring(sgstr), // 15.05.29
+ pP=sgstr_1;
+ pQ=sgstr_2;
+ ,
+ tmp=indexof(sgstr,"-");
+ if(tmp>0, // 15.05.28
+ pP=parse(substring(sgstr,0,tmp-1)+"3d");
+ pQ=parse(substring(sgstr,tmp,length(sgstr))+"3d");
+ ,
+ tmp1=parse(sgstr);
+ pP=tmp1_1;
+ pQ=tmp1_2;
+ );
+ );
+ if(!isstring(pLstr), // 16.02.02
+ pA=pLstr_1;
+ pB=pLstr_2;
+ pC=pLstr_3;
+ ,
+ tmp=indexof(pLstr,"-");
+ pA=parse(substring(pLstr,0,tmp-1)+"3d");
+ tmp1=substring(pLstr,tmp,length(pLstr));
+ tmp=indexof(tmp1,"-");
+ pB=parse(substring(tmp1,0,tmp-1)+"3d");
+ pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
+ );
+ nvec=Crossprod(pB-pA,pC-pA);
+ if(abs(Dotprod(nvec,pQ-pP))>Eps,
+ pH=(Reflect3point(pP,[pA,pB,pC])+pP)/2;
+ pK=(Reflect3point(pQ,[pA,pB,pC])+pQ)/2;
+ tmp1=pP-pH;
+ tmp2=tmp1+pK-pQ;
+ tmp=select(tmp2,abs(#)==max(apply(tmp2,abs(#))));
+ tmp=select(1..3,tmp2_#==tmp_1);
+ tmp=tmp_1;
+ tseg=tmp1_tmp/tmp2_tmp;
+ pR=(1-tseg)*pH+tseg*pK;
+ tmp=substring(opstr,0,1);
+ if(Toupper(tmp)=="P",
+ Putpoint3d([name,pR]);
+ Fixpoint3d([name,pR]);
+ );
+ if(Toupper(tmp)=="D",
+ Drawpoint3d(pR);
+ );
+ tmp=Dotprod(pB-pA,pC-pA);
+ tmp1=Dotprod(pB-pA,pB-pA);
+ tmp2=Dotprod(pC-pA,pC-pA);
+ tmp3=Dotprod(pR-pA,pB-pA);
+ tmp4=Dotprod(pR-pA,pC-pA);
+ ss=-(tmp*tmp4-tmp3*tmp2)/(tmp1*tmp2-tmp^2);
+ tt=(tmp1*tmp4-tmp*tmp3)/(tmp1*tmp2-tmp^2);
+ out=[pR,tseg,ss,tt];
+ ,
+ if(Toupper(substring(opstr,0,1))!="N",
+ println(" "+sgstr+","+pLstr+" are parallel");
+ );
+ out=[];
+ );
+ out;
+);
+
+Bezier3d(nm,ptctrlist):=Bezier3(nm,ptctrlist);
+Bezier3d(nm,Ag1,Ag2):=Bezier3(nm,Ag1,Ag2);
+Bezier3d(nm,ptlistorg,ctrlistorg,options):=
+ Bezier3(nm,ptlistorg,ctrlistorg,options);
+//help:Bezier3d("1",["A","B","C"],["D","E","F","G"]);
+Bezier3(nm,ptctrlist):=Bezier3(nm,ptctrlist_1,ptctrlist_2,[]);
+Bezier3(nm,Ag1,Ag2):=(
+ if(MeasureDepth(Ag1)==0,
+ Bezier3(nm,Ag1,Ag2,[]);
+ ,
+ if(MeasureDepth(Ag1)>1,
+ Bezier3(nm,Ag1_1,Ag1_2,Ag2);
+ ,
+ if(isstring(Ag_1_1),
+ Bezier3(nm,Ag1,Ag2,[]);
+ ,
+ Bezier3(nm,Ag1_1,Ag1_2,Ag2);
+ );
+ );
+ );
+);
+Bezier3(nm,ptlistorg,ctrlistorg,options):=( //17.10.08 greatly changed
+ regional(name,name3,name2,tmp,tmp1,tmp2,
+ Ltype,Noflg,opstr,eqL,Num,ii,knt,ctr,out);
+ name="bz"+nm;
+ name3="bz3d"+nm;
+ name2="bz2d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ opcindy=tmp_(length(tmp));
+ Num=20;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="N",
+ Num=parse(tmp2);
+ );
+ );
+ ptlist=ptlistorg;
+ if(isstring(ptlistorg_1),ptlist=apply(ptlistorg,parse(#+"3d")));
+ ctrlist=ctrlistorg;
+ if(isstring(ctrlistorg_1),ctrlist=apply(ctrlistorg,parse(#+"3d")));
+ out=[];
+ forall(1..(length(ptlist)-1),ii,
+ knt=[ptlist_ii,ptlist_(ii+1)];
+ ctr=[ctrlist_(2*ii-1),ctrlist_(2*ii)];
+ tmp="Bezierpt(T,ptlist,ctrlist)";//17.01.04
+ tmp=Assign(tmp,"ptlist",knt);
+ tmp=Assign(tmp,"ctrlist",ctr);
+ Spacecurve(name+text(ii),tmp,"T=[0,1]",append(eqL,"nodisp"));
+ GLIST=GLIST_(1..(length(GLIST)-2));
+ out=append(out,name3+text(ii));
+ );
+ tmp1=[];
+ forall(1..length(out),
+ tmp=parse(out_#);
+ if(#==1,tmp1=tmp,tmp1=concat(tmp1,tmp_(2..length(tmp))));
+ );
+ if(Noflg<3,
+ println("generate Beziercurve "+name3);
+ tmp=name3+"="+tmp1;
+ parse(tmp);
+ tmp1=Projpara(name3,["nodata"]);
+ tmp=name2+"="+textformat(tmp1,5);
+ parse(tmp);
+ ptlist=apply(ptlistorg,#+"3d");
+ ptlist=RSform(text(ptlist),1);
+ ctrlist=[];
+ forall(1..(length(ctrlistorg)/2),
+ tmp=[ctrlistorg_(2*#-1),ctrlistorg_(2*#)];
+ tmp=apply(tmp,#+"3d");
+ ctrlist=append(ctrlist,tmp);
+ );
+ ctrlist=RSform(text(ctrlist),0);
+ tmp=name3+"=Bezier("+ptlist+","+ctrlist+","+Dq+"Num="+text(Num)+Dq+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1, // 15.02.11
+ Subgraph(name3,opcindy);
+ );
+ );
+ out;
+);
+
+Putbezier3data(name,pt3Lorg):=Putbezier3data(name,pt3Lorg,[]);
+Putbezier3data(name,pt3Lorg,options):=( // 17.10.08 greatly changed
+ regional(pt3L,psize,Deg,nn,numstr,
+ tmp,tmp1,tmp2,tmp3,pts,ctrpts);
+ tmp=Divoptions(options);
+ Deg=3;
+ tmp1=tmp_5;
+ forall(tmp1,
+ if(substring(#,0,1)=="D",
+ tmp=indexof(#,"=");
+ Deg=parse(substring(#,tmp,length(#)));
+ );
+ );
+ pt3L=pt3Lorg;
+ if(isstring(pt3L_1),pt3L=apply(pt3L,parse(#+"3d")));
+ ctrpts=[];
+ forall(2..length(pt3L),nn, // 16.08.19from
+ numstr=text(nn-1); // 16.08.19
+ if(Deg==3,
+ tmp1=name+numstr+"p";
+ tmp2=(2*pt3L_(nn-1)+pt3L_(nn))/3;
+ VLIST=select(VLIST,#_1!=tmp1+"3d"); // 16.08.19from
+ Putpoint3d([tmp1,tmp2]);
+ ctrpts=append(ctrpts,tmp1);
+ tmp1=name+numstr+"q";
+ tmp3=(pt3L_(nn-1)+2*pt3L_nn)/3;
+ VLIST=select(VLIST,#_1!=tmp1+"3d");
+ Putpoint3d([tmp1,tmp3]);
+ ctrpts=append(ctrpts,tmp1);
+ ,
+ tmp1=name+numstr+"p";
+ tmp2=(pt3L_(nn-1)+pt3L_nn)/2;
+ VLIST=select(VLIST,#_1!=tmp1+"3d"); // 16.08.19upto
+ Putpoint3d([tmp1,tmp2]);
+ ctrpts=append(ctrpts,tmp1);
+ );
+ );
+ ctrpts;
+);
+
+Mkbezierptcrv3d(ptdata):=Mkbezierptcrv3(ptdata);
+Mkbezierptcrv3d(ptdata,options):=Mkbezierptcrv3(ptdata,options);
+//help:Mkbezierptcrv3d(["A","B","C","D"]);
+Mkbezierptcrv3(ptdata):=Mkbezierptcrv3(ptdata,[]);
+Mkbezierptcrv3(ptdata,options):=( //17.10.08 greatly changed
+ regional(Eps,name,bz,pt,p1,p2,p13d,p23d,pt3,
+ Out,tt,pos,tmp,tmp1,tmp2);
+ Eps=10^(-4);
+ pos=[NE.x+1,NE.y];
+ Out=[];
+ tmp=floor((BezierNumber3-1)/26);// 15.02.23 from
+ if(tmp==0,tmp="",tmp=text(tmp));
+ tmp2=mod(BezierNumber3,26);
+ if(tmp2==0,tmp2=26);
+ name=unicode(text(96+tmp2),base->10)+tmp;
+ tmp2=Putbezier3data(name,ptdata,options);
+ Bezier3(name,ptdata,tmp2,options);
+ Out=append(Out,tmp2);
+ BezierNumber3=BezierNumber3+1;
+ Out;
+);
+
+///////////////////////////////////////////
+
+Readobj(filename):=Readobj(filename,[]);
+Readobj(filename,options):=(
+//help:Readobj("file.obj",["size=-3"]);
+ regional(eqL,size,vL,fnL,tmp,tmp1,tmp2);
+ size=1;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ forall(eqL,
+ if(Toupper(substring(#,0,1))=="S",
+ tmp=indexof(#,"=");
+ size=parse(substring(#,tmp,length(#)));
+ );
+ );
+ tmp=load(filename);
+ tmp=tokenize(tmp,"v");
+ tmp1=tmp_(2..(length(tmp)-1));
+ tmp2=tmp_(length(tmp));
+ tmp2=tokenize(tmp2,"f");
+ tmp1=append(tmp1,tmp2_1);
+ tmp1=apply(tmp1,Removespace(#));
+ tmp1=apply(tmp1,replace(#," "," "));
+ tmp1=apply(tmp1,"["+replace(#," ",",")+"]");
+ vL=apply(tmp1,size*parse(#));
+ tmp2=tmp2_(2..(length(tmp2)));
+ tmp2=apply(tmp2,Removespace(#));
+ tmp2=apply(tmp2,replace(#," "," "));
+ tmp2=apply(tmp2,"["+replace(#," ",",")+"]");
+ fnL=apply(tmp2,parse(#));
+ [vL,fnL];
+);
+
+/////////////////////////////////////////
+
+Readobj(filename,options):=(
+//help:Readobj("file.obj",["size=-3"]);
+ regional(eqL,size,vL,fnL,dtL,numer,flg,flg2,
+ tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
+ size=1;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ forall(eqL,
+ if(Toupper(substring(#,0,1))=="S",
+ tmp=indexof(#,"=");
+ size=parse(substring(#,tmp,length(#)));
+ );
+ );
+ numer="-0123456789";
+ tmp=load(filename);
+ dtL=tokenize(tmp,"v ");
+ vL=[];
+ fnL=[];
+ flg=0;
+ flg2=0;
+ forall(dtL,dt,
+ tmp1=Removespace(dt);
+ if(indexof(numer,substring(tmp1,0,1))>0,
+ tmp2="";
+ tmp=indexof(tmp1,"f");
+ if(tmp>0,
+ tmp2=substring(tmp1,tmp-1,length(tmp1));
+ tmp1=substring(tmp1,0,tmp-1);
+ if(substring(tmp1,length(tmp1)-1,length(tmp1))=="#",
+ tmp2="#"+tmp2;
+ tmp1=substring(tmp1,0,length(tmp1)-1);
+ );
+// tmp=indexof(tmp2,"#");
+// if(tmp>0,
+// tmp2=substring(tmp2,0,tmp-1);
+// );
+ );
+ if(flg==1,
+ tmp1="";
+ flg=0;
+ );
+ if(length(tmp1)>0,
+ tmp=indexof(tmp1,"#");
+ if(tmp>0,
+ tmp1=substring(tmp1,0,tmp-1);
+ flg=1;
+ );
+ tmp=indexof(tmp1,"vt");
+ if(tmp>0,
+ tmp1=substring(tmp1,0,tmp-1);
+ );
+ tmp1=replace(tmp1," ",",");
+ tmp1=replace(tmp1," ",",");
+ tmp1="["+tmp1+"]";
+ tmp1=size*parse(tmp1);
+ vL=append(vL,tmp1);
+ );
+ if(length(tmp2)>0,
+ tmp2=tokenize(tmp2,"f");
+ if(length(tmp2_1)==0,
+ tmp2=tmp2_(2..length(tmp2));
+ // ,
+ // if(tmp2_1=="#",
+// tmp2=tmp2_(2..length(tmp2));
+// tmp2_1="#"+tmp2_1;
+// );
+ );
+ forall(1..length(tmp2),tmp3,
+ tmp=tmp2_tmp3;
+ if(substring(tmp,length(tmp)-1,length(tmp))=="#",
+ tmp2_(tmp3+1)="#"+Removespace(tmp2_(tmp3+1));
+ tmp2_tmp3=substring(tmp,0,length(tmp)-1);
+ );
+ tmp5="";
+ if(length(tmp2_tmp3)>0,
+ tmp4=tokenize(tmp2_tmp3," ");
+ forall(tmp4,
+ if(length(text(#))>0,
+ if(indexof(text(#),"/")==0,
+ tmp=text(#);
+ ,
+ tmp=tokenize(text(#),"/");
+ tmp=tmp_1;
+ );
+ if(length(tmp)>0,
+ tmp5=tmp5+tmp+",";
+ );
+ );
+ );
+ tmp5=substring(tmp5,0,length(tmp5)-1);
+ if(length(tmp5)>0,
+ if(substring(tmp5,0,1)!="#",
+ tmp5="["+tmp5+"]";
+ fnL=append(fnL,parse(tmp5));
+ );
+ );
+ );
+ );
+ );
+ );
+ );
+ [vL,fnL];
+);
+
+Concatobj(objL):=Concatobj(objL,[]);
+Concatobj(objL,options):=(
+//help:Concatobj([polyhed,triangle]);
+//help:Concatobj([polyhed,triangle],["Rmf=no"]);
+//help:Concatobj([[A,B,C],[A,C,D]]);
+ regional(obj,vL,fL,vadd,vtx,faces,fnew,face,jj,kk,vctr,eps,
+ tmp,tmp1,tmp2,tmp3,eqL,rmf);
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ rmf="y"; // 16.08.19
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="R",
+ if(tmp2=="Y",rmf="y"); // 16.08.14
+ );
+ );
+ eps=10^(-4);
+ vL=[];
+ fL=[];
+ vctr=0;
+ forall(objL,obj,
+ if(isstring(obj),
+ tmp1=parse(obj);
+ ,
+ tmp1=obj;
+ );
+ if(length(tmp1)>2, // 16.02.28
+ tmp=1..length(tmp1);
+ tmp1=[tmp1,[tmp]];
+ );
+ vtx=tmp1_1; // 16.02.11 from
+ faces=tmp1_2;
+ fnew=faces;
+ vctr=0;
+ vadd=[];
+ forall(1..length(vtx),jj,
+ tmp1=vtx_jj;
+ tmp=select(1..length(vL),dist3d(vL_#,tmp1)<eps);
+ if(length(tmp)==0,
+ vadd=append(vadd,tmp1);
+ vctr=vctr+1;
+ tmp2=length(vL)+vctr;
+ ,
+ tmp2=tmp_1;
+ );
+ forall(1..length(faces),kk,
+ face=faces_kk;
+ tmp=select(1..length(face),face_#==jj);
+ if(length(tmp)>0,
+ tmp1=tmp_1;
+ fnew_kk_tmp1=tmp2;
+ );
+ );
+ );
+ vL=concat(vL,vadd);
+ fL=concat(fL,fnew); // 16.02.11 upto
+ );
+ tmp2=apply(1..length(fL),1);
+ if(rmf=="y",
+ forall(1..length(fL),jj,
+ tmp=fL_jj;
+ tmp1=select((jj+1)..length(fL),fL_#==tmp);
+ forall(tmp1,tmp2_#=0);
+ );
+ tmp=select(1..length(tmp2),tmp2_#==1);
+ fL=fL_tmp;
+ );
+ [vL,fL];
+);
+
+if(1==0,
+
+Mkobjfile(fname,objL):=Mkobjfile(Dirwork,fname,objL);
+Mkobjfile(path,fnameorg,objL):=(
+//help:Mkobj(filename,objlist);
+ regional(fname,obj,vtx,face,tmp,tmp1,tmp2);
+ fname=fnameorg;
+ if(indexof(fname,".")==0,fname=fname+".obj");
+ vtx=objL_1;
+ face=objL_2;
+ setdirectory(path);
+ SCEOUTPUT = openfile(fname);
+ forall(vtx,tmp1,
+ tmp2=tmp1;
+ if(ispoint(tmp1),
+ tmp2=parse(text(tmp1)+"3d");
+ );
+ tmp="v "+format(tmp2_1,5)+" "+format(tmp2_2,5)+" "+format(tmp2_3,5);
+ println(SCEOUTPUT,tmp);
+ );
+ forall(face,tmp1,
+ tmp="f";
+ forall(tmp1,
+ tmp=tmp+" "+text(#);
+ );
+ println(SCEOUTPUT,tmp);
+ );
+ closefile(SCEOUTPUT);
+ setdirectory(Dirwork);
+);
+
+);
+
+VertexandEdge(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]);
+VertexandEdge(nm,vfnL,options):=VertexEdgeFace(nm,vfnL,options);
+VertexEdgeFace(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]); // 16.02.10
+//help:VertexEdgeFace("1",[vL,fnL]);
+//help:VertexEdgeFace("1",["A","B","C"]);
+//help:VertexEdgeFace(options=["Pt=fix","Edg=geo"]);
+VertexEdgeFace(nm,vfnLorg,optionorg):=(
+ regional(name3,namev,namee,namef,vfnL,options,Noflg,eqL,strL,
+ vL,eL,enL,face,edge,vtx,vname,fixflg,edgflg,tmp,tmp1,tmp2);
+ name3="phvef"+nm;
+ namev="phv3d"+nm;
+ namee="phe3d"+nm;
+ namef="phf3d"+nm;
+ options=optionorg;
+ vfnL=vfnLorg; // 16.06.19from
+ if(length(vfnL)>2,
+ vfnL=[vfnL,[1..length(vfnL)]];
+ );
+ if(length(vfnL)==1,
+ vfnL=[vfnL_1,[1..length(vfnL_1)]];
+ ); // 16.06.19upto
+ tmp=Divoptions(options);
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ strL=tmp_7;
+ fixflg=1;
+ edgflg=1;
+ forall(eqL,
+ tmp1=Toupper(substring(#,0,1));
+ tmp=indexof(#,"=");
+ tmp2=Toupper(substring(#,tmp,length(#)));
+ if(tmp1=="P",
+ if(tmp2=="FREE", fixflg=0);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="E",
+ if(substring(tmp2,0,1)=="N", edgflg=0);
+ options=remove(options,[#]);
+ );
+ );
+ forall(strL,
+ if(Toupper(#)=="FREE",
+ fixflg=0;
+ options=remove(options,[#]);
+ );
+ );
+ vL=[];
+ forall(1..length(vfnL_1),
+ vtx=vfnL_1_#; // 16.02.10 from
+ if(isstring(vtx),vtx=parse(vtx)); // 16.06.19
+ if(ispoint(vtx),
+ tmp=parse(text(vtx)+"3d");
+ vname=text(vtx);
+// tmp=parse(text(vtx)+"3d");
+// tmp="v"+text(#)+"3d="+textformat(tmp,5);
+// parse(tmp);
+ ,
+ vname="v"+text(#);
+ if(fixflg==1,
+ Putpoint3d(["v"+text(#),vtx],"fix");
+ );
+ );
+ vL=append(vL,vname); // 16.02.10 upto
+ );
+ eL=[];
+ forall(vfnL_2,face,
+ forall(1..length(face),
+ tmp1=face_#;
+ if(#<length(face),
+ tmp2=face_(#+1);
+ ,
+ tmp2=face_1;
+ );
+ if(tmp2<tmp1,
+ tmp=tmp2; tmp2=tmp1; tmp1=tmp;
+ );
+// tmp1="v"+text(tmp1)+"3d";
+// tmp2="v"+text(tmp2)+"3d";
+ tmp1=vL_tmp1+"3d";
+ tmp2=vL_tmp2+"3d";
+ tmp=select(eL,#==[tmp1,tmp2] % #==[tmp2,tmp1]);
+ if(length(tmp)==0,
+ eL=append(eL,[tmp1,tmp2]);
+ );
+ );
+ );
+ if(Noflg<3,
+ enL=[];
+ forall(eL,edge,
+ if(edgflg==0,
+ if(Noflg<2,
+ tmp1=edge_1;//parse(edge_1);
+ tmp2=edge_2;//parse(edge_2);
+ tmp="sl3d"+edge_1+edge_2;
+ if(islist(parse(tmp)),
+ Changestyle3d([tmp],["nodisp"]);
+ );
+ tmp="sl3d"+edge_2+edge_1;
+ if(islist(parse(tmp)),
+ Changestyle3d([tmp],["nodisp"]);
+ );
+ tmp=replace(edge_1+edge_2,"3d","");
+ options=append(options,"Msg=no");
+ Spaceline("-"+tmp,[tmp1,tmp2],options); //16.02.28
+ );
+ enL=append(enL,tmp+"3d"); //16.02.29
+ ,
+ tmp1=replace(edge_1,"3d","");
+ tmp2=replace(edge_2,"3d","");
+ tmp=tmp1+tmp2;
+ create([tmp],"Segment",[parse(tmp1),parse(tmp2)]);
+ enL=append(enL,tmp+"3d");//16.02.29
+ );
+ );
+ if(Noflg<2,
+ println("generate "+name3);
+ println(" generate totally "+namee);
+ println(" generate vertexes "+namev);
+ println(" generate faces "+namef);
+ );
+ tmp1="";
+ forall(enL,
+ tmp1=tmp1+Dq+#+Dq+",";
+ );
+ tmp1=substring(tmp1,0,length(tmp1)-1);
+ tmp=namee+"=["+tmp1+"]";
+ parse(tmp);
+ tmp=namee+"=list("+tmp1+")";
+ tmp=replace(tmp,Dq,"");
+ GLIST=append(GLIST,tmp);
+ tmp1=apply(vL,Dq+#+"3d"+Dq);
+ tmp1=text(tmp1);
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ tmp=namev+"=["+tmp1+"]";
+ parse(tmp);
+ tmp1=replace(tmp1,Dq,"");
+ tmp=namev+"=list("+tmp1+")";
+ GLIST=append(GLIST,tmp);
+ tmp1=text(vfnL_2);
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ tmp=namef+"=["+tmp1+"]";
+ parse(tmp);
+ tmp=namef+"=list("+tmp1+")";
+ GLIST=append(GLIST,tmp);
+ );
+ [namev,namee,namef];
+);
+
+Phparadata(nm,nmvf):=(
+ regional(tmp1,tmp2);
+ tmp1=parse("phv3d"+nmvf);
+ tmp2=parse("phf3d"+nmvf);
+ Phparadata(nm,nmvf,[tmp1,tmp2]);
+);
+Phparadata(nm,nmvf,Arg1):=(
+ regional(vfL,options,tmp1,tmp2);
+ if(islist(Arg1) & !islist(Arg1_1),
+ tmp1=parse("phv3d"+nmvf);
+ tmp2=parse("phf3d"+nmvf);
+ vfL=[tmp1,tmp2];
+ options=Arg1;
+ ,
+ vfL=Arg1;
+ options=[];
+ );
+ Phparadata(nm,nmvf,vfL,options);
+);
+Phparadata(nm,nmvf,vfL,options):=(
+//help:Phparadata("1","1",["do"]);
+ regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
+ opstr,opcindy,Outflg,Inflg,pdata1,tmp,tmp1,tmp2);
+ name2="php2d"+nm;
+ name3="php3d"+nm;
+ nameh2="phh2d"+nm;
+ nameh3="phh3d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ Inflg=tmp_3;
+ Outflg=tmp_4;
+ if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
+ eqL=tmp_5;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ Hidden="";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="H",
+ Hidden=tmp2;
+ );
+ );
+ if(Noflg<3,
+ if(Outflg>=1,
+ println("Output Phparadata "+name3);
+ if(isstring(vfL_1), // 2015.05.27 from
+ tmp1=vfL_1;
+ ,
+ tmp1="list(";
+ forall(vfL_1,
+ tmp1=tmp1+#+",";
+ );
+ tmp1=substring(tmp1,0,length(tmp1)-1)+")";
+ );
+ if(isstring(vfL_2),
+ tmp2=vfL_2;
+ ,
+ tmp2="list(";
+ forall(vfL_2,
+ tmp2=tmp2+text(#)+",";
+ );
+ tmp2=substring(tmp2,0,length(tmp2)-1)+")";
+ ); // 2015.05.27 upto
+ tmp=name3+"=Phparadata("+tmp1+","+tmp2+opstr+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ tmp=nameh3+"=PhHiddenData()";
+ GLIST=append(GLIST,tmp);
+ tmp=nameh2+"=Projpara("+nameh3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ if(Inflg==1,
+// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
+ Changestyle3d("phe3d"+nmvf,["nodisp"]);
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ );
+ );
+ if(Hidden!="",
+ Drawlinetype(nameh2,Hidden);
+ if(Inflg==1,
+ tmp1=Toupper(substring(Hidden,0,2));
+ if(tmp1=="DR",Ltype=0);
+ if(tmp1=="DA",Ltype=1);
+ if(tmp1=="DO",Ltype=3);
+ if(tmp1=="ID",Ltype=1);
+ GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
+ );
+ );
+);
+
+Nohiddenseg(seg,rng,triang):=(
+// help:Nohiddenseg("1",seg1,[0,1],["v1","v2","v3"]);
+ regional(Eps,pA3,pB3,pC3,pA,pB,pC,sg1,sg2,ss1,ss2,parL,flgL,flg1,flg2,
+ veB,veC,sgnoh,sghid,added,tristr,tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
+ Eps=10^(-4);
+ sgnoh=[0,1];
+ pA3=if(isstring(triang_1),parse(triang_1+"3d"),triang_1); //16.06.19
+ pA=Parapt(pA3);
+ pB3=if(isstring(triang_2),parse(triang_2+"3d"),triang_2); //16.06.19
+ pB=Parapt(pB3);
+ pC3=if(isstring(triang_3),parse(triang_3+"3d"),triang_3); //16.06.19
+ pC=Parapt(pC3);
+ sg1=seg_1+rng_1*(seg_2-seg_1);
+ sg2=seg_1+rng_2*(seg_2-seg_1);
+ ss1=Parapt(sg1);
+ ss2=Parapt(sg2);
+ tristr=replace(text(triang),",","-");
+ tristr=substring(tristr,1,length(tristr)-1);
+ if(|ss2-ss1|>Eps & abs(Crossprod(pB-pA,pC-pA))>Eps,
+ tmp=IntersectcrvsPp([ss1,ss2],[pA,pB,pC,pA]);
+ parL=apply(tmp,#_2-1);
+ parL=sort(parL);
+ if(length(parL)==0,
+ parL=[0,1];
+ ,
+ if(parL_1>Eps,parL=prepend(0,parL));
+ if(parL_(length(parL))<1-Eps,parL=append(parL,1));
+ );
+ tmp1=Crossprod(pB3-pA3,pC3-pA3);
+ if(abs(Dotprod(tmp1,sg2-sg1))>Eps,
+ tmp=IntersectsgpL("",[sg1,sg2],tristr,["nodisp"]);
+ if(tmp_2>-Eps & tmp_2<1+Eps,
+ if(tmp_3>-Eps & tmp_4>-Eps & tmp_3+tmp_4<1+Eps,
+ tmp1=select(parL,abs(tmp_2-#)<Eps);
+ if(length(tmp1)==0,
+ parL=sort(append(parL,tmp_2));
+ );
+ );
+ );
+ );
+ flgL=[];
+ forall(parL,
+ tmp1=sg1+#*(sg2-sg1);
+ tmp=Projcoordpara(tmp1);
+ tmp_3=tmp_3+1;
+ tmp2=Cancoordpara(tmp);
+ tmp=IntersectsgpL("",[tmp1,tmp2],tristr,["nodisp"]);
+ tmp1=Projcoordpara(tmp1);
+ tmp2=Projcoordpara(tmp_1);
+ flg1=0;
+ if(tmp1_3<tmp2_3-Eps,flg1=-1);
+ if(tmp1_3>tmp2_3+Eps,flg1=1);
+ flgL=append(flgL,flg1);
+ );
+ sgnoh=[];
+ forall(2..length(flgL),
+ added=[];
+ flg1=flgL_(#-1);
+ flg2=flgL_#;
+ if(max([flg1,flg2])==1 % flg1+flg2==0,
+ added=[parL_(#-1),parL_#];
+ ,
+ sghid=[parL_(#-1),parL_#];
+ tmp1=ss1+sghid_1*(ss2-ss1);
+ tmp2=ss1+sghid_2*(ss2-ss1);
+ tmp=IntersectcrvsPp([tmp1,tmp2],[pA,pB,pC,pA]);
+ if(length(tmp)<2,
+ veB=pB-pA;
+ veC=pC-pA;
+ tmp3=tmp1-pA;
+ tmp4=tmp2-pA;
+ tmp5=Crossprod(veB,veC);
+ tmp1=(tmp3_1*veC_2-tmp3_2*veC_1)/tmp5;
+ tmp2=(-tmp3_1*veB_2+tmp3_2*veB_1)/tmp5;
+ if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg1=1,flg1=0);
+ tmp1=(tmp4_1*veC_2-tmp4_2*veC_1)/tmp5;
+ tmp2=(-tmp4_1*veB_2+tmp4_2*veB_1)/tmp5;
+ if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg2=1,flg2=0);
+ if(flg1==1 & flg2==0,
+ if(length(tmp)>0,
+ tmp1=tmp_1_2-1;
+ tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
+ ,
+ tmp1=sghid_1;
+ );
+ added=[tmp1,sghid_2];
+// added=[tmp1+Eps,sghid_2]; // <--- USUI 2016.02.27
+ );
+ if(flg1==0 & flg2==1,
+ if(length(tmp)>0,
+ tmp1=tmp_1_2-1;
+ tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
+ ,
+ tmp1=sghid_2;
+ );
+ added=[sghid_1,tmp1];
+ );
+ if(flg1+flg2==0,
+ added=sghid;
+ );
+ );
+ if(length(tmp)==2,
+ if(min([flg1,flg2])>=0,added=sghid,added=[]);
+ );
+ );
+ if(length(added)>0,
+ if(length(sgnoh)==0,
+ sgnoh=added;
+ ,
+ if(sgnoh_(length(sgnoh))<added_1-Eps,
+ sgnoh=concat(sgnoh,added);
+ ,
+ sgnoh=sgnoh_(1..(length(sgnoh)-1));
+ sgnoh=concat(sgnoh,added_(2..length(added)));
+ );
+ );
+ );
+ );
+ );
+ sgnoh=apply(sgnoh,rng_1+#*(rng_2-rng_1));
+ sgnoh;
+);
+
+Nohiddensegs(seg,range,faceno,vtxL):=(
+ regional(Eps,rng,face,vtx,out,ra,rb,tmp,tmp1,tmp2);
+ Eps=10^(-4);
+ face=apply(faceno,vtxL_#); // 16.02.10
+ rng=range;
+ out=rng;
+ forall(2..(length(face)-1),vtx,
+ tmp1=[face_1,face_vtx,face_(vtx+1)];
+ forall(1..(length(rng)/2),
+ tmp=[rng_(2*#-1),rng_(2*#)];
+ out=remove(out,tmp);
+ tmp2=Nohiddenseg(seg,tmp,tmp1);
+ if(length(tmp2)>0,
+ out=remove(out,tmp);
+ out=concat(out,tmp2);
+ );
+ );
+ tmp=sort(out);
+ out=[];
+ forall(1..(length(tmp)/2),
+ ra=tmp_(2*#-1);
+ rb=tmp_(2*#);
+ if(ra<rb-Eps,
+ if(length(out)==0,
+ out=[ra,rb];
+ ,
+ if(out_(length(out))<ra-Eps,
+ out=concat(out,[ra,rb]);
+ ,
+ out_(length(out))=rb;
+ );
+ );
+ );
+ );
+ rng=out;
+ );
+ rng;
+);
+
+Nohiddenbyfaces(nm,facestr):=
+ Nohiddenbyfaces(nm,Datalist3d(),facestr,[],["do"]);
+Nohiddenbyfaces(nm,Arg1,Arg2):=(
+ regional(segstr,facestr,options);
+ if(islist(Arg2),
+ segstr=Datalist3d();
+ facestr=Arg1;
+ options=Arg2;
+ ,
+ segstr=Arg1;
+ facestr=Arg2;
+ options=[];
+ );
+ Nohiddenbyfaces(nm,segstr,facestr,options,["do"]);
+);
+Nohiddenbyfaces(nm,Arg1,Arg2,Arg3):=(
+ regional(segstr,facestr,options,optionsh);
+ if(islist(Arg2),
+ segstr=Datalist3d();
+ facestr=Arg1;
+ options=Arg2;
+ optionsh=Arg3;
+ ,
+ segstr=Arg1;
+ facestr=Arg2;
+ options=Arg3;
+ optionsh=["do"];
+ );
+ Nohiddenbyfaces(nm,segstr,facestr,options,optionsh); // 16.02.21
+);
+Nohiddenbyfaces(nm,segstr,facestr,optionorg,optionsh):=(
+//help:Nohiddenbyfaces("1","phf3d1");
+//help:Nohiddenbyfaces("1","ax3d","phf3d1");
+//help:Nohiddenbyfaces(options1=["dr"]);
+//help:Nohiddenbyfaces(options2=["do"]);
+ regional(Eps,namen,nameh,options,segL,faceL,vtxL,rng,seg,face,
+ flg,ctr,tmp,tmp1,tmp2,Ltype,Noflg,eqL,opstr,opcindy,frnL,frhL);
+ Eps=10^(-4);
+ namen="frn"+nm;
+ nameh="frh"+nm;
+ if(isstring(segstr),
+// segL=parse(segstr);
+ segL=[segstr]; // 16.08.19
+ ,
+ segL=segstr;
+ );
+ tmp2=[]; // 16.02.29 from
+ forall(segL,seg,
+ tmp=replace(seg,"3d","2d");
+ tmp1=select(GCLIST,#_1==tmp);
+ tmp1=tmp1_1;
+ if(tmp1_2==0,
+ tmp2=append(tmp2,seg);
+ );
+ );
+ segL=tmp2;
+ Changestyle3d(segL,["nodisp"]); // 16.02.29 upto
+ if(islist(segL),
+ if(isstring(segL_1),
+ segL=apply(segL,parse(#));
+ );
+ );
+ segL=Flattenlist(segL);
+ flg=0;
+ if(isstring(facestr),
+ if(substring(facestr,0,3)=="phf", // 16.08.19from
+ faceL=parse(facestr);
+ tmp=replace(facestr,"phf","phv"); // 16.02.10 from
+ tmp=parse(tmp);
+ vtxL=apply(tmp,replace(#,"3d","")); // 16.02.10 upto
+ flg=1;
+ ,
+ faceL=parse(facestr);
+ );
+ );
+ if(flg==0,
+ if(length(faceL)==2, // 16.08.19upto
+ vtxL=facestr_1;
+ faceL=facestr_2;
+ ,
+ vtxL=facestr;
+ faceL=[1..length(vtxL)];
+ );
+ );
+// Hidden="";
+ options=optionorg;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+// forall(eqL,
+// tmp=indexof(#,"=");
+// tmp1=Toupper(substring(#,0,1));
+// tmp2=substring(#,tmp,length(#));
+// if(tmp1=="H",
+// Hidden=tmp2;
+// );
+// );
+
+ ctr=1;
+ frnL=[];
+ frhL=[];
+ forall(segL,seg,
+ rng=[0,1];
+ forall(faceL,face,
+ rng=Nohiddensegs(seg,rng,face,vtxL);
+ );
+ forall(1..length(rng)/2,
+ tmp=rng_(2*#-1);
+ tmp1=seg_1+tmp*(seg_2-seg_1);
+ tmp=rng_(2*#);
+ tmp2=seg_1+tmp*(seg_2-seg_1);
+// tmp=remove(options,eqL);
+ tmp=append(options,"Msg=nodisp"); // 15.06.22
+ Spaceline("-"+namen+"n"+text(ctr),[tmp1,tmp2],tmp);
+ frnL=append(frnL,namen+"n"+text(ctr)+"3d");
+ ctr=ctr+1;
+ );
+ if(length(rng)==0,
+ rng=[0,1];
+ ,
+ if(rng_1>0+Eps,
+ rng=prepend(0,rng);
+ ,
+ rng=rng_(2..length(rng));
+ );
+ if(rng_(length(rng))<1-Eps,
+ rng=append(rng,1);
+ ,
+ rng=rng_(1..(length(rng)-1));
+ );
+ );
+ forall(1..length(rng)/2,
+ tmp=rng_(2*#-1);
+ tmp1=seg_1+tmp*(seg_2-seg_1);
+ tmp=rng_(2*#);
+ tmp2=seg_1+tmp*(seg_2-seg_1);
+ if(length(optionsh)>0,tmp=optionsh,tmp=["do"]);
+ tmp=append(tmp,"Msg=nodisp"); // 15.06.22
+ Spaceline("-"+nameh+"n"+text(ctr),[tmp1,tmp2],tmp);
+ frhL=append(frhL,nameh+"n"+text(ctr)+"3d");
+ ctr=ctr+1;
+ );
+ );
+ tmp1=apply(frnL,Dq+#+Dq);
+ tmp="frn3d"+nm+"="+text(tmp1);
+ parse(tmp);
+ println(" generate totally "+"frn3d"+nm);
+ tmp1=apply(frhL,Dq+#+Dq);
+ tmp="frh3d"+nm+"="+text(tmp1);
+ parse(tmp);
+ println(" generate totally "+"frh3d"+nm);
+);
+
+Faceremovaldata(nm,vfdata,crvdata):=Faceremovaldata(nm,vfdata,crvdata,[]);
+Faceremovaldata(nm,vfdata,crvdata,options):=(
+ regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
+ opstr,opcindy,Outflg,Inflg,tmp,tmp1,tmp2);
+ name2="frc2d"+nm;
+ name3="frc3d"+nm;
+ nameh2="frch2d"+nm;
+ nameh3="frch3d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ Inflg=tmp_3;
+ Outflg=tmp_4;
+ if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
+ eqL=tmp_5;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ Hidden="";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="H",
+ Hidden=tmp2;
+ );
+ );
+ if(Noflg<3,
+ if(Outflg>=1,
+ println("Output Faceremovaldata "+name3);
+ if(MeasureDepth(vfdata)==1,
+ tmp1=text(apply(vfdata,#_[1,3]));
+ ,
+ tmp1=text([vfdata_[1,3]]);
+ );
+ tmp1=replace(tmp1,"[","list(");
+ tmp1=replace(tmp1,"]",")");
+ tmp2=text(crvdata);
+ tmp2=replace(tmp2,"[","list(");
+ tmp2=replace(tmp2,"]",")");
+// tmp2="Flattenlist("+tmp2+")";
+ tmp=name3+"=Faceremovaldata("+tmp1+","+tmp2+opstr+","+Dq+"para"+Dq+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ tmp=nameh3+"=PhHiddenData()";
+ GLIST=append(GLIST,tmp);
+ tmp=nameh2+"=Projpara("+nameh3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ if(Inflg==1,
+ if(MeasureDepth(vfdata)==1,
+ tmp1=apply(vfdata,parse(#_2));
+ ,
+ tmp1=[parse(vfdata_2)];
+ );
+ forall(tmp1,
+ Changestyle3d(#,["nodisp"]);
+ );
+ Changestyle3d(crvdata,["nodisp"]);
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ );
+ );
+ if(Hidden!="",
+ Drawlinetype(nameh2,Hidden);
+ if(Inflg==1,
+ tmp1=Toupper(substring(Hidden,0,2));
+ if(tmp1=="DR",Ltype=0);
+ if(tmp1=="DA",Ltype=1);
+ if(tmp1=="DO",Ltype=3);
+ if(tmp1=="ID",Ltype=1);
+ GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
+ );
+ );
+);
+
+Fullformfunc(FdL):=(
+ regional(Out,nn,ii,Jrg,flg,Urg,Vrg,kk,Uname,
+ Zf,Xname,Xf,Yname,Yf,tmp,tmp1,tmp2);
+ Out=[FdL_1];
+ nn=length(FdL);
+ flg=0;
+ forall(1..nn,
+ if(flg==0,
+ tmp=FdL_#;
+ if(substring(tmp,length(tmp)-1,length(tmp))=="]",
+ Jrg=#;
+ Urg=FdL_Jrg;
+ flg=1;
+ );
+ );
+ );
+ kk=indexof(Urg,"=");
+ Uname=Removespace(substring(Urg,0,kk-1));
+ tmp=substring(Urg,kk,length(Urg));
+ Urg=Uname+"="+tmp;
+// tmp1=parse(tmp);
+// Urg=Uname+"="+textformat(tmp1,5);
+ Vrg=FdL_(Jrg+1);
+ kk=indexof(Vrg,"=");
+ Vname=Removespace(substring(Vrg,0,kk-1));
+ tmp=substring(Vrg,kk,length(Vrg));
+ Vrg=Vname+"="+tmp;
+// tmp1=parse(tmp);
+// Vrg=Vname+"="+textformat(tmp1,5);
+ if(Jrg==2,
+ tmp=FdL_1;
+ kk=indexof(tmp,"=");
+ Zf=substring(tmp,kk,length(tmp));
+ tmp=[Uname,Vname,Zf,Urg,Vrg];
+ Out=concat(Out,tmp);
+ ,
+ if(Jrg==4,
+ tmp=FdL_1;
+ kk=indexof(tmp,"=");
+ Zf=substring(tmp,kk,length(tmp));
+ tmp=FdL_2;
+ kk=indexof(tmp,"=");
+ Xname=Removespace(substring(tmp,0,kk-1));
+ Xf=substring(tmp,kk,length(tmp));
+ tmp=FdL_3;
+ kk=indexof(tmp,"=");
+ Yname=Removespace(substring(tmp,0,kk-1));
+ Yf=substring(tmp,kk,length(tmp));
+ tmp=replace(Zf,Xname,"("+Xf+")");
+ Zf=replace(tmp,Yname,"("+Yf+")");
+ Tmp=[Xf,Yf,Zf,Urg,Vrg];
+ Out=concat(Out,Tmp);
+ ,
+ tmp=FdL_2;
+ kk=indexof(tmp,"=");
+ Xf=substring(tmp,kk,length(tmp));
+ tmp=FdL_3;
+ kk=indexof(tmp,"=");
+ Yf=substring(tmp,kk,length(tmp));
+ tmp=FdL_4;
+ kk=indexof(tmp,"=");
+ Zf=substring(tmp,kk,length(tmp));
+ tmp=[Xf,Yf,Zf,Urg,Vrg];
+ Out=concat(Out,tmp);
+ );
+ );
+ DrwS="enws";
+ BdyL=[];
+ forall((Jrg+2)..length(FdL),ii,
+ tmp=FdL_ii;
+ if(isstring(tmp),
+ if(length(tmp)==0,
+ tmp=" ";
+ );
+ DrwS=tmp;
+ );
+ if(islist(tmp) & length(tmp_1)>1,
+ BdyL=tmp;
+ );
+ );
+ tmp=[DrwS,BdyL];
+ Out=concat(Out,tmp);
+);
+
+Surffun(nm,Fd):=(
+ regional(name,coord,var1,var2,rng1,rng2,bdy,tmp,tmp1,tmp2);
+ tmp=Fullformfunc(Fd);
+ rng1=tmp_5;
+ rng2=tmp_6;
+ bdy=tmp_7;
+ coord="["+tmp_2+","+tmp_3+","+tmp_4+"]";
+ tmp=indexof(rng1,"=");
+ var1=substring(rng1,0,tmp-1);
+ rng1=substring(rng1,tmp,length(rng1));
+ tmp=indexof(rng2,"=");
+ var2=substring(rng2,0,tmp-1);
+ rng2=substring(rng2,tmp,length(rng2));
+ name="Sfn"+nm+"("+var1+","+var2+")";
+ Deffun(name,["regional(tmp)","tmp="+coord,"tmp"]);
+ [name,var1,rng1,var2,rng2,bdy];
+);
+
+Sf3data(nm,fdata):=Sf3data(nm,fdata,[]);
+Sf3data(nm,fdata,optionorg):=(
+ regional(tmp,tmp1,tmp2);
+ tmp=Surffun(nm,fdata);
+ tmp1=tmp_2+"="+tmp_3;
+ tmp2=tmp_4+"="+tmp_5;
+ Sf3data(nm,tmp_1,tmp1,tmp2,optionorg);
+);
+Sf3data(nm,funstr,var1,var2):=Sf3data(nm,funstr,var1,var2,[]);
+Sf3data(nm,funstr,var1org,var2org,optionorg):=(
+//help:Sf3data("1",Fd);
+//help:Sf3data(options=["Num=[25,25]","Wire=[20,20]"]);
+ regional(name2,name3,var1,var2,Ltype,Noflg,opstr,opcindy,eqL,Num,
+ Wire,varu,varv,rngu,rngv,sfdtuL,sfdtvL,options,
+ tmp,tmp1,tmp2,tmp3);
+ var1=replace(var1org,"%pi","pi");
+ var2=replace(var2org,"%pi","pi");
+ tmp=Divoptions(optionorg);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ options=optionorg;
+ Num=[25,25];
+ Wire=[20,20];
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#)); // 16.05.25
+ tmp=Toupper(substring(tmp1,0,1));
+ if(tmp=="N",
+ tmp2=parse(tmp2);
+ if(!islist(tmp2),tmp2=[tmp2,tmp2]);
+ Num=tmp2;
+ options=remove(options,[#]);
+ );
+ if(tmp=="W",
+ tmp2=parse(tmp2);
+ if(!islist(tmp2),tmp2=[tmp2,tmp2]);
+ Wire=tmp2;
+ options=remove(options,[#]);
+ );
+ );
+ tmp=indexof(var1,"=");
+ varu=substring(var1,0,tmp-1);
+ rngu=parse(substring(var1,tmp,length(var1)));
+ tmp=indexof(var2,"=");
+ varv=substring(var2,0,tmp-1);
+ rngv=parse(substring(var2,tmp,length(var2)));
+ sfdtuL=[];
+ forall(0..Wire_2,
+ tmp=rngv_1+#/Wire_2*(rngv_2-rngv_1);
+ tmp1=replace(funstr,varv,textformat(tmp,5));
+ tmp="Num="+text(Num_2);
+ tmp2=concat(options,["Msg=no",tmp]);
+ Spacecurve(nm+"u"+#,tmp1,var1,tmp2);
+ sfdtuL=append(sfdtuL,"sc3d"+nm+"u"+#);
+ );
+ sfdtvL=[];
+ forall(0..Wire_1,
+ tmp=rngu_1+#/Wire_1*(rngu_2-rngu_1);
+ tmp1=replace(funstr,varu,textformat(tmp,5));
+ tmp="Num="+text(Num_1);
+ tmp2=concat(options,["Msg=no",tmp]);
+ Spacecurve(nm+"v"+#,tmp1,var2,tmp2);
+ sfdtvL=append(sfdtvL,"sc3d"+nm+"v"+#);
+ );
+ if(Noflg<3,
+ println(" generate totally "+"sf3d"+nm);
+ tmp1="";
+ forall(sfdtuL,
+ tmp1=tmp1+Dq+#+Dq+",";
+ );
+ tmp1=substring(tmp1,0,length(tmp1)-1);
+ tmp2="";
+ forall(sfdtvL,
+ tmp2=tmp2+Dq+#+Dq+",";
+ );
+ tmp2=substring(tmp2,0,length(tmp2)-1);
+ tmp="sf3d"+nm+"=[["+tmp1+"],["+tmp2+"]]";
+ parse(tmp);
+ );
+ [sfdtuL,sfdtvL];
+);
+
+Sfbdparadata(nm,fd):=
+ Sfbdparadata(nm,fd,[],["nodisp"]);
+Sfbdparadata(nm,fd,options):=
+ Sfbdparadata(nm,fd,options,["nodisp"]);
+Sfbdparadata(nm,fdorg,optionorg,optionsh):=(
+//help:Sfbdparadata("1",Fd);
+//help:Sfbdparadata(options2=["Wait=30",limit1([0.05,1], limit2(0.2)]);
+ regional(fd,options,name2,name3,name2h,name3h,waiting,
+ eqL,reL,strL,fname,outreg,tmp,tmp1,tmp2,flg,wflg);
+ name2="sfbd2d"+nm;
+ name3="sfbd3d"+nm;
+ name2h="sfbdh2d"+nm;
+ name3h="sfbdh3d"+nm;
+ fname=Fhead+"sfbd"+nm+".txt";
+ fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=30;
+ outreg=0; // 16.08.20
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+// if(tmp1=="O", // 16.08.20
+// tmp=Toupper(substring(tmp2,0,1));
+// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
+// options=remove(options,[#]);
+// );
+ );
+ options=remove(options,reL);
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=MkprecommandS(5); // 16.02.01
+ tmp=[
+ Dq+fname+Dq,
+ Dq+name3+Dq,name3,
+ Dq+name2+Dq,name2,
+ Dq+name3h+Dq,name3h,
+ Dq+name2h+Dq,name2h,
+ Dq+"HIDDENDATA"+Dq,"HIDDENDATA", // 16.08.20from
+ Dq+"PARTITIONPT"+Dq,"PARTITIONPT",
+ Dq+"OTHERPARTITION"+Dq,"OTHERPARTITION" // 16.08.20upto
+ ];
+ fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
+ fd=apply(fd,replace(#,"_2","(2)"));
+ fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
+ cmdL=concat(cmdL,[
+ name3+"=Sfbdparadata",concat([fd,"Error"],reL),
+ name2+"=Projpara",[name3],
+ name3h+"=BorderHiddenData()",[],
+ name2h+"=Projpara",[name3h],
+ "function Ot=Hiddend(),global HIDDENDATA,Ot=HIDDENDATA,endfunction)"
+ ,[], // 16.08.20from
+ "function Ot=Otherp(),global OTHERPARTITION,Ot=OTHERPARTITION,endfunction)"
+ ,[],
+ "HIDDENDATA=Hiddend()",[],
+ "PARTITIONPT=PartitionPt()",[],
+ "OTHERPARTITION=Otherp()",[],
+ "for J=1:length(OTHERPARTITION)",[],
+ " Tmp1=OTHERPARTITION(J)",[],
+ " Tmp2=[]",[],
+ " for K=1:length(Tmp1)",[],
+ " Tmp2=[Tmp2;Tmp1(K),1000]",[],
+ " end",[],
+ " OTHERPARTITION(J)=Tmp2",[],
+ "end",[],
+ "WriteOutData",tmp
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"])); // 16.08.20
+ if(wflg==-1,options=concat(options,["r"]));
+ if(ErrFlag==0,
+ CalcbyS("sfbd"+nm,cmdL,options);
+ );
+ if(ErrFlag==1,
+ err("Sfbdparadata not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[fname]);
+ OutFileList=append(OutFileList,fname);
+ );
+ ReadOutData(fname);
+ if(islist(parse(name2)),
+ Extractdata(name2,options);
+ if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
+ Extractdata(name2h,tmp);
+ ,
+ ErrFlag=1;
+ );
+ );
+);
+
+Wireparadata(nm,out,wr1,wr2,fd):=
+ Wireparadata(nm,out,fd,wr1,wr2,[],["nodisp"]);
+Wireparadata(nm,out,fd,wr1,wr2,options):=
+ Wireparadata(nm,out,fd,wr1,wr2,options,["nodisp"]);
+Wireparadata(nm,outstr,fdorg,wr1,wr2,optionorg,optionsh):=(
+//help:Wireparadata("1","sfbd3d1",fd,5,5);
+//help:Wireparadata(options2=["Wait=40"]);
+ regional(out,fd,options,name2,name3,name2h,name3h,outreg,
+ eqL,reL,strL,fname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
+ name2="wire2d"+nm;
+ name3="wiref3d"+nm;
+ name2h="wireh2d"+nm;
+ name3h="wireh3d"+nm;
+ fname=Fhead+"wire"+nm+".txt";
+ tmp=replace(outstr,"3d","");
+ outfname=Fhead+tmp+".txt"; // 16.08.20
+ out=parse(outstr);
+ if(!islist(out), ErrFlag=1);
+ fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=40;
+ outreg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+// if(tmp1=="O", // 16.08.20from
+// tmp=Toupper(substring(tmp2,0,1));
+// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
+// options=remove(options,[#]);
+// );// 16.08.20upto
+ );
+ options=remove(options,reL);
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ flg=0;
+ tmp1=floor(5*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp=load(Fhead+replace(outstr,"3d","")+".txt");
+ if(length(tmp)>=4,
+ tmp2=substring(tmp,length(tmp)-4,length(tmp));
+ if(tmp2=="////",
+ flg=1;
+ );
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ if(flg==0,
+ Err(outstr+" file not copleted");
+ ErrFlag=1;
+ );
+ if(ErrFlag==0,
+// Writeoutdata(outfname,["Out",out]);
+ );
+ cmdL=MkprecommandS(5); // 16.02.01
+ tmp=[
+ Dq+fname+Dq,
+ Dq+name3+Dq,name3,
+ Dq+name2+Dq,name2,
+ Dq+name3h+Dq,name3h,
+ Dq+name2h+Dq,name2h
+ ];
+ fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
+ fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
+ fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
+ cmdL=concat(cmdL,[
+ "disp('Running Wireparadata')",[],
+ "tmp=ReadOutData",[Dq+outfname+Dq],
+ "execstr(tmp)",[],
+ "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
+ [], // 16.08.20from
+ "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
+ [],
+ "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
+ [],
+ "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
+ "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
+ "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
+ "for J=1:length(OTHERPARTITION)",[],
+ " Tmp=OTHERPARTITION(J)",[],
+ " OTHERPARTITION(J)=Tmp(:,1)",[],
+ "end",[],
+ "SetHidd(HIDDENDATA)",[],
+ "SetPart(PARTITIONPT)",[],
+ "SetOther(OTHERPARTITION)",[],
+ "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
+ name3+"=Wireparadata",concat([outstr,fd,wr1,wr2,"Error"],reL),
+ name2+"=Projpara",[name3],
+ name3h+"=WireHiddenData()",[],
+ name2h+"=Projpara",[name3h],
+ "WriteOutData",tmp
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ if(ErrFlag==0,
+ CalcbyS("wire"+nm,cmdL,options);
+ );
+ if(ErrFlag==1,
+ err("Wireparadata not completed");
+ ,
+ if(outreg==1,
+// OutFileList=remove(OutFileList,[fname]);
+// OutFileList=append(OutFileList,fname);
+ );
+ ReadOutData(fname);
+ if(!islist(parse(name2)), ErrFlag=1);
+ if(ErrFlag==0,
+ Extractdata(name2,options);
+ if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
+ Extractdata(name2h,tmp);
+ );
+ );
+);
+
+Crvsfparadata(nm,gd,out,fd):=
+ Crvsfparadata(nm,gd,out,fd,[],["nodisp"]);
+Crvsfparadata(nm,gd,out,fd,options):=
+ Crvsfparadata(nm,gd,out,fd,options,["nodisp"]);
+Crvsfparadata(nm,gdstr,outstr,fdorg,optionorg,optionsh):=(
+//help:Crvsfparadata("1","ax3d","sfbd3d1",fd);
+//help:Crvsfparadata(options2=["Wait=20"]);
+ regional(gd,out,fd,options,name2,name3,name2h,name3h,outreg,
+ eqL,reL,strL,fname,gdfname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
+ name2="crvsf2d"+nm;
+ name3="crvsf3d"+nm;
+ name2h="crvsfh2d"+nm;
+ name3h="crvsfh3d"+nm;
+ fname=Fhead+"crvsf"+nm+".txt";
+ gdfname=Fhead+"crv"+nm+".txt";
+ tmp=replace(outstr,"3d","");
+ outfname=Fhead+tmp+".txt"; // 16.08.20
+ gd=parse(gdstr);
+ out=parse(outstr);
+ if(!islist(out), ErrFlag=1);
+ fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=20;
+ outreg=1;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+// if(tmp1=="O",
+// tmp=Toupper(substring(tmp2,0,1));
+// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
+// options=remove(options,[#]);
+// );
+ );
+ options=remove(options,reL);
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ flg=0;
+ tmp1=floor(5*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp=load(Fhead+replace(outstr,"3d","")+".txt");
+ if(length(tmp)>=4,
+ tmp2=substring(tmp,length(tmp)-4,length(tmp));
+ if(tmp2=="////",
+ flg=1;
+ );
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ if(flg==0,
+ Err(outstr+" file not copleted");
+ ErrFlag=1;
+ );
+ if(wflg==0,
+ tmp=load(fname);
+ if(length(tmp)==0,wflg=1);
+ );
+ if(ErrFlag==0,
+// Writeoutdata(outfname,["Gc",gd,"Out",out]);
+// wait(WaitUnit);
+ );
+ cmdL=MkprecommandS(5); // 16.02.01
+ tmp=[
+ Dq+fname+Dq,
+ Dq+name3+Dq,name3,
+ Dq+name2+Dq,name2,
+ Dq+name3h+Dq,name3h,
+ Dq+name2h+Dq,name2h
+ ];
+ fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
+ fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
+ fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
+ cmdL=concat(cmdL,[
+ "disp('Running Crvsfparadata')",[],
+ "tmp=ReadOutData",[Dq+outfname+Dq],
+ "execstr(tmp)",[],
+ "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
+ [], // 16.08.20from
+ "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
+ [],
+ "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
+ [],
+ "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
+ "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
+ "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
+ "for J=1:length(OTHERPARTITION)",[],
+ " Tmp=OTHERPARTITION(J)",[],
+ " OTHERPARTITION(J)=Tmp(:,1)",[],
+ "end",[],
+ "SetHidd(HIDDENDATA)",[],
+ "SetPart(PARTITIONPT)",[],
+ "SetOther(OTHERPARTITION)",[],
+ "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
+ name3+"=Crvsfparadata",concat([gdstr,outstr,fd,"Error"],reL),
+ name2+"=Projpara",[name3],
+ name3h+"=CrvsfHiddenData()",[],
+ name2h+"=Projpara",[name3h],
+ "WriteOutData",tmp
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ if(ErrFlag==0,
+ CalcbyS("crvsf"+nm,cmdL,options);
+ );
+ if(ErrFlag==1,
+ err("Crvsfparadata not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[fname]);
+ OutFileList=append(OutFileList,fname);
+ );
+ ReadOutData(fname);
+ tmp=replace(gdstr,"3d","2d");
+ Changestyle([tmp],["nodisp"]);
+ Extractdata(name2,options);
+ if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
+ Extractdata(name2h,tmp);
+ );
+);
+
+Intersectcrvsf(nm,gd,fd):=
+ Intersectcrvsf(nm,gd,fd,[]);
+Intersectcrvsf(nm,gdstr,fdorg,optionorg):=(
+//help:Intersectcrvsf("1",ax3d_1,fd);
+//help:Intersectcrvsf(options=["Wait=10",50,0.05]);
+ regional(name,gd,fd,options,reL,fname,gdfname,
+ waiting,tmp,tmp1,tmp2,flg,wflg,pts);
+ name="intpts"+nm;
+ fname=Fhead+name+".txt";
+ gdfname=Fhead+"crv"+nm+".txt";
+ gd=parse(gdstr);
+ fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=10;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ options=remove(options,reL);
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ if(wflg>-1,
+ Writeoutdata(gdfname,["Gd",gd]);
+// wait(WaitUnit);
+ );
+ fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
+ fd=apply(fd,replace(#,"_2","(2)"));
+ fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
+ cmdL=[
+ "disp('Finding Intersectcrvsf')",[],
+ "Setangle",[THETA,PHI]*180/pi,
+ "tmp=ReadOutData",[Dq+gdfname+Dq],
+ "execstr(tmp)",[],
+ "Intpts=Intersectcrvsf",concat(["Gd",fd,"Error"],reL),
+ "tmp1='['",[],
+ "for J=1:length(Intpts)",[],
+ " tmp2=Intpts(J)",[],
+ " for K=1:length(tmp2)",[],
+ " if K==1",[],
+ " tmp1=tmp1+'['",[],
+ " end",[],
+ " tmp1=tmp1+string(tmp2(K))",[],
+ " if K<length(tmp2)",[],
+ " tmp1=tmp1+','",[],
+ " else",[],
+ " tmp1=tmp1+']'",[],
+ " end",[],
+ " end",[],
+ " if J<length(Intpts)",[],
+ " tmp1=tmp1+','",[],
+ " else",[],
+ " tmp1=tmp1+']||||'",[], //16.08.09
+ " end",[],
+ "end",[],
+ "fid=mopen('"+fname+"','w')",[],
+ " mputl(tmp1,fid)",[],
+ "mclose(fid)",[]
+ ];
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ if(ErrFlag==0,
+ CalcbyS(name,cmdL,options); // 16.08.14
+ );
+ if(ErrFlag==1,
+ err("Intersectcrvsf not completed");
+ ,
+ println(name+" obtained"); //16.08.14from
+ pts=load(fname);
+ pts=replace(pts,"||||","");
+ tmp=name+"="+pts;
+ parse(tmp);
+ parse(pts); //16.08.14upto
+ );
+);
+
+Skeletonparadata2(nm):=Skeletonparadata2(nm,[]);
+Skeletonparadata2(nm,options):=(
+ regional(tmp,tmp2,tmp3);
+ // tmp=apply(GCLIST,#_1);
+ // tmp=select(tmp,indexo(#,"2d")>0);
+ // tmp2=select(tmp,indexof(#,"sub")==0);
+ tmp3=Datalist3d();
+ Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
+ // tmp3=apply(tmp2,replace(#,"2d","3d"));
+ Skeletonparadata2(nm,"",tmp3,tmp3,options);
+);
+Skeletonparadata2(nm,Arg1,Arg2):=(
+ regional(nme,pltdata1,pltdata2,options);
+ if(isstring(Arg1) & islist(Arg2),
+ nme=Arg1;
+// pltdata1=parse("phe3d"+nme);
+ pltdata1="phe3d"+nme;
+ pltdata2=pltdata1;
+ options=Arg2;
+ ,
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=[];
+ );
+ Skeletonparadata2(nm,nme,pltdata1,pltdata2,options);
+);
+Skeletonparadata2(nm,Arg1,Arg2,Arg3):=(
+ regional(nme,pltdata1,pltdata2,options);
+ if(!isstring(Arg1),
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=Arg3;
+ ,
+ if(isstring(Arg2) & !isstring(Arg3),
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=Arg3;
+ ,
+ nme=Arg1;
+ pltdata1=Arg2;
+ pltdata2=Arg3;
+ options=[];
+ );
+ );
+ Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09
+);
+Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=(
+ regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2,
+ opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level);
+ name2="sk2d"+nm;
+ name3="sk3d"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ Inflg=tmp_3;
+ Outflg=tmp_4;
+ if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
+ realL=tmp_6;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ if(Noflg<3,
+ if(Outflg>=1,
+ println("Output Skeletonparadata2 "+name3);
+ if(isstring(pltdata1), // 15.05.27 from
+ tmp1=pltdata1;
+ ,
+ tmp1="";
+ forall(pltdata1,
+ tmp1=tmp1+#+",";
+ );
+ tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")";
+ );
+ if(isstring(pltdata2),
+ tmp2=pltdata2;
+ ,
+ tmp2="";
+ forall(pltdata2,
+ tmp2=tmp2+#+",";
+ );
+ tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")";
+ );
+ Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto
+ GLIST=append(GLIST,name3+"="+Str);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ if(Inflg==1,
+// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
+ if(nme!="", // 15.05.27
+ Changestyle3d("phe3d"+nme,["nodisp"]);
+ ,
+ forall(pltdata1, // 15.07.16
+ tmp=replace(#,"3d","2d");
+ if(contains(GCLIST,tmp),
+ Changestyle3d(#,["nodisp"]);
+ );
+ );
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ );
+ );
+);
+
+Skeletonparadata(nm):=Skeletonparadata(nm,[]);
+Skeletonparadata(nm,options):=(
+ regional(tmp,tmp2,tmp3);
+ tmp3=Datalist3d();
+ Skeletonparadata(nm,"",tmp3,tmp3,options);
+// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
+);
+Skeletonparadata(nm,Arg1,Arg2):=(
+//help:Skeletonparadata("1");
+//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]);
+//help:Skeletonparadata(options2=[width(1), "Wait=20]);
+ regional(nme,pltdata1,pltdata2,options);
+ if(isstring(Arg1) & islist(Arg2),
+ nme=Arg1;
+// pltdata1=parse("phe3d"+nme);
+ pltdata1="phe3d"+nme;
+ pltdata2=pltdata1;
+ options=Arg2;
+ ,
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=[];
+ );
+ Skeletonparadata(nm,nme,pltdata1,pltdata2,options);
+);
+Skeletonparadata(nm,Arg1,Arg2,Arg3):=(
+ regional(nme,pltdata1,pltdata2,options);
+ if(!isstring(Arg1),
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=Arg3;
+ ,
+ if(isstring(Arg2) & !isstring(Arg3),
+ nme="";
+ pltdata1=Arg1;
+ pltdata2=Arg2;
+ options=Arg3;
+ ,
+ nme=Arg1;
+ pltdata1=Arg2;
+ pltdata2=Arg3;
+ options=[];
+ );
+ );
+ Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09
+);
+Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=(
+ regional(name2,name3,eqL,strL,options,fname,outreg,waiting,
+ reL, pltdata1,pltdata2,wflg,opcindy,width,pdata,
+ tmp,tmp1,tmp2);
+ name2="sk2d"+nm;
+ name3="sk3d"+nm;
+ fname=Fhead+"sk"+nm+".txt";
+ pltdata1=[];// 16.01.31
+ forall(pltdata1org,tmp1,
+ tmp=parse(tmp1);
+ if(isstring(tmp_1),
+ pltdata1=concat(pltdata1,tmp);
+ ,
+ pltdata1=append(pltdata1,tmp1);
+ );
+ );
+ pltdata2=[];// 16.01.31
+ forall(pltdata2org,tmp1,
+ tmp=parse(tmp1);
+ if(isstring(tmp_1),
+ pltdata2=concat(pltdata2,tmp);
+ ,
+ pltdata2=append(pltdata2,tmp1);
+ );
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6; //16.02.28
+ strL=tmp_7;
+ opcindy=tmp_9;
+ waiting=20;
+ outreg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="O",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
+ options=remove(options,[#]);
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ width=1;
+ if(length(reL)>0, //16.02.28
+ width=reL_1;
+ );
+ forall(pltdata1,pdata,
+ tmp=select(GLIST,indexof(#,pdata+"=")>0);
+ if(tmp==0,
+ Defvar(pdata,parse(pdata));
+ );
+ );
+ forall(pltdata2,pdata,
+ tmp=select(GLIST,indexof(#,pdata+"=")>0);
+ if(tmp==0,
+ tmp=select(VLIST,#_1==pdata);
+ if(tmp==0,
+ Defvar(pdata,parse(pdata));
+ );
+ );
+ );
+ cmdL=MkprecommandS(4);
+ tmp2=[
+ Dq+fname+Dq,
+ Dq+name3+Dq,name3,
+ Dq+name2+Dq,name2
+ ];
+ cmdL=concat(cmdL,[
+ "Setangle",[THETA,PHI]*180/pi,
+ name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"],
+ name2+"=Projpara",[name3],
+ "WriteOutData",tmp2
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ if(ErrFlag==0,
+ CalcbyS("sk"+nm,cmdL,options);
+ );
+ if(ErrFlag==1,
+ err("Skeletonparadata not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[fname]);
+ OutFileList=append(OutFileList,fname);
+ );
+ ReadOutData(fname);
+ if(islist(parse(name2)),
+ Extractdata(name2,options);
+// if(isstring(pltdata1_1), // 16.01.31
+ tmp=apply(pltdata1,replace(#,"3d","2d"));
+// ,
+// tmp=replace(pltdata1org,"3d","2d");
+// );
+ Changestyle(tmp,["nodisp"]);
+// Changestyle3d(pltdata1,["nodisp"]);
+ ,
+ ErrFlag=1;
+ );
+ );
+);
+
+Skeletondatacindy(nm):=Skeletondatacindy(nm,[]);
+Skeletondatacindy(nm,options):=(
+ regional(tmp);
+ tmp=Datalist3d();
+ Skeletondatacindy(nm,tmp,tmp,options);
+);
+Skeletondatacindy(nm,pltdata1,pltdata2):=
+ Skeletondatacindy(nm,pltdata1,pltdata2,[]);
+Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
+//help:Skeletondatacindy("1");
+//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]);
+//help:Skeletondatacindy(options2=[1(width)]);
+ regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy,
+ Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data,
+ Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2);
+ name2="sk2d"+nm;
+ name3="sk3d"+nm;
+ pltdata1=[];// 16.01.31
+ forall(pltdata1org,tmp1,
+ tmp=parse(tmp1);
+ pltdata1=append(pltdata1,tmp);
+ );
+ pltdata2=[];// 16.01.31
+ forall(pltdata2org,tmp1,
+ tmp=parse(tmp1);
+ pltdata2=append(pltdata2,tmp);
+ );
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ reL=tmp_6; //16.02.28
+ opcindy=tmp_9;
+ Rr=0.075*1000/2.54/MilliIn;
+ size=1;
+ Eps2=0.05;
+ if(length(reL)>0, //16.02.28
+ size=reL_1;
+ Rr=size*Rr;
+ if(length(reL)>1,Eps2=reL_2);
+ );
+ Eps=10^(-4);
+ ObjL=Flattenlist(pltdata1);
+ Plt3L=Flattenlist(pltdata2);
+ tmp=apply(Plt3L,ProjcoordCurve(#));
+ Plt2L=Flattenlist(tmp);
+/////////// tmp=apply(pltdata1,replace(#,"3d","2d"));
+ Out=[];
+ forall(1..(length(ObjL)),ii,
+ Obj3=ObjL_ii;
+ tmp=ProjcoordCurve(Obj3);
+ Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2);
+ forall(1..(length(Data)),jj,
+ Gd=Data_jj;
+ if((length(Gd)>1)
+ & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps),
+ PtD=[];
+ forall(1..(length(Gd)),
+ tmp=Gd_#;
+ tmp1=Invparapt(tmp,Obj3);
+ PtD=append(PtD,tmp1);
+ );
+ Out=append(Out,PtD);
+ );
+ );
+ );
+ Out=select(Out,length(Projcurve(#))>0); // 16.12.19
+ tmp1=apply(Out,textformat(#,5));
+ tmp=name3+"="+tmp1;
+ parse(tmp);
+ tmp=name2+"=Projcurve("+tmp1+");";
+ parse(tmp);
+ Changestyle3d(pltdata1org,["nodisp"]);
+ if(Noflg<3,
+ println("generate skeleton :"+name3);
+ tmp1=text(pltdata1org);
+ tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
+ tmp2=text(pltdata2org);
+ tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
+ tmp=name3+"=Skeletonpara3data("+tmp1+","+tmp2+",";
+ tmp=tmp+text(size)+")";
+ GLIST=append(GLIST,tmp);
+ tmp=name2+"=Projpara("+name3+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
+ if(SUBSCR==1,
+ Subgraph(name3,opcindy);
+ );
+ );
+ Out;
+);
+
+Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=(
+ regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj,
+ Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te,
+ koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg);
+ Eps=10.0^(-4);
+ Dmat=[];
+ Dind=[];
+ forall(1..(length(Plt2L)),ii,
+ Dt=Plt2L_ii;
+ nn1=length(Dmat)+1;
+ Dmat=concat(Dmat,Dt);
+ nn2=length(Dmat);
+ Dind=append(Dind,[nn1,nn2]);
+ );
+ Nind=length(Dind);
+ Allres=[];
+ forall(1..(length(Obj2L)),Nobj,
+ Plt2=Obj2L_Nobj;
+ PhL=Columnlist(Plt2,1..2);
+ ClipL=[];
+ forall(1..(length(PhL)-1),ns,
+ pt1=PhL_(ns..(ns+1));
+ forall(1..(length(Dind)),ii,
+ tmp=Dind_ii;
+ tmp=Dmat_(Dind_ii_1..Dind_ii_2);
+ pt2=Columnlist(tmp,1..2);
+ koc=IntersectcrvsPp(pt1,pt2,[Eps]);
+ if(length(koc)>0,
+ breakflg=0;
+ forall(1..(length(koc)),jj,
+ contflg=0;
+ if(breakflg==0,
+ pt=Op(1,Op(jj,koc));
+ tmp=Op(2,Op(jj,koc));
+ if((tmp<1+Eps) & (ns==1),
+ contflg=1;
+ );
+ if(contflg==0,
+ if((tmp>length(pt1)-Eps)
+ & (ns==length(PhL)-1),
+ contflg=1;
+ );
+ );
+ if(contflg==0,
+ nn1=ns;
+ nn2=Op(3,Op(jj,koc));
+ tmp=Plt2_nn1;
+ pta=tmp_(1..2);
+ za=tmp_3;
+ tmp=Plt2_(nn1+1);
+ ptb=tmp_(1..2);
+ zb=tmp_3;
+ if(norm(pta-ptb)<Eps,
+ contflg=1;
+ );
+ );
+ if(contflg==0,
+ t1=norm(pta-pt)/norm(pta-ptb);
+ z1=(1-t1)*za+t1*zb;
+ tmp=Dmat_(Dind_ii_1..Dind_ii_2);
+ tmp1=tmp_nn2;
+ pta=tmp1_(1..2);
+ za=tmp1_3;
+ tmp2=tmp_(nn2+1);
+ ptb=tmp2_(1..2);
+ zb=tmp2_3;
+ if(norm(pta-ptb)<Eps,
+ contflg=1;
+ );
+ );
+ if(contflg==0,
+ t2=norm(pta-pt)/norm(pta-ptb);
+ z2=(1-t2)*za+t2*zb;
+ if(z1<z2-Eps2,
+ if(length(ClipL)==0,
+ tmp=1;
+ ,
+ tmp1=column(ClipL,1);
+ tmp1=apply(tmp1,#-pt_1);
+ tmp2=column(ClipL,2);
+ tmp2=apply(tmp2,#-pt_2);
+ tmp3=apply(tmp1,#^2)+apply(tmp2,#^2);
+ tmp=min(tmp3);
+ );
+ if(tmp>Eps^2,
+ tmp1=pt1_2-pt1_1;
+ tmp2=ptb-pta;
+ tmp3=Dotprod(tmp1,tmp2);
+ tmp3=tmp3/norm(tmp1)/norm(tmp2);
+ tmp=1-0.5*tmp3^2;
+ tmp1=concat(pt,[nn1,t1,R0/tmp]);
+ ClipL=append(ClipL,tmp1);
+ );
+ );
+ );
+ );
+ );
+ );
+ );
+ );
+ te=length(Plt2);
+ KukanL=[[1.0,te]];
+ pt1=PhL;
+ if(length(ClipL)>0,
+ forall(1..(length(ClipL)),ii,
+ tmp=ClipL_ii;
+ pt=tmp_(1..2);
+ nn=tmp_3;
+ tt=nn+tmp_4;
+ Rr=tmp_5;
+ Flg=0;
+ breakflg=0;
+ forall(reverse(1..nn),jj,
+ contflg=0;
+ if(breakflg==0,
+ ptq=PointonCurve(jj,pt1);
+ if(norm(pt-ptq)<Rr,
+ contflg=1;
+ );
+ if(contflg==0,
+ Flg=jj;
+ breakflg=1;
+ contflg=1;
+ );
+ );
+ );
+ if(Flg==0,
+ t1=1;
+ ,
+ t1=Flg; t2=tt;
+ hh=t2-t1;
+ forall(1..10,
+ hh=hh*0.5;
+ ptq=PointonCurve(t1+hh,pt1);
+ if(norm(pt-ptq)<Rr,
+ t2=t2-hh;
+ ,
+ t1=t1+hh;
+ );
+ );
+ );
+ Ku=[t1];
+ Flg=0;
+ breakflg=0;
+ forall((nn+1)..te,jj,
+ contflg=0;
+ if(breakflg==0,
+ ptq=PointonCurve(jj,pt1);
+ if(norm(pt-ptq)<Rr,
+ contflg=1;
+ );
+ if(contflg==0,
+ Flg=jj;
+ breakflg=1;
+ contflg=1;
+ );
+ );
+ );
+ if(Flg==0,
+ t2=te;
+ ,
+ t1=tt; t2=Flg;
+ hh=t2-t1;
+ forall(1..10,
+ hh=hh*0.5;
+ ptq=PointonCurve(t1+hh,pt1);
+ if(norm(pt-ptq)<Rr,
+ t1=t1+hh;
+ ,
+ t2=t2-hh;
+ );
+ );
+ );
+ Ku=append(Ku,t2);
+ KukanL=Kukannozoku(Ku,KukanL);
+ );
+ );
+ Res=[];
+ forall(1..(length(KukanL)),ii,
+ tmp=KukanL_ii;
+ t1=tmp_1; nn1=floor(t1);
+ t2=tmp_2; nn2=floor(t2);
+ PtL=[];
+ if(t1-nn1<1-Eps,
+ tmp=PointonCurve(t1,pt1);
+ PtL=[tmp];
+ );
+ forall((nn1+1)..nn2,jj,
+ tmp=PointonCurve(jj,pt1);
+ PtL=append(PtL,tmp);
+ );
+ if(t2-nn2>Eps,
+ tmp=PointonCurve(t2,pt1);
+ PtL=append(PtL,tmp);
+ );
+ tmp=Listplot("",PtL,["nodata"]);
+ Res=append(Res,tmp);
+ );
+ Allres=concat(Allres,Res);
+ );
+ Allres;
+);
+
+Kukannozoku(Jokyo,KukanL):=(
+ regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1);
+ Eps=10^(-6);
+ nn=length(KukanL);
+ t1=Jokyo_1; t2=Jokyo_2;
+ tmp=KukanL_1;
+ t1=max(t1,tmp_1);
+ tmp=KukanL_nn;
+ t2=min(t2,tmp_2);
+ Res=[];
+ Flg=0;
+ contflg=0;
+ forall(1..nn,ii,
+ if(contflg==0,
+ Ku=KukanL_ii;
+ if(Flg==0,
+ if(Ku_2<t1,
+ Res=append(Res,Ku);
+ ,
+ Flg=1;
+ if(Ku_1<t1-Eps,
+ tmp=[Ku_1,t1];
+ Res=append(Res,tmp);
+ );
+ if(Ku_2>t2+Eps,
+ tmp=[t2,Ku_2];
+ Res=append(Res,tmp);
+ );
+ );
+ ,
+ if(Flg==1,
+ if(Ku_2<t2,
+ contflg=1;
+ ,
+ if(contflg==0,
+ Flg=2;
+ if(Ku_1<t2-Eps,
+ Ku=[t2,Ku_2];
+ );
+ Res=append(Res,Ku);
+ );
+ );
+ ,
+ if(contflg==0,
+ Res=append(Res,Ku);
+ );
+ );
+ );
+ );
+ );
+ Res;
+);
+
+ProjcoordCurve(Curve):=(
+ regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz);
+ SP=sin(PHI); CP=cos(PHI);
+ ST=sin(THETA); CT=cos(THETA);
+ Out=[];
+ forall(1..(length(Curve)),jj,
+ pt=Curve_jj;
+ x=pt_1; y=pt_2; z=pt_3;
+ xz=-x*SP+y*CP;
+ yz=-x*CP*CT-y*SP*CT+z*ST;
+ zz=x*CP*ST+y*SP*ST+z*CT;
+ Out=append(Out,[xz,yz,zz]);
+ );
+ Out;
+);
+
+Divnohidhid(nm,dt3dorg,nvec):=Divnohidhid(nm,dt3dorg,nvec,[],["do"]);
+Divnohidhid(nm,dt3dorg,nvec,optionorg,options2):=(
+//help:Divnohidhid("1","sc3d1",nvec,["Num=100"],["Num=100","do"]);
+ regional(name,dt3d,options,pvec,disp,nohid,hid,flg,tmp,tmp1,eqL);
+ name="nh"+nm;
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ disp="Y";
+ forall(eqL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="D",
+ tmp=indexof(#,"=");
+ disp=Toupper(substring(#,tmp,tmp+1));
+ options=remove(options,[#]);
+ );
+ );
+ if(isstring(dt3dorg),dt3d=parse(dt3dorg),dt3d=dt3dorg);
+ pvec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
+ nohid=[];
+ hid=[];
+ flg=0;
+ forall(1..(length(dt3d)-1),
+ p1=dt3d_#;
+ p2=dt3d_(#+1);
+ tmp=assign(nvec,["x",p1_1,"y",p1_2,"z",p1_3]);
+ tmp=parse(tmp);
+ if(Dotprod(tmp,pvec)>0,
+ if(flg==0 % flg==-1,
+ nohid=append(nohid,[p1,p2]);
+ flg=1;
+ );
+ if(flg==1,
+ nohid_(length(nohid))=append(nohid_(length(nohid)),p2);
+ );
+ ,
+ if(flg==0 % flg==1,
+ hid=append(hid,[p1,p2]);
+ flg=-1;
+ );
+ if(flg==-1,
+ hid_(length(hid))=append(hid_(length(hid)),p2);
+ );
+ );
+ );
+ if(disp=="Y",
+ Changestyle3d([dt3dorg],["nodisp"]);
+ forall(1..length(nohid),
+ Spaceline(name+"nh"+text(#),nohid_#,options);
+ );
+ forall(1..length(hid),
+ Spaceline(name+"h"+text(#),hid_#,options2);
+ );
+ );
+ tmp1="[";
+ forall(nohid,tmp1=tmp1+textformat(#,5)+",");
+ tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ parse(name+"nh="+tmp1);
+ tmp1="[";
+ forall(hid,tmp1=tmp1+textformat(#,5)+",");
+ tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ parse(name+"h="+tmp1);
+ [nohid,hid];
+);
+
+Beziersurf(nm,m,n,pL):=(
+//help:Beziersurf("pt",2,2,pL);
+ regional(p3dL,ptlistx,ptlilsty,ptlistz);
+ factorial(n):=(
+ regional(out);
+ out=1;
+ forall(1..n,
+ out=out*#;
+ );
+ out;
+ );
+ Deffun("Comb(n,r)",[
+ "regional(y)",
+ "y=factorial(n)/(factorial(r)*factorial(n-r))",
+ "y"
+ ]);
+ Deffun("Bterm(u,v,m,n,i,j)",[
+ "regional(y)",
+ "y=Comb(m,i)*u^i*(1-u)^(m-i)",
+ "y=y*Comb(n,j)*v^j*(1-v)^(n-j)",
+ "y"
+ ]);
+ Deffun("Ball(u,v,m,n,pL)",[
+ "regional(y,ii,jj,tmp,tmp1)",
+ "y=0",
+ "forall(0..m,ii,
+ forall(0..n,jj,
+ tmp=(n+1)*ii+jj+1;
+ tmp1=Op(tmp,pL);
+ tmp1=tmp1*Bterm(u,v,m,n,ii,jj);
+ y=y+tmp1;
+ )
+ )",
+ "y"
+ ]);
+ if(ispoint(pL_1),
+ p3dL=apply(pL,parse(text(#)+"3d"));
+ ,
+ p3dL=apply(pL,parse(#+"3d"));
+ );
+ ptlistx=apply(p3dL,#_1);
+ ptlisty=apply(p3dL,#_2);
+ ptlistz=apply(p3dL,#_3);
+ Defvar(nm+"x",ptlistx);
+ Defvar(nm+"y",ptlisty);
+ Defvar(nm+"z",ptlistz);
+ tmp=[
+ "p",
+ "x=Ball(U,V,2,2,"+nm+"x)",
+ "y=Ball(U,V,2,2,"+nm+"y)",
+ "z=Ball(U,V,2,2,"+nm+"z)",
+ "U=[0,1]",
+ "V=[0,1]"
+ ];
+ tmp;
+);
+
+//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs
index bf9a81eb..d98cfe7c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("KETCindy V.3.0.2(2017.08.23)");
+println("KETCindy V.3.0.3(2017.09.10)");
println(ketjavaversion());//17.06.05
println("ketcindylibbasic1(2017.08.23) loaded");
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt
index cf775fa8..cf775fa8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt
new file mode 100644
index 00000000..11c299d1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt
@@ -0,0 +1,21 @@
+// s:2017.10.13
+// Ketinit() changed (definition of Shellparent,Shellchild)
+// s:2017.10.07
+// Pointdata debugged
+// s:2017.10.07
+// Setcolor debugged ( \ => \\ )
+// s:2017.10.06
+// Deqplot changed
+// s:2017.08.29
+// Ketinit changed (LibnameS)
+//2017.09.22
+// Texcom debugged
+// Setcolor changed ( Texcom used )
+//2017.09.18
+// SCIWR,SCIRE removed
+// 2017.09.17
+// Ketinit changed ( PathS=6... removed )
+// 2017.09.13
+// Changed to FnameR
+
+
diff --git a/texmf-dist/scripts/ketpic/data/js/ketcindylib.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs
index f1247e68..07bc68fd 100644
--- a/texmf-dist/scripts/ketpic/data/js/ketcindylib.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs
@@ -1,9 +1,50 @@
+// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+//
+//This program is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>
+//
+
+println("KETCindy V.3.1.0(2017.10.13)");
+println(ketjavaversion());//17.06.05
+println("ketcindylibbasic1(2017.10.13) loaded");
+
+//help:start();
+
+//help:drawimage([0,0],"picture.png",scale->2,alpha->0.4);
+//help:drawtext((2,1),"Text",size->2);
+//help:system(list=append(list,"a"););
+//help:system(list=concat(list,["a","b"]););
+//help:system(arccos,arcsin,arctan);
+//help:system(abs,round,floor,ceil);
+
+//help:Option1(["dr","dr,2","da","da,2,1","do","do,1,2"]);
+//help:Option2(["notex","nodisp","nodata"]);
+
+//help:getdirhead();
+//help:gedirhead("/Applications");
+//help:gedirhead("C:\Users\(username)");
+//help:setpath();
+
+Ch=[0]; ChNum=1;
+
Ketinit():=Ketinit(1);
+//help:Ketinit();
Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2);
+ regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc);
PenThickInit=8;
ULEN="1cm";
+ MARKLEN=0.2; //16.11.01
KETPICLAYER=20;
MilliIn=1/2.54*1000;
PenThick=round(MilliIn*0.02);
@@ -25,10 +66,9 @@ Ketinit(sy,rangex,rangey):=(
COM0thlist=[];
COM1stlist=[];
COM2ndlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
ADDAXES="1";
LFmark=unicode("000a");
+ CRmark=unicode("000d");//16.12.13
Dq=unicode("0022");
WaitUnit=10;
CONTINUED=0;
@@ -40,13 +80,29 @@ Ketinit(sy,rangex,rangey):=(
setdirectory(Dirwork);
if(isstring(Fhead), // 15.04.06
Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
+ FnameR=Fhead+".r";
+ FnamebodyR=Fhead+"body.r";
Fnameout=Fhead+".txt";
);
if(!isstring(Mackc),// 16.06.07
Mackc="sh";
);
+ if(iswindows(),
+ Batparent="\kc.bat";
+ ,
+ Shellparent="/kc.sh";
+ if(!isexists(Dirwork,""),
+ println(Dirwork+" not exist");
+ ,
+ if(!iskcexists(Dirwork),
+ setdirectory(Dirwork);
+ SCEOUTPUT = openfile(Shellparent);
+ closefile(SCEOUTPUT);
+ println(Shellparent+" generated");
+ );
+ println(setexec(Dirwork,Shellparent));
+ );
+ );
ArrowlineNumber=1; // 15.01.05
ArrowheadNumber=1;
BezierNumber=1; //15.01.03
@@ -58,20 +114,151 @@ Ketinit(sy,rangex,rangey):=(
YMIN=rangey_1/SCALEY;
YMAX=rangey_2/SCALEY;
Setwindow("Msg=n"); // 16.05.31
+ // for Presentation
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
+ SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+ letterc,mboxc,mboxc,mboxc,62,2,letterc];
+ ThinDense=0.1;//17.01.08
+ if(indexof(PathS,"-6.")>0,//17.09.29
+ if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0),
+ LibnameS=Dirlib+pathsep()+"ketpicscifiles6";
+ ,
+ LibnameS=Dirlib+pathsep()+"ketpic2escifiles6";
+ );
+ );//17.09.29upto
+);
+
+Setwindow():=Setwindow("Msg=yes");
+Setwindow(str):=(
+ regional(tmp,tmp1,tmp2,msg);
+ msg="y";
+ tmp=indexof(str,"="); // 16.02.10
+ tmp1=Toupper(substring(str,tmp,tmp+1));
+ if(tmp1=="N",msg="n");
+ if((ispoint(SW) & ispoint(NE)),
+ tmp1=Lcrd(SW);
+ tmp2=Lcrd(NE);
+ XMIN=tmp1_1; XMAX=tmp2_1;
+ YMIN=tmp1_2; YMAX=tmp2_2;
+ ,
+// XMIN=-5; XMAX=5;
+// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
+// createpoint("SW",Pcrd([XMIN,YMIN]));
+// createpoint("NE", Pcrd([XMAX,YMAX]));
+ Putpoint("SW",Pcrd([XMIN,YMIN]));
+ Putpoint("NE", Pcrd([XMAX,YMAX]));
+ );
+ if(msg=="y",
+ println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
+ );
+ layer(KETPICLAYER);
+ autoclearlayer(KETPICLAYER,true);
+ drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
+ Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
+);
+Setwindow(xrange,yrange):=(
+//help:Setwindow([2,3],[-1,1]);
+ XMIN=xrange_1;
+ XMAX=xrange_2;
+ YMIN=yrange_1;
+ YMAX=yrange_2;
+ Putpoint("SW",Pcrd([XMIN,YMIN]));//17.05.30
+ Putpoint("NE",Pcrd([XMAX,YMAX]));//17.05.30
+// Ketinit();
+);
+
+Setfiles(file):=( // 17.01.16
+//help:Setfiles(file);
+ Fhead=file;
+ Fnametex=Fhead+".tex";
+ FnameR=Fhead+".sce";
+ FnamebodyR=Fhead+"body.sce";
+ Fnameout=Fhead+".txt";
+);
+
+Setcindyname():=Setcindyname("");//16.12.25
+Setcindyname(file):=(
+//help:Setcindyname("Fhead");
+//help:Setcindyname(<only when on the terminal "ketcindy/cindy.sh "+file>);
+ regional(tmp,tmp1,tmp2);
+ setdirectory(Dirhead);
+ CindyPathName="";
+ CindyFileName="";
+ CindyPathName=load("cindypath.txt");
+ tmp2=load("cindyfile.txt");
+ tmp2=replace(tmp2,".cdy","");
+ if(length(tmp2)>0,
+ CindyFileName=tmp2;
+ if(length(file)>0,
+ tmp=file+"="+DqDq(tmp2);
+ parse(tmp);
+ println(file+" set to "+DqDq(tmp2));
+ );
+ ,
+ println("set "+file+" manually");
+ );
+ setdirectory(Dirwork);
+ CindyFileName;
+);
+
+Cindypath():=( // 16.12.26
+//help:Cindypath();
+ regional(out);
+ CindyPathName="";
+ setdirectory(Dirhead);
+ CindyPathName=load("cindypath.txt");
+ setdirectory(Dirwork);
+ if(length(CindyPathName)==0,
+ out=Dirwork;
+ ,
+ out=CindyPathName;
+ );
+ println(" path name="+out);
+ out;
+);
+
+Cindyfile():=( // 16.12.26
+//help:Cindyfile();
+ regional(out);
+ CindyFileName="";
+ setdirectory(Dirhead);
+ out=load("cindyfile.txt");
+ out=replace(out,".cdy","");
+ setdirectory(Dirwork);
+ CindyFileName=out;
+ println(" file name="+out);
+ out;
);
DqDq(str):=unicode("0022")+str+unicode("0022");
Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstr,options):=(
+Tab2list(dtstrorg,options):=(
//help:Tab2list(datastr);
-//help:Tab2list(options=[0]);
- regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2);
+//help:Tab2list(options=["Blank=(null)","Sep=tab"]);
+ regional(dtstr,dtall,dt,rep,out,crm,lfm,htm,first,eqL,sep,
+ tmp,tmp1,tmp2);
crm=unicode("000d");
lfm=unicode("000a");
htm=unicode("0009");
- rep=0;
- if(length(options)>0,rep=options_1);
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ rep="";
+ sep=htm;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="B",
+ tmp1="0123456789+-."; // 16.09.28from
+ tmp=substring(tmp2,0,1);
+ if(indexof(tmp1,tmp)>0,rep=parse(tmp2),rep=tmp2); // 16.09.28upto
+ );
+ if(tmp1=="S", // 16.12.04
+ if(tmp2!="tab",sep=tmp2);
+ );
+ );
first=lfm; // 16.09.05from
if(indexof(dtstr,crm)>0,
first=crm;
@@ -79,6 +266,11 @@ Tab2list(dtstr,options):=(
first=first+lfm;
); // 16.09.05upto
);
+ dtstr=dtstrorg;// 16.09.19from
+ tmp=substring(dtstr,length( dtstr)-1,length(dtstr));
+ if(tmp!=lfm,
+ dtstr=dtstr+first;
+ );// 16.09.19upto
tmp1=Indexall(dtstr,first);
tmp1=prepend(0,tmp1);
tmp1=append(tmp1,length(dtstr));
@@ -91,7 +283,7 @@ Tab2list(dtstr,options):=(
);
out=[];
forall(dtall,dt,
- tmp1=tokenize(dt,unicode("0009"));
+ tmp1=tokenize(dt,sep); //16.12.04
tmp2=[];
forall(tmp1,
if(isstring(#),tmp=parse(#),tmp=#);
@@ -134,11 +326,41 @@ Dispmat(dt):=( // 16.09.16
println();
);
+Sep1000(va):=( //17.07.18
+//help:Sep1000(1344555);
+//help:Sep1000([12456,55567]);
+ regional(str,nall,out);
+ if(islist(va),
+ out=apply(va,Sep1000(#));
+ ,
+ str=text(va);
+ nall=length(str);
+ out="";
+ forall(1..nall,
+ out=str_(nall+1-#)+out;
+ if((#<nall)&(mod(#,3)==0),
+ out=","+out;
+ );
+ );
+ );
+ out;
+);
+
+factorial(n):=(
+//help:factorial(5);
+ regional(out);
+ out=1;
+ forall(1..n,
+ out=out*#;
+ );
+ out;
+);
+
norm(v1):=( // 16.09.01
//help:norm([2,1,3]);
regional(out,tmp,tmp1,tmp2);
out=0;
- forall(1..length(v1),
+ forall(1..(length(v1)),
out=out+(v1_#)^2;
);
out=sqrt(out);
@@ -154,7 +376,7 @@ Removespace(str):=(
regional(tmp,flg,out);
tmp=length(str)+1;
flg=0;
- forall(1..length(str),
+ forall(1..(length(str)),
if(flg==0,
if((str_#)!=" ",
tmp=#;
@@ -165,7 +387,7 @@ Removespace(str):=(
out=substring(str,tmp-1,length(str));
flg=0;
tmp=0;
- forall(reverse(1..length(out)),
+ forall(reverse(1..(length(out))),
if(flg==0,
if((out_#)!=" ",
tmp=#;
@@ -181,7 +403,7 @@ Indexall(str,key):=(
out=[];
rest=str;
flg=0;
- forall(1..length(str),
+ forall(1..(length(str)),
if(flg==0,
tmp=indexof(rest,key);
if(tmp>0,
@@ -196,6 +418,155 @@ Indexall(str,key):=(
out;
);
+Parlevel(str):=Bracket(str); // 16.05.22from
+Bracket(str):=Bracket(str,"()");
+Bracket(str,br):=(
+//help:Bracket(string,"()");
+ regional(ph,pt,out,noL,ncL,nall,level,tmp);
+ ph=substring(br,0,1);
+ pt=substring(br,1,2);
+ noL=Indexall(str,ph);
+ ncL=Indexall(str,pt); // 16.05.22upto
+ nall=sort(concat(noL,ncL));
+ level=0;
+ out=[];
+ forall(nall,
+ if(contains(noL,#),
+ level=level+1;
+ tmp=[#,level];
+ ,
+ tmp=[#,-level];
+ level=level-1;
+ );
+ out=append(out,tmp);
+ );
+ out;
+);
+
+Pardiagram(str):=Pardiagram(str,[20]);
+Pardiagram(str,options):=(
+//help:Pardiagram(exprstr);
+//help:Pardiagram(options=[20,"Disp=y","Fig=y"]);
+ regional(reL,eqL,len,disp,scheme,bra,nn,sta,out,
+ opos,cpos,all,dx,dh,mxh,start,nn,p1,p2,p3,p4,tmp,tmp1,tmp2,tmp3);
+ len=20;
+ disp=1;
+ scheme=1;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="D",
+ if(tmp2=="N" % tmp2=="F",disp=0);
+ );
+ if(tmp1=="F",
+ if(tmp2=="N" % tmp2=="F",scheme=0);
+ );
+ );
+ forall(reL,
+ len=#;
+ );
+ bra=Bracket(str);
+ tmp1=select(bra,#_2>0);
+ tmp2=select(bra,#_2<0);
+ out=[];
+ forall(1..(length(tmp1)),nn,
+ sta=tmp1_nn;
+ tmp=select(tmp2,#_2==-sta_2 & #_1>sta_1);
+ tmp=tmp_1;
+ out=append(out, [substring(str,sta_1-1,tmp_1),
+ nn,sta_2,sta_1,tmp_1,
+ substring(str,sta_1-1,sta_1+len-1),
+ substring(str,tmp_1-len,tmp_1)] );
+ );
+ if(disp==1,
+ println("Printing from 2 to 7. (Extract full string using _1)");
+ apply(out,println(#_(2..7)));
+ );
+ if(scheme==1,
+ opos=sort(apply(out,#_4));
+ cpos=sort(apply(out,#_5));
+ tmp=concat(opos,cpos);
+ all=sort(tmp);
+ mxh=max(apply(out,#_3));
+ dx=1;
+ dh=1;
+ start=[-5,5];
+ forall(1..(length(all)),nn,
+ tmp=select(out,#_4==all_nn);
+ if(length(tmp)>0,
+ tmp1=tmp_1_3;
+ tmp2=tmp_1_4;
+ tmp3=tmp_1_5;
+ tmp=select(1..(length(all)),all_#==tmp3);
+ tmp4=tmp_1;
+ p1=start+[(nn-1)*dx,-0.5];
+ p2=p1+[0,(tmp1-mxh-1)*dh];
+ p3=p2+[(tmp4-nn)*dx,0];
+ p4=p3+[0,(mxh+1-tmp1)*dh];
+ Listplot("ch"+text(nn),[p1,p2,p3,p4],["Message=n"]);
+ Letter([p2,"s",text(tmp2),p3,"s",text(tmp3)]);
+ tmp=select(1..(length(opos)),opos_#==tmp2);
+ tmp=tmp_1;
+ if(tmp==1,
+ tmp=substring(str,tmp2-1,tmp2);
+ ,
+ if(opos_(tmp-1)==opos_tmp-1,
+ tmp=substring(str,tmp2-1,tmp2);
+ ,
+ tmp=substring(str,tmp2-2,tmp2);
+ );
+ );
+ tmp=replace(tmp,"^","**");
+ Expr(p1,"n",tmp);
+ tmp=select(1..(length(cpos)),cpos_#==tmp3);
+ tmp=tmp_1;
+ if(tmp==length(cpos),
+ tmp=substring(str,tmp3-1,tmp3);
+ ,
+ if(cpos_(tmp+1)==cpos_tmp+1,
+ tmp=substring(str,tmp3-1,tmp3);
+ ,
+ tmp=substring(str,tmp3-1,tmp3+1);
+ );
+ );
+ tmp=replace(tmp,"^","**");
+ Expr(p4,"n",tmp);
+ );
+ );
+ );
+ out;
+);
+
+Changelib(path):=(
+ Dirlib=path;
+ setdirectory(Dirlib);
+ import("ketcindyset.txt");
+ setdirectory(Dirwork); // 16.04.23
+);
+
+Changework(path):=( //16.10.21
+//help:Changework(directory);
+ regional(tmp);
+ if(path=="" % !isexists(path,""),
+ println("Directory "+path+" not exist, so set to "+Dirwork);
+ ErrFlag=-1;
+ ,
+ Dirwork=path;
+ setdirectory(Dirwork);
+ if(!iswindows(), //17.04.11
+ if(!iskcexists(Dirwork),
+ SCEOUTPUT = openfile("/kc.sh");
+ closefile(SCEOUTPUT);
+ println(setexec(Dirwork,"/kc.sh"));
+ );
+ );
+ );
+);
+
Changestyle(nameL,style):=(
//help:Changestyle(["sgAB"],["da"]);
regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp);
@@ -207,7 +578,8 @@ Changestyle(nameL,style):=(
forall(nmL,name,
Ltype=Ltypeorg;
GCLIST=select(GCLIST,#_1!=name);
- COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23
+ COM2ndlist=select(COM2ndlist,
+ (indexof(#,"("+name)==0)%(indexof(#,"Shade")>0)); // 15.05.23,16.12.13
if(Noflg<2,
if(isstring(Ltype),
Ltype=GetLinestyle(text(Noflg)+Ltype,name);
@@ -233,11 +605,148 @@ Op(n,object):=( // 16.05.25
out;
);
+Finddef(G):=(
+ regional(def,tmp,tmp1,tmp2,tmp3);
+ if(isstring(G),tmp=parse(G),tmp=G);
+ def=text(inspect(tmp,"definition"));
+ tmp1=indexof(def,"(");
+ tmp2=indexof(def,";");
+ tmp3=indexof(def,")");
+ tmp=[substring(def,0,tmp1-1)];
+ if(tmp2>0,
+ tmp=append(tmp,substring(def,tmp1,tmp2-1));
+ if(indexof(def,")",tmp3+1)==0,
+ tmp=append(tmp,substring(def,tmp2,tmp3-1));
+ ,
+ tmp=append(tmp,substring(def,tmp2,tmp3));
+ );
+ ,
+ tmp=append(tmp,substring(def,tmp1-1,tmp3));
+ );
+ tmp;
+);
+
+Findgeoinfo(geo):=(
+ regional(out,tmp,tmp1,tmp2);
+ tmp=Finddef(geo);
+ if(ispoint(parse(tmp_2)),
+ out=[tmp_2,tmp_3];
+ ,
+ tmp1=Findgeoinfo(parse(tmp_2));
+ if(ispoint(parse(tmp1_1)),
+ out=[tmp1_1,tmp1_2];
+ ,
+ tmp2=Findgeoinfo(parse(tmp1_2));
+ out=[tmp2_1,tmp2_2];
+ );
+ );
+ if(ispoint(geo),
+ if(!ispoint(parse(tmp_2)),
+ tmp1=Finddef(parse(tmp_2));
+ ,
+ tmp1=tmp;
+ );
+ out=append(out,tmp1_3);
+ ,
+ out=append(out,tmp_3);
+ );
+ out;
+);
+
+Dependgeo(geo):=(
+ regional(tmp,tmp1,tmp2,out);
+ tmp=Finddef(geo);
+ if(!iscircle(geo),
+ out=[text(geo)];
+ ,
+ out=[geo];
+ );
+ if(length(tmp)<3,
+ out=concat(out,[tmp_1,[]]);
+ ,
+ out=concat(out,[tmp_1]);
+ tmp1=[tmp_2,tmp_3];
+ tmp=parse(tmp1_2);
+ if(islist(tmp) % isreal(tmp),
+ tmp1=[tmp1_1];
+ );
+ out=append(out,tmp1);
+ );
+ out;
+);
+
+Workprocess():=Workprocess(300);
+Workprocess(nn):=Drawprocess(nn);
+Drawprocess():=Drawprocess(300);
+Drawprocess(nn):=(
+//help:Workprocess();
+ regional(All,added,remain,out,flg,tmp,tmp1,tmp2);
+ tmp=remove(allpoints(),[NE,SW,TH,FI]);
+ tmp1=select(tmp,
+ substring(text(#),length(text(#))-1,length(text(#)))!="z");
+ tmp1=concat(tmp1,alllines());
+// tmp1=concat(tmp1,allcircles());
+ All=apply(tmp1,Dependgeo(#));
+ added=select(All,length(#_3)==0);
+ out=sort(apply(added,#_1));
+ remain=remove(All,added);
+ flg=0;
+ repeat(nn,
+ if(flg==0,
+ tmp1=select(remain,remove(#_3,out)==[]);
+ tmp2=sort(apply(tmp1,#_1));
+ out=concat(out,tmp2);
+ remain=remove(remain,tmp1);
+ if(length(remain)==0,flg=1);
+ );
+ );
+ println("Process of drawing");
+ forall(out,
+ println(Dependgeo(parse(#)));
+ );
+ out;
+);
+
+Sortpointlist(list):=(
+ regional(plist,ilist,jj,kk,flg,p1,p2,in1,in2,
+ tmp,tmp1,tmp2,out);
+ out=list;
+ plist=list_1;
+ ilist=list_2;
+ flg=0;
+ forall(1..(length(plist)),jj,
+ p1=plist_jj;
+ in1=ilist_jj;
+ forall((jj+1)..(length(plist)),kk,
+ if(flg==0,
+ p2=plist_kk;
+ in2=ilist_kk;
+ if(contains(in1,p2),
+ tmp1=plist_(1..(jj-1));
+ tmp1=append(tmp1,p2);
+ tmp1=concat(tmp1,plist_((jj+1)..(kk-1)));
+ tmp1=append(tmp1,p1);
+ tmp1=concat(tmp1,plist_((kk+1)..(length(plist))));
+ tmp2=ilist_(1..(jj-1));
+ tmp2=append(tmp2,in2);
+ tmp2=concat(tmp2,ilist_((jj+1)..(kk-1)));
+ tmp2=append(tmp2,in1);
+ tmp2=concat(tmp2,ilist_((kk+1)..(length(plist))));
+ out=Sortpointlist([tmp1,tmp2]);
+ flg=1;
+ );
+ );
+ );
+ );
+ out;
+);
+
Toupper(str):=(
+//help:Toupper("Abc");
regional(alphabet,out,tmp,tmp1);
alphabet="abcdefghijklmnopqrstuvwxyz";
out="";
- forall(1..length(str),
+ forall(1..(length(str)),
tmp=substring(str,#-1,#);
tmp1=indexof(alphabet,tmp);
if(tmp1>0,
@@ -275,8 +784,12 @@ Textformat(value,dig):=(
Sprintf(value,dig):=(
//help:Sprintf(5.1,4);
regional(vv,tmp,tmp1);
- if(!islist(value),
- vv=Textformat(value,dig);
+ if(!islist(value), // 17.03.12from
+ if(isstring(value),
+ vv=value;
+ ,
+ vv=Textformat(value,dig);
+ ); // 17.03.12from
if(indexof(vv,".")==0,vv=vv+".");
vv=vv+"0000000000000000";
tmp=indexof(vv,".")+dig;
@@ -287,6 +800,16 @@ Sprintf(value,dig):=(
vv;
);
+Assign(str):=( // old
+ regional(out);
+ out=str;
+ forall(VLIST,
+ tmp=substring(#_1,0,length(#_1)-1);
+ out=replace(out,tmp,"("+#_2+")");
+ );
+ out;
+);
+
Assign(funstr,vrL):=(
regional(nn,out,tmp,tmp1);
nn=length(vrL)/2;
@@ -301,7 +824,8 @@ Assign(funstr,varname,rep):=(
//help:Assign("x^2+a*x","a",1.3);
//help:Assign("a*x^2+b*x",["a",1,"b",2]);
regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg);
- if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06
+ if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,6)+")");
+ // 15.02.09, 07.06,17.08.24
tmp=[46]; // 12.20
tmp=concat(tmp,48..57);
tmp=concat(tmp,65..90);
@@ -341,14 +865,15 @@ Assign(funstr,varname,rep):=(
);
MeasureDepth(list):=(
- regional(tmp,Depth,Flg);
+ regional(tmp,tmp1,Depth,Flg);
Flg=0;
Depth=0;
if(ispoint(list), // 15.01.22
Depth=0;
Flg=1;
,
- tmp=list_1;
+ tmp1=select(1..(length(list)),length(list_#)>0);//17.05.21from
+ tmp=list_(tmp1_1);//17.05.21upto
);
repeat(4,
if(Flg==0,
@@ -371,12 +896,12 @@ Flattenlist(pltlist):=(
if(MeasureDepth(pltlist)==1,
Out=[pltlist];
,
- forall(1..length(pltlist),nn,
+ forall(1..(length(pltlist)),nn,
Dt=pltlist_nn;
if(MeasureDepth(Dt)<2,
Out=append(Out,Dt);
,
- forall(1..length(Dt),ii,
+ forall(1..(length(Dt)),ii,
tmp=Flattenlist(Dt_ii);
Out=concat(Out,tmp);
);
@@ -694,6 +1219,7 @@ Koutenseg(pA,pB,pC,pD,options):=(
IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
IntersectcrvsPp(Gr1,Gr2,options):=(
//help:IntersectcrvsPp("gr1","pa1");
+//help:IntersectcrvsPp(options=[Eps2(0.1),"Dif=0.05"]);
regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2,
Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj,
pP,pQ,rT,Flg,eqL,realL,opstr,Dif);
@@ -729,11 +1255,11 @@ IntersectcrvsPp(Gr1,Gr2,options):=(
Tmp1=Reverse(Data2);
Eps0=10^(-6);
Tmp2=0;
- forall(1..length(Data1),
+ forall(1..(length(Data1)),
Tmp2=Tmp2+abs(Data1_#-Data2_#);
);
Tmp3=0;
- forall(1..length(Data1),
+ forall(1..(length(Data1)),
Tmp3=Tmp3+abs(Data1_#-Tmp1_#);
);
if(Tmp2<Eps0 % Tmp3<Eps0,
@@ -771,12 +1297,12 @@ IntersectcrvsPp(Gr1,Gr2,options):=(
Tmp=[pP,Ni+rT,Nj];
Out=[Tmp];
);
- forall(2..length(KL1),Ni,
+ forall(2..(length(KL1)),Ni,
Tmp=KL1_Ni;
pP=Tmp_1;
Tmp2=0;
Flg=0;
- forall(1..length(Out),Nj,
+ forall(1..(length(Out)),Nj,
if(Flg==0,
Tmp=Out_Nj;
if(|pP-Tmp_1|<Eps,
@@ -795,12 +1321,12 @@ IntersectcrvsPp(Gr1,Gr2,options):=(
Out=concat(Out,[Tmp]);
);
);
- forall(1..length(KL2),Ni,
+ forall(1..(length(KL2)),Ni,
Tmp=KL2_Ni; // 15.11.21 Usui
pP=Tmp_1;
Tmp2=0;
Flg=0;
- forall(1..length(Out),Nj,
+ forall(1..(length(Out)),Nj,
if(Flg==0,
Tmp=Out_Nj;
if(|pP-Tmp_1|<Eps,
@@ -821,12 +1347,14 @@ IntersectcrvsPp(Gr1,Gr2,options):=(
Tmp1=Out; // 15.04.06 from
Out=[];
forall(Tmp1,Tmp2,
- Tmp3=select(1..(length(Out)),|Out_#_1-Tmp2_1|<Dif);//16.11.27
+ Tmp3=select(1..(length(Out)),//16.11.27,
+ |Out_#_1-Tmp2_1|<Dif & |Out_#_2-Tmp2_2|<=1& |Out_#_3-Tmp2_3|<=1);
+ //17.04.13
if(length(Tmp3)==0,
Out=append(Out,Tmp2);
,
- forall(Tmp3,//16.11.27
- Out_#=(Out_#+Tmp2)/2;
+ forall(Tmp3, //16.11.27
+ Out_#_1=(Out_#_1+Tmp2_1)/2;//17.04.14
);
);
); // 15.04.06 upto
@@ -875,7 +1403,7 @@ Nearestpt(point,PL2):=(
if(MeasureDepth(PL)==2,PL=PL_1);
Eps=10^(-6);
Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|];
- forall(1..length(PL1),Nn, // 16.05.04
+ forall(1..(length(PL1)),Nn, // 16.05.04
pA=PL1_Nn;
Pm=PL_1;
Im=1;
@@ -942,7 +1470,7 @@ Intergrate(Arg1,Arg2,Arg3):=(
Integrate(pltdata,range,options):=(
//help:Integrate("gr1",[1,3]);
-//help:Integrate("gr1",[1,3],["Rule=t"]);
+//help:Integrate(options=["Rule=o"]);
regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2);
tmp=Divoptions(options);
eqL=tmp_5;
@@ -1047,7 +1575,11 @@ IntegrateO(pltdata,rangeorg):=(
//help:IntegrateO("gr1",[0,2]);
regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg,
Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
+ if(isstring(pltdata),
+ pdata=parse(pltdata);
+ ,
+ pdata=pltdata;
+ );
if(MeasureDepth(pdata)==2,pdata=pdata_1);
range=rangeorg;
pmflg=1;
@@ -1058,11 +1590,13 @@ IntegrateO(pltdata,rangeorg):=(
va1=MeetCurve(pdata,range_1,0);
va2=MeetCurve(pdata,range_2,0);
list=select(pdata,(#_1>range_1 & #_1<range_2));
- if((length(list)>0) & (list_1_1>list_(length(list))_1),
- list=reverse(list);
-// pmflg=pmflg*(-1);
+ if(length(list)>0, // 16.09.25
+ if(list_1_1>list_(length(list))_1, //16.11.03
+ list=reverse(list);
+// pmflg=pmflg*(-1);
+ );
);
- list=apply(list,LLcrd(#));
+ list=apply(list,LLcrd(#));
list=concat([va1],list);
list=concat(list,[va2]);
Sm=0;
@@ -1168,6 +1702,120 @@ Inversefun(fnstr,rngstr,value):=(
if(abs(va1)<=abs(va2),x1,x2);
);
+Com0th(String):=(
+ regional(str);
+ str=replace(String,LFmark,"");
+ COM0thlist=append(COM0thlist,str);
+);
+
+Com1st(String):=(
+ regional(str);
+ str=replace(String,LFmark,"");
+ GLIST=append(GLIST,str); // 15.05.27
+// COM1stlist=append(COM1stlist,str);
+);
+
+Com2nd(String):=(
+// help:Com2nd("");
+ regional(str);
+ str=replace(String,LFmark,"");
+ COM2ndlist=append(COM2ndlist,str);
+);
+
+Com2ndpre(String):=(
+ regional(str);
+ str=replace(String,LFmark,"");
+ COM2ndlist=prepend(str,COM2ndlist);
+);
+
+Texcom(strorg):=( //17.09.22
+//help:Texcom("\color[cmyk]{0,0,0,0.5}");
+ regional(str);
+ str=replace(strorg,"\","\\");
+ str=replace(str,"\\\\","\\");
+ str="Texcom("+Dq+str+Dq+")";
+ Com2nd(str);
+);
+
+Ketcindylogo():=(
+//help:Ketcindylogo();
+ Com2nd("Texcom("+Dq+"\def\ketcindy{{K\kern-.20em
+ \lower.5ex\hbox{E}\kern-.125em{TCindy}}}"+Dq+")");
+);
+
+Drwline():=Drwline(textformat(GrL,5));
+Drwline(gstr):=(
+ Com2nd("Drwline("+gstr+")");
+);
+
+Dashline(gstr):=(
+ Com2nd("Dashline("+gstr+")");
+);
+
+Invdashline(gstr):=(
+ Com2nd("Invdashline("+gstr+")");
+);
+
+Dottedline(gstr):=(
+ Com2nd("Dottedline("+gstr+")");
+);
+
+SetEnglish():=(
+//help:SetEnglish();
+ Com0th("setlanguage('en')");
+);
+
+Drawlinetype(name,type):=(
+//help:Drawlinetype("gr1","da,1");
+ regional(Dop,tmp,tmp1,tmp2);
+ Dop="";
+ tmp1=indexof(type,",");
+ if(tmp1>0,
+ Dop=","+substring(type,tmp1,length(type));
+ );
+ tmp1=Toupper(substring(type,0,3));
+ if(tmp1=="DR",
+ Drwline(name+Dop);
+ );
+ if(tmp1=="DA",
+ Dashline(name+Dop);
+ );
+ if(tmp1=="ID",
+ Invdashline(name+Dop);
+ );
+ if(tmp1=="DO",
+ Dottedline(name+Dop);
+ );
+);
+
+Setunitlen(string):=(
+//help:Setunitlen("5mm");
+ ULEN=string;
+ GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")");
+);
+
+Setmarklen(ratio):=(
+//help:Setmarklen(0.2);
+ MARKLEN=ratio*0.2;//16.11.01
+ Com2nd("Setmarklen("+textformat(ratio,5)+")");
+);
+
+Setorigin(point):=(
+//help:Setorigin([1,2]);
+ Com2nd("Setorigin("+textformat(point,5)+")");
+);
+
+Fontsize(sizestr):=(
+//help:Fontsize("s");
+ Com2nd("Fontsize('"+sizestr+"')");
+);
+
+Setpen(width):=(
+//help:Setpen(2);
+ PenThick=PenThickInit*width; // 16.04.09
+ Com2nd("Setpen("+text(width)+")");
+);
+
Lcrd(pt):=(
regional(tmp);
if(ispoint(pt),
@@ -1257,6 +1905,14 @@ Unscaling(pltdata):=(
Out;
);
+Setpt(n):=Ptsize(n);
+//help:Setpt(5);
+Ptsize(n):=(
+ println("Setpt("+text(n)+")");
+ TenSize=TenSizeInit*n;
+ Com2nd("Setpt("+text(n)+")"); // 14.01.19
+);
+
Definecolor(name,data):=(
//help:Definecolor("mycolor",[1,1,1,0]);
regional(type,tmp);
@@ -1296,8 +1952,7 @@ Setcolor(colorname,options):=(
if(islist(colorname),
tmp=text(colorname);
tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
+ Texcom("\color[cmyk]{"+tmp+"}"); //17.09.22
);
);
@@ -1306,7 +1961,7 @@ Setcolorrgb(colorlist):=(
regional(tmp);
tmp=text(colorlist);
tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")";
+ tmp="Texcom("+Dq+"\\color[rgb]{"+tmp+"}"+Dq+")"; //17.10.07
Com2nd(tmp);
);
@@ -1642,7 +2297,7 @@ Colorinfile(filename,clrf,clrt):=(
tmp1=load(filename);
tmp=tokenize(tmp1,"{\unitlength");
head=tokenize(tmp_1,"%%%");
- head=head_(2..length(head));
+ head=head_(2..(length(head)));
head=apply(head,"%%%"+#);
tmp2=tmp_2;
forall(1..5,
@@ -1657,7 +2312,7 @@ Colorinfile(filename,clrf,clrt):=(
forall(head,
println(SCEOUT,#);
);
- forall(1..length(body),
+ forall(1..(length(body)),
tmp=body_#;
if(#<length(body),
println(SCEOUT,tmp);
@@ -1731,7 +2386,7 @@ Chunderscore(str):=(
flg=0;
tmp2=[];
tmp3=0;
- forall(1..length(tmp1),
+ forall(1..(length(tmp1)),
if(flg==0,
tmp=substring(tmp1,tmp3,length(tmp1));
tmp=indexof(tmp,"_");
@@ -1812,7 +2467,7 @@ AddGraph(nm,pltdata,options):=(
flg=0;
tmp2=[];
tmp3=0;
- forall(1..length(tmp1),
+ forall(1..(length(tmp1)),
if(flg==0,
tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_");
if(tmp==0,
@@ -1839,7 +2494,7 @@ AddGraph(nm,pltdata,options):=(
tmp1=name+"=Listplot("+textformat(pdata,5)+")";
,
tmp1="list(";
- forall(1..length(pdata),
+ forall(1..(length(pdata)),
tmp=name+"p"+textformat(#,5)+"=";
if(length(pdata_#)>1, // 15.01.22
tmp=tmp+"Listplot("+textformat(pdata_#,5)+")";
@@ -1904,7 +2559,7 @@ Joincrvs(nm,plotstrL,options):=(
);
if(Flg==0,
PtL=QdL_1;
- forall(2..length(QdL),Ni,
+ forall(2..(length(QdL)),Ni,
Qd=QdL_Ni;
if(Numptcrv(Qd)>1,
pP=Ptend(PtL);
@@ -1928,7 +2583,7 @@ Joincrvs(nm,plotstrL,options):=(
if(rMN>Eps,
PtL=concat(PtL,Qd);
,
- PtL=concat(PtL,Qd_(2..length(Qd)));
+ PtL=concat(PtL,Qd_(2..(length(Qd))));
);
);
);
@@ -2093,6 +2748,16 @@ Pointdata(nm,list,options):=(
tmp=nameL+"="+tmp3;
parse(tmp);
if(Noflg<3,
+ tmp2="list("; //17.10.10from
+ forall(list,
+ if(isstring(#),
+ tmp=#;
+ ,
+ if(ispoint(#),tmp=text(#),tmp=textformat(#,6));
+ );
+ tmp2=tmp2+tmp+",";
+ );
+ tmp2=substring(tmp2,0,length(tmp2)-1)+")"; //17.10.10upto
GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
);
if(Noflg<2,
@@ -2352,7 +3017,7 @@ Plotdata(name1,func,variable,options):=(
);
);
tmp1=[];
- tmp2=select(1..length(PdL),PdL_#==["inf"]);
+ tmp2=select(1..(length(PdL)),PdL_#==["inf"]);
tmp=1;
forall(tmp2,
if(#>tmp,
@@ -2361,7 +3026,7 @@ Plotdata(name1,func,variable,options):=(
tmp=#+1;
);
if(tmp<length(PdL),
- tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]);
+ tmp1=concat(tmp1,[PdL_(tmp..(length(PdL)))]);
);
PdL=tmp1;
if(length(PdL)==1,
@@ -2394,29 +3059,6 @@ Plotdata(name1,func,variable,options):=(
);
PdL;
,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Plotdata "+name);
- tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Plotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
if(Noflg<2,
if(isstring(Ltype),
Ltype=GetLinestyle(text(Noflg)+Ltype,name);
@@ -2518,7 +3160,7 @@ Paramplot(name1,funstr,variable,options):=(
);
);
tmp1=[];
- tmp2=select(1..length(Out),Out_#==["inf"]);
+ tmp2=select(1..(length(Out)),Out_#==["inf"]);
tmp=1;
forall(tmp2,
if(#>tmp,
@@ -2527,7 +3169,7 @@ Paramplot(name1,funstr,variable,options):=(
tmp=#+1;
);
if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
+ tmp1=concat(tmp1,[Out_(tmp..(length(Out)))]);
);
Out=tmp1;
if(length(Out)==1,
@@ -2560,29 +3202,6 @@ Paramplot(name1,funstr,variable,options):=(
);
Out;
,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Paramplot "+name);
- tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Paramplotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
if(Noflg<2,
if(isstring(Ltype),
Ltype=GetLinestyle(text(Noflg)+Ltype,name);
@@ -2700,13 +3319,17 @@ Circledata(nm,cenrad,options):=(
Out;
);
-Framedata():=(
+Framedata():=Framedata(["dr"]);//16.10.29from
+Framedata(list):=(
regional(pA,pB);
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB]);
-);
-Framedata(list):=Framedata(list,[]);
+ if(MeasureDepth(list)==0,
+ pA=LLcrd((SW+NE)/2); // 15.09.17
+ pB=LLcrd(NE);
+ Framedata("win",[pA,pB],list);
+ ,
+ Framedata(list,[]);
+ );
+);//16.10.29upto
Framedata(Arg1,Arg2):=(
regional(name,list,options,str);
if(isstring(Arg1),
@@ -2723,11 +3346,10 @@ Framedata(Arg1,Arg2):=(
Framedata(name,list,options);
);
);
-
Framedata(nm,list,options):=(
//help:Framedata();
-//help:Framedata([A,B]);
-//help:Framedata("1",[A,B]);
+//help:Framedata([C,A]);
+//help:Framedata("1",[C,A]);
//help:Framedata("1",[C,dx,dy]);
regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy,
opcindy,Ltype,Noflg,cent,dx,dy);
@@ -2858,8 +3480,6 @@ Ovaldata(nm,Pdata,options):=(
tmp=name+"="+textformat(tmp1,5);
parse(tmp);
tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5);
- GLIST=append(GLIST,
- name+"=Ovaldata("+tmp+opstr+")");
);
Graph;
);
@@ -3443,6 +4063,7 @@ Anglemark(nm,plist,options):=(
regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos,
Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg);
name="ag"+nm;
+ Bpos="md"+name;
ra=0.5;
tmp=Divoptions(options);
Ltype=tmp_1;
@@ -3461,7 +4082,6 @@ Anglemark(nm,plist,options):=(
forall(eqL,
if(substring(#,0,1)=="L",Bname="Letter(");
if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
Bname=Bname+Bpos+","+Dq+"c"+Dq+","+Dq;//16.10.29
tmp=substring(#,indexof(#,"="),length(#));
tmp1=indexof(tmp,",");
@@ -3477,48 +4097,65 @@ Anglemark(nm,plist,options):=(
Rg=[arctan2(sab)+0,arctan2(sac)+0];
if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi);
Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- if(length(Bname)>0,
- Th=(Rg_1+Rg_2)/2;
+ if(ra>min(|sab|,|sac|), // 16.12.29
+ println(" segments too short");
+ ,
+ forall(0..Num,
+ Th=Rg_1+#*(Rg_2-Rg_1)/Num;
+ Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
+ );
+ Th=(Rg_1+Rg_2)/2; //16.10.31from(moved)
tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
tmp="Defvar("+Dq+Bpos+"=";
tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(plist,5);
- tmp1=substring(tmp,1,length(tmp)-1);
- tmp=name+"=Anglemark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
+ parse(tmp);//16.10.31upto(moved)
+ if(length(Bname)>0,
+ parse(Bname);
+ );
+ if(Noflg<3,
+ println("generate anglemark "+name+" and "+Bpos);
+ tmp1=apply(Out,Pcrd(#));
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp=textformat(plist,5);
+ tmp1=substring(tmp,1,length(tmp)-1);
+ tmp=name+"=Anglemark("+tmp1+opstr+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
);
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
);
Out;
);
Paramark(plist):=Paramark(plist,[]);
-Paramark(plist,options):=(
+Paramark(Arg1,Arg2):=( // 17.03.27 from
+ regional(nm,plist,options,tmp);
+ if(isstring(Arg1),
+ nm=Arg1;
+ plist=Arg2;
+ Paramark(nm,plist,[]);
+ ,
+ plist=Arg1;
+ options=Arg2;
+ tmp=textformat(plist,5);
+ tmp=replace(tmp,",","");
+ nm=substring(tmp,1,length(tmp)-1);
+ Paramark(nm,plist,options);
+ );
+);// upto
+Paramark(nm,plist,options):=(
//help:Paramark([A,B,C],["E=\theta"]);
+//help:Paramark("1",[p1,p2,p3],["E=\theta"]);
regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- tmp=substring(tmp,1,length(tmp)-1);
- name="pm"+tmp;
+ name="pm"+nm;
tmp=Divoptions(options);
Ltype=tmp_1;
Noflg=tmp_2;
@@ -3593,6 +4230,20 @@ MakeBowdata(pA,pB,Hgt):=(
[pC,ra,Th1,Th2];
);
+Bowdata(plist):=Bowdata(plist,[]);
+Bowdata(plist,options):=(
+ regional(nm,tmp);
+ if(islist(plist), // 16.12.04from
+ tmp=textformat(plist,5);
+ tmp=replace(tmp,",","");
+ nm=substring(tmp,1,length(tmp)-1);
+ Bowdata(nm,plist,options);
+ ,
+ nm=plist;
+ tmp=options;
+ Bowdata(nm,tmp,[]);
+ ); // 16.12.04upto
+);
Bowdata(nm,plist,options):=(
//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]);
//help:Bowdata([A,B],["Expr=t0n3,a"]);
@@ -3739,10 +4390,91 @@ Bowdata(nm,plist,options):=(
);
);
+Bowname(str):=Bowname("c",str);
+Bowname(dir,str):=(
+ Expr([BOWMIDDLE,dir,str]);
+);
+
+Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1);
+Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown);
+Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1);
+Bownamerot(bwdata,tmov,nmov,str,updown):=(
+ regional(bdata,tmp);
+ tmp=MeasureDepth(bwdata);
+ if(tmp==1,bdata=[bwdata],bdata=bwdata);
+ if(length(bdata)>1,
+ tmp=Ptend(bdata_2)-Ptstart(bdata_1);
+ ,
+ tmp=Ptend(bdata_1)-Ptstart(bdata_1);
+ );
+ if(updown<0,tmp=-tmp);
+ Exprrot(BOWMIDDLE,tmp,tmov,nmov,str);
+);
+
+Deqdata(deq,rng,initt,initf,Num):=( //17.10.04
+// Deqdata("[x1,...xn]`=[f1,...fn]","t=[0,20]",0,[...],50);
+ regional(Eps,Inf,tname,Xname,func,t1,t2,dt,tt,X0,flg,
+ kl1,kl2,kl3,kl4,pdL,tmp,tmp1,tmp2);
+ Eps=10^(-3);
+ Inf=10^3;
+ tmp=tokenize(deq,"=");
+ tmp1=replace(tmp_1,"`","");
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ Xname=tokenize(tmp1,",");
+ func=tmp_2;
+ forall(1..(length(Xname)),
+ func=replace(func,Xname_#,"X_"+text(#));
+ );
+ tmp=tokenize(rng,"=");
+ tname=tmp_1;
+ tmp=parse(tmp_2);
+ t1=tmp_1;
+ t2=tmp_2;
+ tmp="funP("+tname+",X):="+func+";";
+ parse(tmp);
+ tmp="funN("+tname+",X):=-"+func+";";
+ parse(tmp);
+ dt=(t2-t1)/Num;
+ tt=initt;
+ X0=Lcrd(initf);
+ pdL=[flatten([tt,X0])];
+ flg=0;
+ forall(1..floor((t2-initt)/dt),
+ if(flg==0,
+ kl1=dt*funP(tt,X0);
+ kl2=dt*funP(tt+dt/2,X0+kl1/2);
+ kl3=dt*funP(tt+dt/2,X0+kl2/2);
+ kl4=dt*funP(tt+dt,X0+kl3);
+ X0=X0+(kl1+2*kl2+2*kl3+kl4)/6;
+ tt=initt+#*dt;
+ tmp=flatten([tt,X0]);
+ pdL=append(pdL,tmp);
+ if(|tmp|>Inf,flg=1);
+ );
+ );
+ tt=initt;
+ X0=Lcrd(initf);
+ flg=0;
+ forall(1..floor((initt-t1)/dt),
+ if(flg==0,
+ kl1=dt*funN(tt,X0);
+ kl2=dt*funN(tt+dt/2,X0+kl1/2);
+ kl3=dt*funN(tt+dt/2,X0+kl2/2);
+ kl4=dt*funN(tt+dt,X0+kl3);
+ X0=X0+(kl1+2*kl2+2*kl3+kl4)/6;
+ tt=initt-#*dt;
+ tmp=flatten([tt,X0]);
+ pdL=prepend(tmp,pdL);
+ if(|tmp1|>Inf,flg=1);
+ );
+ );
+ pdL;
+);
+
Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]);
Deqplot(nm,deq,rng,Arg1,Arg2):=(
regional(initt,initf,options);
- if(isreal(Arg1) & length(Arg1)==1,
+ if(isreal(Arg1) & !islist(Arg1),
initt=Arg1;
initf=Arg2;
options=[];
@@ -3753,197 +4485,100 @@ Deqplot(nm,deq,rng,Arg1,Arg2):=(
);
Deqplot(nm,deq,rng,initt,initf,options);
);
-Deqplot(nm,deq,rng,initt,initf,options):=(
- regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2,
- tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- tmp2=tmp_2;
- tmp3=tokenize(tmp1,"`");
- if(length(tmp3)==2,
- if(indexof(tmp1,"[")>0,
- Deqplot(nm,deq,rng,initt,initf,options,[2,3]);
- ,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- tmp=tokenize(rng2,"=");
- deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]";
- rng2="t="+tmp_2;
- if(isreal(initf) & length(initf)==1,
- initf2=[initt,initf];
- initt2=initt;
- ,
- initf2=Lcrd(initf));
- initt2=initf2_1;
- Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]);
- );
- ,
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_9;
- opstr="";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="N",
- tmp=indexof(#,"=");
- tmp1="N="+substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp1+"'";
- );
- );
- if(Noflg<1,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- var2="d"+tmp3_1;
- deq2="["+tmp3_1+","+var2+"]`=[";
- tmp=replace(tmp2,tmp3_1+"`",var2);
- deq2=deq2+var2+","+tmp+"]";
- Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]);
- parse(tmp);
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- parse("de"+nm);
- );
- );
-);
-Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
+Deqplot(nm,deqorg,rngorg,initt,initf,options):=( //17.10.06
//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]);
//help:Deqplot("1","y``=-y","x",0, [1,0]);
-//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]);
- regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num,
- outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg,
- kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2);
+//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",0,[1,0.5]);
+ regional(deq,rng,Ltype,Noflg,eqL,opcindy,Num,name,nn,pdL,phase,
+ sel,tmp,tmp1,tmp2);
name="de"+nm;
tmp=Divoptions(options);
Ltype=tmp_1;
Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
eqL=tmp_5;
- strL=tmp_7;
-// opstr=tmp_(length(tmp)-1);
- opstr="";
opcindy=tmp_(length(tmp));
- outstr="";
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="S",
- outstr="Sci";
- );
- );
Num=50;
forall(eqL,
tmp=indexof(#,"=");
tmp2=substring(#,0,1);
tmp2=Toupper(tmp2);
tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp2+"="+tmp1+"'";
if(Toupper(substring(#,0,1))=="N",
Num=parse(tmp1);
);
);
- if(outstr=="Sci",
- if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1);
+ rng=rngorg;
+ if(indexof(rng,"=")==0,
+ rng=rng+"="+textformat([XMIN,XMAX],6);
);
- if(Noflg<3,
- if(outstr=="Sci",
- if(Outflg==1,
- println("Output Deqplot "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Deqplot "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- ,
- Eps=10^(-3);
- Inf=10^3;
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- func=tmp_2;
- tmp=indexof(tmp1,",");
- xf=substring(tmp1,1,tmp-1);
- yf=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(yf,"]");
- yf=substring(yf,0,tmp-1);
- tmp=tokenize(rng,"=");
- Vname=tmp_1;
- tmp=parse(tmp_2);
- t1=tmp_1;
- t2=tmp_2;
- tmp="funP("+Vname+","+xf+","+yf+"):="+func+";";
- parse(tmp);
- tmp=tokenize(func,",");
- tmp1="-("+substring(tmp_1,1,length(tmp_1))+")";
- tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")";
- tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];";
- parse(tmp);
- dt=(t2-t1)/Num;
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- pdL=[[tt,x0,y0]];
- flg=0;
- forall(1..floor((t2-initt)/dt),
- if(flg==0,
- kl1=dt*funP(tt,x0,y0);
- kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt+#*dt;
- pdL=append(pdL,[tt,x0,y0]);
- if(|tmp1|>Inf,flg=1);
- );
+ deq=deqorg;
+ tmp=indexof(deq,"=");
+ tmp1=substring(deq,0,tmp-1);
+ if(indexof(tmp1,"[")==0,
+ phase=0;
+ sel=[1,2];
+ ,
+ phase=1;
+ sel=[2,3];
+ );
+ tmp2=substring(deq,tmp,length(deq));
+ nn=length(Indexall(tmp1,"`"));
+ if(nn==1,
+ if(indexof(tmp1,"[")==0,
+ tmp1="["+replace(tmp1,"`","]`");
+ deq=tmp1+"="+tmp2;
+ );
+ ,
+ tmp=indexof(tmp1,"`");
+ tmp1=substring(tmp1,0,tmp-1);
+ deq="[";
+ forall(1..nn,
+ deq=deq+tmp1+"N"+text(#)+",";
+ );
+ deq=substring(deq,0,length(deq)-1)+"]`=[";
+ forall(1..(nn-1),
+ deq=deq+tmp1+"N"+text(#+1)+",";
+ );
+ forall(reverse(1..(nn)),jj,
+ tmp=tmp1;
+ forall(1..jj,
+ tmp=tmp+"`";
+ tmp2=replace(tmp2,tmp,tmp1+"N"+text(#+1));
);
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- flg=0;
- forall(1..floor((initt-t1)/dt),
- if(flg==0,
- kl1=dt*funN(tt,x0,y0);
- kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt-#*dt;
- pdL=prepend([tt,x0,y0],pdL);
- if(|tmp1|>Inf,flg=1);
+ );
+ tmp2=tmp2+"]";
+ forall(1..(length(tmp2)-1),
+ tmp=substring(tmp2,#-1,#);
+ if(tmp!=tmp1,
+ deq=deq+tmp;
+ ,
+ tmp=substring(tmp2,#,#+1);
+ if(tmp=="N",
+ deq=deq+tmp1;
+ ,
+ deq=deq+tmp1+"N1"
);
);
- println("Generate Deqplot "+name);
- pdL=apply(pdL,#_Sel);
- tmp1=apply(pdL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
);
- if(Noflg<1,
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
+ deq=deq+"]";
+ );
+ if(Noflg<3,
+ pdL=deqdata(deq,rng,initt,initf,Num);
+ if(phase==1,
+ pdL=apply(pdL,#_(2..3));
);
+ tmp1=apply(pdL,Pcrd(#));
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+ );
+ if(Noflg<1,
+ tmp=Assign(deq);
+ tmp=replace(deq,"'","`");
+ tmp=name+"=Deqplot('"+tmp+"','"+rng+"',";
+ tmp=tmp+format(initt,6)+","+textformat(initf,6);
+ tmp=tmp+","+text(sel)+",'Num="+text(Num)+"')";
+ tmp=RSform(tmp);
+ GLIST=append(GLIST,tmp);
);
if(Noflg<2,
if(isstring(Ltype),
@@ -3951,14 +4586,7 @@ Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
,
if(Noflg==1,Ltype=0);
);
- if(outstr=="Sci",
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- ,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- pdL;
- );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
);
);
@@ -3977,8 +4605,8 @@ EnclosingS(nm,plist,options):=(
realL=tmp_6;
opstr=tmp_(length(tmp)-1);
opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- EEps=0.1;
+ Eps=10^(-5); // 16.12.05
+ EEps=0.05;
Start=[];
Flg=0;
forall(realL,
@@ -4016,7 +4644,7 @@ EnclosingS(nm,plist,options):=(
pt=KL_1_1;
t1=KL_1_2;
tmp=|pt-Start|;
- forall(2..length(KL),ii, // 15.04.20
+ forall(2..(length(KL)),ii, // 15.04.20
tmp1=KL_ii_1;
tmp2=|tmp1-Start|; // 15.04.20
if(tmp2<tmp,
@@ -4030,7 +4658,7 @@ EnclosingS(nm,plist,options):=(
// pt=Pcrd(pt); // 15.09.12
Start=pt;
AnsL=[];
- forall(1..length(plist),nn,
+ forall(1..(length(plist)),nn,
Fdata=plist_nn;
if(nn>1, pt=qt);
if(nn==length(plist),
@@ -4068,7 +4696,7 @@ EnclosingS(nm,plist,options):=(
);
if(Flg<10,
t2=10^6; //%inf;
- forall(1..length(KL),ii,
+ forall(1..(length(KL)),ii,
tmp1=KL_ii_1;
tmp=KL_ii_3;
tmp2=ParamonCurve(tmp1,tmp,Fdata);
@@ -4086,7 +4714,7 @@ EnclosingS(nm,plist,options):=(
if(nn==1,
AnsL=tmp;
,
- AnsL=concat(AnsL,tmp_(2..length(tmp)));
+ AnsL=concat(AnsL,tmp_(2..(length(tmp))));
);
);
AnsL=apply(AnsL,Pcrd(#)); // 15.09.12
@@ -4095,15 +4723,28 @@ EnclosingS(nm,plist,options):=(
println("generate Enclosing "+name);
tmp=name+"="+textformat(AnsL,5);
parse(tmp);
-// tmp=name+"=Enclosing(";//16.10.20from
-// tmp1="list(";
-// forall(plist,
-// tmp1=tmp1+#+",";
+ tmp=name+"=Enclosing(";//16.11.07from
+ tmp1="list(";
+ forall(plist,
+ tmp1=tmp1+#+",";
+ );
+ tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
+ GLIST=append(GLIST,tmp);//16.11.07upto
+ // GLIST=append(GLIST,"Tmp=[]"); // 16.11.05from
+// nn=floor(length(AnsL)/20);
+// forall(1..nn,ii,
+// tmp=AnsL_(((ii-1)*20+1)..(ii*20));
+// tmp=apply(tmp,LLcrd(#));
+// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
+// GLIST=append(GLIST,tmp);
// );
-// tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- tmp=apply(AnsL,LLcrd(#));
- tmp=name+"=Listplot("+textformat(tmp,5)+")";//16.10.20upto
- GLIST=append(GLIST,tmp);
+// if(length(AnsL)>nn*20,
+// tmp=AnsL_((nn*20+1)..(length(AnsL)));
+// tmp=apply(tmp,LLcrd(#));
+// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
+// GLIST=append(GLIST,tmp);
+// );
+// GLIST=append(GLIST,name+"=Listplot(Tmp)"); // 16.11.05upto
);
if(Noflg<2,
if(isstring(Ltype),
@@ -4120,7 +4761,10 @@ EnclosingS(nm,plist,options):=(
Shade(plist):=Shade(plist,[]);
Shade(plist,options):=(
//help:Shade(["gr2","sg1"],[0.5]);
-//help:Shade([pointlist],[0.5]);
+//help:Shade(["gr2","sg1"],["red" /pict2e]);
+//help:Shade(["gr2","sg1"],[[0,0,0,0.5] /pict2e]);
+//help:Shade(["gr2","sg1"],[[1,0,0] /pict2e]);
+//help:Shade([pointlist]);
regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg);
if(isstring(plist_1), // 16.01.24
println("output Shade of "+plist);
@@ -4162,2228 +4806,5 @@ Shade(plist,options):=(
Com2nd(Str);
);
+//help:end();
-//help:start();
-
-Rotatepoint(point,Theta,ctr):=(
-//help:Rotatepoint(A,2*pi/3,B);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(ctr);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- [X2,Y2];
-);
-
-Translatepoint(point,mov):=(
-//help:Translatepoint(A,[2,3]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- X2=X1+Cx;
- Y2=Y1+Cy;
- [X2,Y2];
-);
-
-Scalepoint(point,ratio,center):=(
-//help:Scalepoint(A,[3,2],[0,0]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(center);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+ratio_1*(X1-Cx);
- Y2=Cy+ratio_2*(Y1-Cy);
- [X2,Y2];
-);
-
-Reflectpoint(point,symL):=(
-//help:Reflectpoint(A,B);
-//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
- regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- [X2,Y2];
-);
-
-Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
-Rotatedata(nm,plist,angle,options):=(
-//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
- opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="rt"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- if(isstring(angle),Theta=parse(angle),Theta=angle);
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Rotatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]);
-translatedata(nm,plist,mov,options):=(
-//help:translatedata("1",["gr1"],[1,2]);
- regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
- opcindy,X2,Y2,Ltype,Noflg,name);
- name="tr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=tmp_1+Cx;
- Y2=tmp_2+Cy;
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate translatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Scaledata(nm,plist,ratioV):=(
- regional(tmp);
- tmp=Lcrd(ratioV);
- Scaledata(nm,plist,tmp_1,tmp_2,[]);
-);
-Scaledata(nm,plist,Arg1,Arg2):=(
-//help:Scaledata("1","crAB",3,2,[[0,0]]);
- regional(tmp,options);
- if(islist(Arg2),
- tmp=Lcrd(Arg1);
- options=Arg2;
- Scaledata(nm,plist,tmp_1,tmp_2,options);
- ,
- Scaledata(nm,plist,Arg1,Arg2,[]);
- );
-);
-Scaledata(nm,plist,rx,ry,options):=(
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
- name="sc"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- Pt=Lcrd(tmp1_1);
- );
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=Cx+rx*(tmp_1-Cx);
- Y2=Cy+ry*(tmp_2-Cy);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Scaledata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
-Reflectdata(nm,plist,symL,options):=(
-//help:Reflectdata("1","crAB",[C]);
- regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="re"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Reflectdata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Mksegments():=Mksegments([]);
-Mksegments(options):=(
-//help:Mksegments();
- regional(segstr,p,q,r,tmp1,tmp2,tmp3);
- forall(allsegments(),seg,
- str=text(inspect(seg,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Listplot([parse(p),parse(q)]);
- );
-);
-
-Mkcircles():=Mkcircles([]);
-Mkcircles(options):=(
-//help:Mkcircles():
- regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
- forall(allcircles(),cir,
- str=text(inspect(cir,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- tmp4=indexof(str,";",tmp2+1);
- if(tmp4==0,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Circledata([parse(p),parse(q)]);
- ,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp4-1);
- r=substring(str,tmp4,tmp3-1);
- Circledata([parse(p),parse(q),parse(r)]);
- );
- );
-);
-
-Makesciarg(arglist):=(
- regional(str,tmpstr);
- str="";
- forall(arglist,
- if(isstring(#),
- tmpstr=Dq+#+Dq;
- ,
- tmpstr=textformat(#,5);
- );
- str=str+tmpstr+",";
- );
- str=substring(str,0,length(str)-1);
- str;
-);
-
-Setax(arglist):=(
-//help:Setax(["l","x","e","y","n","O","sw"]);
-//help:Setax([7,"nw"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com1st("Setax("+tmp+")");
-);
-
-Htickmark(arglist):=(
-//help:Htickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp="";
- tmp=Makesciarg(arglist);
- Com2nd("Htickmark("+tmp+")");
-);
-
-Vtickmark(arglist):=(
-//help:Vtickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com2nd("Vtickmark("+tmp+")");
-);
-
-Drwxy():=(
-//help:Drwxy();
- Com2nd("Drwxy()");
- Addax(0); // 16.01.21
-);
-
-Drwpt(pstr):=Drawpoint(pstr);
-Drwpt(ptlist,nn):=( // 16.03.05 from
-//help:Drwpt(A);
-//help:Drwpt("[1,1],0");
-//help:Drwpt(A,0);
-//help:Drwpt([1,2],0);
- Drawpoint(ptlist,nn);
-);
-Drawpoint(pstr):=(
- if(isstring(pstr),
- println("Drwpt : "+pstr);
- Com2nd("Drwpt("+pstr+")");
- ,
- Drawpoint(pstr,1);
- );
-);
-Drawpoint(ptlistorg,nn):=(
- regional(ptlist,thick,tmp,tmp1);
- println("Drwpt : "+text(ptlistorg));
- if(islist(ptlistorg),
- if(MeasureDepth(ptlistorg)==1,
- ptlist=ptlistorg
- ,
- ptlist=[ptlistorg]
- );
- ,
- ptlist=[ptlistorg]
- );
- thick=PenThick/PenThickInit;// 16.04.09 from
- tmp1=max(TenSize/TenSizeInit,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- forall(ptlist,
- tmp=textformat(#,5)+","+text(nn);
- Com2nd("Drwpt("+tmp+")"); // 16.04.09
- );
- Setpen(thick); // 16.04.09
-);// 16.03.05 upto
-
-Addax(param):=(
-//help:Addax(0);
- ADDAXES=text(param);
-);
-
-Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
-Expr(list):=Expr(list,[]);
-Expr(listorg,options):=( //16.10.09
-//help:Expr([A,"e","f(x)=x^2"]);
- regional(list,str,tmp,tmp1,tmp2);
- list=listorg;
- forall(1..round(length(list)/3),
- str=list_(3*#);
- if(!isstring(str),str=format(str,5));
- str="$"+str+"$";
- list_(3*#)=str;
- );
- Letter(list,options);
-);
-
-Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
-Letter(list):=Letter(list,[]);
-Letter(list,options):=(
-//help:Letter([C,"c","Graph of f(x)"]);
- regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
- opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
- tmp=Divoptions(options);
- Noflg=tmp_2;
- opL=select(options,indexof(#,"->")>0); //16.10.09from
- tmp=select(opL,indexof(#,"color"));
- size=12;
- clr=[0,0,0];
- bld=false;
- ita=false;
- aln="left";
- forall(opL,
- tmp=indexof(#,"->");
- tmp1=removespace(substring(#,0,tmp-1));
- tmp2=substring(#,tmp+1,length(#));
- if(tmp1=="size",sz=parse(tmp2));
- if(tmp1=="color",clr=parse(tmp2));
- if(tmp1=="bold",bld=parse(tmp2));
- if(tmp1=="ita",ita=parse(tmp2));
- );//16.10.09upto
- Off=-4;
- Dmv=8;
- Nj=1;
- while(Nj+2<=length(list),
-// Pos=textformat(list_Nj,5);
- Pos=list_Nj;
- Dir=list_(Nj+1);
- tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from
- if(tmp>0,
- tmp=indexof(Dir,"w")+indexof(Dir,"e");
- if(tmp==0,
- Dir="c"+Dir;//16.10.08
- );
- );//16.10.19upto
- Str=list_(Nj+2);
- if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
- tmp=replace(Str,".xy","");
- tmp=replace(tmp,".x","(1)");
- Str=replace(tmp,".y","(2)");
- if(indexof(Str,"`")>0,
-// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
- tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
- ,
- tmp=Dq+","+Dq+Str+Dq+")";
- );
- if(Noflg==0,
- Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
- );
- if(Noflg<2,
- Xmv=0;//16.10.13
- Ymv=-4;
- if(indexof(Dir,"n")>0,
- Ymv=Dmv/2;
- );
- if(indexof(Dir,"s")>0,
- Ymv=-Dmv*3/2;//16.10.13
- );
- if(indexof(Dir,"e")>0,
- Xmv=Dmv/2;
- Off=0;
- aln="left";
- );
- if(indexof(Dir,"w")>0,
- Xmv=-Dmv/2;
- Off=0; // 16.09.30from
- aln="right";
- );
- if(indexof(Dir,"c")>0,
- Xmv=0;//16.10.13
- Off=0;
- if(Ymv==0,Ymv=-4);//16.10.08
- aln="mid"; // 16.09.30upto
- );
- drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
- size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
- );
- Nj=Nj+3;
- );
-);
-
-Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
-Letterrot(pt,dir,movstr,str):=(
-//help:Letterrot(C,B-A,"AB"):
-//help:Letterrot(C,B-A,0,5,"AB"):
-//help:Letterrot(C,B-A,"t0n5","AB"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Letterrot(pt,dir,tmov,nmov,str);
-);
-Letterrot(pt,dir,tmov,nmov,str):=(
- Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
-Exprrot(pt,dir,movstr,str):=(
-//help:Exprrot(C,B-A,"d"):
-//help:Exprrot(C,B-A,0,5,"d"):
-//help:Exprrot(C,B-A,"t0n5","d"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Exprrot(pt,dir,tmov,nmov,str);
-);
-Exprrot(pt,dir,tmov,nmov,str):=(
- Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
-Putpoint(name,Ptinit,Pt):=(
-//help:Putpoint("A",[1,2],[1,A.y]);
- regional(ptstr);
- ptstr=apply(allpoints(),#.name);
- if(!contains(ptstr,name),
- createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
- ,
- ptstr=name+".xy="+textformat(Pcrd(Pt),5);
- parse(ptstr);
- );
-);
-
-Bezierpt(t,ptlist,ctrlist):=(
- regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
- p0=ptlist_1;
- p3=ptlist_2;
- p1=ctrlist_1;
- if(length(ctrlist)==1,
- p2=p3;
- flg3=0;
- ,
- p2=ctrlist_2;
- flg3=1;
- );
- if(length(p0)<3, // 15.02.08
- p0=Lcrd(p0);
- p3=Lcrd(p3);
- p1=Lcrd(p1);
- p2=Lcrd(p2);
- );
- p4=(1-t)*p0+t*p1;
- p5=(1-t)*p1+t*p2;
- p6=(1-t)*p2+t*p3;
- p7=(1-t)*p4+t*p5;
- p8=(1-t)*p5+t*p6;
- p9=(1-t)*p7+t*p8;
- if(flg3==0,p7,p9);
-);
-
-Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
-Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
-Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
-BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
-//help:Bezier("1",[A,D],[B,C]);
-//help:Bezier(options=["Num=10"]);
- regional(name,Ltype,Noflg,opstr,opcindy,Num,
- ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
- name="bz"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Num=10;
- tmp1=tmp_5;
- forall(tmp1, // 14.12.31
- if(substring(#,0,1)=="N",
- tmp2=indexof(#,"=");
- Num=parse(substring(#,tmp2,length(#)));
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
- ctrlist=[]; // 14.12.31
- if(length(ctrlistorg)==length(ptlist)-1,
- forall(ctrlistorg,tmp1,
- if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- ,
- forall(1..(length(ptlist)-1),ii,
- tmp=ctrlistorg_((2*ii-1)..(2*ii));
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- );
- if(!islist(Num),
- Num=apply(ctrlist,Num);
- );
- list=[];
- forall(1..(length(ptlist)-1),ii,
- tmp1=ptlist_(ii..(ii+1));
- tmp2=ctrlist_ii;
- if(ii==1,st=0,st=1);
- forall(st..Num_ii,
- tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
- list=append(list,tmp);
- );
- );
- if(Noflg<3,
- println("generate Bezier "+name);
- out=apply(list,Pcrd(#));
- tmp=name+"="+textformat(out,5);
- parse(tmp);
- tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- list;
-);
-
-Readcsvsla(fname):=Readplotdigdata(fname,[]);
-Readcsvsla(fname,options):=Readplotdigdata(fname,options);
-Readplotdigdata(fname):=Readplotdigdata(fname,[]);
-Readplotdigdata(fname,options):=(
- regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
- tmp=Divoptions(options);
- tmp1=tmp_6;
- sc=1;//10;
- mv=[0,0];//[5,5];
- forall(tmp1,
- if(!islist(#),sc=#,mv=#);
- );
- if(indexof(fname,".")>0,
- tmp=load(fname);
- ,
- tmp=load(fname+".txt");
- );
- cmdall=tokenize(tmp,"//");
- dataL=[];
- forall(2..length(cmdall),ii,
- tmp1=parse("["+cmdall_ii+"]");
- dataL=append(dataL,tmp1);
- );
- if(length(dataL_(length(dataL)))<2,
- dataL=dataL_(1..(length(dataL)-1));
- );
- nd=length(dataL_1)/2;
- npt=length(dataL);
- ptdata=[];
- forall(1..nd,ii,
- tmp3=[];
- forall(1..npt,
- tmp1=dataL_#_(2*ii-1);
- tmp2=dataL_#_(2*ii);
- if(isreal(tmp1),
- tmp3=append(tmp3,[tmp1,tmp2]);
- );
- );
- ptdata=append(ptdata,tmp3);
- );
- tmp1=[];
- forall(ptdata,
- tmp=#/sc;
- tmp=translatedata("1",[tmp],-mv,["nodata"]);
- tmp1=append(tmp1,tmp);
- );
- ptdata=tmp1;
- ptdata;
-);
-
-Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
-Putbezierdata(name,ptL,options):=(
- regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
- tmp=Divoptions(options);
- psize=3;
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- if(substring(#,0,1)=="S",
- tmp=indexof(#,"=");
- psize=parse(substring(#,tmp,length(#)));
- );
- );
- pts=[];
- ctrs=[];
- forall(1..length(ptL),
- p2=ptL_#; // 16.08.16
- if(ispoint(p2),
- tmp1=text(p2);
- ,
- tmp1=name+text(#);
- Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
- );
- inspect(parse(tmp1),"ptsize",psize);
- pts=append(pts,parse(tmp1));
- inspect(parse(tmp1),"color",4);
- if(#>1,
- p1=Lcrd(ptL_(#-1)); // 16.08.16
- p2=Lcrd(ptL_#); // 16.08.16
- if(Deg==3,
- tmp=(2*p1+p2)/3;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- tmp=(p1+2*p2)/3;
- tmp2=name+"q"+text(#-1);
- Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
- inspect(parse(tmp2),"labeled",false); //15.01.22
- Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
- inspect(parse(tmp2),"ptsize",psize);
- inspect(parse(tmp2),"color",3);
- ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
- ,
- tmp=(p1+p2)/2;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- ctrs=append(ctrs,[parse(tmp1)]);
- );
- );
- );
- [pts,ctrs,name];
-);
-
-Bezierstart(n):=( // 2016.02.26
- BezierNumber=n;
-);
-
-Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
-Mkbezierptcrv(ptdata,options):=(
- //help:Mkbezierptcrv([A,B,C,D]);
- //help:Mkbezierptcrv([[A,B],[C,D]]);
- //help:Mkbezierptcrv(options=["Num=10"]);
- // global BezierNumber
- regional(ptlist,Out,tmp,tmp1,tmp2);
- if(isstring(ptdata),
- ptlist=Readcsvsla(ptdata,options);
- ,
- ptlist=ptdata;
- );
- if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
- Out=[];
- forall(1..length(ptlist),
- tmp=floor((BezierNumber-1)/26);// 15.02.23
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber,26);
- if(tmp2==0,tmp2=26);
- tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
- tmp2=Putbezierdata(tmp1,ptlist_#,options);
- Bezier(tmp2,options);
- BezierNumber=BezierNumber+1;
- Out=append(Out,tmp2_(1..2));
- );
- Out;
-);
-
-Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
-Mkbeziercrv(nm,ptctrL,options):=(
- //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
- regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
- if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
- forall(1..length(ptctrLL),
- name=nm+text(#);
- ptlist=ptctrLL_#_1;
- ctrlist=ptctrLL_#_2;
- Bezier(name,ptlist,ctrlist,options);
- );
-);
-
-Writebezier():=Writebezier(Fhead,"all");
-Writebezier(head):=Writebezier(head,"all");
-Writebezier(head,seL):=(
-//help:Writebezier(file);
-//help:Writebezier(file,"acd");
- regional(bz,dt,name,tmp,tmp1,tmp2);
- bz=select(GLIST,indexof(#,"=Bezier")>0);
- tmp1=[]; // 16.04.22from
- if(seL!="all",
- forall(1..length(seL),
- tmp=substring(seL,#-1,#);
- tmp=select(bz,indexof(#,"bz"+tmp)>0);
- tmp1=concat(tmp1,tmp);
- );
- bz=tmp1;// 16.04.22upto
- );
- dt=[head+"n",[[length(bz),0]]];
- forall(1..length(bz),
- tmp=indexof(bz_#,"=");
- name=substring(bz_#,0,tmp-1);
- tmp=indexof(bz_#,","+Dq);
- if(tmp>0,
- tmp1=substring(bz_#,0,tmp-1)+")";
- ,
- tmp1=bz_#;
- );
- tmp1=replace(tmp1,"Bezier(","[");
- tmp1=replace(tmp1,"list(","[");
- tmp1=replace(tmp1,")","]");
- tmp1=replace(tmp1,",",".xy,");
- tmp1=replace(tmp1,"]",".xy]");
- tmp1=replace(tmp1,".xy,[",",[");
- tmp1=replace(tmp1,"].xy","]");
- tmp1=replace(tmp1,name,head+text(#));
- parse(tmp1);
- tmp=parse(head+text(#)+"_1");
- dt=concat(dt,[head+text(#)+"k",tmp]);
- tmp=parse(head+text(#)+"_2");
- dt=concat(dt,[head+text(#)+"c",tmp]);
- );
- WriteOutData(head+".txt",dt);
- dt;
-);
-
-Readbezier(file):=Readbezier(file,[]);
-Readbezier(file,optionorg):=(
-//help:Readbezier("xsr");
-//help:Readbezier(options=["Num=10","nogeo"]);
- regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
- options=optionorg;
- tmp=Divoptions(options);
- stL=tmp_7;
- geo=0;
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="G",geo=1);
- options=remove(options,[#]);
- );
- ReadOutData(file);
- tmp=file+"n_1_1";
- nn=parse(tmp);
- out=[];
- forall(1..nn,nc,
- tmp=file+text(nc);
- tmp1=parse(tmp+"k");
- tmp2=parse(tmp+"c");
- if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
- if(geo==1,
- alpha="abcdefghijklmnopqrstuvwxyz";
- forall(1..length(tmp1),
- tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
- Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"ptsize",3);
- tmp1_#=parse(tmp+".xy");
- );
- forall(1..length(tmp2),
- tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
- Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_1=parse(tmp+".xy");
- tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
- Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_2=parse(tmp+".xy");
- );
- BezierNumber=BezierNumber+1;
- );
- Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
- out=append(out,"bz"+tmp);
- );
- out;
-);
-
-Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
-Ospline(nm,ptlist,options):=(
-//help:Ospline("1",ptlist,[options]);
- regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
- p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- name="o"+nm;
- if(isstring(ptlist),list=parse(ptlist),list=ptlist);
- if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
-// list=apply(list,LLcrd(#));
- ctrL=[];
- forall(1..(length(list)-1),
- flg=0;
- p1=Lcrd(list_#); // 16.08.16
- p2=Lcrd(list_(#+1)); // 16.08.16
- if(#==1 % #==length(list)-1,
- flg=1;
- if(closed==0,
- pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
- pR=(2*p1+p2)/3; // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- flg=2;
- ,
- if(#==1,
- p0=Lcrd(list_(length(list)-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- ,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_2); // 16.08.16
- );
- );
- );
- if(flg<=1,
- if(flg==0,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- );
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
- pR=p2+cc*(p1-p3); // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- );
- );
-// list=apply(list,LLcrd(#)); // 16.08.16
-// ctrL=apply(ctrL,LLcrd(#));
- if(closed==0, // 15.09.21
- p1=ctrL_2_1;
- p2=Lcrd(list_2); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_1=[pQ];
- tmp=length(ctrL);
- tmp1=ctrL_(tmp-1);
- p1=ctrL_(tmp-1)_2;
- p2=Lcrd(list_(tmp)); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_tmp=[pQ];
- );
- Bezier("o"+nm,list,ctrL,options);
-);
-
-CRspline(nm,ptL):=CRspline(nm,ptL,[]);
-CRspline(nm,ptL,options):=(
- // Catmull-Rom spline
-//help:CRspline("1",[A,B,C,A]);
- regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
- name="crsp"+nm;
- if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
- ptlist=tmp_1;
- if(length(tmp)==1,
- cflg=1;
- ,
- cflg=0;
- ctrpts=tmp_2;
- );
- c=1/6;
- tmp=Divoptions(options);
- eqL=tmp_5;
- opcindy=tmp_(length(tmp)); // 15.03.05
- forall(eqL,
- if(substring(#,0,1)=="R",
- tmp2=indexof(#,"=");
- c=parse(substring(#,tmp2,length(#)));
- );
- );
- ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
- ctrlist=[];
- forall(1..(length(ptlist)-1),
- if(#==1,
- if(cflg==0,
- tmp1=ctrpts_1;
- ,
- v=ptlist_2-ptlist_(length(ptlist)-1);
- tmp1=ptlist_#+c*v;
- );
- ,
- v=ptlist_(#+1)-ptlist_(#-1);
- tmp1=ptlist_#+c*v;
- );
- if(#==length(ptlist)-1,
- if(cflg==0,
- tmp2=ctrpts_2;
- ,
- v=ptlist_2-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- ,
- v=ptlist_(#+2)-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- tmp=select(options,indexof(text(#),"->")>0);
- tmp=append(tmp,"notex"); //15.03.05
- Pointdata(name+text(#),[tmp1,tmp2],tmp);
- ctrlist=append(ctrlist,[tmp1,tmp2]);
- );
- Bezier(nm,ptlist,ctrlist,options);
-);
-
-Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
-//help:Beziersmooth("1",[A,B,C,A]);
-Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
-Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
-Bzspline(nm,ptLorg,options):=(
- // smooth bezier
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzsp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- lstr="c"+text(#);
- pt=ptLorg_#; // 16.08.16
- pt1=parse("C"+text(#-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp2="C"+text(#)+"p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp2],"PointOnLine",[parse(lstr),tmp]);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- tmp1="C1p";
- Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- if(cflg==1,
- lstr="c1";
- pt=ptLorg_1; // 16.08.16
- pt1=parse("C"+text(length(ptL)-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp1="C1p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp1],"PointOnLine",[parse(lstr),tmp]);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- if(#>1 % cflg==1,
- tmp1="c"+text(#);
- inspect(parse(tmp1),"alpha",0.3);
- );
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",3);
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
-Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
-Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
-Bzsspline(nm,ptLorg,options):=(
- // smooth bezier with symmetric control points
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzssp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- pt=ptL_#;
- pt1=parse("C"+text(#-1)+"q");
- tmp2="C"+text(#)+"p=2*pt-pt1";
- parse(tmp2);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
- inspect(C1p,"ptsize",3);
- inspect(C1p,"color",3);
- );
- if(cflg==1,
- pt=ptL_1;
- pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
- tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
- parse(tmp1);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Listbspline2bz(listorg):=(
- regional(Eps,list,pcl,ptl,ctrl,k);
- Eps=10^(-3);
- list=apply(listorg,Lcrd(#)); // 16.08.16
- k=length(list);
- if(|list_1-list_k|>Eps,
- pcl=list;
- pcl_1=2*list_1-list_2;
- pcl_k=2*list_k-list_(k-1);
- ,
- pcl=concat(list,[list_2]);
- );
- ctrl=apply(2..(length(pcl)-1),[pcl_#]);
- ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
- [ptl,ctrl];
-);
-
-Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
-Bspline(nm,ctrL,options):=(
-//help:Bspline("",[A,B,C]);
- regional(list,tmp);
- list=Listbspline2bz(ctrL);
- tmp=BezierCurve("b"+nm,list_1,list_2,options);
- tmp;
-);
-
-MeetCurve(Crv,Xorg,Yorg):=(
- regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
- if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
- if(MeasureDepth(Cv)==2,Cv=Cv_1);
- Cv=apply(Cv,LLcrd(#)); // 14.12.18
- while(length(Cv)==1,
- Cv=Cv_1;
- );
- Cv=apply(Cv,Lcrd(#));
- tmp1=min(apply(Cv,#_1));
- tmp2=max(apply(Cv,#_1));
- if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
- if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
- if(X0<tmp1,
- X0=tmp1;
- ,
- if(X0>tmp2,
- X0=tmp2;
- );
- );
- tmp1=select(
- 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
- tmp2=select(
- 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
- tmp2=remove(tmp2,common(tmp2,tmp1));
- Ban=concat(tmp1,tmp2);
- Tate=select(Ban,
- abs(Cv_#_1-Cv_(#+1)_1)<=
- 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
- );
- Ban=remove(Ban,Tate);
- Ylist=[];
- forall(Ban,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
- Ylist=append(Ylist,tmp);
- );
- forall(Tate,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp1=min([y1,y2]);
- tmp2=max([y1,y2]);
- if(Y0<tmp1,
- tmp=tmp1;
- ,
- if(Y0>tmp2,
- tmp=tmp2;
- ,
- tmp=Y0;
- );
- );
- Ylist=append(Ylist,tmp);
- );
- tmp=sort(Ylist,abs(#_1-Y0));
- [X0,tmp_1];
-);
-
-PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
-PutonLine(name,p1org,p2org,options):=(
-//help:PutonLine("C","sgAB");
-//help:PutonLine("C",pA,pB);
- regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- tmp1=(1-par)*p1+par*p2;
- if(abs(dx)>abs(dy),
- tmp=name+".x";
- tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
- Putpoint(name,tmp1,parse(tmp2));
- ,
- if(abs(dy)>0,
- tmp=name+".y";
- tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
- Putpoint(name,tmp1,parse(tmp2));
- ,
- tmp2=p1;//16.10.11
- Putpoint(name,tmp1,tmp2);
- );
- );
-);
-
-PutonSeg(name,sgstr):=(
- regional(seg,p1,p2);
- if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
- PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
-);
-PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
-PutonSeg(name,p1org,p2org,options):=(
-//help:PutonSeg("C","sgAB");
-//help:PutonSeg("C",pA,pB);
- regional(par,dx,dy,p,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- PutonLine(name,p1,p2,[par]);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- p=parse(name+".xy");
- p=LLcrd(p);
- if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");
- );
- );
- if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");//16.10.11upto
- );
- );
-);
-
-PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
-PutonCurve(pn,crv,options):=(
-//help:PutonCurve("A","gr1");
- regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
- if(!islist(options),optionL=[options],optionL=options);
- leftlim=XMIN;
- rightlim=XMAX;
- Flg=0;
- Msg="y";
- forall(optionL,
- if(isstring(#), // 16.02.10 from
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="N", Msg="n"); // 16.02.10 upto
- ,
- if(Flg==0,
- leftlim=#;
- Flg=Flg+1;
- ,
- rightlim=#;
- );
- );
- );
- Pmt=MeetCurve(crv,leftlim,0);
- pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
- if(!contains(pstr,pn),
- createpoint(pn,Pcrd(Pmt));
- ,
- tmp1=parse(pn+".x");
- if(tmp1< leftlim % tmp1>rightlim,
- if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
- Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
- ,
- Pmt=MeetCurve(crv,pn+".x",pn+".y");
- );
- ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
- parse(ptstr);
- );
- if(Msg=="y",
- println("Put "+pn+" on Curve "+text(crv));
- );
-);
-
-CrossPoint(name,Crv1,Crv2,range):=(
- regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
- Mx1=range_1; Mx2=range_2;
- repeat(15,
- Mx3=(Mx1+Mx2)/2;
- Crs1=MeetCurve(Crv1,Mx1,0);
- Crs2=MeetCurve(Crv2,Mx1,0);
- Crs3=MeetCurve(Crv1,Mx3,0);
- Crs4=MeetCurve(Crv2,Mx3,0);
- df1=Crs1_2-Crs2_2;
- df2=Crs3_2-Crs4_2;
- if((df1>0 & df2>0) % (df1<0 & df2<0),
- Mx1=Mx3;
- ,
- Mx2=Mx3;
- );
- );
- Putpoint(name,Crs1);
-);
-
-Setscaling(sc):=(
-//help:Setscaling(3);
- SCALEX=1;
- SCALEY=sc;
- Com0th("Setscaling("+sc+")");
- Setwindow("Msg=no");
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledatalight "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist));
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tabledata(nm,n,m,xsize,ysize,rmvL):=
- Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
-Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
- regional(Tb,name,tmp,xLst,yLst);
- name="tb"+nm;
- xLst=apply(1..n,xsize/n);
- yLst=apply(1..m,ysize/m);
- Tabledata(nm,xLst,yLst,rmvL,options)
-);
-Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
-Tabledata(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledata "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp="C"+text(#);
- tmp1="c"+text(#)+"r0";
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
- clist_(#+1)=parse(tmp+".xy");
- );
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp="R"+text(#);
- tmp1="c0r"+text(#);
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- rlist_(#+1)=parse(tmp+".xy");
- );
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(#<m,
- tmp1=parse("C"+text(#));
- tmp2=parse("C"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(#<n,
- tmp1=parse("R"+text(#));
- tmp2=parse("R"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist)); // 15.06.11
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tseginfo(seg):=(
- regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
- if(substring(seg,0,2)=="sg",
- cr=substring(seg,2,length(seg));
- ,
- cr=seg;
- );
- tp=substring(cr,0,1);
- if(tp=="c",
- tpc="r";
- ,
- tpc="c";
- );
- tmp1=indexof(cr,tpc);
- tmp=substring(cr,tmp1,length(cr));
- tmp2=tmp1+indexof(tmp,tpc);
- n1=substring(cr,1,tmp1-1);
- n2=substring(cr,tmp1,tmp2-1);
- n3=substring(cr,tmp2,length(cr));
- [tp+n1,tpc,parse(n2),parse(n3)];
-);
-
-Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
-Tsegrmv(rmvL,options):=(
- regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
- forall(rmvL,cr,
- tmp1=Tseginfo(cr);
- hd=tmp1_1;
- tpc=tmp1_2;
- m1=tmp1_3;
- m2=tmp1_4;
- gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
- flg=0;
- forall(gcL,
- if(flg==0,
- tmp=Tseginfo(#_1);
- n1=tmp_3;
- n2=tmp_4;
- if(m1>=n1 & m2<=n2,
- gc=#;
- flg=1;
- );
- );
- );
- if(flg==1,
- Changestyle([gc_1],["nodisp"]);
- tail="";
- if(indexof(hd,"r")>0,
- tail=hd; hd="";
- );
- if(n1<m1,
- tmp1=tpc+text(n1);
- tmp2=tpc+text(m1);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- if(m2<n2,
- tmp1=tpc+text(m2);
- tmp2=tpc+text(n2);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- );
- );
-);
-
-Tgrid(ptstr):=(
-//help:Tgrid("c2r5");
- regional(tmp,tmp1,tmp2);
- tmp=parse(ptstr);
- if(islist(tmp),
- tmp;
- ,
- tmp=indexof(ptstr,"r");
- tmp1=substring(ptstr,1,tmp-1);
- tmp1=parse(tmp1);
- tmp2=substring(ptstr,tmp,length(ptstr));
- tmp2=parse(tmp2);
- [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
- );
-);
-
-Tlistplot(ptL):=Tlistplot(ptL,[]);
-Tlistplot(Ag1,Ag2):=(
- regional(nm,ptL,options);
- if(isstring(Ag1),
- nm=Ag1;
- ptL=Ag2;
- options=[];
- ,
- ptL=Ag1;
- options=Ag2;
- nm=ptL_1+ptL_2;
- );
- Tlistplot(nm,ptL,options);
-);
-Tlistplot(nm,ptL,options):=(
-//help:Tlistplot(["c0r0","c0r4"]);
-//help:Tlistplot("1",["c0r0","c0r4"]);
- regional(tmp);
- tmp=apply(ptL,Tgrid(#)); // 15.06.03
- Listplot(nm,tmp,append(options,"Msg=no"));
-);
-
-ChangeTablestyle(nameL,style):=(
-////help:ChangeTablestyle(["r0c0c3"],["da"]);
- regional(nmL,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- nmL=apply(nmL,"sg"+#);
- nmL=select(nmL,islist(parse(#)));
- Changestyle(nmL,style);
-);
-
-Findcell(pos1,pos2):=Findcell("",pos1,pos2);
-Findcell(Tbdata,pos1,pos2):=(
-//help:Findcell("c0r0","c2r1");
- regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
- if(isstring(pos1),
- posnw=Tgrid(pos1); // 15.05.20
- posse=Tgrid(pos2);
- //posnw=parse(pos1);
- //posse=parse(pos2);
- ,
- if(islist(pos1),
- posnw=pos1;
- posse=pos2;
- ,
- tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
- tmp2="c"+text(pos1)+"r"+text(pos2);
- posnw=Tgrid(tmp1);
- posse=Tgrid(tmp2);
-// posnw=parse(tmp1);
-// posse=parse(tmp2);
- );
- );
- ctr=(posnw+posse)/2;
- dx=abs(posse_1-ctr_1);
- dy=abs(posnw_2-ctr_2);
- [ctr,dx,dy];
-);
-
-Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
-Putcell(Tbdata,pos1,pos2,dir,lttr):=(
-//help:Putcell("c0r0","c2r1","lt","abc");
-//help:Putcell(2,3,"c","xyz");
- regional(tmp,tmp1,tmp2,posnw,posse,
- posdir,posstr,ctr,dx,dy);
- tmp=Findcell(Tbdata,pos1,pos2);
- ctr=tmp_1; dx=tmp_2; dy=tmp_3;
- posdir=ctr;
- posstr=dir;
- if(indexof(dir,"b")>0,
- posdir_2=posdir_2-dy;
- posstr=replace(posstr,"b","n");
- );
- if(indexof(dir,"t")>0,
- posdir_2=posdir_2+dy;
- posstr=replace(posstr,"t","s");
- );
- if(indexof(dir,"l")>0,
- posdir_1=posdir_1-dx;
- posstr=replace(posstr,"l","e");
- );
- if(indexof(dir,"r")>0,
- posdir_1=posdir_1+dx;
- posstr=replace(posstr,"r","w");
- );
- Letter(posdir,posstr,text(lttr));
-);
-
-Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
-Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
-//help:Putcellexpr("c0r0","c2r1","lt","abc");
-//help:Putcellexpr(2,3,"c","\sin x");
- Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
-);
-
-Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
-Putrow(Tbdata,nrow,dir,lttrL):=(
-//help:Putrow(1,"c",["x","y","z"]);
- regional(tmp,tmp1,mcol);
- mcol=length(lttrL);
- forall(1..mcol,
- Putcell(Tbdata,#,nrow,dir,lttrL_#);
- );
-);
-
-Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
-Putrowexpr(Tbdata,nrow,dir,exL):=(
-//help:Putrowexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- Putrow(Tbdata,nrow,dir,lttrL);
-);
-
-PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
-PutcoL(Tbdata,mcol,dir,lttrL):=(
-//help:PutcoL(1,"c",["x","y","z"]);
- regional(tmp,tmp1,nrow);
- nrow=length(lttrL);
- forall(1..nrow,
- Putcell(Tbdata,mcol,#,dir,lttrL_#);
- );
-);
-PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
-PutcoLexpr(Tbdata,mcol,dir,exL):=(
-//help:PutcoLexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- PutcoL(Tbdata,mcol,dir,lttrL);
-);
-
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
-// XMIN=-5; XMAX=5;
-// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
- createpoint("SW",Pcrd([XMIN,YMIN]));
- createpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
-//help:Setwindow([2,3],[-1,1]);
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
-// Setwindow();
-);
-
-Sciform(list):=(
- regional(plotlist,comp,pos,out,out2,nn,strL,flg,
- tmp,tmp1,tmp2,tmp3,Nj);
- plotlist=Flatten([list]);
- out=replace(plotlist_1,".xy","");
- out=replace(out,".x","(1)");
- out=replace(out,".y","(2)");
- if(length(plotlist)==1,
- comp=[];
- forall(1..length(out),
- comp=append(comp,substring(out,#-1,#));
- );
- out="";
- pos=0;
- forall(comp,
- if(#!="'",
- out=out+#;
- ,
- if(pos==0,
- tmp=indexof(out,"Assign(");
- if(substring(out,length(out)-7,length(out))=="Assign(",
- out=out+"'";
- pos=1;
- ,
- out=out+"Assign('";
- pos=2;
- );
- ,
- if(pos==2,
- out=out+"')";
- ,
- out=out+"'";
- );
- pos=0;
- );
- );
- );
- ,
- forall(2..length(plotlist),
- comp=plotlist_#;
- if(isstring(comp),
- pos=indexof(comp,"Assign(");
- if(pos>0,
- comp=substring(comp,6,length(comp));
- );
- out=out+"Assign(";
- comp=replace(comp,".xy","");
- comp=replace(comp,".x","(1)");
- comp=replace(comp,".y","(2)");
- out=out+"'"+comp+"'";
- out=out+"),";
- );
- if(islist(comp),
- forall(comp,
- out=out+"'"+#+"',";
- );
- );
- );
- if(length(plotlist)>1,
- out=substring(out,0,length(out)-1);
- out=out+");";
- );
- );
- pos=[];
- forall(1..length(out),
- tmp=indexof(substring(out,#-1,length(out)),"Assign");
- if(tmp>0,
- tmp1=#-1+tmp;
- if(length(pos)==0,
- pos=[tmp1];
- ,
- if(pos_(length(pos))<tmp1,
- pos=append(pos,tmp1);
- );
- );
- );
- );
- if(length(pos)>0,
- strL=[];
- Nj=0;
- forall(pos,
- tmp=substring(out,Nj,#-1);
- strL=append(strL,tmp);
- Nj=#-1;
- );
- strL=append(strL,substring(out,Nj,length(out)));
- out="";
- forall(strL,
- if(indexof(#,"Assign")==0,
- out=out+#;
- ,
- tmp=indexof(#,"('");
- tmp1=indexof(#,"')");
- tmp2=substring(#,tmp+1,tmp1-2);
- tmp3=substring(#,tmp1-2,length(#));
- if(indexof(tmp2,"=")==0,
- out=out+#;
- ,
- tmp=substring(tmp2,0,indexof(tmp2,"="));
- out=out+"'"+tmp+"'+"+"Assign('";
- tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
- out=out+tmp+tmp3;
- );
- );
- );
- );
- out2=""; // patched 16.01.21 from
- nn=length(out);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=indexof(out,"='+Assign('");
- if(tmp==0,
- out2=out2+out;
- flg=1;
- ,
- out2=out2+substring(out,0,tmp);
- out=substring(out,tmp+10,length(out));
- tmp=indexof(out,"'"); // 16.04.19 from
- tmp1=substring(out,0,tmp-1);
- tmp2="1234567890";
- tmp=apply(1..length(tmp1),
- indexof(tmp2,substring(tmp1,#-1,#)));
- tmp=min(tmp);
- if(tmp==0, // 16.04.19 upto
- out2=out2+"'+Assign('";
- ,
- tmp=indexof(out,"'");
- out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto
- );
- );
- );
- );
- out2=replace(out2,"Dist=","D=");
- out2=replace(out2,"Dis=","D=");
- out2;
-);
-
-
-Rform(list):=(
- regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
- out=list;
- out=replace(out,"[[[","list([[");
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
- out=replace(out,".xy","");
- out=replace(out,".x","[1]");
- out=replace(out,".y","[2]");
- out;
-);
-
-Defvar(varstr):=(
- regional(name,value,tmp,tmp1);
- parse(varstr);
- tmp=indexof(varstr,"=");
- name=substring(varstr,0,tmp-1);
- value=substring(varstr,tmp,length(varstr));
- value=parse(value);
- tmp1=select(1..length(VLIST),VLIST_#_1==name+"=");
- if(length(tmp1)>0,
- tmp=tmp1_1;
- VLIST_tmp=[name+"=",value];
- ,
- VLIST=prepend([name+"=",value],VLIST);
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+format(#,5)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- tmp1=format(value,5);
- );
- tmp=name+"="+tmp1; // 15.02.06
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"="); // 15.02.08
- VLIST=prepend([name+"=",value],VLIST);
-);
-
-Iftosci(strorg):=( // 16.06.10
- regional(str,ifL,ppL,cpL,kk,sL,
- tmp,tmp1,tmp2,tmp3,tmp4);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ppL=Bracket(str,"()");
- cpL=Indexall(str,",");
- tmp1=Bracket(str,"[]");
- forall(1..(length(tmp1)/2),kk,
- cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1);
- );
- forall(1..length(ifL),kk,
- tmp=select(ppL,#_1>ifL_kk);
- tmp1=tmp_1;
- tmp2=select(tmp,#_2==-tmp1_2);
- tmp2=tmp2_1;
- tmp3=select(cpL,#>tmp1_1 & #<tmp2_1);
- ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3];
- );
- forall(1..length(cpL),kk,
- tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk));
- tmp1=tmp_(length(tmp));
- cpL_kk=[cpL_kk,tmp1];
- );
- sL=apply(1..length(str),substring(str,#-1,#));
- forall(1..length(ifL),kk,
- tmp1=ifL_kk_1;
- tmp2=ifL_kk_2;
- tmp=select(cpL,#_2==kk);
- tmp3=apply(tmp,#_1);
- sL_tmp1=" ";
- sL_tmp2=";end;";
- sL_(tmp3_1)=" then,";
- if(length(tmp3)>1,
- sL_(tmp3_2)=";else,";
- );
- );
- tmp=sum(sL);
-);
-
-Fortosci(strorg):=(
- regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4,
- Out,repL,Pflg,Iflg,Cflg);
- str=strorg;
- repL=[];
- tmp1=Indexall(str,"forall");
- tmp2=Indexall(str,",");
- forall(1..length(tmp1),jj,
- tmp=select(tmp2,#>tmp1_jj);
- var=substring(str,tmp_1,tmp_2-1);
- tmp3=substring(str,tmp1_jj-1,tmp_2-1);
- tmp=indexof(tmp3,"(");
- tmp4=substring(tmp3,tmp,length(tmp3));
- tmp=indexof(tmp4,",");
- tmp4=substring(tmp4,0,tmp-1);
- tmp4="for "+var+"="+tmp4;
- tmp4=replace(tmp4,"..",":");
- repL=concat(repL,[tmp3,tmp4]);
- );
- forall(1..length(repL)/2,
- str=replace(str,repL_(2*#-1),repL_(2*#));
- );
- tmp=Bracket(str);
- tmp=select(tmp,#_2==0);
- tmp=tmp_1_1;
- tmp1=substring(str,tmp-1,length(str));
- tmp1=replace(tmp1,")",";end");
- str=substring(str,0,tmp-1)+tmp1;
- str=replace(str,";;",";");
- str;
-);
-
-Deffun(name,bodylist):=(
-//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18
- regional(funstr,tmp,tmp1,str,Pos);
- funstr=name+":=(";
- forall(bodylist,
- funstr=funstr+#+";";
- );
- funstr=funstr+");";
- parse(funstr);
- tmp=bodylist_(length(bodylist));
- str="function "+tmp+"="+name+",";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");// 16.05.26
- tmp1=replace(tmp1," ","");// 16.05.26
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
- if(Pos==0,
- tmp=replace(tmp1,".xy","");
- tmp=replace(tmp,".x","(1)");
- tmp=replace(tmp,".y","(2)");
- if(indexof(tmp,"if(")>0,
- tmp=iftosci(tmp);
- );
- if(indexof(tmp,"forall(")>0, // 16.05.26from
- tmp=Fortosci(tmp);
- ); // 16.05.26upto
- str=str+tmp+",";
- );
- );
- str=str+"endfunction;";
- FUNLIST=append(FUNLIST,str);
-);
-
-Windispg():=(
- regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy);
- gsave();
- layer(KETPIClayer);
- forall(GCLIST,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
-// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
-// tmp2=apply(tmp2,Pcrd(#));
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- forall(2..length(Nk),
- tmp3=textformat(Nk_[#-1,#],5);
- tmp3=substring(tmp3,1,length(tmp3)-1);
- if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]");
- tmp="draw("+tmp3+
- ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- );
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
-// if(ADDAXES=="1", // 16.10.08from
-// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
-// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
-// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
-// Letter([[0,0],"sw","O"]);
-// ); // 16.10.08upto
- grestore();
- layer(0);
-);
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs
index 80e48da9..68775f1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs
@@ -3099,7 +3099,7 @@ Makeshell(texmainfile,flow):=(
tmp="sh "+Dq+Shellchild+Dq+tmp1; // 16.05.15,16.05.30
,
flg=0;
- forall(reverse(1..length(PathT)),
+ forall(reverse(1..(length(PathT))),
if(flg==0,
if(substring(PathT,#-1,#)=="/",
tex=substring(PathT,#,length(PathT));
@@ -3230,7 +3230,7 @@ Makebat(texmainfile,flow):=(
tmp=Dq+Batchild+Dq+tmp1;
,
flg=0;
- forall(reverse(1..length(PathT)),
+ forall(reverse(1..(length(PathT))),
if(flg==0,
if(substring(PathT,#-1,#)=="\",
tex=substring(PathT,#,length(PathT));
@@ -3934,6 +3934,7 @@ Setslidehyper(Arg):=(
Setslidehyper(driver,options):=(
//help:Setslidehyper();
//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]);
+//help:Setslidehyper([125,70,0]);
regional(reL,stL,tmp,tmp1,tmp2,str,reL);
str="";
reL=[];
@@ -4519,46 +4520,50 @@ Presentation(texfile,txtfile):=(
,
tmp4=concat(tmp4,["","\begin{layer}{120}{0}"]);
);
- if((hyperflg>0) & (LinkSize>0.15),
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from
- tmp1=tmp+text(paractr)+"pg";
- tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev);
- if(#>1,tmp=tmp1+text(1),tmp=tmp2);
- tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"];
- if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}");
- if(#>1,tmp=tmp1+text(#-1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}");
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para";
- tmp2=tmp+text(paractr+1)+"pg"+text(1);
- if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2);
- tmp3=append(tmp3,
+ if(hyperflg>0, //17.09.05
+ if(LinkSize>0.15, //17.09.05
+ tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from
+ tmp1=tmp+text(paractr)+"pg";
+ tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev);
+ if(#>1,tmp=tmp1+text(1),tmp=tmp2);
+ tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"];
+ if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}");
+ if(#>1,tmp=tmp1+text(#-1),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}");
+ tmp="{"+text(LinkPosV)+"}{\hyperlink{para";
+ tmp2=tmp+text(paractr+1)+"pg"+text(1);
+ if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}");
+ if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2);
+ tmp3=append(tmp3,
text(LinkPosH-5*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}");
- tmp3=apply(tmp3,tmp,"\putnotew{"+tmp);
- tmp4=concat(tmp4,tmp3);// 17.01.12uptor
- tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.10.21from
- tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}";
- tmp4=append(tmp4,tmp);//17.10.21upto
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}");
+ if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}");
+ tmp3=apply(tmp3,tmp,"\putnotew{"+tmp);
+ tmp4=concat(tmp4,tmp3);// 17.01.12upto
+ );//17.09.05
+ if(LinkPosH>0, //17.09.05
+ tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.01.21from
+ tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}";
+ tmp4=append(tmp4,tmp);//17.01.21upto
+ );
);
tmp4=concat(tmp4,["\end{layer}",""]);//16.12.31upto
Repeatsameslide(repeatflg,text([#]),tmp4);
@@ -5084,6 +5089,7 @@ BBdata(fname,optionorg):=(
tmp=replace(PathT,"pdflatex","extractbb"); //16.11.22
tmp=replace(tmp,"pdftex","extractbb"); //16.11.22
tmp=replace(tmp,"xelatex","extractbb");
+ tmp=replace(tmp,"uplatex","extractbb"); //17.09.20
tmp=replace(tmp,"platex","extractbb");
tmp=replace(tmp,"latex","extractbb");
tmp=tmp+" -O "+file;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt
index 98d7a8c3..d74a1a68 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt
@@ -1,3 +1,5 @@
+// s:2017.09.05
+// Presentation ( option about display of arrowbutton )
// s:2017.08.23
// thin changed so as to change dynamically
// \setthin{dense} supported
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt
new file mode 100644
index 00000000..289a096c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt
@@ -0,0 +1,28 @@
+//2017.10.13
+// Makebat,Makeshell,Mkslides debugged (Shellfile,Sehllchild removed )
+//2017.10.08
+// Mkslides debugged (Sheslide=>Shellslide )
+//2017.10.07
+// WritetoRS changed (for pict2e)
+// Helplist debugged ( for r )
+//2017.10.06
+// RSform debugged
+//2017.09.29
+// Viewparent debugged (WritetoRS)
+//2017.09.24
+// WritetoRS debugged ("\" => "/")
+// RSslash added
+// Letter changed (RSslash used)
+//2017.09.22
+// Defvar changed ("=" removed)
+// WritetoRS changed (Com1st,..., VLIST )
+//2017.09.18
+// Extractdata changed
+// SCIWR,SCIRE removed
+//2017.09.17
+// WritetoRS added
+// Viewtex changed ( Writetosci => WritetoR )
+//2017.09.16
+// RSform, Deffun, IftoR, FortoR changed( added )
+//2017.09.14
+// Makeshell, Makebat changed \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs
new file mode 100644
index 00000000..bbb7cf44
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs
@@ -0,0 +1,4999 @@
+// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+//
+//This program is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>
+//
+
+println("ketcindybasic2(2017.10.11) loaded");
+
+//help:start();
+
+Dispchoice():=(
+ if(islist(Ch),
+ if(!isreal(ChNum),ChNum=1);
+ drawtext(mouse().xy,"Ch="+text(Ch)+" N="+text(ChNum),size->24,color->[0,0,1]);
+ );
+);
+
+Datetime():=(
+//help:Datetime();
+ regional(names,dt,tmp);
+ tmp=getdatetime();
+ dt=tokenize(tmp," ");
+ dt=apply(dt,if(!isstring(#),text(#),#));
+ names=["Jan","Feb","Mar","Apr","May","Jun",
+ "Jul","Aug","Sep","Oct","Nov","Dec"];
+ tmp=select(1..12,names_#==dt_2);
+ tmp=text(tmp_1);
+ tmp=[dt_6+"/"+tmp+"/"+dt_3,dt_4];
+);
+
+Rotatepoint(point,Theta,ctr):=(
+//help:Rotatepoint(A,2*pi/3,B);
+ regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
+ tmp=Lcrd(point);
+ X1=tmp_1; Y1=tmp_2;
+ tmp=Lcrd(ctr);
+ Cx=tmp_1; Cy=tmp_2;
+ X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
+ Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
+ [X2,Y2];
+);
+
+Translatepoint(point,mov):=(
+//help:Translatepoint(A,[2,3]);
+ regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
+ tmp=Lcrd(point);
+ X1=tmp_1; Y1=tmp_2;
+ tmp=Lcrd(mov);
+ Cx=tmp_1; Cy=tmp_2;
+ X2=X1+Cx;
+ Y2=Y1+Cy;
+ [X2,Y2];
+);
+
+Scalepoint(point,ratio,center):=(
+//help:Scalepoint(A,[3,2],[0,0]);
+ regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
+ tmp=Lcrd(point);
+ X1=tmp_1; Y1=tmp_2;
+ tmp=Lcrd(center);
+ Cx=tmp_1; Cy=tmp_2;
+ X2=Cx+ratio_1*(X1-Cx);
+ Y2=Cy+ratio_2*(Y1-Cy);
+ [X2,Y2];
+);
+
+Reflectpoint(point,symL):=(
+//help:Reflectpoint(A,B);
+//help:Reflectpoint(A,[[2,3]]);
+//help:Reflectpoint(A,[C,E]);\\
+ regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
+ tmp=Lcrd(point);
+ X1=tmp_1; Y1=tmp_2;
+ Pt1=Lcrd(symL_1);
+ if(length(symL)==1,
+ Pt2=Pt1;
+ ,
+ Pt2=Lcrd(symL_2);
+ );
+ Us=Pt2_1-Pt1_1;
+ Vs=Pt2_2-Pt1_2;
+ if(Pt1==Pt2,
+ X2=2*Pt1_1-X1;
+ Y2=2*Pt1_2-Y1;
+ ,
+ X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
+ -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
+ Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
+ +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
+ );
+ [X2,Y2];
+);
+
+Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
+Rotatedata(nm,plist,angle,options):=(
+//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
+ regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
+ opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
+ name="rt"+nm;
+ Pt=[0,0];
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ tmp1=tmp_6;
+ if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
+ pdata=plist;
+ if(isstring(pdata),pdata=[pdata]);
+ if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
+ pdata=[pdata];
+ );
+ if(isstring(angle),Theta=parse(angle),Theta=angle);
+ Cx=Pt_1; Cy=Pt_2;
+ PdL=[];
+ forall(pdata,Njj,
+ if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
+ if(MeasureDepth(Kj)==1,Kj=[Kj]);
+ tmp2=[];
+ forall(Kj,Nj,
+ tmp1=[];
+ forall(Nj,
+ tmp=LLcrd(#);
+ X1=tmp_1;
+ Y1=tmp_2;
+ X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
+ Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
+ tmp1=concat(tmp1,[[X2,Y2]]);
+ );
+ tmp2=concat(tmp2,[tmp1]);
+ );
+ PdL=concat(PdL,tmp2);
+ );
+ if(Noflg<3,
+ println("generate Rotatedata "+name);
+ tmp1=[];
+ forall(PdL,tmp2,
+ tmp=apply(tmp2,Pcrd(#));
+ tmp1=append(tmp1,tmp);
+ );
+ if(length(tmp1)==1,tmp1=tmp1_1);
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+// tmp1=textformat(plist,5);
+ tmp1=text(plist); // 15.10.15
+ tmp1=replace(tmp1,"[","list(");
+ tmp1=replace(tmp1,"]",")");
+ tmp=name+"=Rotatedata("+tmp1+","
+ +textformat(angle,5)+","+textformat(Pt,5)+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ PdL;
+);
+
+Translatedata(nm,plist,mov):=Translatedata(nm,plist,mov,[]);
+Translatedata(nm,plist,mov,options):=(
+//help:Translatedata("1",["gr1"],[1,2]);
+ regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
+ opcindy,X2,Y2,Ltype,Noflg,name);
+ name="tr"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ pdata=plist;
+ if(isstring(pdata),pdata=[pdata]);
+ if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
+ pdata=[pdata];
+ );
+ tmp=Lcrd(mov);
+ Cx=tmp_1; Cy=tmp_2;
+ PdL=[];
+ forall(pdata,Njj,
+ if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
+ if(MeasureDepth(Kj)==1,Kj=[Kj]);
+ tmp2=[];
+ forall(Kj,Nj,
+ tmp1=[];
+ forall(Nj,
+ tmp=LLcrd(#);
+ X2=tmp_1+Cx;
+ Y2=tmp_2+Cy;
+ tmp1=concat(tmp1,[[X2,Y2]]);
+ );
+ tmp2=concat(tmp2,[tmp1]);
+ );
+ PdL=concat(PdL,tmp2);
+ );
+ if(Noflg<3,
+ println("generate Translatedata "+name);
+ tmp1=[];
+ forall(PdL,tmp2,
+ tmp=apply(tmp2,Pcrd(#));
+ tmp1=append(tmp1,tmp);
+ );
+ if(length(tmp1)==1,tmp1=tmp1_1);
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+// tmp1=textformat(plist,5);
+ tmp1=text(plist); // 15.10.15
+ tmp1=replace(tmp1,"[","list(");
+ tmp1=replace(tmp1,"]",")");
+ tmp=name+"=Translatedata("+tmp1+","+textformat(mov,5)+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ PdL;
+);
+
+Scaledata(nm,plist,ratioV):=(
+ regional(tmp);
+ tmp=Lcrd(ratioV);
+ Scaledata(nm,plist,tmp_1,tmp_2,[]);
+);
+Scaledata(nm,plist,Arg1,Arg2):=(
+//help:Scaledata("1","crAB",3,2,[[0,0]]);
+ regional(tmp,options);
+ if(islist(Arg2),
+ tmp=Lcrd(Arg1);
+ options=Arg2;
+ Scaledata(nm,plist,tmp_1,tmp_2,options);
+ ,
+ Scaledata(nm,plist,Arg1,Arg2,[]);
+ );
+);
+Scaledata(nm,plist,rx,ry,options):=(
+ regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
+ opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
+ name="sc"+nm;
+ Pt=[0,0];
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ tmp1=tmp_6;
+ if(length(tmp1)>0,
+ Pt=Lcrd(tmp1_1);
+ );
+ pdata=plist;
+ if(isstring(pdata),pdata=[pdata]);
+ if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
+ pdata=[pdata];
+ );
+ Cx=Pt_1; Cy=Pt_2;
+ PdL=[];
+ forall(pdata,Njj,
+ if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
+ if(MeasureDepth(Kj)==1,Kj=[Kj]);
+ tmp2=[];
+ forall(Kj,Nj,
+ tmp1=[];
+ forall(Nj,
+ tmp=LLcrd(#);
+ X2=Cx+rx*(tmp_1-Cx);
+ Y2=Cy+ry*(tmp_2-Cy);
+ tmp1=concat(tmp1,[[X2,Y2]]);
+ );
+ tmp2=concat(tmp2,[tmp1]);
+ );
+ PdL=concat(PdL,tmp2);
+ );
+ if(Noflg<3,
+ println("generate Scaledata "+name);
+ tmp1=[];
+ forall(PdL,tmp2,
+ tmp=apply(tmp2,Pcrd(#));
+ tmp1=append(tmp1,tmp);
+ );
+ if(length(tmp1)==1,tmp1=tmp1_1);
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+ tmp1=text(plist); // 15.10.15
+ tmp1=replace(tmp1,"[","list(");
+ tmp1=replace(tmp1,"]",")");
+ tmp=name+"=Scaledata("+tmp1+","
+ +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ PdL;
+);
+
+Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
+Reflectdata(nm,plist,symL,options):=(
+//help:Reflectdata("1","crAB",[C]);
+ regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
+ opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
+ name="re"+nm;
+ Pt=[0,0];
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opcindy=tmp_(length(tmp));
+ pdata=plist;
+ if(isstring(pdata),pdata=[pdata]);
+ if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
+ pdata=[pdata];
+ );
+ Pt1=Lcrd(symL_1);
+ if(length(symL)==1,
+ Pt2=Pt1;
+ ,
+ Pt2=Lcrd(symL_2);
+ );
+ Us=Pt2_1-Pt1_1;
+ Vs=Pt2_2-Pt1_2;
+ PdL=[];
+ forall(pdata,Njj,
+ if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
+ if(MeasureDepth(Kj)==1,Kj=[Kj]);
+ tmp2=[];
+ forall(Kj,Nj,
+ tmp1=[];
+ forall(Nj,
+ tmp=LLcrd(#);
+ X1=tmp_1;
+ Y1=tmp_2;
+ if(Pt1==Pt2,
+ X2=2*Pt1_1-X1;
+ Y2=2*Pt1_2-Y1;
+ ,
+ X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
+ -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
+ Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
+ +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
+ );
+ tmp1=concat(tmp1,[[X2,Y2]]);
+ );
+ tmp2=concat(tmp2,[tmp1]);
+ );
+ PdL=concat(PdL,tmp2);
+ );
+ if(Noflg<3,
+ println("generate Reflectdata "+name);
+ tmp1=[];
+ forall(PdL,tmp2,
+ tmp=apply(tmp2,Pcrd(#));
+ tmp1=append(tmp1,tmp);
+ );
+ if(length(tmp1)==1,tmp1=tmp1_1);
+ tmp=name+"="+textformat(tmp1,5);
+ parse(tmp);
+// tmp1=textformat(plist,5);
+ tmp1=text(plist); // 15.10.15
+ tmp1=replace(tmp1,"[","list(");
+ tmp1=replace(tmp1,"]",")");
+ tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
+ GLIST=append(GLIST,tmp);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ PdL;
+);
+
+Mksegments():=Mksegments([]);
+Mksegments(options):=(
+//help:Mksegments();
+ regional(segstr,p,q,r,tmp1,tmp2,tmp3);
+ forall(allsegments(),seg,
+ str=text(inspect(seg,"definition"));
+ tmp1=indexof(str,"(");
+ tmp2=indexof(str,";");
+ tmp3=indexof(str,")");
+ p=substring(str,tmp1,tmp2-1);
+ q=substring(str,tmp2,tmp3-1);
+ Listplot([parse(p),parse(q)]);
+ );
+);
+
+Mkcircles():=Mkcircles([]);
+Mkcircles(options):=(
+//help:Mkcircles():
+ regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
+ forall(allcircles(),cir,
+ str=text(inspect(cir,"definition"));
+ tmp1=indexof(str,"(");
+ tmp2=indexof(str,";");
+ tmp3=indexof(str,")");
+ tmp4=indexof(str,";",tmp2+1);
+ if(tmp4==0,
+ p=substring(str,tmp1,tmp2-1);
+ q=substring(str,tmp2,tmp3-1);
+ Circledata([parse(p),parse(q)]);
+ ,
+ p=substring(str,tmp1,tmp2-1);
+ q=substring(str,tmp2,tmp4-1);
+ r=substring(str,tmp4,tmp3-1);
+ Circledata([parse(p),parse(q),parse(r)]);
+ );
+ );
+);
+
+Makesciarg(arglist):=(
+ regional(str,tmpstr);
+ str="";
+ forall(arglist,
+ if(isstring(#),
+ tmpstr=Dq+#+Dq;
+ ,
+ tmpstr=textformat(#,5);
+ );
+ str=str+tmpstr+",";
+ );
+ str=substring(str,0,length(str)-1);
+ str;
+);
+
+Setax(arglist):=(
+//help:Setax(["l","x","e","y","n","O","sw"]);
+//help:Setax([7,"nw"]);
+ regional(tmp);
+ tmp=Makesciarg(arglist);
+ Com1st("Setax("+tmp+")");
+);
+
+Htickmark(arglist):=(
+//help:Htickmark([1,"1",2,"sw","2"]);
+ regional(tmp);
+ tmp="";
+ tmp=Makesciarg(arglist);
+ Com2nd("Htickmark("+tmp+")");
+);
+
+Vtickmark(arglist):=(
+//help:Vtickmark([1,"1",2,"sw","2"]);
+ regional(tmp);
+ tmp=Makesciarg(arglist);
+ Com2nd("Vtickmark("+tmp+")");
+);
+
+Vtick(py):=Vtick(py,MARKLEN,[]);
+Vtick(py,len):=Vtick(py,len,[]);
+Vtick(py,len,options):=(
+//help:Vtick(1,0.1,options);
+ regional(tmp,tmp1,tmp2);
+ tmp="v"+text(round(py*100));
+ tmp=replace(tmp,"-","m");
+ tmp1=[0-len/2,py];
+ tmp2=[0+len/2,py];
+ Listplot(tmp,[tmp1,tmp2],options);
+);
+
+Htick(px):=Htick(px,MARKLEN,[]);
+Htick(px,len):=Htick(px,len,[]);
+Htick(px,lenorg,options):=(
+//help:Htick(-1,0.1,options);
+ regional(len,tmp,tmp1,tmp2);
+ tmp=LLcrd([0,lenorg]);
+ len=tmp_2;
+ tmp="h"+text(round(px*100));
+ tmp=replace(tmp,"-","m");
+ tmp1=[px,0-len/2];
+ tmp2=[px,0+len/2];
+ Listplot(tmp,[tmp1,tmp2],options);
+);
+
+Drwxy():=(
+//help:Drwxy();
+ Com2nd("Drwxy()");
+ Addax(0); // 16.01.21
+);
+
+Drwpt(pstr):=Drawpoint(pstr);
+Drwpt(ptlist,nn):=( // 16.03.05 from
+//help:Drwpt(A);
+//help:Drwpt("[1,1],0");
+//help:Drwpt(A,0);
+//help:Drwpt([1,2],0);
+ Drawpoint(ptlist,nn);
+);
+Drawpoint(pstr):=(
+ if(isstring(pstr),
+ println("Drwpt : "+pstr);
+ Com2nd("Drwpt("+pstr+")");
+ ,
+ Drawpoint(pstr,1);
+ );
+);
+Drawpoint(ptlistorg,nn):=(
+ regional(ptlist,thick,tmp,tmp1);
+ println("Drwpt : "+text(ptlistorg));
+ if(islist(ptlistorg),
+ if(MeasureDepth(ptlistorg)==1,
+ ptlist=ptlistorg
+ ,
+ ptlist=[ptlistorg]
+ );
+ ,
+ ptlist=[ptlistorg]
+ );
+ thick=PenThick/PenThickInit;// 16.04.09 from
+ tmp1=max(TenSize/TenSizeInit,1)/8;
+ Setpen(tmp1); // 16.04.09 upto
+ forall(ptlist,
+ tmp=textformat(#,5)+","+text(nn);
+ Com2nd("Drwpt("+tmp+")"); // 16.04.09
+ );
+ Setpen(thick); // 16.04.09
+);// 16.03.05 upto
+
+Addax(param):=(
+//help:Addax(0);
+ ADDAXES=textformat(param,5);
+);
+
+Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
+Expr(list):=Expr(list,[]);
+Expr(listorg,options):=( //16.10.09
+//help:Expr([A,"e","f(x)=x^2"]);
+ regional(list,str,tmp,tmp1,tmp2);
+ list=listorg;
+ forall(1..round(length(list)/3),
+ str=list_(3*#);
+ if(!isstring(str),str=format(str,5));
+ str="$"+str+"$";
+ list_(3*#)=str;
+ );
+ Letter(list,options);
+);
+
+Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
+Letter(list):=Letter(list,[]);
+Letter(list,options):=(
+//help:Letter([C,"c","Graph of f(x)"]);
+ regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
+ opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
+ tmp=Divoptions(options);
+ Noflg=tmp_2;
+ opL=select(options,indexof(#,"->")>0); //16.10.09from
+ tmp=select(opL,indexof(#,"color"));
+ size=12;
+ clr=[0,0,0];
+ bld=false;
+ ita=false;
+ aln="left";
+ forall(opL,
+ tmp=indexof(#,"->");
+ tmp1=removespace(substring(#,0,tmp-1));
+ tmp2=substring(#,tmp+1,length(#));
+ if(tmp1=="size",sz=parse(tmp2));
+ if(tmp1=="color",clr=parse(tmp2));
+ if(tmp1=="bold",bld=parse(tmp2));
+ if(tmp1=="ita",ita=parse(tmp2));
+ );//16.10.09upto
+ Off=-4;
+ Dmv=8;
+ Nj=1;
+ while(Nj+2<=length(list),
+// Pos=textformat(list_Nj,5);
+ Pos=list_Nj;
+ Dir=list_(Nj+1);
+ tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from
+ if(tmp>0,
+ tmp=indexof(Dir,"w")+indexof(Dir,"e");
+ if(tmp==0,
+ Dir="c"+Dir;//16.10.08
+ );
+ );//16.10.19upto
+ Str=list_(Nj+2);
+ if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
+ tmp=replace(Str,".xy","");
+ tmp=replace(tmp,".x","(1)");
+ Str=replace(tmp,".y","(2)");
+ Str=RSslash(Str); // 17.09.24
+ if(indexof(Str,"`")>0,
+// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
+ tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
+ ,
+ tmp=Dq+","+Dq+Str+Dq+")";
+ );
+ if(Noflg==0,
+ Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
+ );
+ if(Noflg<2,
+ Xmv=0;//16.10.13
+ Ymv=-4;
+ if(indexof(Dir,"n")>0,
+ Ymv=Dmv/2;
+ );
+ if(indexof(Dir,"s")>0,
+ Ymv=-Dmv*3/2;//16.10.13
+ );
+ if(indexof(Dir,"e")>0,
+ Xmv=Dmv/2;
+ Off=0;
+ aln="left";
+ );
+ if(indexof(Dir,"w")>0,
+ Xmv=-Dmv/2;
+ Off=0; // 16.09.30from
+ aln="right";
+ );
+ if(indexof(Dir,"c")>0,
+ Xmv=0;//16.10.13
+ Off=0;
+ if(Ymv==0,Ymv=-4);//16.10.08
+ aln="mid"; // 16.09.30upto
+ );
+ drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
+ size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
+ );
+ Nj=Nj+3;
+ );
+);
+
+Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
+Letterrot(pt,dir,movstr,str):=(
+//help:Letterrot(C,B-A,"AB"):
+//help:Letterrot(C,B-A,0,5,"AB"):
+//help:Letterrot(C,B-A,"t0n5","AB"):
+ regional(tmov,nmov,tmp,tmp1,tmp2);
+ tmp1=indexof(movstr,"t");
+ tmp2=indexof(movstr,"n");
+ if(tmp1>0,
+ if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
+ tmov=parse(substring(movstr,tmp1,tmp));
+ ,
+ tmov=0;
+ );
+ if(tmp2>0,
+ nmov=parse(substring(movstr,tmp2,length(movstr)));
+ ,
+ nmov=0;
+ );
+ Letterrot(pt,dir,tmov,nmov,str);
+);
+Letterrot(pt,dir,tmov,nmov,str):=(
+ Letter([pt,"c",str],["notex"]);
+ Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
+);
+
+Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
+Exprrot(pt,dir,movstr,str):=(
+//help:Exprrot(C,B-A,"d"):
+//help:Exprrot(C,B-A,0,5,"d"):
+//help:Exprrot(C,B-A,"t0n5","d"):
+ regional(tmov,nmov,tmp,tmp1,tmp2);
+ tmp1=indexof(movstr,"t");
+ tmp2=indexof(movstr,"n");
+ if(tmp1>0,
+ if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
+ tmov=parse(substring(movstr,tmp1,tmp));
+ ,
+ tmov=0;
+ );
+ if(tmp2>0,
+ nmov=parse(substring(movstr,tmp2,length(movstr)));
+ ,
+ nmov=0;
+ );
+ Exprrot(pt,dir,tmov,nmov,str);
+);
+Exprrot(pt,dir,tmov,nmov,str):=(
+ Expr([pt,"c",str],["notex"]);
+ Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
+);
+
+Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2);
+Slider(ptstr,p1,p2):=( //17.04.11
+//help:Slider("A-C-B",[-3,0],[3,0]);
+ regional(pA,pB,pC,seg,sname,Alpha,tmp,tmp1);
+ tmp=indexall(ptstr,"-");
+ pA=substring(ptstr,0,tmp_1-1);
+ pC=substring(ptstr,tmp_1,tmp_2-1);
+ pB=substring(ptstr,tmp_2,length(ptstr));
+ seg=pA+pB;
+ Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+ sname="";
+ forall(1..(length(seg)),
+ tmp=substring(seg,#-1,#);
+ tmp1=indexof(Alpha,tmp);
+ if(tmp1>0,
+ sname=sname+unicode(text(tmp1+96),base->10);
+ ,
+ sname=sname+tmp;
+ );
+ );
+ Putpoint(pA,p1);
+ Putpoint(pB,p2);
+ Listplot([parse(pA),parse(pB)],["notex","color->[0,0.4,0.4]","size->2"]);
+// create([sname],"Segment",[parse(pA),parse(pB)]);
+// tmp2=Listplot("",[p1,p2],["nodata"]);
+ Putonseg(pC,parse("sg"+pA+pB));
+// create([pC],"PointOn",[parse(sname),0.5]);
+);
+
+Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
+Putpoint(name,Ptinit,Pt):=(
+//help:Putpoint("A",[1,2],[1,A.y]);
+ regional(ptstr);
+ ptstr=apply(allpoints(),#.name);//16.10.06
+ if(!contains(ptstr,name),
+ createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
+ ,
+ ptstr=name+".xy="+textformat(Pcrd(Pt),5);
+ parse(ptstr);
+ );
+);
+
+Bezierpt(t,ptlist,ctrlist):=(
+ regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
+ p0=ptlist_1;
+ p3=ptlist_2;
+ p1=ctrlist_1;
+ if(length(ctrlist)==1,
+ p2=p3;
+ flg3=0;
+ ,
+ p2=ctrlist_2;
+ flg3=1;
+ );
+ if(length(p0)<3, // 15.02.08
+ p0=Lcrd(p0);
+ p3=Lcrd(p3);
+ p1=Lcrd(p1);
+ p2=Lcrd(p2);
+ );
+ p4=(1-t)*p0+t*p1;
+ p5=(1-t)*p1+t*p2;
+ p6=(1-t)*p2+t*p3;
+ p7=(1-t)*p4+t*p5;
+ p8=(1-t)*p5+t*p6;
+ p9=(1-t)*p7+t*p8;
+ if(flg3==0,p7,p9);
+);
+
+Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
+Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
+Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
+Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
+BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
+BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
+//help:Bezier("1",[A,D],[B,C]);
+//help:Bezier(options=["Num=10"]);
+ regional(name,Ltype,Noflg,opstr,opcindy,Num,
+ ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
+ name="bz"+nm;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ Num=10;
+ tmp1=tmp_5;
+ forall(tmp1, // 14.12.31
+ if(substring(#,0,1)=="N",
+ tmp2=indexof(#,"=");
+ Num=parse(substring(#,tmp2,length(#)));
+ opstr=opstr+","+Dq+#+Dq;
+ );
+ );
+ ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
+ ctrlist=[]; // 14.12.31
+ if(length(ctrlistorg)==length(ptlist)-1,
+ forall(ctrlistorg,tmp1,
+ if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
+ tmp=apply(tmp,Lcrd(#)); // 16.08.16
+ ctrlist=append(ctrlist,tmp);
+ );
+ ,
+ forall(1..(length(ptlist)-1),ii,
+ tmp=ctrlistorg_((2*ii-1)..(2*ii));
+ tmp=apply(tmp,Lcrd(#)); // 16.08.16
+ ctrlist=append(ctrlist,tmp);
+ );
+ );
+ if(!islist(Num),
+ Num=apply(ctrlist,Num);
+ );
+ list=[];
+ forall(1..(length(ptlist)-1),ii,
+ tmp1=ptlist_(ii..(ii+1));
+ tmp2=ctrlist_ii;
+ if(ii==1,st=0,st=1);
+ forall(st..Num_ii,
+ tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
+ list=append(list,tmp);
+ );
+ );
+ if(Noflg<3,
+ println("generate Bezier "+name);
+ out=apply(list,Pcrd(#));
+ tmp=name+"="+textformat(out,5);
+ parse(tmp);
+ tmp1=textformat(ptlist,5);
+ tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
+ tmp2=textformat(ctrlist,5);
+ tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
+ GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ list;
+);
+
+Readcsvsla(fname):=Readplotdigdata(fname,[]);
+Readcsvsla(fname,options):=Readplotdigdata(fname,options);
+Readplotdigdata(fname):=Readplotdigdata(fname,[]);
+Readplotdigdata(fname,options):=(
+ regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
+ tmp=Divoptions(options);
+ tmp1=tmp_6;
+ sc=1;//10;
+ mv=[0,0];//[5,5];
+ forall(tmp1,
+ if(!islist(#),sc=#,mv=#);
+ );
+ if(indexof(fname,".")>0,
+ tmp=load(fname);
+ ,
+ tmp=load(fname+".txt");
+ );
+ cmdall=tokenize(tmp,"//");
+ dataL=[];
+ forall(2..length(cmdall),ii,
+ tmp1=parse("["+cmdall_ii+"]");
+ dataL=append(dataL,tmp1);
+ );
+ if(length(dataL_(length(dataL)))<2,
+ dataL=dataL_(1..(length(dataL)-1));
+ );
+ nd=length(dataL_1)/2;
+ npt=length(dataL);
+ ptdata=[];
+ forall(1..nd,ii,
+ tmp3=[];
+ forall(1..npt,
+ tmp1=dataL_#_(2*ii-1);
+ tmp2=dataL_#_(2*ii);
+ if(isreal(tmp1),
+ tmp3=append(tmp3,[tmp1,tmp2]);
+ );
+ );
+ ptdata=append(ptdata,tmp3);
+ );
+ tmp1=[];
+ forall(ptdata,
+ tmp=#/sc;
+ tmp=Translatedata("1",[tmp],-mv,["nodata"]);
+ tmp1=append(tmp1,tmp);
+ );
+ ptdata=tmp1;
+ ptdata;
+);
+
+Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
+Putbezierdata(name,ptL,options):=(
+ regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
+ tmp=Divoptions(options);
+ psize=3;
+ Deg=3;
+ tmp1=tmp_5;
+ forall(tmp1,
+ if(substring(#,0,1)=="D",
+ tmp=indexof(#,"=");
+ Deg=parse(substring(#,tmp,length(#)));
+ );
+ if(substring(#,0,1)=="S",
+ tmp=indexof(#,"=");
+ psize=parse(substring(#,tmp,length(#)));
+ );
+ );
+ pts=[];
+ ctrs=[];
+ forall(1..length(ptL),
+ p2=ptL_#; // 16.08.16
+ if(ispoint(p2),
+ tmp1=text(p2);
+ ,
+ tmp1=name+text(#);
+ Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
+ );
+ inspect(parse(tmp1),"ptsize",psize);
+ pts=append(pts,parse(tmp1));
+ inspect(parse(tmp1),"color",4);
+ if(#>1,
+ p1=Lcrd(ptL_(#-1)); // 16.08.16
+ p2=Lcrd(ptL_#); // 16.08.16
+ if(Deg==3,
+ tmp=(2*p1+p2)/3;
+ tmp1=name+"p"+text(#-1);
+ Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
+ inspect(parse(tmp1),"labeled",false); //15.01.22
+ Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
+ inspect(parse(tmp1),"ptsize",psize);
+ inspect(parse(tmp1),"color",3);
+ tmp=(p1+2*p2)/3;
+ tmp2=name+"q"+text(#-1);
+ Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
+ inspect(parse(tmp2),"labeled",false); //15.01.22
+ Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
+ inspect(parse(tmp2),"ptsize",psize);
+ inspect(parse(tmp2),"color",3);
+ ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
+ ,
+ tmp=(p1+p2)/2;
+ tmp1=name+"p"+text(#-1);
+ Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
+ inspect(parse(tmp1),"labeled",false); //15.01.22
+ Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
+ inspect(parse(tmp1),"ptsize",psize);
+ inspect(parse(tmp1),"color",3);
+ ctrs=append(ctrs,[parse(tmp1)]);
+ );
+ );
+ );
+ [pts,ctrs,name];
+);
+
+Bezierstart(n):=( // 2016.02.26
+ BezierNumber=n;
+);
+
+Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
+Mkbezierptcrv(ptdata,options):=(
+ //help:Mkbezierptcrv([A,B,C,D]);
+ //help:Mkbezierptcrv([[A,B],[C,D]]);
+ //help:Mkbezierptcrv(options=["Num=10"]);
+ // global BezierNumber
+ regional(ptlist,Out,tmp,tmp1,tmp2);
+ if(isstring(ptdata),
+ ptlist=Readcsvsla(ptdata,options);
+ ,
+ ptlist=ptdata;
+ );
+ if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
+ Out=[];
+ forall(1..length(ptlist),
+ tmp=floor((BezierNumber-1)/26);// 15.02.23
+ if(tmp==0,tmp="",tmp=text(tmp));
+ tmp2=mod(BezierNumber,26);
+ if(tmp2==0,tmp2=26);
+ tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
+ tmp2=Putbezierdata(tmp1,ptlist_#,options);
+ Bezier(tmp2,options);
+ BezierNumber=BezierNumber+1;
+ Out=append(Out,tmp2_(1..2));
+ );
+ Out;
+);
+
+Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
+Mkbeziercrv(nm,ptctrL,options):=(
+ //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
+ regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
+ if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
+ forall(1..length(ptctrLL),
+ name=nm+text(#);
+ ptlist=ptctrLL_#_1;
+ ctrlist=ptctrLL_#_2;
+ Bezier(nm,ptlist,ctrlist,options); // 17.01.06
+ );
+);
+
+Writebezier():=Writebezier(Fhead,"all");
+Writebezier(head):=Writebezier(head,"all");
+Writebezier(head,seL):=(
+//help:Writebezier(file);
+//help:Writebezier(file,"acd");
+ regional(bz,dt,name,tmp,tmp1,tmp2);
+ bz=select(GLIST,indexof(#,"=Bezier")>0);
+ tmp1=[]; // 16.04.22from
+ if(seL!="all",
+ forall(1..length(seL),
+ tmp=substring(seL,#-1,#);
+ tmp=select(bz,indexof(#,"bz"+tmp)>0);
+ tmp1=concat(tmp1,tmp);
+ );
+ bz=tmp1;// 16.04.22upto
+ );
+ dt=[head+"n",[[length(bz),0]]];
+ forall(1..length(bz),
+ tmp=indexof(bz_#,"=");
+ name=substring(bz_#,0,tmp-1);
+ tmp=indexof(bz_#,","+Dq);
+ if(tmp>0,
+ tmp1=substring(bz_#,0,tmp-1)+")";
+ ,
+ tmp1=bz_#;
+ );
+ tmp1=replace(tmp1,"Bezier(","[");
+ tmp1=replace(tmp1,"list(","[");
+ tmp1=replace(tmp1,")","]");
+ tmp1=replace(tmp1,",",".xy,");
+ tmp1=replace(tmp1,"]",".xy]");
+ tmp1=replace(tmp1,".xy,[",",[");
+ tmp1=replace(tmp1,"].xy","]");
+ tmp1=replace(tmp1,name,head+text(#));
+ parse(tmp1);
+ tmp=parse(head+text(#)+"_1");
+ dt=concat(dt,[head+text(#)+"k",tmp]);
+ tmp=parse(head+text(#)+"_2");
+ dt=concat(dt,[head+text(#)+"c",tmp]);
+ );
+ WriteOutData(head+".txt",dt);
+ dt;
+);
+
+Readbezier(file):=Readbezier(file,[]);
+Readbezier(file,optionorg):=(
+//help:Readbezier("xsr");
+//help:Readbezier(options=["Num=10","nogeo"]);
+ regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
+ options=optionorg;
+ tmp=Divoptions(options);
+ stL=tmp_7;
+ geo=0;
+ forall(stL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="G",geo=1);
+ options=remove(options,[#]);
+ );
+ ReadOutData(file);
+ tmp=file+"n_1_1";
+ nn=parse(tmp);
+ out=[];
+ forall(1..nn,nc,
+ tmp=file+text(nc);
+ tmp1=parse(tmp+"k");
+ tmp2=parse(tmp+"c");
+ if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
+ if(geo==1,
+ alpha="abcdefghijklmnopqrstuvwxyz";
+ forall(1..length(tmp1),
+ tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
+ Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
+ inspect(parse(tmp),"labeled",false);
+ inspect(parse(tmp),"ptsize",3);
+ tmp1_#=parse(tmp+".xy");
+ );
+ forall(1..length(tmp2),
+ tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
+ Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
+ inspect(parse(tmp),"labeled",false);
+ inspect(parse(tmp),"color",4);
+ inspect(parse(tmp),"ptsize",3);
+ tmp2_#_1=parse(tmp+".xy");
+ tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
+ Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
+ inspect(parse(tmp),"labeled",false);
+ inspect(parse(tmp),"color",4);
+ inspect(parse(tmp),"ptsize",3);
+ tmp2_#_2=parse(tmp+".xy");
+ );
+ BezierNumber=BezierNumber+1;
+ );
+ Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
+ out=append(out,"bz"+tmp);
+ );
+ out;
+);
+
+Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
+Ospline(nm,ptlist,options):=(
+//help:Ospline("1",ptlist,[options]);
+ regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
+ p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
+ name="o"+nm;
+ if(isstring(ptlist),list=parse(ptlist),list=ptlist);
+ if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
+// list=apply(list,LLcrd(#));
+ ctrL=[];
+ forall(1..(length(list)-1),
+ flg=0;
+ p1=Lcrd(list_#); // 16.08.16
+ p2=Lcrd(list_(#+1)); // 16.08.16
+ if(#==1 % #==length(list)-1,
+ flg=1;
+ if(closed==0,
+ pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
+ pR=(2*p1+p2)/3; // 16.08.16
+ ctrL=append(ctrL,[pQ,pR]);
+ flg=2;
+ ,
+ if(#==1,
+ p0=Lcrd(list_(length(list)-1)); // 16.08.16
+ p3=Lcrd(list_(#+2)); // 16.08.16
+ ,
+ p0=Lcrd(list_(#-1)); // 16.08.16
+ p3=Lcrd(list_2); // 16.08.16
+ );
+ );
+ );
+ if(flg<=1,
+ if(flg==0,
+ p0=Lcrd(list_(#-1)); // 16.08.16
+ p3=Lcrd(list_(#+2)); // 16.08.16
+ );
+ tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
+ cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
+ pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
+ pR=p2+cc*(p1-p3); // 16.08.16
+ ctrL=append(ctrL,[pQ,pR]);
+ );
+ );
+// list=apply(list,LLcrd(#)); // 16.08.16
+// ctrL=apply(ctrL,LLcrd(#));
+ if(closed==0, // 15.09.21
+ p1=ctrL_2_1;
+ p2=Lcrd(list_2); // 16.08.16
+ pQ=p2+(p2-p1);
+ ctrL_1=[pQ];
+ tmp=length(ctrL);
+ tmp1=ctrL_(tmp-1);
+ p1=ctrL_(tmp-1)_2;
+ p2=Lcrd(list_(tmp)); // 16.08.16
+ pQ=p2+(p2-p1);
+ ctrL_tmp=[pQ];
+ );
+ Bezier("o"+nm,list,ctrL,options);
+);
+
+CRspline(nm,ptL):=CRspline(nm,ptL,[]);
+CRspline(nm,ptL,options):=(
+ // Catmull-Rom spline
+//help:CRspline("1",[A,B,C,A]);
+ regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
+ name="crsp"+nm;
+ if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
+ ptlist=tmp_1;
+ if(length(tmp)==1,
+ cflg=1;
+ ,
+ cflg=0;
+ ctrpts=tmp_2;
+ );
+ c=1/6;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ opcindy=tmp_(length(tmp)); // 15.03.05
+ forall(eqL,
+ if(substring(#,0,1)=="R",
+ tmp2=indexof(#,"=");
+ c=parse(substring(#,tmp2,length(#)));
+ );
+ );
+ ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
+ ctrlist=[];
+ forall(1..(length(ptlist)-1),
+ if(#==1,
+ if(cflg==0,
+ tmp1=ctrpts_1;
+ ,
+ v=ptlist_2-ptlist_(length(ptlist)-1);
+ tmp1=ptlist_#+c*v;
+ );
+ ,
+ v=ptlist_(#+1)-ptlist_(#-1);
+ tmp1=ptlist_#+c*v;
+ );
+ if(#==length(ptlist)-1,
+ if(cflg==0,
+ tmp2=ctrpts_2;
+ ,
+ v=ptlist_2-ptlist_#;
+ tmp2=ptlist_(#+1)-c*v;
+ );
+ ,
+ v=ptlist_(#+2)-ptlist_#;
+ tmp2=ptlist_(#+1)-c*v;
+ );
+ tmp=select(options,indexof(text(#),"->")>0);
+ tmp=append(tmp,"notex"); //15.03.05
+ Pointdata(name+text(#),[tmp1,tmp2],tmp);
+ ctrlist=append(ctrlist,[tmp1,tmp2]);
+ );
+ Bezier(nm,ptlist,ctrlist,options);
+);
+
+Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
+//help:Beziersmooth("1",[A,B,C,A]);
+Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
+Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
+Bzspline(nm,ptLorg,options):=(
+ // smooth bezier
+ regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
+ tmp,tmp1,tmp2,cflg,ctrlist);
+ name="bzsp"+nm;
+ Eps=10^(-3);
+ ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
+ if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
+ forall(2..length(ptL),
+ pt=ptL_#;
+ pt1=ptL_(#-1);
+ tmp1="C"+text(#-1)+"q";// 16.10.07
+ Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
+ );
+ forall(2..(length(ptL)-1),
+ if(#<length(ptL) % cflg==1,
+ lstr="c"+text(#);
+ pt=ptLorg_#; // 16.08.16
+ pt1=parse("C"+text(#-1)+"q");
+ create([lstr],"Join",[pt1,pt]);
+ tmp2="C"+text(#)+"p";
+ tmp=Append((2*pt.xy-pt1.xy),1);
+ create([tmp2],"PointOnLine",[parse(lstr),tmp]);
+ );
+ );
+ if(cflg==0,
+ pt=ptL_1;
+ pt1=ptL_2;
+ tmp1="C1p";
+ Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
+ );
+ if(cflg==1,
+ lstr="c1";
+ pt=ptLorg_1; // 16.08.16
+ pt1=parse("C"+text(length(ptL)-1)+"q");
+ create([lstr],"Join",[pt1,pt]);
+ tmp1="C1p";
+ tmp=Append((2*pt.xy-pt1.xy),1);
+ create([tmp1],"PointOnLine",[parse(lstr),tmp]);
+ );
+ ctrlist=[];
+ forall(1..(length(ptL)-1),
+ if(#>1 % cflg==1,
+ tmp1="c"+text(#);
+ inspect(parse(tmp1),"alpha",0.3);
+ );
+ tmp1="C"+text(#)+"p";
+ tmp2="C"+text(#)+"q";
+ inspect(parse(tmp1),"ptsize",3);
+ inspect(parse(tmp1),"color",3);
+ inspect(parse(tmp2),"ptsize",3);
+ inspect(parse(tmp2),"color",3);
+ tmp=[parse(tmp1),parse(tmp2)];
+ ctrlist=append(ctrlist,tmp);
+ );
+ Bezier(nm,ptL,ctrlist,options);
+ [ptL,ctrlist];
+);
+
+Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
+Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
+Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
+Bzsspline(nm,ptLorg,options):=(
+ // smooth bezier with symmetric control points
+ regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
+ tmp,tmp1,tmp2,cflg,ctrlist);
+ name="bzssp"+nm;
+ Eps=10^(-3);
+ ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
+ if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
+ forall(2..length(ptL),
+ pt=ptL_#;
+ pt1=ptL_(#-1);
+ tmp1="C"+text(#-1)+"q";
+ Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
+ );
+ forall(2..(length(ptL)-1),
+ if(#<length(ptL) % cflg==1,
+ pt=ptL_#;
+ pt1=parse("C"+text(#-1)+"q");
+ tmp2="C"+text(#)+"p=2*pt-pt1";
+ parse(tmp2);
+ );
+ );
+ if(cflg==0,
+ pt=ptL_1;
+ pt1=ptL_2;
+ Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
+ inspect(C1p,"ptsize",3);
+ inspect(C1p,"color",3);
+ );
+ if(cflg==1,
+ pt=ptL_1;
+ pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
+ tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
+ parse(tmp1);
+ );
+ ctrlist=[];
+ forall(1..(length(ptL)-1),
+ tmp1="C"+text(#)+"p";
+ tmp2="C"+text(#)+"q";
+ inspect(parse(tmp2),"ptsize",3);
+ inspect(parse(tmp2),"color",3);
+ tmp=[parse(tmp1),parse(tmp2)];
+ ctrlist=append(ctrlist,tmp);
+ );
+ Bezier(nm,ptL,ctrlist,options);
+ [ptL,ctrlist];
+);
+
+Listbspline2bz(listorg):=(
+ regional(Eps,list,pcl,ptl,ctrl,k);
+ Eps=10^(-3);
+ list=apply(listorg,Lcrd(#)); // 16.08.16
+ k=length(list);
+ if(|list_1-list_k|>Eps,
+ pcl=list;
+ pcl_1=2*list_1-list_2;
+ pcl_k=2*list_k-list_(k-1);
+ ,
+ pcl=concat(list,[list_2]);
+ );
+ ctrl=apply(2..(length(pcl)-1),[pcl_#]);
+ ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
+ [ptl,ctrl];
+);
+
+Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
+Bspline(nm,ctrL,options):=(
+//help:Bspline("",[A,B,C]);
+ regional(list,tmp);
+ list=Listbspline2bz(ctrL);
+ tmp=BezierCurve("b"+nm,list_1,list_2,options);
+ tmp;
+);
+
+MeetCurve(Crv,Xorg,Yorg):=(
+ regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
+ if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
+ if(MeasureDepth(Cv)==2,Cv=Cv_1);
+ Cv=apply(Cv,LLcrd(#)); // 14.12.18
+ while(length(Cv)==1,
+ Cv=Cv_1;
+ );
+ Cv=apply(Cv,Lcrd(#));
+ tmp1=min(apply(Cv,#_1));
+ tmp2=max(apply(Cv,#_1));
+ if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
+ if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
+ if(X0<tmp1,
+ X0=tmp1;
+ ,
+ if(X0>tmp2,
+ X0=tmp2;
+ );
+ );
+ tmp1=select(
+ 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
+ tmp2=select(
+ 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
+ tmp2=remove(tmp2,common(tmp2,tmp1));
+ Ban=concat(tmp1,tmp2);
+ Tate=select(Ban,
+ abs(Cv_#_1-Cv_(#+1)_1)<=
+ 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
+ );
+ Ban=remove(Ban,Tate);
+ Ylist=[];
+ forall(Ban,
+ tmp=Cv_#;
+ x1=tmp_1; y1=tmp_2;
+ tmp=Cv_(#+1);
+ x2=tmp_1; y2=tmp_2;
+ tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
+ Ylist=append(Ylist,tmp);
+ );
+ forall(Tate,
+ tmp=Cv_#;
+ x1=tmp_1; y1=tmp_2;
+ tmp=Cv_(#+1);
+ x2=tmp_1; y2=tmp_2;
+ tmp1=min([y1,y2]);
+ tmp2=max([y1,y2]);
+ if(Y0<tmp1,
+ tmp=tmp1;
+ ,
+ if(Y0>tmp2,
+ tmp=tmp2;
+ ,
+ tmp=Y0;
+ );
+ );
+ Ylist=append(Ylist,tmp);
+ );
+ tmp=sort(Ylist,abs(#_1-Y0));
+ [X0,tmp_1];
+);
+
+PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
+PutonLine(name,p1org,p2org,options):=(
+//help:PutonLine("C","sgAB");
+//help:PutonLine("C",pA,pB);
+ regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
+ par=0.5;
+ tmp=Divoptions(options);
+ if(length(tmp_6)>0,
+ par=tmp_6_1;
+ );
+ p1=Lcrd(p1org);//16.10.11from
+ p2=Lcrd(p2org);
+ dx=p2_1-p1_1;
+ dy=p2_2-p1_2;
+ tmp1=(1-par)*p1+par*p2;
+ if(abs(dx)>abs(dy),
+ tmp=name+".x";
+ tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
+ Putpoint(name,tmp1,parse(tmp2));
+ ,
+ if(abs(dy)>0,
+ tmp=name+".y";
+ tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
+ Putpoint(name,tmp1,parse(tmp2));
+ ,
+ tmp2=p1;//16.10.11
+ Putpoint(name,tmp1,tmp2);
+ );
+ );
+);
+
+PutonSeg(name,sgstr):=(
+ regional(seg,p1,p2);
+ if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
+ PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
+);
+PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
+PutonSeg(name,p1org,p2org,options):=(
+//help:PutonSeg("C","sgAB");
+//help:PutonSeg("C",pA,pB);
+ regional(par,dx,dy,p,tmp,tmp1,tmp2);
+ par=0.5;
+ tmp=Divoptions(options);
+ if(length(tmp_6)>0,
+ par=tmp_6_1;
+ );
+ p1=Lcrd(p1org);//16.10.11from
+ p2=Lcrd(p2org);
+ PutonLine(name,p1,p2,[par]);
+ dx=p2_1-p1_1;
+ dy=p2_2-p1_2;
+ p=parse(name+".xy");
+ p=LLcrd(p);
+ if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
+ if(|p-p1|<|p-p2|,
+ parse(name+".xy=Pcrd(p1)");
+ ,
+ parse(name+".xy=Pcrd(p2)");
+ );
+ );
+ if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
+ if(|p-p1|<|p-p2|,
+ parse(name+".xy=Pcrd(p1)");
+ ,
+ parse(name+".xy=Pcrd(p2)");//16.10.11upto
+ );
+ );
+);
+
+PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
+PutonCurve(pn,crv,options):=(
+//help:PutonCurve("A","gr1");
+ regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
+ if(!islist(options),optionL=[options],optionL=options);
+ leftlim=XMIN;
+ rightlim=XMAX;
+ Flg=0;
+ Msg="y";
+ forall(optionL,
+ if(isstring(#), // 16.02.10 from
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="N", Msg="n"); // 16.02.10 upto
+ ,
+ if(Flg==0,
+ leftlim=#;
+ Flg=Flg+1;
+ ,
+ rightlim=#;
+ );
+ );
+ );
+ Pmt=MeetCurve(crv,leftlim,0);
+ pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
+ if(!contains(pstr,pn),
+ createpoint(pn,Pcrd(Pmt));
+ ,
+ tmp1=parse(pn+".x");
+ if(tmp1< leftlim % tmp1>rightlim,
+ if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
+ Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
+ ,
+ Pmt=MeetCurve(crv,pn+".x",pn+".y");
+ );
+ ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
+ parse(ptstr);
+ );
+ if(Msg=="y",
+ println("Put "+pn+" on Curve "+text(crv));
+ );
+);
+
+CrossPoint(name,Crv1,Crv2,range):=(
+ regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
+ Mx1=range_1; Mx2=range_2;
+ repeat(15,
+ Mx3=(Mx1+Mx2)/2;
+ Crs1=MeetCurve(Crv1,Mx1,0);
+ Crs2=MeetCurve(Crv2,Mx1,0);
+ Crs3=MeetCurve(Crv1,Mx3,0);
+ Crs4=MeetCurve(Crv2,Mx3,0);
+ df1=Crs1_2-Crs2_2;
+ df2=Crs3_2-Crs4_2;
+ if((df1>0 & df2>0) % (df1<0 & df2<0),
+ Mx1=Mx3;
+ ,
+ Mx2=Mx3;
+ );
+ );
+ Putpoint(name,Crs1);
+);
+
+Setscaling(sc):=(
+//help:Setscaling(3);
+ SCALEX=1;
+ SCALEY=sc;
+ Com0th("Setscaling("+sc+")");
+ Setwindow("Msg=no");
+);
+
+Periodfun(defL,rep):=Periodfun(defL,rep,[]);
+Periodfun(defL,rep,optionorg):=( // 16.11.24
+//help:Periodfun(["0",[-1,0],"1",1,[0,1],1],2(num of repetition),options);
+//help:Periodfun(options=["Con=y"]);
+//help:Periodfun(defL=[function string, range, devision number,...]);
+ regional(nn,fun,range,num,options,nr,maxfun,
+ tmp,tmp1,tmp2,eqL,connect,minx,maxx,pdata,Eps,prept);
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ connect="Y";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp2=substring(#,tmp,tmp+1);
+ tmp=substring(#,0,3);
+ if(Toupper(tmp)=="CON",
+ connect=Toupper(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ minx=10000;
+ maxx=-10000;
+ mxfun="";
+ pdata=[];
+ forall(1..(length(defL)/3),nn,
+ fun=defL_(3*nn-2);
+ range=defL_(3*nn-1);
+ tmp1=if(isstring(range_1),parse(range_1),range_1); //17.06.11(2lines)
+ tmp2=if(isstring(range_2),parse(range_2),range_2);
+ minx=min(minx,tmp1);
+ maxx=max(maxx,tmp2);
+ num=defL_(3*nn);
+ options=append(options,"Num="+text(num));
+ Plotdata("pe"+text(nn),fun,
+ "x="+textformat([tmp1,tmp2],5),options);
+ pdata=append(pdata,"grpe"+text(nn));
+ tmp1=range_1; //17.06.11(4lines)
+ if(isstring(tmp1),tmp1=replace(tmp1,"pi","%pi"),tmp1=format(tmp1,5));
+ tmp2=range_2;
+ if(isstring(tmp2),tmp2=replace(tmp2,"pi","%pi"),tmp2=format(tmp2,5));
+ mxfun=mxfun+"elseif ("+tmp1+
+ "<=x and x<"+tmp2+") then "+fun+" ";
+ );
+ per=maxx-minx;
+ forall(1..rep,nr,
+ tmp1=[];
+ forall(pdata,
+ Translatedata("p"+#+text(nr),#,[per*nr,0],options);
+ Translatedata("m"+#+text(nr),#,[-per*nr,0],options);
+ tmp1=concat(tmp1,["trp"+#+text(nr),"trm"+#+text(nr)]);
+ );
+ );
+ pdata=concat(pdata,tmp1);
+ if(connect=="Y",
+ Eps=10^(-5);
+ pdata=sort(pdata,[parse(#)_1_1]);
+ prept=parse(pdata_1)_1;
+ forall(1..(length(pdata)),
+ tmp=parse(pdata_#);
+ tmp1=tmp_1;
+ tmp2=tmp_(length(tmp));
+ if(|prept-tmp1|>Eps,
+ Listplot("con"+text(#),[prept,tmp1],append(options,"da"));
+ );
+ prept=tmp_(length(tmp));
+ );
+ );
+ mxfun=substring(mxfun,4,length(mxfun)-1);
+ [mxfun,per];
+);
+
+Fourierseries(nm,coeff,per,nterm):=
+ Fourierseries(nm,coeff,per,nterm,[]); // 16.11.24
+Fourierseries(nm,coeff,per,nterm,options):=(
+//help:Fourierseries("1",[c0,cn,sn],period,numterm,options);
+ regional(c0,cn,sn,fs,tmp,tmp1,tmp2);
+ c0=coeff_1;
+ if(!isstring(c0),c0=format(c0,5));
+ c0=replace(c0,"%pi","pi");
+ cn=coeff_2;
+ if(!isstring(cn),cn=format(cn,5));
+ cn=replace(cn,"%pi","pi");
+ sn=coeff_3;
+ if(!isstring(sn),sn=format(sn,5));
+ sn=replace(sn,"%pi","pi");
+ fs=c0;
+ forall(1..nterm,
+ tmp=parse(Assign(cn,["n",#]));
+ tmp1=Assign("("+format(tmp,5)+")*cos(n*2*pi/per*x)",
+ ["n",#,"per",per]);
+ tmp=parse(Assign(sn,["n",#]));
+ tmp2=Assign("("+format(tmp,5)+")*sin(n*2*pi/per*x)",
+ ["n",#,"per",per]);
+ fs=fs+"+"+tmp1+"+"+tmp2;
+ );
+ Plotdata("four"+nm,fs,"x",options);
+);
+
+Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
+Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=(
+//help:Tabledatalight("",xLst,yLst,rmvL,[2,"Rng=y"]);
+ regional(options,rng,name,upleft,ul,flg,tick,eqL,reL,n,m,xsize,ysize,
+ rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
+// name="tb"+nm;
+ name="tb";
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5; //16.12.16from
+ reL=tmp_6;
+ rng="Y";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,2));
+ tmp2=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="RN",
+ rng=tmp2;
+ options=remove(options,[#]);
+ );
+ );//16.12.16upto
+ tick=1;
+ flg=0;
+ forall(reL,
+ if(flg==0,
+ tick=#;
+ flg=flg+1;
+ ,
+ upleft=tmp_6_1;
+ );
+ );
+ tmp=sum(yLst);
+ upleft=[0,tmp];
+ TableOptions=options; // 16.11.28
+ println("Tabledatalight "+name+" generated");
+ ul=upleft/10;
+ m=length(xLst);
+ n=length(yLst);
+ xsize=sum(xLst);
+ ysize=sum(yLst);
+ clist=[ul];
+ rlist=[ul];
+ forall(1..m,
+ tmp1=clist_(#)_1+xLst_#/10;
+ clist=append(clist,[tmp1,clist_1_2]);
+ );
+ forall(1..n,
+ tmp1=rlist_(#)_2-yLst_#/10;
+ rlist=append(rlist,[0,tmp1]);
+ );
+ Tb=[clist,rlist];
+ tmp=name+"="+Tb;
+ parse(tmp);
+ forall(0..m,
+ tmp1="c"+text(#)+"r0";
+ tmp2="c"+text(#)+"r"+text(n);
+ Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
+ if(mod(#,tick)==0 % #==m,
+ tmp=clist_(#+1);
+ drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
+ );
+ );
+ forall(0..n,
+ tmp1="c0r"+text(#);
+ tmp2="c"+text(m)+"r"+text(#);
+ Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
+ if(mod(#,tick)==0 % #==n,
+ tmp=rlist_(#+1);
+ drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
+ );
+ );
+ Tsegrmv(rmvL,options);
+ Addax(0);
+ Eps=10^(-3);
+ tmp1=clist_(length(clist));
+ tmp2=rlist_1;
+ tmp3=rlist_(length(rlist));
+ if(rng=="Y", // 16.12.16
+ Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
+ );
+ Tb;
+);
+
+Tabledata(nm,n,m,xsize,ysize,rmvL):=
+ Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
+Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
+//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
+ regional(Tb,name,tmp,xLst,yLst);
+ name="tb"+nm;
+ xLst=apply(1..n,xsize/n);
+ yLst=apply(1..m,ysize/m);
+ Tabledata(nm,xLst,yLst,rmvL,options)
+);
+Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
+Tabledata(nm,xLst,yLst,rmvL,optionorg):=(
+//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
+ regional(name,options,eqL,reL,rng,upleft,ul,flg,tick,n,m,xsize,ysize,
+ rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
+// name="tb"+nm;
+ name="tb";
+ tmp=sum(yLst);
+ upleft=[0,tmp];
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5; //16.12.16from
+ reL=tmp_6;
+ rng="Y";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,2));
+ tmp2=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="RN",
+ rng=tmp2;
+ options=remove(options,[#]);
+ );
+ );//16.12.16upto
+ tick=1;
+ flg=0;
+ forall(reL,
+ if(flg==0,
+ tick=#;
+ flg=flg+1;
+ ,
+ upleft=tmp_6_1;
+ );
+ );
+ TableOptions=options; // 16.11.28
+ println("Tabledata "+name+" generated");
+ ul=upleft/10;
+ m=length(xLst);
+ n=length(yLst);
+ xsize=sum(xLst);
+ ysize=sum(yLst);
+ clist=[ul];
+ rlist=[ul];
+ forall(1..m,
+ tmp1=clist_(#)_1+xLst_#/10;
+ clist=append(clist,[tmp1,clist_1_2]);
+ );
+ forall(1..n,
+ tmp1=rlist_(#)_2-yLst_#/10;
+ rlist=append(rlist,[0,tmp1]);
+ );
+ Tb=[clist,rlist];
+ tmp=name+"="+Tb;
+ parse(tmp);
+ forall(0..m,
+ tmp="C"+text(#);
+ tmp1="c"+text(#)+"r0";
+ if(#==0,
+ Putpoint(tmp,Tgrid(tmp1));
+ ,
+ Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
+ clist_(#+1)=parse(tmp+".xy");
+ );
+ inspect(parse(tmp),"ptsize",3);
+ inspect(parse(tmp),"labeled",false);
+ if(mod(#,tick)==0 % #==m,
+ tmp=clist_(#+1);
+ drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
+ );
+ );
+ forall(0..n,
+ tmp="R"+text(#);
+ tmp1="c0r"+text(#);
+ if(#==0,
+ Putpoint(tmp,Tgrid(tmp1));
+ ,
+ Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
+ rlist_(#+1)=parse(tmp+".xy");
+ );
+ Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
+ inspect(parse(tmp),"ptsize",3);
+ inspect(parse(tmp),"labeled",false);
+ if(mod(#,tick)==0 % #==n,
+ tmp=rlist_(#+1);
+ drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
+ );
+ );
+ Tb=[clist,rlist];
+ tmp=name+"="+Tb;
+ parse(tmp);
+ forall(0..m,
+ tmp1="c"+text(#)+"r0";
+ tmp2="c"+text(#)+"r"+text(n);
+ Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
+ if(#<m,
+ tmp1=parse("C"+text(#));
+ tmp2=parse("C"+text(#+1));
+ tmp=(tmp1.xy+tmp2.xy)/2;
+ drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
+ );
+ );
+ forall(0..n,
+ tmp1="c0r"+text(#);
+ tmp2="c"+text(m)+"r"+text(#);
+ Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
+ if(#<n,
+ tmp1=parse("R"+text(#));
+ tmp2=parse("R"+text(#+1));
+ tmp=(tmp1.xy+tmp2.xy)/2;
+ drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
+ );
+ );
+ Tsegrmv(rmvL,options);
+ Addax(0);
+ Eps=10^(-3);
+ tmp1=clist_(length(clist));
+ tmp2=rlist_1;
+ tmp3=rlist_(length(rlist)); // 15.06.11
+ if(rng=="Y", // 16.12.16
+ Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
+ );
+ Tb;
+);
+
+Tseginfo(seg):=(
+ regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
+ if(substring(seg,0,2)=="sg",
+ cr=substring(seg,2,length(seg));
+ ,
+ cr=seg;
+ );
+ tp=substring(cr,0,1);
+ if(tp=="c",
+ tpc="r";
+ ,
+ tpc="c";
+ );
+ tmp1=indexof(cr,tpc);
+ tmp=substring(cr,tmp1,length(cr));
+ tmp2=tmp1+indexof(tmp,tpc);
+ n1=substring(cr,1,tmp1-1);
+ n2=substring(cr,tmp1,tmp2-1);
+ n3=substring(cr,tmp2,length(cr));
+ [tp+n1,tpc,parse(n2),parse(n3)];
+);
+
+Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
+Tsegrmv(rmvL,options):=(
+ regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
+ forall(rmvL,cr,
+ tmp1=Tseginfo(cr);
+ hd=tmp1_1;
+ tpc=tmp1_2;
+ m1=tmp1_3;
+ m2=tmp1_4;
+ gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
+ flg=0;
+ forall(gcL,
+ if(flg==0,
+ tmp=Tseginfo(#_1);
+ n1=tmp_3;
+ n2=tmp_4;
+ if(m1>=n1 & m2<=n2,
+ gc=#;
+ flg=1;
+ );
+ );
+ );
+ if(flg==1,
+ Changestyle([gc_1],["nodisp"]);
+ tail="";
+ if(indexof(hd,"r")>0,
+ tail=hd; hd="";
+ );
+ if(n1<m1,
+ tmp1=tpc+text(n1);
+ tmp2=tpc+text(m1);
+ tmp=hd+tail+tmp1+tmp2;
+ Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
+ );
+ if(m2<n2,
+ tmp1=tpc+text(m2);
+ tmp2=tpc+text(n2);
+ tmp=hd+tail+tmp1+tmp2;
+ Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
+ );
+ );
+ );
+);
+
+Tgrid(ptstr):=(
+//help:Tgrid("c2r5");
+ regional(tmp,tmp1,tmp2);
+ tmp=parse(ptstr);
+ if(islist(tmp),
+ tmp;
+ ,
+ tmp=indexof(ptstr,"r");
+ tmp1=substring(ptstr,1,tmp-1);
+ tmp1=parse(tmp1);
+ tmp2=substring(ptstr,tmp,length(ptstr));
+ tmp2=parse(tmp2);
+ [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
+ );
+);
+
+Tlistplot(ptL):=Tlistplot(ptL,[]);
+Tlistplot(Ag1,Ag2):=(
+ regional(nm,ptL,options);
+ if(isstring(Ag1),
+ nm=Ag1;
+ ptL=Ag2;
+ options=[];
+ ,
+ ptL=Ag1;
+ options=Ag2;
+ nm=ptL_1+ptL_2;
+ );
+ Tlistplot(nm,ptL,options);
+);
+Tlistplot(nm,ptL,options):=(
+//help:Tlistplot(["c0r0","c0r4"]);
+//help:Tlistplot("1",["c0r0","c0r4"]);
+ regional(tmp);
+ tmp=apply(ptL,Tgrid(#)); // 15.06.03
+ Listplot(nm,tmp,append(options,"Msg=no"));
+);
+
+ChangeTablestyle(nameL,style):=(
+////help:ChangeTablestyle(["r0c0c3"],["da"]);
+ regional(nmL,grid,head,sb,tmp,tmp1,tmp2,
+ tsg,segall,sg,str);
+ if(islist(nameL),nmL=nameL,nmL=[nameL]);
+ forall(nmL,grid,
+ if(substring(grid,0,1)=="r",sb="c",sb="r");
+ tmp=Indexall(grid,sb);
+ head=substring(grid,0,tmp_1-1);
+ tmp1=substring(grid,tmp_1,tmp_2-1);
+ tmp2=substring(grid,tmp_2,length(grid));
+ tsg=apply([tmp1,tmp2],parse(#));
+ tmp1=apply(GCLIST,#_1); // 16.12.06from
+ segall=[];
+ forall(tmp1,
+ tmp2=substring(#,2,length(#));
+ tmp=indexof(tmp2,sb);
+ tmp2=substring(tmp2,0,tmp-1);
+ if(head==tmp2,segall=append(segall,#));
+ );// 16.12.06upto
+ sg=[];
+ forall(segall,
+ tmp=Indexall(#,sb);
+ tmp1=substring(#,tmp_1,tmp_2-1);
+ tmp2=substring(#,tmp_2,length(#));
+ tmp=apply([tmp1,tmp2],parse(#));
+ if((tsg_1>=tmp_1) & (tsg_2<=tmp_2),
+ sg=tmp;
+ Changestyle(#,["nodisp"]);
+ );
+ );
+ if(length(sg)==0,
+ println("No segment includes "+grid);
+ ,
+ if(sb=="c",str=sb+"no"+head,str=head+sb+"no");
+ if(sg_1<tsg_1,
+ tmp1=replace(str,"no",text(sg_1));
+ tmp2=replace(str,"no",text(tsg_1));
+ tmp=head+sb+text(sg_1)+"c"+text(tsg_1);
+ Tlistplot(tmp,[tmp1,tmp2],TableOptions);
+ );
+ tmp1=replace(str,"no",text(tsg_1));
+ tmp2=replace(str,"no",text(tsg_2));
+ tmp=head+"c"+text(tsg_1)+"c"+text(tsg_2);
+ Tlistplot(tmp,[tmp1,tmp2],style);
+ if(tsg_2<sg_2,
+ tmp1=replace(str,"no",text(tsg_2));
+ tmp2=replace(str,"no",text(sg_2));
+ tmp=head+"c"+text(tsg_2)+"c"+text(sg_2);
+ Tlistplot(tmp,[tmp1,tmp2],TableOptions);
+ );
+ );
+ );
+);
+
+Findcell(pos1,pos2):=Findcell("",pos1,pos2);
+Findcell(Tbdata,pos1,pos2):=(
+//help:Findcell("c0r0","c2r1");
+ regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
+ if(isstring(pos1),
+ posnw=Tgrid(pos1); // 15.05.20
+ posse=Tgrid(pos2);
+ //posnw=parse(pos1);
+ //posse=parse(pos2);
+ ,
+ if(islist(pos1),
+ posnw=pos1;
+ posse=pos2;
+ ,
+ tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
+ tmp2="c"+text(pos1)+"r"+text(pos2);
+ posnw=Tgrid(tmp1);
+ posse=Tgrid(tmp2);
+// posnw=parse(tmp1);
+// posse=parse(tmp2);
+ );
+ );
+ ctr=(posnw+posse)/2;
+ dx=abs(posse_1-ctr_1);
+ dy=abs(posnw_2-ctr_2);
+ [ctr,dx,dy];
+);
+
+Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
+Putcell(Tbdata,pos1,pos2,dir,lttr):=(
+//help:Putcell("c0r0","c2r1","lt","abc");
+//help:Putcell(2,3,"c","xyz");
+ regional(tmp,tmp1,tmp2,posnw,posse,
+ posdir,posstr,ctr,dx,dy);
+ tmp=Findcell(Tbdata,pos1,pos2);
+ ctr=tmp_1; dx=tmp_2; dy=tmp_3;
+ posdir=ctr;
+ posstr=dir;
+ if(indexof(dir,"b")>0,
+ posdir_2=posdir_2-dy;
+ posstr=replace(posstr,"b","n");
+ );
+ if(indexof(dir,"t")>0,
+ posdir_2=posdir_2+dy;
+ posstr=replace(posstr,"t","s");
+ );
+ if(indexof(dir,"l")>0,
+ posdir_1=posdir_1-dx;
+ posstr=replace(posstr,"l","e");
+ );
+ if(indexof(dir,"r")>0,
+ posdir_1=posdir_1+dx;
+ posstr=replace(posstr,"r","w");
+ );
+ Letter(posdir,posstr,text(lttr));
+);
+
+Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
+Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
+//help:Putcellexpr("c0r0","c2r1","lt","abc");
+//help:Putcellexpr(2,3,"c","\sin x");
+ Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
+);
+
+Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
+Putrow(Tbdata,nrow,dir,lttrL):=(
+//help:Putrow(1,"c",["x","y","z"]);
+ regional(tmp,tmp1,mcol);
+ mcol=length(lttrL);
+ forall(1..mcol,
+ Putcell(Tbdata,#,nrow,dir,lttrL_#);
+ );
+);
+
+Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
+Putrowexpr(Tbdata,nrow,dir,exL):=(
+//help:Putrowexpr(2,"r",["x","y","z"]);
+ regional(lttrL);
+ lttrL=apply(exL,"$"+#+"$");
+ Putrow(Tbdata,nrow,dir,lttrL);
+);
+
+PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
+PutcoL(Tbdata,mcol,dir,lttrL):=(
+//help:PutcoL(1,"c",["x","y","z"]);
+ regional(tmp,tmp1,nrow);
+ nrow=length(lttrL);
+ forall(1..nrow,
+ Putcell(Tbdata,mcol,#,dir,lttrL_#);
+ );
+);
+PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
+PutcoLexpr(Tbdata,mcol,dir,exL):=(
+//help:PutcoLexpr(2,"r",["x","y","z"]);
+ regional(lttrL);
+ lttrL=apply(exL,"$"+#+"$");
+ PutcoL(Tbdata,mcol,dir,lttrL);
+);
+
+Setrange():=(
+//help:Setrange();
+ SW.xy=Pcrd([XMIN,YMIN]);
+ NE.xy=Pcrd([XMAX,YMAX]);
+ drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
+ Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
+);
+
+Sciform(list):=(
+ regional(plotlist,comp,pos,out,out2,nn,strL,flg,
+ tmp,tmp1,tmp2,tmp3,Nj);
+ plotlist=Flatten([list]);
+ out=replace(plotlist_1,".xy","");
+ out=replace(out,".x","(1)");
+ out=replace(out,".y","(2)");
+ if(length(plotlist)==1,
+ comp=[];
+ forall(1..length(out),
+ comp=append(comp,substring(out,#-1,#));
+ );
+ out="";
+ pos=0;
+ forall(comp,
+ if(#!="'",
+ out=out+#;
+ ,
+ if(pos==0,
+ tmp=indexof(out,"Assign(");
+ if(substring(out,length(out)-7,length(out))=="Assign(",
+ out=out+"'";
+ pos=1;
+ ,
+ out=out+"Assign('";
+ pos=2;
+ );
+ ,
+ if(pos==2,
+ out=out+"')";
+ ,
+ out=out+"'";
+ );
+ pos=0;
+ );
+ );
+ );
+ ,
+ forall(2..length(plotlist),
+ comp=plotlist_#;
+ if(isstring(comp),
+ pos=indexof(comp,"Assign(");
+ if(pos>0,
+ comp=substring(comp,6,length(comp));
+ );
+ out=out+"Assign(";
+ comp=replace(comp,".xy","");
+ comp=replace(comp,".x","(1)");
+ comp=replace(comp,".y","(2)");
+ out=out+"'"+comp+"'";
+ out=out+"),";
+ );
+ if(islist(comp),
+ forall(comp,
+ out=out+"'"+#+"',";
+ );
+ );
+ );
+ if(length(plotlist)>1,
+ out=substring(out,0,length(out)-1);
+ out=out+");";
+ );
+ );
+ pos=[];
+ forall(1..length(out),
+ tmp=indexof(substring(out,#-1,length(out)),"Assign");
+ if(tmp>0,
+ tmp1=#-1+tmp;
+ if(length(pos)==0,
+ pos=[tmp1];
+ ,
+ if(pos_(length(pos))<tmp1,
+ pos=append(pos,tmp1);
+ );
+ );
+ );
+ );
+ if(length(pos)>0,
+ strL=[];
+ Nj=0;
+ forall(pos,
+ tmp=substring(out,Nj,#-1);
+ strL=append(strL,tmp);
+ Nj=#-1;
+ );
+ strL=append(strL,substring(out,Nj,length(out)));
+ out="";
+ forall(strL,
+ if(indexof(#,"Assign")==0,
+ out=out+#;
+ ,
+ tmp=indexof(#,"('");
+ tmp1=indexof(#,"')");
+ tmp2=substring(#,tmp+1,tmp1-2);
+ tmp3=substring(#,tmp1-2,length(#));
+ if(indexof(tmp2,"=")==0,
+ out=out+#;
+ ,
+ tmp=substring(tmp2,0,indexof(tmp2,"="));
+ out=out+"'"+tmp+"'+"+"Assign('";
+ tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
+ out=out+tmp+tmp3;
+ );
+ );
+ );
+ );
+ out2=""; // patched 16.01.21 from
+ nn=length(out);
+ flg=0;
+ forall(1..nn,
+ if(flg==0,
+ tmp=indexof(out,"='+Assign('");
+ if(tmp==0,
+ out2=out2+out;
+ flg=1;
+ ,
+ out2=out2+substring(out,0,tmp);
+ out=substring(out,tmp+10,length(out));
+ tmp=indexof(out,"'"); // 16.04.19 from
+ tmp1=substring(out,0,tmp-1);
+ tmp2="1234567890";
+ tmp=apply(1..length(tmp1),
+ indexof(tmp2,substring(tmp1,#-1,#)));
+ tmp=min(tmp);
+ if(tmp==0, // 16.04.19 upto
+ out2=out2+"'+Assign('";
+ ,
+ tmp=indexof(out,"'");
+ out=substring(out,0,tmp)+substring(out,tmp+1,length(out));
+ // 16.04.18 upto
+ );
+ );
+ );
+ );
+ out2=replace(out2,"Dist=","D=");
+ out2=replace(out2,"Dis=","D=");
+ out2;
+);
+
+RSform(str):=RSform(str,3);
+RSform(str,listfrom):=(
+ regional(posL,mxlv,rep1,rep2,rep3,prev,out,
+ tmp,tmp1,tmp2);
+ rep1="c("; rep2="c("; rep3="list(";
+ if(listfrom<3,rep2="list(");
+ if(listfrom==1,rep1="list(");
+ posL=Bracket(str,"[]");
+ tmp=apply(posL,#_2);
+ mxlv=max(tmp);
+ out="";
+ prev=0;
+ forall(posL,
+ out=out+substring(str,prev,#_1-1);
+ prev=#_1;
+ if(#_2>0,
+ tmp1=select(posL,tmp,(tmp_2<0)&(tmp_1>#_1));
+ tmp1=tmp1_1_1;
+ tmp=substring(str,#_1,tmp1);
+ if(#_2==mxlv,out=out+rep1);
+ if(#_2==mxlv-1,out=out+rep2);
+ if(#_2<=mxlv-2,out=out+rep3);
+ ,
+ out=out+")";
+ );
+ );
+ out=out+substring(str,prev,length(str));
+ out=replace(out,".xy","");
+ out=replace(out,".x","[1]");
+ out=replace(out,".y","[2]");
+ out=replace(out,"c(1)","[1]");//17.10.06(2lines)
+ out=replace(out,"c(2)","[2]");
+ out;
+);
+
+RSslash(str):=( //17.09.24
+ regional(tmp);
+ tmp=replace(str,"\","\\");
+// tmp=replace(tmp,"\\\\","\\");
+ tmp;
+);
+
+Rform(list):=(
+ regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
+ out=list;
+ out=replace(out,"[[[","list([[");
+ out=replace(out,"[","c(");
+ out=replace(out,"]",")");
+ out=replace(out,".xy","");
+ out=replace(out,".x","[1]");
+ out=replace(out,".y","[2]");
+ out;
+);
+
+Defvar(varstr):=(
+ regional(name,value,tmp,tmp1);
+ if(isstring(varstr),
+ parse(varstr);
+ tmp=indexof(varstr,"=");
+ name=substring(varstr,0,tmp-1);
+ value=substring(varstr,tmp,length(varstr));
+ value=parse(value);
+ tmp1=select(1..length(VLIST),VLIST_#_1==name);
+ if(length(tmp1)>0,
+ tmp=tmp1_1;
+ VLIST_tmp=[name,value];
+ ,
+ VLIST=prepend([name,value],VLIST);
+ );
+ ,
+ forall(1..(length(varstr)/2), // 16.11.16from
+ name=varstr_(2*#-1);
+ value=varstr_(2*#);
+ Defvar(name,value);
+ ); // 16.11.16upto
+ );
+);
+
+Defvar(name,value):=(
+//help:Defvar("a",0.3);
+//help:Defvar(["a",0.3,"b",2]);
+ regional(tmp,tmp1);
+ if(islist(value),
+ tmp1="[";
+ forall(value,
+ if(isstring(#), // 16.11.14
+ tmp1=tmp1+Dq+#+Dq+","; // 16.11.14
+ ,
+ tmp1=tmp1+format(#,5)+",";
+ );
+ );
+ tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ ,
+ tmp1=format(value,5);
+ );
+ tmp=name+"="+tmp1; // 15.02.06
+ parse(tmp);
+ VLIST=select(VLIST,#_1!=name); // 15.02.08
+ VLIST=prepend([name,value],VLIST);
+);
+
+IftoR(strorg):=( // 17.09.16
+ regional(str,ifL,ppL,cpL,kk,Lv,no,out,prev,
+ tmp,tmp1,tmp2);
+ str=replace(strorg,LFmark,"");
+ ifL=Indexall(str,"if(");
+ ifL=apply(ifL,#+2);
+ if(length(ifL)>0,
+ ppL=Bracket(str,"()");
+ tmp2=[];
+ forall(ifL,kk,
+ tmp=select(ppL,#_1==kk);
+ tmp1=select(ppL,#_2==-tmp_1_2);
+ tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]);
+ );
+ ifL=tmp2;
+ cpL=[];
+ forall(1..(length(str)),kk,
+ if(substring(str,kk-1,kk)==",",
+ tmp1=select(ifL,#_1<kk & kk<#_2);
+ Lv=max(apply(tmp1,#_3));
+ tmp=select(cpL,#_2==Lv);
+ no=length(tmp)+1;
+ cpL=append(cpL,[kk,Lv,no]);
+ );
+ if(contains(ifL,kk),
+ tmp1=select(ifL,#_1<kk & kk<#_2);
+ Lv=max(apply(tmp1,#_3));
+ tmp=select(cpL,#_2==Lv);
+ no=length(tmp)+1;
+ cpL=append(cpL,[kk,Lv,no]);
+ );
+ );
+ forall(ifL,
+ str_(#_2)="}";
+ );
+ out="";
+ prev=0;
+ forall(cpL,
+ out=out+substring(str,prev,#_1-1);
+ prev=#_1;
+ if(#_3==1,out=out+"){");
+ if(#_3==2,out=out+"}else{");
+ );
+ out=out+substring(str,prev,length(str));
+ );
+);
+
+FortoR(strorg):=( // 17.09.16
+ regional(str,frL,ppL,cpL,kk,Lv,no,out,prev,
+ tmp,tmp1,tmp2);
+ str=replace(strorg,LFmark,"");
+ frL=Indexall(str,"forall(");
+ frL=apply(frL,#+6);
+ if(length(frL)>0,
+ ppL=Bracket(str,"()");
+ tmp2=[];
+ forall(frL,kk,
+ tmp=select(ppL,#_1==kk);
+ tmp1=select(ppL,#_2==-tmp_1_2);
+ tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]);
+ );
+ frL=tmp2;
+ cpL=[];
+ forall(1..(length(str)),kk,
+ if(substring(str,kk-1,kk)==",",
+ tmp1=select(frL,#_1<kk & kk<#_2);
+ Lv=max(apply(tmp1,#_3));
+ tmp=select(cpL,#_2==Lv);
+ no=length(tmp)+1;
+ cpL=append(cpL,[kk,Lv,no]);
+ );
+ if(contains(frL,kk),
+ tmp1=select(frL,#_1<kk & kk<#_2);
+ Lv=max(apply(tmp1,#_3));
+ tmp=select(cpL,#_2==Lv);
+ no=length(tmp)+1;
+ cpL=append(cpL,[kk,Lv,no]);
+ );
+ );
+ forall(frL,
+ str_(#_2)="}";
+ );
+ out="";
+ prev=0;
+ forall(cpL,
+ if(#_3==1,
+ tmp1=substring(str,prev,#_1-1);
+ tmp=indexof(tmp1,"(");
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ tmp1=replace(tmp1,"..",":");
+ );
+ if(#_3==2,
+ tmp2=substring(str,prev,#_1-1);
+ out=out+"for("+tmp2+" in "+tmp1+"){";
+ );
+ prev=#_1;
+ );
+ out=out+substring(str,prev,length(str));
+ );
+);
+
+Deffun(name,bodylist):=(
+//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]);
+ regional(funstr,tmp,tmp1,str,Pos);
+ funstr=name+":=(";
+ forall(bodylist,
+ funstr=funstr+#+";";
+ );
+ funstr=funstr+");";
+ parse(funstr);
+ tmp=indexof(name,"("); // 17.09.15from
+ str=substring(name,0,tmp-1)+"<-function(";
+ str=str+substring(name,tmp,length(name))+"{";
+ forall(1..(length(bodylist)-1),
+ tmp1=bodylist_#;
+ tmp1=replace(tmp1,LFmark,"");
+ tmp1=replace(tmp1," ","");
+ Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
+ if(Pos==0,
+ tmp=RSform(tmp1);
+ if(indexof(tmp,"if(")>0,
+ tmp=iftoR(tmp);
+ );
+ if(indexof(tmp,"forall(")>0,
+ tmp=FortoR(tmp);
+ );
+ str=str+tmp+";";
+ );
+ );
+ str=str+"return("+bodylist_(length(bodylist))+")}";
+ //17.09.15upto
+ FUNLIST=append(FUNLIST,str);
+);
+
+Windispg():=(
+ regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,opcindy);
+ gsave();
+ layer(KETPIClayer);
+ forall(GCLIST,Nj,
+ if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
+ if(islist(Dt) & length(Dt)>0, // 12.19,12.22
+ tmp=MeasureDepth(Dt);
+ if(tmp==1,Dt=[Dt]);
+ opcindy=Nj_3;
+ if(Nj_2<0,tmp1=0,tmp1=Nj_2);
+ if(tmp1<10,
+ forall(Dt,Nk,
+// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
+// tmp2=apply(tmp2,Pcrd(#));
+ tmp2=Nk; // 14.12.04
+ if(length(Nk)>1,
+ tmp="connect("+textformat(tmp2,5)+
+ ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
+ parse(tmp);
+ ,
+ if(length(Nk)==1,
+ tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
+ parse(tmp);
+ );
+ );
+ );
+ );
+ );
+ );
+// if(ADDAXES=="1", // 16.10.08from
+// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
+// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
+// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
+// Letter([[0,0],"sw","O"]);
+// ); // 16.10.08upto
+ grestore();
+ layer(0);
+);
+
+Windispg(pltdata):=(
+ regional(pdata,Nj,Nk,Dt,tmp,tmp1,tmp2,opcindy);
+ gsave();
+ layer(KETPIClayer);
+ if(!islist(pltdata),tmp=[pltdata],tmp=pltdata);
+ pdata=select(GCLIST,contains(tmp,#_1));
+ forall(pdata,Nj,
+ if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
+ if(islist(Dt) & length(Dt)>0, // 12.19,12.22
+ tmp=MeasureDepth(Dt);
+ if(tmp==1,Dt=[Dt]);
+ opcindy=Nj_3;
+ if(Nj_2<0,tmp1=0,tmp1=Nj_2);
+ if(tmp1<10,
+ forall(Dt,Nk,
+ tmp2=Nk; // 14.12.04
+ if(length(Nk)>1,
+ tmp="connect("+textformat(tmp2,5)+ // 15.05.11
+ ",dashtype->"+text(tmp1)+
+ ",linecolor->"+KCOLOR+opcindy+")";
+ parse(tmp);
+ ,
+ if(length(Nk)==1,
+ tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
+ parse(tmp);
+ );
+ );
+ );
+ );
+ );
+ );
+ grestore();
+ layer(0);
+);
+
+WritetoRS():=WritetoRS(FnameR);// 17.09.17from
+WritetoRS(Arg):=(
+ regional(string,filename,shch,tmp1,tmp2);
+ if(isstring(Arg),
+ string=Arg;
+ if(indexof(string,".r")>0,
+ filename=string;
+ shch="";
+ ,
+ filename=FnameR;
+ shch=string;
+ );
+ WritetoRS(filename,shch);
+ ,
+ if(Arg<=1,WritetoRS(FnameR,"all"));
+ if(Arg==2,WritetoRS(FnameR,"sh"));
+ );
+);
+WritetoRS(filename,shchoice):=(
+ regional(Plist,Pos,GrL,str,tmp,tmp1,tmp2,cmd);
+ println("Write to R "+filename);
+ Plist=[];
+ Pnamelist=[];
+ forall(remove(allpoints(),[SW,NE]),
+ tmp=Lcrd(#);
+ tmp1=format(re(tmp_1),6);// 15.02.05
+ tmp2=format(re(tmp_2),6);
+ tmp=#.name+"="+"c("+tmp1+","+tmp2+");";
+ tmp=tmp+"Assignadd('"+#.name+"',"+#.name+")";
+ Plist=append(Plist,tmp);
+ );
+ SCEOUTPUT = openfile(filename);
+ tmp=Datetime();
+ println(SCEOUTPUT,"# date time="+tmp_1+" "+tmp_2);
+ if(isstring(CindyPathName), // 16.12.25from
+ if(length(CindyPathName)>0,
+ println(SCEOUTPUT,
+ "# path file="+CindyPathName+" "+CindyFileName+".cdy");
+ ,
+ println(SCEOUTPUT,"");
+ );
+ ,
+ println(SCEOUTPUT,"");
+ );
+ tmp=replace(Dirwork,"\","/"); //17.09.24
+ println(SCEOUTPUT,"setwd('"+tmp+"')"); //17.09.24
+// if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
+// Libname=Libname+"2e";
+// ); // 17.10.07removed
+ tmp=replace(Libname,"\","/"); //17.09.24from
+// println(SCEOUTPUT,"load('"+tmp+".Rdata')"); //17.10.11
+ println(SCEOUTPUT,"source('"+tmp+".r')");//temporary
+ if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
+ // 17.10.07added
+ tmp=replace(tmp+"_rep2e","\","/");
+ println(SCEOUTPUT,"source('"+tmp+".r')");
+ );
+ println(SCEOUTPUT,"Ketinit()");
+ println(SCEOUTPUT,"cat('KETpic',ThisVersion,'\n')");
+ println(SCEOUTPUT,"Fnametex='"+Fnametex+"'");
+ println(SCEOUTPUT,"FnameR='"+FnameR+"'");
+ println(SCEOUTPUT,"Fnameout='"+Fnameout+"'");
+ println(SCEOUTPUT,"arccos=acos; arcsin=asin; arctan=atan");
+ println(SCEOUTPUT,"");
+ forall(COM0thlist,
+ if(indexof(#,"Texcom")==0, //17.09.22
+ println(SCEOUTPUT,RSform(#));
+ ,
+ println(SCEOUTPUT,#);
+ );
+ );
+ println(SCEOUTPUT,
+ "Setwindow(c("+XMIN+","+XMAX+"), c("+YMIN+","+YMAX+"))");
+ forall(Plist,
+ println(SCEOUTPUT,#);
+ );
+ forall(VLIST,
+ tmp=#_1;
+ tmp1=#_2;
+ if(!isstring(tmp1),
+ if(islist(tmp1),
+ tmp2="[";
+ forall(tmp1,
+ tmp2=tmp2+textformat(#,6)+",";
+ );
+ tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
+ ,
+ tmp1=format(tmp1,6);
+ );
+ );
+ tmp1=RSform(tmp1);
+ print(SCEOUTPUT,tmp+"="+tmp1+";"); //17.09.22
+// tmp=substring(tmp,0,length(tmp)-1);
+ println(SCEOUTPUT,"Assignadd('"+tmp+"',"+tmp+")");
+ );
+ forall(FUNLIST,
+ println(SCEOUTPUT,#);
+ );
+ forall(GLIST,
+ println(SCEOUTPUT,RSform(#));
+ );
+ tmp=text(Pnamelist);
+ tmp=replace(tmp,"[","list(");
+ Pnamelist=replace(tmp,"]",")");
+ println(SCEOUTPUT,"PtL="+Pnamelist+";");
+ tmp=select(GCLIST,#_2==-1);
+ GrL=apply(tmp,#_1);
+ tmp=text(GrL);
+ tmp=replace(tmp,"[","list(");
+ tmp=replace(tmp,"]",")");
+ println(SCEOUTPUT,"GrL="+tmp);
+ tmp1="";
+ if(length(tmp1)>0,
+ tmp1="WriteOutData(Fnameout"+tmp1+");";
+ println(SCEOUTPUT,tmp1);
+ );
+ forall(COM1stlist,
+ if(indexof(#,"Texcom")==0, //17.09.22
+ println(SCEOUTPUT,RSform(#));
+ ,
+ println(SCEOUTPUT,#);
+ );
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"# Windisp(GrL)");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"if(1==1){");
+ println(SCEOUTPUT,"");
+ tmp=replace(Dirwork,"\","/"); //17.09.24(2lines)
+ println(SCEOUTPUT,"Openfile('"+tmp+"/"+Fnametex+"','"+ULEN+"')");
+ forall(COM2ndlist,
+ if(indexof(#,"Texcom")==0, //17.09.22
+ println(SCEOUTPUT,RSform(#));
+ ,
+ println(SCEOUTPUT,#);
+ );
+ );
+ if(length(GrL)>0,
+ println(SCEOUTPUT," Drwline(GrL)");
+ );
+ println(SCEOUTPUT,"Closefile('"+ADDAXES+"')");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"}");
+ if(shchoice=="sh",
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"quit()");
+ ,
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"#quit()");
+ );
+ closefile(SCEOUTPUT);
+); //17.09.17upto
+
+Extractdata(name):=Extractdata(1,name,[]);
+Extractdata(Arg1,Arg2):=(
+ if(isstring(Arg1),
+ Extractdata(1,Arg1,Arg2);
+ ,
+ Extractdata(Arg1,Arg2,[]);
+ );
+);
+Extractdata(number,name,options):=(
+//help:ExtractData("ha1");
+//help:ExtractData(1,"ha1");
+ regional(dlist,tmp,tmp1,tmp2,tmp3,File,Ltype,Noflg,opstr,opcindy);
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ tmp1=[];
+ forall(1..length(GOUTLIST),
+ if(contains(GOUTLIST_#_2,name),
+ tmp1=append(tmp1,#);
+ );
+ );
+ if(length(tmp1)==0,
+ println(varname+" not found");
+ ,
+ tmp1=tmp1_number;
+ tmp2=GOUTLIST_tmp1;
+ tmp=remove(tmp2_2,[name]);
+ GOUTLIST_tmp1=[tmp2_1,tmp];
+ File=tmp2_1;
+ );
+ if(Noflg<3,
+ println("extract outdata "+name);
+ tmp1=parse(name);
+ tmp3=[ //17.09.18
+ "Tmpout=ReadOutData("+Dq+File+Dq+")"
+ ];
+ GLIST=concat(GLIST,tmp3);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ tmp2;
+);
+
+RemoveOut(pltlist):=(
+ regional(name,tmp,tmp1,tmp2);
+ forall(pltlist,name,
+ tmp1=[];
+ forall(GOUTLIST,
+ tmp=remove(#_2,[name]);
+ tmp1=append(tmp1,[#_1,tmp]);
+ );
+ GOUTLIST=tmp1;
+ );
+);
+
+ReadOutData():=ReadOutData(Fnameout);
+ReadOutData(filename):=ReadOutData("",filename); //16.03.07
+ReadOutData(pathorg,filenameorg):=(
+//help:ReadOutData();
+//help:Readoutdata();
+//help:ReadOutData("file.txt");
+//help:Readoutdata("file.txt");
+//help:ReadOutData("/datafolder","file.txt");
+//help:Readoutdata("/datafolder","file.txt");
+ regional(path,filename,varname,varL,ptL,pts,tmp,tmp1,tmp2,tmp3,tmp4,
+ nmbr,cmdall,cmd,cmdorg,outdt,goutdt);
+ path=pathorg; //16.03.07 from
+ if(length(path)>0,
+ setdirectory(path);
+ if(indexof(path,"\")>0,tmp1="\",tmp1="/");
+ tmp=substring(path,length(path)-1,length(path));
+ if(tmp!=tmp1,path=path+tmp1);
+ ); //16.03.07 upto
+ filename=filenameorg; // 16.04.17
+ if(indexof(filename,".")==0,filename=filename+".txt");
+ tmp=load(filename);
+ cmdall=tokenize(tmp,"//");
+ varname=cmdall_1;
+ cmdall=cmdall_(2..length(cmdall));
+ outdt=[];
+ varL=[varname];
+ ptL=[];
+ forall(cmdall,cmdorg,
+ cmd=replace(cmdorg,LFmark,"");
+ if(length(cmd)>0,
+ if(cmd=="start" % cmd=="end" % substring(cmd,0,1)=="[",
+ if(cmd=="start",
+ pts=[];
+ );
+ if(cmd=="end",
+ ptL=append(ptL,pts);
+ );
+ if(substring(cmd,0,1)=="[",
+ tmp1=parse(cmd);
+ if(length(tmp1_1)==2,
+ tmp1=apply(tmp1,Pcrd(#));
+ );
+ pts=concat(pts,tmp1);
+ );
+ ,
+ if(length(ptL)>0,
+ if(length(ptL)==1,
+ ptL=ptL_1;
+ tmp=apply(ptL,textformat(#,6));
+ ,
+ tmp="[";
+ forall(ptL,tmp1,
+ tmp=tmp+apply(tmp1,textformat(#,6))+",";
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+"]";
+ );
+ ,
+ tmp="[]";
+ );
+ parse(varname+"="+tmp);
+ outdt=append(outdt,ptL);
+ ptL=[];
+ varname=cmd;
+ varL=append(varL,varname);
+ );
+ );
+ );
+ if(length(ptL)>0,
+ if(length(ptL)==1,
+ ptL=ptL_1;
+ tmp=apply(ptL,textformat(#,6));
+ ,
+ tmp="[";
+ forall(ptL,tmp1,
+ tmp=tmp+apply(tmp1,textformat(#,6))+",";
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+"]";
+ );
+ ,
+ tmp="[]";
+ );
+ parse(varname+"="+tmp);
+ outdt=append(outdt,ptL);
+ if(path=="",tmp=filename,tmp=path+filename); //16.03.07
+ GOUTLIST=append(GOUTLIST,[tmp,varL]);
+ if(length(path)>0, // 16.03.09
+ setdirectory(Dirwork); // 16.03.07
+ );
+ print("readoutdata from "+tmp+" : ");
+ println(varL);
+ varL;
+);
+
+WriteOutData(filename,ptlist):=(
+//help:WriteOutData("file.txt",["g1",gr1,"sg",sgAB]);
+//help:Writeoutdata("file.txt",["g1",gr1,"sg",sgAB]);
+ regional(nn,Gname,Gdata,Str,Gstr,Gj,Pt,Flg,tmp,tmp1,loopend);
+ Flg=0;
+ if(isstring(ptlist_(length(ptlist))),
+ Flg=1;
+ );
+ SCEOUTPUT = openfile(filename);
+ if(Flg==0,
+ loopend=length(ptlist)/2;
+ ,
+ loopend=length(ptlist);
+ );
+ Gstr="[";
+ forall(1..loopend,nn,
+ if(Flg==0,
+ Gname=ptlist_(2*nn-1);
+ ,
+ Gname=ptlist_nn;
+ );
+ Gstr=Gstr+Gname+",";
+ println(SCEOUTPUT,Gname+"//");
+ if(Flg==0,
+ Gdata=ptlist_(2*nn);
+ ,
+ Gdata=parse(Gname);
+ );
+ Gdata=Flattenlist(Gdata);
+ if(MeasureDepth(Gdata)==1,Gdata=[Gdata]);
+ forall(Gdata,Gj,
+ println(SCEOUTPUT,"start//");
+ Str="";
+ forall(Gj,Pt,
+ if(length(Str)>0,
+ Str=Str+","
+ );
+ Str=Str+"["+format(Pt_1,5)+",";
+ Str=Str+format(Pt_2,5);
+ if(length(Pt)<3,
+ Str=Str+"]";
+ ,
+ Str=Str+","+format(Pt_3,5)+"]";
+ );
+ if(length(Str)>80,
+ println(SCEOUTPUT,"["+Str+"]//");
+ Str="";
+ );
+ );
+ if(length(Str)>0,
+ println(SCEOUTPUT,"["+Str+"]//");
+ );
+ if((nn==loopend) & (Gj==Gdata_(length(Gdata))),
+ println(SCEOUTPUT,"end////");
+ ,
+ println(SCEOUTPUT,"end//");
+ );
+ );
+ );
+ closefile(SCEOUTPUT);
+ Gstr=substring(Gstr,0,length(Gstr)-1)+"]";
+ println("writeoutdata "+filename+":"+Gstr);
+);
+
+Makeshell():=(
+ if(length(Texmain)>0,
+ Texparent=Texmain;
+ );
+ if(length(Texparent)>0,
+ Makeshell(Texparent);
+ if(length(FigPdfList)>0,
+ SCEOUTPUT=openfile(Texparent+".tex");
+ forall(FigPdfList,println(SCEOUTPUT,#));
+ closefile(SCEOUTPUT);
+ );
+ ,
+ Makeshell(Fhead+"main");
+ );
+);
+Makeshell(texmainfile):=Makeshell(texmainfile,"rtv");
+Makeshell(texmainfile,flow):=(
+ regional(parent,tmp,tmp1,tmp2,tmp3,flg,tex,path,shnm);
+ parent=Dirwork+Shellparent; // 16.05.29
+ kc():=(
+ println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04,06.07
+ );
+ tmp1="";
+// tmp2=parent;
+ flg=0;
+ forall(reverse(1..length(parent)),
+ if(flg==0,
+ tmp=substring(parent,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(parent,0,#-1);
+ tmp2=substring(parent,#,length(parent));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ );
+ SCEOUTPUT = openfile(tmp2);
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); // 15.07.16
+ tmp1=" "+Dq+Fhead+Dq+" "+Dq+texmainfile+Dq; // 15.12.11
+ flg=0;
+ forall(reverse(1..length(PathT)),
+ if(flg==0,
+ if(substring(PathT,#-1,#)=="/",
+ tex=substring(PathT,#,length(PathT));
+ path=substring(PathT,0,#-1);
+ flg=1;
+ );
+ );
+ );
+ // check the case where no / is found
+ if(flg==0,
+ tex=PathT;
+ path="";
+ );
+ if(indexof(flow,"r")>0,
+ tmp=Dq+PathR+Dq+" --vanilla --slave < "+Fhead+".r";
+ // 17.09.14
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ tmp="rm "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="xelatex",
+ tmp="export PATH=$"+path+":${PATH}";
+ println(SCEOUTPUT,tmp);
+ tmp="xelatex"+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ tmp="rm "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ );//16.11.22upto
+ if(tex=="lualatex",//16.12.16
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ );//16.12.16
+ if(!isstring(Pathpdf),
+ tmp="preview";
+ ,
+ tmp=Pathpdf;
+ );
+ if(tmp=="preview" % tmp=="skim", // 16.09.09from,16.10.20
+ tmp="open -a "+Dq+tmp+Dq+" "+texmainfile+".pdf";
+ ,
+ tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
+ );// 16.09.09upto
+ println(SCEOUTPUT,tmp); // 16.07.21upto
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ setdirectory(Dirwork);
+);
+
+Makebat():=(
+ if(length(Texmain)>0,
+ Texparent=Texmain;
+ );
+ if(length(Texparent)>0,
+ Makebat(Texparent);
+ if(length(FigPdfList)>0,
+ SCEOUTPUT=openfile(Texparent+".tex");
+ forall(FigPdfList,println(SCEOUTPUT,#));
+ closefile(SCEOUTPUT);
+ );
+ ,
+ Makebat(Fhead+"main");
+ );
+);
+Makebat(texmainfile):=Makebat(texmainfile,"rtv");
+Makebat(texmainfile,flow):=(
+ regional(drive,fname,tmp,tmp1,tmp2,tmp3,flg,tex,path,batnm);
+ drive="C:";
+ fname=Dirwork+Batparent;
+ kc():=(
+ println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
+ );
+ tmp=indexof(fname,":");
+ if(tmp>0,
+ drive=substring(fname,0,tmp);
+ fname=substring(fname,tmp,length(fname));
+ );
+ tmp1="";
+ tmp2=fname;
+ flg=0;
+ forall(reverse(1..length(fname)),
+ if(flg==0,
+ tmp=substring(fname,#-1,#);
+ if(tmp=="/" % tmp=="\" % tmp=="\", // 14.01.15
+ tmp1=substring(fname,0,#-1);
+ tmp2=substring(fname,#,length(fname));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(drive+tmp1);
+ );
+ SCEOUTPUT = openfile(tmp2);
+ fname=Dirwork;
+ tmp=indexof(fname,":");
+ if(tmp>0,
+ drive=substring(Dirwork,0,tmp);
+ fname=substring(Dirwork,tmp,length(Dirwork));
+ println(SCEOUTPUT,drive);
+ );
+ println(SCEOUTPUT,"cd "+Dq+fname+Dq);// 15.07.16
+ flg=0;
+ forall(reverse(1..length(PathT)),
+ if(flg==0,
+ if(substring(PathT,#-1,#)=="\",
+ tex=substring(PathT,#,length(PathT));
+ path=substring(PathT,0,#-1);
+ flg=1;
+ );
+ );
+ );
+ if(indexof(flow,"r")>0,
+ tmp=Dq+PathR+"\R"+Dq+" --vanilla --slave < "+Fhead+".r";
+ // 17.09.14
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ tmp="del "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="xelatex",
+ tmp="set Path = %Path%;"+Dq+path+Dq;
+ println(SCEOUTPUT,tmp);
+ tmp="xelatex"+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ tmp="del "+texmainfile+".dvi";
+ println(SCEOUTPUT,tmp);
+ );
+ if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ );//16.11.22upto
+ if(tex=="lualatex",//16.12.16
+ tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
+ println(SCEOUTPUT,tmp);
+ if(indexof(Shellfile,"mv")>0,
+ println(SCEOUTPUT,tmp);
+ );
+ );//16.12.16
+ if(!isstring(Pathpdf),
+ tmp=indexof(PathS,"\scilab");// 15.12.12
+ tmp=substring(PathS,0,tmp-1)+"\SumatraPDF\SumatraPDF.exe";
+ ,
+ tmp=Pathpdf;
+ );
+ tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ if(indexof(Dirwork,":")==0, // 14.01.15
+ drive="C:";
+ ,
+ drive="";
+ );
+ setdirectory(drive+Dirwork);
+);
+
+Addpackage(packorg):=(
+//help:Addpackage("bm");
+//help:Addpackage(["bm","enumerate"]);
+//help:Addpackage(["bm","[c]{somepackage}"]);
+ regional(packL,tmp);
+ packL=packorg; //17.06.25from
+ if(!islist(packL),packL=[packL]);
+ packL=apply(packL,replace(#,"\","/"));
+ forall(1..(length(packL)),
+ tmp=packL_#;
+ if(substring(tmp,0,11)=="ketpicstyle",
+ tmp=replace(Dirhead+"/"+tmp,"\","/");
+ );
+ if(indexof(tmp,"[")==0,
+ packL_#="{"+tmp+"}";
+ );
+ );
+ ADDPACK=concat(ADDPACK,packL); //17.06.25upto
+);
+
+Viewtex():=(
+ regional(texfile,tmp,tmp1,sep);
+ texfile=Fhead+"main";
+// if(iswindows(),sep="\",sep="/"); // 17.04.07
+// sep="/";
+ SCEOUTPUT=openfile(texfile+".tex");
+ tmp="\documentclass{article}"; // 16.06.09from
+ if(indexof(PathT,"platex")>0,
+ tmp=replace(tmp,"article","jarticle");
+ if(indexof(PathT,"uplatex")>0, //17.08.13from
+ tmp=replace(tmp,"jarticle","ujarticle");
+ );//17.08.13upto
+ ); // 16.06.09upto
+ println(SCEOUTPUT,tmp);
+ if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,
+ //16.11.23,12.16
+ if(indexof(PathT,"pdflatex")>0,
+ println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");//16.11.24
+ ,
+ println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16
+ println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18
+ );
+ println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from
+// tmp=replace(Dirhead+"/ketpicstyle","\","/");
+// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ ,
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+// tmp=replace(Dirhead+"/ketpicstyle","\","/");
+// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );//17.04.07upto
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ println(SCEOUTPUT,"\usepackage{color}");
+ forall(ADDPACK, // 16.05.16from
+ println(SCEOUTPUT,"\usepackage"+#); //17.05.25
+ );// 16.05.16upto
+ println(SCEOUTPUT,"");
+// println(SCEOUTPUT,"\def\ketcindy{{K\kern-.20em%"); // deleted 16.11.27,recovered11.29 redeleted17.04.07
+// println(SCEOUTPUT,"\lower.5ex\hbox{E}\kern-.125em{TCindy}}}");
+// println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\setmargin{20}{20}{20}{20}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\verb|"+Fhead+"| by \ketcindy");// 16.01.12, 18, 16.04.08
+// println(SCEOUTPUT,"\verb|"+Fhead+"| by KeTCindy");// 16.11.29 temporarily
+ println(SCEOUTPUT,"\vspace{5mm}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\input{"+Fhead+".tex}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+ if(iswindows(),
+ kc():=(
+ println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
+ );
+ Makebat(texfile);
+ ,
+ kc():=(
+ println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04
+ );
+ Makeshell(texfile);
+ );
+ WritetoRS(2); //17.09.19
+);
+
+Viewparent():=( //17.04.13
+ if(!isexists(Dirwork,Texparent+".tex"),
+ if(isstring(Texparent),
+ drawtext(mouse().xy,Texparent+".tex not exist",
+ size->24,color->[1,0,0]);
+ ,
+ drawtext(mouse().xy,"Texparent not defined",
+ size->24,color->[1,0,0]);
+ );
+ ,
+ if(iswindows(),
+ Makebat();
+ ,
+ Makeshell();
+ );
+ WritetoRS(2); //17.09.29
+ kc();
+ );
+);
+
+Makecmdlist(libname):=(
+//help:Makecmdlist("ketcindylib");
+ regional(cmdall,cmd,flg,tmp,tmp1,tmp2,out);
+ setdirectory(Dirlib);
+ tmp=load(libname+".cs");
+ cmdall=tokenize(tmp,":=");
+ out=[];
+ forall(cmdall,cmd,
+ tmp=max([0,length(cmd)-50]);
+ tmp1=";"+substring(cmd,tmp,length(cmd));
+ flg=0;
+ forall(reverse(1..length(tmp1)),
+ if(flg==0,
+ if(substring(tmp1,#-1,#)==";",
+ tmp=substring(tmp1,#,length(tmp1));
+ tmp2=substring(tmp,0,1);
+ if(length(tmp)>0,
+ if(!contains([" ","/"],tmp2),
+ out=append(out,tmp);
+ flg=1;
+ );
+ );
+ );
+ );
+ );
+ );
+ setdirectory(Dirwork);
+ tmp=length(out)-1;
+ out=out_(2..tmp);
+ out=sort(out);
+);
+
+Savecmdlist(cmdlist,cmdfile):=(
+ SCEOUTPUT=openfile(cmdfile+".cs");
+ forall(cmdlist,
+ println(SCEOUTPUT,#);
+ );
+ closefile(SCEOUTPUT);
+);
+
+Quicksort(seq):=(
+ regional(pivot,left,right,out);
+ if(length(seq)<2,
+ out=seq;
+ ,
+ pivot = max(seq_1,seq_2);
+ left = [];
+ right = [];
+ forall(seq,
+ if(#< pivot,
+ left=append(left,#);
+ ,
+ right=append(right,#);
+ );
+ );
+ left = Quicksort(left);
+ right = Quicksort(right);
+ out=concat(left,right);
+ );
+ out;
+);
+
+Lessstr(st1,st2):=(
+ regional(tmp,tmp1,tmp2,out);
+ tmp=min(length(st1),length(st2));
+ flg=0;
+ forall(1..tmp,
+ if(flg==0,
+ tmp1=substring(st1,#-1,#);
+ tmp2=substring(st2,#-1,#);
+ if(tmp1<tmp2,
+ out=(1<2);
+ flg=1;
+ ,
+ if(tmp1>tmp2,
+ out=(1>2);
+ flg=1;
+ );
+ );
+ );
+ );
+ if(flg==0,
+ if(length(st1)<length(str2),
+ out=(1<2);
+ ,
+ out=(1>2);
+ );
+ );
+ out;
+);
+
+Figpdf():=Figpdf(Texparent,[]);
+Figpdf(Arg1):=(
+ if(isstring(Arg1),
+ Figpdf(Arg1,[]);
+ ,
+ Figpdf(Texparent,Arg1);
+ );
+);
+Figpdf(fnameorg,optionorg):=(
+//help:Figpdf();
+//help:Figpdf([10,,10,,[0,2] ]);(margin(4),move)
+//help:Figpdf([[0,0]]);(move)
+//help:Figpdf(options=[5,5,5,5,[0,0]]]);
+ regional(options,fname,mar,pos,dp,sc,tmp,tmp1,tmp2,sep);
+ fname=fnameorg;
+ if(indexof(fnameorg,".")==0,
+ fname=fnameorg+".tex";
+ );
+ tmp=apply(optionorg,if(isstring(#),parse("["+#+"]"),#)); // 16.04.07
+ tmp=select(tmp,#!=[]);
+ options=optionorg;//16.11.08from
+// mar=[5,5,5,5];
+ dp=[0,-3];
+ tmp=select(options,islist(#));
+ if(length(tmp)>0,
+ dp=tmp_1;
+ options=remove(options,tmp);
+ );
+ tmp=4-length(options);
+ tmp1=apply(1..tmp,5);
+ mar=concat(options,tmp1);
+ mar=apply(mar,if(length(#)==0,5,#));//16.11.08upto
+ pos=[mar_1+dp_1,mar_3+dp_2];
+ sc=10;
+ tmp=indexof(ULEN,"cm");
+ if(tmp>0,
+ tmp1=Removespace(substring(ULEN,0,tmp-1));
+ sc=parse(tmp1)*10;
+ );
+ tmp=indexof(ULEN,"mm");
+ if(tmp>0,
+ tmp1=Removespace(substring(ULEN,0,tmp-1));
+ sc=parse(tmp1);
+ );
+ tmp="\documentclass{article}"; // 16.06.09from
+ if(indexof(PathT,"platex")>0,
+ tmp=replace(tmp,"article","jarticle");
+ if(indexof(PathT,"uplatex")>0, //17.08.13from
+ tmp=replace(tmp,"jarticle","ujarticle");
+ );//17.08.13upto
+ );
+ FigPdfList=append(FigPdfList,tmp); // 16.06.09upto
+ tmp1="\special{papersize=W mm,H mm}";
+ tmp=(XMAX-XMIN)*sc+(mar_1+mar_2);
+ tmp1=replace(tmp1,"W",text(tmp));
+ tmp=(YMAX-YMIN)*sc+(mar_3+mar_4);
+ tmp1=replace(tmp1,"H",text(tmp));
+// if(iswindows(),sep="\",sep="/");//17.04.08
+// sep="/";
+ FigPdfList=append(FigPdfList,tmp1);
+ if(indexof(PathT,"pdflatex")>0 ,//16.11.23
+ Libname=Dirlib+"/ketpic2esciL5";//16.11.23
+ FigPdfList=append(FigPdfList,
+ "\usepackage[pdftex]{pict2e}");//16.11.24
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ FigPdfList=concat(FigPdfList, // 17.04.08from
+// "\usepackage{ketpic2e,ketlayer2e}");
+ ["\usepackage{"+tmp+"/ketpic2e}",
+ "\usepackage{"+tmp+"/ketlayer2e}"]
+ );
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ FigPdfList=concat(FigPdfList,
+// "\usepackage{ketpic,ketlayer}");
+ ["\usepackage{"+tmp+"/ketpic}",
+ "\usepackage{"+tmp+"/ketlayer}"]
+ );// 17.04.08upto
+ );//16.11.22from
+ FigPdfList=append(FigPdfList,
+ "\usepackage{amsmath,amssymb}");
+ FigPdfList=append(FigPdfList,
+ "\usepackage{graphicx,color}");
+ forall(ADDPACK, // 16.05.16from
+// if(indexof(#,"[")==0, // 16.09.05from
+// tmp1="\usepackage{"+#+"}";
+// ,
+ tmp1="\usepackage"+#; //17.07.10
+// );
+ FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto
+ );
+ FigPdfList=append(FigPdfList,"");
+// FigPdfList=append(FigPdfList, // deleted 2016.11.27
+// "\def\ketcindy{{K\kern-.20em%");
+// tmp="\lower.5ex\hbox{E}\kern-.125em";
+// tmp=tmp+"{TCindy}}}";
+// FigPdfList=append(FigPdfList,tmp);
+// FigPdfList=append(FigPdfList,"");
+ FigPdfList=append(FigPdfList,
+ "\setmargin{0}{0}{0}{0}");
+ FigPdfList=append(FigPdfList,"");
+ FigPdfList=append(FigPdfList,"\begin{document}");
+ FigPdfList=append(FigPdfList,"");
+ FigPdfList=append(FigPdfList,
+ "\begin{layer}{50}{0}");
+ tmp1="\putnotese{X}{Y}{\input{";
+ tmp1=replace(tmp1,"X",text(pos_1));
+ tmp1=replace(tmp1,"Y",text(pos_2));
+ FigPdfList=append(FigPdfList,tmp1+Fhead+".tex}}");
+ FigPdfList=append(FigPdfList,"");
+ FigPdfList=append(FigPdfList,"\end{layer}");
+ FigPdfList=append(FigPdfList,"");
+ FigPdfList=append(FigPdfList,"\end{document}");
+ if(fnameorg!=Texparent,
+ SCEOUTPUT=openfile(fname);
+ forall(FigPdfList,println(SCEOUTPUT,#));
+ closefile(SCEOUTPUT);
+ );
+ FigPdfList;
+);
+
+Makehelplist(libname):=(
+ regional(cmdall,cmd,flg,lev,tmp,tmp1,out);
+ tmp=load(libname);
+ cmdall=tokenize(tmp,"//help:");
+ cmdall=select(cmdall,substring(#,1,3)!=");");
+ flg=0;
+ forall(1..3,
+ if(flg==0,
+ if(substring(cmdall_#,0,7)=="start()",
+ cmdall=cmdall_((#+1)..length(cmdall));
+ flg=1;
+ );
+ );
+ );
+ flg=0;
+ tmp=length(cmdall);
+ forall(0..2,
+ if(flg==0,
+ if(substring(cmdall_(tmp-#),0,5)=="end()",
+ cmdall=cmdall_(1..(tmp-#-1));
+ flg=1;
+ );
+ );
+ );
+ out=[];
+ forall(cmdall,cmd,
+ tmp1=indexof(cmd,"(");
+ lev=1;
+ flg=0;
+ forall((tmp1+1)..length(cmd),
+ if(flg==0,
+ tmp=substring(cmd,#-1,#);
+ if(tmp=="(",lev=lev+1);
+ if(tmp==")",
+ lev=lev-1;
+ if(lev==0,
+ flg=1;
+ out=append(out,substring(cmd,0,#)+";");
+ );
+ );
+ );
+ );
+ );
+ sort(out);
+);
+
+Helplist():=Helplist(Dirlib,["+","+3d"],"helpJ");
+// 15.05.22
+Helplist(Arg):=(
+ if(islist(Arg),
+ Helplist(Dirlib,Arg,"helpJ"); // 15.06.20
+ ,
+ if(indexof(Arg,"help")>0,
+ Helplist(Dirlib,["+","+3d"],Arg);
+ ,
+ Helplist(Arg,["+","+3d"],"helpJ");
+ );
+ );
+);
+Helplist(Arg1,Arg2):=(
+ if(islist(Arg1),
+ Helplist(Dirlib,Arg1,Arg2);
+ ,
+ if(indexof(Arg2,"help")>0,
+ Helplist(Dirlib,Arg1,Arg2);
+ ,
+ Helplist(Arg,["+","+3d"],Arg2);
+ );
+ );
+);
+Helplist(dir,files,help):=(
+//help:Helplist();
+//help:Helplist("helpE");
+ regional(ketfiles,tmp,tmp1,tmp2);
+ setdirectory(dir);
+ if(contains(files,"+"),
+ tmp=remove(files,["+"]);
+ ketfiles=concat(["+basic1","+basic2","+out"],tmp);
+ ,
+ ketfiles=files;
+ );
+ ketfiles=apply(ketfiles,replace(#,"+","ketcindylib"));
+ ketfiles=apply(ketfiles,#+"r.cs"); // 15.11.05 from
+ tmp=apply(files,replace(#,"+","ketcindylib"));
+// tmp=apply(files,replace(#,"r.cs",""));
+// tmp=remove(tmp,["ketcindylibout"]);
+// tmp=apply(tmp,replace(#,"basic",""));
+ tmp=apply(tmp,#+help+".txt");
+ ketfiles=concat(ketfiles,tmp);// 15.11.05 upto
+ tmp1=[];
+ forall(ketfiles,
+ tmp=Makehelplist(#);
+ tmp1=concat(tmp1,tmp);
+ );
+ if(!islist(HLIST), // 16.12.31from
+ HLIST=sort(tmp1);
+ ,
+ HLIST=sort(concat(HLIST,tmp1));
+ ); // 16.12.31upto
+ setdirectory(Dirwork);
+);
+
+
+Help():=(
+ forall(HLIST,
+ println(#);
+ );
+);
+Help(strorg):=(
+//help:Help("Plot");
+//help:Help("*");
+ regional(str,sel,tmp,tmp1,tmp2,flg,Endflg);
+ if(length(HLIST)>0,flg=0,flg=-1);
+ str=replace(strorg,"'",Dq); // 15.11.25
+ if(length(str)==0,
+ forall(HLIST,
+ if(indexof(#,"*")>0,
+ println(#);
+ );
+ flg=1;
+ );
+ ,
+ if(str=="*",
+ sel=HLIST;
+ ,
+ sel=select(HLIST,substring(#,0,length(str))==str);
+ );
+ if(length(sel)>0,flg=1);
+ forall(sel,
+ tmp=indexof(#,"(");
+ if(substring(#,tmp-2,tmp-1)!="*",
+ println(#);
+ ,
+// println(substring(#,0,tmp-1));
+ tmp1=substring(#,tmp,length(#)-2);
+ tmp2=indexof(tmp1,"//");
+ Endflg=0;
+ forall(1..4,
+ if(Endflg==0,
+ tmp2=indexof(tmp1,"//");
+ if(tmp2==0,
+ println(" "+tmp1);
+ Endflg=1;
+ ,
+ println(" "+substring(tmp1,0,tmp2-1));
+ tmp1=substring(tmp1,tmp2+1,length(tmp1));
+ );
+ );
+ );
+ );
+ );
+ );
+ if(flg==-1,println(" Help not read in"));
+ if(flg==0,println(" no example"));
+);
+
+Helpkey(str):=(
+ regional(tmp,tmp1,tmp2);
+ tmp1=select(HLIST,indexof(#,str)>0);
+ forall(tmp1,
+ tmp=substring(#,0,indexof(#,"*")-1);
+ Help(tmp);
+ );
+);
+Helpkey(str1,str2):=(
+//help:Helpkey(keyword);
+//help:Helpkey(keyword1,keyword2);
+ regional(tmp,tmp1,tmp2);
+ tmp1=select(HLIST,indexof(#,str1)>0);
+ tmp1=select(tmp1,indexof(#,str2)>0);
+ forall(tmp1,
+ tmp=substring(#,0,indexof(#,"*")-1);
+ Help(tmp);
+ );
+);
+
+Slidework():=Slidework(Dirwork); // 16.06.10
+Slidework(dirorg):=(
+//help:Slidework(directory);
+ regional(dir,tmp,sep); // 16.06.25
+ dir=replace(dirorg,unicode("000a"),""); // 16.06.25
+ sep="/"; //17.04.16from
+ if(iswindows(),
+ dir=replace(dir,"/","\");
+ sep="\";
+ ); //17.04.16upto
+ if(isexists(dir,""), // 16.12.20
+ Changework(dir);
+ if(!isexists(Dirwork,"fig"), // 16.12.18
+ cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16
+ CalcbyS("crdr",cmdL,["m"]);
+ println(dir+sep+"fig generated"); //17.04.16
+ );
+ tmp=dir+sep+"fig"; //17.04.16from
+ Changework(tmp);// 17.02.19upto
+ ,
+ println(dir+ " not exists");
+ );
+);
+
+Setslidepage():=( // 17.03.05
+ regional(tmp1,tmp2,tmp3);
+ tmp1=["letterc","boxc","framec","shadowc","xpos","size"];
+ tmp2=apply([1,2,4,5,7,8],SlideColorList_#);
+ tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
+ println(tmp3);
+);
+Setslidepage(list):=( // 16.12.22
+//help:Setslidepage([letterc,boxc,framec,shadowc,xpos,size]);
+ regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow";
+ if(!islist(SlideColorList),
+ SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+ letterc,mboxc,mboxc,mboxc,62,2,letterc];
+ );
+ numlist=[1,2,4,5,7,8];
+ forall(1..(length(list)),
+ if(length(list_#)>0,
+ tmp=numlist_#;
+ SlideColorList_tmp=list_#;
+ );
+ );
+ SlideColorList_3=SlideColorList_2;
+ SlideColorList_6=SlideColorList_5;
+);
+
+Setslidemain():=( // 17.03.05
+ regional(tmp1,tmp2,tmp3);
+ tmp1=["letterc","boxc","framec","xpos","size"];
+ tmp2=apply([9,10,12,13,14],SlideColorList_#);
+ tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
+ println(tmp3);
+);
+Setslidemain(list):=( // 16.12.22
+//help:Setslidemain([letterc,boxc,framec,xpos,size]);
+ regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow";
+ if(!islist(SlideColorList),
+ SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+ letterc,mboxc,mboxc,mboxc,62,2,letterc];
+ );
+ numlist=[9,10,12,13,14];
+ forall(1..(length(list)),
+ if(length(list_#)>0, //17.01.04
+ tmp=numlist_#;
+ SlideColorList_tmp=list_#;
+ );
+ );
+ SlideColorList_11=SlideColorList_10;
+);
+
+Setslidebody():=( // 17.03.05
+ regional(tmp1,tmp2,tmp3);
+ tmp1=["letterc","style","thindense"];
+ tmp2=[SlideColorList_(15),BodyStyle,ThinDense];
+ tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
+ println(tmp3);
+);
+Setslidebody(str):=(
+ regional(clr,style,thin);
+ if(isstring(str),
+ Setslidebody(str,"\Large\bf\boldmath",0.1);
+ ,
+ if(length(str)==1,Setslidebody(str_1));
+ if(length(str)==2,Setslidebody(str_1,str_2));
+ if(length(str)==3,Setslidebody(str_1,str_2,str_3));
+ );
+);
+Setslidebody(str,Arg):=( //17.01.08
+ if(isstring(Arg),
+ Setslidebody(str,Arg,0.1);
+ ,
+ Setslidebody(str,"\Large\bf\boldmath",Arg);
+ );
+);
+Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08
+//help:Setslidebody(["black",,0]);
+//help:Setslidebody(["blue","\Large\bf\boldmath",0.1]);
+ regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow";
+ if(!islist(SlideColorList),
+ SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+ letterc,mboxc,mboxc,mboxc,62,2,letterc];
+ );
+ if(length(str)>0,SlideColorList_(15)=str);
+ if(length(style)>0,BodyStyle=style);
+ ThinDense=density;//17.01.08
+);
+
+Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]);
+// 16.12.31from
+Setslidehyper(Arg):=(
+ if(isstring(Arg),
+ if(length(Arg)==0, //17.01.29from
+ Setslidehyper();
+ ,
+ Setslidehyper(Arg,[]);
+ );//17.01.29upto
+ ,
+ Setslidehyper("dvipdfmx",Arg);
+ );
+);
+Setslidehyper(driver,options):=(
+//help:Setslidehyper();
+//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]);
+ regional(reL,stL,tmp,tmp1,tmp2,str,reL);
+ str="";
+ reL=[];
+ forall(options,
+ if(isstring(#),
+ str=#
+ ,
+ reL=append(reL,#);
+ );
+ );
+ if(length(str)>0,str=","+str);
+ tmp1="";
+ if(length(driver+str)>0,
+ tmp1="["+driver+str+"]";
+ );
+ tmp1=replace(tmp1,"cl=","colorlinks=");
+ tmp1=replace(tmp1,"lc=","linkcolor=");
+ tmp1=replace(tmp1,"fc=","filecolor=");
+ tmp1=replace(tmp1,"uc=","urlcolor=");
+ Addpackage(tmp1+"{hyperref}");
+ LinkPosH=125;
+ LinkPosV=70;
+ LinkSize=1;
+ if(length(reL)>0,LinkPosH=reL_1);
+ if(length(reL)>1,LinkPosV=reL_2);
+ if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31
+);
+
+Settitle(cmdL):=Settitle("slide0",cmdL,[]);
+Settitle(Arg1,Arg2):=(
+ if(isstring(Arg1),
+ Settitle(Arg1,Arg2,[]);
+ ,
+ Settitle("slide0",Arg1,Arg2);
+ );
+);
+Settitle(name,cmdL,options):=(
+//help:Settitle(cmdL);
+//help:Settitle(name,cmdL);
+//help:Settitle(options=["Layery=0","Color=blue"]);
+ regional(tmp,tmp1,tmp2,eqL,layery,color,size,font);
+ TitleName=name;
+ layery="0";
+ color="blue";
+ size="\Large";
+ font="\bf";
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ forall(eqL,
+ tmp1=Toupper(substring(#,0,1));
+ tmp=indexof(#,"=");
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="L",
+ layery=tmp2;
+ );
+ if(tmp1=="C",
+ color=tmp2;
+ );
+ if(tmp1=="S",
+ size=tmp2;
+ if(substring(size,0,1)!="\",size="\"+size);
+ );
+ if(tmp1=="F",
+ font=tmp2;
+ if(substring(font,0,1)!="\",font="\"+font);
+ );
+ );
+ TitleCmdL=["{"+size+font];
+ if(indexof(color,"[")>0,
+ tmp=replace(color,"[","{");
+ tmp=replace(tmp,"]","}");
+ tmp1=Indexall(tmp,",");
+ if(length(tmp1)>=3,
+ tmp="\color[cmyk]"+tmp;
+ ,
+ tmp="\color[rgb]"+tmp;
+ );
+ ,
+ tmp="\color{"+color+"}";
+ );
+ TitleCmdL=append(TitleCmdL,tmp);
+ TitleCmdL=concat(TitleCmdL,["","\begin{layer}{120}{"+layery+"}"]);
+ forall(1..(length(cmdL)),
+ tmp=cmdL_#;
+ if(length(tmp)>0,
+ if(#==1,
+ tmp="{\Huge \putnote"+tmp+"}"
+ ,
+ tmp="\putnote"+tmp;
+ );
+ TitleCmdL=append(TitleCmdL,tmp);
+ );
+ );
+ TitleCmdL=concat(TitleCmdL,["\end{layer}","","}"]);
+);
+
+Maketitle():=(
+ if(!isstring(TitleName), //17.04.13from
+ drawtext(mouse().xy,"Settitle not defined",
+ size->24,color->[1,0,0]);
+ , //17.04.13upto
+ Maketitle(TitleName);
+ );
+);
+Maketitle(name):=(
+//help:Maketitle();
+ regional(texfile,texmain,tmp,tmp1,sep);
+ texfile=name;
+ texmain=name+"main";
+ SCEOUTPUT=openfile(texfile+".tex");
+ forall(TitleCmdL,
+ println(SCEOUTPUT,#);
+ );
+ closefile(SCEOUTPUT);
+ SCEOUTPUT=openfile(texmain+".tex");
+ tmp="\documentclass[landscape,10pt]{article}";
+ if(indexof(PathT,"platex")>0,
+ tmp=replace(tmp,"article","jarticle");
+ if(indexof(PathT,"uplatex")>0, //17.08.13from
+ tmp=replace(tmp,"jarticle","ujarticle");
+ );//17.08.13upto
+ );
+ println(SCEOUTPUT,tmp);
+ tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
+ println(SCEOUTPUT,tmp);
+// if(iswindows(),sep="\",sep="/"); // 17.04.08from
+// sep="/";
+ //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{bm,enumerate}");
+ if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ ,
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
+ );
+ println(SCEOUTPUT,"\usepackage[usenames]{xcolor}");
+ forall(ADDPACK,
+// if(indexof(#,"[")==0,
+// println(SCEOUTPUT,"\usepackage{"+#+"}");
+// ,
+ println(SCEOUTPUT,"\usepackage"+#); // 17.07.10
+// );
+ );
+ if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE");
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"\ketslideinit");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\input{"+texfile+".tex}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+ if(iswindows(),
+ Makebat(texmain,"tv");
+ ,
+ Makeshell(texmain,"tv");
+ );
+ kc();
+);
+
+Repeatsameslide(repeatflg,sestr,addedL):=(
+ regional(seL,flg1,ss,nn,nrep,tmp,tmp1,tmp2,tmp3,str,j,k);
+ // global RepeatList, SCEOUTPUT
+ nrep=length(RepeatList);
+ flg1=0;
+ forall(addedL,ss,
+ if(repeatflg==0,
+ if(substring(ss,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,ss);
+ );//16.01.04
+ ,
+ forall(1..nrep,nn,
+ if(sestr=="",
+ RepeatList_nn=append(RepeatList_nn,ss);
+ );
+ );
+ if(sestr=="",
+ seL=[1];
+ ,
+ tmp1=substring(sestr,1,length(sestr)-1);
+ tmp1=replace(tmp1,",-",".."+text(nrep));
+ tmp1=replace(tmp1,"-,","1..");
+ tmp1="["+tmp1+"]"; //17.01.03
+ seL=flatten(parse(tmp1)); //17.01.03
+ );
+ if(contains(seL,1),
+ if(substring(ss,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,ss);
+ );
+ seL=remove(seL,[1]);
+ flg1=1;
+ );
+ forall(1..(length(seL)),nn,
+ tmp=seL_nn;
+ if(tmp<=length(RepeatList), //17.01.12from
+ RepeatList_tmp=append( RepeatList_tmp,ss);
+ ,
+ println(" "+sestr+" : "+text(tmp)+" > "+text(length(RepeatList)));
+ );
+ );
+ if(ThinFlg==1,//16.01.05from
+ if(flg1==1,seL=append(seL,1));
+ seL=remove(1..nrep,seL);
+ str=ss; // 17.05.28from
+ repeat(10,
+ tmp1=Indexall(str,"{\color");
+ if(length(tmp1)>0,
+ tmp2=Indexall(str,"}");
+ tmp=select(tmp2,tmp1_1<#);
+ tmp=substring(str,tmp1_1,tmp_1);
+ str=replace(str,tmp+" ","");
+ str=replace(str,tmp,"");
+ );
+ );//17.05.28upto
+ if(contains(seL,1),
+ if(substring(str,0,1)!="%",
+ if(NonThinFlg==0,
+ if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
+ println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
+ println(SCEOUTPUT,str);
+ println(SCEOUTPUT,"}%");
+ ,
+ println(SCEOUTPUT,str);
+ );
+ );
+ if(NonThinFlg==1,
+ if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
+ println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
+ );
+ println(SCEOUTPUT,str);
+ );
+ if(NonThinFlg==2,
+ println(SCEOUTPUT,str);
+ if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
+ println(SCEOUTPUT,"}%");
+ );
+ );
+ seL=remove(seL,[1]);
+ );
+ );
+ if(substring(ss,0,1)!="%", //16.01.04
+ forall(1..(length(seL)),nn,
+ tmp=seL_nn;
+ if(NonThinFlg==0,
+ tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
+ tmp1=[tmp1,str,"}%"];
+ );
+ if(NonThinFlg==1,
+ tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
+ tmp1=[tmp1,str];//17.01.08upto
+ );
+ if(NonThinFlg==2,
+ tmp1=[str,"}%"];
+ );
+ RepeatList_tmp=concat( RepeatList_tmp,tmp1);
+ );
+ );
+ );//16.01.05upto
+ );
+ );//16.12.05upto
+);
+
+Presentation(texfile):=Presentation(texfile,texfile);
+Presentation(texfile,txtfile):=(
+//help:Presentation(texfile,txtfile);
+ regional(file,flgL,flg,verbflg,slideL,ns,slideorgL,wall,sld,slidecmd,tmp,tmp0,tmp1,
+ tmp2,tmp3,tmp4,tmp5,newoption,top,repeatflg,nrep,nrepprev,,repstr,
+ sestr,npara,paradt,parafiles,hyperflg,paractr,
+ letterc,boxc,shadowc,mboxc,sep);
+ slidecmd=["\ketcletter","\ketcbox","\ketdbox","\ketcframe",
+ "\ketcshadow","\ketdshadow","\slidetitlex","\slidetitlesize",
+ "\mketcletter","\mketcbox","\mketdbox","\mketcframe",
+ "\mslidetitlex","\mslidetitlesize"];
+ if(!isstring(BodyStyle),//17.01.06
+ BodyStyle="\Large\bf\boldmath";
+ );
+ repeatflg=0;
+ RepeatList=[];
+ paractr=0; //16.12.31
+ if(indexof(texfile,".")==0,file=texfile+".tex",file=texfile);
+ if(indexof(txtfile,".")==0,tmp1=txtfile+".txt",tmp1=txtfile);
+ tmp=load(tmp1);
+ tmp=replace(tmp,"////","||||");// 16.05.11, 06.24(reactivated)
+ slideL=tokenize(tmp,"//");
+ slideorgL=slideL; // 16.07.11
+ slideL=apply(slideL,Removespace(#));
+ tmp=select(1..length(slideL),length(slideL_#)>0); // 16.07.11from
+ slideL=apply(tmp,slideL_#);
+ slideorgL=apply(tmp,slideorgL_#);
+// slideL=select(slideL,length(#)>0); // 16.07.11upto
+ flg=0; // 16.06.09from
+ forall(1..10,
+ if(flg==0,
+ if(substring(slideL_1,0,1)!="%",
+ flg=1;
+ ,
+ slideL=slideL_(2..length(slideL));
+ slideorgL=slideorgL_(2..length(slideorgL));
+ );
+ );
+ ); // 16.06.09upto
+ flgL=[];
+ SCEOUTPUT = openfile(file);
+ tmp=tokenize(slideL_1,"::");
+ tmp1=tmp_1;
+ if(length(tmp)>1,
+ tmp2=tmp_2;
+ tmp3=tmp_(3..length(tmp));//16.06.25
+ ,
+ tmp2="";
+ tmp3=tmp_(2..length(tmp));//16.06.25
+ );
+ wall=""; // 16.06.10
+ if(length(tmp3)>0,//16.06.25from
+ if(substring(tmp3_1,0,1)!="\" & indexof(tmp3_1,"=")==0,
+ wall=tmp3_1;
+ tmp3=tmp3_(2..length(tmp3));
+ );
+ );//16.06.25upto
+ tmp="%%% "+tmp1+" "+txtfile;// 16.06.09from
+ println(SCEOUTPUT,tmp);
+ tmp="\documentclass[landscape,10pt]{article}";
+ if(indexof(PathT,"platex")>0,
+ tmp=replace(tmp,"article","jarticle");
+ if(indexof(PathT,"uplatex")>0, //17.08.13from
+ tmp=replace(tmp,"jarticle","ujarticle");
+ );//17.08.13upto
+ );
+ println(SCEOUTPUT,tmp);// 16.06.09from
+ tmp=select(1..(length(tmp3)),indexof(tmp3_#,"\usepackage")>0);//17.06.18from
+ forall(tmp,
+ println(SCEOUTPUT,tmp3_#);
+ );
+ tmp=remove(1..(length(tmp3)),tmp);
+ tmp3=tmp3_tmp;//17.06.18upto
+// if(iswindows(),sep="\",sep="/"); // 17.04.08
+// sep="/";
+ if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
+ if(indexof(PathT,"lualatex")>0,
+ println(SCEOUTPUT,"\usepackage{luatexja}");
+ );
+ println(SCEOUTPUT,"\usepackage{pict2e}");
+// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ ,
+ println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}");
+ //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );// 17.04.08upto
+ if(length(wall)==0,
+ //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
+ //println(SCEOUTPUT,"\usepackage{ketslide2}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}");
+ );//17.04.08upto
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{bm,enumerate}");
+ if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ ,
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
+ );
+// println(SCEOUTPUT,"\usepackage[usenames]{color}");
+// println(SCEOUTPUT,"\usepackage{color}");//17.06.14
+ println(SCEOUTPUT,"\usepackage{xcolor}");//17.07.31
+ letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
+ shadowc=[0,0,0,0.5]; mboxc="yellow";
+// if(!islist(SlideColorList), //17.03.02from
+// SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
+// letterc,mboxc,mboxc,mboxc,62,2,letterc];
+// , //17.03.02upto
+ tmp4="abcdefghijklmno";
+ forall(1..15,
+ tmp=SlideColorList_#;
+ if(islist(tmp),
+ tmp=text(tmp);
+ tmp=substring(tmp,1,length(tmp)-1);
+ if(length(SlideColorList_#)==4,//17.01.07from
+ println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{cmyk}{"+tmp+"}");
+ );
+ if(length(SlideColorList_#)==3,
+ println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{rgb}{"+tmp+"}");
+ );//17.01.07upto
+ SlideColorList_#="slidecolor"+tmp4_#;
+ );
+ );
+// ); //17.03.02
+ println(SCEOUTPUT,"\def\setthin#1{\def\thin{#1}}");//17.08.23
+ println(SCEOUTPUT,"\setthin{"+text(ThinDense)+"}");//17.08.23
+ forall(ADDPACK,// 16.06.09from
+// if(indexof(#,"[")==0, // 16.09.05from
+// println(SCEOUTPUT,"\usepackage{"+#+"}");
+// ,
+ println(SCEOUTPUT,"\usepackage"+#); //17.07.10
+// );
+ );// 16.06.09upto
+ tmp=select(ADDPACK,indexof(#,"{hyperref}")>0);//16.12.31from
+ if(length(tmp)>0,
+ hyperflg=1;
+ ,
+ hyperflg=0; //16.12.31upto
+ );
+ forall(tmp3,
+ println(SCEOUTPUT,#);
+ );
+ if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE"); // 16.06.09
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"\ketslideinit");
+ println(SCEOUTPUT,"");
+ forall(tmp, // 15.07.21
+ if(substring(#,0,1)=="\", println(SCEOUTPUT,#));
+ );
+ if(!isstring(PageStyle),PageStyle="headings");//17.04.09
+ println(SCEOUTPUT,"\pagestyle{"+PageStyle+"}");//17.04.09
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"");
+ if(length(wall)>0,
+ println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
+ println(SCEOUTPUT,"");
+ );
+ if(length(tmp2)>0,
+ if(indexof(tmp2," no")==0, // 16.11.11from
+ println(SCEOUTPUT,"\begin{layer}{120}{0}");
+ if(substring(tmp2,0,1)!="\",
+ tmp2="\putnotese{0}{0}{\input{fig/"+tmp2+".tex}}";//16.12.27
+ );
+ println(SCEOUTPUT,tmp2);
+ println(SCEOUTPUT,"\end{layer}");
+ println(SCEOUTPUT,"");
+ ,
+ tmp=indexof(tmp2,"=");
+ if(tmp==0,
+ top="10mm";
+ ,
+ top=substring(tmp2,tmp,length(tmp2));
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\vspace*{"+top+"}");
+ println(SCEOUTPUT,"");
+ ); // 16.11.11upto
+ );
+ println(SCEOUTPUT,"\def\mainslidetitley{22}");
+ forall(1..14, //16.12.22from
+ tmp=SlideColorList_#;
+ if(!isstring(tmp),tmp=text(tmp));
+ if(length(tmp)>0,
+ tmp="\def"+slidecmd_#+"{"+tmp+"}";
+ println(SCEOUTPUT,tmp);
+ );
+ );//16.12.22upto
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\color{"+SlideColorList_(15)+"}");
+ println(SCEOUTPUT,BodyStyle);//17.01.07
+ println(SCEOUTPUT,"\thispagestyle{empty}");//17.01.29
+ println(SCEOUTPUT,"\addtocounter{page}{-1}");//17.01.29
+ println(SCEOUTPUT,"");
+ verbflg=0; //16.06.28
+ repeatflg=0;//16.12.02
+ nrep=0;//16.12.27
+ nrepprev=0;//17.01.03
+ npara=0;//16.12.27
+ forall(2..length(slideL),ns,
+ ThinFlg=0;
+ NonThinFlg=0;
+ flg=0;
+ tmp1="";
+ tmp2="";
+ tmp3="";
+ sld=removespace(slideL_ns); // 16.06.28
+ sestr="";
+ if((substring(sld,0,1)=="%") & (substring(sld,0,2)!="%%"), // 17.06.23
+ Repeatsameslide(repeatflg,"",[slideL_ns]);
+ if(repeatflg>0,
+ tmp=indexof(sld,"]::");
+ if(tmp>0,
+ if(substring(sld,1,2)!="%",//17.05.31
+ if(substring(sld,1,5)=="thin", ThinFlg=1); // 17.05.28
+ sestr=substring(sld,1,tmp);
+ sld=substring(sld,tmp+2,length(sld));
+ tmp=indexof(sestr,"[");
+ sestr=substring(sestr,tmp-1,length(sestr));//17.01.05
+ );
+ );
+ );
+ if(substring(sld,1,7)=="repeat", // 16.12.09from
+ tmp=indexof(sld,"=");
+ tmp5=substring(sld,tmp,length(sld));
+ tmp=indexof(tmp5,",");
+ if(tmp>0,//17.01.03from
+ tmp5=substring(tmp5,0,tmp-1);
+ );//17.01.03upto
+ repeatflg=1;
+ if(length(tmp5)>0,
+ nrep=parse(tmp5);
+ tmp=[];
+ if(length(wall)>0,
+ tmp=["","\input{fig/"+wall+".tex}"];
+ );
+ tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
+ RepeatList=apply(1..nrep,if(#==1,[],tmp));
+ );
+ if(sestr=="",flg=1);
+ tmp=indexof(sld,",");//17.01.03from
+ if(tmp>0,
+ sld="%"+substring(sld,tmp,length(sld));
+ if(indexof(sld,"=")==0,sld=sld+"=");
+ );//17.01.03upto
+ );
+ if(substring(sld,1,5)=="para",
+ paractr=paractr+1;
+ repeatflg=1;
+ tmp=indexof(sld,"=");
+ tmp=substring(sld,tmp,length(sld));
+ if(length(tmp)==0, //17.01.03
+ npara=0;
+ ,
+ paradt=tokenize(tmp,":");
+ tmp=fileslist(Dirwork+"/fig/"+paradt_1);
+ if(length(tmp)>0,
+ parafiles=tokenize(tmp,",");
+ if(indexof(paradt_4,"input")>0,
+ tmp0=indexof(paradt_4,",");//17.01.29from
+ if(tmp0>0,
+ paradt=append(paradt,substring(paradt_4,tmp0,length(paradt_4)));
+ paradt_4=substring(paradt_4,0,tmp0-1);
+ );//17.01.29upto
+ parafiles=select(parafiles,indexof(#,".tex")>0);
+ if(indexof(paradt_4,"\input")==0,paradt_4="\"+paradt_4);//16.12.17
+ );
+ if(indexof(paradt_4,"include")>0,
+ parafiles=select(parafiles,indexof(#,".pdf")>0);
+ );
+ npara=length(parafiles);
+ ,
+ println(Dirwork+"/fig/"+paradt_1+" not found");
+ parafiles=[];
+ npara=0;
+ );
+ if(nrep==0,
+ nrep=npara;
+ if(length(wall)>0,
+ tmp=["","\input{fig/"+wall+".tex}"];
+ );
+ tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
+ RepeatList=apply(1..nrep,if(#==1,[],tmp));
+ );
+ );
+ forall(1..nrep, //16.12.28
+ tmp4=[]; //16.12.31from
+ if(hyperflg>0,
+ tmp4=["\hypertarget{para"+text(paractr)+"pg"+text(#)+"}{}"];
+ );//16.12.31upto
+ if(npara>0, //17.01.03
+ tmp4=concat(tmp4,["","\begin{layer}{120}"+paradt_2]);
+ if(#<=npara, //16.12.28from
+ tmp=parafiles_#;
+ ,
+ tmp=parafiles_npara;
+ );
+ tmp="{"+paradt_4+"{fig/"+paradt_1+"/"+tmp+"}}";
+ if(length(paradt)>=5,
+ tmp="{\scalebox{"+text(paradt_5)+"}"+tmp+"}";
+ );
+ if(substring(paradt_3,0,1)=="\",
+ tmp=paradt_3+tmp;
+ ,
+ tmp="\putnote"+paradt_3+tmp;
+ );
+ tmp4=concat(tmp4,[tmp]);//16.12.31
+ ,
+ tmp4=concat(tmp4,["","\begin{layer}{120}{0}"]);
+ );
+ if((hyperflg>0) & (LinkSize>0.15),
+ tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from
+ tmp1=tmp+text(paractr)+"pg";
+ tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev);
+ if(#>1,tmp=tmp1+text(1),tmp=tmp2);
+ tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"];
+ if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}");
+ if(#>1,tmp=tmp1+text(#-1),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}");
+ tmp="{"+text(LinkPosV)+"}{\hyperlink{para";
+ tmp2=tmp+text(paractr+1)+"pg"+text(1);
+ if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}");
+ if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH-5*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}");
+ if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2);
+ tmp3=append(tmp3,
+ text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19
+ +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
+ +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}");
+ tmp3=apply(tmp3,tmp,"\putnotew{"+tmp);
+ tmp4=concat(tmp4,tmp3);// 17.01.12uptor
+ tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.10.21from
+ tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}";
+ tmp4=append(tmp4,tmp);//17.10.21upto
+ );
+ tmp4=concat(tmp4,["\end{layer}",""]);//16.12.31upto
+ Repeatsameslide(repeatflg,text([#]),tmp4);
+ );
+ );
+ );
+ if(substring(sld,0,2)=="%%", //17.06.23from
+ println(SCEOUTPUT,sld);
+ flg=1;
+ ); //17.06.23upto
+ if(flg==0,
+ if(indexof(sld,"\begin{verbatim}")==1, // 16.06.28from
+ Repeatsameslide(repeatflg,sestr,[slideL_ns]);
+ verbflg=1;
+ flg=1;
+ ); // 16.06.28
+ if(indexof(sld,"\end{verbatim}")==1,
+ Repeatsameslide(repeatflg,sestr,[slideL_ns]);
+ verbflg=0;
+ flg=1;
+ ); // 16.06.28upto
+ if(flg==0,
+ tmp=replace(sld,"||||","//"); // 16.05.11
+ tmp=tokenize(tmp,"::"); // 16.05.11
+ tmp1=tmp_1;
+ if(length(tmp)>1,tmp2=tmp_2,tmp2="");
+ if(length(tmp)>2,tmp3=tmp_3,tmp3="");
+ if(length(tmp)>3,tmp4=tmp_4,tmp4="");
+ if(length(tmp)>4,tmp5=tmp_5,tmp5="");
+ if(contains(["main","new","same"],tmp1),
+ if(tmp1=="new", // 16.11.09from
+ newoption="";
+ if(substring(tmp2,0,1)=="[",newoption=tmp2);
+ );
+ if(tmp1=="same",
+ if(length(tmp2)==0,tmp2=newoption);
+ );// 16.11.09upto
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%%%%%%%%%%%%%%%%%%%%");
+ println(SCEOUTPUT,"");
+ );
+ );
+ if(flg==0&tmp1=="main",
+ if(repeatflg==1,
+ forall(2..(length(RepeatList)),nrep,
+ tmp=RepeatList_nrep;
+ forall(tmp,
+ if(substring(#,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,#);
+ );
+ );
+ );
+ println(SCEOUTPUT,"");
+ repeatflg=0;RepeatList=[];
+ nrepprev=nrep;//17.01.03
+ nrep=0;//16.12.27
+ npara=0;//16.12.27
+ );
+ if(length(wall)>0,
+ println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
+ );
+ println(SCEOUTPUT,"\mainslide{"+tmp2+"}");
+ println(SCEOUTPUT,"");
+ tmp2="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="new",
+ if(repeatflg==1,
+ forall(2..(length(RepeatList)),nrep,
+ tmp=RepeatList_nrep;
+ forall(tmp,
+ if(substring(#,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,#);
+ );
+ );
+ );
+ println(SCEOUTPUT,"");
+ repeatflg=0;RepeatList=[];
+ nrepprev=nrep;//17.01.03
+ nrep=0;
+ npara=0;
+ );
+ if(length(wall)>0,
+ Repeatsameslide(repeatflg,sestr,["\input{fig/"+wall+".tex}"]);
+ );
+ tmp="\newslide";
+ NewSlideOption=""; //17.01.04
+ if(substring(tmp2,0,1)=="[",
+ NewSlideOption=tmp2; //17.01.04
+ tmp=tmp+tmp2;
+ tmp2=tmp3;
+ tmp3=tmp4;
+ tmp4=tmp5;
+ );
+ tmp=tmp+"{"+tmp2+"}";
+ Repeatsameslide(repeatflg,sestr,[tmp,"","\vspace*{18mm}",""]);
+ tmp2="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="same",
+ if(repeatflg==1,
+ forall(2..(length(RepeatList)),nrep,
+ tmp=RepeatList_nrep;
+ forall(tmp,
+ if(substring(#,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,#);
+ );
+ );
+ );
+ println(SCEOUTPUT,"");
+ repeatflg=0;RepeatList=[];
+ nrepprev=nrep;//17.01.03
+ nrep=0;
+ npara=0;
+ );
+ if(length(wall)>0,
+ println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
+ );
+ tmp="\sameslide"+NewSlideOption; //17.01.04;
+// if(substring(tmp2,0,1)=="[",
+// tmp=tmp+tmp2;
+// tmp2=tmp3;
+// tmp3=tmp4;
+// );
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\vspace*{18mm}");
+ println(SCEOUTPUT,"");
+ tmp4=tmp3;
+ tmp3=tmp2;
+ tmp2="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="itemize",
+ Repeatsameslide(repeatflg,sestr,["\begin{itemize}"]);
+ flgL=append(flgL,"i");
+ tmp2="";
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="enumerate",
+ Repeatsameslide(repeatflg,sestr,["\begin{enumerate}"+tmp2]);
+ flgL=append(flgL,"e");
+ tmp2="";
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="verbatim", //16.06.28from
+ Repeatsameslide(repeatflg,sestr,["\begin{verbatim}"]);
+ flgL=append(flgL,"v");
+ tmp1="";
+ tmp2="";
+ tmp3="";
+ verbflg=1;
+ flg=1;
+ ); //16.06.28upto
+ if(flg==0&tmp1=="layer",
+ Repeatsameslide(repeatflg,sestr,[""]);
+ tmp="\begin{layer}";
+ if(length(tmp2)>0,
+ tmp=tmp+tmp2;
+ ,
+ tmp=tmp+"{120}{0}";
+ );
+ Repeatsameslide(repeatflg,sestr,[tmp]);
+ flgL=append(flgL,"l");
+ tmp2="";
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="putnote",
+ tmp="\putnote"+tmp2+"{";
+ if(indexof(tmp3,"include")==0,
+ tmp1=indexof(tmp3,",");
+ if(tmp1==0,
+ tmp=tmp+"\input{fig/"+tmp3+".tex}}";
+ ,
+ tmp2=substring(tmp3,tmp1,length(tmp3));
+ tmp3=substring(tmp3,0,tmp1-1);
+ tmp=tmp+"\scalebox{"+tmp2+"}{\input{fig/"+tmp3+".tex}}}";
+ );
+ ,
+ tmp2=indexof(tmp3,"[");
+ tmp3=substring(tmp3,tmp2-1,length(tmp3));
+ tmp=tmp+"\includegraphics"+tmp3+"{fig/"+tmp4+"}}";
+ );
+ Repeatsameslide(repeatflg,sestr,[tmp]);
+ tmp2="";
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="item",
+ NonThinFlg=1;
+ Repeatsameslide(repeatflg,sestr,["\item"]);
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0&tmp1=="end",
+ tmp=flgL_(length(flgL));
+ if(tmp=="i",
+ Repeatsameslide(repeatflg,sestr,["\end{itemize}"]);
+ );
+ if(tmp=="e",
+ Repeatsameslide(repeatflg,sestr,["\end{enumerate}"]);
+ );
+ if(tmp=="l",
+ Repeatsameslide(repeatflg,sestr,["\end{layer}",""]);
+ );
+ if(tmp=="v", // 16.06.28from
+ Repeatsameslide(repeatflg,sestr,["\end{verbatim}",""]);
+ verbflg=0;
+ ); // 16.06.28upto
+ flgL=flgL_(1..(length(flgL)-1));
+ tmp2="";
+ tmp3="";
+ flg=1;
+ );
+ if(flg==0, // 16.06.28from
+ if(verbflg==0,
+ tmp2=tmp1;
+ ,
+ tmp2=slideorgL_ns; // 16.07.11
+ tmp2=replace(tmp2,"||","//"); // 16.07.10
+ tmp3="";
+ );
+ ); // 16.06.28upto
+ if(length(tmp2)>0,
+ if(tmp2=="...", tmp2="");
+ if(NonThinFlg==1,NonThinFlg=2);
+ Repeatsameslide(repeatflg,sestr,[tmp2]);
+ );
+ if(length(tmp3)>0,
+ Repeatsameslide(repeatflg,sestr,["\begin{layer}{120}{0}"]);
+ if(substring(tmp3,0,1)=="{",
+ tmp=tmp3;
+ tmp3=tmp4;
+ ,
+ tmp="{60}{0}";
+ );
+ tmp1=indexof(tmp3,",");
+ if(tmp1==0,
+ tmp3="\putnotes"+tmp+"{\input{fig/"+tmp3+".tex}}";
+ ,
+ tmp2=substring(tmp3,tmp1,length(tmp3));
+ tmp3=substring(tmp3,0,tmp1-1);
+ tmp3="\putnotes"+tmp+"{\scalebox{"+tmp2+"}
+ {\input{fig/"+tmp3+".tex}}}";
+ );
+ Repeatsameslide(repeatflg,sestr,[tmp3,"\end{layer}",""]);
+ );
+ );
+ );
+ if(repeatflg==1,
+ forall(2..(length(RepeatList)),nrep,
+ tmp=RepeatList_nrep;
+ forall(tmp,
+ if(substring(#,0,1)!="%", //16.01.04
+ println(SCEOUTPUT,#);
+ );
+ );
+ );
+ println(SCEOUTPUT,"");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+);
+
+Mkslides():=(
+ regional(sep,parent,texparentorg,tmp,tmp1,tmp2,tmp3,tmp4,flg);
+ tmp4=Fhead;
+ Fhead="";
+ if(length(Shellparent)>0, // 16.05.29
+ sep="/";
+ Dirwork=replace(Dirwork,"\",sep);
+ parent=replace(Dirwork+Shellparent,"\",sep);// 16.05.29
+ ,
+ sep="\";
+ Dirwork=replace(Dirwork,"/",sep);
+ parent=replace(Dirwork+Batparent,"/",sep);// 16.05.29
+ );
+ Dirwork=replace(Dirwork,sep+"fig","");
+ Setdirectory(Dirwork);
+ if(length(Texmain)>0, // 15.08.14 from
+ Texparent=Texmain;
+ );
+ texparentorg=Texparent; //17.04.10from
+ if(isstring(Slidename), // 15.08.14 from
+ Texparent=Slidename;
+ );//17.04.10upto
+ if(!isexists(Dirwork,Texparent+".txt"), // 17.04.12from
+ drawtext(mouse().xy,Texparent+".txt not exist in "+Dirwork,
+ size->24,color->[1,0,0]);
+ , // 17.04.12upto
+ Presentation(Texparent); // 15.08.14 upto
+ if(iswindows(),
+ tmp2=Batparent;
+ parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29
+ Makebat(Texparent,"tv"); // 16.07.21
+ kc():=(
+ println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19
+ );
+ kc();
+ Batparent=tmp2;
+ ,
+ tmp2=Shellparent;
+ parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29
+ Shellparent=replace(Shellparent,sep+"fig","");
+ Makeshell(Texparent,"tv"); // 16.07.21
+ kc():=(
+ println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10
+ );
+ kc();
+ Shellparent=tmp2;
+ );
+ );
+ Dirwork=Dirwork+sep+"fig";
+ setdirectory(Dirwork);
+ Fhead=tmp4;
+ Texparent=texparentorg;//17.04.10
+);
+
+Mkslidesummary():=( // 17.04.10revised
+ regional(texparentorg);
+ texparentorg=Texparent;
+ if(isstring(Slidename),
+ Texparent=Slidename;
+ );
+ Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]);
+ Texparent=texparentorg;//17.04.10
+);
+Mkslidesummary(fin,fout):=
+ Mkslidesummary(fin,fout,["m","Wait=3"]);
+Mkslidesummary(inputfile,outputfile,options):=(
+//help:Mkslidesummary(fin,fout,options);
+ regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp);
+ dirworkorg=Dirwork;//17.04.10from
+ if(iswindows(),sep="\",sep="/");
+ dirtop=replace(Dirwork,sep+"fig","");
+ Changework(dirtop);//17.04.10uptp
+ fin=inputfile;
+ if(indexof(fin,".")==0,fin=fin+".tex");
+ fout=outputfile;
+ if(indexof(fout,".")==0,fout=fout+".tex");
+ cmdL=[
+ "Dt=mgetl('"+fin+"');",[],
+ "Tmp=find((strstr(Dt,'\hypertarget')=='')
+ &(strstr(Dt,'\hyperlink')==''))",[],
+ "Dt=Dt(Tmp)",[],
+ "Smain=strstr(Dt,'\mainslide')",[],
+ "Snew=strstr(Dt,'\newslide')",[],
+ "Ssame=strstr(Dt,'\sameslide')",[],
+ "Nnew=[]",[],
+ "Nsame=[]",[],
+ "for J=1:size(Dt,1),
+ if (length(Snew(J))>0)|(length(Smain(J))>0),
+ Nnew=[Nnew,J],
+ end;
+ if length(Ssame(J))>0,
+ Nsame=[Nsame,J],
+ end;
+ end",[],
+ "Out=Dt(1:Nnew(1))",[],
+ "for J=2:length(Nnew),
+ Tmp=find(Nsame<Nnew(J));
+ Tmp=max(Tmp);
+ Tmp=max([Nsame(Tmp),Nnew(J-1)])+1;
+ Out=[Out;Dt(Tmp:Nnew(J))],
+ end",[],
+ "Tmp=max([Nsame($),Nnew($)])+1",[],
+ "Out=[Out;Dt(Tmp:size(Dt,1))]",[],
+ "mputl(Out,'"+fout+"');",[]
+ ];
+ CalcbyS("out",cmdL,options);
+ wait(1000);
+ Changework(dirtop);//17.04.10
+ tmp=replace(fout,".tex","");
+ if(iswindows(),
+ Makebat(tmp,"tv");
+ ,
+ Makeshell(tmp,"tv");
+ );
+ kc();
+ Changework(dirworkorg);//17.04.10
+);
+
+Example(exorg):=Example(exorg,"");
+Example(exorg,suborg):=(
+//help:Example("Mxfun","diff");
+ regional(ex,tmp,tmp1,tmp2);
+ ex=replace(exorg,"'",Dq);
+ sub=replace(suborg,"'",Dq);
+ setdirectory(Dirlib);
+ tmp=load("examples.txt");
+ setdirectory(Dirwork);
+ tmp=tokenize(tmp,"//");
+ tmp=tmp_(1..(length(tmp)-1));
+ tmp1=select(tmp,substring(#,0,length(ex))==ex);
+ tmp1=sort(tmp1);
+ if(length(sub)>0,
+ tmp1=select(tmp1,indexof(#,sub)>0);
+ );
+ forall(tmp1,
+ if((indexof(#,"##")>0) % (indexof(#,"~#")>0),
+ tmp=indexof(#,",");
+ println(substring(#,tmp,length(#)));
+ ,
+ println(#);
+ );
+ );
+);
+
+BBdata():=Bbdata(BBTarget,0);
+BBdata(fname):=Bbdata(fname,0); // 16.04.09
+BBdata(fname,optionorg):=(
+//help:BBdata(filename);
+//help:BBdata(options=0(automatic),1(make),"w=","h=");
+ regional(fout,flg,path,file,kcfile,options,eqL,reL,stL,
+ waiting,addop,tmp,tmp1,tmp2);
+ path="";
+ file=fname;
+ flg=0;
+ waiting=2;
+ forall(reverse(1..length(fname)),
+ if(flg==0,
+ tmp=substring(fname,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ path=substring(fname,0,#-1);
+ file=substring(fname,#,length(fname));
+ flg=1;
+ );
+ );
+ );
+ if(path=="",path=Dirwork);//16.10.05
+ if(indexof(file,".")==0,file=file+".pdf");
+ if(islist(optionorg),options=optionorg,options=[optionorg]);
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ stL=tmp_7;
+ flg=0;
+ addop="";
+ if(length(reL)>0,
+ tmp=reL_1;
+ if(tmp==1,flg=1);
+ );
+ forall(stL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",flg=1);
+ );
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,2));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W=",
+ addop=addop+",width="+tmp2;
+ options=remove(options,[#]);
+ );
+ if(tmp1=="H=",
+ addop=addop+",height="+tmp2;
+ options=remove(options,[#]);
+ );
+ );
+ tmp=indexof(file,".");
+ tmp1=substring(file,0,tmp-1);
+ fout=tmp1+".txt";
+ if(iswindows(),
+ kcfile="kc.bat";
+ ,
+ kcfile="kc.sh";
+ );
+ if(flg==0,
+ tmp=load(fout); //
+ if(length(tmp)==0,
+ flg=1;
+ ,
+ tmp=tokenize(tmp,"%%");
+ tmp=tmp_2;
+ tmp1=indexof(tmp,":");
+ tmp=substring(tmp,tmp1,length(tmp));
+ tmp=Removespace(tmp);
+ if(tmp!=file,flg=1);
+ );
+ );
+ if(length(path)==0,
+ path=Dirwork;
+ );
+ if(flg==1,
+ setdirectory(path);
+ tmp=load(file);
+ setdirectory(Dirwork);
+ if(length(tmp)==0,
+ println(" => "+file+" not exists");
+ flg=-1;
+ );
+ );
+ if(flg==1,
+ SCEOUTPUT = openfile(kcfile);
+ if(!iswindows(),
+ println(SCEOUTPUT,"#!/bin/sh");
+ );
+ println(SCEOUTPUT,"cd "+Dq+path+Dq);
+ tmp=replace(PathT,"pdflatex","extractbb"); //16.11.22
+ tmp=replace(tmp,"pdftex","extractbb"); //16.11.22
+ tmp=replace(tmp,"xelatex","extractbb");
+ tmp=replace(tmp,"uplatex","extractbb"); //17.09.20
+ tmp=replace(tmp,"platex","extractbb");
+ tmp=replace(tmp,"latex","extractbb");
+ tmp=tmp+" -O "+file;
+ if(iswindows(),
+ tmp=tmp+" > "+Dirwork+"\"+fout;
+ ,
+ tmp=tmp+" > "+Dirwork+"/"+fout;
+ );
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ kc(Dirwork+"/"+kcfile,Mackc+Dirlib,Fnametex); // 16.06.07
+ );
+ if(flg>=0,
+ tmp1=0;
+ repeat(floor(waiting*1000/WaitUnit),
+ if(tmp1==0,
+ wait(10);
+ tmp=load(fout);
+ if(indexof(tmp,"CreationDate")>0,
+ tmp1=1;
+ );
+ );
+ );
+ if(length(tmp)==0,
+ println(fout+" not generated. Maybe "+kcfile+" not run.");
+ ,
+ tmp=tokenize(tmp,"%%");
+ tmp=select(tmp,indexof(#,"Bounding")>0);
+ tmp=tmp_2; //
+ tmp1=indexof(tmp,":");
+ tmp=substring(tmp,tmp1,length(tmp));
+ tmp=removespace(tmp);
+ tmp=tokenize(tmp," ");
+ tmp1="";
+ forall(tmp,
+ tmp1=tmp1+Sprintf(#,2)+" ";
+ );
+ tmp1=removespace(tmp1)+addop;
+ tmp2="\includegraphics[bb="+tmp1+"]{"+file+"}";
+ println(tmp2);
+ );
+ );
+// setdirectory(Dirwork);
+ tmp2; // 16.04.25
+);
+
+//help:end();
+
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpE.txt
index 437bdefd..437bdefd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpE.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpJ.txt
index 330a47c4..330a47c4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibhelpJ.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs
index bf846d08..80353e48 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindymv(2017.08.19) loaded");
+println("ketcindymv(2017.10.12) loaded");
//help:start();
@@ -808,5 +808,103 @@ Animatefile(path,folder):=(
println(fname+" has been generated");
);
+Mkanimation():=( // 17.10.08
+ if(!isexists(Dirwork,ParaPath),
+ Parafolder();
+ );
+ if(!isexists(Dirwork,"anim"+ParaPath+".tex"),
+ Animatefile();
+ );
+ Mkanimation("fig",ParaPath);
+);
+Mkanimation(folder):=Mkanimation("fig",folder);
+Mkanimation(path,folder):=(
+//help:Mkanimation();
+//help:Mkanimation(path,folder);
+ regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent,
+ tmp,tmp1,tmp2,tmp3,flg);
+ Fheadbkup=Fhead;
+ Dirworkbkup=Dirwork;
+ Pathpdfbkup=Pathpdf;
+ Fhead="animate"+folder;
+ Pathpdf=PathAd;
+ Dirwork=replace(Dirwork,"\",pathsep());
+ Dirwork=replace(Dirwork,"/",pathsep());
+ Dirwork=replace(Dirwork,pathsep()+"fig","");
+ Setdirectory(Dirwork);
+ tmp1=replace(PathT,pathsep(),"/");
+ tmp=indexall(tmp1,pathsep());
+ tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
+ if((tex=="platex")%(tex=="uplatex"),
+ if(tex=="platex",article="jarticle",article="ujarticle");
+ ,
+ article="article";
+ );
+ SCEOUTPUT=openfile(Fhead+".tex");
+ println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
+ println(SCEOUTPUT,tmp);
+ );
+ if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
+ if((tex=="pdflatex")%(tex=="xelatex"),
+ println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
+ ,
+ println(SCEOUTPUT,"\usepackage{pict2e}");
+ println(SCEOUTPUT,"\usepackage{luatexja}");
+ );
+ tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{bm,enumerate}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{animate}");
+ ,
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ println(SCEOUTPUT,"\usepackage{animate}");
+ );
+ println(SCEOUTPUT,"\usepackage{xcolor}");
+ forall(ADDPACK, tmp1,
+ tmp=indexof(tmp1,"{animate}")+indexof(tmp1,"{hyperref}");
+ if(tmp==0,
+ println(SCEOUTPUT,"\usepackage"+tmp1);
+ );
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{center}");
+ println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}");
+ println(SCEOUTPUT,"\end{center}");
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+ if(iswindows(),
+ parent=replace(Dirwork+Batparent,pathsep()+"fig","");
+ Makebat(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Dirlib,Fnametex))
+ );
+ ,
+ parent=replace(Dirwork+Shellparent,pathsep()+"fig","");
+ Makeshell(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
+ );
+ );
+ kc();
+ Dirwork=Dirworkbkup;
+ Dirwork=Dirwork+pathsep()+"fig";
+ setdirectory(Dirwork);
+ Fhead=Fheadbkup;
+ Pathpdf= Pathpdfbkup;
+);
+
//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpE.txt
index 9a7edb2e..9a7edb2e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpE.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpJ.txt
index 354d6596..354d6596 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvhelpJ.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt
index b39a48e0..93491c3d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt
@@ -1,3 +1,7 @@
+// e: 2017.10.09
+// Parafolder changed (for R)
+// e: 2017.10.08
+// Mkanimation added
// e: 2017.08.19
// Help of Setpara changed
// e: 2017.06.25
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt
new file mode 100644
index 00000000..674d30e2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt
@@ -0,0 +1,7 @@
+//2017.10.13
+// Ketinitmv changed (Shellfile removed)
+// Parafolder debugged
+//2017.10.12
+// Parafolder changed ( cmdL for making TeX files)
+//2017.10.08
+// Mkanimation added
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
new file mode 100644
index 00000000..d34f9fd8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
@@ -0,0 +1,924 @@
+// Copyright (C) 2014 Masataka Kaneko, Setsuo Takato, KETCindyJapan project team
+//
+//This program is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>
+//
+
+println("ketcindymv(2017.10.13) loaded");
+
+//help:start();
+
+Ketinitmv():=(
+ regional(tmp,tmp1,tmp2,tmp3);
+ Ketinit();//17.04.10
+ Texmov=Fhead+"movie";
+ Texpara=Fhead+"para";
+ ParaTitle=Texpara;//16.12.10
+ tmp1=round(4*SW.y)/4-0.5;
+ tmp2=SW.x+1;
+ tmp3=NE.x-1;
+ Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]);
+ PutonCurve("MF",sgsl,[tmp2,tmp3]);
+ Paraamble(); // 16.08.10
+ Pathpdf=Pathad; // 17.10.13
+);
+
+Moviedata(func,var):=Moviedata(func,var,[]);
+Moviedata(func,var,options):=(
+//help:Moviedata("mf(t)","t=[0,4]");
+//help:Moviedata(Options=["Cut=20","Div=80"]);
+ regional(tmp,tmp1,tmp2,eqL);
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ CUT=20;
+ DVALL=0;
+ Ec=[];
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=Toupper(substring(#,tmp,length(#)));
+ if(tmp1=="D",
+ DVALL=parse(tmp2);
+ );
+ if(tmp1=="C",
+ CUT=parse(tmp2);
+ );
+ );
+ if(DVALL==0,
+ DVALL=4*CUT;
+ );
+ tmp=indexof(var,"=");
+ tmp1=substring(var,0,tmp-1);
+ tmp2=substring(var,tmp,length(var));
+ tmp2=parse(tmp2);
+ if(indexof(func,"Moiveframe")==0,
+ tmp="Movieframe("+tmp1+"):="+func+";";
+ parse(tmp);
+ );
+ tmp="Movierange="+tmp2+";";
+ parse(tmp);
+// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]";
+// parse(tmp);
+);
+
+Paraamble():=Paraamble("");
+Paraamble(str):=(
+//help:Paraamble();
+//help:Paraamble(amblelist);
+//help:Paraamble(filename);
+ regional(cmdall,sep,tmp,tmp1,tmp2);
+ if(isstring(str),
+ if(str=="",
+ Parafirsthead=[
+ "\def\ketcbox{white}", // 17.02.26
+ "\newslide[0]{"+ParaTitle+"}", //16.12.10
+ "",
+ "\hypertarget{FIRST}{}",
+ "Commonhead"
+ ];
+ Parafirsttail=[
+ "Commontail"
+ ];
+ Parahead=[
+ "\sameslide[0]",
+ "Commonhead"
+ ];
+ Paratail=[
+ "Commontail"
+ ];
+ Paralasthead=[
+ "\sameslide[0]",
+ "",
+ "\hypertarget{LAST}{}",
+ "Commonhead"
+ ];
+ Paralasttail=[
+ "Commontail"
+ ];
+ Commonhead=[
+ "",
+ "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19
+ "\begin{layer}{130}{0}",
+ "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19
+ "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19
+ "\putnotec{60}{40}{" // 16.07.06
+ ];
+ Commontail=[
+ "",
+ "}",
+ "\end{layer}",
+ ""
+ ];
+ ,
+ if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt");
+ tmp=load(tmp1);
+ cmdall=tokenize(tmp,"...");
+ cmdall=apply(cmdall,Removespace(#));
+ sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para");
+ Parafirsthead=cmdall_(2..(sep_2-1));
+ Parafirsttail=cmdall_((sep_2+1)..(sep_3-1));
+ Parahead=cmdall_((sep_3+1)..(sep_4-1));
+ Paratail=cmdall_((sep_4+1)..(sep_5-1));
+ Paralasthead=cmdall_((sep_5+1)..(sep_6-1));
+ tmp1=cmdall_((sep_6+1)..length(cmdall));
+ sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common");
+ Paralasttail=tmp1_(1..sep_1-1);
+ Commonhead=tmp1_((sep_1+1)..(sep_2-1));
+ Commontail=tmp1_((sep_2+1)..length(tmp1));
+ );
+ );
+ if(islist(str),
+ Parafirsthead=str_1;
+ Parafirsttail=str_2;
+ Parahead=str_3;
+ Paratail=str_4;
+ Paralasthead=str_5;
+ Paralasttail=str_6;
+ Commonhead=str_7;
+ Commontail=str_8;
+ );
+ tmp1=apply(Parafirsthead,Dq+#+Dq);
+ tmp2=apply(Parafirsttail,Dq+#+Dq);
+ tmp=[tmp1,tmp2];
+ tmp1=apply(Parahead,Dq+#+Dq);
+ tmp2=apply(Paratail,Dq+#+Dq);
+ tmp=concat(tmp,[tmp1,tmp2]);
+ tmp1=apply(Paralasthead,Dq+#+Dq);
+ tmp2=apply(Paralasttail,Dq+#+Dq);
+ tmp=concat(tmp,[tmp1,tmp2]);
+ tmp1=apply(Commonhead,Dq+#+Dq);
+ tmp2=apply(Commontail,Dq+#+Dq);
+ tmp=concat(tmp,[tmp1,tmp2]);
+ tmp;
+);
+
+Writeparaamble(filename):=(
+ //regional(tmp,tmp1,tmp2);
+ SCEOUTPUT=openfile(filename);
+ println(SCEOUTPUT,"%Parafirsthead"+"...");
+ forall(Parafirsthead,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Parafirsttail"+"...");
+ forall(Parafirsttail,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Parahead"+"...");
+ forall(Parahead,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Paratail"+"...");
+ forall(Paratail,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Paralasthead"+"...");
+ forall(Paralasthead,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Paralasttail"+"...");
+ forall(Paralasttail,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Commonhead"+"...");
+ forall(Commonhead,
+ println(SCEOUTPUT,#+"...");
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"%Commontail"+"...");
+ forall(Commontail,
+ println(SCEOUTPUT,#+"...");
+ );
+ closefile(SCEOUTPUT);
+);
+
+Mvdispg():=(
+ regional(tmp,tmp1,tmp2,tmp3,num,s,i);
+ CLIST=COM2ndlist;
+ FIXGLIST=[];
+ forall(2..length(GLIST),
+ FIXGLIST=append(FIXGLIST,GLIST_#);
+ );
+ STPTlist=remove(allpoints(),[SW,NE,MF]);
+ STPlist=[];
+ STPnamelist=[];
+ STPvaluelist=[];
+ forall(STPTlist,
+ tmp=Lcrd(#);
+ tmp1=format(re(tmp_1),5);
+ tmp2=format(re(tmp_2),5);
+ tmp="["+tmp1+","+tmp2+"]";
+ STPlist=append(STPlist,#.name+"="+tmp+";");
+ STPnamelist=append(STPnamelist,#.name);
+ STPvaluelist=append(STPvaluelist,tmp);
+ );
+ tmp1=round(4*SW.y)/4-0.5;
+ tmp2=SW.x+1;
+ tmp3=NE.x-1;
+ if(length(Movierange)==2,
+ s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1);
+ Movieframe(s);
+ ,
+ num=length(Movierange);
+ tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1);
+ i=1;
+ while(Movierange_(i+1)<=tmp,
+ i=i+1;
+ );
+ s=Movierange_i;
+ Movieframe(s);
+ );
+ Windispg();
+ Defvar("s",s);
+ GOUTLIST=[];
+);
+
+Mkmovie():=Mkmovie(Movierange);
+Mkmovie(rng):=(
+ regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num,
+ l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist,
+ ALLPlist,MVPlist);
+ if(length(rng)==2,
+ x1=rng_1;
+ x2=rng_2;
+ PLIST=[x1];
+ forall(1..DVALL,k,
+ s=x1+k*(x2-x1)/DVALL;
+ PLIST=append(PLIST,s);
+ );
+ ,
+ PLIST=rng;
+ DVALL=length(rng)-1;
+ );
+ if(VERNUM==0,
+ SCEOUTPUT=openfile(Texmov+".sce");
+ ,
+ SCEOUTPUT=openfile(Texpara+".sce");
+ );
+ println(SCEOUTPUT,"cd('"+Dirwork+"');");
+ println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
+ println(SCEOUTPUT,"Ketinit();");
+ println(SCEOUTPUT,"pi=%pi;");
+ tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
+ "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
+ println(SCEOUTPUT,tmp);
+ //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');");
+ num1=length(COM1stlist);
+ forall(1..num1,l,
+ println(SCEOUTPUT,COM1stlist_l+";");
+ );
+ forall(1..length(STPlist),
+ print(SCEOUTPUT,STPlist_#);
+ println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");");
+ );
+ num2=length(CLIST);
+ num3=length(FIXGLIST);
+ num=0;
+ repeat(num3,
+ num=num+1;
+ tmp1=FIXGLIST_num;
+ num4=indexof(tmp1,"=");
+ if(num4>0,
+ tmp2=substring(tmp1,num4,length(tmp1));
+ tmp=substring(tmp1,0,num4-1);
+ println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
+ );
+ );
+ if(VERNUM==0,
+ println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');");
+ println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');");
+ ,
+ println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');");
+ );
+ println(SCEOUTPUT,"");
+ forall(0..DVALL,k,
+ s=PLIST_(k+1);
+ println(SCEOUTPUT,"s="+format(s,5)+";");
+ GLIST=[];
+ COM2ndlist=[];
+ GCLIST=FIXGCLIST;
+ Movieframe(s);
+ clrscr(); // 15.06.17
+ Plist=[];
+ Pnamelist=[];
+ Pvaluelist=[];
+ ALLPlist=remove(allpoints(),[SW,NE,MF]);
+ RMPlist=[];
+ forall(1..length(ALLPlist),
+ tmp=indexof(STPvaluelist_#,",");
+ tmp1=substring(STPvaluelist_#,1,tmp-1);
+ tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1);
+ if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1),
+ if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2),
+ RMPlist=append(RMPlist,ALLPlist_#);
+ );
+ );
+ );
+ MVPlist=remove(ALLPlist,RMPlist);
+ forall(MVPlist,
+ tmp=Lcrd(#);
+ tmp1=format(re(tmp_1),5);
+ tmp2=format(re(tmp_2),5);
+ tmp="["+tmp1+","+tmp2+"]";
+ Plist=append(Plist,#.name+"="+tmp+";");
+ Pnamelist=append(Pnamelist,#.name);
+ Pvaluelist=append(Pvaluelist,tmp);
+ );
+ forall(1..length(Plist),
+ print(SCEOUTPUT,Plist_#);
+ println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
+ );
+ num3=length(GLIST);
+ num=0;
+ GL=[];
+ forall(GCLIST,
+ GL=append(GL,#_1);
+ );
+ repeat(num3,
+ num=num+1;
+ tmp1=GLIST_num;
+ num4=indexof(tmp1,"=");
+ tmp2=substring(tmp1,num4,length(tmp1));
+ tmp=substring(tmp1,0,num4-1);
+ //if(indexof(tmp2,"=")>0,
+ if(substring(tmp2,0,5)=="Param",
+ num5=indexof(tmp2,"=");
+ tmp3=substring(tmp2,num5,length(tmp2)-2);
+ tmp3=parse(tmp3);
+ if(tmp3_1==tmp3_2,
+ tmp2="Pointdata([0,0])";
+ );
+ );
+ println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
+ );
+ forall(GOUTLIST,
+ tmp=#_1;
+ println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');");
+ println(SCEOUTPUT,"execstr(Tmpout);");
+ );
+ if(VERNUM==1,
+ if(k==0,
+ tmp1=apply(Parafirsthead,Removespace(#));
+ ,
+ if(k<DVALL,
+ tmp1=apply(Parahead,Removespace(#));
+ ,
+ tmp1=apply(Paralasthead,Removespace(#));
+ );
+ );
+ tmp1=apply(tmp1,if(length(#)==0,"newline",#));
+ tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
+ tmp2=apply(Commonhead,Removespace(#));
+ tmp2=apply(tmp2,if(length(#)==0,"newline",#));
+ tmp1_(tmp_1)=tmp2;
+ tmp1=flatten(tmp1);
+ forall(tmp1,
+ println(SCEOUTPUT,"Texcom('"+#+"');");
+ );
+ );
+ tmp=indexof(ULEN,"cm"); // 16.05.19from
+ if(tmp>0,
+ tmp1=Removespace(substring(ULEN,0,tmp-1));
+ tmp2=0.5/parse(tmp1)
+ ); // 16.05.19upto
+ tmp=indexof(ULEN,"mm");
+ if(tmp>0,
+ tmp1=Removespace(substring(ULEN,0,tmp-1));
+ tmp2=5/parse(tmp1);
+ );
+ tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+
+ "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19
+ println(SCEOUTPUT,tmp);// 16.05.19
+ println(SCEOUTPUT,"Beginpicture('"+ULEN+"');");
+ tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
+ "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
+ println(SCEOUTPUT,tmp);// 16.05.19
+ forall(1..num2,l,
+ println(SCEOUTPUT,CLIST_l+";");
+ );
+ forall(1..length(COM2ndlist),l,
+ println(SCEOUTPUT,COM2ndlist_l+";");
+ );
+ println(SCEOUTPUT,"Endpicture("+ADDAXES+");");
+ if(VERNUM==0,
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"Texcom('');");
+ if(k<DVALL,
+ println(SCEOUTPUT,"Texcom('\newframe');");
+ println(SCEOUTPUT,"");
+ ,
+ println(SCEOUTPUT,"Texcom('\end{animateinline}')");
+ println(SCEOUTPUT,"Closefile();");
+ println(SCEOUTPUT,"quit();");
+ closefile(SCEOUTPUT);
+ );
+ ,
+ if(k==0,
+ tmp1=apply(Parafirsttail,Removespace(#));
+ ,
+ if(k<DVALL,
+ tmp1=apply(Paratail,Removespace(#));
+ ,
+ tmp1=apply(Paralasttail,Removespace(#));
+ );
+ );
+ tmp1=apply(tmp1,if(length(#)==0,"newline",#));
+ tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
+ tmp2=apply(Commontail,Removespace(#));
+ tmp2=apply(tmp2,if(length(#)==0,"newline",#));
+ tmp1_(tmp_1)=tmp2;
+ tmp1=flatten(tmp1);
+ forall(tmp1,
+ println(SCEOUTPUT,"Texcom('"+#+"');");
+ );
+ if(k==DVALL,
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"Closefile();");
+ println(SCEOUTPUT,"quit();");
+ closefile(SCEOUTPUT);
+ );
+ );
+ Windispg(GL);
+ time=1000/CUT;
+ wait(time);
+ GLIST=[];
+ GCLIST=[];
+ COM2ndlist=[];
+ GOUTLIST=[];
+ );
+);
+
+Mkmovietexmain():=(
+ TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28
+ println(TEXOUTPUT,"");
+ println(TEXOUTPUT,"\documentclass{article}");
+ println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
+ println(TEXOUTPUT,"\usepackage{graphicx}");
+ println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}");
+ println(TEXOUTPUT,"\usepackage{color}");
+ println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}");
+ println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}");
+ println(TEXOUTPUT,"\begin{document}");
+ println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%");
+ println(TEXOUTPUT,"\end{document}");
+ closefile(TEXOUTPUT);
+);
+
+Mkmoviesh():=(
+ regional(parentorg,tmp);
+ parentorg=Texparent;//17.04.10
+ Texparent="";//17.04.10
+ tmp=Fhead;// 15.03.28
+ Fhead=Texmov;
+ if(length(Shellparent)>0,
+ Makeshell()
+ ,
+ Makebat();
+ );
+ Fhead=tmp;
+ Texparent=parentorg;//17.04.10
+);
+
+Texmovie():=(
+ VERNUM=0;
+ Mkmovie();
+ Mkmovietexmain();
+ Mkmoviesh();
+);
+
+Mkparatexmain():=(
+ TEXOUTPUT=openfile(Texpara+"main"+".tex");
+ println(TEXOUTPUT,"");
+ println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}");
+ println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
+ println(TEXOUTPUT,"\usepackage{graphicx}");
+ println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}");
+ println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}");
+ println(TEXOUTPUT,"\usepackage{color}");
+ println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
+ println(TEXOUTPUT,"\ketmarginE");
+ println(TEXOUTPUT,"\ketslideinit");
+ println(TEXOUTPUT,"\begin{document}");
+ println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%");
+ println(TEXOUTPUT,"\end{document}");
+ closefile(TEXOUTPUT);
+);
+
+Mkparash():=(
+ regional(tmp);
+ tmp=Fhead;
+ Fhead=Texpara;
+ if(length(Shellparent)>0,
+ Makeshell()
+ ,
+ Makebat();
+ );
+ Fhead=tmp;
+);
+
+Texpara():=(
+ VERNUM=1;
+ Mkmovie();
+ Mkparatexmain();
+ Mkparash();
+);
+
+Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added
+Setpara(pathorg,fstr,sL,options):=(
+//help:Setpara("folder name","funstr","range",options);
+//help:Setpara(folder,funstr,range,options);
+//help:Setpara(options=["m/r","Div=25"]);
+//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation);
+ regional(path);//17.04.10
+ if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10
+ ParaPath=path;
+ ParaFstr=fstr;
+ ParaSL=sL;
+ ParaOp=options;
+ GLISTback=GLIST;
+ GCLISTback=GCLIST;
+ GOUTLISTback=GOUTLIST;
+ POUTLISTback=POUTLIST;
+ VLISTback=VLIST;
+ FUNLISTback=FUNLIST;
+ LETTERlistback=LETTERlist;
+ COM0thlistback=COM0thlist;
+ COM1stlistback=COM1stlist;
+ COM2ndlistback=COM2ndlist;
+);
+
+Parafolder():=Parafolder(ParaPath,ParaFstr,ParaSL,ParaOp);
+Parafolder(path,fstr,sL):=Parafolder(path,fstr,sL,[]);
+Parafolder(path,fstr,sLorg,optionorg):=(
+//help:Parafolder(foldername,1..4);
+//help:Parafolder(foldername,"s=[0,1]");
+//help:Parafolder("mf(s)",foldername,"s=[0,1]");
+//help:Parafolder(options=["m/r","Div=25"]);
+//help:Paraslide(para=folder:layery:pos:input,scale);
+//help:Paraslide(para=folder:layery:pos:include:[width=100]);
+ regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,waiting,
+ mkr,mktex,ndiv,options,sfL);
+ if(!isstring(ParaPath),
+ println("Setpara not executed");
+ ,
+ sL=sLorg;//16.12.24from
+ if(!isstring(sL),
+ tmp=indexof(fstr,"(");
+ tmp1=substring(fstr,tmp,length(fstr));
+ tmp=indexof(tmp1,")");
+ tmp1=substring(tmp1,0,tmp-1);
+ ,
+ tmp=indexof(sL,"=");//16.12.21from
+ if(length(tmp)>0,
+ tmp1=substring(sL,0,tmp-1);
+ );
+ );
+ parse("Movieframe("+tmp1+"):="+fstr);
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ if(length(strL)==0,options=append(options,"m"));//16.12.18
+ mkr="A";
+ mktex="A";
+ ndiv=25;
+ waiting=20;
+ forall(eqL,
+ tmp=Indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="D",
+ ndiv=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ forall(strL,
+ tmp1=Toupper(substring(#,0,1));
+ if(tmp1=="M",
+ mkr="Y"; mktex="Y";
+ );
+ );
+ sL=sLorg;
+ if(isstring(sL),
+ tmp=indexof(sL,"=");
+ tmp1=parse(substring(sL,tmp,length(sL)));
+ sL=apply(0..ndiv,tmp1_1+#*(tmp1_2-tmp1_1)/ndiv);
+ );
+ if(!isexists(Dirwork,path),
+ if(ErrFlag!=-1,
+ makedir(Dirwork,path)
+ ,
+ println(" ==> Changework may not work properly");
+ sL=[];
+ );
+ ,
+ if(mkr=="Y",
+ cmdL=[
+ "setwd",[Dq+Dirwork+pathsep()+path+Dq],
+ "fL=as.matrix(list.files())",[],
+ "apply",["fL",2,"file.remove"],
+ "setwd",[Dq+Dirwork+Dq],
+ ];
+ CalcbyR("rvf",cmdL,["Cat=n","m"]);
+ tmp=Dirwork+pathsep()+path;
+ repeat(1..30,
+ if(length(fileslist(tmp))>0,wait(10));
+ );
+ );//17.02.20upto
+ );
+ sfL=[];
+ forall(1..(length(sL)),nn,
+ clrscr(); // 16.12.28
+ GLIST=GLISTback;
+ GCLIST=GCLISTback;
+ GOUTLIST=GOUTLISTback;
+ POUTLIST=POUTLISTback;
+ VLIST=VLISTback;
+ FUNLIST=FUNLISTback;
+ LETTERlist=LETTERlistback;
+ COM0thlist=COM0thlistback;
+ COM1stlist=COM1stlistback;
+ COM2ndlist=COM2ndlistback;
+ tmp1=Sprintf(nn/1000,3);
+ tmp=indexof(tmp1,".");
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ FnameR=path+"/p"+tmp1+".r";
+ sfL=append(sfL,FnameR);
+ Fnametex=replace(FnameR,".r",".tex");
+ Movieframe(sL_nn);
+ if(!isexists(Dirwork,FnameR) % mkr=="Y",
+ if(ErrFlag!=-1,
+ Viewtex();
+ );
+ );
+ );
+ tmp1=replace(Dirwork+pathsep()+path,"\","/"); //17.10.13
+ cmdL=[
+ "setwd",[Dq+tmp1+Dq],
+ "Mkallfile=function(fname){",[],
+ " Ctr<<- Ctr+1",[],
+ " cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[],
+ " tmp=readLines(fname)",[],
+ " first=1",[],
+ " if(Ctr>1){",[],
+ " first=7",[],
+ " cat('Ketinit()\n',file='all.r',append=TRUE)",[],
+ " }",[],
+ " for(J in first:(length(tmp)-1)){",[],
+ " cat(paste(tmp[J],'\n',sep=''),file='all.r',append=TRUE)",[],
+ " }",[],
+// " source(fname)",[],
+ "}",[],
+ "file.remove('all.r')",[],
+ "fL=list.files()",[],
+ "Ctr=0",[],
+ "t<-proc.time()",[],
+ "for(fname in fL){",[],
+ " Mkallfile(fname)",[],
+ "}",[],
+ "proc.time()-t",[],
+ "source('all.r')",[],
+ "proc.time()-t",[],
+ "setwd",[Dq+Dirwork+Dq]
+ ];
+ if(ErrFlag!=-1,
+ if(!isexists(Dirwork,Fnametex) % mktex=="Y",
+ CalcbyR("all",cmdL,["Cat=n","m","Wait="+text(waiting)]);
+ ,
+ println("Parafolder "+path+" finished");//16.12.20
+ );
+ if(length(after)>0, // 16.12.27
+ parse(after);
+ );
+ FnameR=Fhead+".r";
+ Fnametex=Fhead+".tex";
+ );
+ );
+);
+
+Flipbook():=( //17.04.09
+ regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2);
+ Dirworkorg=Dirwork;
+ Slidework(Dirwork);
+ figfolder=Dirwork;
+ parentorg=Texparent;
+ PageStyle="empty";
+ title=Texparent;
+ tmp=Divoptions(ParaOp);
+ tmp1=tmp_5;
+ forall(tmp1,
+ tmp2=substring(Toupper(#),0,1);
+ if(tmp2=="T",
+ tmp=indexof(#,"=");
+ title=substring(#,tmp,length(#));
+ ParaOp=remove(ParaOp,[#]);
+ );
+ );
+ x0="60"; y0="5"; sc="1";
+ tmp=select(ParaOp,islist(#));
+ if(length(tmp)>0,
+ x0=text(tmp_1_1);
+ y0=text(tmp_1_2);
+ ParaOp=remove(ParaOp,[tmp_1]);
+ );
+ tmp=select(ParaOp,!islist(#) & isreal(#));
+ if(length(tmp)>0,
+ sc=text(tmp_1);
+ ParaOp=remove(ParaOp,[tmp_1]);
+ );
+ Parafolder();
+ Changework(Dirworkorg);
+ if(isstring(Slidename),
+ Texparent=Slidename;
+ ,
+ Texparent=parentorg+"flip";
+ );
+ SCEOUTPUT = openfile(Texparent+".txt");
+ println(SCEOUTPUT,"%title//");
+ println(SCEOUTPUT,"\pagestyle{empty};//");
+ println(SCEOUTPUT,"new::"+title+"//");
+ println(SCEOUTPUT,
+ "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//");
+ closefile(SCEOUTPUT);
+ Changework(figfolder);
+ Setslidebody("black");
+ Setslidehyper("");
+ Mkslides();
+ Changework(Dirworkorg);
+ Texparent=parentorg;
+);
+
+Animatefile():=Animatefile(Dirwork,ParaPath);
+Animatefile(path,folder):=(
+//help:Animatefile();
+//help:Animatefile(Dirwork,ParaPath);
+ regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2);
+ tmp=divoptions(ParaOp);
+ eqL=tmp_5;
+ FRate="10";
+ Scale="1";
+ OpA="";
+ forall(eqL,
+ tmp1=Toupper(substring(#,0,2));
+ tmp=indexof(#,"=");
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="FR",
+ FRate=tmp2;
+ );
+ if(tmp1=="SC",
+ Scale=tmp2;
+ );
+ if(tmp1=="OP",
+ if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]");
+ OpA=tmp2;
+ );
+ );
+ pa=replace(path,"\","/");
+ fname="anim"+folder+".tex";
+ tmp=Dirwork+"/"+folder;
+ path=replace(tmp,"\","/");
+ if(iswindows(),tmp=replace(tmp,"/","\"));
+ tmp1=fileslist(tmp);
+ tmp1=tokenize(tmp1,",");
+ tmp1=select(tmp1,indexof(#,".tex")>0);
+ SCEOUTPUT= openfile(fname);
+ println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22
+ println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%");
+ forall(1..(length(tmp1)),
+ if(Scale==1, // 17.08.30from
+ tmp="\input{\parapath/";
+ tmp=tmp+folder+"/"+tmp1_#+"}%";
+ ,
+ tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines)
+ tmp=tmp+folder+"/"+tmp1_#+"}}%";
+ ); // 17.08.30upto
+ println(SCEOUTPUT,tmp);
+// println(SCEOUTPUT,""); //17.06.25
+ if(#<length(tmp1),
+ println(SCEOUTPUT,"\newframe%");
+ );
+ );
+ println(SCEOUTPUT,"\end{animateinline}%");
+ closefile(SCEOUTPUT);
+ println(fname+" has been generated");
+);
+
+Mkanimation():=( // 17.10.08
+ if(!isexists(Dirwork,ParaPath),
+ Parafolder();
+ );
+ if(!isexists(Dirwork,"anim"+ParaPath+".tex"),
+ Animatefile();
+ );
+ Mkanimation("fig",ParaPath);
+);
+Mkanimation(folder):=Mkanimation("fig",folder);
+Mkanimation(path,folder):=(
+//help:Mkanimation();
+//help:Mkanimation(path,folder);
+ regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent,
+ tmp,tmp1,tmp2,tmp3,flg);
+ Fheadbkup=Fhead;
+ Dirworkbkup=Dirwork;
+ Pathpdfbkup=Pathpdf;
+ Fhead="animate"+folder;
+ Pathpdf=PathAd;
+ Dirwork=replace(Dirwork,"\",pathsep());
+ Dirwork=replace(Dirwork,"/",pathsep());
+ Dirwork=replace(Dirwork,pathsep()+"fig","");
+ Setdirectory(Dirwork);
+ tmp1=replace(PathT,pathsep(),"/");
+ tmp=indexall(tmp1,pathsep());
+ tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
+ if((tex=="platex")%(tex=="uplatex"),
+ if(tex=="platex",article="jarticle",article="ujarticle");
+ ,
+ article="article";
+ );
+ SCEOUTPUT=openfile(Fhead+".tex");
+ println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
+ println(SCEOUTPUT,tmp);
+ );
+ if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
+ if((tex=="pdflatex")%(tex=="xelatex"),
+ println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
+ ,
+ println(SCEOUTPUT,"\usepackage{pict2e}");
+ println(SCEOUTPUT,"\usepackage{luatexja}");
+ );
+ tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{bm,enumerate}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{animate}");
+ ,
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ println(SCEOUTPUT,"\usepackage{animate}");
+ );
+ println(SCEOUTPUT,"\usepackage{xcolor}");
+ forall(ADDPACK, tmp1,
+ tmp=indexof(tmp1,"{animate}")+indexof(tmp1,"{hyperref}");
+ if(tmp==0,
+ println(SCEOUTPUT,"\usepackage"+tmp1);
+ );
+ );
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{center}");
+ println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}");
+ println(SCEOUTPUT,"\end{center}");
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+ if(iswindows(),
+ parent=replace(Dirwork+Batparent,pathsep()+"fig","");
+ Makebat(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Dirlib,Fnametex))
+ );
+ ,
+ parent=replace(Dirwork+Shellparent,pathsep()+"fig","");
+ Makeshell(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
+ );
+ );
+ kc();
+ Dirwork=Dirworkbkup;
+ Dirwork=Dirwork+pathsep()+"fig";
+ setdirectory(Dirwork);
+ Fhead=Fheadbkup;
+ Pathpdf= Pathpdfbkup;
+);
+
+//help:end();
+
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs
index baf06a73..ccfd7693 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindyout(2017.06.23) loaded");
+println("ketcindyout(2017.09.10) loaded");
//help:start();
@@ -4597,7 +4597,7 @@ Mkketcindyjs(Arg):=(
);
);
Mkketcindyjs(libname,options):=(
-//help:Mkketcindyjs("ketcindylib");
+//help:Mkketcindyjs();
//help:Mkketcindyjs(options="Tex=y","Net=y"]);
regional(texflg,netflg,tmp,tmp1,tmp2);
texflg="Y";
@@ -4614,90 +4614,69 @@ Mkketcindyjs(libname,options):=(
);
);
SCEOUTPUT = openfile(Fhead+".sce");
- println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS);");
+ println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');");
println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');");
println(SCEOUTPUT,"cd('"+Dirwork+"');");
println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');");
println(SCEOUTPUT,"Qt=char(34);");
- println(SCEOUTPUT,"Fb=0;Lb=0;Ka=0;");
+ // 17.09.10from
println(SCEOUTPUT,
- "for I=1:size(Dtjs,1)");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['<script id=','csinit']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then Fb=I,end;");
- println(SCEOUTPUT,
- " if Fb>0 then");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),'</script>');");
- println(SCEOUTPUT,
- " if Tmp>0 then Lb=I,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),'scripts: '+Qt+'cs*'+Qt+',');");
- println(SCEOUTPUT,
- " if Tmp>0 then Ka=I;break,end;");
- println(SCEOUTPUT,
- " end;");
- println(SCEOUTPUT,
- "end;");
- if(netflg=="N", //16.11.08from
- println(SCEOUTPUT,
- "for I=1:Fb");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['href=','CindyJS.css']);");
+ "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];");
+ println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];");
+ println(SCEOUTPUT,"Dthead=[];");
+ println(SCEOUTPUT,"for I=1:size(Dtjs,1)");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then");
+ println(SCEOUTPUT," Tmp=Dtjs(I,:);");
+ if(netflg=="N",
println(SCEOUTPUT,
- " if length(Tmp)>1 then");
+ " if length(strindex(Tmp,'link rel='))>0 then");
println(SCEOUTPUT,
- " Tmp=part(Dtjs(I,:),1:(Tmp(1)+4))+Qt+'CindyJS.css'+Qt+'>';");
- println(SCEOUTPUT,
- " Dtjs(I,:)=Tmp;");
+ " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';");
println(SCEOUTPUT,
" end;");
println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['src=','Cindy.js']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then");
+ " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then");
println(SCEOUTPUT,
- " Tmp=part(Dtjs(I,:),1:(Tmp(1)+3))+Qt+'Cindy.js'+Qt+'></script>';");
+ " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';");
println(SCEOUTPUT,
- " Dtjs(I,:)=Tmp;");
+ " Tmp=Tmp+'</script>';");
println(SCEOUTPUT,
" end;");
- println(SCEOUTPUT,
- "end;");
- );//16.11.08upto
- println(SCEOUTPUT,
- "Dtket=[Dtjs(1:Fb,:);Dtket;Dtjs(Lb:Ka,:)];");
+ );
+ println(SCEOUTPUT," Dthead=[Dthead;Tmp];");
+ println(SCEOUTPUT," else");
+ println(SCEOUTPUT," Is=I;break");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"Dt=[];");
+ println(SCEOUTPUT,"for I=Is:size(Dtjs,1)");
+ println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then");
+ println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;");
+ println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;");
+ println(SCEOUTPUT," Dt=[];");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then");
+ println(SCEOUTPUT," Ie=I+1;break;");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];");
+ println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
if(texflg=="Y",
- println(SCEOUTPUT,
- "Dtket=[Dtket;' use: ['+Qt+'katex'+Qt+'],'];");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then");
+ println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];");
+ println(SCEOUTPUT," end;");
);
- println(SCEOUTPUT, //16.11.08from
- "for I=Ka+1:size(Dtjs,1)");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Figure']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Exekc']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Parent']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'KeTJS']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Dtket=[Dtket;Dtjs(I,:)];");
- println(SCEOUTPUT,
- "end"); //16.11.08upto
-// println(SCEOUTPUT,
-// "Dtket=[Dtket;Dtjs((Ka+1):(size(Dtjs,1)),:)];");
- println(SCEOUTPUT,
- "mputl(Dtket,'"+Fhead+"ketcindy.html');");
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');");
+ // 17.09.10upto
println(SCEOUTPUT,"quit()");
closefile(SCEOUTPUT);
kcS(PathS,Fhead+".sce",["m"]);
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt
index 1e4a426e..ad36aeed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt
@@ -1,4 +1,6 @@
-//// s:2017.08.26
+// s:2017.09.10
+// MkketcindyJS changed substantially
+// s:2017.08.26
//// MkketcindyJS ( data/js => CindyJS )
// s:2017.07.02
// MkketcindyJS ( Texview => Figure )
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt
new file mode 100644
index 00000000..7a908aa0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt
@@ -0,0 +1,17 @@
+// 2017.10.12
+// kcR debugged ( for Mac, => 2> )
+// 2017.10.07
+// CalcbyR debugged ( => WritetoRS )
+// ReadCdata changed ( execstr removed )
+// 2017.10.02
+// Imlicitplot changed (for R)
+// 2017.09.29
+// WritetoS debugged (LibnameS)
+// Dotfilldata changed
+// 2017.09.24
+// Circledata, WritetoR, PrecommandR debugged
+// 2017.09.23
+// Hatchdata debugged
+// 2017.09.18
+// Hatchdata changed (for R)
+// SCIWR,SCIRE removed
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs
new file mode 100644
index 00000000..6d077fa9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs
@@ -0,0 +1,5230 @@
+// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+//
+//This program is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 3 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program. If not, see <http://www.gnu.org/licenses/>
+//
+
+println("ketcindyout(2017.10.12) loaded");
+
+//help:start();
+
+WritetoS(fname,cmdL):=(
+// help:WritetoS("outdata",cmdL);
+ regional(tmp,tmp1,tmp2,filename);
+ if(indexof(fname,".")==0,
+ filename=fname+".sce";
+ ,
+ filename=fname;
+ );
+ SCEOUTPUT = openfile(filename);
+ tmp="cd('"+Dirwork+"');//";
+ println(SCEOUTPUT,tmp);
+// tmp1=replace(Dirlib,"\","/");
+ tmp="Ketlib=lib("+Dq+LibnameS+Dq+");//"; //17.09.29
+ println(SCEOUTPUT,tmp);
+ tmp="Ketinit();//";
+ println(SCEOUTPUT,tmp);
+ tmp="Setwindow([XMIN,XMAX],[YMIN,YMAX]);"; // 16.06.26from
+ tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
+ println(SCEOUTPUT,tmp); // 16.06.26upto
+ if(iswindows(), // 17.01.11from
+ println(SCEOUTPUT,"setlanguage('en')");
+ ); // 17.01.11upto
+ tmp="pi=%pi;////";
+ println(SCEOUTPUT,tmp);
+ forall(cmdL,
+ println(SCEOUTPUT,#+"//");
+ );
+ closefile(SCEOUTPUT);
+);
+
+kcS(path,fname):=kcS(path,fname,[]);
+kcS(path,fname,optionorg):=(
+//help:kcS(PathS,"boxdata");
+//help:kcS(options=["r/m"]);
+ regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".sce";
+ ,
+ filename=fname;
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ );
+ flg=0;
+ forall(strL,
+ if(Toupper(substring(#,0,1))=="R",
+ flg=0;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="M",
+ flg=1;
+ );
+ );
+ if(flg==0,
+ tmp2=replace(filename,".sce",".txt");
+ tmp1=load(tmp2);
+ if(length(tmp1)==0,
+ flg=1;
+ );
+ );
+ if(flg==1,
+ tmp1=""; // 15.10.08 from
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ flg=0;
+ forall(reverse(1..length(tmp2)),
+ if(flg==0,
+ tmp=substring(tmp2,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(tmp2,0,#-1);
+ tmp2=substring(tmp2,#,length(tmp2));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ ); // 15.10.08 to
+ if(iswindows(),
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+path+Dq+" -nb -nwni -f "+filename;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29, 0605
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+path+Dq+" -nwni -f "+filename;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29
+ );
+ wait(WaitUnit);
+ setdirectory(Dirwork);
+ );
+);
+
+SetpathS():=(
+ regional(tmp,tmp1);
+ if(!isstring(PathS), // 15.12.11
+ Setdirectory(Dirbin); // 15.12.07
+ tmp=load(Shellfile);
+ if(iswindows(),
+ tmp=tokenize(tmp," -nb");
+ PathS=tmp_1;
+ ,
+ tmp=tokenize(tmp," -nwni");
+ tmp=tokenize(tmp_1,"/Applications/sci");
+ PathS="/Applications/sci"+tmp_2;
+ );
+ setdirectory(Dirwork);
+ );
+ PathS;
+);
+
+ErrhandleS(fname):=( // 2016.02.28
+ regional(str); //17.04.14
+ if(indexof(PathS,"-6.")==0,
+ str=["if iserror(-1) then"," error=lasterror()+'????';"];
+ str=append(str," errclear(-1);"); // 16.03.14
+ str=append(str," Fd=mopen("+Dq+wfile+Dq+",'wt');");
+ str=append(str," mfprintf(Fd,'%s','Error: '+error);");
+ str=append(str," mclose(Fd);");
+ str=append(str," quit();");
+ str=append(str,"end;");
+ str;
+ ,
+ str=[]; //17.04.14
+ );
+);
+
+Testfunstr(funstr,varx,vary):=(
+ regional(var,val,fun,tmp,tmp1,tmp2);
+ fun=replace(funstr,".x","(1)"); // 16.05.19
+ fun=replace(fun,".y","(2)"); // 16.05.19
+ tmp=indexof(varx,"=");
+ var=substring(varx,0,tmp-1);
+ val=substring(varx,tmp+1,length(varx));
+ tmp=indexof(val,",");
+ val=substring(val,0,tmp-1);
+ tmp1=replace(fun,var,"("+val+")");
+ tmp=indexof(vary,"=");
+ var=substring(vary,0,tmp-1);
+ val=substring(vary,tmp+1,length(vary));
+ tmp=indexof(val,",");
+ val=substring(val,0,tmp-1);
+ tmp1=replace(tmp1,var,"("+val+")");
+ tmp1;
+);
+
+CalcbyS(name,cmd):=CalcbyS(name,SetpathS(),cmd,[]);
+CalcbyS(name,Arg1,Arg2):=(
+ if(isstring(Arg1),
+ CalcbyS(name,Arg1,Arg2,[]);
+ ,
+ CalcbyS(name,SetpathS(),Arg1,Arg2);
+ );
+);
+CalcbyS(name,path,cmd,optionorg):=(
+//help:CalcbyS("a",cmd);
+//help:CalcbyS(options= ["m/r","Wait=10","Cat=middle"]]);
+//help:CalcbyS(options1= ["Ncol=2","File=result","Dig=5"]]);
+ regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
+ ncoL,cat,dig,flg,wflg,file,nc,arg,cmdS,cmdlist,wfile,ext,
+ waiting, errcheck);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ realL=tmp_6;
+ strL=tmp_7;
+ cat="M";//16.11.24
+ ncoL=2;
+ ext=".txt";
+ waiting=10;
+ dig=5;
+ wfile="";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,2));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="CA",
+ cat=Toupper(substring(tmp2,0,1));// 16.11.24
+ options=remove(options,[#]);
+ );
+ if(tmp1=="NC",
+ ncoL=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="EX",
+ if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="WA",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="DI",
+ dig=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="FI", // 16.06.26from
+ wfile=tmp2;
+ options=remove(options,[#]);
+ ); // 16.06.26upto
+ );
+ if(wfile=="",
+ if(cat=="Y",
+ wfile=Fhead+name;
+ ,
+ wfile="resultS";
+ );
+ );
+ if(indexof(wfile,".")==0,// 16.06.26from
+ wfile=wfile+ext;
+ ); // 16.06.26upto
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ if(CONTINUED==0,
+ if((wflg==0) & (cat=="Y"), // 16.11.24
+ tmp=load(wfile);
+ if(length(tmp)==0,wflg=1);
+ );
+ );
+ file=Fhead+name;
+ cmdS=cmd;
+ cmdlist=[];
+ forall(1..floor(length(cmdS)/2),nc, //17.05.18
+ tmp1=cmdS_(2*nc-1);
+ tmp1=replace(tmp1,LFmark,""); // 16.06.12
+ tmp1=replace(tmp1,CRmark,""); // 16.12.13
+ if(nc==length(cmdR)/2, //16.10.23from
+ if(indexof(tmp1,"=")==0,tmp1="="+tmp1);
+ ); //16.10.23from
+ if(substring(tmp1,0,1)=="=",
+// tmp1=name+tmp1; // 16.12.20
+ );
+ tmp2=cmdS_(2*nc); // list of argments
+ tmp3="";
+ tmp4="";
+ errcheck=0;
+ forall(tmp2,arg,
+ if(isstring(arg),
+ if(Toupper(arg)=="ERROR",
+ errcheck=1;
+ ,
+ tmp3=tmp3+replace(arg,"'",Dq)+",";
+ );
+ ,
+ if(!islist(arg),
+ tmp3=tmp3+textformat(arg,dig)+",";
+ ,
+ tmp=select(arg,isstring(#) % islist(#));
+ if(length(tmp)>0,
+ tmp3=tmp3+"list(";
+ tmp4=")";
+ ,
+ tmp3=tmp3+"[";
+ tmp4="]";
+ );
+ forall(arg,
+ if(isstring(#),
+ tmp3=tmp3+replace(#,"'",Dq)+",";
+ ,
+ if(!islist(#), // 15.11.01 from
+ tmp3=tmp3+textformat(#,dig)+",";
+ ,
+ tmp=textformat(#,dig);
+ tmp=replace(tmp,"],[","];[");
+ tmp3=tmp3+tmp+",";
+ ); // 15.11.01 upto
+ );
+ );
+ tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
+ );
+ );
+ );
+ if(length(tmp3)>0,
+ tmp3=substring(tmp3,0,length(tmp3)-1);
+ tmp1=tmp1+"("+tmp3+");";
+ );
+ if(errcheck==1,
+ if(indexof(Dirlib,"sciL5")>0, // 17.03.20
+ cmdlist=append(cmdlist,"errcatch(-1,'continue','nomessage');");
+ ); // 17.03.20
+ );
+ cmdlist=append(cmdlist,tmp1);
+ if(errcheck==1,
+ tmp=ErrhandleS(wfile);
+ cmdlist=concat(cmdlist,tmp);
+ );
+ );
+ if(CONTINUED==1,
+ ComOutList=concat(ComOutList,cmdlist);
+ ,
+ if(cat=="Y",
+ tmp=[];
+ tmp=append(tmp,"Fd=mopen("+Dq+file+".txt"+Dq+",'wt');");
+ // 16.03.11 from
+ tmp=append(tmp,"mfprintf(Fd,'%s',"+name+");");
+ tmp=append(tmp,"mclose(Fd);");
+ cmdlist=concat(cmdlist,tmp);
+// tmp="fprintfMat("+Dq+file+".txt"+Dq+","+name+")";
+// cmdlist=append(cmdlist,tmp); // 16.03.11 upto
+ ,
+// tmp="mputl(['????'],"+Dq+file+".txt"+Dq+");"; // 16.06.2 from
+// cmdlist=concat(cmdlist,[tmp]); // 16.06.2 upto
+ );
+ if(cat!="Y", // 16.12.18
+ cmdlist=append(cmdlist,"mputl('||||','"+wfile+"')");
+ );
+ cmdlist=append(cmdlist,"quit()");
+ if(wflg==0,
+ tmp1=load(file+".sce");
+ if(length(tmp1)==0,
+ wflg=1;
+ ,
+ tmp1=tokenize(tmp1,"////");
+ tmp1=tokenize(tmp1_2,"//");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ if(length(tmp1)!=length(cmdlist),
+ wflg=1;
+ ,
+ tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
+ if(length(tmp)>0, wflg=1);
+ );
+ );
+ );
+ if(wflg==0,wflg=-1); // 15.10.16
+ if(wflg==1,
+ if(length(wfile)>0, // 15.10.05
+ SCEOUTPUT=openfile(wfile);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ );
+ WritetoS(file+".sce",cmdlist);
+ kcS(path,file,concat(options,["m"])); // 15.09.25
+ );
+ flg=0;
+ tmp1=floor(waiting*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp=load(wfile);
+ if(length(tmp)>=4,
+ tmp2=substring(tmp,length(tmp)-4,length(tmp));
+ if(tmp2=="////" % tmp2=="||||" % tmp2=="????", // 16.08.09
+ if(indexof(Toupper(tmp),"ERROR")>0,
+ println(tmp);
+ flg=2;
+ ,
+ flg=1;
+ );
+ );
+ tmp2=#*WaitUnit/1000;
+ ,
+ if(wflg==-1,
+ flg=-1;
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ );
+ if(flg<=0,
+ ErrFlag=1;
+ if(flg==-1,
+ println(wfile+" does not exist");
+ ,
+ tmp="("+text(waiting)+" s )";
+ println(wfile+" not generated "+tmp);
+ );
+ ,
+ if(flg==1,
+ println(" CalcbyS succeeded "+name+"("+text(tmp2)+" sec)"); //16.06.03
+ ,
+ ErrFlag=1;
+ );
+ );
+ );
+ if(wflg>-1,
+// wait(WaitUnit);
+ );
+);
+
+Scifun(name,fun,argL):=Scifun(name,fun,argL,[]);//16.10.22
+Scifun(name,fun,argL,optionorg):=(
+//help:Scifun("1","date()",[]);
+//help:Scifun(options=["Disp=y"]);
+ regional(nm,options,eqL,disp,cmdL,fname,
+ tmp,tmp1,tmp2);
+ nm="sc"+name;
+ fname=Fhead+nm+".txt";
+ options=optionorg;
+ tmp=divoptions(options);
+ precise=6;
+ disp=1;
+ pack=[];
+ set=[];
+ add="";
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if((tmp1=="DIS") % (tmp1=="DSP") ,
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=[];
+ cmdL=concat(cmdL,[
+ nm+"="+fun,argL,
+ "Fd=mopen",[Dq+fname+Dq,Dq+"wt"+Dq],
+ "Sla=char(47)+char(47);",[],
+ "mputl",["string("+nm+")+Sla","Fd"],
+ "mputl",["Sla","Fd"],
+ "mclose",["Fd"]
+ ]);
+ options=append(options,"Wait=2");
+ CalcbyS(nm,cmdL,options);
+ if(ErrFlag==0,
+ tmp=load(fname);
+ tmp=replace(tmp,"////","");
+ tmp=tokenize(tmp,"//");
+ tmp=apply(tmp,if(!isstring(#),textformat(#,6),Dq+#+Dq));
+ if(length(tmp)==1,
+ tmp=tmp_1;
+ );
+ tmp=nm+"="+text(tmp);
+ parse(tmp);
+ if(disp==1, // 15.11.24
+ println(nm+" is : ");
+ println(parse(nm));
+ );
+ );
+ parse(nm);
+);
+
+WritetoR(fname,cmdL):=WritetoR(fname,cmdL,[]);
+WritetoR(fname,cmdL,options):=(
+// help:WritetoR("outdata",cmdL);
+ regional(eqL,tmp,tmp1,tmp2,filename,waiting);
+ if(indexof(fname,".")==0,
+ filename=fname+".r";
+ ,
+ filename=fname;
+ );
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ waiting=5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ if(Toupper(substring(tmp1,0,1))=="W",
+ waiting=parse(tmp2);
+ );
+ );
+ SCEOUTPUT = openfile(filename);
+ tmp1=replace(Dirwork,"\","/");
+ tmp="setwd("+Dq+tmp1+Dq+")##";
+ println(SCEOUTPUT,tmp);
+ tmp1=replace(Libname,"\","/"); // 17.09.24from
+// tmp="load('"+tmp1+".Rdata')"; # 17.10.12
+ tmp="source('"+tmp1+".r')##"; // 17.09.24temporarily
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"Ketinit()##"); // 16.07.07
+ tmp="Setwindow(c(XMIN,XMAX),c(YMIN,YMAX))####"; // 16.06.26from
+ tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
+ println(SCEOUTPUT,tmp);
+ forall(cmdL,
+ println(SCEOUTPUT,#+"##");
+ );
+ closefile(SCEOUTPUT);
+// flg=0;
+// tmp1=floor(waiting*1000/WaitUnit);
+// repeat(tmp1,
+// if(flg==0,
+// tmp=load(filename);
+// if(length(tmp)>0,
+// flg=1;
+// ,
+// wait(WaitUnit);
+// );
+// );
+// );
+);
+
+kcR(path,fname):=kcR(path,fname,[]);
+kcR(path,fname,optionorg):=(
+//help:kcR(PathR,"boxdata");
+//help:kcR(options=["m/r","Wait=10"]);
+ regional(options,tmp,tmp1,tmp2,eqL,strL,filename,ferr,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".r";
+ ,
+ filename=fname;
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ );
+ flg=0;
+ forall(strL,
+ if(Toupper(substring(#,0,1))=="R",
+ flg=0;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="M",
+ flg=1;
+ options=remove(options,[#]);
+ );
+ );
+ if(flg==0,
+ tmp2=replace(filename,".r",".txt");
+ tmp1=load(tmp2);
+ if(length(tmp1)==0,
+ flg=1;
+ );
+ );
+ if(flg==1,
+ tmp1=""; // 15.10.08 from
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ flg=0;
+ forall(reverse(1..length(tmp2)),
+ if(flg==0,
+ tmp=substring(tmp2,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(tmp2,0,#-1);
+ tmp2=substring(tmp2,#,length(tmp2));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ ); // 15.10.08 to
+ ferr="errormessageR.txt";//16.10.22from
+ SCEOUTPUT=openfile(ferr);
+ closefile(SCEOUTPUT);//16.10.22uptp
+ if(iswindows(),
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+path+"\R"+Dq+" --vanilla --slave < "+filename+" 2> "+ferr;
+ //16.10.22
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ if(PathR=="",tmp="R",tmp=PathR);//16.10.20
+ tmp=tmp+" --vanilla --slave < "+filename+" 2> "+ferr;//17.10.12
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
+ );
+ wait(WaitUnit);
+ setdirectory(Dirwork);
+ );
+);
+
+Dataframe(nmL,dL):=Dataframe(nmL,dL,[]);
+Dataframe(nmL,dL,options):=(
+//help:Dataframe(["name","no1","no2"],dtL);
+//help:Dataframe(options=["Dig=5"]);
+ regional(dig,tmp,tmp1,tmp2,out);
+ dig=5;
+ tmp=Divoptions(options);
+ tmp=tmp_5;
+ forall(tmp,
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=indexof(#,"=");
+ tmp2=substring(#,tmp2,length(#));
+ if(tmp1=="D",
+ dig=parse(tmp2);
+ );
+ );
+ out="data.frame(";
+ forall(1..(length(nmL)),
+ tmp1=nmL_#;
+ tmp2=column(dL,#);
+ tmp2=apply(tmp2,if(isstring(#),Dq+#+Dq,format(#,dig)));
+ tmp=tmp1+"="+tmp2+",";
+ out=out+tmp;
+ );
+ out=substring(out,0,length(out)-1)+")";
+ out=replace(out,"[","c(");
+ out=replace(out,"]",")");
+);
+
+CalcbyR(name,cmd):=CalcbyR(name,PathR,cmd,[]);
+CalcbyR(name,Arg1,Arg2):=(
+ if(isstring(Arg1),
+ CalcbyR(name,Arg1,Arg2,[]);
+ ,
+ CalcbyR(name,PathR,Arg1,Arg2);
+ );
+);
+CalcbyR(name,path,cmd,optionorg):=(
+//help:CalcbyR("Pr",cmd);
+//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]);
+ regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL,
+ cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ realL=tmp_6;
+ strL=tmp_7;
+ dig=5;
+ cat="Y";
+ wfile="";
+ ext=".txt";
+ waiting=2;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="C",
+ cat=Toupper(substring(tmp2,0,1));
+ options=remove(options,[#]);
+ );
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="E",
+ if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="D",
+ dig=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="F",
+ wfile=tmp2;
+ options=remove(options,[#]);
+ );
+ );
+ if(wfile=="",
+ if(cat=="Y",
+ wfile=Fhead+name+ext;
+ ,
+ wfile="resultR"+ext;
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ if(CONTINUED==0,
+ if((wflg==0) & (cat!="N"), // 16.11.13
+ tmp=load(wfile);
+ if(length(tmp)==0,wflg=1);
+ );
+ );
+ file=Fhead+name;
+// cmdR=flatten(cmd);
+ cmdR=cmd;
+ cmdlist=[];
+ if(dig>5, //16.10.28from
+ cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");");
+ ); //16.10.28upto
+ forall(1..floor(length(cmdR)/2),nc, //17.05.18
+ tmp1=cmdR_(2*nc-1);
+ tmp1=replace(tmp1,LFmark,""); // 16.06.12
+ if(nc==length(cmdR)/2, //16.10.23from
+// if(indexof(tmp1,"=")==0,tmp1="="+tmp1);//16.12.20
+ ); //16.10.23uptp
+ if(substring(tmp1,0,1)=="=",
+ tmp1=name+tmp1;
+ );
+ tmp2=cmdR_(2*nc); // list of argments
+ tmp3="";
+ forall(tmp2,arg,
+ if(isstring(arg),
+ tmp3=tmp3+replace(arg,"'",Dq)+",";
+ ,
+ if(length(arg)==1,
+ tmp3=tmp3+textformat(arg,dig)+",";
+ ,
+ tmp3=tmp3+"c(";
+ forall(arg,
+ tmp3=tmp3+textformat(#,dig)+",";
+ );
+ tmp3=substring(tmp3,0,length(tmp3)-1)+")"+",";
+ );
+ );
+ );
+ if(length(tmp3)>0,
+ tmp3=substring(tmp3,0,length(tmp3)-1);
+ tmp1=tmp1+"("+tmp3+")";
+ );
+ cmdlist=append(cmdlist,tmp1);
+ );
+ if(CONTINUED==1,
+ ComOutList=concat(ComOutList,cmdlist);
+ ,
+ if(cat=="Y", //16.10.23from
+ tmp="sharp=rawToChar(as.raw(35))";
+ cmdlist=append(cmdlist,tmp);
+ tmp="sharps=paste(sharp,sharp,'\n',sep='')";
+ cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist,"if(is.matrix("+name+")){");
+ cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")");
+ cmdlist=append(cmdlist,"}");
+ cmdlist=append(cmdlist,"if(is.list("+name+")){");
+ tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist," for(ii in 1:length("+name+")){");
+ tmp=" cat("+name+"[[ii]],file='"+wfile+"',";
+ tmp=tmp+"sep=',',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist," }");
+ cmdlist=append(cmdlist,"}else{");
+ tmp=" cat("+name+",file='"+wfile+"',sep=',')";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist,"}");
+ tmp="cat('////',file='"+wfile+"',sep=',',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ ); //16.10.23upto
+ if(cat!="Y", // 16.12.18
+ cmdlist=append(cmdlist,"cat('////',file='"+wfile+"',sep='')");
+ );
+ cmdlist=append(cmdlist,"quit()");
+ if(wflg==0,
+ tmp1=load(file+".r");
+ if(length(tmp1)==0,
+ wflg=1;
+ ,
+ tmp1=tokenize(tmp1,"####"); // 15.09.25 from
+ tmp1=tokenize(tmp1_2,"##");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ if(length(tmp1)!=length(cmdlist),
+ wflg=1;
+ ,
+ tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
+ if(length(tmp)>0, wflg=1);
+ );
+ ); // 15.09.25 to
+ );
+ if(wflg==0,wflg=-1); // 15.10.16
+ if(wflg==1,
+ if(length(wfile)>0, // 15.10.05
+ SCEOUTPUT=openfile(wfile);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ );
+ WritetoR(file+".r",cmdlist); //17.10.08
+ kcR(PathR,file,concat(options,["m"])); // 15.09.25
+ );
+ flg=0;
+ tmp1=floor(waiting*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp=load(wfile);
+ if(length(tmp)>=4,
+ tmp2=substring(tmp,length(tmp)-4,length(tmp));
+ if(tmp2=="////",
+ tmp=substring(tmp,0,length(tmp)-4);
+ flg=1;
+ tmp2=#*WaitUnit/1000;
+ );
+ ,
+ if(wflg==-1,
+ flg=-1;
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ );
+ if(flg<=0,
+ ErrFlag=1;
+ if(flg==-1,
+ println(wfile+" does not exist");
+ ,
+ tmp="("+text(waiting)+" s )";
+ println(wfile+" not generated "+tmp);
+ tmp=load("errormessageR.txt");//16.10.22
+ if(length(tmp)>1,println(tmp));//16.10.22
+ );
+ ,
+ println(" CalcbyR succeeded "+name+" ("+text(tmp2)+" sec)");
+ if(cat=="Y", // 16.10.29,11.25
+ tmp1=tokenize(tmp,"##"); //16.10.23from
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ tmp2=[];
+ forall(tmp1,tmp3,
+ if(!isstring(tmp3),tmp3=format(tmp3,dig));
+ tmp=tokenize(tmp3,",");
+ tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig)));
+ tmp2=append(tmp2,tmp);
+ );
+ if(length(tmp2)==1,
+ tmp2=tmp2_1;
+ if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24
+ ,
+ tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))];
+ );
+ tmp=name+"="+text(tmp2); //16.10.23upto
+ parse(tmp);
+ );
+ );
+ );
+);
+
+Rfun(name,fun,argL):=Rfun(name,fun,argL,[]);//16.10.22
+Rfun(name,fun,argL,optionorg):=(
+//help:Rfun("1","rnorm",[10]);
+//help:Rfun(options=["Disp=y"]);
+ regional(nm,options,eqL,disp,cmdL,
+ tmp,tmp1,tmp2);
+ nm="R"+name;
+ options=optionorg;
+ tmp=divoptions(options);
+ precise=6;
+ disp=1;
+ pack=[];
+ set=[];
+ add="";
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if((tmp1=="DIS") % (tmp1=="DSP") ,
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=[];
+ cmdL=concat(cmdL,[
+ nm+"="+fun,argL
+ ]);
+ options=concat(options,["Wait=2"]);
+ CalcbyR(nm,cmdL,options);
+ if(ErrFlag==0,
+ if(disp==1, // 15.11.24
+ println(nm+" is : ");
+ println(parse(nm));
+ );
+ );
+ parse(nm);
+);
+
+Readcsv(file):=Readcsv(Dirwork,file,[]);
+Readcsv(Arg1,Arg2):=(
+ if(isstring(Arg2),
+ Readcsv(Arg1,Arg2,[]);
+ ,
+ Readcsv(Dirwork,Arg1,Arg2);
+ );
+);
+Readcsv(pathorg,file,optionorg):=(
+//help:Readcsv("ex.csv");
+//help:Readcsv(directory,"ex.csv");
+//help:Readcsv(options=["Head=yes","Sep=-999","Flat=no","Use=R"]);
+ regional(path,fname,fout,options,eqL,header,cmdL,sep,
+ dt,nrow,tmp,tmp1,tmp2,csv,use,flat);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ header=1;
+ sep="-999";
+ csv="Y"; // 16.12.12
+ use="R";
+ flat="N";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ tmp=Toupper(substring(tmp1,0,2));
+ if(tmp=="HE",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="F" % tmp=="N",
+ header=0;
+ options=remove(options,[#]);
+ );
+ );
+// if(tmp=="WA", // removed:17.02.19
+// waiting=parse(tmp2);
+// options=remove(options,[#]);
+// );
+ if(tmp=="SE",
+ sep=tmp2;
+ options=remove(options,[#]);
+ );
+ if(tmp=="CS",
+ csv=Toupper(substring(tmp2,0,1));
+ options=remove(options,[#]);
+ );
+ if(tmp=="US",
+ use=Toupper(substring(tmp2,0,1));
+ options=remove(options,[#]);
+ );
+ if(tmp=="FL",
+ flat=Toupper(substring(tmp2,0,1));
+ options=remove(options,[#]);
+ );
+ );
+ if(flat=="Y",csv="N");
+ sep=","+sep;
+ tmp=indexof(file,".");
+ if(tmp==0,
+ fname=file+".csv";
+ fout=file+"sep.csv";
+ ,
+ fname=file;
+ tmp1=substring(file,0,tmp-1);
+ tmp2=substring(file,tmp-1,length(file));
+ fout=tmp1+"sep"+tmp2;
+ );
+ path=pathorg;
+ if(!isexists(path,fname),
+ println(path+" "+fname+" not found");
+ ,
+ path=replace(path,"\","/");
+ if(use=="S",
+ cmdL=[ // 16.12.20from
+ "cd('"+path+"')",[],
+ "Dt=mgetl('"+fname+"');",[],
+ "cd('"+Dirwork+"')",[],
+ "Dt2=[]",[],
+ "for I=1:size(Dt,1),
+ Tmp=Dt(I,:)+'"+sep+"';
+ Dt2=[Dt2;Tmp];
+ end",[],
+ "mputl(Dt2,'"+fout+"')",[]
+ ];
+ CalcbyS("sep",cmdL,options);
+ ,
+ cmdL=[
+ "setwd",[Dq+path+Dq],
+ "tmp1=readLines",[Dq+fname+Dq,"warn=FALSE"],
+ "fun=function(s) paste(s,"+Dq+sep+Dq+",sep="+Dq+Dq+")",[],
+ "tmp2=sapply(tmp1,fun)",[],
+ "writeLines",["tmp2",Dq+fout+Dq]
+ ];
+ CalcbyR("sep",cmdL,concat(options,["Cat=n"]));
+ ); // 16.12.20upto
+ if(ErrFlag==1,
+ println("Readcsv not completed");
+ ,
+ dt=load(fout);
+ dt=tokenize(dt,sep);
+ dt=dt_(1..(length(dt)-1));//16.12.20
+ if(isstring(dt_1),// 17.02.10from
+ if(indexof(dt_1,",")==0,csv="N");
+ ,
+ csv="N";
+ );// 17.02.10upto
+ if(csv=="Y",
+ dt=apply(dt,tokenize(#,","));
+ ,
+ dt=apply(dt,[#]);
+ );
+ forall(1..(length(dt)),nrow,
+ tmp1=dt_nrow;
+ tmp2=[];
+ forall(tmp1,
+ if(!isstring(#),
+ tmp=#;
+ ,
+ if(substring(#,0,1)==Dq,
+ tmp=parse(#);
+ ,
+ tmp=#;
+ );
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ dt_nrow=tmp2;
+ );
+ if(header==0,dt=dt_(2..(length(dt))));
+ if(length(dt)==1,
+ dt=dt_1
+ ,
+ if(length(dt_1)==1,
+ dt=apply(dt,#_1);
+ );
+ );
+ dt;
+ );
+ );
+);
+
+Writecsv(nmL,data,file):=Writecsv(nmL,data,file,[]);
+Writecsv(nmL,dataorg,file,optionorg):=(
+//help:Writecsv([],data,"ex.csv");
+//help:Writecsv(["a","b"],data,"ex.csv");
+//help:Writecsv(optins=["Col=1"]);
+ regional(nameL,data,eqL,strL,ncol,nrow,fname,dig,tmp,tmp1,tmp2);
+ ncol=0; // 17.02.09from
+ dig=5;
+ if(isstring(dataorg),data=parse(dataorg),data=dataorg);
+ if(islist(data_1),
+ ncol=length(data_1);
+ data=flatten(data);
+ ); // 17.02.09upto
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ if(Toupper(substring(tmp1,0,1))=="C",
+ ncol=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ if(indexof(file,".")==0,fname=file+".csv",fname=file);
+ if(ncol==0,ncol=max(1,length(nmL)));
+ tmp1=mod(length(data),ncol);
+ if(tmp1>0,
+ tmp=apply(1..(ncol-tmp1),-1);
+ data=concat(data,tmp);
+ );
+ nrow=length(data)/ncol;
+ if(length(nmL)<ncol,
+ nameL=apply(1..ncol,"c"+text(#));
+// tmp=nameL_length(nameL)+"##";//17.02.09
+ tmp=nameL_(length(nameL));//17.02.09
+ nameL_(length(nameL))=tmp;
+ ,
+ nameL=nmL;
+ );
+ SCEOUTPUT=openfile(fname);
+ tmp=text(nameL);
+ println(SCEOUTPUT,substring(tmp,1,length(tmp)-1));
+ forall(1..nrow,
+ tmp1=data_(((#-1)*ncol+1)..(#*ncol));
+ tmp2="";
+ forall(tmp1,
+ tmp2=tmp2+textformat(#,5)+",";
+ );
+ tmp2=substring(tmp2,0,length(tmp2)-1);
+ println(SCEOUTPUT,tmp2);
+ );
+ closefile(SCEOUTPUT);
+);
+
+Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]);
+Hatchdata(nm,iostr,pltlist,optionorg):=( //17.09.18
+//help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]);
+//help:Hatchdata(options=["Wait=5"]);
+ regional(options,name,fun,eqL,reL,strL,
+ plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting);
+ name="ha"+nm;
+ fname=Fhead+name+".txt";
+ fun=fnorg;
+ tmp=indexof(fun,"=");
+ if(tmp>0,
+ tmp1=substring(fun,0,tmp-1);
+ tmp2=substring(fun,tmp,length(fun));
+ fun=tmp1+"-("+tmp2+")";
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(length(#)==0,
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ if(islist(iostr),
+ tmp1=text(apply(iostr,Dq+#+Dq));
+ tmp1=replace(tmp1,"[","list("); //16.02.14
+ tmp1=replace(tmp1,"]",")"); //16.02.14
+ ,
+ tmp1=Dq+iostr+Dq;
+ );
+ if(!islist(pltlist_1),
+ tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,Chunderscore(#)));
+ tmp2=text(tmp2);
+ tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
+ ,
+ tmp2="";
+ forall(pltlist,plt,
+ tmp=apply(plt,if(length(#)==1,Dq+#+Dq,Chunderscore(#))); // 16.04.06
+ tmp=text(tmp);
+ tmp="list("+substring(tmp,1,length(tmp)-1)+")";
+ tmp2=tmp2+tmp+",";
+ );
+ );
+ cmdL=MkprecommandR();
+ tmp2=substring(tmp2,0,length(tmp2)-1);
+ tmp=[tmp1,tmp2];
+ tmp=concat(tmp,reL);
+ cmdL=concat(cmdL,[
+ "Setscaling",[SCALEY],
+ "Setunitlen",[Dq+ULEN+Dq],
+ name+"=Hatchdata",tmp, //16.12.23
+ "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ options=append(options,"Cat=no");
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,options);
+ );
+ if(ErrFlag==1,
+ err("Hatchdata not completed");
+ ,
+ if(ErrFlag==0,
+ ReadOutData(fname);
+ Extractdata(name,options);
+ );
+ );
+);
+
+PlotdataR(name1,func,var):=PlotdataR(name1,PathR,func,var);
+PlotdataR(name1,Arg1,Arg2,Arg3):=(
+ if(islist(Arg3),
+ PlotdataR(name1,PathR,Arg1,Arg2,Arg3);
+ ,
+ PlotdataR(name1,Arg1,Arg2,Arg3,[]);
+ );
+);
+PlotdataR(name1,path,func,variable,optionorg):=(
+//help:PlotdataR("1","dnorm(x)","x");
+//help:PlotdataR(options=["m/r","Num=50","Wait=10"]);
+ regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num,
+ Ltype,Noflg,eqL,strL,flg,outreg,filename,wfile,cmdL,waiting);
+ name="grR"+name1;
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ Num=50;
+ waiting=5;
+ outreg=0;
+ flg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,tmp,length(#));
+ if(Toupper(substring(#,0,1))=="N",
+ Num=parse(tmp1);
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="W",
+ waiting=parse(tmp1);
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="O",
+ tmp=Toupper(substring(tmp1,0,1));
+ if(tmp=="T" % tmp=="Y", outreg=1);
+ options=remove(options,[#]);
+ );
+ );
+ tmp=indexof(variable,"=");
+ if(tmp>0,
+ varstr=variable;
+ ,
+ varstr=variable+"="+textformat([XMIN,XMAX],5);
+ );
+ varstr=replace(varstr,"[","c(");
+ varstr=replace(varstr,"]",")");
+ filename=Fhead+name+".r";
+ wfile=Fhead+name+".txt";
+ cmdL=MkprecommandR();
+ cmdL=concat(cmdL,[
+ name+"=Plotdata",[Dq+func+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
+ "WriteOutData",[Dq+wfile+Dq,Dq+name+Dq,name]
+ ]);
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,concat(options,["Cat=middle","Wait="+text(waiting)]));
+ );
+ if(ErrFlag==1,
+ println("PlotdataR not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[wfile]);
+ OutFileList=append(OutFileList,wfile);
+ );
+ ReadOutData(wfile);
+ Extractdata(name,options);
+ tmp=parse(name);
+ tmp1=name+"="+textformat(tmp,5);
+ parse(tmp1);
+ tmp2=apply(tmp,Lcrd(#));
+ tmp2;
+ );
+);
+
+PlotdiscR(nm,fun,varrng):=PlotdiscR(nm,fun,varrng,[]);
+PlotdiscR(nm,fun,varrng,options):=(
+//help:PlotdiscR("1","dbinom(k,10,0.4)","k=[0,10]");
+ regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2,wfile);
+ name="grd"+nm;
+ tmp=indexof(varrng,"=");
+ var=substring(varrng,0,tmp-1);
+ range=parse(substring(varrng,tmp,length(varrng)));
+ if(length(range)==2,
+ range=(range_1)..(range_2);
+ );
+ cmdL=[
+ "fnb=function("+var+") "+fun,[],
+ name+"=sapply",[range,"fnb"]
+ ];
+ wfile=Fhead+name+".txt";
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,options);
+ );
+ if(ErrFlag==1,
+ println("PlotdiscR not completed");
+ ,
+ tmp1=load(wfile);
+ tmp1=substring(tmp1,0,length(tmp1)-4);
+ tmp1=replace(tmp1,"##","");
+ pb=tokenize(tmp1,",");
+ tmp=apply(range,[#,pb_(#+1)]);
+ Listplot(name,tmp,options);
+ );
+);
+
+Boxplot(nm,dataorg,ypos,dy):=Boxplot(nm,dataorg,ypos,dy,[]);
+Boxplot(nm,dataorg,ypos,dy,optionorg):=(
+//help:Boxplot("1",dt,2,1/2,[""]);
+ regional(options,name,data,bp,cmdL,waiting,tmp,tmp1,tmp2,tmp3,tmp4,
+ out,eqL,strL,pstr,ext,file,flg,wrflg);
+ name="bp"+nm;
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ waiting=3;
+ wrflg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ if(Toupper(substring(tmp1,0,1))=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="R",
+ wrflg=-1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wrflg=1;
+ options=remove(options,[#]);
+ );
+ );
+ data=dataorg;
+ if(isstring(data),
+ if(indexof(data,".")==0,data=data+".dat");
+ if(iswindows(), // 15.11.10
+ data=replace(data,"/","\");
+ flg="\";
+ ,
+ data=replace(data,"\","/");
+ flg="/";
+ );
+ forall(reverse(1..length(data)),
+ if(length(flg)>0,
+ tmp=substring(data,#-1,#);
+ if(tmp==flg,
+ tmp3=substring(data,0,#-1);
+ tmp4=substring(data,#,length(data));
+ if(indexof(tmp3,":")==0, // 11.11.10
+ tmp=substring(tmp3,0,1);
+ if(tmp!=flg,
+ tmp3=Dirwork+flg+tmp3;
+ );
+ );
+ flg="";
+ );
+ );
+ );
+ if(length(flg)>0,
+ tmp3=Dirwork; //15.11.10
+ tmp4=data;
+ );
+ setdirectory(tmp3);
+ tmp=load(tmp4);
+ if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
+ setdirectory(Dirwork);
+ ,
+ file=Fhead+name+".dat";
+ tmp=load(file);
+ if(length(tmp)>0,
+ tmp1=tokenize(tmp,",");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ ,
+ tmp1=[];
+ );
+ flg=0;
+ if(length(tmp1)==length(data),
+ tmp=tmp1-data;
+ tmp=select(tmp,#!=0);
+ if(length(tmp)>0,flg=1);
+ ,
+ flg=1;
+ );
+ if(flg==1,
+ SCEOUTPUT=openfile(file);
+ forall(data,
+ print(SCEOUTPUT,textformat(#,5)+",");
+ );
+ println(SCEOUTPUT,"////");
+ closefile(SCEOUTPUT);
+// wait(WaitUnit);
+ );
+ data=file;
+ );
+ data=replace(data,"\","/");
+ cmdL=[
+ "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
+ "tmp=substring",["tmp",1,"nchar(tmp)-4"],
+ "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
+ "data=data[[1]]",[],
+ "fun=function(s) eval(parse(text=s))",[],
+ "data=sapply",["data","fun"],
+ "data=data[!is.na(data)]",[],
+ "tmp=boxplot",["data","plot=FALSE"],
+ "tmp1=tmp$stat",[],
+ "tmp2=tmp$out",[],
+ name+"=c(tmp1,tmp2)",[]
+ ];
+ file=Fhead+name+".txt";
+ options=append(options,"Wait="+text(waiting));
+ if(wrflg==1,options=append(options,"m"));
+ if(wrflg==-1,options=append(options,"r"));
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,options);
+ );
+ if(ErrFlag>0,
+ if(ErrFlag==1,println("Boxplot not completed"));
+ if(ErrFlag==2,println(Dq+data+Dq+" not found"));
+ ,
+ bp=parse(name);
+ pstr="[";
+ tmp1=[bp_1,ypos-dy/2];
+ tmp2=[bp_1,ypos+dy/2];
+ Listplot(name+text(1),[tmp1,tmp2],["Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(1)+Dq+",";
+ tmp1=[bp_2,ypos-dy];
+ tmp2=[bp_2,ypos+dy];
+ tmp3=[bp_4,ypos+dy];
+ tmp4=[bp_4,ypos-dy];
+ Listplot(name+text(2),[tmp1,tmp2,tmp3,tmp4,tmp1],["Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(2)+Dq+",";
+ tmp1=[bp_5,ypos-dy/2];
+ tmp2=[bp_5,ypos+dy/2];
+ Listplot(name+text(3),[tmp1,tmp2],["Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(3)+Dq+",";
+ tmp1=[bp_3,ypos-dy];
+ tmp2=[bp_3,ypos+dy];
+ Listplot(name+text(4),[tmp1,tmp2],["dr,2","Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(4)+Dq+",";
+ tmp1=[bp_1,ypos];
+ tmp2=[bp_2,ypos];
+ Listplot(name+text(5),[tmp1,tmp2],["da","Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(5)+Dq+",";
+ tmp1=[bp_4,ypos];
+ tmp2=[bp_5,ypos];
+ Listplot(name+text(6),[tmp1,tmp2],["da","Msg=no"]);
+ pstr=pstr+Dq+"sg"+name+text(6)+Dq+",";
+ out=bp_(6..length(bp));
+ if(length(out)>0,
+ out=apply(out,[#,ypos]);
+ Pointdata(name+text(1),out,[0,"Size=4"]);
+ );
+ pstr=substring(pstr,0,length(pstr)-1)+"]";
+ println("generate totally "+name);
+ tmp=name+"="+pstr;
+ [bp_(1..5),out];
+ );
+);
+
+Histplot(nm,dataorg):=Histplot(nm,dataorg,[]);
+Histplot(nm,dataorg,optionorg):=(
+//help:Histplot("1",data(fillename));
+//help:Histplot(options=["Breaks=","Den=no","Rel=no"]);
+ regional(options,name,data,waiting,hp,cmdL,tmp,tmp1,tmp2,tmp3,tmp4,
+ out,eqL,strL,breaks,bdata,cdata,pstr,file,flg,rwflg,density,relative);
+ name="hp"+nm;
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ breaks = "breaks="+Dq+"Sturges"+Dq;
+ density=0;
+ relative=0;
+ waiting=3;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,tmp,length(#));
+ if(Toupper(substring(#,0,1))=="B",
+ if(substring(tmp1,0,1)=="[",
+ tmp1="c("+substring(tmp1,1,length(tmp1)-1)+")";
+ );
+ breaks="breaks="+tmp1;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="D",
+ tmp2=Toupper(substring(tmp1,0,1));
+ if(tmp2=="T" % tmp2=="Y",
+ density=1;
+ );
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="R",
+ tmp2=Toupper(substring(tmp1,0,1));
+ if(tmp2=="T" % tmp2=="Y",
+ relative=1;
+ );
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="W",
+ waiting=parse(tmp1);
+ options=remove(options,[#]);
+ );
+ );
+ wrflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="R",
+ wrflg=-1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wrflg=1;
+ options=remove(options,[#]);
+ );
+ );
+ data=dataorg;
+ if(isstring(data),
+ if(indexof(data,".")==0,data=data+".csv");
+ if(iswindows(), // 15.11.10
+ data=replace(data,"/","\");
+ flg="\";
+ ,
+ data=replace(data,"\","/");
+ flg="/";
+ );
+ forall(reverse(1..length(data)),
+ if(length(flg)>0,
+ tmp=substring(data,#-1,#);
+ if(tmp==flg,
+ tmp3=substring(data,0,#-1);
+ tmp4=substring(data,#,length(data));
+ if(indexof(tmp3,":")==0, // 11.11.10
+ tmp=substring(tmp3,0,1);
+ if(tmp!=flg,
+ tmp3=Dirwork+flg+tmp3;
+ );
+ );
+ flg="";
+ );
+ );
+ );
+ if(length(flg)>0,
+ tmp3=Dirwork; //15.11.10
+ tmp4=data;
+ );
+ setdirectory(tmp3);
+ tmp=load(tmp4);
+ if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
+ setdirectory(Dirwork);
+ ,
+ file=Fhead+name+".dat";
+ tmp=load(file);
+ if(length(tmp)>0,
+ tmp1=tokenize(tmp,",");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ ,
+ tmp1=[];
+ );
+ flg=0;
+ if(length(tmp1)==length(data),
+ tmp=tmp1-data;
+ tmp=select(tmp,#!=0);
+ if(length(tmp)>0,flg=1);
+ ,
+ flg=1;
+ );
+ if(flg==1,
+ SCEOUTPUT=openfile(file);
+ forall(data,
+ print(SCEOUTPUT,textformat(#,5)+",");
+ );
+ println(SCEOUTPUT,"////");
+ closefile(SCEOUTPUT);
+// wait(WaitUnit);
+ );
+ data=file;
+ );
+ data=replace(data,"\","/");
+ cmdL=[
+ "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
+ "tmp=substring",["tmp",1,"nchar(tmp)-4"],
+ "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
+ "data=data[[1]]",[],
+ "fun=function(s) eval(parse(text=s))",[],
+ "data=sapply",["data","fun"],
+ "data=data[!is.na(data)]",[],
+ "tmp=hist",["data","plot=FALSE",breaks],
+ "tmp1=tmp$breaks",[],
+ "tmp2=tmp$count",[],
+ "tmp3=tmp$density",[],
+ name+"=c(tmp1,tmp2,tmp3)",[]
+ ];
+ file=Fhead+name+".txt";
+ options=append(options,"Wait="+text(waiting));
+ if(wrflg==1,options=append(options,"m"));
+ if(wrflg==-1,options=append(options,"r"));
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,options);
+ );
+ if(ErrFlag>0,
+ if(ErrFlag==1,println("Histplot not completed"));
+ if(ErrFlag==2,println(Dq+data+Dq+" not found"));
+ ,
+// tmp=load(file);
+// tmp=replace(tmp,"/","");
+// tmp=tokenize(tmp,",");
+// tmp=name+"="+textformat(tmp,5);
+// parse(tmp);
+ hp=parse(name);
+ tmp1=(length(hp)-1)/3+1;
+ tmp2=tmp1+(length(hp)-1)/3;
+ bdata=hp_(1..tmp1);
+ if(density==0,
+ cdata=hp_((tmp1+1)..tmp2);
+ ,
+ cdata=hp_((tmp2+1)..length(hp));
+ );
+ if(relative==1,
+ cdata=cdata/sum(cdata);
+ );
+ options=append(options,"Msg=no"); // 15.10.03
+ pstr="[";
+ forall(1..length(cdata),
+ tmp1=[bdata_#,0];
+ tmp2=[bdata_#,cdata_#];
+ tmp3=[bdata_(#+1),cdata_#];
+ tmp4=[bdata_(#+1),0];
+ Listplot(name+text(#),[tmp1,tmp2,tmp3,tmp4,tmp1],options);
+ pstr=pstr+Dq+"sg"+name+text(#)+Dq+",";
+ );
+ pstr=substring(pstr,0,length(pstr)-1)+"]";
+ println("generate totally "+name);
+ tmp=name+"="+pstr;
+ parse(tmp);
+ [bdata,cdata];
+ );
+);
+
+Scatterplot(nm,file):=Scatterplot(nm,file,[]);
+Scatterplot(nm,file,optionorg):=(
+//help:Scatterplot("1",path+filename);
+//help:Scatterplot(options=["Reg=yes",A,B,C,"Size"=4"]);
+ regional(tmp,tmp1,tmp2,fname,name,reg,eqL,reL,cdysize,
+ options,dtx,dty,nn,mx,my,sx,sy,sxy,rr,aa,bb,size);
+ name="sc"+nm;
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ options=remove(options,reL);
+ cdysize=select(options,indexof(#,"size->")>0);
+ options=remove(options,cdysize);
+ size=4;
+ reg="yes";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="R",
+ reg=tmp2;
+ options=remove(options,[#]);
+ );
+ if(tmp1=="S",
+ size=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ if(indexof(file,".")==0,
+ fname=file+".csv";
+ ,
+ fname=file;
+ );
+ Readcsv(nm,fname);
+ tmp=concat(options,cdysize);
+ Pointdata(name,parse("rc"+nm),append(tmp,"Size="+text(size)));
+ tmp=parse("rc"+nm);
+ dtx=apply(tmp,#_1);
+ dty=apply(tmp,#_2);
+ nn=length(dtx);
+ mx=sum(dtx)/nn;
+ my=sum(dty)/nn;
+ sx=sqrt(dtx*dtx/nn-mx^2);
+ sy=sqrt(dty*dty/nn-my^2);
+ sxy=dtx*dty/nn-mx*my;
+ rr=sxy/sx/sy;
+ aa=sxy/sx^2;
+ bb=my-aa*mx;
+ tmp=Assign("a*x+b",["a",aa,"b",bb]);
+ if(reg!="no",
+ Plotdata(name,tmp,"x",append(options,"Num=2"));
+ );
+ if(length(reL)>=2,
+ Framedata2(name,[reL_1,reL_2]);
+ if(length(reL)>2,
+ tmp="r="+textformat(rr,3)+",\ y=";
+ tmp=tmp+textformat(aa,3)+"x";
+ if(bb>0,tmp=tmp+"+",tmp=tmp+"-");
+ tmp=tmp+textformat(abs(bb),3);
+ Expr([reL_3,"e",tmp]);
+ );
+ );
+ [mx,my,sx,sy,sxy,rr,bb,aa];
+);
+
+Rulerscale(pt,hscale,vscale):=Rulerscale(pt,hscale,vscale,0.1);
+Rulerscale(pt,hscale,vscale,tick):=(
+//help:Rulerscale(A,["r",0,5,1],["s2",0,2,4]);
+//help:Rulerscale(A,["r",0,5,1],["f",10,"a",20,"w2","b"]);
+//help:Rulerscale(A,["r",0,5,1],["r",0,10,1],0.2);
+ regional(pA,pos,mrk,dir,tmp,tmp1,tmp2,tmp3);
+ pA=Lcrd(pt);
+ if(length(hscale)>0,
+ pos=[]; mrk=[]; dir=[];
+ tmp=Toupper(substring(hscale_1,0,1));
+ if(tmp=="R" % tmp=="F",
+ if(tmp=="R",
+ dir="s2";
+ tmp1=hscale_2;
+ tmp2=hscale_3;
+ tmp3=hscale_4;
+ tmp=floor((tmp2-tmp1)/tmp3);
+ pos=apply(0..tmp,tmp1+#*tmp3);
+ mrk=apply(pos,text(#));
+ dir=apply(1..length(pos),"s2");
+ ,
+ forall(2..(length(hscale)-2),
+ tmp1=hscale_(#);
+ tmp2=hscale_(#+1);
+ tmp3=hscale_(#+2);
+ if(isreal(tmp1),
+ pos=append(pos,tmp1);
+ if(isstring(tmp3),
+ dir=append(dir,tmp2);
+ mrk=append(mrk,tmp3);
+ ,
+ dir=append(dir,"s2");
+ mrk=append(mrk,tmp2);
+ );
+ );
+ );
+ if(isreal(tmp2),
+ pos=append(pos,tmp2);
+ dir=append(dir,"s2");
+ mrk=append(mrk,tmp3);
+ );
+ );
+ ,
+ pos=hscale_(2..length(hscale));
+ dir=apply(pos,"s2");
+ mrk=apply(pos,text(#));
+ );
+ pos=apply(pos,[#,pA_2]);
+ forall(1..length(pos),
+ Expr([pos_#,dir_#,mrk_#]);
+ tmp1=pos_#;
+ tmp2=pos_#-[0,tick/SCALEY];
+ Listplot("rsh"+text(#),[tmp1,tmp2],["Msg=no"]);
+ );
+ );
+ if(length(vscale)>0,
+ pos=[]; mrk=[]; dir=[];
+ tmp=Toupper(substring(vscale_1,0,1));
+ if(tmp=="R" % tmp=="F",
+ if(tmp=="R",
+ dir="w2";
+ tmp1=vscale_2;
+ tmp2=vscale_3;
+ tmp3=vscale_4;
+ tmp=floor((tmp2-tmp1)/tmp3);
+ pos=apply(0..tmp,tmp1+#*tmp3);
+ mrk=apply(pos,text(#));
+ dir=apply(1..length(pos),"w2");
+ ,
+ forall(2..(length(vscale)-2),
+ tmp1=vscale_(#);
+ tmp2=vscale_(#+1);
+ tmp3=vscale_(#+2);
+ if(isreal(tmp1),
+ pos=append(pos,tmp1);
+ if(isstring(tmp3),
+ dir=append(dir,tmp2);
+ mrk=append(mrk,tmp3);
+ ,
+ dir=append(dir,"w2");
+ mrk=append(mrk,tmp2);
+ );
+ );
+ );
+ if(isreal(tmp2),
+ pos=append(pos,tmp2);
+ dir=append(dir,"w2");
+ mrk=append(mrk,tmp3);
+ );
+ );
+ ,
+ pos=vscale_(2..length(vscale));
+ dir=apply(pos,"w1");
+ mrk=apply(pos,text(#));
+ );
+ pos=apply(pos,[pA_1,#]);
+ forall(1..length(pos),
+ Expr([pos_#,dir_#,mrk_#]);
+ tmp1=pos_#;
+ tmp2=pos_#-[tick/SCALEX,0];
+ Listplot("rsv"+text(#),[tmp1,tmp2],["Msg=no"]);
+ );
+ );
+);
+
+MkprecommandR():=MkprecommandR(6);
+MkprecommandR(prec):=(
+ regional(cmdL,Plist,tmp,tmp1,tmp2);
+ Plist=[];
+ Pnamelist=[];
+ Pvaluelist=[];
+ forall(remove(allpoints(),[SW,NE]),
+ tmp=textformat(re(Lcrd(#)),prec);
+ tmp=RSform(tmp);
+ tmp1=#.name;
+ tmp1=tmp1+"="+tmp+";Assignadd('"+tmp1+"',"+tmp1+")";
+ Plist=append(Plist,tmp1);
+ );
+ cmdL=[];
+ forall(1..(length(Plist)),
+ cmdL=concat(cmdL,[Plist_#,[]]);
+ );
+ tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
+ tmp1=[];
+ forall(tmp2,tmp,
+ tmp1=concat(tmp1,select(VLIST,#_1==tmp));
+ );
+ VLIST=tmp1;// 17.09.24from
+ forall(VLIST,
+ tmp=#_1;
+ tmp1=#_2;
+ if(!isstring(tmp1),
+ if(islist(tmp1),
+ tmp2="[";
+ forall(tmp1,
+ tmp2=tmp2+textformat(#,6)+",";
+ );
+ tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
+ ,
+ tmp1=format(tmp1,6);
+ );
+ );
+ tmp1=RSform(tmp1);
+ tmp1=tmp+"="+tmp1+";";
+ tmp1=tmp1+"Assignadd('"+tmp+"',"+tmp+")";
+ cmdL=concat(cmdL,[tmp1,[]]);//17.09.24upto
+ );
+ forall(OutFileList,
+ cmdL=concat(cmdL,["tmp=ReadOutData",[Dq+#+Dq]]);
+ );
+ forall(FUNLIST,
+ cmdL=concat(cmdL,[#,[]]);
+ );
+ forall(GLIST,
+ tmp1=Rform(#);
+ cmdL=concat(cmdL,[tmp1,[]]);
+ );
+ cmdL;
+);
+
+MkprecommandS():=MkprecommandS(6);
+MkprecommandS(prec):=(
+ regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2);
+ cmdL=[];
+ Plist=[];
+ Pnamelist=[];
+ Pvaluelist=[];
+ forall(remove(allpoints(),[SW,NE]),
+ tmp=Lcrd(#);
+ tmp1=format(re(tmp_1),prec);// 15.02.05
+ tmp2=format(re(tmp_2),prec);
+ tmp="["+tmp1+","+tmp2+"]";
+ Plist=append(Plist,#.name+"="+tmp);
+ Pnamelist=append(Pnamelist,#.name);
+ Pvaluelist=append(Pvaluelist,tmp);
+ );
+ forall(1..length(Plist),
+ cmdL=concat(cmdL,[Plist_#,[]]);
+ cmdL=concat(cmdL,["Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+")",[]]);
+ );
+ tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
+ tmp1=[];
+ forall(tmp2,tmp,
+ tmp1=concat(tmp1,select(VLIST,#_1==tmp));
+ );
+ VLIST=tmp1;// 16.02.03 upto
+ forall(VLIST,
+ tmp=Sciform(#_1);
+ tmp1=#_2; // 15.02.06
+ if(!isstring(tmp1),
+ if(islist(tmp1),
+ if(!isstring(tmp1_1), // 16.11.14
+ tmp2="[";
+ forall(tmp1,
+ if(abs(#)<10^(-prec), // 16.01.30
+ tmp2=tmp2+"0,";
+ ,
+ tmp2=tmp2+format(#,prec)+",";
+ );
+ );
+ tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
+ ,
+ tmp2="list("; // 16.11.14from
+ forall(tmp1,
+ tmp2=tmp2+#+",";
+ );
+ tmp1=substring(tmp2,0,length(tmp2)-1)+")";
+ ); // 16.11.14upto
+ ,
+ tmp1=format(tmp1,prec);
+ );
+ );
+ cmdL=concat(cmdL,[tmp+"evstr('"+tmp1+"')",[]]);
+ tmp=substring(tmp,0,length(tmp)-1);
+ cmdL=concat(cmdL,["Assignrep('"+tmp+"',"+tmp1+")",[]]); // 15.01.27
+ );
+ forall(OutFileList,
+ tmp=["tmp=ReadOutData",[Dq+#+Dq],
+ "if length(tmp(1))>8,execstr(tmp),end",[]];
+ cmdL=concat(cmdL,tmp);
+ );
+ forall(FUNLIST, // 16.02.17 from
+ cmdL=concat(cmdL,[#,[]]);
+ ); // 16.02.17 upto
+ forall(GLIST,
+ tmp1=Sciform(#);
+ cmdL=concat(cmdL,[tmp1,[]]);
+ );
+ cmdL;
+);
+
+PlotdataS(name1,func,var):=PlotdataS(name1,func,var,[]);
+PlotdataS(nm,fun,variable,optionorg):=(
+//help:PlotdataS("1","besselj(1,x)","x");
+//help:PlotdataS(options=["m/r","Num=50","Wait=5","Mx=no"]);
+ regional(options,name,varstr,Num,waiting,mxcheck,outreg,
+ eqL,strL,fname,tmp,tmp1,tmp2,tmp3,cmdL,flg,wflg);
+ name="grsc"+nm;
+ fname=Fhead+name+".txt";
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ Num=50;
+ waiting=5;
+ mxcheck=0; // 16.03.02
+ outreg=0;
+ flg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="N",
+ Num=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="O",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", outreg=1);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="M",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", mxcheck=1);
+ options=remove(options,[#]);
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(length(#)==0,
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ tmp=indexof(variable,"=");
+ if(tmp>0,
+ varstr=variable;
+ ,
+ varstr=variable+"="+textformat([XMIN,XMAX],5);
+ );
+ cmdL=MkprecommandS();
+ cmdL=concat(cmdL,[
+ name+"=Plotdata",[Dq+fun+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
+ "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
+ ]);
+ ErrFlag=0; // 16.03.02 from
+ if(mxcheck==1,
+ Mxfun(name,fun,[],["Disp=n"]);
+ tmp=parse("mx"+name);
+ if(!isstring(tmp),ErrFlag=1);
+ );
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=append(options,"m"));
+ if(wflg==-1,options=append(options,"r"));// 16.03.02 upto
+ if(ErrFlag==0,
+ CalcbyS(name,cmdL,concat(options,["cat=middle","Wait="+text(waiting)]));
+ );
+ if(ErrFlag==1,
+ println(" PlotdataS not completed");
+ ,
+ if(outreg==1, // 2016.03.02 ( // )
+ OutFileList=remove(OutFileList,[wfile]);
+ OutFileList=append(OutFileList,wfile);
+ );
+ ReadOutData(fname);
+ Extractdata(name,options);
+ tmp=parse(name);
+ tmp1=name+"="+textformat(tmp,5);
+ parse(tmp1);
+// Addgraph(name); // 16.04.04
+ tmp2=apply(tmp,Lcrd(#));
+ tmp2;
+ );
+);
+
+Implicitplot(nm,fun,varx,vary):=
+ Implicitplot(nm,fun,varx,vary,[]);
+Implicitplot(nm,fnorg,varx,vary,optionorg):=(
+//help:Implicitplot("1","3*x^2+y^2=1","x=[-3,3]","y=[-3,3]");
+//help:Implicitplot(options2=["Wait=10","Out=no","Mx=no"]);
+ regional(options,name,fun,waiting,mxcheck,outreg,
+ eqL,reL,strL,fname,var,rng,val,tmp,tmp1,tmp2,cmdL,flg,wflg);
+ name="imp"+nm;
+ fname=Fhead+name+".txt";
+ fun=fnorg;
+ tmp=indexof(fun,"=");
+ if(tmp>0,
+ tmp1=substring(fun,0,tmp-1);
+ tmp2=substring(fun,tmp,length(fun));
+ fun=tmp1+"-("+tmp2+")";
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ waiting=5; // 16.02.29
+ mxcheck=0; // 16.02.29
+ outreg=0;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,2));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="WA",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="OU",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", outreg=1);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="MX",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", mxcheck=1);
+ options=remove(options,[#]);
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(length(#)==0,
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ tmp1=Testfunstr(fun,varx,vary);
+ tmp=apply([fun,varx,vary],Dq+Rsform(#)+Dq); //17.09.30
+// tmp_1=RSform(tmp_1);
+ tmp=concat(tmp,reL);
+// tmp=append(tmp,"Error"); // 16.02.29
+ cmdL=MkprecommandR();//17.09.30
+ cmdL=concat(cmdL,[
+// "evstr",[tmp1,"Error"],
+ name+"=Implicitplot",tmp, // 16.03.15
+ "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
+ ]);
+ options=concat(options,["Wait="+text(waiting),"Cat=n"]);
+ if(wflg==1,options=append(options,"m"));
+ if(wflg==-1,options=append(options,"r"));
+ CalcbyR(name,cmdL,options);
+ if(ErrFlag==1,
+ println(" Implicitplot not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[fname]);
+ OutFileList=append(OutFileList,fname);
+ );
+ ReadOutData(fname);
+ Extractdata(name,options);
+ tmp=parse(name);
+ tmp1=name+"="+textformat(tmp,5);
+ parse(tmp1);
+ tmp2=apply(tmp,Lcrd(#));
+ tmp2;
+ );
+);
+
+Dotfilldata(nm,iostr,pltlist):=
+ Dotfilldata(nm,iostr,pltlist,[]);
+Dotfilldata(nm,iostr,pltlist,optionorg):=(
+//help:Dotfilldata("1","ii",[["sg1"],["sg2"]]);
+//help:Dotfilldata(options=[0.3,"Wait=5"]);
+ regional(options,name,fun,eqL,reL,strL,outreg,
+ plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,
+ wflg,waiting,dense);
+ name="df"+nm;
+ fname=Fhead+name+".txt";
+ fun=fnorg;
+ tmp=indexof(fun,"=");
+ if(tmp>0,
+ tmp1=substring(fun,0,tmp-1);
+ tmp2=substring(fun,tmp,length(fun));
+ fun=tmp1+"-("+tmp2+")";
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ strL=tmp_7;
+ dense=0.3;
+ waiting=5;
+ outreg=0;
+ forall(reL,
+ dense=#;
+ );
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="O",
+ tmp=Toupper(substring(tmp2,0,1));
+ if(tmp=="T" % tmp=="Y", outreg=1);
+ options=remove(options,[#]);
+ );
+ );
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(length(#)==0,
+ options=remove(options,[#]);
+ );
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ if(islist(iostr),
+ tmp1=text(apply(iostr,Dq+#+Dq));
+ tmp1=replace(tmp1,"[","list("); //16.02.14
+ tmp1=replace(tmp1,"]",")"); //16.02.14
+ ,
+ tmp1=Dq+iostr+Dq;
+ );
+ if(!islist(pltlist_1),
+ tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,#));
+ tmp2=text(tmp2);
+ tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
+ ,
+ tmp2="";
+ forall(pltlist,plt,
+ tmp=apply(plt,if(length(#)==1,Dq+#+Dq,#));
+ tmp=text(tmp);
+ tmp="list("+substring(tmp,1,length(tmp)-1)+")";
+ tmp2=tmp2+tmp+",";
+ );
+ );
+ cmdL=MkprecommandR(); //17.09.29
+ tmp2=substring(tmp2,0,length(tmp2)-1);
+ tmp=[tmp1,tmp2];
+ tmp=concat(tmp,dense);
+ cmdL=concat(cmdL,[
+ "Setscaling",[SCALEY],
+ "Setunitlen",[Dq+ULEN+Dq],
+ name+"=Dotfilldata",tmp,
+ "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name],
+ ]);
+ options=append(options,"Wait="+text(waiting));
+ if(wflg==1,options=concat(options,["m"]));
+ if(wflg==-1,options=concat(options,["r"]));
+ options=append(options,"Cat=n");
+ if(ErrFlag==0,
+ CalcbyR(name,cmdL,options); //17.09.29
+ );
+ if(ErrFlag==1,
+ println("Dotfilldata not completed");
+ ,
+ if(outreg==1,
+ OutFileList=remove(OutFileList,[fname]);
+ OutFileList=append(OutFileList,fname);
+ );
+ if(ErrFlag==0,
+ ReadOutData(fname);
+ tmp1=parse(name);
+ forall(tmp1,
+ tmp=#_1;
+ draw(tmp,pointsize->1);
+ );
+ Com2nd("tmp=ReadOutData("+Dq+fname+Dq+")");
+ Com2nd("Drwpt("+name+")");
+ );
+ );
+);
+
+WritetoA(fname,cmdL):=(
+// help:WritetoA("outdata",cmdL);
+ regional(tmp,tmp1,tmp2,filename,wfilename,endmark);
+ if(indexof(fname,".")==0,
+ filename=fname+".rr";
+ ,
+ filename=fname;
+ );
+ wfilename=replace(filename,".rr",".txt");
+ SCEOUTPUT = openfile(filename);
+// tmp=replace(Dirlib,"\","/");
+// tmp="load("+Dq+tmp+"/oshima/os_muldif.rr"+Dq+")$/*####*/";
+ tmp="/*####*/"; // 16.03.11
+ println(SCEOUTPUT,tmp);
+ tmp="output("+Dq+wfilename+Dq+")$/*##*/"; // 16.05.18from
+ println(SCEOUTPUT,tmp); // 16.05.18upto
+ forall(1..(length(cmdL)),
+ tmp1=cmdL_#;
+ tmp=indexof(tmp1,";"); // 16.05.18from
+ if(tmp>0,endmark=";",endmark="$");
+ tmp1=replace(tmp1,";",""); // 16.05.18upto
+ if(#==length(cmdL)-1,
+ println(SCEOUTPUT,tmp1+";/*##*/");
+ ,
+ println(SCEOUTPUT,tmp1+endmark+"/*##*/");//16.05.18
+ );
+ );
+ closefile(SCEOUTPUT);
+);
+
+kcA(fname):=kcA(fname,[]);
+kcA(fname,optionorg):=(
+//help:kcA("boxdata");
+//help:kcA(options=["r/m"]);
+ regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".rr";
+ ,
+ filename=fname;
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ );
+ flg=0;
+ forall(strL,
+ if(Toupper(substring(#,0,1))=="R",
+ flg=0;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="M",
+ flg=1;
+ );
+ );
+ if(flg==0,
+ tmp2=replace(filename,".rr",".txt");
+ tmp1=load(tmp2);
+ if(length(tmp1)==0,
+ flg=1;
+ );
+ );
+ if(flg==1,
+ tmp1="";
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ flg=0;
+ forall(reverse(1..length(tmp2)),
+ if(flg==0,
+ tmp=substring(tmp2,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(tmp2,0,#-1);
+ tmp2=substring(tmp2,#,length(tmp2));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ );
+ if(iswindows(),
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp="del "+replace(filename,".rr",".txt");
+ println(SCEOUTPUT,tmp);
+ tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ tmp=replace(filename,".rr",".txt");
+ println(kc(Dirwork+Batparent,Dirlib,tmp)); // 16.05.29,06.05
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp="rm "+replace(filename,".rr",".txt");
+ println(SCEOUTPUT,tmp);
+ tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ tmp=replace(filename,".rr",".txt");
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
+
+ );
+// wait(WaitUnit);
+ setdirectory(Dirwork);
+ );
+);
+
+CalcbyA(name,cmd):=CalcbyA(name,cmd,[]);
+CalcbyA(name,cmd,optionorg):=(
+//help:CalcbyA("a",cmd);
+//help:CalcbyA(options= ["m/r","Wait=10","Ext=txt","Dig=16"]]);
+ regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
+ dig,flg,wflg,file,nc,arg,cmdA,cmdlist,wfile,ext,waiting,num,st);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ realL=tmp_6;
+ strL=tmp_7;
+ wfile="";
+ ext=".txt";
+ waiting=2;
+ dig=6;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="E",
+ if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="D",
+ dig=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ wfile=Fhead+name+ext;
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ file=Fhead+name;
+ cmdA=cmd;
+ cmdlist=[];
+ forall(1..floor(length(cmdA)/2),nc, //17.5.18
+ tmp1=cmdA_(2*nc-1);
+ tmp1=replace(tmp1,LFmark,""); // 16.06.12
+ if(nc==length(cmdA)/2,
+ tmp=indexof(tmp1,"=");
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ if(substring(tmp1,0,1)=="[",
+ tmp=substring(tmp1,0,length(tmp1)-1);
+ ,
+ tmp="["+Dq+"/start/"+Dq+","+tmp1; // 16.05.18
+ );
+ tmp=replace(tmp,"::",","+Dq+"//"+Dq+",");
+ tmp1=tmp+","+Dq+"////"+Dq+"]";
+ );
+ tmp2=cmdA_(2*nc); // list of argments
+ tmp3="";
+ tmp4="";
+ forall(tmp2,arg,
+ if(isstring(arg),
+ tmp3=tmp3+replace(arg,"'",Dq)+",";
+// tmp3=tmp3+arg;
+ ,
+ if(!islist(arg),
+ tmp3=tmp3+textformat(arg,dig)+",";
+ ,
+ tmp3=tmp3+"[";
+ tmp4="]";
+ forall(arg,
+ if(isstring(#),
+// tmp3=tmp3+Dq+#+Dq+",";
+ tmp=replace(#,"'",Dq);
+// tmp=#;// 2016.03.03
+ tmp3=tmp3+tmp+",";
+ ,
+ if(!islist(#),
+ tmp3=tmp3+textformat(#,dig)+",";
+ ,
+ tmp=textformat(#,dig);
+ tmp=replace(tmp,"],[","];[");
+ tmp3=tmp3+tmp+",";
+ );
+ );
+ );
+ tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
+ );
+ );
+ );
+ if(length(tmp3)>0,
+ tmp3=substring(tmp3,0,length(tmp3)-1);
+ tmp1=tmp1+"("+tmp3+")";
+ );
+ cmdlist=append(cmdlist,tmp1);
+ );
+ cmdlist=append(cmdlist,"quit");
+ if(wflg==0,
+ tmp1=load(file+".rr");
+ if((length(tmp1)==0) % (indexof(tmp1,"/*####*/")==0), //15.11.26
+ wflg=1;
+ ,
+ tmp1=tokenize(tmp1,"/*####*/");
+ tmp1=tokenize(tmp1_2,"/*##*/");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ tmp=select(tmp1,indexof(#,"output")>0);
+ tmp1=remove(tmp1,tmp);
+ tmp1=apply(tmp1,substring(#,0,length(#)-1));
+ if(length(tmp1)!=length(cmdlist), // 15.12.06
+ wflg=1;
+ ,
+ tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
+ if(length(tmp)>0, wflg=1);
+ );
+ );
+ );
+ if(wflg==0,wflg=-1); // 15.10.16
+ if(wflg==1,
+ if(length(wfile)>0, // 15.10.05
+ SCEOUTPUT=openfile(wfile);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ );
+ WritetoA(file+".rr",cmdlist);
+ kcA(file,concat(options,["m"]));
+ );
+ flg=0;
+ tmp1=floor(waiting*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp=load(wfile);
+ if(length(tmp)>=4,
+ tmp2=substring(tmp,length(tmp)-5,length(tmp));
+ if(tmp2=="////]",
+ tmp=substring(tmp,1,length(tmp)-6);
+ num="1234567890+-.";
+ tmp1=tokenize(","+tmp,",//");
+ tmp3=apply(tmp1,substring(#,1,length(#)));
+ tmp1="[";
+ forall(tmp3,st,
+ tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
+ if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
+ tmp1=tmp1+st+",";
+ ,
+ tmp1=tmp1+Dq+st+Dq+",";
+ );
+ );
+ tmp=Indexof(tmp1,"/start/,"); // 16.05.18from
+ tmp1="["+Dq+substring(tmp1,tmp+7,length(tmp1)-1)+"]";
+ // 16.05.18upto
+// tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ parse(name+"="+tmp1);
+ tmp=parse(name);
+ if(length(tmp)==1,
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ parse(name+"="+tmp1);
+ );
+ flg=1;
+ tmp2=#*WaitUnit/1000;
+ );
+ ,
+ if(wflg==-1,
+ flg=-1;
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ );
+ if(flg<=0,
+ ErrFlag=1;
+ if(flg==-1,
+ println(wfile+" does not exist");
+ ,
+ tmp="("+text(waiting)+" s )";
+ println(wfile+" not generated "+tmp);
+ );
+ ,
+ println(" CalcbyA succeeded "+name+" ("+text(tmp2)+" sec)");
+ );
+);
+
+AsfunO(name,fun,argL):=AsirfunO(name,fun,argL); // 16.02.03
+AsfunO(name,fun,argL,options):=AsirfunO(name,fun,argL,options);
+Asfun(name,fun,argL):=Asirfun(name,fun,argL);
+Asfun(name,fun,argL,optionorg):=Asirfun(name,fun,argL,optionorg);
+AsirfunO(name,fun,argL):=AsirfunO(name,fun,argL,[]);
+AsirfunO(name,fun,argLorg,options):=(
+//help:AsirfunO("an1","fint",["1/(x^2+1)",32,"['-','+']"]);
+ regional(argL,tmp,tmp1,tmp2,eqL);// 16.05.26from
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ argL=argLorg;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="PRO", // 16.05.26from
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="T") % (tmp=="Y"),
+ tmp1=argL_(length(argL));
+ tmp=indexof(tmp1,"|");
+ if(tmp==0,
+ argL_(length(argL))=tmp1+"|dumb=-1,dviout=-2";
+ );
+ );
+ );
+ ); // 16.05.26upto
+ Asirfun(name,"os_md."+fun,argL,options);
+);
+Asirfun(name,fun,argL):=Asirfun(name,fun,argL,[]);
+Asirfun(name,fun,argL,optionorg):=(
+//help:Asirfun("al1","2*(3+5^4)",[],[""]);
+ regional(nm,options,eqL,precise,disp,process,
+ cmdL,tmp,tmp1,tmp2,tmp3,tmp4,out,out2);
+ nm="as"+name;
+ options=optionorg;
+ tmp=divoptions(options);
+ precise=6;
+ disp=1;
+ process=0;
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="PRE",
+ precise=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if((tmp1=="DIS") % (tmp1=="DSP"),
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ if(tmp1=="PRO", // 16.05.26from
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="T") % (tmp=="Y"),
+ process=1;
+ );
+ options=remove(options,[#]);
+ ); // 16.05.26upt
+ );
+ tmp=replace(Dirlib,"\","/");
+ cmdL=[
+ "load",[Dq+tmp+"/oshima/os_muldif.rr"+Dq], // 16.03.11
+ "ctrl",[Dq+"real_digit"+Dq,precise],
+ "A="+fun,argL, // 16.05.26from
+ "A",[]
+ ];
+ CalcbyA(nm,cmdL,options);
+ out=parse(nm); //16.05.26from
+ if(process==1,
+ tmp1=Bracket(out,"[]");
+ tmp2=select(tmp1,abs(#_2)==2);
+ tmp2=apply(tmp2,#_1);
+ out=[];
+ forall(1..length(tmp2)/2,
+ tmp3=tmp2_(2*#-1);
+ tmp4=tmp2_(2*#);
+ tmp=substring(as1,tmp3+1,tmp4-2);
+ tmp=tokenize(tmp,"],[");
+ out=append(out,tmp);
+ );
+ out2=[];
+ forall(out,tmp2,
+ tmp4="";
+ forall(tmp2,tmp3,
+ tmp1=tokenize(tmp3,",");
+ if(tmp1_1==0,
+ tmp4=tmp4+tmp1_2+"="+tmp1_3+"+";
+ ,
+ if(tmp1_1==1,
+ tmp4=tmp4+tmp1_2+"+";
+ ,
+ tmp="'integrate(";
+ forall(2..length(tmp1),
+ tmp=tmp+tmp1_#+"+";
+ );
+ tmp=substring(tmp,0,length(tmp)-1);
+ tmp=tmp+","+tmp1_1+")";
+ tmp4=tmp4+tmp+"+";
+ );
+ );
+ );
+ tmp4=substring(tmp4,0,length(tmp4)-1);
+ out2=append(out2,tmp4);
+ );
+ out=out2;
+ tmp=apply(out,Dq+#+Dq);
+ parse(nm+"="+tmp);
+ );
+ if(ErrFlag==0,
+ if(disp==1, // 15.11.24
+ println(nm+" is : ");
+ println(parse(nm));
+ );
+ );
+ out; //16.05.26upto
+);
+
+WritetoM(fname,cmdL,allflg):=(
+// help:WritetoM("outdata",cmdL);
+ regional(tmp,tmp1,tmp2,filename,wfilename,outflg);
+ if(indexof(fname,".")==0,
+ filename=fname+".max";
+ ,
+ filename=fname;
+ );
+ wfilename=replace(filename,".max",".txt");
+ SCEOUTPUT = openfile(filename);
+ outflg=0;
+ forall(1..(length(cmdL)),
+ tmp1=cmdL_#;
+
+ if(allflg==1, // 2016.02.23 from
+ if(#==1,
+ tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
+ tmp=replace(tmp,"\","/");
+ println(SCEOUTPUT,tmp);
+ outflg=1;
+ println(SCEOUTPUT,tmp1+"$/*##*/");
+ ,
+ println(SCEOUTPUT,tmp1+"$/*##*/");
+ );
+ ,
+ if((indexof(tmp1,"disp(")>0) & (outflg==0),
+ tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
+ tmp=replace(tmp,"\","/");
+ println(SCEOUTPUT,tmp);
+ outflg=1;
+ println(SCEOUTPUT,tmp1+"$/*##*/");
+ ,
+ println(SCEOUTPUT,tmp1+"$/*##*/");
+ );
+ );
+ );
+ closefile(SCEOUTPUT);
+);
+
+kcM(fname):=kcM(fname,[]);
+kcM(fname,optionorg):=(
+//help:kcM("boxdata");
+//help:kcM(options=["r/m"]);
+ regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".max";
+ ,
+ filename=fname;
+ );
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ );
+ flg=0;
+ forall(strL,
+ if(Toupper(substring(#,0,1))=="R",
+ flg=0;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="M",
+ flg=1;
+ );
+ );
+ if(flg==0,
+ tmp2=replace(filename,".max",".txt");
+ tmp1=load(tmp2);
+ if(length(tmp1)==0,
+ flg=1;
+ );
+ );
+ if(flg==1,
+ tmp1="";
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ flg=0;
+ forall(reverse(1..length(tmp2)),
+ if(flg==0,
+ tmp=substring(tmp2,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(tmp2,0,#-1);
+ tmp2=substring(tmp2,#,length(tmp2));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ );
+ if(iswindows(),
+ SCEOUTPUT=openfile(replace(filename,".max",".txt"));
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+// tmp="del "+replace(filename,".max",".txt");
+// println(SCEOUTPUT,tmp);
+ tmp=Indexall(PathM,".");
+ tmp=substring(PathM,tmp_1,tmp_2-1);
+ tmp=parse(tmp);
+ if(tmp<39,
+ tmp="call "+Dq+Dq+PathM+Dq+Dq+" -b "+Dq+filename+Dq;
+ ,
+ tmp="call "+Dq+PathM+Dq+" -b "+Dq+filename+Dq;
+ );
+// tmp="cmd/c "+Dq+PathM+" -b "+filename+Dq;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ tmp=replace(filename,".max",".txt");
+ println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp="rm "+replace(filename,".max",".txt");
+ println(SCEOUTPUT,tmp);
+ tmp=Dq+PathM+Dq+" -b "+Dq+filename+Dq;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ tmp=replace(filename,".max",".txt");
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
+ );
+// wait(WaitUnit);
+ setdirectory(Dirwork);
+ );
+);
+
+CalcbyM(name,cmd):=CalcbyM(name,cmd,[]);
+CalcbyM(name,cmd,optionorg):=(
+//help:CalcbyM("a",cmdL);
+//help:CalcbyM(options1= ["m/r","Wait=5","Ext=txt","Dig=6","Pow=no","All=y"]);
+//help:CalcbyM(options2= ["line=1000"]);
+ regional(options,tmp,tmp0,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,allflg,indL,line,
+ dig,flg,wflg,file,nc,arg,add,powerd,cmdM,cmdlist,wfile,ext,waiting,num,st);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ realL=tmp_6;
+ strL=tmp_7;
+ wfile="";
+ ext=".txt";
+ waiting=5;
+ dig=6;
+ allflg=1;
+ powerd="false";
+ line=1000; // 16.06.13
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="E",
+ if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="D",
+ dig=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="L", // 16.06.13
+ line=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if(tmp1=="P",
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="y") % (tmp=="F"),powerd="true");
+ options=remove(options,[#]);
+ );
+ if(tmp1=="A", // 2016.02.23
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="N") % (tmp=="F"),allflg=0);
+ options=remove(options,[#]);
+ );
+ );
+ wfile=Fhead+name+ext;
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ file=Fhead+name;
+ cmdM=cmd;
+ cmdlist=[
+ "powerdisp:"+powerd,"display2d:false","linel:"+text(line) //15.11.25,16.06.13
+ ];
+ forall(1..floor(length(cmdM)/2),nc, //17.5.18
+ tmp1=replace(cmdM_(2*nc-1),"`","'");//2016.02.23
+ tmp1=replace(tmp1,LFmark,""); // 16.06.12
+ if(nc==length(cmdM)/2,
+ tmp=indexof(tmp1,"=");
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ if(substring(tmp1,0,1)=="[",
+ tmp=substring(tmp1,0,length(tmp1)-1);
+ ,
+ tmp="["+tmp1;
+ );
+ tmp2="";
+ forall(1..length(tmp1),
+ if(substring(tmp1,#-1,#+1)=="::",
+ if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
+ cmdlist=append(cmdlist,"disp("+tmp2+")");
+ tmp2="";
+ ,
+ tmp2=tmp2+substring(tmp1,#-1,#);
+ );
+ );
+ if(length(tmp2)>0,
+ if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
+ cmdlist=append(cmdlist,"disp("+tmp2+")");
+ );
+ ,
+ tmp2=cmdM_(2*nc); // list of argments
+ tmp3="";
+ tmp4="";
+ add="";
+ forall(tmp2,arg,
+ if(isstring(arg),
+ if(substring(arg,0,1)!=",",
+// tmp=replace(arg,"'",Dq); // 16.03.03
+ tmp=arg; // 16.03.03
+ tmp=replace(tmp,"`","'");// 2016.02.23
+ tmp3=tmp3+tmp+",";
+ ,
+ add=add+arg;
+ );
+ ,
+ if(!islist(arg),
+ tmp3=tmp3+textformat(arg,dig)+",";
+ ,
+ tmp3=tmp3+"[";
+ tmp4="]";
+ forall(arg,
+ if(isstring(#),
+// tmp3=tmp3+Dq+#+Dq+",";
+ tmp=replace(#,"'",Dq);
+ tmp3=tmp3+tmp+",";
+ ,
+ if(!islist(#),
+ tmp3=tmp3+textformat(#,dig)+",";
+ ,
+ tmp=textformat(#,dig);
+ tmp=replace(tmp,"],[","];[");
+ tmp3=tmp3+tmp+",";
+ );
+ );
+ );
+ tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
+ );
+ );
+ );
+ if(length(tmp3)>0,
+ tmp3=substring(tmp3,0,length(tmp3)-1);
+ tmp1=tmp1+"("+tmp3+")"+add;
+ );
+ cmdlist=append(cmdlist,tmp1);
+ );
+ );
+ cmdlist=append(cmdlist,"closefile()");
+ cmdlist=append(cmdlist,"quit()");
+ if(wflg==0,
+ tmp1=load(file+".max");
+ if(length(tmp1)==0,
+ wflg=1;
+ ,
+ if(indexof(tmp1,"/*##*/")==0, // 15.11.26
+ wflg=1;
+ ,
+ tmp1=tokenize(tmp1,"/*##*/");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ tmp=select(tmp1,indexof(#,"writefile")>0);
+ tmp1=remove(tmp1,tmp);
+ tmp1=apply(tmp1,substring(#,0,length(#)-1));
+ if(length(tmp1)!=length(cmdlist), // 15.12.07
+ wflg=1;
+ ,
+ tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
+ if(length(tmp)>0, wflg=1);
+ );
+ );
+ );
+ );
+ if(wflg==0,wflg=-1); // 15.10.16
+ if(wflg==1,
+ if(length(wfile)>0, // 15.10.05
+ SCEOUTPUT=openfile(wfile);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ );
+ WritetoM(file+".max",cmdlist,allflg); // 2016.02.23
+ kcM(file,concat(options,["m"]));
+ );
+ flg=0;
+ tmp1=floor(waiting*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp1=load(wfile);
+ if(wflg==1,wait(WaitUnit)); // 2016.02.23
+ if(length(tmp1)>0,
+ tmp=indexof(tmp1,"error")+indexof(tmp1,"syntax"); //2016.02.23
+ if(tmp>0,
+ println("Some error(s) occurred"); //2016.02.24 from
+ tmp2=tokenize(tmp1,"(%");
+ forall(4..length(tmp2),println(tmp2_#)); //2016.02.24 upto
+ flg=2; //2016.02.23
+ ,
+ if(indexof(tmp1,"closefile()")>0, // 15.11.24
+ tmp=tokenize(tmp1,"disp(");
+ tmp1=tmp_(2..length(tmp));
+ tmp4=[];
+ forall(tmp1,tmp2,
+ tmp=indexof(tmp2,")");
+ tmp3=substring(tmp2,tmp,length(tmp2));
+ indL=Indexall(tmp3,"(%i"); // 16.04.26from
+ tmp0=0;
+ forall(indL,
+ if(tmp0==0,
+ tmp=substring(tmp3,#+2,#+3);
+ if(indexof("0123456789",tmp)>0,//16.04.25?
+ tmp3=removespace(substring(tmp3,0,#-1));
+ tmp4=append(tmp4,tmp3);
+ tmp0=1;
+ );
+ );// 16.04.26upto
+ );
+ );
+ num="1234567890+-.";
+ tmp1="[";
+ forall(tmp4,st,
+ tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
+ if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
+ tmp1=tmp1+st+",";
+ ,
+ tmp1=tmp1+Dq+st+Dq+",";
+ );
+ );
+ tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ tmp1=replace(tmp1,".d+0",""); // 15.11.23
+ parse(name+"="+tmp1);
+ tmp=parse(name);
+ if(length(tmp)==1,
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ parse(name+"="+tmp1);
+ );
+ flg=1;
+ tmp2=#*WaitUnit/1000;
+ );
+ );
+ ,
+ if(wflg==-1,
+ flg=-1;
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ );
+ if(flg<=0,
+ ErrFlag=1;
+ if(flg==-1,
+ println(wfile+" does not exist");
+ ,
+ tmp="("+text(waiting)+" s )";
+ tmp1=load(wfile);
+ if(length(tmp1)>0,
+ println(wfile+" incomplete"+tmp); // 2016.02.24
+ ,
+ println(wfile+" not generated "+tmp);
+ );
+ );
+ ,
+ if(flg==1, // 2016.02.23
+ println(" CalcbyM succeeded "+name+" ("+text(tmp2)+" sec)");
+ );
+ );
+);
+
+Mxfun(name,fun,argL):=Mxfun(name,fun,argL,[]);
+Mxfun(name,fun,argL,optionorg):=(
+//help:Mxfun("ca1","diff",["sin(x)^3","x"],[""]);
+//help:Mxfun(options=["Pre=6","Disp=y","Load= :: ","Set=::","Add="]);
+ regional(nm,options,eqL,precise,disp,pack,set,add,cmdL,tmp,tmp1,tmp2);
+ nm="mx"+name;
+ options=optionorg;
+ tmp=divoptions(options);
+ precise=6;
+ disp=1;
+ pack=[];
+ set=[];
+ add="";
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="PRE",
+ precise=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ if((tmp1=="DIS") % (tmp1=="DSP") ,
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ if((tmp1=="PAC") % (tmp1=="LOA"), // 16.02.08
+ pack=tokenize(tmp2,"::");
+ options=remove(options,[#]);
+ );
+ if(tmp1=="SET",
+ set=tokenize(tmp2,"::");
+ options=remove(options,[#]);
+ );
+ if(tmp1=="ADD",
+ add=","+tmp2;
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=[];
+ forall(pack,
+ cmdL=concat(cmdL,["load",[#]]);
+ );
+ forall(set,
+ cmdL=concat(cmdL,[#,[]]);
+ );
+ if(length(add)>0,
+ tmp=append(argL,add);
+ ,
+ tmp=argL;
+ );
+ cmdL=concat(cmdL,[
+ "ans"+":"+fun,tmp,
+ "ans",[]
+ ]);
+ CalcbyM(nm,cmdL,options);
+ if(ErrFlag==0,
+ if(disp==1, // 15.11.24
+ println(nm+" is : ");
+ println(parse(nm));
+ );
+ );
+ parse(nm);
+);
+
+Mxtex(nm,ex):=Mxtex(nm,ex,[]);
+Mxtex(nm,ex,optionorg):=(
+//help:Mxtex("1","sin(x)/x");
+//help:Mxtex(options=["Disp=y"]);
+ regional(name,cmdL,eqL,options,tx,disp,out,set,
+ tmp,tmp1,tmp2); // 16.01.25
+ name="tx"+nm;
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ disp=1;
+ set=[];
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if((tmp1=="DIS") % (tmp1=="DSP") ,
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ if(tmp1=="SET", // 16.03.01
+ set=tokenize(tmp2,"::");
+ options=remove(options,[#]);
+ );
+ if(tmp1=="ORD", // 16.03.01
+ tmp="ordergreat("+tmp2+")";
+ set=append(set,tmp);
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=[
+ "load",[Dq+"mactex-utilities.lisp"+Dq]]; // 16.03.03
+ forall(set, // 16.03.01
+ cmdL=concat(cmdL,[#,[]]);
+ );
+ cmdL=concat(cmdL,[
+ name+":disp(tex("+ex+"))",[], // 16.01.18
+ name,[] // 16.01.18
+ ]);
+ CalcbyM(name,cmdL,options); // 16.02.19
+ tx=parse(name);
+ if(islist(tx), // 16.01.10
+ out=tx_1;
+ ,
+ out=tx;
+ );
+ tmp=indexof(out,"$$")+1;
+ out=substring(out,tmp,length(out));
+ tmp=indexof(out,"$$")-1;
+ out=substring(out,0,tmp);
+ if(disp==1, // 16.01.10
+ println(name+" is:");
+ println(out);
+ );
+ tmp=name+"="+Dq+out+Dq; //16.01.10
+ parse(tmp);
+ out;
+);
+
+MxtexL(nm,exlist):=MxtexL(nm,exlist,[]); // 16.05.27
+MxtexL(nm,exlist,options):=(
+ regional(out,tmp,tmp1);
+ out=[];
+ forall(1..length(exlist),
+ tmp=Mxtex(nm+"n"+text(#),exlist_#,["Disp=n"]);
+ out=append(out,Dq+tmp+Dq);
+ );
+ tmp="tx"+nm+"="+out;
+ parse(tmp);
+ println("tx"+nm+"is:");
+ apply(out,println(#));
+ out;
+);
+
+Mxbatch(file):=(
+//help:Mxbatch(["matoperation.max"]);
+ regional(figL,out,path,tmp,tmp1,tmp2);
+ if(!islist(file),figL=[file],figL=file);
+ path=replace(Dirlib+"/maximaL/","\","/");
+ out=[];
+ forall(figL,
+ if(indexof(#,".")==0,tmp1=#+".max",tmp1=#);
+ tmp1=Dq+path+tmp1+Dq;
+ tmp2=["batch",[tmp1]];
+ out=concat(out,tmp2);
+ );
+ out;
+);
+
+Mxload(file):=( //17.06.16
+//help:Mxload(["rkfun.lispp"]);
+ regional(figL,out,path,tmp,tmp1,tmp2);
+ if(!islist(file),figL=[file],figL=file);
+ path=replace(Dirlib+"/maximaL/","\","/");
+ out=[];
+ forall(figL,
+ if(indexof(#,".")==0,tmp1=#+".lisp",tmp1=#);
+ tmp1=Dq+path+tmp1+Dq;
+ tmp2=["load",[tmp1]];
+ out=concat(out,tmp2);
+ );
+ out;
+);
+
+kcV3(fname):=kcV3(Dirwork,fname);
+kcV3(path,fname):=(
+//help:kcV3(path,"ex.obj");
+ regional(tmp,tmp1,tmp2,eqL,strL,filename,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".obj";
+ ,
+ filename=fname;
+ );
+ flg=1;
+ if(flg==1,
+ tmp1=""; // 15.10.08 from
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ tmp=replace(path,"\","/");
+ tmp=substring(tmp,length(tmp)-1,length(tmp));
+ if(tmp=="/" % tmp=="\", tmp1=path, tmp1=path+"/");
+ if(iswindows(),
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+PathV3+Dq+" "+tmp1+filename;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+PathV3+Dq+" "+tmp1+filename;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
+ );
+ wait(WaitUnit);
+ );
+ if(fig==2,
+ println("Obj file not exist / imperfect");
+ );
+);
+
+Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]);
+Changeobjscale(fname,Arg):=(
+ if(islist(Arg),
+ Changeobjscale(ULEN,fname,fname,Arg);
+ ,
+ Changeobjscale(ULEN,fname,Arg,[]);
+ );
+);
+Changeobjscale(Arg1,Arg2,Arg3):=(
+ if(islist(Arg3),
+ Changeobjscale(ULEN,Arg1,Arg2,Arg3);
+ ,
+ Changeobjscale(Arg1,Arg2,Arg3,[]);
+ );
+);
+Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=(
+//help:Changeobjscale("20mm",fnamei,fmediate);
+//help:Changeobjscale(options=["Unit=mm",[0,0,0]]);
+ regional(fname,fout,fmd,unit,val,options,eqL,reL,
+ origin,outunit,sc,stL,nn,tmp,tmp1,tmp2);
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ outunit="IN";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=Toupper(substring(#,tmp,length(#)));
+ if(tmp1=="O" % tmp1=="U",
+ outunit=tmp2;
+ options=remove(options,[#]);
+ );
+ );
+ options=remove(options,reL);
+ origin=[0,0,0];
+ forall(reL,
+ if(islist(#),origin=#);
+ );
+ options=remove(options,reL);
+ tmp1=".0123456789+-*/";
+ unit="";
+ val=1;
+ tmp2=0;
+ forall(reverse(1..length(unitlen)),
+ tmp=substring(unitlen,#-1,#);
+ if(tmp2==0,
+ if(indexof(tmp1,tmp)>0,
+ tmp2=#;
+ );
+ );
+ unit=substring(unitlen,tmp2,length(unitlen));
+ unit=removespace(unit);
+ val=parse(substring(unitlen,0,tmp2));
+ );
+ sc=1;
+ if(unit=="cm",sc=1);
+ if(unit=="mm",sc=0.1);
+ if(unit=="in",sc=2.54);
+ sc=sc*val;
+ if(outunit=="IN",sc=sc/2.54);
+ if(outunit=="MM",sc=sc*10);
+ fname=fnameorg;
+ if(indexof(fname,".")==0,fname=fname+".obj");
+ fmd=replace(fname,".obj",".txt");
+ fout=foutorg;
+ if(indexof(fout,".")==0,fout=fout+".obj");
+ tmp1=Textformat(origin,4);
+ tmp1=replace(tmp1,",",";");
+ cmdL=[
+ "Origin="+tmp1+";",[],
+ "Sc="+format(sc,6)+";",[],
+ "Stv=mgetl",[Dq+fname+Dq],
+ "for nn=1:size(Stv,1),Tmp=Stv(nn);",[],
+ " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[],
+ " Tmp=evstr(Tmp(2:4));",[],
+ " Tmp=Origin+Sc*(Tmp-Origin);",[],
+ " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[],
+ " Stv(nn,1)=Tmp;",[],
+ " end;",[],
+ "end;",[],
+ "mputl",["Stv",Dq+fout+Dq],
+ "mputl",["['finished////']",Dq+fmd+Dq]
+ ];
+ options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26
+ CalcbyS("cs",cmdL,options);
+ println("Scale of "+fname+" changed");
+);
+
+Mkviewobj(fname,cmdL):=Mkviewobj(Dirwork,fname,cmdL,[]);
+Mkviewobj(Arg1,Arg2,Arg3):=(
+ if(!isstring(OCNAME), //17.04.13from
+ drawtext(mouse().xy,"Mkobjcmd not defined",
+ size->24,color->[1,0,0]);
+ , //17.04.13upto
+ if(islist(Arg2),
+ Mkviewobj(Dirwork,Arg1,Arg2,Arg3);
+ ,
+ Mkviewobj(Arg1,Arg2,Arg3,[]);
+ );
+ );
+);
+Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=(
+//help:Mkviewobj(fname,cmdlist);
+//help:Mkviewobj(fname,[]);
+//help:Mkviewobj(path,fname,cmdlist);
+//help:Mkviewobj(options=["M/R","V","Unit=in","Wait=5"]);
+ regional(path,cmdL,eqL,strL,flg,fname,options,make,view,cmdlist,
+ vtx,face,unit,tmp,tmp1,tmp2);
+ path=replace(pathorg,"\","/");
+ if(substring(path,length(path)-1,length(path))!="/",path=path+"/");
+ fname=fnameorg;
+ if(indexof(fname,".")==0,fname=fname+".obj");
+ cmdL=cmdLorg;
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ make=-1;
+ view=0;
+ unit="";
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="M",
+ tmp2=Toupper(substring(tmp2,0,1));
+ if(tmp2=="N" % tmp2=="F",
+ make=0;
+ );
+ options=remove(options,[#]);
+ );
+ if(tmp1=="V",
+ tmp2=Toupper(substring(tmp2,0,1));
+ if(tmp2=="N" % tmp2=="F",
+ view=0;
+ );
+ options=remove(options,[#]);
+ );
+ if(tmp1=="U", // 16.06.30from
+ unit=tmp2;
+ options=remove(options,[#]);
+ ); // 16.06.30upto
+ );
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ make=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ make=0;
+ options=remove(options,[#]);
+ );
+ if(tmp=="V",
+ view=1;
+ options=remove(options,[#]);
+ );
+ );
+ if(islist(cmdL),
+ if(length(cmdL)==0,
+ make=0;
+ println("Command sequence not defnamed");
+ );
+ ,
+ make=0;
+ println("Command sequence not defined");
+ );
+ if(make==-1,
+ setdirectory(pathorg);
+ tmp1=load(fname);
+ if(length(tmp1)==0,make=1,make=0);
+ setdirectory(Dirwork);
+ );
+ if(make==1,
+ if(isstring(cmdL_1),
+ cmdlist=MkprecommandS(); // 16.04.23
+ cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]);
+ cmdlist=concat(cmdlist,cmdL);
+ tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26
+ cmdlist=concat(cmdlist,tmp);
+ tmp=append(options,"Cat=y");
+ tmp1=apply(tmp,Toupper(substring(#,0,1))); // 16.04.23from
+ tmp1=select(tmp1,#=="W");
+ if(length(tmp1)==0,
+ tmp=append(tmp,"Wait=5");
+ );// 16.04.23upto
+ CalcbyS("ans",cmdlist,tmp);
+ wait(WaitUnit*100); // 16.03.18
+ ,
+ vtx=cmdL_1;
+ face=cmdL_2;
+ setdirectory(pathorg);
+ SCEOUTPUT = openfile(fname);
+ forall(vtx,tmp1,
+ tmp2=tmp1;
+ if(ispoint(tmp1),
+ tmp2=parse(text(tmp1)+"3d");
+ );
+ tmp2=apply(tmp2,format(#,5));
+ tmp="v "+tmp2_1+" "+tmp2_2+" "+tmp2_3;
+ println(SCEOUTPUT,tmp);
+ );
+ forall(face,tmp1,
+ tmp="f";
+ forall(tmp1,
+ tmp=tmp+" "+text(#);
+ );
+ println(SCEOUTPUT,tmp);
+ );
+ closefile(SCEOUTPUT);
+ setdirectory(Dirwork);
+ );
+ );
+ if(length(unit)>0, // 16.06.30from
+ Changeobjscale(fname,["Unit="+unit]);//16.10.04
+ ); // 16.06.30upto
+ if(view==1,
+ flg=0; // 16.03.14 from
+ if(isstring(ViewFile),
+ if(ViewFile==fname,flg=1);
+ );
+ if(flg==0,
+ kcV3(path,fname);
+ ViewFile=fname;
+ ); // 16.03.14 upto
+ );
+);
+
+SetObj(str):=Objname(str,["m","v"]); //17.01.12
+SetObj(str,options):=Objname(str,options); //17.01.12
+Objnameoptions(str,options):=Objname(str,options);// 16.11.29
+Objname(str):=Objname(str,["m","v"]); // 16.11.29
+Objname(str,options):=(
+//help:Objname("sample");
+//help:Objname(options=["m","v"]);
+//help:Setobj("sample");
+//help:Setobj(options=["m","v"]);
+ if(length(str)>0,
+ OCNAME=str;
+ );
+ OCOPTION=options;
+ println([OCNAME,OCOPTION]);
+);
+
+Mkobjcmd(nm,fd):=Mkobjcmd(nm,fd,[40,40,"+"]);
+Mkobjcmd(nm,fd,options):=(
+//help:Mkobjcmd("1",fd,[40,40,"+"]);
+ regional(ffd,cmd,out,div1,div2,side,
+ reL,stL,tmp,tmp1,tmp2,tmp3,tmp4);
+ div1=40;
+ div2=40;
+ side="+";
+ tmp=Divoptions(options);
+ reL=tmp_6;
+ stL=select(tmp_7,length(#)>0);
+ forall(1..length(reL),
+ if(#==1,
+ div1=reL_1;
+ div2=div1;
+ ,
+ div2=reL_2;
+ );
+ );
+ forall(stL,
+ side=#;
+ );
+ side="'"+side+"'";
+ ffd=Fullformfunc(fd);
+ tmp=indexof(ffd_5,"=");
+ tmp1=substring(ffd_5,0,tmp-1);
+ tmp2=substring(ffd_5,tmp,length(ffd_5));
+ tmp=indexof(ffd_6,"=");
+ tmp3=substring(ffd_6,0,tmp-1);
+ tmp4=substring(ffd_6,tmp,length(ffd_6));
+ out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
+ tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
+ out=concat(out,[tmp,[]]);
+ out=concat(out,["endfunction",[]]);
+ tmp1=["Objsurf",
+ ["Fun"+nm,tmp2,tmp4,div1,div2,side]];
+ out=concat(out,tmp1);
+ tmp2=[]; // 16.06.10from
+ forall(out,tmp1,
+ if(islist(tmp1),
+ tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
+ ,
+ if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ parse("oc"+nm+"="+tmp2);
+ println("cmd seq oc"+nm+" generated"); // 16.06.10upto
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Mkobjnrm(nm,fd):=Mkobjnrm(nm,fd,[]);
+Mkobjnrm(nm,fd,optionorg):=(
+//help:Mkobjnrm("1",fd1,["Disp=y"]);
+//help:Mkobjnrm("1","[x,y,x*y/(x^2+y^2)],x,y");
+ regional(name,options,stL,eqL,disp,ffd,fst,xst,yst,cmdL,
+ precmd,out,tmp,tmp1,tmp2,tmp3);
+ name="nrm"+nm;
+ options=select(optionorg,length(#)>0);
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ stL=tmp_7;
+ precmd=[];
+ disp="N";
+ forall(eqL, // 16.05.02
+ tmp1=Toupper(substring(#,0,1));
+ tmp=indexof(#,"=");
+ tmp2=Toupper(substring(#,tmp,tmp+1));
+ if(tmp1=="D",
+ if(tmp2=="Y" % tmp2=="T",
+ disp="Y";
+ options=remove(options,[#]);
+ );
+ );
+ );
+ forall(stL,
+ if(indexof(#,"+")+indexof(#,"-")==0,
+ precmd=concat(precmd,[#,[]]);
+ options=remove(options,[#]);
+ );
+ );
+ if(isstring(fd),
+ tmp=Indexall(fd,",");
+ fst=[
+ substring(fd,1,tmp_1-1),
+ substring(fd,tmp_1,tmp_2-1),
+ substring(fd,tmp_2,tmp_3-2)
+ ];
+ xst=substring(fd,tmp_3,tmp_4-1);
+ yst=substring(fd,tmp_4,length(fd));
+ ,
+ ffd=Fullformfunc(fd);
+ fst=text(ffd_(2..4));
+ tmp=indexof(ffd_5,"=");
+ xst=substring(ffd_5,0,tmp-1);
+ tmp=indexof(ffd_6,"=");
+ yst=substring(ffd_6,0,tmp-1);
+ );
+ cmdL=precmd;
+ cmdL=concat(cmdL,[
+ "fx:diff",[fst,xst],
+ "fy:diff",[fst,yst],
+ "nx:fx[2]*fy[3]-fx[3]*fy[2]",[],
+ "ny:fx[3]*fy[1]-fx[1]*fy[3]",[],
+ "nz:fx[1]*fy[2]-fx[2]*fy[1]",[],
+ "nn:factor(nx^2+ny^2+nz^2)",[], // 16.04.21
+ "nn:sqrt(nn)",[], // 16.04.20
+ "nx:nx/nn",[],
+ "ny:ny/nn",[],
+ "nz:nz/nn",[],
+ "n:[nx,ny,nz]",[], // 16.04.21from
+ "n:ratsimp(n)",[],
+ "n:trigsimp(n)",[],
+ "n:factor(n)",[], // 16.04.21upto
+ "n",[]
+ ]);
+ CalcbyM(name,cmdL,options); // 16.05.12
+ tmp1=parse(name); // 16.05.12
+ out=[tmp1]; // 15.04.21b from
+ tmp2=[];
+ forall(1..3,
+ tmp=indexof(tmp1,",");
+ if(tmp==0,
+ tmp=indexof(tmp1,"]");
+ );
+ tmp3=substring(tmp1,0,tmp-1);
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ tmp=indexof(tmp3,"/");
+ if(tmp>0,
+ tmp3=substring(tmp3,tmp,length(tmp3));
+ tmp2=append(tmp2,tmp3);
+ ,
+ tmp2=append(tmp2,"1");
+ );
+ );
+// out=append(out,tmp2);
+ out=out_1; // 16.05.02from
+ println("calculate "+name+":"); // 16.05.12
+ if(disp=="Y", // 16.05.02
+ println(out);
+ // println(out_2);
+ ); // 16.05.02upto
+ out;
+);
+
+Mkobjthickcmd(nm,fd):=Mkobjthickcmd(nm,fd,"",[40,40,"+"]);
+Mkobjthickcmd(nm,fd,Arg):=(
+ if(islist(Arg),
+ Mkobjthickcmd(nm,fd,"",Arg);
+ ,
+ Mkobjthickcmd(nm,fd,Arg,[]);
+ );
+);
+Mkobjthickcmd(nm,fd,fnrm,optionorg):=(
+//help:Mkobjthickcmd("1",fd,["assume(R>0)"]);
+//help:Mkobjthickcmd("1",fd,fnorm);
+//help:Mkobjthickcmd(options1=[40,40,0.05,-0.05,"+n+s+e+w+"]);
+//help:Mkobjthickcmd(options2=["ratsimp","trigsimp"]);
+ regional(options,ffd,cmd,out,div1,div2,thick1,thick2,side,
+ reL,stL,addcmd,fst,xst,yst,tmp,tmp1,tmp2,tmp3,tmp4);
+ div1=40;
+ div2=40;
+ thick1=0.05;
+ thick2=-0.05;
+ side="+n+s+e+w+";
+ options=select(optionorg,length(#)>0);
+ tmp=Divoptions(options);
+ reL=tmp_6;
+ stL=tmp_7;
+ tmp1=1; // 16.04.21from
+ tmp2=1;
+ forall(1..length(reL),
+ tmp=reL_#;
+ if(tmp>1,
+ if(tmp1==1,
+ div1=tmp;
+ div2=tmp;
+ ,
+ div2=tmp;
+ );
+ tmp1=tmp1+1;
+ ,
+ if(tmp2==1,
+ thick1=tmp;
+ thick2=-tmp;
+ ,
+ thick2=tmp;
+ );
+ tmp2=tmp2+1;
+ );
+ ); // 16.04.21upto
+ options=remove(options,reL);
+ forall(stL,
+ if(length(#)>0,
+ tmp=indexof(#,"+")+indexof(#,"-");
+ if(tmp>0,
+ side=#;
+ options=remove(options,[#]);
+ );
+ );
+ );
+ side="'"+side+"'";
+ ffd=Fullformfunc(fd);
+ tmp=indexof(ffd_5,"=");
+ tmp1=substring(ffd_5,0,tmp-1);
+ tmp2=substring(ffd_5,tmp,length(ffd_5));
+ tmp=indexof(ffd_6,"=");
+ tmp3=substring(ffd_6,0,tmp-1);
+ tmp4=substring(ffd_6,tmp,length(ffd_6));
+ fst=text(ffd_(2..4));
+ tmp=indexof(ffd_5,"=");
+ xst=substring(ffd_5,0,tmp-1);
+ tmp=indexof(ffd_6,"=");
+ yst=substring(ffd_6,0,tmp-1);
+ out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
+ tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
+ out=concat(out,[tmp,[]]);
+ out=concat(out,["endfunction",[]]);
+ tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]];
+ out=concat(out,tmp);
+ if(fnrm=="",
+ tmp=Mkobjnrm(nm,fd,options);
+ tmp1="Out="+tmp; // 16.05.17
+ tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2;
+ parse(tmp);
+ ,
+// tmp1=" Out="+fnrm; // 16.04.30
+ tmp1=fnrm; // 16.04.30
+ if(indexof(tmp1,"Out=")==0, // 16.05.09from
+ tmp1="Out="+tmp1;
+ ); // 16.05.09upto
+ );
+ out=concat(out,[tmp1,[]]);
+ out=concat(out,["endfunction",[]]);
+ tmp1=["Objthicksurf",
+ ["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]];
+ out=concat(out,tmp1);
+ tmp2=[]; // 16.06.10from
+ forall(out,tmp1,
+ if(islist(tmp1),
+ tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
+ ,
+ if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ parse("oc"+nm+"="+tmp2);
+ println("cmd seq oc"+nm+" generated"); // 16.06.10upto
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Mkobjpolycmd(nm,pd):=Mkobjpolycmd(nm,pd,[]);
+Mkobjpolycmd(nm,pd,optionorg):=(
+//help:Mkobjpolycmd("1",pd);
+//help:Mkobjpolycmd(options1=[internal([0,0,0])]);
+ regional(options,cmd,out,thick1,thick2,origin,
+ reL,stL,vtx,face,pt1,pt2,pt3,tmp,tmp1,tmp2);
+ thick1=0;
+ thick2=-0;
+ origin=[0,0,0];
+ options=select(optionorg,length(#)>0);
+ tmp=Divoptions(options);
+ reL=tmp_6;
+ stL=tmp_7;
+ tmp1=1;
+ forall(1..length(reL),
+ tmp=reL_#;
+ if(islist(tmp),
+ origin=tmp;
+ ,
+ if(tmp1==1,
+ thick1=tmp;
+ thick2=-tmp;
+ ,
+ thick2=tmp;
+ );
+ tmp1=tmp1+1; // 16.07.08
+ );
+ );
+ options=remove(options,reL);
+ forall(stL,
+ tmp=indexof(#,"+")+indexof(#,"-");
+ if(tmp>0,
+ side=#;
+ options=remove(options,[#]);
+ );
+ );
+ vtx=pd_1; //16.04.23from
+ if(length(pd)==2,face=pd_2,face=pd_3);
+ if(isstring(vtx),vtx=parse(vtx));
+ vtx=apply(vtx,if(isstring(#),parse(#),#)); // 16.06.18
+ if(isstring(face),face=parse(face));
+ forall(1..length(face),
+ tmp=face_#;
+ pt1=vtx_(tmp_1);// 16.06.18
+ pt2=vtx_(tmp_2);// 16.06.18
+ pt3=vtx_(tmp_(length(tmp)));// 16.06.18
+ tmp1=Crossprod(pt2-pt1,pt3-pt1);
+ tmp2=Dotprod(tmp1,pt1-origin);
+ if(tmp2<0,
+ face_#=reverse(face_#);
+ );
+ );
+ out=["Objpolyhedron",[vtx,face]];
+ tmp2=[]; // 16.06.10from
+ forall(out,tmp1,
+ if(islist(tmp1),
+ tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
+ ,
+ if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ parse("oc"+nm+"="+tmp2);
+ println("cmd seq oc"+nm+" generated"); // 16.06.10upto
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Mkobjplatecmd(nm,pd):=Mkobjplatecmd(nm,pd,[]);
+Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18
+//help:Mkobjplatecmd("1",pd);
+//help:Mkobjplatecmd("1",vtxlist);
+//help:Mkobjplatecmd(options1=[0.05,-0.05]);
+ regional(pd,options,cmd,out,thick1,thick2,nn,pdn,
+ reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3);
+ pd=pdorg;
+ if(MeasureDepth(pd)==1,pd=[pd]);
+ if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from
+ forall(1..length(pd),nn, // 16.06.19from
+ pdn=pd_nn;
+ vtx=pdn_1;
+ if(length(pdn)==1,face=[1..(length(vtx))],face=pdn_2);
+ vtx=apply(vtx,if(isstring(#),parse(#),#));
+ vtx=apply(vtx,if(ispoint(#),parse(text(#)+"3d"),#));
+ pd_nn=[vtx,face];//16.10.04upto
+ ); // 16.06.19upto
+ thick1=0.05;
+ thick2=-0.05;
+ options=select(optionorg,length(#)>0);
+ tmp=Divoptions(options);
+ reL=tmp_6;
+ tmp1=1;
+ forall(1..length(reL),
+ tmp=reL_#;
+ if(tmp1==1,
+ thick1=tmp;
+ thick2=-tmp;
+ ,
+ thick2=tmp;
+ );
+ tmp1=tmp1+1;// 16.07.08
+ );
+ options=remove(options,reL);
+ out=[];
+ forall(1..length(pd),npd,
+ forall(pd_npd_2,face,
+ vtx=apply(face,pd_npd_1_#);
+ npt=length(vtx);
+ tmp1=vtx_1;
+ tmp2=vtx_2;
+ tmp3=vtx_npt;
+ tmp=Crossprod(tmp2-tmp1,tmp3-tmp1);
+ nv=tmp/Dist3d(tmp);
+ tmp1=apply(vtx,#+thick1*nv);
+ tmp2=apply(vtx,#+thick2*nv);
+ vtx=concat(tmp1,tmp2);
+ tmp=apply(1..npt,#+npt);
+ tmp2=[1..npt,reverse(tmp)];
+ tmp=apply(1..(npt-1),[#,#+npt,#+npt+1,#+1]);
+ tmp2=concat(tmp2,tmp);
+ tmp=[npt,npt+npt,1+npt,1];
+ tmp2=append(tmp2,tmp);
+ out=concat(out,["Objpolyhedron",[vtx,tmp2]]);
+ );
+ );
+ tmp3="["; // 16.06.10from
+ forall(out,tmp1,
+ tmp2="";
+ if(isstring(tmp1),
+ tmp2=tmp2+Dq+tmp1+Dq+",[";
+ ,
+ tmp2=tmp2+Textformat(tmp1_1,5)+",";
+ tmp2=tmp2+Textformat(tmp1_2,5)+"],";
+ );
+ tmp3=tmp3+tmp2;
+ );
+ tmp3=substring(tmp3,0,length(tmp3)-1)+"]";
+ parse("oc"+nm+"="+tmp3);
+ println("cmd seq oc"+nm+" generated");
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Mkobjcrvcmd(nm,pst):=Mkobjcrvcmd(nm,pst,[]);
+Mkobjcrvcmd(nm,pstorg,options):=(
+//help:Mkobjcrvcmd("1","sc3d1",[0.02,6,"xy"]);
+ regional(cmd,out,thick,poly,dir,phead,pst,
+ reL,stL,tmp,tmp1,tmp2,tmp3,tmp4,flg);
+ thick=0.02;
+ poly=6;
+ dir="xy";
+ tmp=Divoptions(options);
+ reL=tmp_6;
+ stL=select(tmp_7,length(#)>0);
+ forall(1..length(reL),
+ if(#==1,
+ thick=reL_1;
+ ,
+ poly=reL_2;
+ );
+ );
+ forall(stL,
+ dir=#;
+ );
+ dir="'"+dir+"'";
+ tmp=indexof(pstorg,"_");
+ if(tmp==0,
+ phead=pstorg;
+ ,
+ phead=substring(pstorg,0,tmp-1);
+ );
+ pst=pstorg;
+ out=[];
+ tmp1=select(GLIST,indexof(#,phead+"=")>0);
+ if(length(tmp1)==0, println(phead+" incorrect"));
+// out=[tmp1_1,[]];
+ out=[];
+ tmp1=parse(pst);
+ flg=0; // 16.04.23from
+ if(MeasureDepth(tmp1)==2,flg=1);
+ if(MeasureDepth(tmp1)==0,
+ if(islist(tmp1),flg=1);
+ );
+ if(flg==1, // 16.04.23upto
+ if(!isstring(tmp1_1),
+ forall(1..length(tmp1),
+ tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]];
+ out=concat(out,tmp);
+ );
+ ,
+ forall(1..length(tmp1), // 16.11.14from
+ tmp=["Objcurve",[tmp1_#,thick,poly,dir]];
+ out=concat(out,tmp);
+ );// 16.11.14upto
+ );
+ ,
+ tmp1=Chunderscore(pst);
+ tmp=["Objcurve",[tmp1,thick,poly,dir]];
+ out=concat(out,tmp);
+ );
+ tmp2=[]; // 16.06.10from
+ forall(out,tmp1,
+ if(islist(tmp1),
+ tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
+ ,
+ if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ parse("oc"+nm+"="+tmp2);
+ println("cmd seq oc"+nm+" generated"); // 16.06.10upto
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Mkobjsymbcmd(symb,size,rot,dir,pos):=
+ Mkobjsymbcmd("",symb,size,rot,dir,pos,[]);
+Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6):=(
+ if(isstring(Ar2),
+ Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6,[]);
+ ,
+ Mkobjsymbcmd("",Ar1,Ar2,Ar3,Ar4,Ar5,Ar6);
+ );
+);
+Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
+//help:Mkobjsymbcmd("x",0.5,0,V3d,A3d);
+//help:Mkobjsymbcmd("P",0.5,0,V3d,A3d);
+//help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]);
+ regional(symb,options,opbez,eqL,reL,stL,dtL,dt,
+ alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2);
+ alpha="abcdefghijklmnopqrstuvwxyz";
+ Alpha=Toupper(alpha);
+ symb=symborg;
+ options=optionorg;
+ opbez=["nodisp"];
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ stL=tmp_7;
+ opbez=concat(opbez,eqL);
+ options=remove(options,eqL);
+ tmp1=[0.05,4,"'yz'"];
+ if(length(reL)==0,
+ options=concat(options,tmp1_(1..2));
+ );
+ if(length(reL)==1, // debugged 16.06.18
+ options=concat(options,[tmp1_2]);
+ );
+ if(length(stL)==0,
+ options=concat(options,[tmp1_3]);
+ );
+ tmp=parse(symb);
+ if(islist(tmp),
+ tmp1=select(GLIST,substring(#,0,length(symb))==symb);
+ tmp1=tmp1_1;
+ out=[tmp1,[]];
+ dtL=symb;
+ ,
+ tmp=substring(symb,0,1);
+ if(tmp>="a" & tmp<="z",tmp1=tmp+"s");
+ if(tmp>="A" & tmp<="Z",
+ tmp=indexof(Alpha,tmp);
+ tmp=substring(alpha,tmp-1,tmp);
+ tmp1=tmp+"c";
+ );
+ if(length(symb)==1,
+ if(symb>"Z",
+ symb=tmp1+"i";
+ ,
+ symb=tmp1+"r";
+ );
+ );
+ if(length(symb)==2,symb=tmp1+substring(symb,1,2));
+ out=[];
+ if(length(path)>0, // 16.04.23from
+ setdirectory(path);
+ ,
+// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF";
+ tmp=Dirhead+"/data/fontF"; // 16.05.10
+ setdirectory(tmp);
+ ); // 16.04.23upto
+ dtL=Readbezier(symb,opbez);
+ setdirectory(Dirwork);
+ forall(dtL,dt,
+ tmp=dt+"=";
+ tmp1=select(GLIST,indexof(#,tmp)>0);
+ tmp1=tmp1_1;
+ out=concat(out,[tmp1,[]]);
+ );
+ mx=100;Mx=-100;my=100;My=-100;
+ forall(dtL,dt,
+ tmp=apply(parse(dt),#_1);
+ mx=min(append(tmp,mx));
+ Mx=max(append(tmp,Mx));
+ tmp=apply(parse(dt),#_2);
+ my=min(append(tmp,my));
+ My=max(append(tmp,My));
+ );
+ center=[(mx+Mx)/2,(my+My)/2];
+ tmp1=[];
+ forall(dtL,dt,
+ Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23
+ Translatedata(dt,"rt"+dt,-center,["nodisp"]);
+ tmp1=append(tmp1,"tr"+dt);
+ );
+ dtL=tmp1;
+ forall(dtL,dt,
+ tmp=dt+"=";
+ tmp1=select(GLIST,indexof(#,tmp)>0);
+ tmp1=tmp1_1;
+ out=concat(out,[tmp1,[]]);
+ );
+ );
+ tmp1=text(options);
+ tmp1=substring(tmp1,1,length(tmp1)-1);
+ out=concat(out,[
+ "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23
+ "Objsymb(Sd,"+tmp1+")",[]
+ ]);
+ tmp2=[]; // 16.06.10from
+ forall(out,tmp1,
+ if(islist(tmp1),
+ tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
+ ,
+ if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
+ );
+ tmp2=append(tmp2,tmp);
+ );
+ parse("oc"+symborg+"="+tmp2);
+ println("cmd seq oc"+symborg+" generated"); // 16.06.10upto
+ OBJCMD=concat(OBJCMD,out);//16.11.29
+ out;
+);
+
+Concatcmd(cmdlist):=(
+//help:Concatcmd([cmdL1,cmdL2]);
+ regional(out);
+ out=[];
+ forall(cmdlist,
+ out=concat(out,#);
+ );
+ out;
+);
+
+WritetoF(fname,cmdL):=(
+// help:WritetoF("outdata",cmdL);
+ regional(tmp,tmp1,tmp2,filename,wfilename);
+ if(indexof(fname,".")==0,
+ filename=fname+".input";
+ ,
+ filename=fname;
+ );
+ wfilename=replace(filename,".input",".txt");
+ SCEOUTPUT = openfile(filename);
+ forall(1..(length(cmdL)),
+ tmp1=cmdL_#;
+ if(substring(tmp1,0,1)=="[",
+ tmp1=tmp1+" --##";
+ println(SCEOUTPUT,tmp1);
+ ,
+ println(SCEOUTPUT,tmp1);
+ println(SCEOUTPUT," --##");
+ );
+ );
+ closefile(SCEOUTPUT);
+);
+
+kcF(fname):=kcF(fname,[]);
+kcF(fname,optionorg):=(
+ regional(options,tmp,tmp1,tmp2,eqL,strL,
+ filename,wfile,flg);
+ if(indexof(fname,".")==0,
+ filename=fname+".input";
+ ,
+ filename=fname;
+ );
+ wfile=replace(filename,".input",".sfort");
+ options=optionorg;
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=substring(#,0,tmp-1);
+ tmp2=substring(#,tmp,length(#));
+ );
+ flg=0;
+ forall(strL,
+ if(Toupper(substring(#,0,1))=="R",
+ flg=0;
+ options=remove(options,[#]);
+ );
+ if(Toupper(substring(#,0,1))=="M",
+ flg=1;
+ );
+ );
+ if(flg==0,
+ tmp2=replace(filename,".input",".sfort");
+ tmp1=load(tmp2);
+ if(length(tmp1)==0,
+ flg=1;
+ );
+ );
+ if(flg==1,
+ tmp1="";
+ if(iswindows(),
+ tmp2=Batparent;
+ ,
+ tmp2=Shellparent;
+ );
+ flg=0;
+ forall(reverse(1..length(tmp2)),
+ if(flg==0,
+ tmp=substring(tmp2,#-1,#);
+ if(tmp=="/" % tmp=="\", // 14.01.15
+ tmp1=substring(tmp2,0,#-1);
+ tmp2=substring(tmp2,#,length(tmp2));
+ flg=1;
+ );
+ );
+ );
+ if(length(tmp1)>0,
+ setdirectory(tmp1);
+ );
+ if(iswindows(),
+// SCEOUTPUT=openfile(wfile);
+// println(SCEOUTPUT,"");
+// closefile(SCEOUTPUT);
+ SCEOUTPUT = openfile("kc.bat");
+ tmp=Dq+PathF+"\bash"+Dq+" --login -i -c "+Dq+"/cygdrive/";
+ tmp1=replace(Dirwork,"\","/");
+ if(indexof(tmp1,":")==0,
+ tmp=tmp+"c/"+tmp1+"/kc.sh"+Dq;
+ ,
+ tmp1=replace(tmp1,":","");
+ tmp=tmp+tmp1+"/kc.sh"+Dq;
+ );
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ SCEOUTPUT = openfile("kc.sh");
+ Lf=unicode("10",base->10);
+ print(SCEOUTPUT,"#!/bin/sh"+Lf);
+ tmp1=replace(Dirwork,"\","/");
+ if(indexof(tmp1,":")==0,
+ tmp="cd "+Dq+"/cygdrive/c/"+tmp1+Dq;
+ ,
+ tmp1=replace(tmp1,":","");
+ tmp="cd "+Dq+"/cygdrive/"+tmp1+Dq;
+ );
+ print(SCEOUTPUT,tmp+Lf);
+ tmp=Dq+"/opt/fricas/bin/fricas";
+ tmp=tmp+Dq+" -nox -eval ";
+ tmp=tmp+Dq+")read "+filename+Dq;
+// tmp=tmp+" > "+Dq+wfile+Dq;
+ print(SCEOUTPUT,tmp+Lf);
+ print(SCEOUTPUT,"exit 0"+Lf);
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=Dq+PathF+Dq+" -nox -eval "+Dq+")read "+filename+Dq;
+// tmp=tmp+" > "+wfile;
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
+ );
+ setdirectory(Dirwork);
+ );
+);
+
+CalcbyF(name,cmd):=CalcbyM(name,cmd,[]);
+CalcbyF(name,cmd,optionorg):=(
+//help:CalcbyF("a",cmdL);
+//help:CalcbyF(options= ["m/r","Wait=5"]]);
+ regional(options,tmp,tmp1,tmp2,tmp3,tmp4,strL,eqL,
+ flg,wflg,file,nc,arg,cmdF,cmdlist,wfile,Alpha,
+ waiting,num,dig,varlist);
+ options=optionorg;
+ tmp=divoptions(options);
+ eqL=tmp_5;
+ strL=tmp_7;
+ waiting=5;
+ dig=5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="W",
+ waiting=parse(tmp2);
+ options=remove(options,[#]);
+ );
+ );
+ file=Fhead+name+".input";
+ wfile=Fhead+name+".sfort";
+ wflg=0;
+ forall(strL,
+ tmp=Toupper(substring(#,0,1));
+ if(tmp=="M",
+ wflg=1;
+ options=remove(options,[#]);
+ );
+ if(tmp=="R",
+ wflg=-1;
+ options=remove(options,[#]);
+ );
+ );
+ cmdF=cmd;
+ tmp1=")set breakmode quit";
+ tmp2=")set output fortran on";
+ tmp3=")set fortran precision single";
+ cmdlist=[tmp1,tmp2,tmp3];
+ tmp=")set output fortran "+wfile;
+ cmdlist=append(cmdlist,tmp);
+ forall(1..floor(length(cmdF)/2),nc, //17.5.18
+ tmp1=cmdF_(2*nc-1);
+ tmp1=replace(tmp1,LFmark,""); // 16.06.12
+ tmp2=cmdF_(2*nc); // list of argments
+ if(nc<length(cmdF)/2,
+ tmp3="";
+ forall(tmp2,arg,
+ if(isstring(arg),
+ tmp3=tmp3+arg+",";
+ ,
+ tmp3=tmp3+textformat(arg,dig)+",";
+ );
+ );
+ if(length(tmp3)>0,
+ tmp3=tmp1+
+ "("+substring(tmp3,0,length(tmp3)-1)+")";
+ ,
+ tmp3=tmp1;
+ );
+ cmdlist=append(cmdlist,tmp3);
+ ,
+ if(indexof(tmp1,"::")==0,
+ varlist=[tmp1];
+ ,
+ varlist=tokenize(tmp1,"::");
+ );
+ forall(varlist,
+ cmdlist=append(cmdlist,"["+#+"]");
+ );
+ );
+ );
+ cmdlist=concat(cmdlist,["111111*1",")quit"]);
+ if(wflg==0,
+ tmp1=load(file);
+ if(length(tmp1)==0,
+ wflg=1;
+ ,
+ if(indexof(tmp1," --##")==0, // 15.11.26
+ wflg=1;
+ ,
+ tmp1=tokenize(tmp1," --##");
+ tmp1=tmp1_(1..(length(tmp1)-1));
+ if(length(tmp1)!=length(cmdlist),
+ wflg=1;
+ ,
+ tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
+ if(length(tmp)>0, wflg=1);
+ );
+ );
+ );
+ );
+ if(wflg==0,wflg=-1);
+ if(wflg==1,
+ if(length(wfile)>0,
+ SCEOUTPUT=openfile(wfile);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ );
+ WritetoF(file,cmdlist);
+ kcF(file,concat(options,["m"]));
+ );
+ Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+ flg=0;
+ tmp1=floor(waiting*1000/WaitUnit);
+ repeat(tmp1,
+ if(flg==0,
+ tmp1=load(wfile);
+ if(wflg==1,wait(WaitUnit));
+ tmp=indexof(tmp1,"Error")+indexof(tmp1,"find");
+ if(tmp>0,
+ println("Some error(s) occurred");
+ tmp=tokenize(tmp1," --##");
+ forall(tmp,
+ if(indexof(#,"Error")+indexof(#,"find")>0,
+ println(tmp_(length(tmp)));
+ );
+ );
+ flg=2;
+ );
+ if(indexof(tmp1,"111111")>0,
+ tmp1=replace(tmp1," &","");
+ tmp3="[";
+ forall(1..length(varlist),
+ tmp=indexof(tmp1,"["+varlist_#+"]");
+ tmp1=substring(tmp1,tmp,length(tmp1));
+ tmp=indexof(tmp1,"(1)=");
+ tmp1=substring(tmp1,tmp+3,length(tmp1));
+ tmp=indexof(tmp1," ");
+ tmp3=tmp3+Dq+substring(tmp1,0,tmp-1)+Dq+",";
+ );
+ tmp3=replace(tmp3,"**","^");
+ tmp3=replace(tmp3,".0","");
+ tmp4="";
+ forall(1..length(tmp3),
+ tmp=substring(tmp3,#-1,#);
+ tmp1=indexof(Alpha,tmp);
+ if(tmp1>0,
+ tmp4=tmp4+unicode(text(tmp1+96),base->10);
+ ,
+ if(tmp==" " % tmp=="&",
+ ,
+ tmp4=tmp4+tmp;
+ );
+ );
+ );
+ tmp=name+"="+substring(tmp4,0,length(tmp4)-1)+"]";
+ parse(tmp);
+ tmp=parse(name);
+ if(length(tmp)==1,
+ tmp1=substring(tmp4,1,length(tmp3)-1);
+ parse(name+"="+tmp1);
+ );
+ flg=1;
+ tmp2=#*WaitUnit/1000;
+ ,
+ if(wflg==-1,
+ flg=-1;
+ ,
+ wait(WaitUnit);
+ );
+ );
+ );
+ );
+ if(flg<=0,
+ if(flg==-1,
+ println(wfile+" does not exist");
+ ,
+ tmp="("+text(waiting)+" s )";
+ tmp1=load(wfile);
+ if(length(tmp1)>0,
+ println(wfile+" incomplete"+tmp); // 2016.02.24
+ ,
+ println(wfile+" not generated "+tmp);
+ );
+ );
+ ,
+ if(flg==1,
+ println(" Succeeded "+name+" ("+text(tmp2)+" sec)");
+ );
+ );
+);
+
+Frfun(name,fun,argL):=Frifun(name,fun,argL,[]);
+Frfun(name,fun,argL,optionorg):=Frifun(name,fun,argL,optionorg);
+Frifun(name,fun,argL):=Frifun(name,fun,argL,[]);
+Frifun(name,fun,argL,optionorg):=(
+//help:Frfun("1","integrate",["sin(x)^3","x"],[""]);
+//help:Mxfun(options=["Disp=y"]);
+ regional(nm,options,eqL,disp,cmdL,tmp,tmp1,tmp2);
+ nm="fri"+name;
+ options=optionorg;
+ tmp=divoptions(options);
+ disp=1;
+ eqL=tmp_5;
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,3));
+ tmp2=substring(#,tmp,length(#));
+ if((tmp1=="DIS") % (tmp1=="DSP") ,
+ tmp=Toupper(substring(tmp2,0,1));
+ if((tmp=="F") % (tmp=="N"),
+ disp=0;
+ );
+ options=remove(options,[#]);
+ );
+ );
+ cmdL=[];
+ cmdL=concat(cmdL,[
+ "ans"+":="+fun,argL,
+ "ans",[]
+ ]);
+ CalcbyF(nm,cmdL,options);
+ if(disp==1, // 15.11.24
+ println(nm+" is : ");
+ println(parse(nm));
+ );
+ parse(nm);
+);
+
+Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06
+Mkketcindyjs(Arg):=(
+ if(isstring(Arg),
+ Mkketcindyjs(Arg,[])
+ ,
+ Mkketcindyjs("ketcindylib",Arg)
+ );
+);
+Mkketcindyjs(libname,options):=(
+//help:Mkketcindyjs();
+//help:Mkketcindyjs(options="Tex=y","Net=y"]);
+ regional(texflg,netflg,tmp,tmp1,tmp2);
+ texflg="Y";
+ netflg="Y";
+ forall(options,
+ tmp1=Toupper(#);
+ if(indexof(tmp1,"TEX")>0,
+ tmp=indexof(tmp1,"=");
+ texflg=Toupper(substring(tmp1,tmp,tmp+1));
+ );
+ if(indexof(tmp1,"NET")>0,
+ tmp=indexof(tmp1,"=");
+ netflg=Toupper(substring(tmp1,tmp,tmp+1));
+ );
+ );
+ SCEOUTPUT = openfile(Fhead+".sce");
+ println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');");
+ println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');");
+ println(SCEOUTPUT,"cd('"+Dirwork+"');");
+ println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');");
+ println(SCEOUTPUT,"Qt=char(34);");
+ // 17.09.10from
+ println(SCEOUTPUT,
+ "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];");
+ println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];");
+ println(SCEOUTPUT,"Dthead=[];");
+ println(SCEOUTPUT,"for I=1:size(Dtjs,1)");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then");
+ println(SCEOUTPUT," Tmp=Dtjs(I,:);");
+ if(netflg=="N",
+ println(SCEOUTPUT,
+ " if length(strindex(Tmp,'link rel='))>0 then");
+ println(SCEOUTPUT,
+ " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';");
+ println(SCEOUTPUT,
+ " end;");
+ println(SCEOUTPUT,
+ " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then");
+ println(SCEOUTPUT,
+ " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';");
+ println(SCEOUTPUT,
+ " Tmp=Tmp+'</script>';");
+ println(SCEOUTPUT,
+ " end;");
+ );
+ println(SCEOUTPUT," Dthead=[Dthead;Tmp];");
+ println(SCEOUTPUT," else");
+ println(SCEOUTPUT," Is=I;break");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"Dt=[];");
+ println(SCEOUTPUT,"for I=Is:size(Dtjs,1)");
+ println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then");
+ println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;");
+ println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;");
+ println(SCEOUTPUT," Dt=[];");
+ println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then");
+ println(SCEOUTPUT," Ie=I+1;break;");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT," end;");
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];");
+ println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);");
+ println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
+ println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
+ if(texflg=="Y",
+ println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then");
+ println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];");
+ println(SCEOUTPUT," end;");
+ );
+ println(SCEOUTPUT,"end;");
+ println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');");
+ // 17.09.10upto
+ println(SCEOUTPUT,"quit()");
+ closefile(SCEOUTPUT);
+ kcS(PathS,Fhead+".sce",["m"]);
+);
+
+Cheader():=Cheader(FdC,FheadC+"header.h");
+Cheader(fdc,fname):=(
+ regional(tmp,tmp1,tmp2,j, dW,dE,dS,dN,dstr,
+ DsizeLL,DsizeL,DsizeM,DsizeS,Eps,Eps1,Eps2,Eps3);
+ Mdv=50; Ndv=50;
+ DsizeLL=15000; DsizeL=1500; DsizeM=500; DsizeS=200;
+ Eps=0.00001; Eps1=0.05; Eps2=0.2; Eps3=1;
+ SCEOUTPUT = openfile(fname);
+ tmp=indexof(fdc_2,"=");
+ tmp1=substring(fdc_2,tmp,length(fdc_2));
+ tmp1=replace(tmp1,"[","{");
+ tmp1=replace(tmp1,"]","}");
+ tmp=indexof(fdc_3,"=");
+ tmp2=substring(fdc_3,tmp,length(fdc_3));
+ tmp2=replace(tmp2,"[","{");
+ tmp2=replace(tmp2,"]","}");
+ tmp="const double Urng[2]="+tmp1+", Vrng[2]="+tmp2;
+ println(SCEOUTPUT,tmp+";");
+ tmp="const double XMIN="+Sprintf(XMIN,6);
+ tmp=tmp+",XMAX="+Sprintf(XMAX,6);
+ println(SCEOUTPUT,tmp+";");
+ tmp="const double THETA="+Sprintf(THETA,6);
+ tmp=tmp+",PHI="+Sprintf(PHI,6);
+ println(SCEOUTPUT,tmp+";");
+ tmp=" //THETA:"+Sprintf(THETA*180/pi,2);
+ tmp=tmp+", PHI:"+Sprintf(PHI*180/pi,2);
+ println(SCEOUTPUT,tmp+";");
+ dstr=fdc_4;
+ if(indexof(dstr,"w")>0,dW=1,dW=0);
+ if(indexof(dstr,"e")>0,dE=1,dE=0);
+ if(indexof(dstr,"s")>0,dS=1,dS=0);
+ if(indexof(dstr,"n")>0,dN=1,dN=0);
+ tmp="const int DrawW="+text(dW)+", DrawE="+text(dE);
+ tmp=tmp+", DrawS="+text(dS)+", DrawN="+text(dN);
+ println(SCEOUTPUT,tmp+";");
+ forall(j=5..(length(fdc)),
+ tmp=fdc_#; //17.05.21from
+ if(length(tmp)==2,
+ if(tmp_1>1, //17.05.24from
+ Mdv=tmp_1; Ndv=tmp_2;
+ ,
+ if(length(tmp_1)>0, Eps1=tmp_1);
+ if(length(tmp_1)>0, Eps2=tmp_2);
+ ); //17.05.24upto
+ );
+ if(length(tmp)==3,
+ if(length(tmp_1)>0, DsizeLL=tmp_1);//17.06.09(3lines)
+ if(length(tmp_2)>0, DsizeL=tmp_2);
+ if(length(tmp_3)>0, DsizeM=tmp_3);
+ );
+ if(length(tmp)==4,
+ if(min(tmp)<1,
+ if(length(tmp_1)>0, Eps=tmp_1);
+ if(length(tmp_2)>0, Eps1=tmp_2);
+ if(length(tmp_3)>0, Eps2=tmp_3);
+ if(length(tmp_4)>0, Eps3=tmp_4);
+ ,
+ if(length(tmp_1)>0, DsizeLL=tmp_1);
+ if(length(tmp_2)>0, DsizeL=tmp_2);
+ if(length(tmp_3)>0, DsizeM=tmp_3);
+ if(length(tmp_4)>0, DsizeS=tmp_4);
+ )
+ );//17.05.21upto
+ );
+ tmp1=text(fdc_5_1);
+ tmp2=text(fdc_5_2);
+ tmp="const int Mdv="+text(Mdv)+", Ndv="+text(Ndv);
+ println(SCEOUTPUT,tmp+";");
+ tmp="#define DsizeLL "+text(DsizeLL);//17.05.21
+ println(SCEOUTPUT,tmp);
+ tmp="#define DsizeL "+text(DsizeL);
+ println(SCEOUTPUT,tmp);
+ tmp="#define DsizeM "+text(DsizeM);
+ println(SCEOUTPUT,tmp);
+ tmp="#define DsizeS "+text(DsizeS);
+ println(SCEOUTPUT,tmp);
+ tmp="const double Eps="+format(Eps,7);
+ tmp=tmp+", Eps1="+format(Eps1,7);
+ tmp=tmp+", Eps2="+format(Eps2,7);
+ tmp=tmp+", Eps3= "+format(Eps3,7);
+ println(SCEOUTPUT,tmp+";");
+ tmp="void surffun(double u, double v, double pt[3]){";
+ println(SCEOUTPUT,tmp);
+ forall(fdc_1,
+ tmp1=replace(#,"x=","pt[0]=");
+ tmp1=replace(tmp1,"y=","pt[1]=");
+ tmp1=replace(tmp1,"z=","pt[2]=");
+ println(SCEOUTPUT," "+tmp1+";");
+ );
+ println(SCEOUTPUT,"}");
+ closefile(SCEOUTPUT);
+);
+
+Cmain():=Cmain(FheadC+".c",MainC);
+Cmain(fname,cmdLorg):=(
+//help:MainC(writesfbd("sfbd");)
+//help:MainC(writeax("ax");)
+//help:MainC(writewire("wire" (,2), [10,10]);)
+//help:MainC(writewire("wire", [[0.5,1],[0,1,2]]]);)
+//help:MainC(writecut("sfcut","x+y+2*z-4");)
+//help:MainC(writesc("sl3d1");)
+//help:MainC(skeleton("sk",[objlist],[pltlist] (,width));)
+//help:MainC(writewire ptincrease (=2) are optional);)
+ regional(cmdL, tmp,tmp1,tmp2,tmp3,tmp4,nL, nn,kk,jj, num, en,cmd,
+ ax1,ax2,ax3,path, var,varh,file,fileh, flg, cutctr);
+ path=Dirwork+"/"; //17.05.29from
+ path=replace(path,"\","/");
+ cmdL=cmdLorg;// 17.05.26from
+ nL=select(1..(length(cmdL)),cmdL_#=="writeax");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
+ tmp=tmp2_1; // 17.06.08(5lines)
+ if(substring(tmp,length(tmp)-2,length(tmp))!="3d",
+ tmp=tmp+"3d";
+ );
+ tmp1=parse(tmp);
+ tmp="axx="+textformat(tmp1_1,5);
+ parse(tmp);
+ tmp="axy="+textformat(tmp1_2,5);
+ parse(tmp);
+ tmp="axz="+textformat(tmp1_3,5);
+ parse(tmp);
+ tmp3=concat(tmp3,[
+ "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
+ "double axx[3][3], axy[3][3], axz[3][3];",[],
+ "spaceline",["axx"],
+ "spaceline",["axy"],
+ "spaceline",["axz"],
+ tmp2_1+"[0][0]=0;",[],
+ "appendd3(2,1,2,axx,"+tmp2_1+");",[],
+ "appendd3(2,1,2,axy,"+tmp2_1+");",[],
+ "appendd3(2,1,2,axz,"+tmp2_1+");",[],
+ "writecrv",[tmp2_1,tmp2_2] //17.06.07
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writesc");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==1,
+ tmp2=[tmp2_1,"Surf"];
+ );
+ tmp3=concat(tmp3,[
+ "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
+ "double "+tmp2_1+"h[DsizeL][3];",[],
+ "spaceline",[tmp2_1],
+ "writecrv",[tmp2_1,tmp2_2] //17.06.07
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writesfbd");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
+ var=Dq+tmp2_1+"3d"+Dq;
+ varh=Dq+tmp2_1+"h3d"+Dq;
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ fileh=Dq+path+FheadC+tmp2_1+"h.txt"+Dq;
+ tmp="Borderhiddendata";
+ tmp3=concat(tmp3,[
+ "double "+tmp2_1+"[DsizeL][3];",[], //17.06.09(6lines)
+ "sfbdparadata",[tmp2_1],
+ "output3h",[var, varh,file,tmp2_1],
+ "dataindexd3",[3,tmp2_1,"din"],
+ tmp2_2+"[0][0]=0;",[],
+ "appendd3",[2,"din[1][0]","din[1][1]",tmp2_1,tmp2_2]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writecrv");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
+ var=Dq+tmp2_1+"3d"+Dq;
+ varh=Dq+tmp2_1+"h3d"+Dq;
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ tmp3=concat(tmp3,[
+ "crvsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
+ tmp2_1+"[0][0]=0;",[], //17.06.09(3lines)
+ "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
+ "output3h",[var, varh, file,tmp2_1]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writescrvonsf");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
+ var=Dq+tmp2_1+"3d"+Dq;
+ varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(8lines)
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ tmp3=concat(tmp3,[
+ "double "+tmp2_1+"[DsizeL][3];",[],
+ " crv3onsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
+ tmp2_1+"[0][0]=0;",[],
+ "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
+ "output3h",[var,varh, file ,tmp2_1]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writecut");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ cutctr=0;
+ forall(1..(length(nL)),
+ cutctr=#;
+ tmp2=cmdL_(nL_#+1);
+ if(length(tmp2)==2,
+ tmp2=[tmp2_1,"Surf",tmp2_2];
+ );
+ var=Dq+tmp2_1+"3d"+Dq;
+ varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(10lines)
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ tmp3=concat(tmp3,[
+ "cutfun",[tmp2_3],
+ "double "+tmp2_1+"[DsizeL][3];",[],
+ "sfcutdata",[text(cutctr),"out"], //17.06.02
+ "crv3onsfparadata",["out",tmp2_2,"Crvdata"],
+ tmp2_1+"[0][0]=0;",[],
+ "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
+ "output3h",[var, varh, file, tmp2_1]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );
+ nL=select(1..(length(cmdL)),cmdL_#=="writewire");
+ cmd=[];
+ if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
+ forall(1..(length(nL)),
+ tmp2=cmdL_(nL_#+1);
+ if(!isstring(tmp2_2),
+ tmp2=[tmp2_1,"Surf",tmp2_2,tmp2_3];
+ );
+ var=Dq+tmp2_1+"3d"+Dq;
+ varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ tmp4=tmp2_(length(tmp2)); num=2;
+ if(!islist(tmp4),
+ num=tmp4; tmp4=tmp2_(length(tmp2)-1);
+ );
+ if(!islist(tmp4_1),
+ tmp3=concat(tmp3,[
+ "double udv[2]={-1,"+text(tmp4_1)+"};",[]
+ ]);
+ ,
+ len=length(tmp4_1);
+ tmp="double udv["+text(len+1)+"]={"+text(len)+",";
+ forall(tmp4_1,
+ tmp=tmp+format(#,5)+",";
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+"};";
+ tmp3=concat(tmp3,[tmp,[]]);
+ );
+ if(!islist(tmp4_2),
+ tmp3=concat(tmp3,[
+ "double vdv[2]={-1,"+text(tmp4_2)+"};",[]
+ ]);
+ ,
+ len=length(tmp4_2);
+ tmp="double vdv["+text(len+1)+"]={"+text(len)+",";
+ forall(tmp4_2,
+ tmp=tmp+format(#,5)+",";
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+"};";
+ tmp3=concat(tmp3,[tmp,[]]);
+ );
+ tmp3=concat(tmp3,[
+ "double "+tmp2_1+"[DsizeLL][3];",[], //17.06.09(5lines)
+ "wireparadata",["Surf", "udv","vdv", num, "Wiredata"],
+ tmp2_1+"[0][0]=0;",[],
+ "appendd3",[0,1,"length3(Wiredata)","Wiredata",tmp2_1],
+ "output3h",[var, varh, file, tmp2_1]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(#<length(nL),
+ tmp3=cmdL_((nL_#+2)..(tmp_(#+1)-1));
+ ,
+ tmp3=cmdL_((nL_#+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );
+ );// 17.05.29upto
+ nL=select(1..(length(cmdL)),cmdL_#=="skeleton");// 17.06.05from
+ cmd=[];
+ if(length(nL)>0,
+ tmp3=cmdL_(1..(nL_1-1));
+ tmp3=concat(tmp3,["double sk[DsizeLL][3];",[]]);//17.06.13
+ ,
+ tmp3=[];
+ );
+ forall(1..(length(nL)),nn,
+ tmp2=cmdL_(nL_nn+1);
+ var=Dq+tmp2_1+"3d"+Dq;
+ file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
+ tmp3=concat(tmp3,[ //17.06.08from
+ "data[0][0]=0;",[]
+ ]);
+ forall(tmp2_2,
+ if(substring(#,length(#)-1,length(#))!="h",
+ tmp1=#;
+ tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
+ ,
+ tmp1=substring(#,0,length(#)-1);
+ tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
+ );
+ tmp3=concat(tmp3,[
+ "dataindexd3",[3,tmp1,"din"],
+ "appendd3",tmp
+ ]);
+ );
+ forall(1..(length(tmp2_3)),
+ if(substring(tmp2_3_#,length(tmp2_3_#)-1,length(tmp2_3_#))!="h",
+ tmp1=tmp2_3_#;
+ tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
+ ,
+ tmp1=substring(tmp2_3_#,0,length(tmp2_3_#)-1);
+ tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
+ );
+ tmp3=concat(tmp3,[
+ "push3",["Inf",3,0,"data"],
+ "dataindexd3",[3,tmp1,"din"],
+ "appendd3",tmp
+ ]);
+ );
+ if(length(tmp2)<=3,tmp=1,tmp=tmp2_4);
+ tmp3=concat(tmp3,[
+ "skeletondata3",["data", tmp, "Eps1","Eps2","sk"],//17.06.13
+ "output3",[var, file, 2, "sk"]
+ ]);
+ cmd=concat(cmd,tmp3);
+ if(nn<length(nL),
+ tmp3=cmdL_((nL_nn+2)..(nL_(nn+1)-1));
+ ,
+ tmp3=cmdL_((nL_nn+2)..(length(cmdL)));
+ cmdL=concat(cmd,tmp3);
+ );//17.06.08upto
+ );// 17.06.05upto
+ path=DirlibC+"/";
+ path=replace(path,"\","/");
+ cmd=[
+ "#include <stdio.h>", "#include <math.h>",
+ "#include "+Dq+FheadC+"header.h"+Dq,
+ "#include "+Dq+path+"ketcommon.h"+Dq,
+ "#include "+Dq+path+"surflibhead.h"+Dq,
+ "#include "+Dq+path+"surflib.h"+Dq,
+ "int main(void){",
+ " double out[DsizeL][3], data[DsizeLL][3];", //17.06.10
+ " int i, j, nall, din[DsizeS][2];" //17.06.09
+ ];
+// tmp=select(cmdL,#=="cutfun");
+// if(length(tmp)==0,
+ if(cutctr==0, //17.06.02
+ cmdL=prepend(["1"],cmdL);
+ cmdL=prepend("cutfun",cmdL);
+ );// 17.05.26upto
+ cutctr=0;
+ forall(1..(floor(length(cmdL))/2),nn,
+ tmp1=cmdL_(2*nn-1); tmp2=cmdL_(2*nn);
+ flg=0; // 17.05.26from
+ if(tmp1=="cutfun",
+ cutctr=cutctr+1;
+ tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);
+ tmp3=cmd_((tmp_1)..(length(cmd)));
+ cmd=cmd_(1..(tmp_1-1));
+ cmd=append(cmd,"double cutfun"+text(cutctr)+"(double u, double v){");
+ cmd=append(cmd," double p[3],val;");
+ cmd=append(cmd," surffun(u,v,p);");
+ tmp=" val="+assign(tmp2_1,["x","p[0]","y","p[1]","z","p[2]"])+";";
+ cmd=concat(cmd, [tmp," return val;", "}"]);
+ cmd=concat(cmd, tmp3);
+ flg=1;
+ );
+ if(tmp1=="xyzax3data",
+ tmp=" "+tmp1+"(";
+ tmp=tmp+textformat(tmp2_1_1_1_1,5)+",";
+ tmp=tmp+textformat(tmp2_1_1_2_1,5)+",";
+ tmp=tmp+textformat(tmp2_1_2_1_2,5)+",";
+ tmp=tmp+textformat(tmp2_1_2_2_2,5)+",";
+ tmp=tmp+textformat(tmp2_1_3_1_3,5)+",";
+ tmp=tmp+textformat(tmp2_1_3_2_3,5)+",";
+ tmp=tmp+tmp2_2+");";
+ cmd=append(cmd,tmp);
+ flg=1;
+ );
+ if(tmp1=="spaceline",
+ if(!isstring(tmp2_1),
+ println(tmp2_1+" should be assgined as a string");
+ ,
+ tmp3=parse(tmp2_1);
+ tmp=text(length(tmp3)+1);
+// cmd=append(cmd, " double "+tmp2_1+"["+tmp+"][3];");
+ tmp=text(length(tmp3));
+ cmd=append(cmd, " "+tmp2_1+"[0][0]="+tmp+";");
+ forall(1..(length(tmp3)),
+ tmp=" "+tmp2_1+"["+text(#)+"][0]="+textformat(tmp3_#_1,5)+",";
+ tmp=tmp+tmp2_1+"["+text(#)+"][1]="+textformat(tmp3_#_2,5)+",";
+ tmp=tmp+tmp2_1+"["+text(#)+"][2]="+textformat(tmp3_#_3,5)+";";
+ cmd=append(cmd,tmp);
+ );
+ );
+ flg=1;
+ );
+ if(flg==0,
+ tmp=" "+tmp1;
+ if(length(tmp2)>0,
+ tmp=tmp+"(";
+ forall(1..length(tmp2),kk,
+ if(isstring(tmp2_kk),
+ if((kk==1)&(substring(tmp1,0,5)=="write"),
+ file=path+FheadC+tmp2_kk+".txt";
+ fileh=path+FheadC+tmp2_kk+"h.txt";
+ tmp=tmp+Dq+tmp2_kk+Dq+","+Dq+file+Dq+","+Dq+fileh+Dq;
+ ,
+ tmp=tmp+tmp2_kk;
+ );
+ ,
+ if(!islist(tmp2_kk),
+ tmp=tmp+textformat(tmp2_kk,5);
+ ,
+ );
+ );
+ if(kk<length(tmp2),
+ tmp=tmp+",";
+ ,
+ tmp=tmp+");";
+ );
+ );
+ );
+ cmd=append(cmd, tmp);// 17.05.26upto
+ );
+ );
+ tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);//17.06.02from
+ tmp3=cmd_((tmp_1)..(length(cmd)));
+ cmd=cmd_(1..(tmp_1-1));
+ cmd=append(cmd,"double cutfun(int ch, double u, double v){");
+ cmd=append(cmd," double val;");
+ forall(1..cutctr,
+ tmp=text(#);
+ cmd=append(cmd," if(ch=="+tmp+"){val=cutfun"+tmp+"(u,v);}");
+ );
+ cmd=concat(cmd,[" return val;", "}"]);
+ cmd=concat(cmd, tmp3);//17.06.02upto
+ cmd=concat(cmd, [" return 0;", "}"]);
+ SCEOUTPUT = openfile(fname);
+ forall(cmd,
+ println(SCEOUTPUT,#);
+ );
+ closefile(SCEOUTPUT);
+ tmp=fileslist(Dirwork); // 17.05.20from
+ tmp=tokenize(tmp,",");
+ tmp=select(tmp,indexof(#,".txt")>0);
+ tmp=select(tmp,indexof(#,FheadC)>0);
+ forall(tmp,
+ SCEOUTPUT = openfile(#);
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ ); // 17.05.20upto
+);
+
+kcC():=kcC(FheadC);
+kcC(cname):=(
+ regional(tmp, tmp1, flg);
+ if(iswindows(),
+ SCEOUTPUT = openfile("kc.bat");
+ println(SCEOUTPUT,"set path="+Dirwork);
+ tmp=Indexall(PathC,"\");
+ if(length(tmp)==0, tmp=ndexall(PathC,"/"));
+ tmp1=substring(PathC,0,tmp_(length(tmp))-1);
+ println(SCEOUTPUT,"cd "+tmp1);
+ tmp=PathC+" %path%\"+cname+".c";
+ tmp=tmp+" -o %path%\main.exe";
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"%path%\main.exe");
+ println(SCEOUTPUT,"echo //// > %path%\resultC.txt");
+ println(SCEOUTPUT,"exit");
+ closefile(SCEOUTPUT);
+ tmp=cname+".txt";
+ println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));
+ ,
+ SCEOUTPUT = openfile("kc.sh");
+ println(SCEOUTPUT,"#!/bin/sh");
+ println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
+ tmp=PathC+" "+cname+".c -o main.out";
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"./main.out");
+ println(SCEOUTPUT,"echo //// > resultC.txt");
+ println(SCEOUTPUT,"exit 0");
+ closefile(SCEOUTPUT);
+ tmp=cname+".txt";
+ println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));
+ );
+ SCEOUTPUT=openfile("resultC.txt");
+ println(SCEOUTPUT,"");
+ closefile(SCEOUTPUT);
+ flg=0;
+ repeat(floor(10*1000/WaitUnit),
+ if(flg==0,
+ tmp1=load("resultC.txt");
+ if(substring(tmp1,0,4)=="////",
+ flg=1;
+ );
+ wait(WaitUnit);
+ );
+ );
+ if(flg==0,
+ println("Ckc not completed");
+ ,
+ println("Ckc succeeded");
+ );
+);
+
+ReadCdata(var, fname):=ReadCdata(var, fname,[]);
+ReadCdata(var, fname,options):=(
+ regional(file,dt,name,str,tmp,tmp1,opstr,gout, out3,out2);
+ if(indexof(fname,".")==0,
+ file=fname+".txt";
+ name=fname;
+ ,
+ file=fname;
+ tmp=indexof(fname,".");
+ name=substring(fname,0,tmp-1);
+ );
+ tmp=Divoptions(options);
+ opstr=tmp_8;
+ gout=ReadOutData(file);
+ GLIST=Append(GLIST,"Tmpstr=ReadOutData("+Dq+file+Dq+")");
+ if(substring(var,length(var)-1,length(var))!="h",
+ if(length(parse(gout_1))>0,
+ Projpara(var+"3d",options);
+ );
+ ,
+ if(length(parse(gout_2))>0,
+ Projpara(var+"3d",options);
+ );
+ );//17.06.16upto
+);
+
+WriteCdata(fnameorg,dataorg):=(
+//help:WriteCdata(filename, 3ddata);
+ regional(tmp,fname,data,kk,nn,pt);
+ data=dataorg;
+ if(isstring(data),data=parse(data));
+ if(MeasureDepth(data)==1,data=[data]);
+ fname=fnameorg;
+ if(indexof(fname,".")==0, fname=fname+".txt");
+ SCEOUTPUT=openfile(fname);
+ forall(1..(length(data)),kk,
+ forall(1..(length(data_kk)),nn,
+ pt=apply(1..3,Sprintf(data_kk_nn_#,5));
+ tmp=pt_1+" "+pt_2+" "+pt_3;
+ println(SCEOUTPUT,tmp);
+ );
+ if(kk<length(data),
+ println(SCEOUTPUT,"99999.00000 2.00000 0.00000");
+ );
+ );
+ closefile(SCEOUTPUT);
+);
+
+DisplayC():=DisplayC(DispC);
+DisplayC(name,options):=DisplayC([name,options]);
+DisplayC(dispc):=(
+//help:DisplayC("out",["Color=[1,0,0]");
+//help:DispC(options=["dr", "Color=[0,0,0]"])
+ regional(tmp,tmp1,cflg,var, file,options,eqL,opcindy,color);
+ forall(1..(floor(length(dispc)/2)), //17.05.18
+ var=dispc_(2*#-1); // 17.05.24
+ if(substring(var,length(var)-1,length(var))!="h",//17.06.09(5lines)
+ file=FheadC+var+".txt";
+ ,
+ file=FheadC+substring(var,0,length(var)-1)+".txt";
+ );
+ options=dispc_(2*#);
+ cflg=0;
+ tmp=Divoptions(options);//17.06.18from
+ eqL=tmp_5;
+ opcindy=tmp_9;
+ forall(eqL,
+ if(Toupper(substring(#,0,2))=="CO",
+ tmp=indexof(#,"=");
+ color=substring(#,tmp,length(#));
+ if(substring(color,0,1)=="[",
+ color=parse(color);
+ if(length(color)==3,
+ tmp1="color->"+text(color);
+ ,
+ tmp=Colorcode("rgb","cmyk",color);
+ tmp1="color->"+text(tmp);
+ );
+ options=append(options,tmp1);
+ );
+ options=remove(options,[#]);
+ cflg=1;
+ );
+ );
+ if(cflg==1,
+ Texcom("{");
+ Setcolor(color);
+ );
+ ReadCdata(var,file,options);// 17.05.24
+ if(cflg==1,
+ Texcom("}");
+ );
+ );
+);
+
+//help:end();
+
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin
index c1e3ef24..c1e3ef24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin
index 8b094651..8b094651 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin
index 2af2be64..2af2be64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin
index f4101b32..f4101b32 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin
index 3640469b..3640469b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin
index 0d68e6d0..0d68e6d0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin
index 3f243306..3f243306 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin
index 99a0cecd..99a0cecd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin
index 47ac2ac9..47ac2ac9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin
index afb1b3bc..afb1b3bc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin
index 81625f07..81625f07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin
index 1e8b41fb..1e8b41fb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin
index f146b511..f146b511 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin
index bb466f84..bb466f84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin
index 80964b1c..80964b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin
index 94cfb714..94cfb714 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin
index bee787d9..bee787d9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin
index f53ad324..f53ad324 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin
index 05a4fb2e..05a4fb2e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin
index bc02de52..bc02de52 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin
index 77aa840f..77aa840f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin
index 49978903..49978903 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin
index 5e3f28b9..5e3f28b9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin
index 426023be..426023be 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin
index 7745bccc..7745bccc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin
index d037c656..d037c656 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin
index 13e374db..13e374db 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin
index c16f84ba..c16f84ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin
index 55b15ad7..55b15ad7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin
index 9a27e094..9a27e094 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin
index 73ea5db3..73ea5db3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin
index e7a00c3e..e7a00c3e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin
index f62af795..f62af795 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin
index f73458f1..f73458f1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin
index 5960bb73..5960bb73 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin
index 1c8fd062..1c8fd062 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin
index 70566c55..70566c55 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin
index ade04624..ade04624 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
index 5c4f8404..5c4f8404 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
index 7d645929..7d645929 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
index 7f994b75..7f994b75 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
index d92d7a5a..d92d7a5a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin
index 71b24de1..71b24de1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
index 835d570f..835d570f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
index 0ecbcb1c..0ecbcb1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin
index dba77269..dba77269 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin
index b3a3f8e4..b3a3f8e4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin
index b2124b51..b2124b51 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin
index 08f82d89..08f82d89 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin
index 2fbf6adb..2fbf6adb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin
index b09e4aeb..b09e4aeb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin
index 609d057a..609d057a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin
index e6f70b1c..e6f70b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin
index 8f7d28a1..8f7d28a1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin
index e3bd11d0..e3bd11d0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin
index f0ff3ef8..f0ff3ef8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin
index a3ba57b6..a3ba57b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin
index 8ab45716..8ab45716 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin
index 70d3663e..70d3663e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin
index 03498fd7..03498fd7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin
index abf752c8..abf752c8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin
index 1a024a4d..1a024a4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin
index 589adeaf..589adeaf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin
index 7a097bea..7a097bea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin
index c4c45ddd..c4c45ddd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
index 9ac44969..9ac44969 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin
index f4bff84e..f4bff84e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin
index 69c411ef..69c411ef 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin
index 5af3db83..5af3db83 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin
index 54ce1e7c..54ce1e7c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin
index 5a081c10..5a081c10 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin
index 17e55798..17e55798 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin
index 1a6860c5..1a6860c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin
index 7fa6e7b9..7fa6e7b9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin
index e4bb3e12..e4bb3e12 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin
index a300752a..a300752a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin
index 3ed90ff9..3ed90ff9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin
index 3cae8493..3cae8493 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin
index e249a055..e249a055 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin
index f7f2e09b..f7f2e09b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin
index 003930bd..003930bd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin
index 1cc63d81..1cc63d81 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin
index 47cd3aff..47cd3aff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin
index d0ac6d1f..d0ac6d1f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin
index 0c1ff22d..0c1ff22d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin
index 0ada7614..0ada7614 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin
index 80d7fa1d..80d7fa1d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin
index f17997ae..f17997ae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin
index 4dfc5fba..4dfc5fba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin
index a445388d..a445388d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin
index 00cefe7b..00cefe7b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin
index 5efa1ba3..5efa1ba3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin
index 31de11e2..31de11e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin
index 8bc86748..8bc86748 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin
index ebb9f45e..ebb9f45e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin
index 0335b185..0335b185 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin
index 88ce57e9..88ce57e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin
index f52ad0ee..f52ad0ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin
index 5662575f..5662575f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin
index 38306a20..38306a20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin
index 3c6ed6c5..3c6ed6c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin
index deb2de0d..deb2de0d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin
index 3a87071b..3a87071b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
index de85e2a9..de85e2a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin
index 3a918b84..3a918b84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin
index 5b1846e7..5b1846e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin
index 2b895f4d..2b895f4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin
index 76baa221..76baa221 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin
index def0bb31..def0bb31 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin
index 07c0c078..07c0c078 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin
index 5dbdc7cb..5dbdc7cb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin
index dafe1e24..dafe1e24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin
index 97caac64..97caac64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin
index 70e1971c..70e1971c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin
index 21dc66a1..21dc66a1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin
index 9ccea2a3..9ccea2a3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin
index d191d41a..d191d41a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin
index 313c934d..313c934d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin
index f705d5b1..f705d5b1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin
index 3940a613..3940a613 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin
index c9ce9f14..c9ce9f14 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin
index bcaebbbd..bcaebbbd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin
index 4bc6206a..4bc6206a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin
index 51fbfbe1..51fbfbe1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin
index 0fa577df..0fa577df 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin
index fb13efa4..fb13efa4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin
index 98ddd1a4..98ddd1a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin
index 6356eaed..6356eaed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin
index 0d7bd77d..0d7bd77d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin
index 83ba3861..83ba3861 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
index 92534466..92534466 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin
index 2d013048..2d013048 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin
index 0bd11580..0bd11580 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
index 49a24e6c..49a24e6c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin
index 67316bd1..67316bd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin
index 1658b408..1658b408 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin
index 95c31670..95c31670 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin
index fcf74e3c..fcf74e3c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin
index f5ced4c3..f5ced4c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin
index 6cd9f985..6cd9f985 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin
index c41eb72e..c41eb72e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin
index ab493424..ab493424 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin
index 659d412f..659d412f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin
index f26a75b6..f26a75b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin
index 1a2a931f..1a2a931f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin
index 92c22101..92c22101 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin
index 43809cb9..43809cb9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin
index 4562fd87..4562fd87 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin
index 29800896..29800896 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin
index dc725565..dc725565 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin
index e1ab36e0..e1ab36e0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin
index 74a5a6aa..74a5a6aa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin
index 332d7968..332d7968 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin
index b188ade7..b188ade7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin
index 4c0a5b2d..4c0a5b2d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin
index d7d9f480..d7d9f480 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin
index bf51af8a..bf51af8a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin
index 80a32401..80a32401 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin
index b7f0d8cf..b7f0d8cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin
index 7bfcf7ab..7bfcf7ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin
index 2bdabcc4..2bdabcc4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin
index b692d55a..b692d55a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin
index 57a2ce6f..57a2ce6f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin
index 845d40ca..845d40ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin
index 92afe9ad..92afe9ad 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin
index a14bcc2f..a14bcc2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin
index da05430c..da05430c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin
index 18416f1c..18416f1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin
index bef4fb7d..bef4fb7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin
index 6bbe6d7d..6bbe6d7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin
index 8c215679..8c215679 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin
index e66c254e..e66c254e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin
index fb3d3b45..fb3d3b45 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin
index e1625a76..e1625a76 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin
index 2024ea60..2024ea60 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin
index c812540a..c812540a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin
index 41d69ca5..41d69ca5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin
index f10f1efc..f10f1efc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin
index 32bf34e8..32bf34e8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin
index d28e36ee..d28e36ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin
index a7078f9c..a7078f9c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin
index e4c31df3..e4c31df3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin
index f532d7ee..f532d7ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin
index ffebca84..ffebca84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin
index e7958ab9..e7958ab9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin
index d54eb52f..d54eb52f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin
index 07321262..07321262 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin
index a13d3f5f..a13d3f5f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin
index 58cef916..58cef916 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin
index 6f557a3b..6f557a3b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin
index f95c613a..f95c613a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin
index 2d1eec35..2d1eec35 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin
index ac5490d9..ac5490d9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin
index 814b8791..814b8791 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin
index d700ec69..d700ec69 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin
index ccea3366..ccea3366 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin
index c3f667e3..c3f667e3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin
index 2e3c664b..2e3c664b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin
index 1a2bbf95..1a2bbf95 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin
index 903c9029..903c9029 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin
index 5e7b5ffb..5e7b5ffb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin
index da8b1196..da8b1196 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin
index 6ac27dcb..6ac27dcb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin
index a3da7dd1..a3da7dd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin
index 8843cde4..8843cde4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin
index c0547852..c0547852 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin
index 8c11c2c2..8c11c2c2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin
index e6055b42..e6055b42 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin
index cf693dd1..cf693dd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin
index 1dce322f..1dce322f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin
index e7094eb4..e7094eb4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin
index 3a62be73..3a62be73 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin
index 2ca583e9..2ca583e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin
index 5de23ccd..5de23ccd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin
index bda03ab0..bda03ab0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin
index fbf6d134..fbf6d134 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin
index 13f43f67..13f43f67 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin
index 10ac2f07..10ac2f07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin
index cf36ca4e..cf36ca4e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin
index 4f608b89..4f608b89 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin
index 727cf4d5..727cf4d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin
index f09e463c..f09e463c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin
index c1303557..c1303557 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin
index 1003cd61..1003cd61 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin
index be3a6f13..be3a6f13 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin
index d154a0a0..d154a0a0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin
index 77a99874..77a99874 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin
index 01e1b69c..01e1b69c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin
index a4872a7f..a4872a7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin
index 1e679bfc..1e679bfc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin
index 5df6db75..5df6db75 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin
index 042a7261..042a7261 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin
index df1a3849..df1a3849 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin
index da18fb37..da18fb37 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin
index 10769324..10769324 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin
index 56a87566..56a87566 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin
index 0acb33cf..0acb33cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin
index 8d4a1b0e..8d4a1b0e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin
index f51f7599..f51f7599 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin
index 02bd0619..02bd0619 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin
index 1036fe46..1036fe46 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin
index 6cfc7b1c..6cfc7b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin
index 7bc8974d..7bc8974d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin
index dcde7e7d..dcde7e7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin
index c9678719..c9678719 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin
index aca40719..aca40719 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin
index bfdb8495..bfdb8495 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin
index 997e8178..997e8178 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin
index 1d2063bf..1d2063bf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin
index 46e49d69..46e49d69 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin
index ae62bffa..ae62bffa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin
index 3a609bc9..3a609bc9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin
index be2cbbb6..be2cbbb6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin
index 79ae6660..79ae6660 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin
index 3fe068d8..3fe068d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin
index adc5ef97..adc5ef97 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin
index ed695e7f..ed695e7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin
index 934f8764..934f8764 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin
index e417c91f..e417c91f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin
index f9fb21b4..f9fb21b4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin
index faf60668..faf60668 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin
index c0d4e9e7..c0d4e9e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin
index 44dc173e..44dc173e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin
index d6b8e988..d6b8e988 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin
index 9658e1ab..9658e1ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin
index fc39c4e1..fc39c4e1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin
index bed3747e..bed3747e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin
index bd7b7168..bd7b7168 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin
index 86ba2a9e..86ba2a9e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
index c4009953..c4009953 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
index 278af331..278af331 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin
index 5aa6fd04..5aa6fd04 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
index b22043d8..b22043d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
index 64f416d6..64f416d6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
index cd356699..cd356699 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
index 295812ba..295812ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin
index c98b95ed..c98b95ed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin
index 5a780fab..5a780fab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin
index c4a3aef7..c4a3aef7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin
index b3d2d402..b3d2d402 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin
index 5895e254..5895e254 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin
index c34f7e16..c34f7e16 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin
index 4ba4947b..4ba4947b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin
index 9c83ea64..9c83ea64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin
index 0e8bacaf..0e8bacaf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin
index b097e980..b097e980 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin
index 7a3c634c..7a3c634c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin
index ca70656e..ca70656e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin
index 66f8e6c0..66f8e6c0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin
index a2bafc2c..a2bafc2c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin
index 131297e0..131297e0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin
index a1a27f00..a1a27f00 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin
index ab4bb5ed..ab4bb5ed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin
index 74871299..74871299 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin
index e0e2dab3..e0e2dab3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin
index 4e974456..4e974456 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin
index d22ea31d..d22ea31d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin
index 0d86b601..0d86b601 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin
index 46fd7b7e..46fd7b7e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin
index f5e92c99..f5e92c99 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin
index a8140128..a8140128 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin
index be4c9157..be4c9157 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin
index 99ef9902..99ef9902 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin
index 0904029d..0904029d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin
index 7d332cfd..7d332cfd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin
index 1abdf882..1abdf882 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin
index ccfce689..ccfce689 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin
index f2e50561..f2e50561 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin
index a224f885..a224f885 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin
index 2fee3584..2fee3584 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin
index 5f360f2f..5f360f2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin
index 5aa530ec..5aa530ec 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin
index 5e76126d..5e76126d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin
index 3fd4aeda..3fd4aeda 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin
index 3262007d..3262007d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin
index a05f649a..a05f649a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin
index 1bd27535..1bd27535 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin
index 1668581e..1668581e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin
index 3acff07e..3acff07e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin
index 06515c27..06515c27 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin
index e0c9fdf2..e0c9fdf2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin
index 487a5881..487a5881 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin
index 15d7c7ea..15d7c7ea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin
index 8356c7d3..8356c7d3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin
index 8a956544..8a956544 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin
index 06813c26..06813c26 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin
index 53ef48f2..53ef48f2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin
index a4463d6f..a4463d6f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin
index 35bbb30a..35bbb30a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin
index 1c115eb9..1c115eb9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin
index 90e83be0..90e83be0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin
index 3cc76a71..3cc76a71 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin
index 51ccdf48..51ccdf48 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin
index bba8a4ee..bba8a4ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin
index 3a5e517b..3a5e517b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin
index d89801c7..d89801c7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin
index f89ae3a7..f89ae3a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin
index cc5aea83..cc5aea83 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin
index e454fb5a..e454fb5a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin
index 1749fad9..1749fad9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin
index 8613eba7..8613eba7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
index 437bdefd..437bdefd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names
index 02079ff8..02079ff8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin
index 04ec361b..04ec361b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci
index c940a543..c940a543 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin
index 9e505d61..9e505d61 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci
index 6deb302c..6deb302c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin
index fa50bd08..fa50bd08 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci
index f6ac6ef2..f6ac6ef2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin
index bbd95348..bbd95348 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
index 9073ca6e..9073ca6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin
index 99f58621..99f58621 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci
index 68dfe27c..68dfe27c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin
index dec6b519..dec6b519 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci
index 881662b1..881662b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin
index a4ad2b27..a4ad2b27 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci
index 8d9201cc..8d9201cc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin
index c6c202fa..c6c202fa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci
index d8883e6c..d8883e6c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin
index 3e962180..3e962180 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci
index 0a362b01..0a362b01 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin
index 04246041..04246041 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci
index bb77c105..bb77c105 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin
index aa6d94ab..aa6d94ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci
index f93e3200..f93e3200 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin
index 4de26d03..4de26d03 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci
index 7d1993eb..7d1993eb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin
index 53d89112..53d89112 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci
index ac639249..ac639249 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin
index 2c743976..2c743976 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci
index dac12561..dac12561 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin
index 6fb6e54e..6fb6e54e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci
index 12947bcd..12947bcd 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin
index 1e0a62fc..1e0a62fc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci
index 2e944821..2e944821 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin
index 2a4cc650..2a4cc650 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci
index f86ddfa0..f86ddfa0 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin
index fb44560f..fb44560f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
index 657efc23..657efc23 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin
index a5819013..a5819013 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci
index 48154cf1..48154cf1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin
index b212c380..b212c380 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci
index 5157c111..5157c111 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin
index 7286b547..7286b547 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci
index f57c4961..f57c4961 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin
index b66d56a9..b66d56a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci
index 8d1edf78..8d1edf78 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin
index dd6d1a9c..dd6d1a9c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci
index aa1216dd..aa1216dd 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin
index cba76bac..cba76bac 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci
index 111e9b3b..111e9b3b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin
index 4fdb507e..4fdb507e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci
index 30c646a6..30c646a6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin
index 5227aec7..5227aec7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci
index fcc7687c..fcc7687c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin
index dfe76941..dfe76941 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci
index 310ac166..310ac166 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin
index 58fd0152..58fd0152 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci
index 1574d812..1574d812 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin
index 57e2e49c..57e2e49c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci
index b63aba5c..b63aba5c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin
index 0b9ca934..0b9ca934 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci
index 2148c061..2148c061 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin
index 374f6316..374f6316 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci
index bf9572c5..bf9572c5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin
index 991de452..991de452 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci
index f2928103..f2928103 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin
index d8f4d64d..d8f4d64d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci
index da7c3850..da7c3850 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin
index 0e0991c3..0e0991c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci
index 64b93e1a..64b93e1a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin
index 6bffbf74..6bffbf74 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci
index 39b363f6..39b363f6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin
index c0c13ad5..c0c13ad5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci
index a3f345cb..a3f345cb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin
index 7504d934..7504d934 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci
index 2abe8c90..2abe8c90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin
index c22f1e9e..c22f1e9e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci
index ab4d55b5..ab4d55b5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
index 9de876b4..9de876b4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
index 07c17303..07c17303 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
index b2cafb90..b2cafb90 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
index ba168b71..ba168b71 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
index 55aa8c1f..55aa8c1f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
index 5fc40737..5fc40737 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
index 5269bbf1..5269bbf1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
index 9d97b3ce..9d97b3ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
index 69551af4..69551af4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
index a530284b..a530284b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
index 48451c6b..48451c6b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
index f3bdf700..f3bdf700 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
index 110cf0de..110cf0de 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
index 0081b20c..0081b20c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin
index b759eff5..b759eff5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci
index a87506d2..a87506d2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
index af00090e..af00090e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
index 7e24efcb..7e24efcb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin
index e6820112..e6820112 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci
index 8c2b6eee..8c2b6eee 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin
index a31b8fa0..a31b8fa0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci
index 33f1d807..33f1d807 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin
index 040b5f3e..040b5f3e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci
index 07cbb09b..07cbb09b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
index 333137e7..333137e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
index 0ea935b6..0ea935b6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
index d5f47f89..d5f47f89 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
index a8221f5b..a8221f5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin
index d9fb0edd..d9fb0edd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci
index fa26b319..fa26b319 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin
index dc144378..dc144378 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci
index 1df8e5e3..1df8e5e3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin
index b64a96c8..b64a96c8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci
index 82e9ac48..82e9ac48 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin
index 7ffb898a..7ffb898a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci
index b06ac44b..b06ac44b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin
index a2f5f722..a2f5f722 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci
index 43d8ea6e..43d8ea6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin
index c30c8ae4..c30c8ae4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci
index cbffc3d7..cbffc3d7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin
index 6f9d2eaf..6f9d2eaf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci
index b6a53b62..b6a53b62 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin
index 76090b77..76090b77 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci
index be16b473..be16b473 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin
index f65a407d..f65a407d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci
index 36531da2..36531da2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin
index 921b0546..921b0546 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci
index 5054faf2..5054faf2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin
index 9b3d417e..9b3d417e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci
index fc2847c7..fc2847c7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin
index 2e5b0eb1..2e5b0eb1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci
index dc35fde5..dc35fde5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin
index 6f85f204..6f85f204 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci
index 253d5d75..253d5d75 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin
index 5576b57e..5576b57e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci
index c4d9b86a..c4d9b86a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
index 14cf5d76..14cf5d76 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
index 3a06be00..3a06be00 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin
index 155b2072..155b2072 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci
index 84fd6daa..84fd6daa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin
index 86d3110c..86d3110c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci
index 60f0da1a..60f0da1a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin
index 02e88bd7..02e88bd7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci
index 5df4a877..5df4a877 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin
index 6d275fab..6d275fab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci
index b091754f..b091754f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin
index e3e99cfd..e3e99cfd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci
index 9b67e366..9b67e366 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin
index 6a5a9096..6a5a9096 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci
index bfc191b9..bfc191b9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin
index a5f0596e..a5f0596e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci
index cded7ef2..cded7ef2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin
index ceb0ffb6..ceb0ffb6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci
index ff4a3c43..ff4a3c43 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin
index 38c7da86..38c7da86 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci
index b9c86eef..b9c86eef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin
index 775dd55e..775dd55e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci
index 15ddd0a8..15ddd0a8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin
index 44e39527..44e39527 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci
index 2a4d1491..2a4d1491 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin
index b58e53fd..b58e53fd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci
index 5b9df24b..5b9df24b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin
index 17904d7a..17904d7a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci
index d51dfa91..d51dfa91 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin
index 5095cc06..5095cc06 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci
index ae0bea54..ae0bea54 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
index ea9738c8..ea9738c8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
index 7dc8bef1..7dc8bef1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin
index 84ab9833..84ab9833 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci
index 0ed2f249..0ed2f249 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin
index 82821a8b..82821a8b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci
index c300cf6e..c300cf6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin
index ade40fbf..ade40fbf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci
index 062fcc5c..062fcc5c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin
index 31e5d594..31e5d594 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci
index 903679ab..903679ab 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin
index 10387e38..10387e38 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci
index 218b599f..218b599f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin
index e718a4ba..e718a4ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci
index af259244..af259244 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin
index 59f91f6c..59f91f6c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci
index 2d0d840b..2d0d840b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin
index bf840511..bf840511 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci
index 6182f4a7..6182f4a7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin
index 478d4e52..478d4e52 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci
index 437ff122..437ff122 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin
index 442df592..442df592 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci
index 071f7381..071f7381 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin
index b86c79cf..b86c79cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci
index 97ddae5b..97ddae5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin
index 5ada2529..5ada2529 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci
index 3d17995e..3d17995e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin
index 9dbd0923..9dbd0923 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci
index ca4e0d2a..ca4e0d2a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin
index b99800fe..b99800fe 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci
index 5395d885..5395d885 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin
index d688039f..d688039f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci
index 236287ef..236287ef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin
index fed0c2c1..fed0c2c1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci
index 7bc05ed9..7bc05ed9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin
index 09289136..09289136 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci
index 2ead122d..2ead122d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin
index 86cae9a7..86cae9a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci
index ab8a54b6..ab8a54b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin
index 6334287e..6334287e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci
index ae02fee1..ae02fee1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin
index 6336bf4c..6336bf4c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci
index b0715484..b0715484 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin
index da2db1f4..da2db1f4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci
index 9dacd30c..9dacd30c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin
index ac64c46b..ac64c46b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci
index d5e09ff4..d5e09ff4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin
index b26672c0..b26672c0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci
index abd3377f..abd3377f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin
index 3ff5a305..3ff5a305 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci
index 59b4fdcc..59b4fdcc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
index 348451cf..348451cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
index a1218d06..a1218d06 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
index 3d7069f0..3d7069f0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
index 2a2e5b6c..2a2e5b6c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin
index bebf87c5..bebf87c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci
index ed92a5aa..ed92a5aa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin
index 5f0cad0f..5f0cad0f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci
index 4b246e95..4b246e95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin
index e3bc6bf4..e3bc6bf4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci
index bf6f976f..bf6f976f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin
index 2e870385..2e870385 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci
index 9f9f9d95..9f9f9d95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin
index c92f5024..c92f5024 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci
index 4d7863b1..4d7863b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin
index 073bbdca..073bbdca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci
index c2c35355..c2c35355 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin
index b44d17eb..b44d17eb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci
index 04aaf4eb..04aaf4eb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin
index c7b88175..c7b88175 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci
index 78cd46e5..78cd46e5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin
index 140d9028..140d9028 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci
index bbe02e62..bbe02e62 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin
index f5871542..f5871542 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci
index c12b721e..c12b721e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin
index f5b67546..f5b67546 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci
index 82cf1e2c..82cf1e2c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin
index be93baf3..be93baf3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci
index 371807fa..371807fa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin
index 7535fd2e..7535fd2e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci
index 0e38dae7..0e38dae7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin
index 656dd42d..656dd42d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci
index 4e38175f..4e38175f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin
index a45aa2e3..a45aa2e3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci
index a07a89d1..a07a89d1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin
index 07c938a3..07c938a3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci
index 4090c2da..4090c2da 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin
index 41551ef5..41551ef5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci
index 7a7a4b78..7a7a4b78 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin
index 53dcb238..53dcb238 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci
index f99917cf..f99917cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin
index 3acfa7aa..3acfa7aa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci
index bc44c2e9..bc44c2e9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin
index e2ea3688..e2ea3688 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci
index 0bc9f736..0bc9f736 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin
index 10970e3d..10970e3d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci
index 27e70d48..27e70d48 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin
index 1e4a9df1..1e4a9df1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci
index f3bbd3ec..f3bbd3ec 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
index 8d2516c2..8d2516c2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
index 81b0492f..81b0492f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin
index b2f34062..b2f34062 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci
index 3f768e87..3f768e87 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin
index 1c9d8f4d..1c9d8f4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci
index e9915e1b..e9915e1b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
index bafa4670..bafa4670 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
index e24525e1..e24525e1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin
index c4f4d4c5..c4f4d4c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci
index 443751be..443751be 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin
index 102b44b6..102b44b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci
index 99ad5910..99ad5910 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
index 0082bcd5..0082bcd5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
index 4838d658..4838d658 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin
index 37e149ff..37e149ff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci
index dc917f30..dc917f30 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
index 82acb406..82acb406 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
index a16a5a4d..a16a5a4d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin
index 7c309bf0..7c309bf0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci
index fb8aa27b..fb8aa27b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin
index 86b2954f..86b2954f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci
index 11b02c63..11b02c63 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin
index 78d328fc..78d328fc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci
index 65f543ea..65f543ea 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin
index ebe3ead9..ebe3ead9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci
index 65ba1166..65ba1166 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin
index 711c4fc4..711c4fc4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci
index 79826f90..79826f90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin
index 9cb3477e..9cb3477e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci
index de8d4b0d..de8d4b0d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin
index e8361324..e8361324 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci
index 43eab74b..43eab74b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin
index acc02ec0..acc02ec0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci
index 4f06c437..4f06c437 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin
index 50f6189c..50f6189c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci
index daf5a2d9..daf5a2d9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin
index 2372bb1f..2372bb1f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci
index 623af493..623af493 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin
index 0dbd5427..0dbd5427 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci
index 8d45fea1..8d45fea1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin
index 45325b78..45325b78 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci
index 2fed1197..2fed1197 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin
index 6ed0a2a6..6ed0a2a6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci
index d6e49c14..d6e49c14 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin
index b601884d..b601884d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci
index 6fd31749..6fd31749 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin
index c607a109..c607a109 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci
index 7f05a2ab..7f05a2ab 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin
index 9aa1f9f1..9aa1f9f1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci
index 10c846dc..10c846dc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin
index e2b2ba6a..e2b2ba6a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci
index e3e281f3..e3e281f3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin
index 4d786a5d..4d786a5d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci
index b336c763..b336c763 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin
index aa1e8c72..aa1e8c72 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci
index 8a4f0557..8a4f0557 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin
index 0c5dc7b1..0c5dc7b1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci
index 193ad384..193ad384 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin
index 59d31369..59d31369 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci
index a404370a..a404370a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin
index 038306fb..038306fb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci
index 9e0227e8..9e0227e8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin
index 701b77db..701b77db 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci
index 3826b281..3826b281 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
index cbc317ca..cbc317ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
index 996559db..996559db 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin
index 1ad435a7..1ad435a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci
index 140516b1..140516b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
index 7de094a4..7de094a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
index d49bce91..d49bce91 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin
index dff5f719..dff5f719 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci
index dad4f4ef..dad4f4ef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin
index 544abced..544abced 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci
index 20a86640..20a86640 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin
index 9b530ae6..9b530ae6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci
index e8a80ff3..e8a80ff3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin
index c1e415ab..c1e415ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci
index 6c523fc2..6c523fc2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin
index ad6e0eba..ad6e0eba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci
index ba5b346a..ba5b346a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin
index a0fdf444..a0fdf444 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci
index c33e23a8..c33e23a8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin
index 4f7b55de..4f7b55de 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci
index d8775fb3..d8775fb3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin
index 122e0986..122e0986 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci
index 15543b8a..15543b8a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin
index 733ab14d..733ab14d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci
index 808924a4..808924a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin
index 6c85bcca..6c85bcca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci
index 42fde6a5..42fde6a5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin
index e90f633d..e90f633d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci
index 519bc9da..519bc9da 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin
index 3935c2e7..3935c2e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci
index 4007e1b3..4007e1b3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin
index e72281c1..e72281c1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
index e902ce5d..e902ce5d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin
index a8d4c7fc..a8d4c7fc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci
index a3056f66..a3056f66 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin
index f9d281d0..f9d281d0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci
index 461549e9..461549e9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin
index 877c0a04..877c0a04 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci
index edf043ca..edf043ca 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin
index eca8a277..eca8a277 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci
index 8889de32..8889de32 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin
index a33c17e9..a33c17e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci
index 823fc8c4..823fc8c4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin
index e86a5592..e86a5592 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci
index 82ac7c4f..82ac7c4f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin
index 3479482b..3479482b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci
index ce7e0d76..ce7e0d76 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin
index d3aeafcc..d3aeafcc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci
index 83661787..83661787 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin
index 79569617..79569617 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci
index 4e3effdc..4e3effdc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin
index 468a99cd..468a99cd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci
index 5adb4837..5adb4837 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin
index a488103c..a488103c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci
index 0b4844df..0b4844df 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin
index 5b652d87..5b652d87 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci
index 5b3cd178..5b3cd178 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin
index 1678ce6b..1678ce6b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci
index a8581b1b..a8581b1b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin
index 13e1cb62..13e1cb62 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci
index 15d74ec4..15d74ec4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin
index 7e736e20..7e736e20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci
index 39c23c45..39c23c45 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin
index e07e8ade..e07e8ade 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci
index eb689ffe..eb689ffe 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin
index c7fb3404..c7fb3404 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci
index ea2c8e28..ea2c8e28 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin
index 162ba3f6..162ba3f6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci
index d5333cd1..d5333cd1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin
index 7c4526ca..7c4526ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci
index 1eae4bc9..1eae4bc9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin
index 767e453e..767e453e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci
index 9c7806f5..9c7806f5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin
index 5e7c757a..5e7c757a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci
index 879067ce..879067ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin
index 2e8372d4..2e8372d4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci
index 02fe98a5..02fe98a5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin
index f048d289..f048d289 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci
index 835c173e..835c173e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin
index fd962e37..fd962e37 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci
index e422b6fc..e422b6fc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin
index ab558ee1..ab558ee1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci
index c4c79c26..c4c79c26 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin
index b07adddd..b07adddd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci
index 29870630..29870630 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin
index 5548e0e3..5548e0e3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci
index 3c8018e3..3c8018e3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin
index b625f4d4..b625f4d4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci
index 58ab8101..58ab8101 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin
index 7b3c7f0f..7b3c7f0f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci
index 6928d928..6928d928 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
index 0594752f..0594752f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
index 21677841..21677841 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin
index 7d239bba..7d239bba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci
index fc548f28..fc548f28 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin
index 73d006ea..73d006ea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci
index 35e2347e..35e2347e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin
index 1914f8a3..1914f8a3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci
index fd2a35d0..fd2a35d0 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin
index 69dc99ce..69dc99ce 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci
index c39cdadc..c39cdadc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin
index f85dfeb2..f85dfeb2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci
index b23dfdc8..b23dfdc8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin
index 54fceb67..54fceb67 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci
index bc866928..bc866928 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin
index 3e8d6ca7..3e8d6ca7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci
index bf137751..bf137751 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin
index 22cf9f20..22cf9f20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci
index bbe28c12..bbe28c12 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
index 1a815b50..1a815b50 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
index 74c552a6..74c552a6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin
index c78a60ff..c78a60ff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
index 82feeff2..82feeff2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin
index fe160426..fe160426 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci
index b43451a9..b43451a9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin
index 6ba89403..6ba89403 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci
index 78776d7b..78776d7b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin
index 9cc74d07..9cc74d07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci
index d16ebf80..d16ebf80 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin
index f195927d..f195927d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci
index 98f2ca94..98f2ca94 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin
index 00ce8734..00ce8734 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci
index f6452897..f6452897 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin
index d8c23898..d8c23898 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci
index e3cd5ebc..e3cd5ebc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin
index 19bd2ccc..19bd2ccc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci
index fe5e52b9..fe5e52b9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin
index c87076aa..c87076aa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci
index f94437cf..f94437cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin
index df35b82c..df35b82c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci
index 5b0a3474..5b0a3474 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin
index baf3e29f..baf3e29f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci
index e0020f0b..e0020f0b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin
index 3a9d0634..3a9d0634 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci
index 63bc151f..63bc151f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin
index b7994dc4..b7994dc4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
index 41b9a1b6..41b9a1b6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin
index 304768e4..304768e4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci
index 0e2f9d0a..0e2f9d0a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin
index 153f9afd..153f9afd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci
index b993ffa9..b993ffa9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin
index f48d783b..f48d783b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci
index 8d732a9d..8d732a9d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin
index ae7f9955..ae7f9955 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci
index ce63e542..ce63e542 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin
index 9e4117c2..9e4117c2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci
index 0c2c209a..0c2c209a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin
index f29ca390..f29ca390 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci
index 0a3158cc..0a3158cc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin
index 32f9675d..32f9675d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci
index d006f3ec..d006f3ec 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin
index 30dda6f7..30dda6f7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci
index a4f1ad89..a4f1ad89 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin
index aa4a60ac..aa4a60ac 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci
index 839452f6..839452f6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin
index 0b858b05..0b858b05 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci
index c1656b15..c1656b15 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin
index e078ba2f..e078ba2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci
index eaf9f6df..eaf9f6df 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin
index 05df3aa2..05df3aa2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci
index 7109f789..7109f789 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin
index 2269d9ad..2269d9ad 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci
index 837a5727..837a5727 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin
index 1a99c6ca..1a99c6ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci
index facea4d5..facea4d5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin
index c9391ec5..c9391ec5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci
index 9082290d..9082290d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin
index 35da0ed9..35da0ed9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci
index 910aa734..910aa734 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin
index fda8e518..fda8e518 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci
index 845cac17..845cac17 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin
index dd5656fd..dd5656fd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci
index d14f3b3a..d14f3b3a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin
index 7aeb7385..7aeb7385 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci
index 7e563f4b..7e563f4b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin
index 4ebf14d1..4ebf14d1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci
index e918e475..e918e475 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin
index 4b102f32..4b102f32 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci
index 2a4a3c95..2a4a3c95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin
index 7ea694d9..7ea694d9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci
index 8f9d6053..8f9d6053 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin
index 55e4fb8c..55e4fb8c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci
index 5fab30e2..5fab30e2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin
index a6d15d9d..a6d15d9d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci
index 51b8e0c3..51b8e0c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin
index e8d09380..e8d09380 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci
index 4b8b932b..4b8b932b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin
index b50381fd..b50381fd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci
index ae713f4e..ae713f4e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin
index 1ad13b66..1ad13b66 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci
index a17c9e95..a17c9e95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin
index af675f9c..af675f9c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci
index 2ee06cbb..2ee06cbb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin
index 5ae9c620..5ae9c620 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci
index 22f13c4d..22f13c4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin
index 05b3c3e2..05b3c3e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci
index 62a1f624..62a1f624 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin
index fd0d6bd7..fd0d6bd7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci
index b3f0cbad..b3f0cbad 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin
index 07e56733..07e56733 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci
index 455551bb..455551bb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin
index 43792ee3..43792ee3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci
index a3b86b01..a3b86b01 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin
index 85da2aca..85da2aca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci
index 1d4868c9..1d4868c9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin
index 4e097b75..4e097b75 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci
index cb6c79ae..cb6c79ae 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin
index bf25b018..bf25b018 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci
index ff9de892..ff9de892 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin
index 455d977f..455d977f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci
index 84ea4d60..84ea4d60 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin
index a2e35ff2..a2e35ff2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci
index 92883d5a..92883d5a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin
index 0fdd661f..0fdd661f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci
index fb72097b..fb72097b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin
index df965eb7..df965eb7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci
index 9c20a13b..9c20a13b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin
index a86220d5..a86220d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci
index 7a759f69..7a759f69 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
index 304be9f0..304be9f0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
index 9833a7f4..9833a7f4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
index cb2d0f7a..cb2d0f7a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
index 082ccec3..082ccec3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
index 5731c723..5731c723 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
index cde6870f..cde6870f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin
index a7dae3c3..a7dae3c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci
index 5a15d61c..5a15d61c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
index 07cfe7f8..07cfe7f8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
index 0e4c6a5b..0e4c6a5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
index aaf088b5..aaf088b5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
index c10cdb8d..c10cdb8d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
index b2d998a7..b2d998a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
index 546f66d8..546f66d8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
index 8c08c1b7..8c08c1b7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
index e5a387f5..e5a387f5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin
index 45df29ba..45df29ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci
index 5aa4e5e5..5aa4e5e5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin
index 3350f9b9..3350f9b9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci
index ecc63e41..ecc63e41 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin
index 130e2b32..130e2b32 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci
index ff22a933..ff22a933 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin
index 89d8b459..89d8b459 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci
index 4eec31cf..4eec31cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
index 03fcdda2..03fcdda2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
index 5914d47a..5914d47a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin
index 913af31d..913af31d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
index 1270f789..1270f789 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
index ec2a9bad..ec2a9bad 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
index 57dde938..57dde938 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
index 7d2c1a07..7d2c1a07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
index c91e73cf..c91e73cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin
index 880f8540..880f8540 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci
index 077a88cb..077a88cb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin
index 86bddaa8..86bddaa8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci
index 9fe33c06..9fe33c06 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin
index cadb3d56..cadb3d56 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci
index a4de85ea..a4de85ea 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin
index de695ff2..de695ff2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci
index 8f4da94d..8f4da94d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin
index 2ca7ae03..2ca7ae03 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci
index 785b605c..785b605c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin
index 0e796d65..0e796d65 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci
index 55fdfd0f..55fdfd0f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin
index c5c00977..c5c00977 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci
index 0d649872..0d649872 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin
index 2fb81c8f..2fb81c8f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci
index d63a3470..d63a3470 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin
index 774b416f..774b416f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci
index 621f6256..621f6256 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin
index 97832ff7..97832ff7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
index 9b848315..9b848315 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin
index e04419ed..e04419ed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci
index 2a8b08ca..2a8b08ca 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin
index 30d0e388..30d0e388 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci
index 8ef93556..8ef93556 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin
index 89cf7657..89cf7657 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci
index a3139873..a3139873 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin
index 72f260ac..72f260ac 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci
index ecb7b788..ecb7b788 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin
index bd069613..bd069613 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci
index 97d32d85..97d32d85 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin
index b9861fc7..b9861fc7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci
index 0c239842..0c239842 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin
index 3d33948a..3d33948a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci
index f661c649..f661c649 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin
index 6f53de74..6f53de74 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci
index 8cbae5dc..8cbae5dc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin
index 4dea33e2..4dea33e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
index f83cc8c8..f83cc8c8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin
index a44b7156..a44b7156 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci
index b3b9a417..b3b9a417 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin
index c0acb00b..c0acb00b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci
index 03cabf81..03cabf81 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin
index 507705b2..507705b2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci
index b8926589..b8926589 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin
index d9c2bcae..d9c2bcae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci
index 166af676..166af676 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin
index 26d4e8ef..26d4e8ef 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci
index 469da91a..469da91a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin
index fd208b4a..fd208b4a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci
index 96d1c734..96d1c734 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin
index 74890021..74890021 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci
index fc443411..fc443411 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin
index 67df224b..67df224b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci
index c6ceff89..c6ceff89 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin
index 3cbb70be..3cbb70be 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci
index a7a3fc2d..a7a3fc2d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin
index a0704ffc..a0704ffc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci
index 8ef53bd5..8ef53bd5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin
index 55b89eee..55b89eee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci
index 98d69544..98d69544 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin
index 2239d9d6..2239d9d6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci
index a2e31085..a2e31085 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin
index 4d0816a4..4d0816a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci
index b4705593..b4705593 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin
index c9d8edf5..c9d8edf5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci
index 74910ceb..74910ceb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin
index ba124a81..ba124a81 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci
index 4bc7684c..4bc7684c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin
index b524d528..b524d528 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci
index 527d3834..527d3834 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin
index cef98adc..cef98adc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci
index 44bde517..44bde517 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin
index 278e7845..278e7845 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci
index de320918..de320918 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin
index 6b3e87e9..6b3e87e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci
index baa03e73..baa03e73 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin
index 68abd1d4..68abd1d4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci
index 24920661..24920661 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin
index 085de36e..085de36e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci
index d62acaf3..d62acaf3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin
index d84e23dc..d84e23dc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci
index b46e359c..b46e359c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin
index 01266c62..01266c62 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci
index 11def80c..11def80c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin
index 4e6ca980..4e6ca980 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci
index 59c5ba54..59c5ba54 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
index 2718cfd0..2718cfd0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
index d168b4f7..d168b4f7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin
index 3016dd47..3016dd47 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci
index 059ac6d5..059ac6d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin
index e53ba463..e53ba463 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci
index ae51bf8b..ae51bf8b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin
index c3f3d522..c3f3d522 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
index 51a13884..51a13884 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin
index 655cd4e6..655cd4e6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci
index 60d73ef7..60d73ef7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin
index ba00f67f..ba00f67f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci
index 28ab28ce..28ab28ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin
index 7e8c9e46..7e8c9e46 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci
index e18e83d7..e18e83d7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin
index fc0a8807..fc0a8807 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci
index b2118c90..b2118c90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
index 04b8bdce..04b8bdce 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
index b833802d..b833802d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
index 3940b5b0..3940b5b0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
index d9c1c7df..d9c1c7df 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin
index 93cbf4e2..93cbf4e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci
index 0a835534..0a835534 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin
index 79ab6600..79ab6600 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci
index 73d0d261..73d0d261 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin
index d870458d..d870458d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci
index 5c237179..5c237179 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin
index 0af89330..0af89330 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci
index 13601556..13601556 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib
index 24864cee..24864cee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names
index cef9f19b..cef9f19b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r
new file mode 100644
index 00000000..7c102a22
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r
@@ -0,0 +1,11327 @@
+# Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+#
+#This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>
+
+
+#########################################
+
+# source("/Rfiles/ketpic5_2_3.r")
+
+ThisVersion<- "KeTpic for R v5_2_3(17.10.08)"
+
+# 2017.10.11
+# Drwpt debugged (Flattenlist )
+# 2017.10.08
+# Bezier debugged ( Num )
+# 2017.10.07
+# ReadOutData debugged ( for null data )
+# 2017.10.06
+# Deqdata, Deqplot added
+# Connectseg remade(bug)
+# 2017.09.30
+# Bezierpt, Bezier added
+# 2017.09.29
+# Ptcrv debugged
+# 2017.09.28
+# Openfile changed
+# 2017.09.24
+# Circledata debugged
+# Kyoukai changed (Eps)
+# Shade updated
+# 2017.09.22
+# Setcolor changed
+# Plotdata,Paramplot,Spacecurve changed (N-1 -> N)
+# 2017.09.21
+# Shade changed (Sci 17.01.09)
+# 2017.09.17
+# Ovaldata,Assignadd changed
+# Dist added
+# Cicledata changed
+# Bowdata debugged (Circledata,etc)
+
+# 2015.11.05
+# WriteOutData changed
+
+# 2015.10.29
+# WriteOutData changed ( endmark //// )
+
+# 2015.10.24
+# ReadOutData changed ( in case of listlength=1 )
+
+# 2014.12.23
+# ReadOutData added
+
+# 2014.12.17
+# WriteOutData added
+
+# 2014.0905
+# Unscaling debugged MARKLENI => MARKLEN
+# 2014.03.31
+# PhHiddenData added
+# 2014.03.30
+# Facesdata changed ( for Hiddendata )
+# 2014.03.23
+# MARKLEN separated, Rotate3data debugged
+
+# 2013.12.19
+# Openfile, Closefile, Bowname, Bownamerot
+
+# 2013.11.13
+# Arrowhead, Arrowheaddata
+
+# 2013.08.07
+# Cancoordpara added
+
+# 2013.08.07
+# Integrate added
+
+# 2013.05.20
+# Openfile changed
+
+# 2013.05.03
+# Tabledata, Pointdata changed
+# Dividetable, Partframe added
+
+# 2013.02.10
+# Ketinit added
+
+# 2012.01.07
+# Arrowline, Arrowhead ( Cut implemented )
+
+# 2011.12.18
+# Framedata ( compliant for list )
+
+# 2011.12.12
+# Skeletonparadata... ( Flattellist used)
+
+# 2011.11.27
+# drwboxframe
+
+# 2011.11.07
+# metacommands added
+
+# 2011.11.02
+# Joingraphics ( for list structure )
+
+# 2011.08.24
+# Setcolor ( c(1,0,0,0.5) etc )
+# Rotate3data ( Point is available )
+
+# 2011.07.19
+# Drwline, Letter, Expr
+# Drwboxplot( etc ) min,max => outliners
+# Drwline ( unfinished in the case of "integer" )
+
+# 2011.06.25
+# joincrvs debugged
+
+# synchro with ketpict2e
+
+# 2011.06.01
+# Bowdata debugged
+
+#2011.05.28
+# Ratiocmyk, Setcolor ( new )
+
+#2011.04.28
+# Htickmark, Vtickmark debugged
+
+#2011.03.08
+# Drwboxframe debugged
+# Putrow, Putrowexpr debugged (Dpos )
+
+#2011.03.02
+# Tabledata ( index of hline ), PutcoL, PutcoLexpr ( "r",...) debugged
+# Texcom changed ( // => backslash )
+
+#2011.01.07
+# Dividegraphics, Splinedat are changed significantly
+# Readtextdata is changed
+
+#2011.01.04
+# Derivative, Integrate are added
+
+#2010.12.07
+# Translatedata, Scaledata, Reflectdata changed ( efficient for vector )
+# Rotatedata changed ( deg : logical )
+# HIstplotdata, Drwhistplot ( type => freq , fpplot (added) )
+
+# 2010.12.04
+# WindispT changed ( tickmark )
+# Lineplot changed ( mag=> length )
+# Plotdata debugged ( 'E=fun', 'D=')
+# Enclosing changed (return PD)
+
+# 2010.12.02
+# WindispT changed
+# Makecurves debugged
+
+# 2010.11.27
+# Pointdata changed ( efficient for matrix and data.frame )
+# WindispT
+# Setwindow ( decide from data )
+# Assign debugged ( strsplit => gsub(fixed=T))
+
+# 2010.11.20
+# Flattenlist, WindispT
+# Splinedata changed( efficient for data.frame )
+
+#2010.08.19 ( Maybe not finished )
+# Stripblanks
+# Fullformfunc, Sf3data
+
+#2010.08.17
+# Phparadata, Phpersdata, Phspersdata, Phsparadata
+# Facesdata, MakeveLfaceL, Menkakusi2
+# Rotate3data
+# Skeletonpersdata, Skeletonpers3data, Makeskeletonpersdata
+# Embed
+
+#2010.08.16
+# Spacecurve changed
+# CameracoordCurve, Partcrv3, Projpers, CameraCurve,
+# Perspt, Xyzaxpersname, Invperspt, Zparapt, Zperspt
+
+# 2010.08.15
+# Phcutoffdata added
+
+# 2010.08.13
+# Phcutdata, Spacecurve debugged
+# Setangle changed
+
+# 2010.08.09
+# Spacecurve
+# Rotate3data, Rotate3pt
+# Phcutdata
+
+# 2010.08.08
+# Implementing 3d
+# Initangle, Setangle, Setpers, SetstereoL, SetstereoR
+# Mixlength
+# Spaceline, Projpara, ProjCurve, Parapt
+# Xyzax3data, Xyzaxparaname
+# Cancoordpers, Invparapt, ProjcoordCurve
+# Skeletonparadata, Skeletonpara3data, Makeskeletondata, Kukannozoki
+
+# 2010.07.25
+# Rotatedata changed
+# Drwline changed (list of list)
+
+# 2010.04.09
+# Stat package added
+
+# 2010.04.02
+# Putcolexpr, Putrowexpr
+
+# 2010.04.02
+
+# Windisp, Op changed
+# Execmd added
+# Texnewcmd, Texrenewcmd, Texend,
+# Texctr, Texnewctr, Texsetctr
+# Kyoukai debugged
+
+# 2010.01.20
+# Partcrv, Makeshasen : debugged
+
+# 2010.01.23
+# Ovaldata, Ovalbox added
+
+# 2010.01.27
+# Readtextdata changed
+# Putrow, PutcoL debugged ( Putcol is OK)
+
+# 2010.01.31
+# Writetextdata added
+
+# 2010.02.12
+# Texvalctr, Texthectr added
+
+# 2010.02.22
+# Execmd changed
+
+# 2010.02.23
+# Op, Windisp changed
+
+# 2010.02.24
+# Execmd changed
+
+# 2010.03.07
+# Dotfilldata (Kosa>1)
+
+# 2010.03.21
+# Mixjoin
+# Koutenlist (bug)
+
+
+# 2010.03.24
+# Arrowhead ( bug in the case of "l" )
+
+# 2010.03.28
+# Tabledata
+# Diagcelldata ( New )
+
+# 2010.03.30
+# Tabledata
+
+###########################################
+
+XMIN<- -5
+XMAX<- 5
+YMIN<- -5 ; YMAX<- 5
+ZIKU<- "line"
+ARROWSIZE<- 1
+XNAME<- "$x$"
+XPOS<- "e"
+YNAME<- "$y$"
+YPOS<- "n"
+ONAME<- "O"
+OPOS<- "sw"
+ULEN<- "1cm"
+MilliIn<- 1/2.54*1000
+PenThick<- round(MilliIn*0.02)
+PenThickInit<- PenThick
+TenSizeInit<<- 0.02*2 #17.10.07
+TenSize<- TenSizeInit
+Wfile<-""
+MEMORI<- 0.05
+MEMORIInit<- MEMORI
+MEMORINow<- MEMORI
+MARKLEN<- 0.05
+MARKLENInit<- MARKLEN
+MARKLENNow<- MARKLEN
+GENTEN<- c(0,0)
+YaSize<- 1
+YaAngle<- 18
+YaPosition<- 1
+YaThick<- 1
+YaStyle<- "tf"
+PHI<- 30*pi/180
+THETA<- 60*pi/180
+FocusPoint<- c(0,0,0)
+EyePoint<- c(5,5,5)
+ASSIGNLIST<- list("`","'")
+
+SCALEX<- 1
+SCALEY<- 1
+LOGX<- 0
+LOGY<- 0
+
+TEXFORLEVEL<- 0
+TEXFORLAST<- list()
+
+#######################
+
+Ketinit<- function(){
+XMIN<<- -5
+XMAX<<- 5
+YMIN<<- -5 ; YMAX<<- 5
+ZIKU<<- "line"
+ARROWSIZE<<- 1
+XNAME<<- "$x$"
+XPOS<<- "e"
+YNAME<<- "$y$"
+YPOS<<- "n"
+ONAME<<- "O"
+OPOS<<- "sw"
+ULEN<<- "1cm"
+MilliIn<<- 1/2.54*1000
+PenThick<<- round(MilliIn*0.02)
+PenThickInit<<- PenThick
+TenSizeInit<<- 0.02*2 #17.10.07
+TenSize<<- TenSizeInit
+Wfile<<-""
+MEMORI<<- 0.05
+MEMORIInit<<- MEMORI
+MEMORINow<<- MEMORI
+MARKLEN<<- 0.05
+MARKLENInit<<- MARKLEN
+MARKLENNow<<- MARKLEN
+GENTEN<<- c(0,0)
+YaSize<<- 1
+YaAngle<<- 18
+YaPosition<<- 1
+YaThick<<- 1
+YaStyle<<- "tf"
+PHI<<- 30*pi/180
+THETA<<- 60*pi/180
+FocusPoint<<- c(0,0,0)
+EyePoint<<- c(5,5,5)
+ASSIGNLIST<<- list("`","'")
+
+SCALEX<<- 1
+SCALEY<<- 1
+LOGX<<- 0
+LOGY<<- 0
+
+TEXFORLEVEL<<- 0
+TEXFORLAST<<- list()
+}
+
+#-------------------------------------------------------
+
+Appendrow<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Out<-c()
+ Nc<- 0
+ for (I in 1:Nargs)
+ {
+ Dt<- varargin[[I]]
+ Nc<- max(Nc,Ncol(Dt))
+ if (class(Dt)=="matrix") Dt<-as.numeric(t(Dt))
+ Out<- c(Out,Dt)
+ }
+ if (Nc>0)
+ {
+ Out<-matrix(Out, nrow=Nc)
+ Out<-t(Out)
+ }
+ else
+ {
+ Out<-c()
+ }
+ return(Out)
+}
+
+Crossprod<-function(a,b)
+{
+ if (length(a)==3)
+ {
+ Tmp1<-a[2]*b[3]-a[3]*b[2]
+ Tmp2=a[3]*b[1]-a[1]*b[3]
+ Tmp3=a[1]*b[2]-a[2]*b[1]
+ Out=c(Tmp1,Tmp2,Tmp3)
+ }
+ else
+ {
+ Out=a[1]*b[2]-a[2]*b[1]
+ }
+ return(Out)
+}
+
+Datalength<-function(Data)
+{
+ if (length(Data)==0) return(0)
+ if (mode(Data)=="numeric") return(Nrow(Data))
+ if (mode(Data)=="character") return(nchar(Data))
+ if (mode(Data)=="list") return(length(Data))
+}
+
+Dotprod<-function(a,b)
+{
+ Tmp=crossprod(a,b)
+ return(Tmp)
+}
+
+Dist<- function(...) # 17.09.17
+{
+ varargin<- list(...)
+ a=varargin[[1]]
+ if(length(varargin)==1){
+ tmp=sqrt(Dotprod(a,a))
+ return(as.vector(tmp))
+ }
+ else{
+ b=varargin[[2]]
+ tmp=sqrt(Dotprod(b-a,b-a))
+ retun(as.vector(tmp))
+ }
+}
+
+Member<-function(A,L)
+{
+ N<-length(L);
+ if (length(N)==0) return(FALSE)
+ for (I in 1:N)
+ {
+ if (class(L)=="list")
+ {
+ Tmp<-L[[I]]
+ }
+ else
+ {
+ Tmp<-L[I]
+ }
+ if (mode(A)=="numeric")
+ {
+ if (Norm(A-Tmp)==0) return(TRUE)
+ }
+ else
+ {
+ if (A==Tmp) return(TRUE)
+ }
+ }
+ return(FALSE)
+}
+
+Norm<-function(V)
+{
+ Tmp<-as.vector(V);
+ Tmp<-crossprod(Tmp,Tmp);
+ Tmp<-sqrt(Tmp);
+ as.numeric(Tmp)
+}
+
+Ncol<-function(P)
+{
+ if (class(P)=="matrix") return(ncol(P))
+ else return(length(P))
+}
+
+Nrow<-function(P)
+{
+ if (length(P)==0) return(0)
+ if (class(P)=="matrix") return(nrow(P))
+ else return(1)
+}
+
+Looprange<- function(a,b)
+{
+if (a<=b) return(a:b)
+return(c())
+}
+
+Stripblanks<- function(Ch){
+ Tmp<- gsub(" ","",Ch,fixed=TRUE)
+ return(Tmp)
+}
+
+Derivative<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Fstr<- varargin[[1]]
+ Vstr<- varargin[[2]]
+ NvaL<- length(Vstr)
+ Flg<- 0
+ if(Nargs>=3){
+ VaL<- varargin[[3]]
+ Flg<- 1
+ }
+ Str<- paste("deriv(~",Fstr,",c('",Vstr[1],"'",sep="")
+ for(J in Looprange(2,NvaL)){
+ Str<- paste(Str,",'",Vstr[J],"'",sep="")
+ }
+ Str<- paste(Str,")",sep="")
+ if(NvaL<=3){
+ Str<- paste(Str,",func=TRUE)",sep="")
+ }
+ else{
+ Str<- paste(Str,")",sep="")
+ }
+ f<- eval(parse(text=Str))
+ if(Flg==1){
+ if (NvaL<=3){
+ if(NvaL==1){V<- f(VaL[1])}
+ if(NvaL==2){V<- f(VaL[1],VaL[2])}
+ if(NvaL==3){V<- f(VaL[1],VaL[2],VaL[3])}
+ }
+ else{
+ for(J in 1:NvaL){
+ Tmp<- paste(Vstr[J],'<-',as.character(VaL[J]))
+ eval(parse(text=Tmp))
+ }
+ V<- eval(f)
+ }
+ Out<- attr(V,'gradient')
+ Out<- Out[1,]
+ }
+ else{
+ Out<- f
+ }
+ return(Out)
+}
+
+Integrate<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Fstr<- varargin[[1]]
+ Vstr<- varargin[[2]]
+ IntvL<- varargin[[3]]
+ Str<- 'Tmpfun<- function('
+ Str<- paste(Str,Vstr,'){',sep='')
+ Str<- paste(Str,Fstr,'}',sep='')
+ eval(parse(text=Str))
+ Tmpfunv<- function(x){sapply(x,Tmpfun)}
+ Out<- 0
+ for (J in 1:(length(IntvL)-1)){
+ Tmp<- integrate(Tmpfunv,IntvL[J],IntvL[J+1])
+ Out<- Out+Tmp[[1]]
+ }
+ return(Out)
+}
+
+#--------------------------------------
+
+#########################
+
+Anglemark<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-3)
+ PA<- varargin[[1]]
+ PB<- varargin[[2]]
+ PC=varargin[[3]]
+ r <- 0.5
+ if (Nargs>=4){
+ r<- varargin[[4]]*r
+ }
+ Cir<- Circledata(PB,r)
+ Tmp<- IntersectcrvsPp(Cir,Listplot(PA,PB))
+ P1<- Op(2,Op(1,Tmp))
+ Tmp<- IntersectcrvsPp(Cir,Listplot(PC,PB))
+ P2<- Op(2,Op(1,Tmp))
+ if (abs(P1-P2)<Eps){
+ Out<-c()
+ return(Out)
+ }
+ if (P1<P2-Eps){
+ Out<- Partcrv(P1,P2,Cir)
+ }
+ else{
+ Tmp<- Numptcrv(Cir)
+ Tmp1<- Partcrv(P1,Tmp,Cir)
+ Tmp2<- Partcrv(1,P2,Cir)
+ Out<- Joincrvs(Tmp1,Tmp2)
+ }
+}
+
+##############################################
+
+Arrowdata<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ P<- varargin[[1]]
+ Q<- varargin[[2]]
+ R<- Q
+ Futosa<- YaThick
+ Ookisa<- YaSize
+ Thickness<- 1
+ Hiraki<- YaAngle
+ Yapos<- YaPosition
+ Position<- 1
+ Str<- YaStyle
+ Flg<- 0
+ for (I in Looprange(3,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric"){
+ if (length(Tmp)>1){
+ R<- Tmp
+ }
+ else{
+ if (Flg==0){
+ Ookisa<- Ookisa*Tmp
+ }
+ if (Flg==1){
+ if (Tmp<5){
+ Hiraki<- Tmp*Hiraki
+ }
+ else{
+ Hiraki<- Tmp
+ }
+ }
+ if (Flg==2){
+ R<- P+Tmp*(Q-P)
+ }
+ else{
+ R<- P+Yapos*(Q-P)
+ }
+ if (Flg==3){
+ Futosa<- Tmp
+ }
+ Flg<- Flg+1
+ }
+ }
+ if (mode(Tmp)=="character"){
+ Tmp<- grep("=", Tmp)
+ if (length(Tmp)>0){
+ eval(parse(text=Tmp))
+ Futosa<- Futosa*Thickness
+ R<- P+Position*(Q-P)
+ }
+ else{
+ Str<- Tmp
+ }
+ }
+ }
+ Tmp1<- Listplot(c(P,Q))
+ Tmp2<- Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str)
+ Out<- Joingraphics(Tmp1,Tmp2)
+}
+
+######################################
+
+# 2013.11.13 No Intersect debugged
+
+Arrowhead<-function(...)
+{ ## Scaling is implemented
+ ## 12.01.08 Kirikomi
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ P<-varargin[[1]]
+ Houkou<-varargin[[2]]
+ Ookisa<-0.2*YaSize
+ Hiraki<-YaAngle
+ Futosa<-0.5*YaThick
+ Cut<- 0
+ Str<-YaStyle
+ Flg<- 0
+ for (I in Looprange(3,Nargs)){
+ Tmp<-varargin[[I]]
+ if (is.character(Tmp)){
+ Equal<- grep("=",Tmp,fixed=TRUE) # 12.01.07 from
+ if(length(Equal)>0){
+ Tmp1<- strsplit(Tmp,"=",fixed=TRUE)
+ Tmp2<- Tmp1[[1]]
+ if (Tmp2[1]=="Cut" || Tmp2[1]=="cut"){
+ Tmp<- paste("Cut=",Tmp2[2],sep="")
+ eval(parse(text=Tmp))
+ }
+ }else{
+ Str<- Tmp
+ } # 12.01.07 upto
+ }
+ if (is.numeric(Tmp) && length(Tmp)==1){
+ if (Flg==0) Ookisa<-Ookisa*Tmp
+ if (Flg==1){
+ if (Tmp<5) Hiraki<-Tmp*Hiraki
+ else Hiraki<-Tmp
+ }
+ if (Flg==2) Futosa<-Tmp
+ Flg<-Flg+1
+ }
+ }
+ Ookisa<-1000/2.54/MilliIn*Ookisa
+ Theta<-Hiraki*pi/180
+ if (Nrow(Houkou)>1){
+ P<- Doscaling(P)
+ Houkou<- Doscaling(Houkou)
+ Tmp<-Nearestpt(P,Houkou)
+ A<-Tmp[[1]]
+ I<-floor(Tmp[[2]])
+ G<-Circledata(P,Ookisa*cos(Theta),N=10)
+ Flg<- 0 # 13.11.13
+ JL<-seq(I,1,by=-1)
+ for (J in JL){
+ B<-Ptcrv(J,Houkou)
+ Tmp<-IntersectcrvsPp(Listplot(list(A,B)),G)
+ if (length(Tmp)>0){
+ Flg<- 1
+ break
+ }
+ A<-B
+ }
+ if (Flg==0){ # 13.11.13
+ print("Arrowhead may be too large (no intersect)")
+ return(P)
+ }
+ Houkou<-P-Op(1,Tmp[[1]])
+ Houkou<- Unscaling(Houkou)
+ P<- Unscaling(P)
+ }
+ P<- Doscaling(P)
+ Houkou<- Doscaling(Houkou)
+ Ev<--1/Norm(Houkou)*Houkou
+ Nv<-c(-Ev[2],Ev[1])
+ if (length(grep("c",Str))>0){
+ P<-P-0.5*Ookisa*cos(Theta)*Ev
+ }
+ if (length(grep("b",Str))>0){
+ P<-P-Ookisa*cos(Theta)*Ev
+ }
+ A<-P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv
+ B<-P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv
+ if (length(grep("l",Str))>0){
+ Tmp<-Listplot(list(A,P,B))
+ Tmp1<- Unscaling(Tmp)
+ Drwline(Tmp1,Futosa)
+ }
+ else{
+ C<- P+(1-Cut)*((A+B)/2-P) # 12.01.07
+ Tmp<- Listplot(list(A,P,B,C,A)) # 12.01.07
+ Tmp1<- Unscaling(Tmp)
+ Shade(Tmp1)
+ Drwline(Tmp1,1)
+ }
+}
+
+############################################
+
+# 2013.11.13 No intersect debugged
+
+Arrowheaddata<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ P<- varargin[[1]]
+ Houkou<- varargin[[2]]
+ Ookisa<- 0.2*YaSize
+ Hiraki<- YaAngle
+ Futosa<- 0
+ Thickness<- 1
+ Str<- YaStyle
+ Flg<- 0
+ for (I in Looprange(3,Nargs)){
+ Tmp<-varargin[[I]]
+ if (mode(Tmp)=="character"){
+ Tmp1<-grep("=",Tmp)
+ if (length(Tmp1)>0){
+ eval(parse(text=Tmp))
+ Futosa<- Thickness
+ }
+ else{
+ Str<- Tmp
+ }
+ }
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ if (Flg==0) Ookisa<-Ookisa*Tmp
+ if (Flg==1){
+ if (Tmp<5) Hiraki<-Tmp*Hiraki
+ else Hiraki<-Tmp
+ }
+ if (Flg==2) Futosa<-Tmp
+ Flg<-Flg+1
+ }
+ }
+ Theta<- Hiraki*pi/180
+ if (Nrow(Houkou)>1){
+ P<- Doscaling(P)
+ Houkou<- Doscaling(Houkou)
+ Tmp<-Nearestpt(P,Houkou)
+ A<-Tmp[[1]]
+ I<-floor(Tmp[[2]])
+ G<-Circledata(P,Ookisa*cos(Theta),N=10)
+ Flg<- 0 # 13.11.13
+ JL<-seq(I,1,by=-1)
+ for (J in JL){
+ B<- Ptcrv(J,Houkou)
+ Tmp<- IntersectcrvsPp(Listplot(list(A,B)),G)
+ if (length(Tmp)>0){
+ Flg<- 1
+ break
+ }
+ A<-B
+ }
+ if (Flg==0){ # 13.11.13
+ print("Arrowhead may be too large (no intersect)")
+ return(P)
+ }
+ Houkou<-P-Op(1,Tmp[[1]])
+ Houkou<- Unscaling(Houkou)
+ P<- Unscaling(P)
+ }
+ P<- Doscaling(P)
+ Houkou<- Doscaling(Houkou)
+ Ev<- -1/Norm(Houkou)*Houkou
+ Nv<- c(-Ev[2],Ev[1])
+ if (length(grep("c",Str))>0){
+ P<-P-0.5*Ookisa*cos(Theta)*Ev
+ }
+ if (length(grep("b",Str))>0){
+ P<-P-Ookisa*cos(Theta)*Ev
+ }
+ A<-P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv
+ B<-P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv
+ Tmp<- Listplot(A,P,B)
+ Out<- Unscaling(Tmp)
+ return(Out)
+}
+
+##########################################
+
+Arrowline<- function(...)
+{ # 12.01.07 kirikomi
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ P<- varargin[[1]]
+ Q<- varargin[[2]]
+ Futosa<- YaThick
+ Ookisa<- YaSize
+ Hiraki<- YaAngle
+ Yapos<- YaPosition
+ Cutstr<- "Cut=0"
+ Str<- YaStyle
+ Flg<- 0
+ for (I in Looprange(3,Nargs)){
+ Tmp<- varargin[[I]]
+ if (is.character(Tmp)){
+ Equal<- grep("=",Tmp,fixed=TRUE) # 12.01.07 from
+ if(length(Equal)>0){
+ Tmp1<- strsplit(Tmp,"=")
+ Tmp2<- Tmp1[[1]]
+ if(Tmp2[1]=="Cut" || Tmp2[1]=="cut"){
+ Tmp<- paste("Cut=", Tmp2[2],sep="")
+ Cutstr<- Tmp
+ }
+ }
+ else{
+ Str<- Tmp
+ } # 12.01.07 upto
+ }
+ if (is.numeric(Tmp) && length(Tmp)==1){
+ if (Flg==0) Ookisa<- Ookisa*Tmp
+ if (Flg==1){
+ if (Tmp<5) Hiraki<- Tmp*Hiraki
+ else Hiraki<- Tmp
+ }
+ if (Flg==2) Yapos<- Tmp
+ if (Flg==3) Futosa<- Tmp
+ Flg<- Flg+1
+ }
+ }
+ R<- P+Yapos*(Q-P)
+ Drwline(Listplot(c(P,Q)),Futosa)
+ Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str)
+}
+
+#########################################
+
+Assign<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ ASSIGNLIST<<- list("`",Prime())
+ Out<- ASSIGNLIST
+ return()
+# return("Assign reset done");
+ }
+ L<- list("`","'")
+ if (Nargs%%2==0){
+ L<- Mixjoin(L,varargin)
+ ASSIGNLIST<<- L
+ Out<- L
+ return()
+# return("Assign set done");
+ }
+ if (Nargs==1){
+ Fnstr<- varargin[[1]]
+ if (nchar(Fnstr)==0){ # case of ""
+ L<- ASSIGNLIST
+ Out<- c()
+ for (I in seq(1,length(L),by=2)){
+ Tmp1<- L[[I]]
+ Tmp2<- L[[I+1]]
+ if (length(Tmp2)==1){
+ Tmp3<- as.character(Tmp2)
+ }
+ else{
+ if (mode(Tmp2)=="character"){
+ Tmp3<- Tmp2
+ }
+ else if (mode(Tmp2)=="list"){
+ Tmp3<- makeliststr(Tmp2)
+ }
+ else if (mode(Tmp2)=="numeric"){
+ Tmp3<- "c("
+ for (J in Looprange(1,length(Tmp2))){
+ Tmp3<- paste(Tmp3,as.character(Tmp2[J]),sep="")
+ if (J<length(Tmp2)){
+ Tmp3<- paste(Tmp3,",",sep="")
+ }
+ }
+ Tmp3<- paste(Tmp3,")",sep="")
+ if (class(Tmp2)=="matrix"){
+ Nr<- as.character(nrow(Tmp2))
+ Tmp3<- paste("matrix(",Tmp3,"nrow=",Nr,")",sep="")
+ }
+ }
+ }
+ Tmp<- paste(Tmp1,"=",Tmp3,sep="")
+ Out<- c(Out,Tmp)
+ }
+ return(Out);
+ }
+ if (substr(Fnstr,1,1)=="?"){
+ Fnstr<- substr(Fnstr,2,nchar(Fnstr))
+ for (I in seq(1,length(ASSIGNLIST),by=2)){
+ Tmp<- ASSIGNLIST[[I]]
+ if (Tmp==Fnstr){
+ Out<- Mixjoin(list(I),ASSIGNLIST[I+1])
+ return(Out)
+ }
+ }
+ Out<- "Not found"
+ return(Out);
+ }
+ L<- ASSIGNLIST
+ }
+ else{
+ if (mode(varargin[[2]])=="numeric"){
+ Fnstr<- varargin[[Nargs]]
+ for (I in Looprange(1,Nargs-1)){
+ L[[I]]=varargin[[I]]
+ }
+ }
+ else{
+ Fnstr<- varargin[[1]]
+ for (I in Looprange(2,Nargs)){
+ L[[I-1]]<- varargin[[I]]
+ }
+ }
+ }
+ for (I in seq(1,length(L),by=2)){
+ Vname<- L[[I]]
+ Val<- L[[I+1]]
+ if (mode(Val)=="numeric"){
+ if (Nrow(Val)==1){
+ for (K in Looprange(1,length(Val))){
+ Tmp<- paste(Vname,"[", as.character(K),"]",sep="")
+ if (mode(Val[K])=="numeric"){
+ Tmp1<- paste("(",as.character(Val[K]),")",sep="")
+ }
+ else{
+ Tmp1<- Val[K]
+ }
+ Fnstr<- gsub(Tmp,Tmp1,Fnstr,fixed=TRUE)
+ }
+ }
+ else{
+ for (J in Looprange(1,Nrow(Val))){
+ for (K in Looprange(1,Ncol(Val))){
+ Tmp<- paste(Vname,"(",as.character(J),",",as.character(K),")",sep="")
+ if (mode(Val[J,K])=="numeric"){
+ Tmp1<- paste("(",as.character(Val[J,K]),")",sep="")
+ }
+ else{
+ Tmp1<- Val[J,K]
+ }
+ Fnstr<- gsub(Tmp,Tmp1,Fnstr,fixed=TRUE)
+ }
+ }
+ }
+ if (length(Val)==1){
+ Rep<- as.character(Val)
+ }
+ else{
+ Rep<-""
+ if (class(Val)=="matrix"){
+ Rep<- "matrix("
+ }
+ Rep<- paste(Rep,"c(",sep="")
+ for (J in Looprange(1,length(Val))){
+ Rep<- paste(Rep,as.character(Val[J]),sep="")
+ if (J<length(Val)){
+ Rep<- paste(Rep,",",sep="")
+ }
+ else{
+ Rep<- paste(Rep,")",sep="")
+ }
+ }
+ if (class(Val)=="matrix"){
+ Rep<- paste(Rep,",nrow=",as.character(nrow(Val)),")",sep="")
+ }
+ }
+ Tmp1<- paste("(",Rep,")",sep="")
+ }
+ if (mode(Val)=="character"){
+ Tmp1<- Val
+ }
+ if (mode(Val)=="list"){
+ Tmp1<- Makeliststr(Val)
+ }
+ Fnstr<- gsub(Vname,Tmp1,Fnstr,fixed=TRUE) # 10.11.20
+ }
+ return(Fnstr)
+}
+
+#########################################
+
+Assignadd<- function(...)
+{
+ varargin<- list(...)
+ L<- ASSIGNLIST
+ L<- Mixjoin(L,varargin)
+ ASSIGNLIST<<- L
+# return("assign add done"); #17.09.17
+}
+
+#########################################
+
+Assignrep<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ L<- ASSIGNLIST
+ for (I in seq(1,Nargs,by=2)){
+ Vname<- varargin[[I]]
+ Val<- varargin[[I+1]]
+ Tmp1<- paste("?",Vname,sep="")
+ Tmp<- Assign(Tmp)
+ if (mode(Tmp)=="character"){
+ next
+ }
+ I<- Tmp[[1]]
+ L<- Mixjoin(L,list(Val))
+ }
+ ASSIGNLIST<<- L
+}
+
+#########################################
+
+ Assignset<- function(...)
+{
+ Assign(...)
+}
+
+#########################################
+
+Beginpicture<-function(ul)
+{ ## Scaling is implemented
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xm<- Tmp[1]
+ Ym<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ XM<- Tmp[1]
+ YM<- Tmp[2]
+ Dx<- XM-Xm
+ Dy<- YM-Ym
+ Sym<-".0123456789 +-*/"
+ SL<-Sym
+ OL<-"+-*/"
+ if (ul!=""){
+ ULEN<<-ul;
+ }
+ Is<-1;
+ VL<-"";
+ Ucode<-ULEN
+ for (I in Looprange(1,nchar(Ucode))){
+ C<-substring(Ucode,I,I);
+ if (length(grep(C,SL))>0){
+ if (length(grep(C,OL))>0){
+ Tmp<-substring(Ucode,Is,I-1);
+ Str<-paste(VL,Tmp,C,sep="")
+ VL<-Str
+ Is<-I+1;
+ }
+ }
+ else{
+ Unit<-substring(Ucode,I,I+1);
+ Str<-substring(Ucode,Is,I-1);
+ VL<-paste(VL,Str,sep="")
+ break;
+ }
+ }
+ Valu<-eval(parse(text=VL));
+ Str<-as.character(Valu);
+ ULEN<<- paste(Str,Unit,sep="");
+ if (Unit=="cm") MilliIn<<-1000/2.54*Valu
+ if (Unit=="mm") MilliIn<<-1000/2.54*Valu/10
+ if (Unit=="in") MilliIn<<-1000*Valu
+ if (Unit=="pt") MilliIn<<-1000/72.27*Valu
+ if (Unit=="pc") MilliIn<<-1000/6.022*Valu
+ if (Unit=="bp") MilliIn<<-1000/72*Valu
+ if (Unit=="dd2") MilliIn<<-1000/1238/1157/72.27*Valu
+ if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu;
+ if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10
+ MARKLEN<<- MARKLENNow*1000/2.54/MilliIn;
+ Str<-paste("{\\unitlength=",ULEN,"%\n",sep="");
+ cat(Str,file=Wfile,append=TRUE);
+ cat("\\begin{picture}%\n",file=Wfile,append=TRUE);
+ Str<-"(";
+ Tmp<-as.character(round(Dx,digits=6));
+ Str<-paste(Str,Tmp,",",sep="");
+ Tmp<-as.character(round(Dy,digits=6));
+ Str<-paste(Str,Tmp,")(",sep="");
+ Tmp<-as.character(round(Xm,digits=6));
+ Str<-paste(Str,Tmp,",",sep="");
+ Tmp<-as.character(round(Ym,digits=6));
+ Str<-paste(Str,Tmp,")%\n",sep="");
+ cat(Str,file=Wfile,append=TRUE);
+ Str<-paste("\\special{pn ",as.character(PenThickInit),"}%\n",sep="");
+ cat(Str,file=Wfile,append=TRUE);
+ cat("%\n",file=Wfile,append=TRUE);
+}
+
+#################################################
+
+Bowdata<- function(...) #17.09.17
+{
+ varargin <- list(...)
+ Nargs <- length(varargin)
+ PA <- varargin[[1]]
+ PB <- varargin[[2]]
+ Cut <- 0
+ D <- 1/2*Norm(PB-PA)
+ if (Nargs>=3) {
+ H <- varargin[[3]]*D*0.2
+ }
+ else {
+ H <- D*0.2
+ }
+ H <- min(H,D)
+ if (Nargs>=4){
+ Cut <- varargin[[4]]
+ }
+ Ydata <- MakeBowdata(PA,PB,H)
+ C <- Op(1,Ydata)
+ r <- Op(2,Ydata)
+ R1 <- Op(3,Ydata)
+ R2 <- Op(4,Ydata)
+ Rng <- paste("R=c(",as.character(R1),",",as.character(R2),")",sep="")
+ Theta <- (R1+R2)*0.5
+ BOWMIDDLE <<- list(c(C[1]+r*cos(Theta),C[2]+r*sin(Theta)),Theta)
+ M <- Op(1,BOWMIDDLE)
+ ThetaM <- Op(2,BOWMIDDLE)
+ BOWSTART <<- PA
+ BOWEND <<- PB
+ if (Cut==0){
+ Pd<- Circledata(c(C,r),Rng)
+ }
+ else{
+ Alpha <- R1; Beta <- ThetaM-Cut/(2*r)
+ Rng <- paste("Rng=c(",as.character(Alpha),",",as.character(Beta),")",sep="")
+ Pd <- Circledata(c(C,r),Rng)
+ Alpha <- ThetaM+Cut/(2*r); Beta <- R2
+ Rng <- paste("R=c(",as.character(Alpha),",",as.character(Beta),")",sep="")
+ Tmp <- Circledata(c(C,r),Rng)
+ Pd <- Appendrow(Pd,c(Inf,Inf),Tmp)
+ }
+}
+
+Bowmiddle <- function(...)
+{
+ varargin <- list(...)
+ Nargs <- length(varargin)
+ if( Nargs==0) {
+ M <- BOWMIDDLE
+ return(M)
+ }
+ if (Nargs==1) {
+ Bdata <- varargin[[1]]
+ A <- Bdata[1,]
+ Dind <- Dataindex(Bdata)
+ Dc <- Nrow(Dind)
+ Tmp <- Dind[Dc,2]
+ B <- Bdata[Tmp,]
+ if (Dc==1) {
+ Tmp1 <- round(Tmp/2)
+ }
+ else {
+ Tmp1 <- Dind[1,2]
+ }
+ D <- Bdata[Tmp1,]
+ B <- B-A
+ D <- D-A
+ Tmp1 <- B[1]*D[2]-D[1]*B[2]
+ Tmp2 <- (Norm(B)^2*D[2]-B[2]*Norm(D)^2)/2
+ Tmp3 <- -(Norm(B)^2*D[1]-B[1]*Norm(D)^2)/2
+ C <- c(Tmp2,Tmp3)/Tmp1+A
+ R <- Norm(C-A)
+ B <- B+A
+ V <- (A+B)/2-C
+ V <- V/Norm(V)
+ M <- C+R*V
+ }
+ else {
+ A <- varargin[[1]]; B <- varargin[[2]]
+ D <- 1/2*Norm(B-A)
+ H <- 0.2*D;
+ if (length(varargin)>=3) {
+ Tmp <- varargin[[3]]
+ H <- Tmp*D*0.2
+ }
+ H <- min(H,D)
+ Ydata <- MakeBowdata(A,B,H)
+ C <- Op(1,Ydata)
+ R <- Op(2,Ydata)
+ T <- (Op(3,Ydata)+Op(4,Ydata))/2
+ P <- C+R*c(cos(T),sin(T))
+ #M <- list(P,T)
+ M <- P
+ }
+ return(M)
+}
+
+##########################
+# 13.12.19 small movement supported
+
+Bowname<- function(...)
+{
+ varargin <- list(...)
+ Nargs <- length(varargin)
+ Siki <- varargin[[Nargs]]
+ Nargs<- Nargs-1
+ Dr<- "c"
+ if(Nargs>=1){
+ Tmp<- varargin[[Nargs]]
+ if(is.character(Tmp)){
+ Dr<- Tmp
+ Nargs<- Nargs-1
+ }
+ }
+ if (Nargs==0){
+ Siki <- varargin[[1]]
+ P <- Op(1,BOWMIDDLE)
+ }
+ else if (Nargs==1){
+ Bdata <- varargin[[1]]
+ P <- Bowmiddle(Bdata)
+ }
+ else{
+ A <- varargin[[1]]; B <- varargin[[2]]
+ D <- 1/2*Norm(B-A)
+ Tmp <- varargin[[3]]
+ if (is.character(Tmp)){
+ H <- D*0.2
+ }
+ else {
+ H <- Tmp*D*0.2
+ }
+ H <- min(H,D)
+ Ydata <- MakeBowdata(A,B,H)
+ Tmp <- Bowmiddle(Ydata)
+ P <- Op(1,Tmp)
+ }
+ Expr(P,Dr,Siki)
+}
+
+##########################
+# 13.12.19 small movement supported
+# A,B, ... no longer supported
+
+Bownamerot <- function(...)
+{
+ varargin <- list(...)
+ Nargs <- length(varargin)
+ Eps <- 10^(-6)
+ Flg <- 1
+ Tmp <- varargin[[Nargs]]
+ if (is.numeric(Tmp) && length(Tmp)==1 && Tmp<0){
+ Flg <- Tmp
+ Nargs <- Nargs-1
+ }
+ Siki <- varargin[[Nargs]]
+ Nargs<- Nargs-1
+ Dr<- "c"
+ if(Nargs>=1){
+ Tmp<- varargin[[Nargs]]
+ if(is.character(Tmp)){
+ Dr<- Tmp
+ Nargs<- Nargs-1
+ }
+ }
+ if (Nargs==0) {
+ P <- Op(1,BOWMIDDLE)
+ A <- BOWSTART
+ B <- BOWEND
+ }
+ else{
+ Bdata<- varargin[[1]]
+ P<- Bowmiddle(Bdata)
+ A=Bdata[1,]
+ B=Bdata[nrow(Bdata),]
+ Tm<- 0; Tv<- 0
+ if(Nargs>1){
+ Tm<- varargin[[2]]
+ if(Nargs>2){
+ Tv<- varargin[[3]]
+ }
+ }
+ }
+# else if (Nargs==2) {
+# Bdata <- varargin[[1]]
+# P <- Bowmiddle(Bdata)
+# A <- Bdata[1,]
+# B <- Bdata[Nrow(Bdata),]
+# Siki <- varargin[[2]]
+# }
+# else {
+# A <- varargin[[1]]; B <- varargin[[2]]
+# D <- 1/2*Norm(B-A)
+# Tmp <- varargin[[3]]
+# if (mode(Tmp)=="character") {
+# H <- 0.2*D; Siki <- Tmp
+# }
+# else {
+# H <- Tmp*D*0.2; Siki <- varargin[[4]]
+# }
+# H <- min(H,D)
+# Ydata <- MakeBowdata(A,B,H)
+# C <- Op(1,Ydata)
+# R <- Op(2,Ydata)
+# T <- (Op(3,Ydata)+Op(4,Ydata))/2
+# P <- C+R*c(cos(T),sin(T))
+# }
+ if (A[1]>B[1]+Eps){
+ Tmp <- A
+ A <- B
+ B <- Tmp
+ }
+ if (Flg>0) {
+ Tmp <- B-A
+ }
+ else{
+ Tmp <- A-B
+ }
+ Exprrot(P,Tmp,Tm,Tv,Siki)
+}
+
+CalcHeight<-function(Hoko,Moji)
+{
+ D<-0
+ H<-substring(Hoko,1,1)
+ Tmp<-paste("\\settoheight{\\Height}{",Moji,"}",sep="")
+ Str<-c(Tmp)
+ Tmp=paste("\\settodepth{\\Depth}{",Moji,"}",sep="")
+ Str<-c(Str,Tmp)
+ if (H=="n") Str<-c(Str,"\\setlength{\\Height}{\\Depth}")
+ if (H=="s") Str<-c(Str,"\\setlength{\\Height}{-\\Height}")
+ if (H=="c")
+ {
+ Str<-c(Str,"\\setlength{\\Height}{-0.5\\Height}")
+ Str<-c(Str,"\\setlength{\\Depth}{0.5\\Depth}")
+ Str<-c(Str,"\\addtolength{\\Height}{\\Depth}")
+ }
+ for (I in 1:length(Str)) cat(Str[I],file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+}
+
+#########################
+
+CalcWidth<-function(Hoko,Moji)
+{
+ D<-0;
+ H<-substring(Hoko,2,2)
+ if (H=="e") D<-0
+ if (H=="w") D<--1.0
+ if (H=="c") D<--0.5
+ Str1<-paste("\\settowidth{\\Width}{",Moji,"}",sep="")
+ Tmp<-as.character(D)
+ Str2<-paste("\\setlength{\\Width}{",Tmp,"\\Width}",sep="")
+ cat(Str1,file=Wfile,append=TRUE)
+ cat(Str2,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+}
+
+#########################
+# 17.09.17
+# 17.09.24
+
+Circledata<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Cr<- varargin[[1]]
+ C=Cr[1:2]
+ if(length(Cr)==4){
+ ra=Norm(C-Cr[3:4])
+ Nop=2
+ }
+ else{
+ ra=Cr[3]
+ Nop=2
+ }
+ R=c(0,2*pi)
+ N=50
+ for (I in Looprange(Nop,Nargs)){
+ Tmp<- varargin[[I]]
+ if(is.character(Tmp)){
+ Tmp1=regexpr("=",Tmp) #17.09.24from
+ Tmp2=substring(Tmp,Tmp1+1,nchar(Tmp))
+ Tmp1=substring(Tmp,1,Tmp1)
+ Tmp1=gsub("NUM", "N", toupper(Tmp1))
+ Tmp1=gsub("RNG", "R", Tmp1)
+ Tmp=paste(Tmp1,Tmp2,sep="") #17.09.24upto
+ eval(parse(text=Tmp))
+ }
+ }
+ Dt<- (R[2]-R[1])/N
+ T <- seq(R[1],R[2],by=Dt)
+ X <- C[1]+ra*cos(T)
+ Y <- C[2]+ra*sin(T)
+ XY<- c(X,Y)
+ P<- matrix(XY,ncol=2)
+ return(P)
+}
+
+#########################
+# 13.12.19
+
+Closefile<-function(...)
+{
+ varargin<- list(...)
+ if(length(varargin)>=1){
+ Pa<- varargin[[1]]
+ if(is.character(Pa)){
+ if(Pa=="1") Endpicture(1)
+ if(Pa=="0") Endpicture(0)
+ }
+ }
+ Wfile<<-""
+}
+
+#########################
+
+Closepar<- function()
+{
+ S<- "%\n\\end{minipage}"
+ cat(S,file=Wfile,append=TRUE)
+ Closephr()
+}
+
+
+####################################
+
+Closephr<- function()
+{
+ cat("%\n}%\n",file=Wfile,append=TRUE)
+}
+
+#####################################
+
+Dataindex<-function(P)
+{
+ # Inf;Inf : Terminator
+ Ndm<-c()
+ if (length(P)==0) return(Ndm)
+ N1<-1
+ Flg<-0
+ for (J in 1:Nrow(P))
+ {
+ if (P[J,1]==Inf)
+ {
+ Ndm<-Appendrow(Ndm,c(N1,J-1))
+ N1<-J+1;
+ if (P[N1,1]==Inf)
+ {
+ Flg<-1;
+ break;
+ }
+ }
+ }
+ if (Flg==0)
+ {
+ Ndm<-Appendrow(Ndm,c(N1,Nrow(P)))
+ }
+ if (class(Ndm)=="numeric")
+ {
+ Tmp<-matrix(Ndm,nrow=1)
+ Ndm<- Tmp
+ }
+ return(Ndm)
+}
+
+################################
+
+Dashline<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Nall<- Nargs; Sen<- 1 ; Gap<- 1
+ Tmp<- varargin[[Nall]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1 && Tmp>0){
+ Tmp1<- varargin[[Nall-1]]
+ if (mode(Tmp1)=="numeric" && length(Tmp1)==1 && Tmp1>0){
+ Sen<- Tmp1; Gap<- Tmp
+ Nall<- Nall-2
+ }
+ else{
+ Sen<- Tmp; Gap<- Sen
+ Nall<- Nall-1
+ }
+ }
+ Sen<- 1000/2.54/MilliIn*Sen
+ Gap<- 1000/2.54/MilliIn*Gap
+ for (N in Looprange(1,Nall)){
+ Pdata<- varargin[[N]]
+ if (Mixtype(Pdata)==1){
+ Pdata<- list(Pdata)
+ }
+ for (II in 1:length(Pdata)){
+ Figdata<- Op(II,Pdata)
+ Makehasen(Figdata,Sen,Gap,0)
+ }
+ }
+}
+
+##############################################
+
+Diagcelldata<- function(Tb,Nc,Nr)
+{
+ Tmp<- Findcell(Tb,Nc,Nr)
+ C<- Tmp[[1]]
+ Dx<- Tmp[[2]]
+ Dy<- Tmp[[3]]
+ Pne<- C+c(Dx,Dy)
+ Pnw<- C+c(-Dx,Dy)
+ Psw<- C+c(-Dx,-Dy)
+ Pse<- C+c(Dx,-Dy)
+ Tmp1<- Listplot(Pnw,Pse)
+ Tmp2<- Listplot(Pne,Psw)
+ list(Tmp1,Tmp2)
+}
+
+##############################################
+# 11.01.07
+
+Dividegraphics<- function(Pd)
+{
+ if (length(Pd)==0){
+ return(Pd)
+ }
+ DtL<- Flattenlist(Pd)
+ OutL<- list()
+ for (J in 1:length(DtL)){
+ Dt<- as.matrix(DtL[[J]])
+ Ndm<- Dataindex(Dt)
+ for (I in Looprange(1,Nrow(Ndm))){
+ Fd<- Dt[Ndm[I,1]:Ndm[I,2],]
+ OutL<- c(OutL,list(Fd))
+ }
+ }
+ return(OutL)
+}
+
+##############################################
+# 13.05.03
+
+Dividetable<- function(Tb)
+{
+ G<- Tb[[1]]
+ Gw<- G[[1]]
+ Gt<- G[Tb[[2]]]
+ Gy<- G[Tb[[3]]]
+ list(Gw,Gt,Gy)
+}
+
+################################################
+
+Doscaling<- function(G)
+{
+ GLg<- G
+ if (class(GLg)=="numeric")
+ {
+ if (LOGX==1) GLg[1]<- log(G[1], base=10)
+ if (LOGY==1) GLg[2]<- log(G[2], base=10)
+ Tmp<-c(SCALEX*GLg[1],SCALEY*GLg[2])
+ return(Tmp)
+ }
+ else
+ {
+ if (LOGX==1) GLg[,1]<- log(G[,1],base=10)
+ if (LOGY==1) GLg[,2]<- log(G[,2],base=10)
+ Tmp1<-matrix(c(SCALEX,0,0,SCALEY),nrow=2)
+ Tmp<-GLg %*% Tmp1
+ return(Tmp)
+ }
+}
+
+########################################
+
+Dotfilldata<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ ShaL<- list()
+ Eps<- 0.01
+ Kakudo<- 45
+ Kosa<- 0.5
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xmn<- Tmp[1]; Ymn<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ Xmx<- Tmp[1]; Ymx<- Tmp[2]
+ for (N in seq(Nargs,1,by=-1)){
+ Tmp<- varargin[[N]]
+ if (Mixtype(Tmp)!=1){
+ break
+ }
+ }
+ if (N<Nargs){
+ Kosa<- varargin[[N+1]]
+ }
+# Kosa<- min(Kosa,1)
+ Tmp<- 1/(2*Kosa)
+ Kankaku<- Tmp*0.100*1000/2.54/MilliIn
+ NaitenL<- varargin[[1]]
+ if (Mixtype(NaitenL)==1){
+ NaitenL<- list(NaitenL)
+ }
+ Ns<- 2
+ StartP<- Op(1,NaitenL)
+ if (mode(StartP)=="character"){
+ StartP<- c((Xmn+Xmx)/2,(Ymn+Ymx)/2)
+ }
+ else{
+ StartP<- Doscaling(StartP)
+ }
+ Tmp<- varargin[[2]]
+ if (Mixtype(Tmp)==1){
+ StartP<- Doscaling(Tmp)
+ Ns<- 3
+ }
+ Tmp<- list()
+ for (I in Looprange(Ns,N)){
+ Tmp<- Mixjoin(Tmp,list(varargin[[I]]))
+ }
+ Bdy<- Kyoukai(Tmp)
+ Bdys<-list()
+ for (I in 1:length(Bdy)){
+ Tmp1<- Bdy[[I]]
+ Tmp2<- Doscaling(Tmp1)
+ Bdys<- Mixjoin(Bdys,list(Tmp2))
+ }
+ Bdy<- Bdys
+ PtnL<- list()
+ for (I in Looprange(1,length(NaitenL))){
+ Tmp<- Op(I,NaitenL)
+ if (mode(Tmp)=="numeric"){
+ Tmp1<- Naigai(Tmp,Bdy)
+ PtnL<- Mixjoin(PtnL,list(Tmp1))
+ }
+ else{
+ if (mode(Tmp)!="character"){
+ return("Mode Error")
+ }
+ Ptn<- c()
+ for (J in Looprange(1,nchar(Tmp))){
+ if (substr(Tmp,J,J)=="i"){
+ Ptn<- c(Ptn,1)
+ }
+ else{
+ Ptn<- c(Ptn,0)
+ }
+ }
+ PtnL<- Mixjoin(PtnL,list(Ptn))
+ }
+ }
+ Call<- length(Bdy)
+ Ptn<- c(seq(0, 0, length=Call))
+ if (Member(Ptn,PtnL)){
+ Wn<- Doscaling(Framedata())
+ Bdy<- Mixjoin(Bdy,list(Wn))
+ Tmp<- list()
+ for (I in Looprange(1,length(PtnL))){
+ Tmp1<- c(Op(I,PtnL),1)
+ Tmp<- Mixjoin(Tmp,list(Tmp1))
+ }
+ PtnL<- Tmp
+ }
+ V<- c(cos(Kakudo*pi/180),sin(Kakudo*pi/180))
+ Vm<- c(-sin(Kakudo*pi/180),cos(Kakudo*pi/180))
+ Tmp<- Op(1,NaitenL)
+ if (mode(Tmp)=="numeric" && length(Tmp)==2){
+ Tmp<- Doscaling(Tmp)
+ Delta<- Tmp-StartP
+ K<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ PA<- StartP+K*Kankaku*Vm
+ P<- PA
+ Sha<- Makeshasen(PtnL,P,V,Bdy)
+ Sha<- Dividegraphics(Sha)
+ I<- 1
+ while (length(Sha)>0){
+ for (J in Looprange(1,length(Sha))){
+ Tmp<- Op(J,Sha)
+ Q<- Tmp[1,]
+ R<- Tmp[2,]
+ Tmp<- Dotprod(Q-P,V)/Kankaku
+ K1<- ceiling(Tmp)
+ if (abs(K1-Tmp)<Eps) K1=K1+1
+ Tmp<- Dotprod(R-P,V)/Kankaku
+ K2<- floor(Tmp)
+ if (abs(Tmp-K2)<Eps) K2=K2-1
+ for (K in Looprange(K1,K2)){
+ Tmp1<- Pointdata(P+K*Kankaku*V)
+ ShaL<- Mixjoin(ShaL, list(Tmp1))
+ }
+ }
+ P<- PA+I*Kankaku*Vm
+ Sha<- Makeshasen(PtnL,P,V,Bdy)
+ Sha<- Dividegraphics(Sha)
+ I<- I+1
+ }
+ P<- PA-Kankaku*Vm
+ Sha<- Makeshasen(PtnL,P,V,Bdy)
+ I<- 2
+ while (length(Sha)>0){
+ for (J in 1:length(Sha)){
+ Tmp<- Op(J,Sha)
+ Q<- Tmp[1,]
+ R<- Tmp[2,]
+ Tmp<- Dotprod(Q-P,V)/Kankaku
+ K1<- ceiling(Tmp)
+ if (abs(K1-Tmp)<Eps) K1<- K1+1
+ Tmp<- Dotprod(R-P,V)/Kankaku
+ K2<- floor(Tmp)
+ if (abs(Tmp-K2)<Eps) K2<- K2-1
+ for (K in Looprange(K1,K2)){
+ Tmp1<- Pointdata(P+K*Kankaku*V)
+ ShaL<- Mixjoin(ShaL, list(Tmp1))
+ }
+ }
+ P<- PA-I*Kankaku*Vm
+ Sha<- Makeshasen(PtnL,P,V,Bdy)
+ I<- I+1
+ }
+ }
+ else{
+ Delta<- c(Xmn,Ymn)-StartP
+ K1<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmx,Ymn)-StartP
+ K2<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmx,Ymx)-StartP
+ K3<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmn,Ymx)-StartP
+ K4<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ IM<- max(K1,K2,K3,K4)
+ Im<- min(K1,K2,K3,K4)
+ for (I in Im:IM){
+ P<- StartP+I*Kankaku*Vm
+ Sha<- Makeshasen(PtnL,P,V,Bdy)
+ Sha<- Dividegraphics(Sha)
+ if (length(Sha)>0){
+ for (J in 1:length(Sha)){
+ Tmp<- Op(J,Sha)
+ Q<- Tmp[1,]
+ R<- Tmp[2,]
+ Tmp<- Dotprod(Q-P,V)/Kankaku
+ K1<- ceiling(Tmp)
+ if (abs(K1-Tmp)<Eps) K1=K1+1
+ Tmp<- Dotprod(R-P,V)/Kankaku
+ K2<- floor(Tmp)
+ if (abs(Tmp-K2)<Eps) K2=K2-1
+ for (K in Looprange(K1,K2)){
+ Tmp1<- Pointdata(P+K*Kankaku*V)
+ ShaL<- Mixjoin(ShaL, list(Tmp1))
+ }
+ }
+ }
+ }
+ }
+ ShaLs<-list()
+ for (I in Looprange(1,length(ShaL)))
+ {
+ Tmp<- ShaL[[I]]
+ Tmp1<- Unscaling(Tmp)
+ ShaLs<- Mixjoin(ShaLs,Tmp1)
+ }
+ ShaL<- ShaLs
+ return(ShaL)
+}
+
+#############################################
+
+Dottedline<- function(...)
+{
+ varargin <- list(...)
+ Nall <- length(varargin)
+ Nagasa <- 0.1
+ Ookisa <- PenThick
+ I <- Nall
+ Tmp <- varargin[[I]]
+ while (mode(Tmp)=="numeric" && length(Tmp)==1 ) {
+ I <- I-1
+ Tmp <- varargin[[I]]
+ }
+ if (I==Nall-1) {
+ Nagasa<-Nagasa*varargin[[Nall]]
+ Nall <- Nall-1
+ }
+ if (I==Nall-2) {
+ Nagasa <- Nagasa*varargin[[Nall-1]]
+ Ookisa <- round(Ookisa*varargin[[Nall]])
+ Nall <- Nall-2
+ }
+ Nagasa <- 1000/2.54/MilliIn*Nagasa
+ for (N in 1:Nall) {
+ Pdata <- varargin[[N]]
+ if (mode(Pdata)=="numeric") {
+ Pdata <- list(Pdata)
+ }
+ for (II in 1:length(Pdata)) {
+ Clist <- MakeCurves(Op(II,Pdata))
+ DinM <- Dataindex(Clist)
+ for (n in Looprange(1,Nrow(DinM))) {
+ Tmp <- DinM[n,]
+ Data <- Clist[Tmp[1]:Tmp[2],]
+ Len <- 0
+ Lenlist <- c(0)
+ for (I in Looprange(2,Nrow(Data))) {
+ Len <- Len+Norm(Data[I,]-Data[I-1,])
+ Lenlist <- c(Lenlist,Len)
+ }
+ Lenall <- Lenlist[length(Lenlist)]
+ if (Lenall==0) {
+ next
+ }
+ Naga <- Nagasa
+ Nten <- round(Lenall/Naga)+1
+ if (Nten > 1) {
+ Seg <- Lenall/(Nten-1)
+ }
+ else {
+ Seg <- Lenall
+ }
+ Eps <- 10^(-6)*Seg
+ PPd<-c()
+ Hajime <- 1
+ for (I in Looprange(0,Nten-1)) {
+ Len <- Seg*I
+ if (I>0) {
+ J <- Hajime
+ while( Len>=Lenlist[J]+Eps) {
+ J <- J+1
+ }
+ Hajime <- J-1
+ }
+ T <- (Len-Lenlist[Hajime])/
+ (Lenlist[Hajime+1]-Lenlist[Hajime])
+ P <- Data[Hajime,]+T*(Data[Hajime+1,]-Data[Hajime,])
+ PPd<-Appendrow(PPd,P)
+ if (I==Nten-1) {
+ if (Norm(P-Data[1,])<Eps) {
+ next
+ }
+ }
+ }
+ Str<-paste("\\special{pn ", as.character(Ookisa),"}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ for (I in Looprange(1,Nrow(PPd))){
+ P<- Op(I,PPd)
+ if (Nrow(PPd)==1){
+ V<- c(1,0)
+ }
+ else if (I==1){
+ Tmp<- Op(I+1,PPd)-P
+ V<- 1/Norm(Tmp)*Tmp
+ }
+ else if (I==Nrow(PPd)){
+ Tmp<- P-Op(I-1,PPd)
+ V<- 1/Norm(Tmp)*Tmp
+ }
+ else{
+ Tmp1<- Op(I+1,PPd)-P
+ Tmp2<- P-Op(I-1,PPd)
+ Tmp3<-1/Norm(Tmp1)*Tmp1+1/Norm(Tmp2)*Tmp2
+ V<- 1/Norm(Tmp3)*Tmp3
+ }
+ Tmp<- round(MilliIn*P[1]-1/2*Ookisa*V[1])
+ X<- as.character(Tmp)
+ Tmp<- -round(MilliIn*P[2]-1/2*Ookisa*V[2])
+ Y<- as.character(Tmp)
+ Str<-paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Tmp<- round(MilliIn*P[1]+1/2*Ookisa*V[1])
+ X<- as.character(Tmp)
+ Tmp<- -round(MilliIn*P[2]+1/2*Ookisa*V[2])
+ Y<- as.character(Tmp)
+ Str<-paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("\\special{fp}",file=Wfile,append=TRUE)
+ if (I%%2==0){
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+ }
+ }
+ }
+ }
+ Tmp<-PenThick/PenThickInit
+ Setpen(Tmp);
+}
+
+###########################################
+
+Drwline<-function(...)
+{
+ varargin<-list(...)
+ Nall<-length(varargin)
+ Thick<-0
+ Tmp<-varargin[[Nall]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ Thick<-round(Tmp*PenThickInit)
+ Str<-paste("\\special{pn ", as.character(Thick),"}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Nall<-Nall-1
+ }
+ for (N in 1:Nall){
+ Pdata<-varargin[[N]]
+ if (length(Pdata)==0) next
+ if (mode(Pdata)!="list") Pdata<-list(Pdata)
+ while(Mixtype(Pdata)==3){ # 10.07.25
+ Tmp1<- list()
+ for(II in Looprange(1,length(Pdata))){
+ Tmp1<- Mixjoin(Tmp1,Pdata[[II]])
+ }
+ Pdata<- Tmp1
+ } # 10.07.25
+ for (II in Looprange(1,length(Pdata))){
+ Clist<-MakeCurves(Pdata[[II]])
+ DinM<-Dataindex(Clist)
+ for (n in Looprange(1,Nrow(DinM))){
+ Tmp<-DinM[n,]
+ Data<-Clist[Tmp[1]:Tmp[2],]
+ Mojisu<-0
+ for (I in Looprange(1,Nrow(Data))){
+ Tmp<-Data[I,]
+ X<- sprintf("%5.0f",MilliIn*Tmp[1]) # 11.07.19
+ Y<- sprintf("%5.0f",-MilliIn*Tmp[2]) # 11.07.19
+ Str<-paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<-Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<-0
+ }
+ }
+ if (Mojisu!=0){
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+ cat("\\special{fp}%\n",file=Wfile,append=TRUE)
+ }
+ }
+ }
+ Str<-"%"
+ if (Thick>0){
+ Tmp<-PenThick/PenThickInit
+ Setpen(Tmp)
+ }
+}
+
+###########################################
+
+Drwpt<-function(...)
+{ ## Scaling is implemented
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ if (TenSize>TenSizeInit){
+ N<- round(6*sqrt(TenSize/TenSizeInit))
+ }
+ else{
+ N<-4
+ }
+ Tmp<- varargin[[Nargs]]
+ if (mode(Tmp)=="numeric"){
+ if (length(Tmp)>1){
+ Kosa<- 1; All<- Nargs
+ }
+ else{
+ Kosa<- Tmp; All<- Nargs-1
+ }
+ }
+ else if (mode(Tmp)=="list"){
+ Kosa<- 1; All<- Nargs
+ }
+ CL<-c()
+ for (J in 0:N){
+ Tmp<- TenSize*0.5*1000/2.54/MilliIn
+ Tmp<- Tmp*c(cos(pi/4+J*2*pi/N),sin(pi/4+J*2*pi/N))
+ CL<- append(CL,Tmp)
+ }
+ CL<- matrix(CL,nrow=2)
+ CL<- t(CL)
+ for (II in Looprange(1,All)){
+ MS<- varargin[[II]]
+ MS=Flattenlist(MS) #17.10.11
+ if (mode(MS)=="numeric"){
+ MS<- list(MS)
+ }
+ for (I in Looprange(1,length(MS))){
+ P<- MS[[I]]
+ if (InWindow(P)!="i") next
+ P<- Doscaling(P)
+ PL<-c()
+ for (J in 0:N){
+ PL<- c(PL,P+CL[J+1,])
+ }
+ PL<-matrix(PL,nrow=2)
+ PL<-t(PL)
+ Mojisu<-0
+ for (J in 1:Nrow(PL)){
+ Q<- PL[J,]
+ X<- as.character(round(MilliIn*Q[1]))
+ Y<- as.character(-round(MilliIn*Q[2]))
+ Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("#\n",file=Wfile,append=TRUE)
+ }
+ Mojisu=0
+ }
+ Str1<- paste("\\special{sh ",as.character(Kosa),"}",sep="")
+ Str2<- "\\special{fp}%\n"
+ cat(Str1,file=Wfile,append=TRUE)
+ cat(Str2,file=Wfile,append=TRUE)
+ }
+ }
+}
+
+######################################################
+
+Drwxy<-function(...)
+{
+ varargin<-list(...)
+ Nargs <- length(varargin)
+ Tmp<-grep("arrow", ZIKU)
+ if (length(Tmp)>0)
+ {
+ Arrowline(c(XMIN,GENTEN[2]),c(XMAX,GENTEN[2]),ARROWSIZE)
+ Arrowline(c(GENTEN[1],YMIN),c(GENTEN[1],YMAX),ARROWSIZE)
+ }
+ else
+ {
+ Drwline(Listplot(c(XMIN,GENTEN[2]),c(XMAX,GENTEN[2])))
+ Drwline(Listplot(c(GENTEN[1],YMIN),c(GENTEN[1],YMAX)))
+ }
+ Letter(c(XMAX,GENTEN[2]),XPOS,XNAME)
+ Letter(c(GENTEN[1],YMAX),YPOS,YNAME)
+ Letter(GENTEN,OPOS,ONAME);
+}
+
+##########################################
+# 10.12.04
+
+Enclosing<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ P<- varargin[[1]]
+ if (Mixtype(P)==2){
+ Tmp<- Op(1,P)
+ if (mode(Tmp)!="numeric" || length(Tmp)>1){
+ AnsL<- EnclosingS(...)
+ AnsL<- Joincrvs(AnsL) # 10.12.04
+ return(AnsL)
+ }
+ }
+}
+
+#########################################
+
+EnclosingS<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ AnsL<- list()
+ PdataL<- varargin[[1]]
+ Nall<-length(PdataL)
+ Eps<- 10^(-3)
+ EEps<- 0.1
+ S<- c()
+ Flg<- 0
+ for (I in Looprange(2,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric" && Nrow(Tmp)==1 && length(Tmp)>1){
+ S<- Tmp
+ }
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ if (Flg==0){
+ Eps<- Tmp
+ Flg=Flg+1
+ }
+ else{
+ EEps<- Tmp
+ }
+ }
+ }
+ F<- Op(1,PdataL); G<- Op(Nall,PdataL)
+ KL<- IntersectcrvsPp(F,G)
+ if (length(KL)==1){
+ Tmp<- Op(1,KL)
+ P<- Op(1,Tmp)
+ T1<- Op(2,Tmp)
+ }
+ if (length(KL)==0){
+ if (Numptcrv(F)>Numptcrv(G)){
+ Tmp<- Nearestpt(F,G)
+ P<- Op(1,Tmp)
+ T1=Op(2,Tmp)
+ }
+ else{
+ Tmp<- Nearestpt(G,F)
+ P<- Op(3,Tmp)
+ T1<- Op(4,Tmp)
+ }
+ }
+ if (length(KL)>=2){
+ if (length(S)==0){
+ return("No Start Point")
+ }
+ Tmp<- Op(1,KL)
+ P<- Op(1,Tmp)
+ T1<- Op(2,Tmp)
+ Tmp<- Norm(P-S)
+ for (I in Looprange(2,length(KL))){
+ Tmp1<- Op(1,Op(I,KL))
+ Tmp2<- Norm(Tmp1-S)
+ if (Tmp2<Tmp){
+ P<- Tmp1
+ T1<- Op(2,Op(I,KL))
+ Tmp<- Tmp2
+ }
+ }
+ }
+ S<- P
+ AnsL<- list()
+ for (N in Looprange(1,Nall)){
+ F<- Op(N,PdataL)
+ if (N>1) P<- Q
+ if (N==Nall){
+ Q=S
+ }
+ else{
+ Flg<- 0
+ G<- Op(N+1,PdataL)
+ KL<- IntersectcrvsPp(G,F)
+ if (length(KL)==1){
+ Tmp<- Op(1,KL)
+ Q<- Op(1,Tmp)
+ T3<- Op(2,Tmp)
+ Flg<- 10
+ }
+ if (length(KL)==0) Flg<- 1
+ if (length(KL)>=2){ # Maple bug?
+ Tmp1<- Op(1,Op(1,KL))
+ Tmp2<- Op(1,Op(2,KL))
+ Tmp<- Norm(Tmp1-Tmp2)
+ if (Tmp<Eps*10) Flg<- 1
+ }
+ if (Flg==1){
+ if (Numptcrv(F)>Numptcrv(G)){
+ Tmp<- Nearestpt(F,G)
+ Q<- Op(1,Tmp)
+ T3<- Op(4,Tmp)
+ Flg<- 10
+ }
+ else{
+ Tmp<- Nearestpt(G,F)
+ Q<- Op(3,Tmp)
+ T3<- Op(2,Tmp)
+ Flg<- 10
+ }
+ }
+ if (Flg<10){
+ T2<- Inf
+ for (I in Looprange(1,length(KL))){
+ Dt<- Op(I,KL)
+ Tmp1<- Op(1,Dt)
+ Tmp<- Op(3,Dt)
+ Tmp2<- Paramoncrv(Tmp1,Tmp,F)
+ Tmp3<- Op(2,Dt)
+ if (Tmp2>T1+Eps && Tmp2<T2-Eps){
+ Q<- Tmp1
+ T2<- Tmp2
+ T3<- Tmp3
+ }
+ }
+ }
+ }
+ Tmp<- Partcrv(P,Q,F)
+ T1<- T3
+ AnsL<- Mixjoin(AnsL,list(Tmp))
+ }
+ return(AnsL)
+}
+
+########################################
+
+Endpicture<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ if (Nargs==0)
+ {
+ Drwxy()
+ }
+ else
+ {
+ if (varargin[[1]]==1) Drwxy()
+ }
+ cat("\\end{picture}}%",file=Wfile,append=TRUE)
+# MEMORI<<-MEMORINow*1000/2.54/MilliIn
+ Setunitlen("1cm")
+}
+
+#########################################
+
+Execmd<- function(StrL)
+{
+ if(mode(StrL)=="character" && length(StrL)==1){
+ StrL<- list(StrL)
+ }
+ for (I in Looprange(1,length(StrL))){
+ if (!is.na(Op(I,StrL)) && nchar(Op(I,StrL))>0){
+ eval(parse(text=Op(I,StrL)))
+ }
+ }
+}
+
+#########################################
+
+Expr<-function(...)
+{ ## Scaling is implemented
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Irng<-c(seq(from=1,to=Nargs,by=3))
+ for (I in Irng)
+ {
+ Tmp<-varargin[[I]]
+ P<- Doscaling(Tmp)
+ X<-P[1]
+ Y<-P[2]
+ Houkou<-varargin[[I+1]]
+ Mojiretu<-paste("$",varargin[[I+2]],"$",sep="")
+ Hset<-Houkou
+ Vhoko<-"c"
+ if (length(grep("n",Hset))>0)
+ {
+ Vhoko<-"n"; Y<-Y+MEMORI
+ }
+ if (length(grep("s",Hset))>0)
+ {
+ Vhoko<-"s"; Y<-Y-MEMORI
+ }
+ Hhoko<-"c"
+ if (length(grep("e",Hset))>0)
+ {
+ Hhoko<-"e"; X<-X+MEMORI
+ }
+ if (length(grep("w",Hset))>0)
+ {
+ Hhoko<-"w"; X<-X-MEMORI
+ }
+ Hoko<-paste(Vhoko,Hhoko,sep="")
+ Suu<-"+-.0123456789"
+ SuuL<-Suu
+ J<-1; Dstr<-""
+ while (J<=nchar(Houkou))
+ {
+ Tmp<-substring(Houkou,J,J)
+ if (length(grep(Tmp,Suu))>0)
+ {
+ if (Dstr=="") Hk<-substring(Houkou,J-1,J-1)
+ Dstr<-paste(Dstr,Tmp,sep="")
+ }
+ else
+ {
+ if (Dstr!="")
+ {
+ Nmbr<-as.numeric(Dstr)
+ D<-Nmbr*MEMORI
+ if (Hk=="n") Y<-Y+D
+ if (Hk=="s") Y<-Y-D
+ if (Hk=="e") X<-X+D
+ if (Hk=="w") X<-X-D
+ Dstr<-""
+ }
+ }
+ J<-J+1
+ }
+ if (Dstr!="")
+ {
+ Nmbr<-as.numeric(Dstr)
+ D<-Nmbr*MEMORI;
+ if (Hk=="n") Y<-Y+D
+ if (Hk=="s") Y<-Y-D
+ if (Hk=="e") X<-X+D
+ if (Hk=="w") X<-X-D
+ }
+ CalcWidth(Hoko,Mojiretu)
+ CalcHeight(Hoko,Mojiretu)
+ cat("\\put(",file=Wfile,append=TRUE)
+ Tmp1<- sprintf("%7.7f",X) # 11.07.19
+ Tmp2<- sprintf("%7.7f",Y) # 11.07.19
+ Str<-paste(Tmp1,",",Tmp2,sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Tmp<-"){\\hspace*{\\Width}"
+ Str<-paste(Tmp,"\\raisebox{\\Height}{",Mojiretu,"}}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+##########################################
+
+Exprrot<- function(...)
+{
+ varargin<- list(...)
+ P<- varargin[[1]]
+ V<- varargin[[2]]; N<- 3
+ P<- Doscaling(P)
+ V<- Doscaling(V)
+ Tmov<- 0
+ Tmp<- varargin[[N]]
+ if (mode(Tmp)=="numeric"){
+ Tmov<- Tmp; N<- N+1
+ }
+ Nmov<- 0
+ Tmp<- varargin[[N]]
+ if (mode(Tmp)=="numeric"){
+ Nmov<- Tmp; N<- N+1
+ }
+ Mojiretu<- paste("$",varargin[[N]],"$",sep="")
+ Tv<- 1/Norm(V)*V
+ Nv<- c(-Tv[2],Tv[1])
+ P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv
+ Tmp<- acos(V[1]/Norm(V))
+ Theta<- round(Tmp*180/pi)
+ if (V[2]>=0){
+ Units<- ""
+ }
+ else{
+ Units<- "units=-360,"
+ }
+ Tmp<- paste("\\rotatebox[",Units,"origin=c]{",as.character(Theta),sep="")
+ Tmp<- paste(Tmp,"}{",Mojiretu,"}",sep="")
+ Letter(P,"c",Tmp)
+}
+
+######################################################
+
+Findcell<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ Ag<- varargin[[2]]
+ Alpha<- "-ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ if (mode(Ag)=="character"){
+ Clm<- c()
+ Rstr<- ""
+ for (I in Looprange(1,nchar(Ag))){
+ C<- substr(Ag,I,I)
+ C<- toupper(C)
+ Tmp<- strsplit(Alpha,C)
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ Tmp1<- nchar(Tmp[1])
+ Clm<- c(Clm,Tmp1)
+ }
+ else{
+ Rstr<- paste(Rstr,C,sep="")
+ }
+ }
+ Nrg<- 0
+ for (I in seq(length(Clm),1,by=-1)){
+ Tmp<- Clm[I]
+ Tmp1<- length(Clm)-I
+ Nrg<- Nrg+Tmp*26^Tmp1
+ }
+ Mrg<- eval(parse(text=Rstr))
+ if (Nargs>=3){
+ Ag<- varargin[[3]]
+ Clm<- c()
+ Rstr<- ""
+ for (I in Looprange(1,nchar(Ag))){
+ C<- substr(Ag,1,1)
+ C<- toupper(C)
+ Tmp<- strsplit(Alpha,C)
+ if (length(Tmp)>1){
+ Clm<- c(Clm,Tmp+1)
+ }
+ else{
+ Rstr<- paste(Rstr,C,sep="")
+ }
+ }
+ Nrg2<- 0
+ for (I in seq(length(Clm),1,by=-1)){
+ Tmp<- Clm[I]
+ Tmp1<- length[Clm]-I
+ Nrg2<- Nrg2+Tmp*26^Tmp1
+ }
+ Nrg<- c(Nrg,Nrg2)
+ Tmp=eval(parse(text=Rstr))
+ Mrg<- c(Mrg,Tmp)
+ }
+ }
+ else{
+ Nrg<- varargin[[2]]
+ Mrg<- varargin[[3]]
+ }
+ if (length(Mrg)==1){
+ m1<- Mrg; m2<- m1+1
+ }
+ else{
+ m1<- Mrg[1]; m2<- Mrg[2] # 10.12.12
+ }
+ if (length(Nrg)==1){
+ n1<- Nrg; n2<- n1+1
+ }
+ else{
+ n1<- Nrg[1]; n2<- Nrg[2]
+ }
+ n1<- n1+1; n2<- n2+1
+ m1<- m1+1; m2<- m2+1
+ Hind<- TbL[[2]]
+ Vind<- TbL[[3]]
+ Tmp<- TbL[[1]]
+ HL<- Tmp[Hind]
+ Tmp1<- Op(1,TbL[[4]])
+ Tmp2<- Op(2,TbL[[4]])
+ HL<- Mixjoin(list(Tmp1),HL,list(Tmp2))
+ VL<- Tmp[Vind]
+ Tmp1<- Op(1,TbL[[5]])
+ Tmp2<- Op(2,TbL[[5]])
+ VL<- Mixjoin(list(Tmp1),VL,list(Tmp2))
+ Tmp<- TbL[[6]]
+ Tmp1<- Listplot(c(Ptsw(Tmp),Ptnw(Tmp)))
+ Tmp2<- Listplot(c(Ptse(Tmp),Ptne(Tmp)))
+ HL<- Mixjoin(list(Tmp1),HL,list(Tmp2))
+ Tmp1<- Listplot(c(Ptnw(Tmp),Ptne(Tmp)))
+ Tmp2<- Listplot(c(Ptsw(Tmp),Ptse(Tmp)))
+ VL<- Mixjoin(list(Tmp1),VL,list(Tmp2))
+ Tmp<- HL[[n1]]
+ if (mode(Tmp)=="numeric"){
+ H1<- Tmp[1,1]
+ }
+ else{
+ Tmp1<- Tmp[[1]]
+ H1<- Tmp1[1,1]
+ }
+ Tmp<- HL[[n2]]
+ if (mode(Tmp)=="numeric"){
+ H2<- Tmp[1,1]
+ }
+ else{
+ Tmp1<- Tmp[[1]]
+ H2<- Tmp1[1,1]
+ }
+ Tmp<- VL[[m1]]
+ if (mode(Tmp)=="numeric"){
+ V1<- Tmp[1,2]
+ }
+ else{
+ Tmp1<- Tmp[[1]]
+ V1<- Tmp1[1,2]
+ }
+ Tmp<- VL[[m2]]
+ if (mode(Tmp)=="numeric"){
+ V2<- Tmp[1,2]
+ }
+ else{
+ Tmp1<- Tmp[[1]]
+ V2<- Tmp1[1,2]
+ }
+ Pt<- c((H1+H2)/2,(V1+V2)/2)
+ High<- (V1-V2)/2
+ Wide<- (H2-H1)/2
+ Out<- list(Pt,Wide,High)
+ return(Out)
+}
+
+############################################
+
+Flattenlist<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Out<- list()
+ for(N in Looprange(1,Nargs)){
+ D<- varargin[[N]]
+ if(is.data.frame(D) || !is.list(D)){ # modify
+ Out<- c(Out,list(D))
+ }
+ else{
+ for(I in Looprange(1,length(D))){
+ Ds<- D[[I]]
+ Tmp<- Flattenlist(Ds)
+ Out<- c(Out,Tmp)
+ }
+ }
+ }
+ return(Out)
+}
+
+############################################
+
+Fontsize<- function(Ookisa)
+{
+ Str<- "%"
+ S<- substr(Ookisa,1,1)
+ if (S=="n"){
+ Str<- "\\normalsize%"
+ }
+ if (S=="s"){
+ if (nchar(Ookisa)==1){
+ Tmp<- "n"
+ }
+ else{
+ Tmp<- substr(Ookisa,2,2)
+ }
+ if (Tmp=="s"){
+ Str<- "\\scriptsize%"
+ }
+ else{
+ Str<- "\\small%"
+ }
+ }
+ if (S=="f"){
+ Str<- "\\footnotesize%"
+ }
+ if (S=="t"){
+ Str<- "\\tiny%"
+ }
+ if (S=="l"){
+ Str<- "\\large%"
+ }
+ if (S=="L"){
+ if (nchar(Ookisa)==1){
+ Tmp<- "a"
+ }
+ else{
+ Tmp<- substr(Ookisa,2,2)
+ }
+ if (Tmp=="a"){
+ Str<- "\\Large%"
+ }
+ else{
+ Str<- "\\LARGE%"
+ }
+ }
+ if (S=="h"){
+ Str<- "\\huge%"
+ }
+ if (S=="H"){
+ Str<- "\\Huge%"
+ }
+ cat(Str,file=Wfile,append=TRUE)
+ cat("\n",file=Wfile,append=TRUE)
+}
+
+##########################################
+
+Fracform<- function(...)
+{
+ varargin<- list(...)
+ Eps<- 10^(-10)
+ Nmax<- 1/Eps
+ Nargs<- length(varargin)
+ X<- varargin[[1]]
+ Nr<- Nrow(X)
+ X<- as.matrix(X,nrow=Nr)
+ for (I in Looprange(2,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)!="numeric"){
+ next
+ }
+ if (Tmp>1){
+ Nmax<- Tmp
+ }
+ else if (Tmp>0){
+ Eps<- Tmp
+ }
+ }
+ Tmp<- rep("",length(X))
+ Out<- matrix(Tmp,nrow=nrow(X))
+ for (I in Looprange(1,nrow(X))){
+ for (J in Looprange(1,ncol(X))){
+ Dt<- X[I,J]
+ if (mode(Dt)=="character"){
+ Dt<- eval(parse(text=Dt))
+ }
+ R<- 1
+ N<- 0
+ Rmin<- R
+ Nr<- N
+ while (R>Eps && N<Nmax){
+ N<- N+1
+ M<- round(Dt*N)
+ R<- abs(Dt-M/N)
+ if (R<Rmin){
+ Rmin<- R
+ Nr<- N
+ }
+ }
+ if (N==Nmax){
+ N<- Nr
+ M<- round(Dt*N)
+ }
+ Tmp<- as.character(M)
+ if (N!=1){
+ Tmp<- paste(Tmp,"/",as.character(N),sep="")
+ }
+ Out[I,J]<- Tmp
+ }
+ }
+ if (nrow(Out)==1){
+ Out<- as.character(Out)
+ }
+ return(Out)
+}
+
+##############################################
+# 2011.12.17 ( list )
+
+Framedata<-function(...)
+{
+ varargin<- Flattenlist(list(...))
+ N<-length(varargin)
+ if (N<= 1){
+ H<- 1.0*10^(-4);
+ PA<-c(XMIN+H,YMIN+H)
+ PB<-c(XMAX-H,YMIN+H)
+ PC<-c(XMAX-H,YMAX-H)
+ PD<-c(XMIN+H,YMAX-H)
+ }
+ else{
+ Tmp<-varargin[[N]]
+ if (is.numeric(Tmp) && length(Tmp)==1){
+ Dy<-Tmp; Dx<-Dy
+ Tmp<-varargin[[N-1]]
+ if (is.numeric(Tmp) && length(Tmp)==1){
+ Dx<-Tmp
+ }
+ Tmp<-varargin[[1]]
+ X<-Tmp[1]; Y<-Tmp[2]
+ X1<-X-Dx; X2<-X+Dx; Y1<-Y-Dy; Y2<-Y+Dy
+ }
+ else{
+ Tmp<-varargin[[1]]
+ X1<-Tmp[1]; X2<-Tmp[2]
+ Tmp<-varargin[[2]]
+ Y1<-Tmp[1]; Y2<-Tmp[2]
+ }
+ PA<-c(X1,Y1); PB<-c(X2,Y1)
+ PC<-c(X2,Y2); PD<-c(X1,Y2)
+ }
+ Out<- Listplot(c(PA,PB,PC,PD,PA))
+ return(Out)
+}
+
+###################################
+
+Hatchdata<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ ShaL<- list()
+ Nargs<- length(varargin)
+ Kakudo<- 45
+ Kankaku<- 0.125*1000/2.54/MilliIn
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xmn<- Tmp[1]; Ymn<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ Xmx<- Tmp[1]; Ymx<- Tmp[2]
+ for (N in seq(Nargs,1, by=-1))
+ {
+ Tmp<- varargin[[N]]
+ if (mode(Tmp)=="list")
+ {
+ break
+ }
+ }
+ if (N<Nargs)
+ {
+ Kakudo<- varargin[[N+1]]
+ if (N==Nargs-2)
+ {
+ Kankaku<- 0.125*varargin[[Nargs]]
+ }
+ }
+ NaitenL<- varargin[[1]]
+ if (mode(NaitenL)!="list")
+ {
+ NaitenL<- list(NaitenL)
+ }
+ Ns<- 2
+ StartP<- Op(1,NaitenL)
+ if (mode(StartP)=="character")
+ {
+ StartP<- c((Xmn+Xmx)/2, (Ymn+Ymx)/2)
+ }
+ if (mode(varargin[[2]])=="numeric")
+ {
+ StartP<- varargin[[2]]
+ StartP<- Doscaling(StartP)
+ Ns<- 3
+ }
+ Tmp<- list()
+ for ( I in Looprange(Ns,N))
+ {
+ Tmp1<- list(varargin[[I]])
+ Tmp2<- Mixjoin(Tmp, Tmp1)
+ Tmp<- Tmp2
+ }
+ Bdy<- Kyoukai(Tmp)
+ Bdys<-list()
+ for (I in 1:length(Bdy))
+ {
+ Tmp1<- Bdy[[I]]
+ Tmp2<- Doscaling(Tmp1)
+ Bdys<- Mixjoin(Bdys,list(Tmp2))
+ }
+ Bdy<- Bdys
+ PtnL<- list()
+ for (I in Looprange(1,length(NaitenL)))
+ {
+ Tmp<- Op(I, NaitenL)
+ if (mode(Tmp)=="numeric")
+ {
+ Tmp1<- Naigai(Tmp,Bdy)
+ Tmp2<- Mixjoin(PtnL, list(Tmp1))
+ PtnL<- Tmp2
+ }
+ else
+ {
+ if (mode(Tmp)!="character")
+ {
+ return("Mode Error")
+ }
+ Ptn<-c()
+ for (J in 1:nchar(Tmp))
+ {
+ if (Op(J,Tmp)=="i")
+ {
+ Ptn<- c(Ptn,1)
+ }
+ else
+ {
+ Ptn<- c(Ptn,0)
+ }
+ }
+ PtnL<- Mixjoin(PtnL, list(Ptn))
+ }
+ }
+ Call<- length(Bdy)
+ Ptn<- c(seq(0, 0, length=Call))
+ if (Member(Ptn,PtnL))
+ {
+ Wn<- Doscaling(Framedata())
+ Tmp<- Mixjoin(Bdy,list(Wn))
+ Bdy<- Tmp
+ Tmp<- list()
+ for (I in Looprange(1, length(PtnL)))
+ {
+ Tmp1<- c(Op(I,PtnL),1)
+ Tmp2<- Mixjoin(Tmp,list(Tmp1))
+ Tmp<- Tmp2
+ }
+ PtnL<- Tmp
+ }
+ V<- c(cos(Kakudo*pi/180),sin(Kakudo*pi/180))
+ Vm<- c(-sin(Kakudo*pi/180),cos(Kakudo*pi/180))
+ Tmp<- Op(1,NaitenL)
+ if (mode(Tmp)=="numeric" && length(Tmp)==2)
+ {
+ Tmp<- Doscaling(Tmp)
+ Delta<- Tmp-StartP
+ K<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ PA<- StartP+K*Kankaku*Vm
+ Sha<- Makeshasen(PtnL,PA,V,Bdy)
+ I <- 1
+ while (length(Sha)>0)
+ {
+ Tmp<- Mixjoin(ShaL, list(Sha))
+ ShaL <- Tmp
+ Sha<- Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy)
+ I <- I+1
+ }
+ Sha<- Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy)
+ I<- 2
+ while (length(Sha)>0)
+ {
+ for (J in 1:length(Sha))
+ {
+ Tmp<- Mixjoin(ShaL,list(Sha[[J]]))
+ ShaL<- Tmp
+ }
+ Sha<- Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy)
+ I<- I+1
+ }
+ }
+ else
+ {
+ Delta<- c(Xmn,Ymn)-StartP
+ K1<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmx,Ymn)-StartP
+ K2<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmx,Ymx)-StartP
+ K3<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ Delta<- c(Xmn,Ymx)-StartP
+ K4<- trunc(Dotprod(Delta,Vm)/Kankaku)
+ IM<- max(K1,K2,K3,K4)
+ Im<- min(K1,K2,K3,K4)
+ for (I in Im:IM)
+ {
+ Sha<- Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy)
+ for (J in Looprange(1,length(Sha)))
+ {
+ Tmp<- Mixjoin(ShaL, list(Sha[[J]]))
+ ShaL<- Tmp
+ }
+ }
+ }
+ ShaLs<-list()
+ for (I in Looprange(1,length(ShaL)))
+ {
+ Tmp<- ShaL[[I]]
+ Tmp1<- Unscaling(Tmp)
+ Tmp2<- Mixjoin(ShaLs, list(Tmp1))
+ ShaLs<- Tmp2
+ }
+ ShaL<- ShaLs
+ return(ShaL)
+}
+
+######################################
+
+Htickmark<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ ArgsL<- varargin
+ if (mode(ArgsL[[1]])=="character"){
+ Str<- ArgsL[[1]]
+ Tmp<- strsplit(Str,"m")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ I<- nchar(Tmp[1])+1
+ }
+ else{
+ I<- 0
+ }
+ Tmp<- strsplit(Str,"n")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ J<- nchar(Tmp[1])+1
+ }
+ else{
+ J<- 0
+ }
+ Tmp<- strsplit(Str,"r")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ K=nchar(Tmp[1])+1
+ }
+ else{
+ K<- 0
+ }
+ if (K>0){
+ S<- substr(Str,K+1,nchar(Str))
+ R<- as.numeric(S)
+ if (is.na(R)){
+ R<- 1
+ }
+ }
+ else{
+ R<- 1
+ K<- nchar(Str)+1
+ }
+ if (J>0){
+ S<- substr(Str,J+1,K-1)
+ Dn<- as.numeric(S)
+ if (is.na(Dn)){
+ Dn<- 1
+ }
+ }
+ else{
+ Dn<- 1000
+ J<- nchar(Str)+1
+ }
+ S<- substr(Str,I+1,J-1)
+ Dm<- as.numeric(S)
+ if (is.na(Dm)){
+ Dm<- 1
+ }
+ ArgsL<- list()
+ for (I in Looprange(1, floor((XMAX-GENTEN[1])/Dm))){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ for (I in seq(-1,ceiling((XMIN-GENTEN[1])/Dm),by=-1)){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ }
+ MemoriList<- list()
+ Memori<- list()
+ for (N in 1:length(ArgsL)){
+ Dt<- ArgsL[[N]]
+ if (mode(Dt)=="numeric" && length(Dt)>1){
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt[1],Dt[2])
+ next
+ }
+ if (mode(Dt)=="character"){
+ Memori<- Mixjoin(Memori,Dt)
+ }
+ else{
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt,GENTEN[2])
+ }
+ }
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ for (N in 1:length(MemoriList)){
+ Dt<- MemoriList[[N]]
+ Ndt<- length(Dt)
+ X=Op(1,Dt)
+ Y=Op(2,Dt)
+ Tmp<-Doscaling(c(X,Y))
+ X<- Tmp[1]
+ Y<- Tmp[2]
+ Moji<- Op(Ndt,Dt)
+ Tmp1<- Unscaling(c(X,Y+MARKLEN))
+ Tmp2<- Unscaling(c(X,Y-MARKLEN))
+ Fd<- Listplot(c(Tmp1,Tmp2))
+ Drwline(Fd)
+ if (Ndt==3){
+ Tmp<-Unscaling(c(X,Y-MARKLEN))
+ Expr(Tmp,"s",Moji)
+ }
+ if (Ndt==4){
+ Houkou<- Op(3,Dt)
+ Tmp<-grep("s",Houkou)
+ if (length(Tmp)>0){
+ Tmp<-Unscaling(c(X,Y-MARKLEN))
+ Expr(Tmp,Houkou,Moji)
+ }
+ else{
+ Tmp<- Unscaling(c(X,Y+MARKLEN))
+ Expr(Tmp,Houkou,Moji)
+ }
+ }
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+#############################################
+# 2013.08.07
+
+Integrate<- function(Fs,Vs, Intv){
+ if(is.function(Fs)){
+ Fn<- Fs
+ }
+ else{
+ Str<- paste("Fn<- function(",Vs, ") ", Fs, sep="")
+ eval(parse(text=Str))
+ }
+ Tmp<- integrate(Fn, Intv[[1]], Intv[[2]])
+ Out<- Tmp[[1]]
+ return(Out)
+}
+
+#############################################
+
+Intersectcrvs<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Eps<-10^(-4)
+ Tmp<-varargin[[Nargs]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1)
+ {
+ Eps<-Tmp
+ }
+ G1<-varargin[[1]]
+ if (mode(G1)=="numeric")
+ {
+ G1<-list(G1)
+ }
+ G2<-varargin[[2]]
+ if (mode(G2)=="numeric")
+ {
+ G2<-list(G2)
+ }
+ PL<-list()
+ for (N in 1:length(G1))
+ {
+ for (M in 1:length(G2))
+ {
+ KL<-IntersectcrvsPp(G1[[N]],G2[[M]],Eps)
+ for (I in Looprange(1,length(KL)))
+ {
+ Tmp<-KL[[I]]
+ P<-Tmp[1]
+ PL<-append(PL,P)
+ }
+ }
+ }
+ return(PL)
+}
+
+###########################################
+
+IntersectcrvsPp<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ G1<-varargin[[1]]; G2<-varargin[[2]]
+ Eps<- 10.0^(-4)
+ if (Nargs>2) Eps<-varargin[[3]]
+ SqEps<- 10.0^(-10)
+ Eps2<- 0.1
+ if (Nargs>3) Eps2<-varargin[[4]]
+ Data1<-G1
+ Data2<-G2
+ if (Nrow(Data1)==Nrow(Data2))
+ {
+ Tmp<-seq(Nrow(Data2),1, by=-1)
+ Tmp1<-Data2[Tmp,]
+ Eps0<-10^(-6)
+ Tmp2<-Norm(Data1-Data2)
+ Tmp3<-Norm(Data1-Tmp1)
+ if (Tmp2<Eps0||Tmp3<Eps0)
+ {
+ KL<-list()
+ return(KL)
+ }
+ }
+ KL1<-list()
+ KL2<-list()
+ for (I in Looprange(1,Nrow(Data1)-1))
+ {
+ A<-Data1[I,]
+ B<-Data1[I+1,]
+ for (J in Looprange(1,Nrow(Data2)-1))
+ {
+ P<-Data2[J,]; Q<-Data2[J+1,]
+ Tmp<-Koutenseg(A,B,P,Q,Eps,Eps2)
+ if (mode(Tmp)=="list")
+ {
+ if (Tmp[[3]]==0)
+ {
+ Tmp1<-list(Tmp[[1]],Tmp[[2]],I,J)
+ KL1<-append(KL1,list(Tmp1))
+ }
+ else
+ {
+ Tmp2<-list(Tmp[[1]],Tmp[[2]],I,J)
+ KL2<-append(KL2, list(Tmp2))
+ }
+ }
+ }
+ }
+ KL<-list()
+ if (length(KL1)>0)
+ {
+ Tmp<-KL1[[1]]
+ P<-Tmp[[1]]
+ T<-Tmp[[2]]
+ I<-Tmp[[3]]
+ J<-Tmp[[4]]
+ Tmp<-list(P,I+T,J)
+ KL<-list(Tmp)
+ }
+ for (N in Looprange(2,length(KL1)))
+ {
+ Tmp<-KL1[[N]]
+ P<-Tmp[[1]]
+ Flg<-0
+ for (K in 1:length(KL))
+ {
+ if (1>length(KL)) break
+ Tmp<-KL[[K]]
+ if (Norm(P-Tmp[[1]])^2<SqEps)
+ {
+ Flg<-1
+ break
+ }
+ }
+ if (Flg==0)
+ {
+ Tmp<-KL1[[N]]
+ T<-Tmp[[2]]
+ I<-Tmp[[3]]
+ J<-Tmp[[4]]
+ Tmp<-list(P,I+T,J)
+ KL<-append(KL,list(Tmp))
+ }
+ }
+ for (N in Looprange(1,length(KL2)))
+ {
+ Tmp<-KL2[[N]]
+ P<-Tmp[[1]]
+ Flg<-0
+ for (K in Looprange(1,length(KL)))
+ {
+ Tmp<-KL[[K]]
+ if (Norm(P-Tmp[[1]])^2<SqEps)
+ {
+ Flg<-1
+ break
+ }
+ }
+ if (Flg==0)
+ {
+ Tmp<-KL2[[N]]
+ T<-Tmp[[2]]
+ T<-min(max(T,0),1)
+ I<-Tmp[[3]]
+ J<-Tmp[[4]]
+ Tmp<-list(P,I+T,J)
+ KL<-append(KL,list(Tmp))
+ }
+ }
+ return(KL)
+}
+
+###########################################
+# 13.12.20 debugged
+
+Invdashline<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Nall<- Nargs; Sen<- 1 ; Gap<- 1
+ Tmp<- varargin[[Nall]]
+ if (is.numeric(Tmp) && length(Tmp)==1 && Tmp>0){ # 13.12.20
+ Tmp1<- varargin[[Nall-1]]
+ if (is.numeric(Tmp1) && length(Tmp1)==1 && Tmp1>0){ # 13.12.20
+ Sen<- Tmp1; Gap<- Tmp
+ Nall<- Nall-2
+ }
+ else{
+ Sen<- Tmp; Gap<- Sen
+ Nall<- Nall-1
+ }
+ }
+ Sen<- 1000/2.54/MilliIn*Sen
+ Gap<- 1000/2.54/MilliIn*Gap
+ for (N in Looprange(1,Nall)){
+ Figdata<- varargin[[N]]
+ Makehasen(Figdata,Sen,Gap,1)
+ }
+}
+
+#########################################
+
+Invert<- function(Pd)
+{
+ OutL=Pd[nrow(Pd):1,]
+ return(OutL)
+}
+
+############################################
+
+InWindow<-function(PA)
+{
+ Eps<-10.0^(-6);
+ X<-PA[1]; Y<-PA[2];
+ if (X>XMIN-Eps && X<XMAX+Eps && Y>YMIN-Eps && Y<YMAX+Eps)
+ Rx<-"i"
+ else
+ Rx<-"o"
+ return(Rx);
+}
+
+#######################################
+
+Joincrvs<- function(...)
+{
+ varargin<- list(...)
+ Nall<- length(varargin)
+ Eps<- 10^(-4)
+ Tmp<- varargin[[Nall]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ Eps<- Tmp
+ Nall<- Nall-1
+ }
+ QdL<- Flattenlist(varargin[1:Nall]) # 11.06.25
+ if (length(QdL)==0){
+ PtL<-c()
+ return(PtL)
+ }
+ PtL<- Op(1,QdL)
+ for (I in Looprange(2,length(QdL))){
+ Qd<- Op(I,QdL)
+ if(Numptcrv(Qd)<=1){next} # 11.06.25
+ P<- Ptend(PtL)
+ S<- Ptstart(PtL)
+ Q<- Ptstart(Qd)
+ R<- Ptend(Qd)
+ MN<- min(Norm(P-Q),Norm(P-R),Norm(S-Q),Norm(S-R))
+ if (MN==Norm(P-R)){
+ Qd<- Invert(Qd)
+ }
+ else if (MN==Norm(S-Q)){
+ PtL=Invert(PtL)
+ }
+ else if (MN==Norm(S-R)){
+ PtL<- Invert(PtL)
+ Qd<- Invert(Qd)
+ }
+ if (MN>Eps){
+ PtL<- Appendrow(PtL,Qd)
+ }
+ else{
+ if(is.null(nrow(Qd))){ Qd<- as.matrix(Qd,nrow=1)}
+ PtL<- Appendrow(PtL,Qd[2:nrow(Qd),]) # 11.06.25
+ }
+ }
+ return(PtL)
+}
+
+########################################
+# 2011.11.02
+
+Joingraphics<- function(...)
+{
+ varargin<- list(...)
+ Ls<- Flattenlist(varargin)
+ N<- length(Ls)
+ Tp<- Ls[[N]]
+ Listflg<- 0
+ if ( is.character(Tp)){
+ Tmp<- toupper(substr(Tp,1,1))
+ if(Tmp=="L"){
+ Listflg<- 1
+ }
+ N<- N-1
+ Ls<- Ls[1:N]
+ }
+ if(Listflg==1){
+ P<- Ls
+ }
+ else{
+ P<- c()
+ for (I in 1:N){
+ Tmp<- Ls[[I]]
+ P<- Appendrow(P,c(Inf,Inf))
+ P<- Appendrow(P,Tmp)
+ }
+ P<- P[2:nrow(P),]
+ }
+ return(P)
+}
+
+########################################
+
+Kouten<- function(PA,V,P,Q)
+{
+ Eps<- 10.0^(-6)
+ A1<- PA[1]; A2<- PA[2]
+ V1<- V[1]; V2<- V[2]
+ P1<- P[1]; P2<- P[2]
+ U1<- Q[1]-P1; U2<- Q[2]-P2
+ Tmp<- Norm(P-Q)*Norm(V)
+ if (Tmp==0)
+ {
+ Out<- list(Inf,-Inf)
+ return(Out)
+ }
+ D<- U1*V2-U2*V1
+ if (abs(D)/Tmp<Eps)
+ {
+ Out<- list(Inf,-Inf)
+ return(Out)
+ }
+ S<- ((-A2+P2)*V1+(A1-P1)*V2)/D
+ if (S>1+Eps || S<Eps)
+ {
+ Out<-list(Inf,-Inf)
+ return(Out)
+ }
+ T<- ((-A2+P2)*U1+(A1-P1)*U2)/D
+ Tmp<- PA+T*V
+ Out<- list(T,Tmp,sign(D))
+ return(Out)
+}
+
+##########################################
+
+KoutenList<- function(PA,V,Bdy)
+{
+ Eps<-10.0^(-6)
+ TenL<-list()
+ for (N in 1:length(Bdy))
+ {
+ KL<- Op(N,Bdy)
+ for (K in Looprange(1, Nrow(KL)-1))
+ {
+ P<- Op(K,KL); Q<- Op(K+1,KL)
+ if (P!="/" && Q!="/")
+ {
+ Tmp<- Kouten(PA,V,P,Q);
+ if (Tmp[[1]]!=Inf)
+ {
+ Ten<- append(Tmp,N)
+ Flg<- 0
+ NN<- length(TenL)
+ I<- 1
+ while (Flg==0 && I<=NN)
+ {
+ Tmp<- Op(I,TenL)
+ if (Op(1,Ten)<Op(1,Tmp)-Eps)
+ {
+ Tmp1<- TenL[Looprange(1,I-1)]
+ Tmp2<- TenL[Looprange(I,length(TenL))]
+ TenL<- Mixjoin(Tmp1,list(Ten),Tmp2)
+ Flg<-1
+ }
+ else
+ if (Op(1,Ten)<Op(1,Tmp)+Eps)
+ {
+ if (Op(4,Ten)!=Op(4,Tmp))
+ {
+ Tmp1<- TenL[Looprange(1,I-1)]
+ Tmp2<- TenL[Looprange(I,length(TenL))]
+ TenL<- Mixjoin(Tmp1,list(Ten),Tmp2)
+ Flg<-1
+ }
+ else
+ if (Op(3,Ten)!=Op(3,Tmp))
+ {
+ Tmp1<- TenL[Looprange(I,I-1)]
+ Tmp2<- TenL[Looprange(I+1,length(TenL))]
+ TenL<- Mixjoin(Tmp1,Tmp2)
+ }
+ Flg<- 1
+ }
+ I<- I+1
+ }
+ if (Flg==0)
+ {
+ TenL<- Mixjoin(TenL,list(Ten))
+ }
+ }
+ }
+ }
+ }
+ return(TenL)
+}
+
+##########################################
+
+Koutenseg<-function(...)
+{
+ #pointdata on AB at which AB intersects CD
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Eps0 <- 10^(-4)
+ A<-varargin[[1]]; V<-varargin[[2]]-A
+ Sv2 <- V[1]^2+V[2]^2
+ if (Sv2<10^(-6))
+ {
+ Out<-Inf
+ return(Out)
+ }
+ P<-varargin[[3]]-A; Q<-varargin[[4]]-A
+ Eps <- 10.0^(-3)
+ if (Nargs>=5)
+ {
+ Eps<-varargin[[5]]
+ }
+ Eps2 <- 0.2
+ if (Nargs>=6)
+ {
+ Eps2<-varargin[[6]]
+ }
+ Eps<-min(Eps2,Eps/sqrt(Sv2))
+ P1<-(P[1]*V[1]+P[2]*V[2])/Sv2
+ P2<-(-P[1]*V[2]+P[2]*V[1])/Sv2
+ Q1<-(Q[1]*V[1]+Q[2]*V[2])/Sv2
+ Q2<-(-Q[1]*V[2]+Q[2]*V[1])/Sv2
+ m1 <- -Eps; M1 <- 1+Eps
+ m2 <- -Eps; M2 <- Eps
+ if (max(P1,Q1)<m1 || min(P1,Q1)>M1)
+ {
+ Out<-Inf
+ return(Out)
+ }
+ if (max(P2,Q2)<m2 || min(P2,Q2)>M2)
+ {
+ Out<-Inf
+ return(Out)
+ }
+ if (P2*Q2<0)
+ {
+ T<- P1-(Q1-P1)/(Q2-P2)*P2
+ if (T>m1 && T<M1)
+ {
+ if (T > -Eps0 && T<1+Eps0)
+ {
+ Tmp1<-A+T*V
+ Tmp2<-min(max(T,0),1)
+ Out<-list(Tmp1,Tmp2,0)
+ }
+ else
+ {
+ Tmp1<-A+T*V
+ Tmp2<-min(max(T,0),1)
+ Out<-list(Tmp1,Tmp2,1)
+ }
+ return(Out)
+ }
+ if (P1<m1 || P1>M1 || P2<m2 || P2>M2)
+ {
+ if (Q1<m1 || Q1>M1 || Q2<m2 || Q2>M2)
+ {
+ Out<-Inf
+ return(Out)
+ }
+ T<-min(max(Q1,0),1)
+ Tmp=A+T*V
+ Out<-list(Tmp,T,1)
+ return(Out)
+ }
+ T<-min(max(P1,0),1)
+ Tmp<-A+T*V
+ Out<-list(Tmp,T,1)
+ return(Out)
+ }
+ if (P1> -Eps0 && P1<1+Eps0 && P2> -Eps0 && P2 < Eps0)
+ {
+ T<- P1
+ Tmp<- A+T*V
+ Out<- list(Tmp, T, 0)
+ return(Out)
+ }
+ if (Q1> -Eps0 && Q1<1+Eps0 && Q2> -Eps0 && Q2<Eps0)
+ {
+ T<- Q1
+ Tmp<-A+T*V
+ Out<- list(Tmp,T,0)
+ return(Out)
+ }
+ if (P1<m1 || P1>M1 || P2<m2 || P2>M2)
+ {
+ if (Q1<m1 || Q1>M1 || Q2<m2 || Q2>M2)
+ {
+ Out<-Inf
+ return(Out)
+ }
+ T<-min(max(Q1,0),1)
+ Tmp<-A+T*V
+ Out<-list(Tmp,T,1)
+ return(Out)
+ }
+ if (Q1<m1 || Q1>M1 || Q2<m2 || Q2>M2)
+ {
+ T<-min(max(P1,0),1)
+ Tmp<-A+T*V
+ Out<-list(Tmp,T,1)
+ return(Out)
+ }
+ if (abs(P2)<abs(Q2))
+ {
+ T<-min(max(P1,0),1)
+ }
+ else
+ {
+ T<-min(max(Q1,0),1)
+ }
+ Tmp<A+T*V
+ Out<-list(Tmp,T,1)
+ return(Out)
+}
+
+##########################################
+
+Kukeiwake<- function(PL)
+{
+ Eps<-10.0^(-6)
+ NW<- c(XMIN,YMAX); SW<-c(XMIN,YMIN)
+ SE<- c(XMAX,YMIN); NE<-c(XMAX,YMAX)
+ Tmp<-matrix(c(NW,SW,SE,NE,NW),nrow=2)
+ Sikaku<- t(Tmp)
+ Kt<- IntersectcrvsPp(PL,Sikaku)
+ if (length(Kt)!=2)
+ {
+ print("not two points")
+ return(c())
+ }
+ Tmp<- Op(1,Kt)
+ Pt1<- Op(1,Tmp)
+ N1<- trunc(Op(2,Tmp))
+ M1<- Op(3,Tmp)
+ Tmp<- Op(2,Kt)
+ Pt2<- Op(1,Tmp)
+ N2<- trunc(Op(2,Tmp))
+ M2<- Op(3,Tmp)
+ T1<- ParamonCurve(Pt1,M1,Sikaku)
+ T2<- ParamonCurve(Pt2,M2,Sikaku)
+ QL<c()
+ if (Norm(Pt1-Op(N1+1,PL))>Eps)
+ {
+ QL<-Pt1
+ }
+ Tmp<-Appendrow(QL,PL[(N1+1):N2,])
+ QL<- Tmp
+ if (Norm(Pt2-Op(N2,PL))>Eps)
+ {
+ Tmp<-Appendrow(QL,Pt2)
+ QL<- Tmp
+ }
+ HidariL<- QL
+ Ms<- M2+1; Me<- M1
+ if (T1<T2+Eps) Me<- M1+4
+ for (M in Looprange(Ms,Me))
+ {
+ Tmp<- Op(Nrow(HidariL),HidariL)
+ P<-Op(((M-1) %% 4)+1,Sikaku)
+ if (Norm(Tmp-P)>Eps)
+ {
+ Tmp<-Append(HidariL,P)
+ HidariL<-Tmp
+ }
+ }
+ Tmp<- Op(Nrow(HidariL),HidariL)
+ if (Norm(Tmp-Pt1)>Eps)
+ {
+ Tmp<-Append(HidariL,Pt1)
+ HidariL<-Tmp
+ }
+ MigiL<- QL
+ Ms<- M2; Me<- M1+1
+ if (T1>T2-Eps) Me<- Me-4
+ for (Mm in Looprange(Me,Ms))
+ {
+ M<- Me+Ms-Mm
+ Tmp<- Op(Nrow(MigiL),MigiL)
+ P<- Op(((M-1) %% 4)+1,Sikaku)
+ if (Norm(Tmp-P)>Eps)
+ {
+ Tmp<-Appendrow(MigiL,P)
+ MigiL<-Tmp
+ }
+ }
+ Tmp<- Op(Nrow(MigiL),MigiL)
+ if (Norm(Tmp-Pt1)>Eps)
+ {
+ Tmp<-Appendrow(MigiL,Pt1)
+ MigiL<-Tmp
+ }
+ Out<- list(HidariL,MigiL)
+ return(Out)
+}
+
+###################################
+# 17.09.24 Eps
+
+Kyoukai<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps0<- 10^(-5)
+ DataL<-list()
+ for (I in 1:Nargs){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric"){
+ DataL<- Mixjoin(DataL,list(list(Tmp)))
+ }
+ if (mode(Tmp)=="list"){
+ if (mode(Tmp[[1]])!="list"){
+ DataL<- Mixjoin(DataL, list(Tmp))
+ }
+ else{
+ DataL<-Mixjoin(DataL,Tmp)
+ }
+ }
+ }
+ Eps<- 10.0^(-4) #17.09.24
+ PLall<- list()
+ Sflg<- 0
+ N<- length(DataL)
+ for (I in 1:N){
+ Data<- Op(I, DataL)
+ Tmp<- Op(length(Data),Data)
+ if (mode(Tmp)=="numeric" && Nrow(Tmp)==1 && length(Tmp)>1){
+ Rg<-Tmp ; Nd<-length(Data)-1
+ }
+ else{
+ if (mode(Tmp)=="character"){
+ Rg<- Tmp ; Nd<-length(Data)-1
+ }
+ else{
+ Rg<- "c" ; Nd<-length(Data)
+ }
+ }
+ for (J in Looprange(1,Nd)){
+ Tmp<- Op(J,Data)
+ if (mode(Tmp)=="character"){
+ Rg<- Tmp
+ next
+ }
+ Points<- Tmp
+ P1<- Ptstart(Points)
+ P2<- Ptend(Points)
+ if (J==1){
+ PL<- Points
+ Pfirst<- P1
+ Plast<- P2
+ if (Nd>=2){
+ Tmp<- Data[[2]]
+ P<- Ptstart(Tmp)
+ Q<- Ptend(Tmp)
+ if (Norm(P2-P)>Eps && Norm(P2-Q)>Eps){
+ Tmp< Nrow(PL)
+ PL<-PL[Tmp:1,]
+ Pfirst<- Ptstart(PL)
+ Plast<- Ptend(PL)
+ }
+ }
+ }
+ else{
+ if (Norm(P1-Plast)<Eps){
+ Stp<-1; Ks<-2; Ke=Nrow(Points)
+ }
+ else{
+ if (Norm(P2-Plast)<Eps) {
+ Stp<- -1; Ks<-Nrow(Points)-1; Ke=1
+ }
+ else{
+ Tmp<-Appendrow(PL,c(Inf,Inf),Points)
+ PL<- Tmp
+ Sflg<- 1
+ Pfirst<- P1
+ Plast<- P2
+ Stp<- 1; Ks<- Nrow(Points)-1; Ke<- 1
+ }
+ }
+ for (K in seq(Ks,Ke, by=Stp)){
+ Tmp<- Appendrow(PL,Op(K,Points))
+ PL<-Tmp
+ }
+ Plast<- Op(Ke,Points)
+ }
+ }
+ if (Norm(Pfirst-Plast)>Eps){
+ Np<- Nrow(PL)
+ if (Rg=="c"){
+ Tmp<- Appendrow(PL,Pfirst)
+ PL<- Tmp
+ }
+ else if (Rg=="s"){
+ Tmp<- c(PL[1:Np,2],YMIN)
+ Y<- min(Tmp)-1
+ P<- c(Plast[1],Y); Q<- c(Pfirst[1],Y)
+ Tmp<- Appendrow(PL,P,Q,Pfirst)
+ PL<- Tmp
+ }
+ else if (Rg=="n"){
+ Tmp<- c(PL[1:Np,2],YMAX)
+ Y<-max(Tmp)+1
+ P<- c(Plast[1],Y); Q<- c(Pfirst[1],Y)
+ Tmp<- Appendrow(PL,P,Q,Pfirst)
+ PL<- Tmp
+ }
+ else if (Rg=="w"){
+ Tmp<- c(PL[1:Np,1],XMIN)
+ X<- min(Tmp)-1
+ P<- c(X,Plast[2]); Q<- c(X,Pfirst[2])
+ Tmp<- Appendrow(PL,P,Q,Pfirst)
+ PL<- Tmp
+ }
+ else if (Rg=="e"){
+ Tmp<- c(PL[1:Np,1],XMAX)
+ X<- max(Tmp)+1
+ P<- c(X,Plast[2]); Q<- c(X,Pfirst[2])
+ Tmp<- Appendrow(PL,P,Q,Pfirst)
+ PL<- Tmp
+ }
+ else if (mode(Rg)=="numeric" && Nrow(Rg)==1 && length(Rg)>1){
+ Tmp<- Kukeiwake(PL)
+ Tmp1<- Op(1,Tmp)
+ Tmp2<- Naigai(Rg,list(Tmp1))
+ if (Tmp2==c(1)){
+ PL<-Op(1,Tmp)
+ }
+ else{
+ PL<- Op(2,Tmp)
+ }
+ }
+ }
+ Tmp<- Ptstart(PL)
+ for (J in 2:Nrow(PL)){
+ P<- Op(J,PL)
+ Q<- Op(Nrow(Tmp),Tmp)
+ if (Norm(P-Q)>Eps){
+ Tmp1<-Appendrow(Tmp,P)
+ Tmp<-Tmp1
+ }
+ }
+ PL<-Tmp
+ PLall<-Mixjoin(PLall,list(PL))
+ }
+ if (length(PLall)==1 && Sflg==0){
+ Tmp<- Op(1,PLall)
+# Tmp<- Op(1,Tmp)
+ if (Norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0){
+ Tmp1<- Appendrow(Tmp,Ptstart(Tmp))
+ PLall<- list(Tmp1)
+ }
+ }
+ return(PLall)
+}
+
+######################################
+
+Letter<-function(...)
+{ ## Scaling is implemented
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Irng<-c(seq(from=1,to=Nargs,by=3))
+ for (I in Irng)
+ {
+ Tmp<-varargin[[I]]
+ P<- Doscaling(Tmp)
+ X<-P[1]
+ Y<-P[2]
+ Houkou<-varargin[[I+1]]
+ Mojiretu<-varargin[[I+2]]
+ Hset<-Houkou
+ Vhoko<-"c"
+ if (length(grep("n",Hset))>0)
+ {
+ Vhoko<-"n"; Y<-Y+MEMORI
+ }
+ if (length(grep("s",Hset))>0)
+ {
+ Vhoko<-"s"; Y<-Y-MEMORI
+ }
+ Hhoko<-"c"
+ if (length(grep("e",Hset))>0)
+ {
+ Hhoko<-"e"; X<-X+MEMORI
+ }
+ if (length(grep("w",Hset))>0)
+ {
+ Hhoko<-"w"; X<-X-MEMORI
+ }
+ Hoko<-paste(Vhoko,Hhoko,sep="")
+ Suu<-"+-.0123456789"
+ SuuL<-Suu
+ J<-1; Dstr<-""
+ while (J<=nchar(Houkou))
+ {
+ Tmp<-substring(Houkou,J,J)
+ if (length(grep(Tmp,SuuL))>0)
+ {
+ if (Dstr=="") Hk<-substring(Houkou,J-1,J-1)
+ Dstr<-paste(Dstr,Tmp,sep="")
+ }
+ else
+ {
+ if (Dstr!="")
+ {
+ Nmbr<-as.numeric(Dstr)
+ D<-Nmbr*MEMORI
+ if (Hk=="n") Y<-Y+D
+ if (Hk=="s") Y<-Y-D
+ if (Hk=="e") X<-X+D
+ if (Hk=="w") X<-X-D
+ Dstr<-""
+ }
+ }
+ J<-J+1
+ }
+ if (Dstr!="")
+ {
+ Nmbr<-as.numeric(Dstr)
+ D<-Nmbr*MEMORI;
+ if (Hk=="n") Y<-Y+D
+ if (Hk=="s") Y<-Y-D
+ if (Hk=="e") X<-X+D
+ if (Hk=="w") X<-X-D
+ }
+ CalcWidth(Hoko,Mojiretu)
+ CalcHeight(Hoko,Mojiretu)
+ cat("\\put(",file=Wfile,append=TRUE)
+ Tmp1<- sprintf("%7.7f",X) # 11.07.19
+ Tmp2<- sprintf("%7.7f",Y) # 11.07.19
+ Str<-paste(Tmp1,",",Tmp2,sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Tmp<-"){\\hspace*{\\Width}"
+ Str<-paste(Tmp,"\\raisebox{\\Height}{",Mojiretu,"}}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+######################################################
+
+Letterrot<- function(...)
+{
+ varargin<- list(...)
+ P<- varargin[[1]]
+ V<- varargin[[2]]; N<- 3
+ P<- Doscaling(P)
+ V<- Doscaling(V)
+ Tmov<- 0
+ Tmp<- varargin[[N]]
+ if (mode(Tmp)=="numeric"){
+ Tmov<- Tmp; N<- N+1
+ }
+ Nmov<- 0
+ Tmp<- varargin[[N]]
+ if (mode(Tmp)=="numeric"){
+ Nmov<- Tmp; N<- N+1
+ }
+ Mojiretu<- varargin[[N]]
+ Tv<- 1/Norm(V)*V
+ Nv<- c(-Tv[2],Tv[1])
+ P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv
+ Tmp<- acos(V[1]/Norm(V))
+ Theta<- round(Tmp*180/pi)
+ if (V[2]>=0){
+ Units<- ""
+ }
+ else{
+ Units<- "units=-360,"
+ }
+ Tmp<- paste("\\rotatebox[",Units,"origin=c]{",as.character(Theta),sep="")
+ Tmp<- paste(Tmp,"}{",Mojiretu,"}",sep="")
+ Letter(P,"c",Tmp)
+}
+
+###################################
+# 10.12.04
+
+Lineplot<-function(...)
+{
+ varargin <- list(...)
+ Nargs<-length(varargin)
+ A<-varargin[[1]]
+ if (is.numeric(A)) {
+ Tmp<-length(A)
+ if (Tmp>3) {
+ B <- A[(Tmp/2+1):Tmp]
+ A <- A[1:(Tmp/2)]
+ Is <- 2
+ }
+ else {
+ B<-varargin[[2]]
+ Is <- 3
+ }
+ }
+ else {
+ B<-A[[2]]
+ A<-A[[1]]
+ Is <- 2
+ }
+ Mag <- 100 ; Semi <- "" ## 10.12.04
+ for (I in Looprange(Is,Nargs)) {
+ Tmp <- varargin[[I]]
+ switch ( mode(Tmp),
+ "numeric"= Mag <- Tmp,
+ "character"= Semi <- Tmp
+ )
+ }
+V<- Mag/Norm(B-A)*(B-A) ## 10.12.04 from here
+ if (Semi=="") {
+ Out<- Listplot(c(A-V,A+V))
+ }
+ else if (Semi=="+") {
+ Out<- Listplot(c(A,A+V))
+ }
+ else {
+ Out<- Listplot(c(A-V,A))
+ } ## 10.12.04 to here
+ return(Out)
+}
+
+################################
+
+Listplot<-function(...)
+{
+ varargin<-list(...);
+ Z<-c();
+ for (I in 1:length(varargin))
+ {
+ Data<-varargin[[I]];
+ if (mode(Data)=="numeric")
+ {
+ if (class(Data)=="numeric")
+ {
+ Tmp<-matrix(Data,nrow=2);
+ Tmp<-t(Tmp);
+ Z<-Appendrow(Z,Tmp)
+ }
+ else
+ Z<-Appendrow(Z,Data)
+ }
+ else
+ {
+ for (J in 1:length(Data))
+ {
+ Tmp<-Data[[J]];
+ Z<-Appendrow(Z,Tmp)
+ }
+ }
+ }
+ return(Z)
+}
+
+##############################
+
+MakeBowdata <- function(PA,PB,H)
+{
+ Eps <- 10^(-5)
+ BOWSTART <<- PA
+ BOWEND <<- PB
+ D <- 1/2*Norm(PB-PA)
+ R <- (H^2+D^2)/(2*H)
+ A1 <- PA[1]; A2<-PA[2]
+ B1 <- PB[1]; B2<-PB[2]
+ if (abs(A2-B2)>Eps){
+# x <- poly(0,"X")
+# y <- -(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2)
+# Eq1 <- (A1-x)^2+(A2-y)^2-R^2
+# Tmp <- coeff(Eq1)
+# C0 <- Tmp[1]; C1<-Tm[2]; C2<-Tmp[3]
+ C0<- A1^2+(A2-(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2))^2-R^2
+ C1<- -(A1+B1)*(A2^2+B2^2-2*A2*B2-2*A1*B1+A1^2+B1^2)/(A2-B2)^2
+ C2<- 1+(A1-B1)^2/(A2-B2)^2
+ Det <- sqrt(C1^2-4*C0*C2)
+ Ansx1 <- (-C1+Det)/(2*C2)
+ Ansx2 <- (-C1-Det)/(2*C2)
+ Tmp <- -(A1-B1)*Ansx1/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2)
+ PC <- c(Ansx1,Tmp)
+ Tmp <--(A1-B1)*Ansx2/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2)
+ PC2 <- c(Ansx2,Tmp)
+ }
+ else{
+ Tmp <- 0.5*(PA+PB)
+ PC <- Tmp+c(0,R-H) # 11.06.02
+ PC2 <- Tmp-c(0,R-H)
+ }
+ VA <- PA-PC
+ VB <- PB-PC
+ if (VA[1]*VB[2]-VA[2]*VB[1]<0) {
+ PC <- PC2
+ }
+ AngA <- acos((PA[1]-PC[1])/R)
+ if (PA[2]-PC[2]<0){
+ AngA <- -AngA
+ }
+ AngB <- acos((PB[1]-PC[1])/R)
+ if (PB[2]-PC[2]<0){
+ AngB <- -AngB
+ }
+ if (AngA>AngB) {
+ AngB <- AngB+2*pi
+ }
+ Out <- list(PC,R,AngA,AngB)
+ return(Out)
+}
+
+####################################################
+
+MakeCurves<-function(...){ ## Scaling is implemented
+ varargin<-list(...)
+ Figdata<-varargin[[1]]
+ if (class(Figdata)=="numeric"){
+ Figdata<-matrix(Figdata,nrow=1)
+ }
+ Ptout<-1
+ if (length(varargin)>=2) Ptout<-varargin[[2]]
+ Eps<-10.0^(-6)
+ IndM<-Dataindex(Figdata)
+ Atos<-c()
+ for (Nd in 1:Nrow(IndM)){
+ Tmp<-IndM[Nd,]
+ Motos<-Figdata[Tmp[1]:Tmp[2],]
+ All<-Nrow(Motos)
+ if (Nrow(Motos)==1){
+ if (InWindow(Motos)=="o"){
+ next
+ }
+ Tmp1<- as.numeric(Motos)
+ if (Ptout==1){
+ Drwpt(Tmp1)
+ }
+ else{
+ Tmp1<- Doscaling(Tmp1)
+ Atos<-Appendrow(Atos,c(Inf,Inf),Tmp1)
+ next
+ }
+ }
+ Crv<-c()
+ for (I in Looprange(2,All)){
+ P<- Op(I-1,Motos)
+ Q<- Op(I,Motos)
+ Snbn<-MeetWindow(P,Q)
+ if (length(Snbn)==0){
+ if (length(Crv)>0){
+ Atos<-Appendrow(Atos,c(Inf,Inf),Doscaling(Crv))
+ Crv<-c()
+ }
+ }
+ else{
+ if(Norm(Snbn[1,]-Snbn[2,])<Eps){ next} # naosi 101202
+ if (length(Crv)==0){
+ Crv<-Snbn
+ }
+ else{
+ Tmp<-Op(Nrow(Crv),Crv)
+ if (Norm(Tmp-Op(1,Snbn))<Eps){
+ Crv<-Appendrow(Crv,Op(2,Snbn))
+ }
+ else{
+ Atos<-Appendrow(Atos,c(Inf,Inf),Doscaling(Crv))
+ Crv<-Snbn
+ }
+ }
+ }
+ }
+ if (Nrow(Crv)>=2)
+ {
+ Atos<-Appendrow(Atos,c(Inf,Inf),Doscaling(Crv))
+ }
+ }
+ Outdata<-Atos[2:Nrow(Atos),]
+ if (class(Outdata)=="numeric")
+ {
+ Outdata<-matrix(Outdata,nrow=1)
+ }
+ return(Outdata)
+}
+
+######################################
+
+Makehasen<- function(Figdata,Sen,Gap,Ptn)
+{
+ Eps<- 10.0^(-6)
+ Clist<- MakeCurves(Figdata)
+ DinM<- Dataindex(Clist)
+ for (N in Looprange(1,Nrow(DinM))){
+ Tmp<- DinM[N,]
+ Data<- Clist[Tmp[1]:Tmp[2],]
+ Dtall<- Nrow(Data)
+ Len<- 0
+ Lenlist<- c(0)
+ for (I in Looprange(2,Dtall)){
+ Len<- Len+Norm(Data[I,]-Data[I-1,])
+ Lenlist<- c(Lenlist,Len)
+ }
+ Lenall<- Lenlist[Dtall]
+ if (Lenall==0){
+ next
+ }
+ Kari<- (Sen+Gap)*0.1
+ Naga<- Sen*0.1
+ Tobi<- Gap*0.1
+ if (Norm(Data[1,]-Data[Dtall,])<Eps){
+ Nsen<- max(ceiling(Lenall/Kari),3)
+ SegUnit<- Lenall/Nsen
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(0,(Nsen-1)*SegUnit,by=SegUnit))
+ }
+ else{
+ if (Ptn==0){
+ Nsen<- max(ceiling((Lenall+Tobi)/Kari),3)
+ SegUnit<- Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap)
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(0,(Nsen-1)*SegUnit,by=SegUnit))
+ }
+ else{
+ Nsen<- max(ceiling((Lenall+Naga)/Kari),3)
+ SegUnit<- Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap)
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(Tobi,Tobi+(Nsen-2)*SegUnit,by=SegUnit))
+ }
+ }
+ Hajime<- 1; Owari<- 1
+ Mojisu<- 0
+ for (I in Looprange(1,length(SegList))){
+ Len<- SegList[I]
+ J<- Owari
+ while (Len>=Lenlist[J]-Eps){
+ if (J==Dtall){
+ break
+ }
+ J<- J+1
+ }
+ Hajime<- J-1
+ J<- Hajime
+ while (Len+Naga>Lenlist[J]-Eps){
+ if (J==Dtall){
+ break
+ }
+ J<- J+1
+ }
+ Owari<- J-1
+ T<- (Len-Lenlist[Hajime])
+ T<- T/(Lenlist[Hajime+1]-Lenlist[Hajime])
+ P<- Data[Hajime,]+T*(Data[Hajime+1,]-Data[Hajime,])
+ X<- as.character(round(MilliIn*P[1]))
+ Y<- as.character(-round(MilliIn*P[2]))
+ Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ for (J in Looprange(Hajime+1,Owari)){
+ P<- Data[J,]
+ X<- as.character(round(MilliIn*P[1]))
+ Y<- as.character(-round(MilliIn*P[2]))
+ Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ }
+ T<- (Len+Naga-Lenlist[Owari])
+ T<- T/(Lenlist[Owari+1]-Lenlist[Owari])
+ P<- Data[Owari,]+T*(Data[Owari+1,]-Data[Owari,])
+ X<- as.character(round(MilliIn*P[1]))
+ Y<- as.character(-round(MilliIn*P[2]))
+ Str1<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ Str2<- "\\special{fp}"
+ cat(Str1,file=Wfile,append=TRUE)
+ cat(Str2,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str1)+nchar(Str2)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<- 0
+ }
+ }
+ }
+ cat("%\n%\n",file=Wfile,append=TRUE);
+}
+
+######################################
+
+Makeliststr<- function(L)
+{
+ Out="list("
+ for (I in 1:length(L)){
+ Dt<- L[[I]]
+ if (mode(Dt)=="numeric"){
+ if (length(Dt)==1){
+ Dts<- as.character(Dt)
+ }
+ else{
+ Dts<- "c("
+ for (J in Looprange(1,Nrow(Dt))){
+ for (K in 1:ncol(Dt)){
+ Dts<- paste(Dts,as.character(Dt[J,K]),sep="")
+ if (K< ncol(Dt)){
+ Dts<- paste(Dts,",",sep="")
+ }
+ }
+ if (J<Nrow(Dt)){
+ Dts<- paste(Dts,";",sep="")
+ }
+ else{
+ Dts<- paste(Dts,")",sep="")
+ }
+ }
+ }
+ }
+ if (mode(Dt)=="character"){
+ Dts<- paste(Prime(),Dt,Prime(),sep="")
+ }
+ if(mode(Dt)=="list"){
+ Dts<- Makeliststr(Dt)
+ }
+ Out<- paste(Out,Dts,sep="")
+ if (I<length(L)){
+ Out<- paste(Out,",")
+ }
+ else{
+ Out<- paste(Out,")",sep="")
+ }
+ }
+ return(Out)
+}
+
+############################################
+
+Makeshasen<- function(PtnL,PA,V,Bdy)
+{
+ Eps<- 10^(-6)
+ TenL<- KoutenList(PA,V,Bdy)
+ Nten<- length(TenL)
+ Call<- length(Bdy)
+ Ptn<- c(seq(0, 0, length=Call))
+ Out<- list()
+ GL<- c()
+ Te<- -10^6
+ for (I in Looprange(1,Nten-1)){
+ TenP<- Op(I,TenL); TenQ<- Op(I+1,TenL)
+ Ts<- Op(1,TenP)
+ P<- Op(2,TenP); Q<- Op(2,TenQ)
+ NC<- Op(4,TenP)
+ Tmp<- (Op(NC,Ptn)+1) %% 2
+ Ptn[NC]<- Tmp
+ if (Op(1,TenQ)-Ts>Eps){
+ if (Member(Ptn,PtnL)){
+ if (abs(Te-Ts)>Eps){
+ if (Nrow(GL)>0){
+ Tmp<- Mixjoin(Out, list(GL))
+ Out<- Tmp
+ }
+ GL<- Listplot(P,Q)
+ }
+ else{
+ Tmp <- Appendrow(GL, Q)
+ GL<- Tmp
+ }
+ Te<- Op(1,TenQ)
+ }
+ }
+ }
+ if (Nrow(GL)>0){
+ Tmp<- Mixjoin(Out, list(GL))
+ Out<- Tmp
+ }
+ return(Out)
+}
+
+#############################################
+
+Mawarikomi<- function(...)
+{
+ varargin<- list(...)
+ haba<- "10cm"
+ Nargs<- length(varargin)
+ if (Nargs>0){
+ haba<- varargin[[1]]
+ }
+ cat("\\begin{mawarikomi}%\n",file="",append=TRUE)
+ cat("%<1>[5](0,0)%\n",file="",append=TRUE)
+ Str<- paste("{",haba,"}{%\n",sep="")
+ cat(Str,file="",append=TRUE)
+ cat("}%\n",file="",append=TRUE)
+ cat("\\end{mawarikomi}",file="",append=TRUE)
+}
+
+##############################################
+
+MeetWindow<-function(PA,PB)
+{
+ if (InWindow(PA)=="i" && InWindow(PB)=="i")
+ {
+ R<-Appendrow(PA,PB)
+ return(R)
+ };
+ Horner<-function(n,t)
+ {
+ PT<-(1-t)*PA+t*PB;
+ return(PT[n])
+ }
+ Eps<-10.0^(-6);
+ Txm<-(-1); TxM<-(-1); Tym<-(-1); TyM<-(-1);
+ if (PA[1]!=PB[1])
+ {
+ Txm<-(XMIN-PA[1])/(PB[1]-PA[1]);
+ TxM<-(XMAX-PA[1])/(PB[1]-PA[1]);
+ }
+ if (PA[2]!=PB[2])
+ {
+ Tym<-(YMIN-PA[2])/(PB[2]-PA[2]);
+ TyM<-(YMAX-PA[2])/(PB[2]-PA[2]);
+ }
+ Tmp<-Horner(2,Txm);
+ if (Tmp<YMIN-Eps || Tmp>YMAX+Eps)
+ {
+ Txm<-(-1);
+ }
+ Tmp<-Horner(2,TxM);
+ if (Tmp<YMIN-Eps || Tmp>YMAX+Eps)
+ {
+ TxM<-(-1)
+ }
+ Tmp<-Horner(1,Tym);
+ if (Tmp<XMIN-Eps || Tmp>XMAX+Eps)
+ {
+ Tym<--1
+ }
+ Tmp<-Horner(1,TyM);
+ if (Tmp<XMIN-Eps || Tmp>XMAX+Eps)
+ {
+ TyM<--1
+ }
+ Tans<-sort(c(Txm,TxM,Tym,TyM));
+ Tmp<-c();
+ for (I in 1:length(Tans))
+ {
+ Tmp1<-Tans[I];
+ if (Tmp1>-Eps && Tmp1<1+Eps)
+ {
+ if (length(Tmp)==0)
+ {
+ Tmp<-c(Tmp1);
+ }
+ else
+ {
+ if (abs(Tmp[length(Tmp)]-Tmp1)>Eps)
+ {
+ Tmp<-c(Tmp,Tmp1)
+ }
+ }
+ }
+ }
+ Tans<-Tmp;
+ if (length(Tans)==0)
+ {
+ R<-c();
+ return(R);
+ }
+ if (length(Tans)==1)
+ {
+ Ten1<-Horner(1:2,Tans[1]);
+ if (InWindow(PA)=="i")
+ {
+ R<-Appendrow(PA,Ten1)
+ return(R)
+ }
+ else
+ {
+ R<-Appendrow(Ten1,PB)
+ return(R)
+ }
+ }
+ Ten1<-Horner(1:2,Tans[1])
+ Ten2<-Horner(1:2,Tans[2])
+ R<-Appendrow(Ten1,Ten2)
+ return(R)
+}
+
+#########################################
+
+# New 10.03.21
+
+Mixjoin<-function(...)
+{
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ M<- list()
+ for (I in 1:Nargs)
+ {
+ Tmp<-varargin[[I]]
+ if (length(Tmp)==0) next
+ if (Mixtype(Tmp)==1)
+ {
+ Tmp<-list(Tmp)
+ }
+ if (length(M)==0){
+ M <- Tmp
+ }
+ else{
+ M<- c(M,Tmp)
+ }
+ }
+ return(M)
+}
+
+#################################
+
+Mixlength<- function(PL){
+ if (length(PL)==0){
+ return(0)
+ }
+ if (Mixtype(PL)==1){
+ Out<- Nrow(PL)
+ }
+ else{
+ Out<- length(PL)
+ }
+ return(Out)
+}
+
+###########################################
+
+Mixtype<- function(D)
+{
+ if (mode(D)!="list") return(1)
+ for (I in 1:length(D))
+ {
+ Tmp<- D[[I]]
+ if (mode(Tmp)=="list") return(3)
+ }
+ return(2)
+}
+
+###########################################
+
+Naigai<- function(A,Bdy)
+{
+ V<- c(1,1)
+ Call<-length(Bdy)
+ KL<- KoutenList(A,V,Bdy)
+ Ptn<- seq(1,1,length=Call)
+ for (K in Looprange(1,length(KL)))
+ {
+ Ten<- Op(K,KL)
+ T<- Op(1,Ten); NC<- Op(4,Ten)
+ if (T<0)
+ {
+ Tmp<- (Ptn[NC]+1) %% 2
+ Ptn[NC]<- Tmp
+ }
+ }
+ return(Ptn)
+}
+
+########################################
+
+Nearestpt<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ PL1<-varargin[[1]]
+ if (!is.matrix(PL1))
+ {
+ Tmp<-matrix(PL1);
+ PL1<-t(Tmp)
+ }
+ if (Nrow(PL1)==1) Flg=0
+ else Flg=1
+ Eps<-10.0^(-6)
+ PL<-varargin[[2]]
+ Ans<-list(PL1[1,],1,PL[1,],1,Norm(PL1[1,]-PL[1,]))
+ for (N in 1:Nrow(PL1))
+ {
+ PA<-PL1[N,]
+ Pm<-PL[1,]
+ Im<-1
+ Sm<-Norm(Pm-PA)
+ for (I in 1:(Nrow(PL)-1))
+ {
+ A1<-PL[I,1]; A2<-PL[I,2]
+ B1<-PL[I+1,1]; B2<-PL[I+1,2]
+ V1<-B1-A1; V2<-B2-A2
+ X1<-PA[1]; X2<-PA[2]
+ Tmp<-V2^2+V1^2
+ if (abs(Tmp)<Eps) next
+ T<-(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp
+ if (T< -Eps)
+ {
+ P<-c(A1,A2)
+ }
+ else
+ {
+ if (T>1+Eps)
+ {
+ P<-c(B1,B2)
+ }
+ else
+ {
+ P<-c(A1+T*V1,A2+T*V2)
+ }
+ }
+ S<-Norm(P-PA)
+ if (S<Sm-Eps)
+ {
+ Tmp<-Paramoncrv(P,I,PL)
+ Pm<-P; Im<-Tmp; Sm<-S
+ }
+ }
+ if (Sm<Ans[[5]]) Ans<-list(PA,N,Pm,Im,Sm)
+ if (Flg==0)
+ {
+ Ans<-Ans[3:5]
+ }
+ }
+ return(Ans)
+}
+
+#########################################
+
+Newlength<- function()
+{
+ Tmp1<- "\\newlength{\\Width}%\n"
+ Tmp2<- "\\newlength{\\Height}%\n"
+ Tmp3<- "\\newlength{\\Depth}%\n"
+ cat(Tmp1,file="",append=TRUE);
+ cat(Tmp2,file="",append=TRUE);
+ cat(Tmp3,file="",append=TRUE);
+}
+
+#########################################
+
+Numptcrv<-function(Fig)
+{
+ return(Nrow(Fig))
+}
+
+#########################################
+
+Op<-function(N,Data)
+{
+ C <- c()
+ if (length(Data)==0) return(C)
+ if (mode(Data)=="list"){
+ if(class(Data)=="data.frame"){ # 10.02.23
+ C<- Data[N,]
+ }
+ else{
+ C<- Data[[N]]
+ }
+ return(C)
+ }
+ if (mode(Data)=="character"){
+ if (length(Data)==1){
+ C<- substring(Data,N,N)
+ }
+ else{
+ C<- Data[N]
+ }
+ return(C)
+ }
+ if (mode(Data)=="numeric"){
+ if (class(Data)=="matrix"){
+ Din<- Dataindex(Data)
+ if (nrow(Din)==1){
+ C<- Data[N,]
+ }
+ else{
+ Tmp1<- Din[N,1]
+ Tmp2<- Din[N,2]
+ C<- Data[Tmp1:Tmp2,]
+ }
+ }
+ else{
+ C=Data[N]
+ }
+ }
+ return(C)
+}
+
+#########################################
+# 2013.05.20 Changed ( Creator recorded)
+# 2013.12.18 Beginpicture inclued
+
+Openfile<-function(...)
+{
+ varargin<- list(...) # 2013.05.20 from
+ File<- varargin[[1]]
+ Bflg<- 0
+ Wfile<<- File
+ Creator<- ""
+ Cflg<- 0
+ Nargs<- length(varargin)
+ if(Nargs>1){
+ for(N in 2:Nargs){
+ Tmp<- varargin[[N]]
+ Tmp1<- strsplit(Tmp,"=",fixed=TRUE)
+ Tmp1<- Tmp1[[1]]
+ if(length(Tmp1)>1){
+ Creator<- Tmp1[2]
+ Cflg<- 1
+ }
+ else{
+ Unitstr<- Tmp
+ Bflg<- 1
+ }
+ }
+ }
+ Recentf<- ""
+ Fv<- list.files()
+ Nv<- grep("\\.r$", Fv)
+ Rfiles<- Fv[Nv]
+# if(length(Rfiles)>0){
+# Finfo<- file.info(Rfiles)
+# Tmp1<- as.POSIXlt(Finfo$ctime)
+# Tmp2<- order(Tmp1,decreasing=TRUE)
+# Recentf<- Rfiles[Tmp2[1]]
+# }
+# Tmp<- sprintf("%s",Sys.time())
+ StrW<- paste("%%% ",File," ",Tmp,sep="")
+ StrC<- paste("%%% ",Creator,sep="")
+ if(Cflg==0){
+# if(nchar(Recentf)>0){
+# Tmp1<- file.info(Recentf)
+# Tmp2<- sprintf("%s",Tmp1$ctime)
+# StrC<- paste(StrC,Recentf," ",Tmp2,sep="")
+# }
+ } # 2013.12.15 upto
+ cat(StrW,"\n",file=Wfile)
+ cat(StrC,"\n",file=Wfile,append=TRUE)
+ if(Bflg==1){
+ Beginpicture(Unitstr)
+ }
+}
+
+#########################################
+
+Openpar<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Tmp<- varargin[[1]]
+ Tmp1<- substr(Tmp,1,1)
+ if (Tmp1=="\\"){
+ Namestr<- Tmp
+ N<- 2
+ }
+ else{
+ Namestr<- "\\tmp"
+ N<- 1
+ }
+ Habastr<- varargin[[N]]
+ if (Nargs>N){
+ Posstr<- paste("[",varargin[[N+1]],"]",sep="")
+ }
+ else{
+ Posstr<- "[c]"
+ }
+ Openphr(Namestr)
+ S<- paste("\\begin{minipage}",Posstr,"{",Habastr,"}%\n",sep="")
+ cat(S,file=Wfile,append=TRUE)
+}
+
+###################################
+
+Openphr<- function(Str)
+{
+ S<- paste("\\def",Str,"{%\n",sep="")
+ cat(S,file=Wfile,append=TRUE)
+}
+
+#####################################
+
+Ovalbox<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Pos<- varargin[[1]]
+ Dr<- varargin[[2]]
+ StrV<- varargin[[3]]
+ R<- 0.2
+ NDflg<- 0
+ for (I in Looprange(4,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric"){
+ R<- Tmp
+ }
+ else{
+ if (substr(Tmp,1,1)=="-"){
+ NDflg<- 1
+ Tmp1<- substr(Tmp,2,nchar(Tmp))
+ Cmdstr<- chartr("*","G",Tmp1)
+ }
+ }
+ }
+ Xr<- c(XMIN,XMAX)
+ Yr<- c(YMIN,YMAX)
+ Uv<- 0.6; Uh<- 0.8
+ N<- nchar(StrV)
+ W<- Uh;H<- Uv*N
+ Setwindow(c(-W/2,W/2),c(-H,0))
+ G<- Ovaldata(c(0,-H/2),W/2,H/2,R)
+ Openphr("\\ketpictmp")
+ Beginpicture("1cm")
+ if (NDflg==0){
+ Drwline(G)
+ }
+ else{
+ eval(parse(text=Cmdstr))
+ }
+ for (I in Looprange(1,N)){
+ Letter(c(0,Uv/2-Uv*I),"c",Op(I,StrV))
+ }
+ Endpicture(0)
+ Closephr()
+ Setwindow(Xr,Yr)
+ Letter(Pos,Dr,"\\ketpictmp")
+}
+
+##########################################
+
+Ovaldata<- function(...) #17.09.11
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==1){
+ Eps<- 1.0*10^(-4)
+ C<- c((XMIN+XMAX)/2,(YMIN+YMAX)/2)
+ Dx<- XMAX-C(1)-Eps
+ Dy<- YMAX-C(2)-Eps
+ N<- 1
+ }
+ else{
+ C<- varargin[[1]]
+ Dx<- varargin[[2]]
+ Dy<- varargin[[3]]
+ N<- 4
+ }
+ Rc<- 0.2
+ if (N<=Nargs){ #15.11.15
+ Rc<- varargin[[N]]*Rc #15.11.15
+ }
+ Out<- c()
+ P<- C+c(Dx-Rc,Dy-Rc)
+ Tmp1<- Circledata(P,Rc,"R=c(0,pi/2)","N=10")
+ Tmp2<- Listplot(C+c(Dx-Rc,Dy),C+c(0,Dy))
+ Tmp3<- Listplot(C+c(Dx,0),C+c(Dx,Dy-Rc))
+ G<- Joincrvs(Tmp3,Tmp1,Tmp2)
+ Tmp<- Reflectdata(G,c(C,C+c(0,1)))
+ G<- Joincrvs(G,Tmp)
+ Tmp<- Reflectdata(G,c(C,C+c(1,0)))
+ Out<- Joincrvs(G,Tmp)
+}
+
+#########################################
+
+Paramark<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ PA<- varargin[[1]]
+ PB<- varargin[[2]]
+ PC<- varargin[[3]]
+ R<- 0.5
+ if (Nargs>=4){
+ R<- varargin[[4]]*R
+ }
+ U<- R*(PA-PB)/Norm(PA-PB)
+ V<- R*(PC-PB)/Norm(PC-PB)
+ if (Crossprod(PA-PB,PC-PB)!=0){
+ P<- Listplot(c(PB+U,PB+U+V,PB+V))
+ }
+ else{
+ P<- c()
+ }
+}
+
+###########################################
+
+Paramoncrv<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Eps<-10^(-8)
+ P<-varargin[[1]]
+ Gdata<-varargin[[Nargs]]
+ if (Nrow(P)>1)
+ {
+ Tmp<-P; P<-Gdata; Gdata<-Tmp
+ }
+ if (Nargs==2)
+ {
+ Tmp<-Nearestpt(P,Gdata)
+ Out<-Tmp[[2]]
+ return(Out)
+ }
+ N<-varargin[[2]]
+ PtL<-Gdata
+ if (N==Nrow(PtL))
+ {
+ Out<-N
+ }
+ else
+ {
+ Pa<-Ptcrv(N,PtL)
+ Pb<-Ptcrv(N+1,PtL)
+ V<-Pb-Pa
+ W<-P-Pa
+ D2<-Norm(V)^2
+ if (D2<Eps) return(0)
+ S<-Dotprod(V,W)/D2
+ S<-min(max(S,0),1)
+ Out=N+S
+ }
+ return(Out)
+}
+
+##############################################
+
+Paramplot<- function(...)
+{
+ varargin<- list(...)
+ Eps<- 10^(-5)
+ Nargs<- length(varargin)
+# if type(varargin(1))==13
+# Fnflg=1;
+# Fnx=varargin(1);
+# Fny=varargin(2); Is=3;
+# if type(varargin(Is))==13
+# Fnflg=Fnflg+1;
+# Fnargx=varargin(Is);
+# Fnargy=varargin(Is+1);
+# Is=Is+2;
+# end;
+# else
+ Fnflg<- 0
+ Fnstr<- varargin[[1]]; Is=2
+# end;
+ Rgstr<- varargin[[Is]]; Is<- Is+1
+ Range<- c(0,2*pi)
+ N<- 50 # Numpoints
+ E<-c() # Exclusions
+ D<- Inf # Discont
+ for (I in Looprange(Is,Nargs))
+ {
+ Tmp<- varargin[[I]]
+ Tmp<- strsplit(Tmp,"=")
+ K<- Tmp[[1]]
+ Tmp<-K[1]
+ Lhs<- substring(Tmp,1,1)
+ Tmp1<- K[2]
+ Str<-paste(Lhs,"=",Tmp1,sep="")
+ eval(parse(text=Str))
+ }
+ Tmp<- strsplit(Rgstr,"=")
+ K<-Tmp[[1]]
+ if (length(K)>1)
+ {
+ Vname<- K[1]
+ Tmp1<- K[2]
+ Rng<- eval(parse(text=Tmp1))
+ }
+ else
+ {
+ Vname<- Rgstr
+ Rng<- c(0,2*pi)
+ }
+ T1<- Rng[1]; T2<- Rng[2]
+ Dt<- (T2-T1)/N #17.09.22
+ if (Fnflg==0)
+ {
+ Str<- gsub(Vname,"t",Fnstr)
+ }
+ P<-c()
+ if (length(E)>0)
+ {
+ E<-sort(E)
+ E<E[length(E):1]
+ }
+ E<- c(E, Inf)
+ Tmp<- sort(E)
+ E<- E[length(Tmp):1]
+ Ke<- 1
+ for (t in seq(T1, T2, by=Dt))
+ {
+ Pa<- c()
+ if (t-E[Ke]< Eps)
+ {
+ if (Fnflg==0)
+ {
+ Tmp<-eval(parse(text=Str))
+ Pa<- Tmp
+ }
+ else
+ {
+ }
+ }
+ if (abs(t-E[Ke])<=Eps)
+ {
+ if (Nrow(P)>0 && Op(Nrow(P),P)!=c(Inf,Inf))
+ {
+ Pa<- c(Inf,Inf)
+ }
+ }
+ if (t-E[Ke]>Eps)
+ {
+ if (Fnflg==0)
+ {
+ Tmp<- eval(parse(text=Str))
+ Pa<- Tmp
+ }
+ else
+ {
+ }
+ Ke<-Ke+1
+ }
+ if (length(Pa)>0)
+ {
+ if (Pa[1]==Inf)
+ {
+ Tmp<-Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else
+ {
+ if (Nrow(P)==0)
+ {
+ Tmp<- Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else
+ {
+ Tmp<- Op(Nrow(P),P)
+ if (Tmp[1]==Inf)
+ {
+ Tmp<- Appendrow(P,Pa)
+ P<- Tmp
+ }
+ else
+ {
+ if (Norm(Tmp-Pa)<D)
+ {
+ Tmp<-Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else
+ {
+ Tmp<- Appendrow(P,c(Inf,Inf),Pa)
+ P<- Tmp
+ }
+ }
+ }
+ }
+ }
+ }
+ Tmp<- Nrow(P)
+ Tmp1<- Op(Tmp,P)
+ if (Tmp1[1]==Inf)
+ {
+ P<- P[1:(Tmp-1),]
+ }
+ return(P)
+}
+
+#####################################
+
+Partcrv<- function(A,B,PkL)
+{
+ Eps<- 10.0^(-3)
+ if (mode(A)=="numeric" && length(A)==1){
+ if (A>B+Eps){
+ Npt<- Numptcrv(PkL)
+ Out1<- Partcrv(A,Npt,PkL)
+ Out2<- Partcrv(1,B,PkL)
+ Tmp<- Ptstart(PkL)-Ptend(PkL)
+ if (Norm(Tmp)<Eps){
+ Ans<- Joincrvs(Out1,Out2)
+ }
+ else{
+ Ans<- list(Out1,Out2)
+ }
+ return(Ans)
+ }
+ Is<- ceiling(A)
+ Ie<- floor(B)
+ PL<- c()
+ if (A<Is-Eps){
+ P<- (Is-A)*PkL[Is-1,]+(1-Is+A)*PkL[Is,]
+ PL<- c(P)
+ }
+ PL<- Appendrow(PL, PkL[Looprange(Is,Ie),])
+ if (B>Ie+Eps){
+ P<- (1-B+Ie)*PkL[Ie,]+(B-Ie)*PkL[Ie+1,]
+ PL<- Appendrow(PL,P)
+ }
+ Ans<- PL
+ return(Ans)
+ }
+ Tmp<- Nearestpt(A,PkL)
+ Ta<- Op(2,Tmp)
+ Tmp<- Nearestpt(B,PkL)
+ Tb<- Op(2,Tmp)
+ Ans<- Partcrv(Ta,Tb,PkL)
+}
+
+##########################################
+# 13.05.03
+
+Partframe<- function(Tb,St,Ed)
+{
+ G<- Dividetable(Tb)
+ Gw<- G[[1]]
+ Gt<- G[[2]]
+ Gy<- G[[3]]
+ Gwt<- Tb[[4]]
+ Gwy<- Tb[[5]]
+ Gat<- c(list(Gwt[[1]]),Gt,list(Gwt[[2]]))
+ Gay<- c(list(Gwy[[1]]),Gy,list(Gwy[[2]]))
+ Tmp1<- Ptstart(Gat[[St[1]]])
+ Tmp2<- Ptstart(Gay[[St[2]]])
+ Ps<- c(Tmp1[1],Tmp2[2])
+ Tmp1<- Ptstart(Gat[[Ed[1]]])
+ Tmp2<- Ptstart(Gay[[Ed[2]]])
+ Pe<- c(Tmp1[1],Tmp2[2])
+ Pars<- Paramoncrv(Ps,Gw)
+ Pare<- Paramoncrv(Pe,Gw)
+ if(Pars<Pare){
+ Out<- Partcrv(Pars,Pare,Gw)
+ }
+ else{
+ Tmp1<- Partcrv(Pars,Numptcrv(Gw),Gw)
+ Tmp2<- Partcrv(1,Pare,Gw)
+ Out<- Joincrvs(Tmp1,Tmp2)
+ }
+return(Out)
+}
+
+
+##########################################
+# 10.12.04
+
+Plotdata<- function(...)
+{
+ varargin<- list(...)
+ Eps<- 10^(-5)
+ Fnstr<- varargin[[1]]; Is<- 2
+ Fnflg<- 0
+ Rgstr<- varargin[[Is]]; Is<- Is+1
+ Tmp<- strsplit(Rgstr,"=")
+ K<-Tmp[[1]]
+ if (length(K)>1){
+ Vname<- K[1]
+ Tmp1<- K[2]
+ Rng<- eval(parse(text=Tmp1))
+ }
+ else{
+ Vname<- Rgstr
+ Rng<- c(XMIN,XMAX)
+ }
+ N<- 50 # Numpoints
+ E<-c() # Exclusions
+ Exfun<- "" # Exclusion function
+ D<- Inf # Discont
+ for (I in Looprange(Is,length(varargin))){
+ Tmp<- varargin[[I]]
+ Lhs<- substring(Tmp,1,1)
+ Tmp<- strsplit(Tmp,"=")
+ K<- Tmp[[1]]
+ Tmp1<- K[2]
+ Tmp2<- grep(Vname,Tmp1,fixed=TRUE) ## 10.12.04
+ if (length(Tmp2)==0){
+ Str<-paste(Lhs,"=",Tmp1,sep="")
+ eval(parse(text=Str))
+ }
+ else{
+ Exfun<-Tmp1
+ }
+ }
+ X1<- Rng[1]; X2<- Rng[2]
+ dx<- (X2-X1)/N # 17.09.22
+ if (Fnflg==0){
+ Str<- gsub(Vname,"x",Fnstr,fixed=TRUE)
+ }
+ Exfun<- gsub(Vname,"x",Exfun,fixed=TRUE)
+ P<-c()
+ if (length(E)>0){
+ E<-sort(E)
+ E<E[length(E):1]
+ }
+ E<- c(E, Inf)
+ Tmp<- sort(E)
+ E<- E[length(Tmp):1]
+ Ke<- 1
+ for (x in seq(X1,X2,by=dx)){
+ if (nchar(Exfun)>0){
+ Tmp<-eval(parse(text=Exfun))
+ if (abs(Tmp)<Eps){
+ P<- Appendrow(P,c(Inf,inf))
+ next
+ }
+ }
+ Pa<- c()
+ if (x-E[Ke]< -Eps){ ## 10.12.04
+ Tmp<-eval(parse(text=Str))
+ Pa<- c(x,Tmp)
+ }
+ if (abs(x-E[Ke])<=Eps){
+ if (Nrow(P)>0 && P[Nrow(P),]!=c(Inf,Inf)){
+ Pa<- c(Inf,Inf)
+ }
+ }
+ if (x-E[Ke]>Eps){
+ Tmp<- eval(parse(text=Str))
+ Pa<- c(x,Tmp)
+ Ke<-Ke+1
+ }
+ if (length(Pa)>0){
+ if (Pa[1]==Inf){
+ Tmp<-Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else{
+ if (Nrow(P)==0){
+ Tmp<- Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else{
+ Tmp<- P[Nrow(P),]
+ if (Tmp[1]==Inf){
+ Tmp<- Appendrow(P,Pa)
+ P<- Tmp
+ }
+ else{
+ if (Norm(Tmp-Pa)<D){
+ Tmp<-Appendrow(P,Pa)
+ P<-Tmp
+ }
+ else{
+ Tmp<- Appendrow(P,c(Inf,Inf),Pa)
+ P<- Tmp
+ }
+ }
+ }
+ }
+ }
+ }
+ Tmp<- Nrow(P)
+ Tmp1<-P[Tmp,]
+ if (Tmp1[1]==Inf)
+ {
+ P<- P[1:(Tmp-1),]
+ }
+ return(P)
+}
+
+######################################
+
+Pointoncrv<-function(...)
+{
+ varargin<-list(...)
+ Eps<-10^(-4)
+ T<-varargin[[1]]
+ Gdata<-varargin[[2]]
+ if (Nrow(T)>1)
+ {
+ Tmp<-T; T<-Gdata; Gdata<-Tmp
+ }
+ PtL<-Gdata
+ N<-trunc(T+Eps);
+ S<-max(T-N,0);
+ if (N==Nrow(PtL))
+ {
+ Out<-PtL[N,]
+ }
+ else
+ {
+ Pa<-PtL[N,]
+ Pb<-PtL[N+1,]
+ Out<-(1-S)*Pa+S*Pb
+ }
+ return(Out)
+}
+
+##############################################
+# 10.11.20
+# 13.05.03 Inf
+
+Pointdata<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ PL<- list()
+ for (I in Looprange(1,Nargs)){ # 10.11.20
+ DL<-varargin[[I]]
+ DL<- Flattenlist(DL) # 10.11.20 from here
+ for (J in Looprange(1,length(DL))){
+ Dt<- DL[[J]]
+ if(is.matrix(Dt)|| is.data.frame(Dt)){
+ for (K in 1:nrow(Dt)){
+ Tmp<- as.numeric(Dt[K,])
+ if(Tmp[1]<Inf){
+ PL<- c(PL,list(Tmp))
+ }
+ }
+ }
+ else{
+ PL<- c(PL,list(Dt))
+ }
+ }
+ } # to here
+ if (length(PL)==1)
+ {
+ PL<-PL[[1]]
+ }
+ return(PL)
+}
+
+##############################################
+
+Prime<- function(...)
+{
+ varargin<- list(...)
+ if (length(varargin)==0){
+ Out="'"
+ }
+ else{
+ Out<- paste(varargin[[1]],"'",sep="")
+ }
+ return(Out)
+}
+
+############################################
+# 17.09.29
+
+Ptcrv<-function(N,Fig)
+{
+ if(is.matrix(Fig)){
+ return(Fig[N,])
+ }
+ else{
+ return(Fig)
+ }
+}
+
+#########################################
+
+Ptend<-function(Fig)
+{
+ return(Fig[Nrow(Fig),])
+}
+
+#########################################
+
+Ptne<-function(...)
+{
+ varargin<- list(...)
+ if (length(varargin)==0){
+ Out<- c(XMAX,YMAX)
+ }
+ else{
+ G<- varargin[[1]]
+ XM<- max(G[,1])
+ YM<- max(G[,2])
+ Out<- c(XM,YM)
+ }
+ return(Out)
+}
+
+#########################################
+
+Ptnw<-function(...)
+{
+ varargin<- list(...)
+ if (length(varargin)==0){
+ Out<- c(XMIN,YMAX)
+ }
+ else{
+ G<- varargin[[1]]
+ Xm<- min(G[,1])
+ YM<- max(G[,2])
+ Out<- c(Xm,YM)
+ }
+ return(Out)
+}
+
+#########################################
+
+Ptse<-function(...)
+{
+ varargin<- list(...)
+ if (length(varargin)==0){
+ Out<- c(XMAX,YMIN)
+ }
+ else{
+ G<- varargin[[1]]
+ XM<- max(G[,1])
+ Ym<- min(G[,2])
+ Out<- c(XM,Ym)
+ }
+ return(Out)
+}
+
+#############################################
+
+Ptstart<-function(Fig)
+{
+ return(Fig[1,])
+}
+
+#########################################
+
+Ptsw<-function(...)
+{
+ varargin<- list(...)
+ if (length(varargin)==0){
+ Out<- c(XMIN,YMAX)
+ }
+ else{
+ G<- varargin[[1]]
+ Xm<- min(G[,1])
+ Ym<- min(G[,2])
+ Out<- c(Xm,Ym)
+ }
+ return(Out)
+}
+
+##############################################
+
+Putcell<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ Str<- varargin[[Nargs]]
+ if (mode(Str)=="numeric"){
+ Str<- as.character(Str)
+ }
+ Pos<- varargin[[Nargs-1]]
+ Nrg<- varargin[[2]]
+ if (mode(Nrg)=="character"){
+ if (Nargs==4){
+ Cell<- Findcell(TbL,Nrg)
+ }
+ else{
+ Mrg<- varargin[[3]]
+ Cell<- Findcell(TbL,Nrg,Mrg)
+ }
+ }
+ else{
+ Mrg<- varargin[[3]]
+ Cell<- Findcell(TbL,Nrg,Mrg)
+ }
+ Pt<- Cell[[1]]; Dr<- "c"
+ Posh<- substr(Pos,1,1)
+ Post<- substr(Pos,2,nchar(Pos))
+ if (toupper(Posh)=="R"){
+ Pt<- Pt+c(Cell[[2]],0)
+ if (nchar(Post)==0){
+ Dr<- "w1"
+ }
+ else{
+ Dr<- paste("w",Post,sep="")
+ }
+ }
+ if (toupper(Posh)=="L"){
+ Pt=Pt-c(Cell[[2]],0)
+ if (nchar(Post)==0){
+ Dr<- "e1"
+ }
+ else{
+ Dr<- paste("e",Post,sep="")
+ }
+ }
+ if (toupper(Posh)=="U"){
+ Pt<- Pt+c(0,Cell[[3]])
+ if (nchar(Post)==0){
+ Dr<- "s1"
+ }
+ else{
+ Dr<- paste("s",Post,sep="")
+ }
+ }
+ if (toupper(Posh)=="D"){
+ Pt<- Pt-c(0,Cell[[3]])
+ if (nchar(Post)==0){
+ Dr<- "n1"
+ }
+ else{
+ Dr<- paste("n",Post,sep="")
+ }
+ }
+ if (toupper(Posh)=="B"){
+ Pt<- Pt-c(0,Cell[[3]])
+ if (nchar(Post)==0){
+ Dr<- "n1"
+ }
+ else{
+ Dr<- paste("n",Post,sep="")
+ }
+ Str<- paste("$\\mathstrut$",Str,sep="")
+ }
+ Letter(Pt,Dr,Str)
+}
+
+#############################################
+
+PutcoL<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ if (mode(TbL)!="list"){
+ return("Tabledata missing")
+ }
+ Ag<- varargin[[2]]
+ if (mode(Ag)=="numeric"){
+ CoL<- Ag
+ }
+ else{
+ Alpha<- "-ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ Clm<- c()
+ for (I in Looprange(1,nchar(Ag))){
+ C<- substr(Ag,I,I)
+ C<- toupper(C)
+ Tmp<- strsplit(Alpha,C)
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ Tmp1<- nchar(Tmp[1])
+ Clm<- c(Clm,Tmp1)
+ }
+ }
+ Nrg<- 0
+ for (I in seq(length(Clm),1,by=-1)){
+ Tmp<- Clm[I]
+ Tmp1<- length(Clm)-I
+ Nrg<- Nrg+Tmp*26^Tmp1
+ }
+ CoL<- Nrg
+ }
+ Nc<- length(TbL[[3]])+1
+ K<- 1
+ Dpos<- varargin[[3]]
+ for (I in Looprange(4,Nargs)){
+ if (I-3>Nc){
+ break
+ }
+ Dt<- varargin[[I]]
+ if (mode(Dt)!="list"){
+ Putcell(TbL,CoL,K,Dpos,Dt) # 2011.03.02
+ K<- K+1
+ }
+ else{
+ N<- length(Dt)
+ Str<- Dt[[N]]
+ Rrng<- c(K,K+1)
+ Pos<- Dpos
+ for (J in Looprange(1,N-1)){
+ Tmp<- Dt[[J]]
+ if (mode(Tmp)=="numeric"){
+ Rrng<- c(K,K+Tmp)
+ }
+ if (mode(Tmp)=="character"){
+ Pos<- Tmp
+ }
+ }
+ Putcell(TbL,CoL,Rrng,Pos,Str)
+ K<- Crng[2]
+ }
+ }
+}
+
+Putcol<- function(...)
+{
+ PutcoL(...)
+}
+
+PutcoLexpr<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ if (mode(TbL)!="list"){
+ return("Tabledata missing")
+ }
+ Ag<- varargin[[2]]
+ if (mode(Ag)=="numeric"){
+ CoL<- Ag
+ }
+ else{
+ Alpha<- "-ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ Clm<- c()
+ for (I in Looprange(1,nchar(Ag))){
+ C<- substr(Ag,I,I)
+ C<- toupper(C)
+ Tmp<- strsplit(Alpha,C)
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ Tmp1<- nchar(Tmp[1])
+ Clm<- c(Clm,Tmp1)
+ }
+ }
+ Nrg<- 0
+ for (I in seq(length(Clm),1,by=-1)){
+ Tmp<- Clm[I]
+ Tmp1<- length(Clm)-I
+ Nrg<- Nrg+Tmp*26^Tmp1
+ }
+ CoL<- Nrg
+ }
+ Nc<- length(TbL[[3]])+1
+ K<- 1
+ Dpos<- varargin[[3]]
+ for (I in Looprange(4,Nargs)){
+ if (I-3>Nc){
+ break
+ }
+ Dt<- varargin[[I]]
+ if (mode(Dt)!="list"){
+ Dt<- paste("$",Dt,"$",sep="")
+ Putcell(TbL,CoL,K,Dpos,Dt) # 2011.03.02
+ K<- K+1
+ }
+ else{
+ N<- length(Dt)
+ Str<- paste("$",Dt[[N]],"$",sep="")
+ Rrng<- c(K,K+1)
+ Pos<- Dpos
+ for (J in Looprange(1,N-1)){
+ Tmp<- Dt[[J]]
+ if (mode(Tmp)=="numeric"){
+ Rrng<- c(K,K+Tmp)
+ }
+ if (mode(Tmp)=="character"){
+ Pos<- Tmp
+ }
+ }
+ Putcell(TbL,CoL,Rrng,Pos,Str)
+ K<- Crng[2]
+ }
+ }
+}
+
+Putcolexpr<- function(...)
+{
+ PutcoLexpr(...)
+}
+
+#####################################################
+
+PutcoLstr<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Tb<- varargin[[1]]
+ Nr<- varargin[[2]]
+ Pos<- varargin[[3]]
+ Str<- varargin[[4]]
+ Sep<- ""
+ if (Nargs>4){
+ Sep<- varargin[[5]]
+ }
+ if (nchar(Sep)==0){
+ for (I in Looprange(1,nchar(Str))){
+ Tmp<- substr(Str,I,I)
+ Putcell(Tb,Nr,I,Pos,Tmp)
+ }
+ }
+ else{
+ Ltr<- ""
+ K<- 1
+ for (I in Looprange(1,length(Str))){
+ Tmp<- substr(Str,I,I)
+ if (Tmp==Sep){
+ Putcell(Tb,Nr,K,Pos,Ltr)
+ K<- K+1
+ Ltr<- ""
+ }
+ else{
+ Ltr<- paste(Ltr,Tmp,sep="")
+ }
+ }
+ if (nchar(Ltr)>0){
+ Putcell(Tb,Nr,K,Pos,Ltr)
+ }
+ }
+}
+
+#############################################
+
+Putrow<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ if (mode(TbL)!="list"){
+ return("Tabledata missing")
+ }
+ Row<- varargin[[2]]
+ Nr<- length(TbL[[2]])+1
+ K<- 1
+ Dpos<- varargin[[3]]
+ for (I in Looprange(4,Nargs)){
+ if (I-3>Nr){
+ break;
+ }
+ Dt<- varargin[[I]]
+ if (mode(Dt)!="list"){
+ Putcell(TbL,K,Row,Dpos,Dt) # 110308
+ K<- K+1
+ }
+ else{
+ N<- length(Dt)
+ Str<- Dt[[N]]
+ Crng<- c(K,K+1)
+ Pos<- Dpos
+ for (J in Looprange(1,N-1)){
+ Tmp<- Dt[[J]]
+ if (mode(Tmp)=="numeric"){
+ Crng<- c(K,K+Tmp)
+ }
+ if (mode(Tmp)=="character"){
+ Pos<- Tmp
+ }
+ }
+ Putcell(TbL,Crng,Row,Pos,Str)
+ K<- Crng[2]
+ }
+ }
+}
+
+Putrowexpr<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ TbL<- varargin[[1]]
+ if (mode(TbL)!="list"){
+ return("Tabledata missing")
+ }
+ Row<- varargin[[2]]
+ Nr<- length(TbL[[2]])+1
+ K<- 1
+ Dpos<- varargin[[3]]
+ for (I in Looprange(4,Nargs)){
+ if (I-3>Nr){
+ break;
+ }
+ Dt<- varargin[[I]]
+ if (mode(Dt)!="list"){
+ Dt<- paste("$",Dt,"$",sep="")
+ Putcell(TbL,K,Row,Dpos,Dt) #110308
+ K<- K+1
+ }
+ else{
+ N<- length(Dt)
+ Str<- paste("$",Dt[[N]],"$",sep="")
+ Crng<- c(K,K+1)
+ Pos<- Dpos
+ for (J in Looprange(1,N-1)){
+ Tmp<- Dt[[J]]
+ if (mode(Tmp)=="numeric"){
+ Crng<- c(K,K+Tmp)
+ }
+ if (mode(Tmp)=="character"){
+ Pos<- Tmp
+ }
+ }
+ Putcell(TbL,Crng,Row,Pos,Str)
+ K<- Crng[2]
+ }
+ }
+}
+
+####################################################
+
+Putrowstr<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Tb<- varargin[[1]]
+ Nr<- varargin[[2]]
+ Pos<- varargin[[3]]
+ Str<- varargin[[4]]
+ Sep<- ""
+ if (Nargs>4){
+ Sep<- varargin[[5]]
+ }
+ if (nchar(Sep)==0){
+ for (I in Looprange(1,nchar(Str))){
+ Tmp<- substr(Str,I,I)
+ Putcell(Tb,I,Nr,Pos,Tmp)
+ }
+ }
+ else{
+ Ltr<- ""
+ K<- 1
+ for (I in Looprange(1,length(Str))){
+ Tmp<- substr(Str,I,I)
+ if (Tmp==Sep){
+ Putcell(Tb,K,Nr,Pos,Ltr)
+ K<- K+1
+ Ltr<- ""
+ }
+ else{
+ Ltr<- paste(Ltr,Tmp,sep="")
+ }
+ }
+ if (nchar(Ltr)>0){
+ Putcell(Tb,K,Nr,Pos,Ltr)
+ }
+ }
+}
+
+############################################
+# 11.05.28
+
+Ratiocmyk<- function(Color)
+{
+ if(is.numeric(Color)){
+ return(Color)
+ }
+ R<-
+ switch(Color,
+ greenyellow=c(0.15,0,0.69,0),
+ yellow=c(0,0,1,0),
+ goldenrod=c(0,0.1,0.84,0),
+ dandelion=c(0,0.29,0.84,0),
+ apricot=c(0,0.32,0.52,0),
+ peach=c(0,0.5,0.7,0),
+ melon=c(0,0.46,0.5,0),
+ yelloworange=c(0,0.42,1,0),
+ orange=c(0,0.61,0.87,0),
+ burntorange=c(0,0.51,1,0),
+ bittersweet=c(0,0.75,1,0.24),
+ redorange=c(0,0.77,0.87,0),
+ mahogany=c(0,0.85,0.87,0.35),
+ maroon=c(0,0.87,0.68,0.32),
+ brickred=c(0,0.89,0.94,0.28),
+ red=c(0,1,1,0),
+ orangered=c(0,1,0.5,0),
+ rubinered=c(0,1,0.13,0),
+ wildstrawberry=c(0,0.96,0.39,0),
+ salmon=c(0,0.53,0.38,0),
+ carnationpink=c(0,0.63,0,0),
+ magenta=c(0,1,0,0),
+ violetred=c(0,0.81,0,0),
+ rhodamine=c(0,0.82,0,0),
+ mulberry=c(0.34,0.9,0,0.02),
+ redviolet=c(0.07,0.9,0,0.34),
+ fuchsia=c(0.47,0.91,0,0.08),
+ lavender=c(0,0.48,0,0),
+ thistle=c(0.12,0.59,0,0),
+ orchid=c(0.32,0.64,0,0),
+ darkorchid=c(0.4,0.8,0.2,0),
+ purple=c(0.45,0.86,0,0),
+ plum=c(0.5,1,0,0),
+ violet=c(0.79,0.88,0,0),
+ royalpurple=c(0.75,0.9,0,0),
+ blueviolet=c(0.86,0.91,0,0.04),
+ periwinkle=c(0.57,0.55,0,0),
+ cadetblue=c(0.62,0.57,0.23,0),
+ cornflowerblue=c(0.65,0.13,0,0),
+ midnightblue=c(0.98,0.13,0,0.43),
+ navyblue=c(0.94,0.54,0,0),
+ royalblue=c(1,0.5,0,0),
+ blue=c(1,1,0,0),
+ cerulean=c(0.94,0.11,0,0),
+ cyan=c(1,0,0,0),
+ processblue=c(0.96,0,0,0),
+ skyblue=c(0.62,0,0.12,0),
+ turquoise=c(0.85,0,0.2,0),
+ tealblue=c(0.86,0,0.34,0.02),
+ aquamarine=c(0.82,0,0.3,0),
+ bluegreen=c(0.85,0,0.33,0),
+ emerald=c(1,0,0.5,0),
+ junglegreen=c(0.99,0,0.52,0),
+ seagreen=c(0.69,0,0.5,0),
+ green=c(1,0,1,0),
+ forestgreen=c(0.91,0,0.88,0.12),
+ pinegreen=c(0.92,0,0.59,0.25),
+ limegreen=c(0.5,0,1,0),
+ yellowgreen=c(0.44,0,0.74,0),
+ springgreen=c(0.26,0,0.76,0),
+ olivegreen=c(0.64,0,0.95,0.4),
+ rawsienna=c(0,0.72,1,0.45),
+ sepia=c(0,0.83,1,0.7),
+ brown=c(0,0.81,1,0.6),
+ tan=c(0.14,0.42,0.56,0),
+ gray=c(0,0,0,0.5),
+ black=c(0,0,0,1),
+ white=c(0,0,0,0)
+ )
+ if(length(R)<4){
+ print("No color")
+ return(c())
+ }
+ return(R)
+}
+
+############################################
+# 11.01.07
+
+Readtextdata<- function(...)
+{
+ varargin<- list(...)
+ OutL<- list()
+ Nargs<- length(varargin)
+ Fname<- varargin[[1]]
+ Tmp<- readLines(Fname,n=1)
+ if (length(grep("\t",Tmp))>0){
+ Sep<- "\t"
+ }
+ else if (length(grep(",",Tmp))>0){
+ Sep<- ","
+ }
+ else{
+ Sep<- " "
+ }
+ Hajime<- c(1,1)
+ Owari<- c(Inf,Inf)
+ C<- Inf
+ R<- Inf
+ Rna<- FALSE
+ Cna<- TRUE
+ Mat<- FALSE
+ Num<- TRUE
+ D<- -Inf
+ Flg<- 0
+ for (I in Looprange(2,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric"){
+ if (Flg==0){
+ Hajime<- Tmp
+ Flg<- 1
+ }
+ else{
+ Owari<- Tmp
+ }
+ }
+ else{
+ eval(parse(text=Tmp))
+ }
+ }
+ Tmp<- Hajime+c(R-1,C-1)
+ Owari<- c(min(Owari[1],Tmp[1]),min(Owari[2],Tmp[2]))
+ if (Cna){
+ Df<- read.table(Fname,sep=Sep,header=TRUE,,stringsAsFactors=FALSE)
+ }
+ else{
+ Df<- read.table(Fname,sep=Sep,header=FALSE,,stringsAsFactors=FALSE)
+ Nv<- c(1:ncol(Df))
+ colnames(Df)<- Nv
+ }
+ if (Rna){
+ rownames(Df)<-Df[,1]
+ Hajime<- Hajime+c(0,1)
+ }
+ if (Mat){
+ M<- as.matrix(Df)
+ Tmp1<- min(Owari[1],nrow(M))
+ Tmp2<- min(Owari[2],ncol(M))
+ Out<- as.matrix(M[Hajime[1]:Tmp1,Hajime[2]:Tmp2])
+ if (Num){
+ Tmp1<- as.numeric(Out)
+ Out<- matrix(Tmp1,nrow=nrow(Out))
+ }
+ }
+ else{
+ Tmp1<- min(Owari[1],nrow(Df))
+ Tmp2<- min(Owari[2],ncol(Df))
+ Out<- Df[Hajime[1]:Tmp1,Hajime[2]:Tmp2]
+ }
+ if (D!=-Inf){ # 11.01.20 v2
+ Tmp<- ncol(Out) # 11.01.07
+ Tmp1<- rep(Inf,Tmp)
+ Out[Out[,1]<=D,]<- Tmp1 # 11.01.07
+ }
+ return(Out)
+}
+
+##################################
+
+Reflectdata<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-8)
+ ML<- varargin[[1]]
+ if (Mixtype(ML)==1){
+ ML<- list(ML)
+ }
+ if (Nargs==1){
+ PtA<- c(0,0); PtB<- PtA
+ }
+ else{
+ Pts<- varargin[[2]]
+ if (length(Pts)==2){
+ PtA<- Pts; PtB<- PtA
+ }
+ else{
+ PtA<- Pts[1:2]; PtB<- Pts[3:4]
+ }
+ }
+ OutL<- list()
+ for (N in Looprange(1,length(ML))){
+ GL<- Op(N,ML)
+ Out<- c()
+ for (I in Looprange(1,Nrow(GL))){
+ if(is.matrix(GL)){ # 10.12.07
+ Tmp<- GL[I,]
+ }
+ else{
+ Tmp<- GL
+ }
+ X1<- Tmp[1]
+ Y1<- Tmp[2]
+ if (X1==Inf){
+ X2<- X1
+ Y2<- Y1
+ }
+ else{
+ if (Norm(PtA-PtB)<Eps){
+ X2<- 2*PtA[1]-X1
+ Y2<- 2*PtA[2]-Y1
+ }
+ else{
+ U<- PtB[1]-PtA[1]
+ V<- PtB[2]-PtA[2]
+ A<- PtA[1]
+ B<- PtA[2]
+ X2<- (U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1
+ X2<- X2-2*V*(U*B-V*A)/(U^2+V^2)
+ Y2<- 2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1
+ Y2<- Y2+2*U*(U*B-V*A)/(U^2+V^2)
+ }
+ }
+ Out<- Appendrow(Out,c(X2,Y2))
+ }
+ OutL<- Mixjoin(OutL,list(Out))
+ }
+ if (length(OutL)==1){
+ OutL<- Op(1,OutL)
+ }
+ return(OutL)
+}
+
+##########################################
+
+Writetextdata<- function(...)
+{
+ varargin<- list(...)
+ OutL<- list()
+ Nargs<- length(varargin)
+ Data<- varargin[[1]]
+ Fname<- varargin[[2]]
+ Sep=","
+ for (I in Looprange(3,Nargs)){
+ Tmp<- varargin[[I]]
+ eval(parse(text=Tmp))
+ }
+ write.table(Data,Fname,sep=Sep,row.names=FALSE,na="")
+}
+
+##########################################
+# 2014.12.17
+# 2015.10.29
+
+WriteOutData<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+# if modulo(Nargs,2)==0 then
+# Fname=Fnameout;
+# Nst=1;
+# else
+ Fname=varargin[[1]]
+ Nst=2;
+# end;
+ for(N in seq(Nst,Nargs,by=2)){
+ Gname=varargin[[N]]
+ Tmp=paste(Gname,"//",sep="")
+ if(N==Nst){
+ cat(Tmp,"\n",sep="",file=Fname)
+ }
+ else{
+ cat(Tmp,"\n",sep="",file=Fname,append=TRUE)
+ }
+ Gdata=varargin[[N+1]]
+ Gdata=Flattenlist(Gdata)
+ if(!is.list(Gdata)){Gdata=list(Gdata)}
+ for(K in seq(1,length(Gdata))){
+ GL=Dividegraphics(Gdata[[K]])
+ for(J in seq(1,length(GL))){
+ cat("start//","\n",sep="",file=Fname,append=TRUE)
+ Str=""
+ Iend=Numptcrv(GL[[J]])
+ for(II in seq(1,Iend)){
+ Pt=Ptcrv(II,GL[[J]])
+ if(nchar(Str)>0){
+ Str=paste(Str,",",sep="")
+ }
+ if(length(Pt)<3){
+ Str=paste(Str,sprintf("[%5.4f,%5.4f]",Pt[1],Pt[2]),sep="")
+ }
+ else{
+ Str=paste(Str,sprintf("[%5.4f,%5.4f,%5.4f]",Pt[1],Pt[2],Pt[3]),sep="")
+ }
+ if(nchar(Str)>80){
+ cat("[",Str,"]//","\n",sep="",file=Fname,append=TRUE)
+ Str=""
+ }
+ }
+ if(nchar(Str)>0){
+ cat("[",Str,"]//","\n",sep="",file=Fname,append=TRUE)
+ }
+ if((N==Nargs-1) & (K==length(Gdata)) & (J==length(GL))){
+# cat("end////","\n",sep="",file=Fname,append=TRUE)
+ cat("end//","\n",sep="",file=Fname,append=TRUE)
+ }
+ else{
+ cat("end//","\n",sep="",file=Fname,append=TRUE)
+ }
+ }
+ }
+ }
+ cat("//","\n",sep="",file=Fname,append=TRUE) # 15.11.05
+}
+
+##########################################
+# 2015.10.23
+
+ReadOutData<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Fname=varargin[[1]]
+ cmdall=readLines(Fname)
+ cmdall=gsub("//","",cmdall,fixed=TRUE)
+ varname=cmdall[1]
+ outdt=list()
+ varL=c()
+ ptL=list()
+ flg=0
+ for(cmd in cmdall){
+ if(nchar(cmd)>0){
+ if((cmd=="start") | cmd=="end" | substring(cmd,1,1)=="["){
+ if(cmd=="start"){
+ pts=c()
+ }
+ if(cmd=="end"){
+ ptL=c(ptL,list(pts))
+ }
+ if(substring(cmd,1,1)=="["){
+ tmp1=paste(",",substring(cmd,2,nchar(cmd)-1),sep="")
+ tmp1=strsplit(tmp1,"]",fixed=TRUE)
+ tmp1=tmp1[[1]]
+ tmp1=gsub(",[","c(",tmp1,fixed=TRUE)
+ for(st in tmp1){
+ tmp=eval(parse(text=paste(st,")",sep="")))
+ pts=rbind(pts,tmp)
+ }
+ row.names(pts)=1:nrow(pts)
+ }
+ }
+ else{
+ varname=cmd
+ varL=c(varL,varname)
+ if(flg==0){ # 17.10.07from
+ flg=1
+ }else{
+ outdt=c(outdt,list(ptL))
+ } # 17.10.07upto
+ ptL=c()
+ }
+ }
+ }
+ outdt=c(outdt,list(ptL)) # 17.10.07
+ names(outdt)=varL
+ for(var in varL){
+ tmp=paste(var,"<<- outdt$",var,sep="")
+ eval(parse(text=tmp))
+ }
+# print(varL)
+ outdt
+}
+
+####################################################
+
+Rotatedata<- function(..., deg=FALSE)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-8)
+ ML<- varargin[[1]]
+ if (Mixtype(ML)==1){
+ ML<- list(ML)
+ }
+ Theta<- varargin[[2]]
+ if (deg) Theta<- Theta*pi/180 # 10.12.07
+ if (Nargs==2){
+ Pt<- c(0,0)
+ }
+ else{
+ Pt<- varargin[[3]]
+ }
+ Cx<- Pt[1]; Cy<- Pt[2]
+ OutL<- c()
+ for (N in Looprange(1,length(ML))){
+ GL<- Op(N,ML)
+ Out<- c()
+ for (I in Looprange(1,Nrow(GL))){
+ if(is.matrix(GL)){
+ Tmp<- GL[I,]
+ }
+ else{
+ Tmp<- GL
+ }
+ X1<- Tmp[1]
+ Y1<- Tmp[2]
+ if (X1==Inf){
+ X2<- X1
+ Y2<- Y1
+ }
+ else{
+ X2<- Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta)
+ Y2<- Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta)
+ }
+ Out<- Appendrow(Out,c(X2,Y2))
+ }
+ if(nrow(Out)==1){
+ Out<- Out[1,]
+ }
+ OutL<- Mixjoin(OutL,list(Out))
+ }
+ if (length(OutL)==1){
+ OutL<- Op(1,OutL)
+ }
+ return(OutL)
+}
+
+###############################################
+
+Scaledata<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-8)
+ ML<- varargin[[1]]
+ if (Mixtype(ML)==1){
+ ML<- list(ML)
+ }
+ A<- varargin[[2]]
+ B<- varargin[[3]]
+ if (Nargs==3){
+ Pt<- c(0,0)
+ }
+ else{
+ Pt<- varargin[[4]]
+ }
+ OutL<- list()
+ for (N in Looprange(1,length(ML))){
+ GL<- Op(N,ML)
+ Out<- c()
+ for (I in Looprange(1,Nrow(GL))){
+ if(is.matrix(GL)){ # 10.12.07
+ Tmp<- GL[I,]
+ }
+ else{
+ Tmp<- GL
+ }
+ X1<- Tmp[1]
+ Y1<- Tmp[2]
+ if (X1==Inf){
+ X2<- X1
+ Y2<-Y1
+ }
+ else{
+ X2<- Pt[1]+A*(X1-Pt[1])
+ Y2<- Pt[2]+B*(Y1-Pt[2])
+ }
+ Out<- Appendrow(Out,c(X2,Y2))
+ }
+ OutL<- Mixjoin(OutL,list(Out))
+ }
+ if (length(OutL)==1){
+ OutL<- Op(1,OutL)
+ }
+ return(OutL)
+}
+
+################################
+
+Setarrow<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ Str<- paste("Size=",YaSize,",","Angle=",YaAngle,",",sep="")
+ Str<- paste(Str,"Position=",YaThick,",","Style=",YaStyle,sep="")
+ return(Str)
+ }
+ Flg<- 0
+ for (I in 1:Nargs){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric"){
+ Flg<- Flg+1
+ if (Flg==1) YaSize<<-Tmp
+ if (Flg==2){
+ if (Tmp<5){
+ YaAngle<<- 18*Tmp
+ }
+ else{
+ YaAngle<<- Tmp
+ }
+ }
+ if (Flg==3) YaPosition<<- Tmp
+ if (Flg==4) YaThick<<- Tmp
+ }
+ if (mode(Tmp)=="character"){
+ YaStyle<<- Tmp
+ }
+ }
+}
+
+####################################
+
+Setax<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ if (ZIKU=="line"){
+ Tmp<- ","
+ }
+ else{
+ Tmp<- paste("(Arrowsize=", as.character(ARROWSIZE),"),",sep="")
+ }
+ Str<- paste(ZIKU,Tmp,XNAME,",",XPOS,",",sep="")
+ Str<- paste(Str,YNAME,",",YPOS,",",ONAME,",",OPOS,sep="")
+ return(Str)
+ }
+ ArgL<- c()
+ Is<- 1
+ Tmp<- varargin[[1]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ Is<- varargin[[1]]
+ ArgL<- c()
+ for (I in Looprange(1,Is-1)){
+ ArgL<- c(ArgL,"")
+ }
+ for (I in Looprange(2,Nargs)){
+ ArgL<- c(ArgL,varargin[[I]])
+ }
+ }
+ else{
+ if (Nargs==1){
+ ArgL<- c(varargin[[1]])
+ }
+ else{
+ Tmp<- varargin[[2]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ ARROWSIZE<<-Tmp
+ ArgL<- c(varargin[[1]])
+ for (I in Looprange(3,Nargs)){
+ ArgL<- c(ArgL,varargin[[I]])
+ }
+ }
+ else{
+ ArgL<- c()
+ for (I in 1:Nargs){
+ ArgL<- c(ArgL,varargin[[I]])
+ }
+ }
+ }
+ }
+ for (I in Looprange(length(ArgL)+1,7)){
+ ArgL<- c(ArgL,"")
+ }
+ Zk<- ArgL[1]
+ if (nchar(Zk)>0){
+ ZL<-substr(Zk,2,nchar(Zk))
+ Zk<-substr(Zk,1,1)
+ if (nchar(ZL)>0){
+ ARROWSIZE<<- as.numeric(ZL)
+ }
+ }
+ Xn<- ArgL[2]; Xp<- ArgL[3]
+ Yn<- ArgL[4]; Yp<- ArgL[5]
+ Genn<- ArgL[6]; Genp<- ArgL[7]
+ if (nchar(Zk)>0){
+ C<- Zk
+ if (C=="a"){
+ ZIKU<<- "arrow"
+ }
+ else{
+ ZIKU<<- "line"
+ }
+ }
+ if (nchar(Xn)>0){
+ XNAME<<- paste("$",Xn,"$",sep="")
+ }
+ if (nchar(Xp)>0){
+ XPOS<<- Xp
+ }
+ if (nchar(Yn)>0){
+ YNAME<<- paste("$",Yn,"$",sep="")
+ }
+ if (nchar(Yp)>0){
+ YPOS<<-Yp
+ }
+ if (nchar(Genn)>0){
+ ONAME<<- Genn
+ }
+ if (nchar(Genp)>0){
+ OPOS<<- Genp
+ }
+ Out<- "";
+}
+
+#################################
+# 11.08.24
+
+Setcolor<- function(...){
+ varargin<- list(...)
+ Color<- 'black'
+ Kosa<- 1
+ for(J in Looprange(1,length(varargin))){
+ Tmp<- varargin[[J]]
+ if(is.character(Tmp)) Color<- Tmp
+ if(is.numeric(Tmp)){
+ if(length(Tmp)==1){# 11.08.24
+ Kosa<- Tmp
+ }
+ else{
+ Color<- Tmp
+ }
+ }# 11.08.24
+ }
+ Iro<- Ratiocmyk(Color)
+ if(length(Iro)==0) return(c())
+ Str<- "\\color[cmyk]{" #17.09.22
+ for(J in 1:4){
+ Str<- paste(Str,as.character(Kosa*Iro[J]),sep="")
+ if(J<4){
+ Str<- paste(Str,",",sep="")
+ }
+ }
+ Str<- paste(Str,"}",sep="")
+ Texcom(Str)
+}
+
+##################################
+
+Setmarklen<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ Tmp<- MARKLENNow/MARKLENInit
+ Tmp=round(Tmp*100)/100
+ return(Tmp)
+ }
+ Size<- varargin[[1]]
+ MARKLENNow<<- MARKLENInit*Size
+ MARKLEN<<- MARKLENNow*1000/2.54/MilliIn
+}
+
+###############################
+
+Setorigin<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ return(GENTEN)
+ }
+ Pt<- varargin[[1]]
+ GENTEN<<- Pt;
+}
+
+################################
+
+Setscaling<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0)
+ {
+ return(c(SCALEY,LOGX,LOGY))
+ }
+ for (I in 1:Nargs)
+ {
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)=="numeric")
+ {
+ SCALEY<<- Tmp
+ }
+ if (mode(Tmp)=="character")
+ {
+ if (Tmp=="l")
+ {
+ LOGX<<- 0
+ LOGY<<- 1
+ }
+ else if (Tmp=="ll")
+ {
+ LOGX<<- 1
+ LOGY<<- 1
+ }
+ else
+ {
+ LOGX<<- 0
+ LOGY<<- 0
+ }
+ }
+ }
+ Tmp<- c(SCALEY,LOGX,LOGY);
+}
+
+#########################################
+
+Setpen<-function(Width)
+{
+ PenThick<<-round(PenThickInit*Width)
+ Str=paste("\\special{pn ", as.character(PenThick),"}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+}
+
+##############################################
+
+Setpt<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0)
+ {
+ Tmp<- TenSize/TenSizeInit
+ Tmp<- round(Tmp*100)/100
+ return(Tmp)
+ }
+ Size<- varargin[[1]]
+ TenSize<<- TenSizeInit*Size;
+}
+
+##############################################
+
+Setunitlen<-function(...)
+{
+ varargin<-list(...)
+ if (length(varargin)==0){
+ return(ULEN)
+ }
+ Ul=varargin[[1]]
+ Dx<-XMAX-XMIN
+ Dy<-YMAX-YMIN
+ Sym<-".0123456789 +-*/"
+ SL<-Sym
+ OL<-"+-*/"
+ if (nchar(Ul)>0){
+ ULEN<<-Ul
+ }
+ Is<-1
+ VL<-""
+ Ucode<-ULEN
+ for (I in 1:nchar(Ucode)){
+ C<-substring(Ucode,I,I)
+ if (length(grep(C,SL))>0){
+ if (length(grep(C,OL))>0){
+ Tmp<-substring(Ucode,Is,I-1)
+ Str<-paste(VL,Tmp,C,sep="")
+ VL<-Str
+ Is<-I+1
+ }
+ }
+ else{
+ Unit<-substring(Ucode,I,I+1)
+ Str<-substring(Ucode,Is,I-1)
+ VL<-paste(VL,Str,sep="")
+ break;
+ }
+ }
+ Valu<-eval(parse(text=VL))
+ Str<-as.character(Valu)
+ ULEN<<-paste(Str,Unit,sep="");
+ if (Unit=="cm") MilliIn<<-1000/2.54*Valu
+ if (Unit=="mm") MilliIn<<-1000/2.54*Valu/10
+ if (Unit=="in") MilliIn<<-1000*Valu
+ if (Unit=="pt") MilliIn<<-1000/72.27*Valu
+ if (Unit=="pc") MilliIn<<-1000/6.022*Valu
+ if (Unit=="bp") MilliIn<<-1000/72*Valu
+ if (Unit=="dd2") MilliIn<<-1000/1238/1157/72.27*Valu
+ if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu
+ if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10
+ MARKLEN<<-MARKLENNow*1000/2.54/MilliIn;
+}
+
+#########################################
+# 10.11.20
+
+Setwindow<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ if (Nargs==0){
+ Out<-c(XMIN,XMAX,YMIN,YMAX)
+ return(Out)
+ }
+ if (Nargs==1){
+ Dt<- varargin[[1]]
+ if(is.list(Dt) && !is.data.frame(Dt)){
+ Tmp<- as.data.frame(Dt)
+ Dt<- t(Tmp)
+ }
+ Xm<- min(Dt[,1])
+ XM<- max(Dt[,1])
+ Ym<- min(Dt[,2])
+ YM<- max(Dt[,2])
+ Str<- "Setwindow("
+ Str<- paste(Str,"c(",as.character(Xm),",",as.character(XM),"),c(",sep="")
+ Str<- paste(Str,as.character(Ym),",",as.character(YM),")",sep="")
+ Str<- paste(Str,")",sep="")
+ print(Str)
+ }
+ if (Nargs==2){
+ RgX<-varargin[[1]]
+ RgY<-varargin[[2]]
+ XMIN<<-RgX[1]; XMAX<<-RgX[2]
+ YMIN<<-RgY[1]; YMAX<<-RgY[2]
+ }
+ if (Nargs==4){
+ XMIN<<-varargin[[1]]; XMAX<<-varargin[[2]]
+ YMIN<<-varargin[[3]]; YMAX<<-varargin[[4]]
+ }
+ Out<- c(XMIN,XMAX,YMIN,YMAX);
+}
+
+#########################################
+
+Shade<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Iroflg=0
+ Kosa=1
+ if(Nargs>1){
+ Iro=varargin[[Nargs]]
+ if(is.character(Iro)){
+ Iroflg=1
+ if(length(grep("{",Iro))>0){
+ Str=paste("{\\color",Iro,sep="")
+ }
+ else{
+ Str=paste("{\\color{",Iro,"}",sep="")
+ }
+ }
+ else{
+ if(length(Iro)==1){
+ Kosa=Iro
+ }
+ else{
+ Iroflg=1
+ if(length(Iro)==4){
+ Str="{\\color[cmyk]{"
+ }
+ else{
+ if(length(Iro)==3){
+ Str="{\\color[rgb]{"
+ }
+ }
+ for(J in 1:length(Iro)){
+ Str=paste(Str,as.character(Iro[J]),sep="")
+ if(J<length(Iro)){
+ Str=paste(Str,",")
+ }
+ }
+ Str=paste(Str,"}")
+ }
+ }
+ if(Iroflg==1){
+ Str=paste(Str,"%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ }
+ }
+ Tmp=varargin[[1]]
+ Data=Kyoukai(Tmp)
+ for (I in Looprange(1, length(Data))){
+ PL<- Op(I,Data)
+ Mojisu<- 0
+ for (J in 1:Nrow(PL)){
+ P<- Doscaling(Op(J,PL))
+ X<- as.character(round(MilliIn*P[1]))
+ Y<- as.character(-round(MilliIn*P[2]))
+ Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<- 0
+ }
+ }
+ Str1<- paste("\\special{sh ",as.character(Kosa),"}",sep="")
+ Str2<- paste("\\special{ip}%\n",sep="")
+ cat(Str1,file=Wfile,append=TRUE)
+ cat(Str2,file=Wfile,append=TRUE)
+ }
+ if(Iroflg==1){
+ cat("}%\n",file=Wfile,append=TRUE)
+ }
+}
+
+####### Shade new 17.09.24############
+
+Shade<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Iroflg<- 0
+ Kosa<- 1
+ if (Nargs>1){
+ Iro<- varargin[[Nargs]]
+ if (mode(Iro)=="character"){
+ Iroflg<- 1
+ if (length(grep(Iro,"{"))>0)
+ Str<- paste("{\\color",Iro,sep="")
+ else
+ Str<- paste("{\\color{",Iro,"}",sep="")
+ }
+ else{
+ if (length(Iro)==1)
+ Kosa<- Iro
+ else{
+ Iroflg<- 1
+ if (length(Iro)==4)
+ Str<- paste("{\\color[cmyk]{",sep="")
+ else
+ if (length(Iro)==3)
+ Str<- paste("{\\color[rgb]{",sep="")
+ for (J in Looprange(1,length(Iro))){
+ Str<- paste(Str,as.character(Iro[J]),sep="")
+ if (J<length(Iro))
+ Str<- paste(Str,",",sep="")
+ }
+ Str<- paste(Str,"}",sep="")
+ }
+ }
+ if (Iroflg==1){
+ if (Wfile=="default")
+ cat(Str,"%\n",file="",append=TRUE,sep="")
+ else
+ cat(Str,"%\n",file=Wfile,append=TRUE,sep="")
+ }
+ }
+ Tmp<- varargin[[1]]
+ Data<- Kyoukai(Tmp)
+ for (I in Looprange(1, length(Data))){
+ PL<- Op(I,Data)
+ Mojisu<- 0
+ for (J in 1:Nrow(PL)){
+ P<- Doscaling(Op(J,PL))
+ X<- as.character(round(MilliIn*P[1]))
+ Y<- as.character(-round(MilliIn*P[2]))
+ Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+ if (Wfile=="default")
+ cat(Str,file="",append=TRUE,sep="")
+ else
+ cat(Str,file=Wfile,append=TRUE,sep="")
+ Mojisu<- Mojisu+nchar(Str)
+ if (Mojisu>80){
+ if (Wfile=="default")
+ cat("%\n",file="",append=TRUE,sep="")
+ else
+ cat("%\n",file=Wfile,append=TRUE,sep="")
+ Mojisu<- 0
+ }
+ }
+ Str1<- paste("\\special{sh ",as.character(Kosa),"}",sep="")
+ Str2<- paste("\\special{ip}%\n",sep="")
+ if (Wfile=="default"){
+ cat(Str1,file="",append=TRUE,sep="")
+ cat(Str2,file="",append=TRUE,sep="")
+ }
+ else{
+ cat(Str1,file=Wfile,append=TRUE,sep="")
+ cat(Str2,file=Wfile,append=TRUE,sep="")
+ }
+ }
+ if (Iroflg==1){
+ if (Wfile=="default")
+ cat("}%\n",file="",append=TRUE,sep="")
+ else
+ cat("}%\n",file=Wfile,append=TRUE,sep="")
+ }
+}
+
+##############################################
+# 11.01.07
+
+Splinedata<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-3)
+ PL<- varargin[[1]]
+ if (mode(PL)=="character"){
+ Fname<- PL
+ PL<- Readtextdata(Fname)
+ }
+ else{
+ PL<- as.matrix(PL)
+ if (Nrow(PL)==1){
+ PL<- matrix(PL, nrow=length(PL)/2)
+ PL<- t(PL)
+ }
+ }
+ if (ncol(PL)==3){
+ Flg3<- 1
+ }
+ else{
+ Flg3<- 0
+ }
+ PLL<- Dividegraphics(PL)
+ N<- 50
+ C<- c()
+ for (I in Looprange(2,Nargs)){
+ Tmp<- varargin[[I]]
+ if (mode(Tmp)!="character") next
+ if (length(grep("=",Tmp,fixed=TRUE))>0){
+ eval(parse(text=Tmp))
+ }
+ else{
+ Tmp1<- substr(Tmp,1,1)
+ if (toupper(Tmp1)=="C"){
+ C<- 1:length(PLL)
+ }
+ }
+ }
+ Cflg<- rep(0,length(PLL))
+ for(J in Looprange(1,length(C))){
+ K<- C[J]
+ Cflg[K]<- 1
+ }
+ if (length(N)>1){
+ Nj<- as.numeric(N)
+ }
+ else{
+ Tmp<- lapply(PLL,nrow)
+ Tmp1<- as.numeric(Tmp)
+ MxP<- max(Tmp1)
+ Nj<- c()
+ for (J in 1:length(PLL)){
+ Tmp<- nrow(PLL[[J]])
+ Tmp1<- round(N/MxP*(Tmp-1))
+ Nj<- c(Nj,Tmp1)
+ }
+ }
+ OutL<- list()
+ for(J in 1:length(PLL)){
+ PL<- PLL[[J]]
+ if (Cflg[J]==1){
+ if (Norm(PL[1,]-PL[Nrow(PL),])>Eps){
+ PL<-Appendrow(PL,PL[1,])
+ Nj[J]=round(N/MxP*nrow(PL))
+ }
+ else{
+ PL[Nrow(PL),]<- PL[1,]
+ }
+ }
+ Tn<- 1:Nrow(PL)
+ Xn<- PL[,1]
+ Yn<- PL[,2]
+ if (Flg3==1) Zn<- PL[,3]
+ if (Cflg[J]==0){
+ Dxn<- spline(Tn,Xn,n=Nj[J])
+ Dyn<- spline(Tn,Yn,n=Nj[J])
+ if (Flg3==1) Dzn<- spline(Tn,Zn,n=Nj[J])
+ }
+ else{
+ Dxn<- spline(Tn,Xn,method="periodic")
+ Dyn<- spline(Tn,Yn,method="periodic")
+ if (Flg3==1) Dzn<- spline(Tn,Zn,method="periodic")
+ }
+ Tmp1<- Dxn$y
+ Tmp2<- Dyn$y
+ Tmp3<-c()
+ if (Flg3==1) Tmp3<- Dzn$y
+ Out<- matrix(c(Tmp1,Tmp2,Tmp3),nrow=length(Tmp1))
+ OutL<- c(OutL,list(Out))
+ }
+ return(OutL)
+}
+
+############################################
+# 2013.05.03 Domain is optional
+
+Tabledata<- function(...){
+ varargin<- list(...)
+ Eps<- 0.001
+ Tmp<- varargin[[1]] # 130503 from
+ if(is.numeric(Tmp)){
+ Domain<- varargin[[1]]
+ VL<- varargin[[2]]
+ HL<- varargin[[3]]
+ }
+ else{
+ Domain<- c(-1,-1)
+ VL<- varargin[[1]]
+ HL<- varargin[[2]]
+ } # 130503 upto
+ Hsize<- Domain[1]
+ SvL<- list(0)
+ S<- 0
+ for (I in Looprange(1,length(VL))){
+ Tmp<- VL[[I]]
+ S<- S+Tmp[1]
+ Tmp[1]<- S
+ SvL<- c(SvL,list(Tmp))
+ }
+ if (Hsize>S){
+ SvL<- c(SvL,list(Hsize))
+ }
+ Hsize<- Op(1,SvL[[length(SvL)]])
+ Vsize<- Domain[2]
+ ShL<- list(0)
+ S<- 0
+ for (I in Looprange(1,length(HL))){
+ Tmp<- HL[[I]]
+ S<- S+Tmp[1]
+ Tmp[1]<- S
+ ShL<- c(ShL,list(Tmp))
+ }
+ if (Vsize>S){
+ ShL<- c(ShL,list(Vsize))
+ }
+ Vsize<- Op(1,ShL[[length(ShL)]])
+ Marw<- 0; Mare<- 0; Mars<- 0; Marn<- 0
+ if (length(Domain)>2){
+ Marw<- Domain[3]
+ Mare<- Domain[4]
+ }
+ if (length(Domain)>4){
+ Marn<- Domain[5]
+ Mars<- Domain[6]
+ }
+ Setwindow(c(-Marw,Hsize+Mare),c(-Mars,Vsize+Marn))
+ Tmp<- Framedata(c(Eps,Hsize-Eps),c(Eps,Vsize-Eps))
+ Gdata<- list(Tmp)
+ Tmp<- -Marw
+ Hdata<- list(Listplot(c(c(Tmp,-Mars),c(Tmp,Vsize+Marn))))
+ for (I in Looprange(1,length(SvL))){
+ Data<- SvL[[I]]
+ X<- Data[1]
+ if (length(Data)==1){
+ Y1<- 0
+ Y2<- Vsize
+ G<- Listplot(c(X,Y1),c(X,Y2))
+ }
+ else{
+ G<- c()
+ for (J in seq(2,length(Data),by=2)){
+ Y1<- Vsize-Op(1,ShL[[Data[J]]])
+ Y2<- Vsize-Op(1,ShL[[Data[J+1]]])
+ Tmp<- Listplot(c(c(X,Y1),c(X,Y2)))
+ Tmp1<- Appendrow(G,c(Inf,Inf))
+ G<- Appendrow(Tmp1,Tmp)
+ }
+ G<- G[2:nrow(G),]
+ }
+ Hdata<- c(Hdata,list(G))
+ }
+ Tmp<- Hsize+Mare
+ Tmp1<- Listplot(c(c(Tmp,-Mars),c(Tmp,Vsize+Marn)))
+ Hdata<- c(Hdata,list(Tmp1))
+ Tmp<- Vsize+Marn
+ Vdata<- list(Listplot(c(c(-Marw,Tmp),c(Hsize+Mare,Tmp))))
+ for (I in Looprange(1,length(ShL))){
+ Data<- ShL[[I]]
+ Y<- Vsize-Data[1]
+ if (length(Data)==1){
+ X1<- 0
+ X2<- Hsize
+ G<- Listplot(c(X1,Y),c(X2,Y))
+ }
+ else{
+ G<- c()
+ for (J in seq(2,length(Data),by=2)){
+ X1<- Op(1,SvL[[Data[J]]])
+ X2<- Op(1,SvL[[Data[J+1]]])
+ Tmp<- Listplot(c(X1,Y),c(X2,Y))
+ G<- Appendrow(G,c(Inf,Inf))
+ G<- Appendrow(G,Tmp)
+ }
+ G<-G[2:nrow(G),]
+ }
+ Vdata<- c(Vdata,list(G))
+ }
+# Tmp<- Listplot(c(c(0,0),c(Hsize,0))) # 2011.03.02
+# Vdata<- Mixjoin(Vdata,list(Tmp))
+ Tmp<- Listplot(c(c(-Marw,-Mars),c(Hsize+Mare,-Mars)))
+ Vdata<- Mixjoin(Vdata,list(Tmp))
+ Tmp1<- Hdata[Looprange(3,length(Hdata)-2)]
+ Tmp2<- Vdata[Looprange(3,length(Vdata)-2)]
+ Gdata<- Mixjoin(Gdata,Tmp1,Tmp2)
+ Hind<- Looprange(2,1+length(Tmp1))
+ Vind<- Looprange(2+length(Tmp1),1+length(Tmp1)+length(Tmp2))
+ G=Gdata[[1]]
+ P1<- Ptsw(G); P2<- Ptnw(G)
+ Q1<- Ptse(G); Q2<- Ptne(G)
+ Tmp1<- list(Listplot(c(P1,P2)),Listplot(c(Q1,Q2)))
+ P1<- Ptnw(G); P2<- Ptne(G)
+ Q1<- Ptsw(G); Q2<- Ptse(G)
+ Tmp2<- list(Listplot(c(P1,P2)),Listplot(c(Q1,Q2)))
+ Tmp3<- Framedata()
+ Out<- list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3)
+ return(Out)
+}
+
+################################
+
+Texcom<- function(Meirei)
+{
+ if (Meirei=="\\thinlines"){
+ Setpen(1);
+ return();
+ }
+ if (Meirei=="\\thicklines"){
+ Setpen(2);
+ return()
+ }
+ if (Meirei=="\\Thicklines"){
+ Setpen(3);
+ return()
+ }
+ if (length(Meirei)==0){ # 09.12.07
+ Tmp<- c()
+ }
+ else{
+ Tmp<- grep("newline",Meirei)
+ }
+ if (length(Tmp)>0){
+ cat("\n",file=Wfile,append=TRUE);
+ }
+ else{
+ Tmp<- paste(Meirei,"%\n",sep="")
+ Tmp<- gsub("//","\\",Tmp,fixed=TRUE) # 11.03.02
+ cat(Tmp,file=Wfile,append=TRUE);
+ }
+}
+
+###############################################
+
+Texctr<- function(N){
+ if (is.numeric(N)){
+ Alpha<- "abcdefghijklmnopqrstuvwxyz"
+ Out<- paste("ketpicctr",substr(Alpha,N,N),sep="")
+ }
+ else{
+ if(grep("\\",N,fixed=TRUE)>0){
+ Out<- substr(N,2,nchar(N))
+ }
+ else{
+ Out<- N
+ }
+ }
+ return(Out)
+}
+
+###############################################
+
+Texelse<- function (){
+ Texcom("");
+ Texcom("\\else")
+}
+
+###############################################
+
+Texend<- function()
+{
+ Texcom("%\n}")
+}
+
+###############################################
+
+Texendfor<- function(I){
+ Last<- TEXFORLAST[[TEXFORLEVEL]]
+ Texcom("")
+ Tmp<- paste("\\ifnum",Texthectr(I),"<",Last,sep="")
+ Texcom(Tmp)
+ Texcom("\\repeat")
+ Texcom("}")
+ TEXFORLEVEL<<- TEXFORLEVEL-1
+ TEXFORLAST<<- TEXFORLAST[1:(length(TEXFORLAST)-1)]
+}
+
+###############################################
+
+Texendif<- function(){
+ Texcom("")
+ Texcom("\\fi")
+ Texcom("}")
+}
+
+###############################################
+
+Texfor<- function(I,First,Last){
+ TEXFORLEVEL<<- TEXFORLEVEL+1;
+ Texsetctr(I,"0")
+ Texsetctr(I,paste(as.character(First),"-1",sep=""))
+ Texcom("")
+ Texcom("{")
+ Texcom("\\loop")
+ Texsetctr(I,"+1")
+ TEXFORLAST<<- c(TEXFORLAST,as.character(Last))
+}
+
+###############################################
+
+Texforinit<- function(){
+ TEXFORLEVEL<<- 0
+ TEXFORLAST<<- list()
+}
+
+###############################################
+
+Texif<- function(...){
+ varargin<- list(...)
+ Condstr<- varargin[[1]]
+ Tp<- 0
+ if(length(varargin)>1){
+ Tp<- varargin[[2]]
+ }
+ Texcom("")
+ Texcom("{")
+ if(Tp==0){
+ Texcom("\\ifnum")
+ }
+ else{
+ Texcom("\\ifdim ")
+ }
+ Texcom(paste(Condstr," ",sep=""))
+}
+
+######################################
+
+Texletter<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ for (I in seq(1,Nargs,by=3)){
+ P<- varargin[[I]]
+ X<- P[1]
+ if (mode(X)=="numeric"){
+ X<- as.character(X)
+ }
+ Y<- P[2]
+ if (mode(Y)=="numeric"){
+ Y<- as.character(Y)
+ }
+ Houkou<- varargin[[I+1]]
+ Mojiretu<- varargin[[I+2]]
+ Hset<- Houkou
+ Vhoko<- "c"
+ if (length(grep("n",Hset))>0){
+ Vhoko<- "n"
+ }
+ if (length(grep("s",Hset))>0){
+ Vhoko<- "s"
+ }
+ Hhoko<- "c";
+ if (length(grep("e",Hset))>0){
+ Hhoko<- "e"
+ }
+ if (length(grep("w",Hset))>0){
+ Hhoko<- "w"
+ }
+ Hoko<- paste(Vhoko,Hhoko,sep="")
+ CalcWidth(Hoko,Mojiretu)
+ CalcHeight(Hoko,Mojiretu)
+ Tmp<- paste("\\put(",X,",",Y,"){\\hspace*{\\Width}",sep="")
+ Str<- paste(Tmp,"\\raisebox{\\Height}{",Mojiretu,"}}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ }
+}
+
+##################################################
+
+Texnewcmd<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Str<- varargin[[1]]
+ S<- paste("\\newcommand{",Str,"}",sep="")
+ if (Nargs>1){
+ Tmp<- as.character(varargin[[2]])
+ S<- paste(S,"[",Tmp,"]",sep="")
+ }
+ if (Nargs>2){
+ Tmp<- varargin[[3]]
+ if (mode(Tmp)=="numeric"){
+ Tmp<- as.character(Tmp)
+ }
+ S<- paste(S,"[",Tmp,"]",sep="")
+ }
+ S<- paste(S,"{",sep="")
+ Texcom(S)
+}
+
+###############################################
+
+Texnewctr<- function(N)
+{
+ if (mode(N)=="character"){
+ Str<- paste("\\newcounter{",N,"}",sep="")
+ Texcom(Str)
+ }
+ else{
+ for (I in N){
+ Str<- paste("\\newcounter{",Texctr(I),"}",sep="")
+ Texcom(Str)
+ }
+ }
+}
+###############################################
+
+Texrenewcmd<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Str<- varargin[[1]]
+ S<- paste("\\renewcommand{",Str,"}",sep="")
+ if (Nargs>1){
+ Tmp<- as.character(varargin[[2]])
+ S<- paste(S,"[",Tmp,"]",sep="")
+ }
+ if (Nargs>2){
+ Tmp<- varargin[[3]]
+ if (mode(Tmp)=="numeric"){
+ Tmp<- as.character(Tmp)
+ }
+ S<- paste(S,"[",Tmp,"]",sep="")
+ }
+ S<- paste(S,"{",sep="")
+ Texcom(S)
+}
+
+###############################################
+
+Texsetctr<- function(Nctr,Opstr)
+{
+ Ctr<- Texctr(Nctr)
+ Opstr<- paste(Opstr,"%",sep="")
+ OperL<- "+-*/%"
+ Oper<- ""
+ Va<- ""
+ Evflg<- 0
+ Paflg<- 0
+ for (I in Looprange(1,nchar(Opstr))){
+ Tmp<- substring(Opstr,I,I)
+ if (Tmp=="("){
+ Paflg<- 1
+ if (nchar(Va)>0){
+ Evflg<- 1
+ Va<- paste(Va,Tmp,sep="")
+ }
+ next
+ }
+ if (Tmp==")"){
+ Paflg<- 0
+ if (Evflg>0){
+ Va<- paste(Va,Tmp,sep="")
+ }
+ next
+ }
+ if (Paflg>0){
+ Va<- paste(Va,Tmp,sep="")
+ next
+ }
+ if (length(grep(Tmp,OperL))==0){
+ Va<- paste(Va,Tmp,sep="")
+ }
+ else{
+ if (Evflg>0){
+ Tmp1<- eval(parse(text=Va))
+ Va<- paste("\\value{",Tmp1,"}",sep="")
+ Evflg<- 0
+ }
+ if (Oper==""){
+ if(nchar(Va)>0){
+ Str<- paste("\\setcounter{",Ctr,"}{",Va,"}",sep="")
+ Texcom(Str)
+ }
+ Oper<- Tmp
+ Va<-""
+ }
+ else if(Oper=="+"){
+ Str<- paste("\\addtocounter{",Ctr,"}{",Va,"}",sep="")
+ Texcom(Str)
+ Oper<- Tmp
+ Va<-""
+ }
+ else if(Oper=="-"){
+ Str<- paste("\\addtocounter{",Ctr,"}{-",Va,"}",sep="")
+ Texcom(Str)
+ Oper<- Tmp
+ Va<-""
+ }
+ else if(Oper=="*"){
+ Str<- paste("\\multiply\\value{",Ctr,"} by ",Va,sep="")
+ Texcom(Str)
+ Oper<- Tmp
+ Va<-""
+ }
+ else if(Oper=="/"){
+ Str<- paste("\\divide\\value{",Ctr,"} by ",Va,sep="")
+ Texcom(Str)
+ Oper<- Tmp
+ Va<-""
+ }
+ }
+ }
+}
+
+###############################################
+
+Texthectr<- function(N)
+{
+ Out<- paste("\\the",Texctr(N),sep="")
+ return(Out)
+}
+
+###############################################
+
+Texvalctr<- function(N){
+ Out<- paste("\\value{",Texctr(N),"}",sep="")
+ return(Out)
+}
+
+###############################################
+
+Texvctr<- function(N)
+{
+ Out<- paste("\\value{",Texctr(N),"}",sep="")
+ return(Out)
+}
+
+###############################################
+
+Tonumeric <- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Data<- varargin[[1]]
+ Sp<- c(1,1)
+ Ep<- c(Inf,Inf)
+ if (Nargs>1){
+ Sp<- varargin[[2]]
+ }
+ if (Nargs>2){
+ Ep<- varargin[[3]]
+ }
+ Nrs<- Sp[1]
+ Nre<- min(nrow(Data),Ep[1])
+ Ncs<- Sp[2]
+ Nce<- min(ncol(Data),Ep[2])
+ Tmp1<- Data[Nrs:Nre, Ncs:Nce]
+ Tmp2 <- as.numeric(Tmp1)
+ Out <- matrix(Tmp2,nrow=nrow(Tmp1))
+ Sp<- c()
+ for (I in 1:nrow(Out)){
+ for (J in 1:ncol(Out)){
+ Tmp<- Out[I,J]
+ if (!is.na(Tmp)){
+ Sp<- c(I,J)
+ break;
+ }
+ }
+ if (length(Sp)>0) break
+ }
+ if (length(Sp)==0){
+ return("Numeric data not found")
+ }
+ Ep<- c(nrow(Out),ncol(Out))
+ for (I in Sp[1]:nrow(Out)){
+ Tmp<- Out[I,Sp[2]]
+ if (is.na(Tmp)){
+ Ep[1]<- I-1
+ break
+ }
+ }
+ for (J in Sp[2]:ncol(Out)){
+ Tmp<- Out[Sp[1],J]
+ if (is.na(Tmp)){
+ Ep[2]<- J-1
+ break
+ }
+ }
+ Out<- Out[Sp[1]:Ep[1], Sp[2]:Ep[2]]
+ return(Out)
+}
+
+##################################################
+
+Translatedata<- function(...)
+{
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10^(-8)
+ ML<- varargin[[1]]
+ if (Mixtype(ML)==1){
+ ML<- list(ML)
+ }
+ Tmp=varargin[[2]]
+ if (mode(Tmp)=="numeric" && length(Tmp)>1){
+ A<- Tmp[1]; B<- Tmp[2]
+ }
+ else{
+ A<- Tmp
+ if (Nargs>=3){
+ B<- varargin[[3]]
+ }
+ else{
+ B<- 0
+ }
+ }
+ OutL<- list()
+ for (N in Looprange(1,length(ML))){
+ GL<- Op(N,ML)
+ Out<- c()
+ for (I in Looprange(1,Nrow(GL))){
+ if(is.matrix(GL)){ # 10.12.07
+ Tmp<- GL[I,]
+ }
+ else{
+ Tmp<- GL
+ }
+ X1<- Tmp[1]
+ Y1<- Tmp[2]
+ if (X1==Inf){
+ X2<- X1
+ Y2<-Y1
+ }
+ else{
+ X2<- X1+A
+ Y2<- Y1+B
+ }
+ Out<- Appendrow(Out,c(X2,Y2))
+ }
+ OutL<- Mixjoin(OutL,list(Out))
+ }
+ if (length(OutL)==1){
+ OutL<- Op(1,OutL)
+ }
+ return(OutL)
+}
+
+#######################################
+
+Unscaling<- function(G)
+{
+ GLg<- G
+ if (class(GLg)=="numeric"){
+ GLg<-c(G[1]/SCALEX, G[2]/SCALEY)
+ Tmp<-GLg
+ if (LOGX==1) Tmp[1]<- 10^(GLg[1])
+ if (LOGY==1) Tmp[2]<- 10^(GLg[2])
+ return(Tmp)
+ }
+ else{
+ Tmp1<-matrix(c(1/SCALEX,0,0,1/SCALEY),nrow=2)
+ GLg<-G %*% Tmp1
+ Tmp<-GLg
+ if (LOGX==1) Tmp[,1]<- 10^(G[,1])
+ if (LOGY==1) Tmp[,2]<- 10^(G[,2])
+ return(Tmp)
+ }
+}
+
+#############################################
+
+Vtickmark<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ ArgsL<- varargin
+ if (mode(ArgsL[[1]])=="character"){
+ Str<- ArgsL[[1]]
+ Tmp<- strsplit(Str,"m")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ I<- nchar(Tmp[1])+1
+ }
+ else{
+ I<- 0
+ }
+ Tmp<- strsplit(Str,"n")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ J<- nchar(Tmp[1])+1
+ }
+ else{
+ J<- 0
+ }
+ Tmp<- strsplit(Str,"r")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ K=nchar(Tmp[1])+1
+ }
+ else{
+ K<- 0
+ }
+ if (K>0){
+ S<- substr(Str,K+1,nchar(Str))
+ R<- as.numeric(S)
+ if (is.na(R)){
+ R<- 1
+ }
+ }
+ else{
+ R<- 1
+ K<- nchar(Str)+1
+ }
+ if (J>0){
+ S<- substr(Str,J+1,K-1)
+ Dn<- as.numeric(S)
+ if (is.na(Dn)){
+ Dn<- 1
+ }
+ }
+ else{
+ Dn<- 1000
+ J<- nchar(Str)+1
+ }
+ S<- substr(Str,I+1,J-1)
+ Dm<- as.numeric(S)
+ if (is.na(Dm)){
+ Dm<- 1
+ }
+ ArgsL<- list()
+ for (I in 1:floor((YMAX-GENTEN[2])/Dm)){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ for (I in seq(-1,ceiling((YMIN-GENTEN[2])/Dm))){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ }
+ MemoriList<- list()
+ Memori<- list()
+ for (N in 1:length(ArgsL)){
+ Dt<- ArgsL[[N]]
+ if (mode(Dt)=="numeric" && length(Dt)>1){
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt[1],Dt[2])
+ next
+ }
+ if (mode(Dt)=="character"){
+ Memori<- Mixjoin(Memori,Dt)
+ }
+ else{
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(GENTEN[1],Dt)
+ }
+ }
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ for (N in 1:length(MemoriList)){
+ Dt<- MemoriList[[N]]
+ Ndt<- length(Dt)
+ X=Op(1,Dt)
+ Y=Op(2,Dt)
+ Tmp<-Doscaling(c(X,Y))
+ X<- Tmp[1]
+ Y<- Tmp[2]
+ Moji<- Op(Ndt,Dt)
+ Tmp1<- Unscaling(c(X+MARKLEN,Y))
+ Tmp2<- Unscaling(c(X-MARKLEN,Y))
+ Fd<- Listplot(c(Tmp1,Tmp2))
+ Drwline(Fd)
+ if (Ndt==3){
+ Tmp<-Unscaling(c(X-MARKLEN,Y))
+ Expr(Tmp,"w",Moji)
+ }
+ if (Ndt==4){
+ Houkou<- Op(3,Dt)
+ Tmp<-grep("w",Houkou)
+ if (length(Tmp)>0){
+ Tmp<-Unscaling(c(X-MARKLEN,Y))
+ Expr(Tmp,Houkou,Moji)
+ }
+ else{
+ Tmp<- Unscaling(c(X+MARKLEN,Y))
+ Expr(Tmp,Houkou,Moji)
+ }
+ }
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+############################################
+
+Windisp<-function(...){
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xmn<- Tmp[1]; Ymn<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ Xmx<- Tmp[1]; Ymx<- Tmp[2]
+ plot(c(Xmn,Xmx),c(Ymn,Ymx),type="n",asp=1,axes=FALSE,xlab="",ylab="")
+ Tmp<- Doscaling(Listplot(c(0,YMIN),c(0,YMAX)))
+ axis(2,at=as.numeric(Tmp[,2]), labels=round(c(YMIN,YMAX),2))
+ Tmp<- Doscaling(Listplot(c(XMIN,0),c(XMAX,0)))
+ axis(1,at=as.numeric(Tmp[,1]), labels=round(c(XMIN,XMAX),2))
+ Tmp1<- c(XMIN,GENTEN[2])
+ Tmp2<- c(XMAX,GENTEN[2])
+ Tmp3<- Listplot(Tmp1,Tmp2)
+ Tmp<- MakeCurves(Tmp3,0)
+ if (Datalength(Tmp)>0){
+ lines(Tmp[,1],Tmp[,2],col="green")
+ }
+ Tmp1<- c(GENTEN[1],YMAX)
+ Tmp2<- c(GENTEN[1],YMIN)
+ Tmp3<- Listplot(Tmp1,Tmp2)
+ Tmp<- MakeCurves(Tmp3,0)
+ if (Datalength(Tmp)>0){
+ lines(Tmp[,1],Tmp[,2],col="green")
+ }
+ Tmp<-Doscaling(Framedata())
+ lines(Tmp[,1],Tmp[,2])
+ for (I in Looprange(1,Nargs)){
+ Pdata<-varargin[[I]]
+ if (mode(Pdata)=="numeric"){
+ Pdata<-list(Pdata)
+ }
+ while(Mixtype(Pdata)==3){ # 10.02.23
+ Tmp1<- list()
+ for(II in Looprange(1,length(Pdata))){
+ Tmp1<- Mixjoin(Tmp1,Pdata[[II]])
+ }
+ Pdata<- Tmp1
+ } # 10.02.23
+ for (II in Looprange(1,length(Pdata))){
+ Tmp<-Pdata[[II]]
+ P<-MakeCurves(Tmp,0)
+ Ndm<-Dataindex(P)
+ for (J in Looprange(1,Nrow(Ndm))){
+ Q<-P[Ndm[J,1]:Ndm[J,2],]
+ if (Nrow(Q)==1){
+ Tmp<-seq(1,Ncol(Q),by=2)
+ for (K in Tmp){
+ Pt<-Q[K:(K+1)]
+ points(Pt[1],Pt[2])
+ }
+ }
+ else{
+ lines(Q[,1],Q[,2])
+ }
+ }
+ }
+ }
+}
+
+############################################
+
+WindispT<-function(..., color="black",width=1,new=FALSE,htick=c(),vtick=c()){ # 10.12.04
+ par(new=new)
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ if(!new) # 10.12.04
+ {
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xmn<- Tmp[1]; Ymn<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ Xmx<- Tmp[1]; Ymx<- Tmp[2]
+ plot(c(Xmn,Xmx),c(Ymn,Ymx),type="n",asp=1,axes=FALSE,xlab="",ylab="")
+ Tick<- sort(c(YMIN,YMAX,vtick)) #### 10.12.04 from here
+ Tmp1<- matrix(c(rep(0,length(Tick)),Tick),ncol=2)
+ Tmp<- Doscaling(Tmp1)
+ axis(2,at=as.numeric(Tmp[,2]), labels=round(Tick,2))
+ Tick<- sort(c(XMIN,XMAX,htick))
+ Tmp1<- matrix(c(Tick,rep(0,length(Tick))),ncol=2)
+ Tmp<- Doscaling(Tmp1)
+ axis(1,at=as.numeric(Tmp[,1]), labels=round(Tick,2)) #### 10.12.04 to here
+ Tmp1<- c(XMIN,GENTEN[2])
+ Tmp2<- c(XMAX,GENTEN[2])
+ Tmp3<- Listplot(Tmp1,Tmp2)
+ Tmp<- MakeCurves(Tmp3,0)
+ if (Datalength(Tmp)>0){
+ lines(Tmp[,1],Tmp[,2],col="green")
+ }
+ Tmp1<- c(GENTEN[1],YMAX)
+ Tmp2<- c(GENTEN[1],YMIN)
+ Tmp3<- Listplot(Tmp1,Tmp2)
+ Tmp<- MakeCurves(Tmp3,0)
+ if (Datalength(Tmp)>0){
+ lines(Tmp[,1],Tmp[,2],col="green")
+ }
+ Tmp<-Doscaling(Framedata())
+ lines(Tmp[,1],Tmp[,2])
+ }
+ for (I in Looprange(1,Nargs)){
+ Pdata<-Flattenlist(varargin[[I]]) # 101129 from here
+ Cmd<- list()
+ for (II in Looprange(1,length(Pdata))){
+ Tmp<-Pdata[[II]]
+ if(length(Tmp)==1){
+ Cmd<- c(Cmd,list(Tmp))
+ next
+ }
+
+ P<-MakeCurves(Tmp,0)
+
+ if(length(Cmd)>0){
+ if(length(Cmd)>=3){
+ polygon(P,col=Cmd[[1]],border=Cmd[[2]],density=Cmd[[3]])
+ }
+ else{
+ polygon(P,col=Cmd[[1]],border=Cmd[[2]])
+ }
+ next
+ } # 101129 to here
+ Ndm<-Dataindex(P)
+ for (J in Looprange(1,Nrow(Ndm))){
+ Q<-P[Ndm[J,1]:Ndm[J,2],]
+ if (Nrow(Q)==1){
+ Tmp<-seq(1,Ncol(Q),by=2)
+ for (K in Tmp){
+ Pt<-Q[K:(K+1)]
+ points(Pt[1],Pt[2],col=color)#taka101111
+ }
+ }
+ else{
+ lines(Q[,1],Q[,2],col=color,lwd=width)#taka101111
+ }
+ }
+ }
+ }
+ par(new=FALSE)
+}
+
+######################################
+
+# 3D
+
+#################################
+
+# 10.08.16
+CameracoordCurve<- function(Curve){
+ Out<- c()
+ for(J in Looprange(1,Nrow(Curve))){
+ P<- Ptcrv(J,Curve) #P=Curve(J,:);
+ Tmp<- P-FocusPoint
+ X1<- Tmp[1]; Y1<- Tmp[2]; Z1<- Tmp[3]
+ Tmp<- EyePoint-FocusPoint
+ E1<- Tmp[1]; F1<- Tmp[2]; G1<- Tmp[3]
+ Ca<- E1/sqrt(E1^2+F1^2)
+ Sa<- F1/sqrt(E1^2+F1^2)
+ X2<- X1*Ca+Y1*Sa; Y2<- -X1*Sa+Y1*Ca; Z2<- Z1
+ E2<- E1*Ca+F1*Sa; F2<- -E1*Sa+F1*Ca; G2<- G1
+ Cb<- E2/sqrt(E2^2+G2^2)
+ Sb<- G2/sqrt(E2^2+G2^2)
+ X3<- X2*Cb+Z2*Sb; Y3<- Y2; Z3<- -X2*Sb+Z2*Cb
+ E3<- E2*Cb+G2*Sb; F3<- F2; G3<- -E2*Sb+G2*Cb
+ Xz<- X3
+ Yz<- E3/(E3-X3)*Y3
+ Zz<- E3/(E3-X3)*Z3
+ Out<- rbind(Out,c(Yz,Zz,Xz))
+ }
+ rownames(Out)<- 1:Nrow(Out)
+ return(Out)
+}
+
+#########################################
+
+#100815
+CameraCurve<- function(Curve){
+ Eps<- 10^(-6)
+ for (I in Looprange(1,Nrow(Curve))){
+ P<- Curve[I,]
+ x<- P[1]; y<- P[2]; z<- P[3]
+ if (x!=Inf){
+ Tmp<- Perspt(P)
+ if (I==1){
+ AnsL<- rbind(c(),Tmp)
+ }else{
+ Tmp1<- AnsL[Nrow(AnsL),]
+ if (Tmp1[1]==Inf || Norm(Tmp-Tmp1)>Eps){
+ AnsL<- rbind(AnsL,Tmp)
+ }
+ }
+ }else{
+ AnsL<- rbind(AnsL,c(Inf,Inf))
+ }
+ }
+ rownames(AnsL)<- 1:Nrow(AnsL)
+ return(AnsL)
+}
+
+######################################
+
+Cancoordpara<- function(P){ # 13.10.06
+ Xz<- P[1]
+ Yz<- P[2]
+ Zz<- P[3]
+ X<- Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA)
+ Y<- Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA)
+ Z<- Yz*sin(THETA)+Zz*cos(THETA)
+ Out<- c(X,Y,Z)
+ return(Out)
+}
+
+######################################
+
+Cancoordpers<- function(P){
+ Tmp<- EyePoint-FocusPoint
+ E1<- Tmp[1]; F1<- Tmp[2]; G1<- Tmp[3]
+ Ca<- E1/sqrt(E1^2+F1^2)
+ Sa<- F1/sqrt(E1^2+F1^2)
+ E2<- E1*Ca+F1*Sa; F2<- -E1*Sa+F1*Ca; G2<- G1
+ Cb<- E2/sqrt(E2^2+G2^2)
+ Sb<- G2/sqrt(E2^2+G2^2)
+ E3<- E2*Cb+G2*Sb; F3<- F2; G3<- -E2*Sb+G2*Cb
+ Xz<- P[3]; Yz<- P[1]; Zz<- P[2]
+ X3<- Xz; Y3<- Yz*(E3-Xz)/E3; Z3<- Zz*(E3-Xz)/E3
+ X2<- X3*Cb-Sb*Z3; Y2<- Y3; Z2<- Cb*Z3+Sb*X3
+ X1<- X2*Ca-Sa*Y2; Y1<- Ca*Y2+Sa*X2; Z1<- Z2
+ X<- X1+FocusPoint[1]
+ Y<- Y1+FocusPoint[2]
+ Z<- Z1+FocusPoint[3]
+ Out<- c(X,Y,Z)
+ return(Out)
+}
+
+#######################################
+
+Embed <- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Pd3<- varargin[[1]]
+ if(Mixtype(Pd3)==1){
+ Pd3<- list(Pd3)
+ }
+ else if(Mixtype(Pd3)==3){
+ Tmp<- list();
+ for(I in Looprange(1,length(Pd3))){
+ Tmp<- c(Tmp,Pd3[[I]])
+ }
+ Pd3<- Tmp
+ }
+ Tmpf=varargin[[2]]
+ if(mode(Tmpf)=="character"){
+ Tmp<- varargin[[3]]
+ Tmp1<- gsub("c(","(",Tmp,fixed=TRUE)
+ Vstr<- gsub(")",")",Tmp1,fixed=TRUE)
+ Str<- paste("Tmpfn<- function",Vstr,"{",Tmpf,"}",sep="")
+ eval(parse(text=Str))
+ }
+ else{
+ Tmpfn<- Tmpf
+ }
+ Out<- list()
+ for(I in Looprange(1,length(Pd3))){
+ PD<- Pd3[[I]]
+ Ans<- c()
+ for(J in Looprange(1,Nrow(PD))){
+ P<- PD[J,]
+ Tmp<- Tmpfn(P[1],P[2])
+ Ans<- rbind(Ans,Tmp)
+ }
+ Out<- c(Out, list(Ans))
+ }
+ if(length(Out)==1){
+ Out<- Out[[1]]
+ }
+ return(Out)
+}
+
+#######################
+# 10.08.17
+# 14.03.30
+Facesdata<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ FL<- varargin[[1]]
+ PT<- varargin[[length(varargin)]]
+ Tmp<-grep("para",PT,fixed=TRUE)
+ if (length(Tmp)>0){
+ Ptype<- 1
+ }else{
+ Ptype<- -1
+ }
+ if (Nargs==2){
+ CLadd<- list()
+ }else{
+ CLadd<- varargin[[2]]
+ }
+ NohiddenL<- list()
+ HiddenL<- list()
+ Eps<- 10^(-4)
+ if (length(CLadd)>0){
+ if (mode(CLadd)=="numeric"){
+ C<- list()
+ if (Nrow(CLadd)>1){
+ for (I in Looprange(1,Nrow(CLadd))){
+ C<- c(C,list(CLadd[I,]))
+ }
+ }else{
+ I<- 1
+ while (I<=Ncol(CLadd)){
+ C<- c(C,list(CLadd[1,I:(I+2)]))
+ I<- I+3
+ }
+ }
+ CrvL<- list(C)
+ }else if (mode(CLadd[[1]])=="numeric"){
+ CrvL<- list()
+ for (J in Looprange(1,length(CL))){
+ Ctmp<- CLadd[[J]]
+ C<- list()
+ if (Nrow(Ctmp)>1){
+ for (I in Looprange(1,Nrow(Ctmp))){
+ C<- c(C,list(Ctmp[I,]))
+ }
+ }else{
+ I<- 1
+ while(I<=Ncol(Ctmp)){
+ C<- c(C,list(Ctmp[1,I:(I+2)]))
+ I<- I+3
+ }
+ }
+ CrvL<- c(CrvL,list(C))
+ }
+ }else{
+ CrvL<- CLadd
+ }
+ }else{
+ CrvL<- list()
+ }
+ Out<- MakeveLfaceL(FL)
+ VELNO<<- Out[[1]]
+ VELHI<<- list()
+ for (I in Looprange(1,length(CrvL))){
+ Tmp<- CrvL[[I]]
+ for (J in Looprange(1,length(Tmp)-1)){
+ Edge<- list(Tmp[J],Tmp[J+1])
+ Ntmp<- length(VELNO)
+ VELNO(Ntmp+1)<<- list(Edge,0,Ntmp+1)
+ }
+ }
+ FaceL<- Out[[2]]
+ Tmp<- grep("raw",PT,fixed=TRUE)
+ if (length(Tmp)==0){
+ for (Nf in Looprange(1,length(FaceL))){
+ Face<- FaceL[[Nf]]
+ Menkakusi2(Face,Nf,Ptype)
+ }
+ }
+ for (I in Looprange(1,length(VELNO))){
+ Edge<- Op(1,VELNO[[I]])
+ if (Norm(Edge[[1]]-Edge[[2]])>Eps){
+ NohiddenL<- c(NohiddenL,list(Spaceline(Edge)))
+ }
+ }
+ EdgeL<- list() # from 13.03.30
+ for(K in Looprange(1,length(VELHI))){
+ Edge<- Op(1,VELHI[[K]])
+ P<- Edge[[1]]; Q<- Edge[[2]]
+ if(Norm(P-Q)>Eps){
+ EdgeL<- c(EdgeL,list(Edge))
+ }
+ }
+ for(K in Looprange(1,length(EdgeL))){
+ Edge<- EdgeL[[K]]
+ P<- Edge[[1]]; Q<- Edge[[2]]
+ Cflg<- 0
+ for(J in Looprange(K+1,length(EdgeL))){
+ Ej<- EdgeL[[J]]
+ Pj<- Ej[[1]]; Qj<- Ej[[2]]
+ if(Norm(Crossprod(Q-P,Qj-Pj))>Eps){
+ next
+ }
+ if(Norm(Q-Pj)<Eps){
+ EdgeL[[J]]<- list(P,Qj)
+ Cflg<- 1
+ break
+ }
+ if(Norm(P-Qj)<Eps){
+ EdgeL[[J]]=list(Q,Pj)
+ Cflg<- 1
+ break
+ }
+ }
+ if(Cflg==0){
+ HiddenL<- c(HiddenL,list(Spaceline(Edge)))
+ }
+ } # upto 14.03.30
+ PHHIDDENDATA<<- HiddenL
+ return(NohiddenL)
+}
+
+##############################
+# 2014.03.31
+
+PhHiddenData<- function(){
+ PHHIDDENDATA
+}
+
+##############################
+
+Fullformfunc<- function(FdL){# Out=Fullformfunc(FdL)
+ Out<- list(Op(1,FdL))
+ N<- Mixlength(FdL)
+ for (Jrg in Looprange(1,N)){
+ Tmp<- Stripblanks(Op(Jrg,FdL))
+ Tmp1<- grep("=c(",Tmp,fixed=TRUE)
+ if (length(Tmp1)>0){
+ break
+ }
+ }
+ Urg<- Stripblanks(Op(Jrg,FdL))
+ StrV<- strsplit(Urg,"=",fixed=TRUE)[[1]]
+ Uname<-StrV[1]
+ Vrg<- Stripblanks(Op(Jrg+1,FdL))
+ StrV<- strsplit(Vrg,"=",fixed=TRUE)[[1]]
+ Vname<- StrV[1]
+ if (Jrg==2){
+ Tmp<- Stripblanks(Op(1,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Zf<- StrV[2]
+ Tmp<- list(Uname,Vname,Zf,Urg,Vrg)
+ Out<- c(Out,Tmp)
+ }else if (Jrg==4){
+ Tmp<- Stripblanks(Op(1,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Zf<- StrV[2]
+ Tmp<- Stripblanks(Op(2,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Xname<- StrV[1]
+ Xf<- StrV[2]
+ Tmp<- Stripblanks(Op(3,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Yname<- StrV[1]
+ Yf<- StrV[2]
+ Tmp<- gsub(Xname,paste("(",Xf,")",sep=""),Zf,fixed=TRUE)
+ Zf<- gsub(Yname,paste("(",Yf,")",sep=""),Tmp,fixed=TRUE)
+ Tmp<- list(Xf,Yf,Zf,Urg,Vrg)
+ Out<- c(Out,Tmp)
+ }else{
+ Tmp<- Stripblanks(Op(2,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Xf<- StrV[2]
+ Tmp<- Stripblanks(Op(3,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Yf<- StrV[2]
+ Tmp<- Stripblanks(Op(4,FdL))
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)[[1]]
+ Zf<- StrV[2]
+ Tmp<- list(Xf,Yf,Zf,Urg,Vrg)
+ Out<- c(Out,Tmp)
+ }
+ DrwS<- "enws"
+ BdyL<- c()
+ for (I in Looprange(Jrg+2,Mixlength(FdL))){
+ Tmp<- Op(I,FdL)
+ if (mode(Tmp)=="character"){
+ if (length(Tmp)==0){
+ Tmp<- " "
+ }
+ DrwS<- Tmp
+ }
+ if (mode(Tmp)=="numeric" && Ncol(Tmp)>1){
+ BdyL<- Tmp
+ }
+ }
+ Tmp<- list(DrwS,BdyL)
+ Out<- c(Out,Tmp)
+ return(Out)
+}
+
+####################################
+
+Initangle<- function (){
+ PHI<<- 30*pi/180
+ THETA<<- 60*pi/180
+}
+
+##########################
+
+Invparapt<- function(...){
+ varargin<- list(...)
+ Eps<- 10^(-4)
+ Fk<- varargin[[length(varargin)]]
+ NFk<- Numptcrv(Fk)
+ Tmp<- varargin[[1]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){ # debug
+ Ph<- Tmp
+ Fh<- varargin[[2]]
+ }else{
+ Fh<- Projpara(Fk)
+ if (NFk>2){
+ Tmp1<- Nearestpt(Tmp,Fh)
+ Ph<- Tmp1[[2]]
+ }else{
+ Ah<- Ptcrv(1,Fh); Bh=Ptcrv(2,Fh)
+ V1<- Tmp-Ah; V2<- Bh-Ah
+ Tmp1<- Crossprod(V1,V2)
+ if (abs(Tmp1)>Eps){
+ print("Not on the line")
+ return(c())
+ }else{
+ Ph<- Dotprod(V1,V2)/Norm(V2)^2+1
+ }
+ }
+ }
+ if (NFk>2){
+ N<- trunc(Ph)
+ S0<- Ph-N
+ if (Ph>Numptcrv(Fh)-Eps){
+ Out<- list(Ptend(Fk),Numptcrv(Fh))
+ return(Out)
+ }
+ }else{
+ N<- 1
+ S0<- Ph-1
+ }
+ Ak<- Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk)
+ Ah<- Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh)
+ Ph<- (1-S0)*Ah+S0*Bh
+ T2<- S0
+ Pk<- (1-T2)*Ak+T2*Bk
+ Out<- list(Pk,N+T2)
+ return(Out)
+}
+
+#################################
+
+#100815
+Invperspt<- function(...){
+ varargin<-list(...)
+ Eps<- 10^(-4)
+ Fk<- varargin[[length(varargin)]]
+ NFk<- Numptcrv(Fk)
+ Tmp<- varargin[[1]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ Ph<- varargin[[1]]
+ Fh<- varargin[[2]]
+ }else{
+ Fh<- Projpers(Fk)
+ if (NFk>2){
+ Tmp1<- Nearestpt(Tmp,Fh)
+ Ph<- Tmp1[[2]]
+ }else{
+ Ah<- Ptcrv(1,Fh); Bh<- Ptcrv(2,Fh)
+ V1<- Tmp-Ah; V2<- Bh-Ah
+ Tmp1<- Crossprod(V1,V2)
+ if (abs(Tmp1)>Eps){
+ print("Not on the line")
+ Out<- c()
+ return(Out)
+ }else{
+ Ph<- Dotprod(V1,V2)/Norm(V2)^2+1# 09.11.12
+ }
+ }
+ }
+ if (NFk>2){
+ N<- trunc(Ph)
+ S0<- Ph-N
+ if (Ph>Numptcrv(Fh)-Eps){
+ Out<- list(Ptend(Fk),Numptcrv(Fh))
+ return(Out)
+ }
+ }else{
+ N<- 1
+ S0<- Ph-1 # 09.11.12
+ }
+ Ak<- Ptcrv(N,Fk); Bk<- Ptcrv(N+1,Fk)
+ Ah<- Ptcrv(N,Fh); Bh<- Ptcrv(N+1,Fh)
+ Ph<- (1-S0)*Ah+S0*Bh
+ Phc<- Cancoordpers(c(Ph,0))
+ Ahc<- Cancoordpers(c(Ah,0))
+ Bhc<- Cancoordpers(c(Bh,0))
+ Vp<- Phc-EyePoint
+ Va<- Ak-EyePoint
+ AB<- Bk-Ak
+ Cp<- Crossprod(Vp,AB)
+ Nmr<- Crossprod(Va,Vp)
+ Mx<- max(abs(Cp))
+ if (abs(Cp[1])==Mx){
+ T2<- Nmr[1]/Cp[1]
+ }else if (abs(Cp[2])==Mx){
+ T2<- Nmr[2]/Cp[2]
+ }else{
+ T2<- Nmr[3]/Cp[3]
+ }
+ Pk<- (1-T2)*Ak+T2*Bk
+ Out<- list(Pk,N+T2)
+ return(Out)
+}
+
+#########################
+
+Kukannozoku<- function(Jokyo,KukanL){
+ Eps<- 10^(-6)
+ N<- Nrow(KukanL)
+ T1<- Jokyo[1]; T2<- Jokyo[2]
+ Tmp<- KukanL[1,]
+ T1<- max(T1,Tmp[1])
+ Tmp<- KukanL[N,]
+ T2<- min(T2,Tmp[2])
+ Res<- c()
+ Flg<- 0
+ for (I in Looprange(1,N)){
+ Ku<- KukanL[I,]
+ if (Flg==0){
+ if (Ku[2]<T1){
+ Res<- rbind(Res,Ku)
+ }else{
+ Flg<- 1
+ if (Ku[1]<T1-Eps){
+ Tmp<- c(Ku[1],T1)
+ Res<- rbind(Res,Tmp)
+ }
+ if (Ku[2]>T2+Eps){
+ Tmp<- c(T2,Ku[2])
+ Res<- rbind(Res,Tmp)
+ }
+ }
+ }else if (Flg==1){
+ if (Ku[2]<T2){
+ next
+ }else{
+ Flg<- 2
+ if (Ku[1]<T2-Eps){
+ Ku<- c(T2,Ku[2])
+ }
+ Res<- rbind(Res,Ku)
+ }
+ }else{
+ Res<- rbind(Res,Ku)
+ }
+ }
+ return(Res)
+}
+
+########################################
+
+Makeskeletondata<- function(Obj2L,Plt2L,R0,Eps2){
+ Eps<- 10.0^(-3)
+ Dmat<- c()
+ Dind<- c()
+ for (I in Looprange(1,Mixlength(Plt2L))){
+ Dt<- Op(I,Plt2L)
+ N1<- Nrow(Dmat)+1
+ if(Nrow(Dmat)==0){
+ Dmat<- Dt
+ }else{
+ Dmat<- rbind(Dmat,Dt)
+ }
+ N2<- Nrow(Dmat)
+ Dind<- c(Dind,N1,N2)
+ }
+ Dind<- matrix(Dind,ncol=2,byrow=TRUE)
+ Nind<- Nrow(Dind)
+ Allres<- list()
+ for (Nobj in Looprange(1,Mixlength(Obj2L))){
+ Plt2<- Op(Nobj,Obj2L)
+ PhL<- Plt2[,1:2]
+ ClipL<- c()
+ for (Ns in Looprange(1,Nrow(PhL)-1)){
+ P1<- PhL[Ns:(Ns+1),]
+ for (I in Looprange(1,Nrow(Dind))){
+ Tmp<- Dmat[Dind[I,1]:Dind[I,2],]
+ P2<- Tmp[,1:2]
+ KC<- IntersectcrvsPp(P1,P2,Eps)
+ if (Mixlength(KC)>0){
+ for (J in 1:Mixlength(KC)){
+ P<- Op(1,Op(J,KC))
+ Tmp<- Op(2,Op(J,KC))
+ if (Tmp<1+Eps && Ns==1){
+ next
+ }
+ if (Tmp>Numptcrv(P1)-Eps && Ns==(Nrow(PhL)-1)){
+ next
+ }
+ N1<- Ns
+ N2<- Op(3,Op(J,KC))
+ Pa<- Plt2[N1,1:2]
+ Za<- Plt2[N1,3]
+ Pb<- Plt2[N1+1,1:2]
+ Zb<- Plt2[N1+1,3]
+ if (Norm(Pa-Pb)<Eps){
+ next
+ }
+ T1<- Norm(Pa-P)/Norm(Pa-Pb)
+ Z1<- (1-T1)*Za+T1*Zb
+ Tmp<- Dmat[Dind[I,1]:Dind[I,2],]
+ Pa<- Tmp[N2,1:2]
+ Za<- Tmp[N2,3]
+ Pb<- Tmp[N2+1,1:2]
+ Zb<- Tmp[N2+1,3]
+ if ((Norm(Pa-Pb)<Eps)){
+ next
+ }
+ T2<- Norm(Pa-P)/Norm(Pa-Pb)
+ Z2<- (1-T2)*Za+T2*Zb
+ if (Z1<Z2-Eps2){
+ if (Nrow(ClipL)==0){
+ Tmp<- 1
+ }else{
+ Tmp1<- ClipL[,1]-P[1]
+ Tmp2<- ClipL[,2]-P[2]
+ Tmp3<- Tmp1^2+Tmp2^2
+ Tmp<- min(Tmp3)
+ }
+ if (Tmp>Eps^2){
+ Tmp1<- P1[2,]-P1[1,]
+ Tmp2<- Pb-Pa
+ Tmp3<- Dotprod(Tmp1,Tmp2)
+ Tmp3<- Tmp3/Norm(Tmp1)/Norm(Tmp2)
+ Tmp<- 1-0.5*Tmp3^2
+ ClipL<- rbind(ClipL,c(P,N1,T1,R0/Tmp))
+ }
+ }
+ }
+ }
+ }
+ }
+ Te<- Nrow(Plt2)
+ KukanL<- rbind(c(),c(1.0,Te))
+ P1<- PhL
+ if (Nrow(ClipL)>0){
+ for (I in 1:Nrow(ClipL)){
+ P<- ClipL[I,1:2]
+ NN<- ClipL[I,3]
+ T<- NN+ClipL[I,4]
+ R<- ClipL[I,5]
+ Flg<- 0
+ for (J in NN:1){
+ Q<- Pointoncrv(J,P1)
+ if (Norm(P-Q)<R){
+ next
+ }
+ Flg<- 1
+ break
+ }
+ if (Flg==0){
+ T1<- 1
+ }else{
+ T1<- J; T2<- T
+ H<- T2-T1
+ for (N in 1:10){
+ H<- H*0.5
+ Q<- Pointoncrv(T1+H,P1)
+ if (Norm(P-Q)<R){
+ T2<- T2-H
+ }else{
+ T1<- T1+H
+ }
+ }
+ }
+ Ku<- c(T1)
+ Flg<- 0
+ for (J in Looprange(NN+1,Te)){
+ Q<- Pointoncrv(J,P1)
+ if (Norm(P-Q)<R){
+ next
+ }
+ Flg<- 1
+ break
+ }
+ if (Flg==0){
+ T2<- Te
+ }else{
+ T1<- T; T2<- J
+ H<- T2-T1
+ for (N in 1:10){
+ H<- H*0.5
+ Q<- Pointoncrv(T1+H,P1)
+ if (Norm(P-Q)<R){
+ T1<- T1+H
+ }else{
+ T2<- T2-H
+ }
+ }
+ }
+ Ku<- c(Ku,T2)
+ KukanL<- Kukannozoku(Ku,KukanL)
+ }
+ }
+ Res<- list()
+ for (I in Looprange(1,Nrow(KukanL))){
+ T1<- KukanL[I,1]; N1<- trunc(T1)
+ T2<- KukanL[I,2]; N2<- trunc(T2)
+ PtL<- list()
+ if (T1-N1<1-Eps){
+ Tmp<- Pointoncrv(T1,P1)
+ PtL<- list(Tmp)
+ }
+ for (J in Looprange(N1+1,N2)){
+ Tmp<- Pointoncrv(J,P1)
+ PtL<- c(PtL,list(Tmp))
+ }
+ if (T2-N2>Eps){
+ Tmp<- Pointoncrv(T2,P1)
+ PtL<- c(PtL,list(Tmp))
+ }
+ Res<- c(Res,list(Listplot(PtL)))
+ }
+ Allres<- c(Allres,Res)
+ }
+ return(Allres)
+}
+
+#########################
+
+#100815
+Makeskeletonpersdata<- function(Obj2L,Plt2L,R0,Eps2){
+ Eps<- 10.0^(-3)
+ Dmat<- c()
+ Dind<- c()
+ for (I in Looprange(1,Mixlength(Plt2L))){
+ Dt<- Op(I,Plt2L)
+ N1<- Nrow(Dmat)+1
+ Dmat<- rbind(Dmat,Dt)
+ N2<- Nrow(Dmat)
+ Dind<- rbind(Dind,c(N1,N2))
+ }
+ Nind<- Nrow(Dind)
+ Allres<- list()
+ for (Nobj in Looprange(1,Mixlength(Obj2L))){
+ Plt2<- Op(Nobj,Obj2L)
+ PhL<- Plt2[,1:2]
+ ClipL<- c()
+ for (Ns in Looprange(1,Nrow(PhL)-1)){
+ P1<- PhL[Ns:(Ns+1),]
+ for (I in Looprange(1,Nrow(Dind))){
+ Tmp<- Dmat[Dind[I,1]:Dind[I,2],]
+ P2<- Tmp[,1:2]
+ KC<- IntersectcrvsPp(P1,P2,Eps)
+ if (Mixlength(KC)>0){
+ for (J in Looprange(1,Mixlength(KC))){#
+ P<- Op(1,Op(J,KC))
+ Tmp<- Op(2,Op(J,KC))
+ if (Tmp<(1+Eps) && Ns==1){
+ next
+ }
+ if (Tmp>Numptcrv(P1)-Eps && Ns==(Nrow(PhL)-1)){
+ next
+ }
+ N1<- Ns
+ N2<- Op(3,Op(J,KC))
+ Pa<- Plt2[N1,1:2]
+ Za<- Plt2[N1,3]
+ Pb<- Plt2[N1+1,1:2]
+ Zb<- Plt2[N1+1,3]
+ if (Norm(Pa-Pb)<Eps){
+ next
+ }
+ T1<- Norm(Pa-P)/Norm(Pa-Pb)#norm(Pa-P)/norm(Pa-Pb)
+ Pka<- Cancoordpers(c(Pa[1],Pa[2],Za))
+ Pkb<- Cancoordpers(c(Pb[1],Pb[2],Zb))
+ if (T1>1-Eps){
+ Pk<- Pkb
+ }else{
+ Tmp1<- Listplot(c(Pa,Pb))
+ Tmp2<- Spaceline(c(Pka,Pkb))
+ Tmp<- Invperspt(1+T1,Tmp1,Tmp2)
+ Pk<- Op(1,Tmp)
+ }
+ Z1<- Zperspt(Pk)
+ Tmp<- Dmat[Dind[I,1]:Dind[I,2],]
+ Pa<- Tmp[N2,1:2]
+ Za<- Tmp[N2,3]
+ Pb<- Tmp[N2+1,1:2]
+ Zb<- Tmp[N2+1,3]
+ if (Norm(Pa-Pb)<Eps){
+ next
+ }
+ T2<- Norm(Pa-P)/Norm(Pa-Pb)
+ Pka<- Cancoordpers(c(Pa[1],Pa[2],Za))
+ Pkb<- Cancoordpers(c(Pb[1],Pb[2],Zb))
+ if (T2>(1-Eps)){
+ Pk<- Pkb
+ }else{
+ Tmp1<- Listplot(c(Pa,Pb))
+ Tmp2<- Spaceline(c(Pka,Pkb))
+ Tmp<- Invperspt(1+T2,Tmp1,Tmp2)
+ Pk<- Op(1,Tmp)
+ }
+ Z2<- Zperspt(Pk)
+ if (Z1<(Z2-Eps2)){
+ if (length(ClipL)==0){
+ Tmp<- 1
+ }else{
+ Tmp1<- ClipL[,1]-P[1]
+ Tmp2<- ClipL[,2]-P[2]
+ Tmp3<- Tmp1^2+Tmp2^2
+ Tmp<- min(Tmp3)
+ }
+ if (Tmp>Eps^2){
+ Tmp1<- P1[2,]-P1[1,]
+ Tmp2<- Pb-Pa
+ Tmp3<- Dotprod(Tmp1,Tmp2)
+ Tmp3<- Tmp3/Norm(Tmp1)/Norm(Tmp2)
+ Tmp<- 1-0.5*Tmp3^2
+ ClipL<- rbind(ClipL,c(P,N1,T1,R0/Tmp))
+ }
+ }
+ }
+ }
+ }
+ }
+ Te<- Nrow(Plt2)
+ KukanL<- rbind(c(),c(1.0,Te))
+ P1<- PhL
+ if (Nrow(ClipL)>0){
+ for (I in Looprange(1,Nrow(ClipL))){
+ P<- ClipL[I,1:2]
+ NN<- ClipL[I,3]
+ T<- NN+ClipL[I,4]
+ R<- ClipL[I,5] #added 10.08.17
+ Flg<- 0
+ for (J in NN:1){
+ Q<- Pointoncrv(J,P1)
+ if (Norm(P-Q)<R){#(norm(P-Q)<R)
+ next
+ }
+ Flg<- 1
+ break
+ }
+ if (Flg==0){
+ T1<- 1
+ }else{
+ T1<- J; T2<- T
+ H<- T2-T1
+ for (N in 1:10){
+ H<- H*0.5
+ Q<- Pointoncrv(T1+H,P1)
+ if (Norm(P-Q)<R){ # norm(P-Q)<R
+ T2<- T2-H
+ }else{
+ T1<- T1+H
+ }
+ }
+ }
+ Ku<- c(T1)#Ku<- [T1]
+ Flg<- 0
+ for (J in Looprange(NN+1,Te)){
+ Q<- Pointoncrv(J,P1)
+ if (Norm(P-Q)<R){
+ next#continue
+ }
+ Flg<- 1
+ break
+ }
+ if (Flg==0){
+ T2<- Te
+ }else{
+ T1<- T; T2<- J
+ H<- T2-T1
+ for (N in 1:10){
+ H<- H*0.5
+ Q<- Pointoncrv(T1+H,P1)
+ if (Norm(P-Q)<R){
+ T1<- T1+H
+ }else{
+ T2<- T2-H
+ }
+ }
+ }
+ Ku<- c(Ku,T2)#[Ku,T2]
+ KukanL<- Kukannozoku(Ku,KukanL)
+ }
+ }
+ Res<- list()#[]
+ for (I in Looprange(1,Nrow(KukanL))){#(I=1:size(KukanL,1))
+ T1<- KukanL[I,1]; N1<- trunc(T1)
+ T2<- KukanL[I,2]; N2<- trunc(T2)
+ PtL<- list()#[]
+ if (T1-N1<1-Eps){
+ Tmp<- Pointoncrv(T1,P1)
+ PtL<- list(Tmp)#100816c(PtL,list(Tmp)) PtL<- MixS(Tmp)
+ }
+ for (J in Looprange(N1+1,N2)){
+ Tmp<- Pointoncrv(J,P1)
+ PtL<- c(PtL,list(Tmp))#Mixadd(PtL,Tmp)
+ }
+ if (T2-N2>Eps){
+ Tmp<- Pointoncrv(T2,P1)
+ PtL<- c(PtL,list(Tmp))#Mixadd(PtL,Tmp)
+ }
+ Res<- c(Res,list(Listplot(PtL)))#Res<- Mixadd(Res,Listplot(PtL))
+ }
+ Allres<- c(Allres,Res)#Allres<- Mixjoin(Allres,Res)
+ }
+ return(Allres)
+}
+
+##############################3
+
+MakeveLfaceL<- function(VfL){
+# // Out format
+# // VeL Edge, Face num(as numlist), VeL num
+# // FL Face (Vertexs)
+ Eps<- 10^(-4)
+ Tmp<- VfL[[length(VfL)]]
+ Tmp1<- Tmp[[1]]
+ if (mode(Tmp1)=="numeric"){
+ FvL<- list(VfL)
+ }else{
+ FvL<- VfL
+ }
+ EL<- list(); FL<- list()
+ for (Nn in Looprange(1,length(FvL))){
+ Tmp<- FvL[[Nn]]
+ VL<- Tmp[[1]]
+ if (length(VL)>0){
+ FnL<- Tmp[[2]]
+ FaceL<- list()
+ for (I in Looprange(1,length(FnL))){
+ Tmp1<- FnL[[I]]
+ PtL<- list()
+ for (J in Looprange(1,length(Tmp1))){
+ Tmp2<- Tmp1[[J]]
+ PtL[[J]]<- VL[[Tmp2]]
+ }
+ FaceL[[I]]<- PtL
+ }
+ }else{
+ FaceL<- list(Tmp[[2]])
+ }
+ for (I in Looprange(1,length(FaceL))){
+ Face<- FaceL[[I]]
+ Face<- c(Face,list(Face[[1]]))
+ FL<- c(FL,list(Face))
+ for (J in Looprange(1,length(Face)-1)){
+ Edge<- list(Face[[J]],Face[[J+1]])
+ Flg<- 0
+ for (K in Looprange(1,length(EL))){
+ Tmp<- EL[[K]]
+ Tmp1<- Tmp[[1]]
+ Tmp2<- Norm(Edge[[1]]-Tmp1[[1]])+Norm(Edge[[2]]-Tmp1[[2]])
+ Tmp3<- Norm(Edge[[1]]-Tmp1[[2]])+Norm(Edge[[2]]-Tmp1[[1]])
+ if (Tmp2<Eps || Tmp3<Eps){#(
+ Tmp<- EL[[K]]
+ Tmp1<- Tmp[[1]]
+ Tmp2<- c(Tmp[[2]],length(FL))
+ EL[[K]]<- list(Tmp1,Tmp2,K)
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==0){
+ Ntmp<- length(EL)
+ EL[[Ntmp+1]]<- list(Edge,c(length(FL)),Ntmp+1)
+ }
+ }
+ }
+ }
+ Out<- list(EL,FL)
+ return(Out)
+}
+
+###########################
+#// 09.10.29
+#// 09.11.15
+
+Menkakusi2<- function(Face,Nf,Ptype){
+# global THETA PHI EyePoint FocusPoint VELNO VELHI
+ Eps0<- 10^(-6)
+ Eps<- 10^(-4)
+ Tmp1<- Face[[1]]-Face[[2]]
+ Tmp2<- Face[[3]]-Face[[2]]
+ if (Norm(Tmp1)<Eps || Norm(Tmp2)<Eps){
+ return()
+ }
+ Vec<- 1/Norm(Tmp1)/Norm(Tmp2)*Crossprod(Tmp1,Tmp2)
+ if (Norm(Vec)<Eps){
+ return()
+ }
+ if (Ptype== -1){
+ W<- EyePoint
+ Tmp<- Dotprod(Vec,W-Face[[1]])
+ }else{
+ W<- c(sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA))
+ W<- 100*W
+ Tmp<- Dotprod(Vec,W-Face[[1]])
+ }
+ if (abs(Tmp)<Eps){
+ return()
+ }
+ if (Tmp<-Eps){
+ Vec<- -Vec
+ }
+ if (Ptype==-1){
+ G1<- Projpers(Spaceline(Face))
+ }else{
+ G1<- Projpara(Spaceline(Face))
+ }
+ VL<- list()
+ for (I in Looprange(1,Numptcrv(G1))){
+ VL[[I]]<- Ptcrv(I,G1)
+ }
+ Out1L<- list()
+ Out2L<- VELHI
+ for (N in Looprange(1,length(VELNO))){
+ Out1<- list()
+ Out2<- list()
+ Tmp<- VELNO[[N]]
+ Edge<- Tmp[[1]]
+ Ne<- Tmp[[2]]
+ NNe<- Tmp[[3]]
+ if (Member(Nf,Ne)){
+ Out1L<- c(Out1L, list(list(Edge,Ne,NNe)))
+ next
+ }
+ if (Ptype==-1){
+ PtA<- Perspt(Edge[[1]])
+ PtB<- Perspt(Edge[[2]])
+ }else{
+ PtA<- Parapt(Edge[[1]])
+ PtB<- Parapt(Edge[[2]])
+ }
+ if (Norm(PtA-PtB)<Eps){
+ next
+ }
+ Bdy<- list(G1)
+ V<- PtB-PtA
+ TenL<- KoutenList(PtA,V,Bdy)
+ Nten<- length(TenL)
+ if (Nten==0){ # debug 10.08.17
+ Out1L<- c(Out1L,list(list(Edge,Ne,NNe)))
+ next
+ }
+ Te<- 0
+ Pe3<- Edge[[1]]
+ if (Ptype==-1){
+ Tmp1<- Perspt(Pe3)
+ Tmp<- Invperspt(Tmp1,Spaceline(Face))
+ }else{
+ Tmp1<- Parapt(Pe3)
+ Tmp<- Invparapt(Tmp1,Spaceline(Face))
+ }
+ Qe3<- Tmp[[1]]
+ Flg<- 0
+ for (I in Looprange(1,Nten)){
+ TenP<- TenL[[I]]
+ Ts<- TenP[[1]]
+ P<- TenP[[2]]
+ if (Ts< -Eps){
+ next
+ }
+ Eline<- Spaceline(Edge)
+ if (Ptype==-1){
+ Tmp<- Invperspt(P,Eline)
+ Tmp1<- Invperspt(P,Spaceline(Face))
+ }else{
+ Tmp<- Invparapt(P,Eline)
+ Tmp1<- Invparapt(P,Spaceline(Face))
+ }
+ P3<- Tmp[[1]]; Q3<- Tmp1[[1]]
+ if (Ts>1-Eps){# // P3, Q3 are necessary
+ Flg<- I
+ break
+ }
+ if (abs(Te-Ts)>Eps0){
+ if ((I%%2)==1){
+ Out1<- c(Out1,list(list(Pe3,P3)))
+ }else{
+ if (length(Qe3)==0){
+ Tmp<- Op(2,TenL[[I-1]])
+ if (Ptype==-1){
+ Tmp1<- Invperspt(Tmp,Spaceline(Face))
+ }else{
+ Tmp1<- Invparapt(Tmp,Spaceline(Face))
+ }
+ Qe3<- Tmp1[[1]]
+ }
+ PM<- 0.5*(Pe3+P3); QM<- 0.5*(Qe3+Q3)
+ if (Ptype==-1){
+ Z1<- Zperspt(PM); Z2<- Zperspt(QM)
+ }else{
+ Z1<- Zparapt(PM); Z2<- Zparapt(QM)
+ }
+ if (Z1>Z2){
+ Out1<- c(Out1, list(list(Pe3,P3)))
+ }else{
+ Out2<- c(Out2, list(list(Pe3,P3)))
+ }##
+ }
+ }
+ Te<- Ts; Pe3<- P3; Qe3<- Q3
+ }
+ if (Flg==0){
+ if (Norm(Pe3-Edge[[2]])>Eps0){
+ Out1<- c(Out1, list(list(Pe3,Edge[[2]])))
+ }
+ }else{
+ if ((Flg%%2)==1){
+ Out1<- c(Out1, list(list(Pe3,Edge[[2]])))
+ }else{
+ PM<- 0.5*(Pe3+P3); QM<- 0.5*(Qe3+Q3)
+ if (Ptype==-1){
+ Z1<- Zperspt(PM); Z2<- Zperspt(QM)
+ }else{
+ Z1<- Zparapt(PM); Z2<- Zparapt(QM)
+ }
+ if (Z1>Z2){
+ Out1<- c(Out1, list(list(Pe3,Edge[[2]])))
+ }else{
+ Out2<- c(Out2, list(list(Pe3,Edge[[2]])))
+ }
+ }
+ }
+ for (I in Looprange(1,length(Out1))){
+ Tmp<- Out1[[I]]
+ if (I==1){
+ SeL<- Tmp
+ }else{
+ if (Norm(SeL[[2]]-Tmp[[1]])<Eps0){
+ SeL[[2]]<- Tmp[[2]]
+ }else{
+ Out1L<- c(Out1L, list(list(SeL,Ne,NNe)))
+ SeL<- Tmp
+ }
+ }
+ }
+ if (length(Out1)>0){
+ Out1L<- c(Out1L, list(list(SeL,Ne,NNe)))
+ }
+ for (I in Looprange(1,length(Out2))){
+ Tmp<- Out2[[I]]
+ if (I==1){
+ SeL<- Tmp
+ }else{
+ if (Norm(SeL[[2]]-Tmp[[1]])<Eps0){
+ SeL[[2]]<- Tmp[[2]]
+ }else{
+ Out2L<- c(Out2L, list(list(SeL,Ne,NNe)))
+ SeL<- Tmp
+ }
+ }
+ }
+ if (length(Out2)>0){
+ Out2L<- c(Out2L, list(list(SeL,Ne,NNe)))
+ }
+ }
+ VELNO<<- Out1L
+ VELHI<<- Out2L
+}
+
+###################################
+
+Parapt<- function(P){
+ x<- P[1]
+ y<- P[2]
+ z<- P[3]
+ Xz<- -x*sin(PHI)+y*cos(PHI)
+ Yz<- -x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA)
+ Out<- c(Xz,Yz)
+ return(Out)
+}
+
+###################################
+
+#100815
+Partcrv3<- function(T1,T2,Fk){
+ Eps=10^(-4)
+#// Tmp=Mixop(1,Fk)
+#// new part from
+ if (T1>(T2+Eps)){
+ Npt<- Nrow(Fk)
+ Out1<- Partcrv3(T1,Npt,Fk)
+ Out2<- Partcrv3(1,T2,Fk)
+ Tmp<- Fk[1,]-Fk[Npt,]
+ if (Norm(Tmp)<Eps){
+ PL<- Joincrvs(Out1,Out2)
+ }else{
+ PL<- list(Out1,Out2)
+ }
+ rownames(PL)<- 1:Nrow(PL)
+ return(PL)
+ }
+# // to here
+ Is<- ceiling(T1)
+ Ie<- floor(T2)
+ PL<- c()
+ if (T1<Is-Eps){
+ P<- (Is-T1)*Fk[Is-1,]+(1-Is+T1)*Fk[Is,]
+ PL<- rbind(c(0), P)
+ }
+ PL<- rbind(PL,Fk[Is:Ie,])
+ if (T2>(Ie+Eps)){
+ P<- (1-T2+Ie)*Fk[Ie,]+(T2-Ie)*Fk[Ie+1,]
+ PL<- rbind(PL,P)
+ }
+ rownames(PL)<- 1:Nrow(PL)
+ return(PL)
+}
+
+###################################
+
+#100815
+Partcrv3<- function(T1,T2,Fk){
+ Eps=10^(-4)
+#// Tmp=Mixop(1,Fk)
+#// new part from
+ if (T1>(T2+Eps)){
+ Npt<- Nrow(Fk)
+ Out1<- Partcrv3(T1,Npt,Fk)
+ Out2<- Partcrv3(1,T2,Fk)
+ Tmp<- Fk[1,]-Fk[Npt,]
+ if (Norm(Tmp)<Eps){
+ PL<- Joincrvs(Out1,Out2)
+ }else{
+ PL<- list(Out1,Out2)
+ }
+ rownames(PL)<- 1:Nrow(PL)
+ return(PL)
+ }
+# // to here
+ Is<- ceiling(T1)
+ Ie<- floor(T2)
+ PL<- c()
+ if (T1<Is-Eps){
+ P<- (Is-T1)*Fk[Is-1,]+(1-Is+T1)*Fk[Is,]
+ PL<- rbind(c(0), P)
+ }
+ PL<- rbind(PL,Fk[Is:Ie,])
+ if (T2>(Ie+Eps)){
+ P<- (1-T2+Ie)*Fk[Ie,]+(T2-Ie)*Fk[Ie+1,]
+ PL<- rbind(PL,P)
+ }
+ rownames(PL)<- 1:Nrow(PL)
+ return(PL)
+}
+
+###################################
+
+#100815
+Perspt<- function(P){
+ Tmp<- P-FocusPoint
+ X1<- Tmp[1]; Y1<- Tmp[2]; Z1<- Tmp[3]
+ Tmp<- EyePoint-FocusPoint
+ E1<- Tmp[1];F1<- Tmp[2];G1<- Tmp[3]
+ Ca<- E1/sqrt(E1^2+F1^2)
+ Sa<- F1/sqrt(E1^2+F1^2)
+ X2<- X1*Ca+Y1*Sa; Y2<- -X1*Sa+Y1*Ca; Z2<- Z1
+ E2<- E1*Ca+F1*Sa; F2<- -E1*Sa+F1*Ca; G2<- G1
+ Cb<- E2/sqrt(E2^2+G2^2)
+ Sb<- G2/sqrt(E2^2+G2^2)
+ X3<- X2*Cb+Z2*Sb; Y3<- Y2; Z3<- -X2*Sb+Z2*Cb
+ E3<- E2*Cb+G2*Sb; F3<- F2; G3<- -E2*Sb+G2*Cb
+ Yz<- E3/(E3-X3)*Y3
+ Zz<- E3/(E3-X3)*Z3
+ Out<- c(Yz,Zz)
+ return(Out)
+}
+
+
+#################################
+
+Phcutdata<- function(VL,FaceL,PlaneD){
+ Out<- list()
+ EL<- list()
+ Eps<- 10^(-4)
+ for (I in Looprange(1,Mixlength(FaceL))){
+ Face<- Op(I,FaceL)
+ for (J in Looprange(1,length(Face))){
+ Nj<- J+1
+ if (J==length(Face)){
+ Nj<- 1
+ }
+ N1<- Face[J]; N2<- Face[Nj]
+ Tmp<- c(N1,N2)
+ Flg<- 0
+ for (K in Looprange(1,Mixlength(EL))){
+ Tmp1<- Op(K,EL)
+ Tmp2<- Tmp1[2:1]
+ if (all(Tmp==Tmp1) || all(Tmp==Tmp2)){
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==0){
+ EL<- c(EL,list(Tmp))
+ }
+ }
+ }
+ Out0<- list()
+ for (I in Looprange(1,Mixlength(EL))){
+ Tmp<- Op(I,EL)
+ Tmp1<- Op(Tmp[1],VL)
+ Tmp2<- Op(Tmp[2],VL)
+ Out0<- c(Out0, list(Spaceline(Tmp1,Tmp2)))
+ }
+ if (Mixtype(PlaneD)!=1){
+ V1<- Op(1,PlaneD)
+ Tmp<- Op(2,PlaneD)
+ if (length(Tmp)>1){
+ d<- V1[1]*Tmp[1]+V1[2]*Tmp[2]+V1[3]*Tmp[3]
+ }else{
+ d<- Tmp
+ }
+ }else if (mode(PlaneD)=="numeric"){
+ V1<- PlaneD[1:3]
+ d<- PlaneD[4]
+ }else{
+ StrV<- strsplit(PlaneD,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Tmp1<- StrV[1]
+ Tmp2<- StrV[2]
+ PlaneD<- paste(Tmp1,"-(",Tmp2,")",sep="")
+ }
+ x<- 0; y<- 0; z<- 0
+ d<- -eval(parse(text=PlaneD))
+ x<- 1; y<- 0; z<- 0;
+ Tmp1<- eval(parse(text=PlaneD))+d
+ x<- 0; y<- 1; z<- 0
+ Tmp2<- eval(parse(text=PlaneD))+d
+ x<- 0; y<- 0; z<- 1
+ Tmp3<- eval(parse(text=PlaneD))+d
+ V1<- c(Tmp1,Tmp2,Tmp3)
+ }
+ if (all(V1==c(0,0,0))){
+ return(Out0)
+ }
+ V3<- c(1,0,0)
+ Out1<- Rotate3data(Out0,V1,V3)
+ Tmp2<- Rotate3pt(c(1,0,0),V3,V1)
+ Tmp<- V1[1]*Tmp2[1]+V1[2]*Tmp2[2]+V1[3]*Tmp2[3]
+ x0<- d/Tmp
+ PtL<- list()
+ for (I in Looprange(1,Mixlength(Out1))){
+ Tmp<- Op(I,Out1)
+ Tmp1<- Tmp[1,]; Tmp2<- Tmp[2,]
+ P<- list(Tmp1,Tmp2-Tmp1)
+ Tmp<- list(Tmp1[1],Tmp2[1]-Tmp1[1])
+ if (abs(Tmp[[2]]) < Eps){
+ Tmp<- c()
+ }else{
+ Tmp1<- Tmp[[2]]
+ Tmp2<- x0-Tmp[[1]]
+ Tmp<- c(Tmp2/Tmp1)
+ }
+ if (length(Tmp)>0){
+ Tmp<- Tmp[1]
+ if (Tmp>-Eps && Tmp<(1+Eps)){
+ Tmp3<- P[[1]]+Tmp*P[[2]]
+ Tmp3<- Rotate3pt(Tmp3,V3,V1)
+ if (Tmp<Eps){
+ Tmp1<- Op(I,EL)
+ Tmp1<- Tmp1[1]
+ Tmp4<- list(c(Tmp1,Tmp1),Tmp3)
+ }else{
+ if (Tmp>1-Eps){
+ Tmp1<- Op(I,EL)
+ Tmp1<- Tmp1[2]
+ Tmp4<- list(c(Tmp1,Tmp1),Tmp3)
+ }else{
+ Tmp4<- list(Op(I,EL),Tmp3)
+ }
+ }
+ Flg<- 0
+ for (J in Looprange(1,Mixlength(PtL))){
+ Tmp<- Op(J,PtL)
+ Tmp<- Op(2,Tmp)
+ if (Norm(Tmp3-Tmp)<Eps){
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==0){
+ PtL<- c(PtL,list(Tmp4))
+ }
+ }
+ }
+ }
+ if (Mixlength(PtL)==0){
+ return(Out0)
+ }
+ PL<- list(Op(1,PtL))
+ QL<- PtL[2:Mixlength(PtL)]
+ N<- Mixlength(QL)
+ for (I in Looprange(2,N+1)){
+ Tmp1<- Op(Mixlength(PL),PL)
+ Tmp1<- Op(1,Tmp1)
+ for (J in Looprange(1,Mixlength(QL))){
+ Tmp2<- Op(J,QL)
+ Tmp2<- Op(1,Tmp2)
+ Flg<- 0
+ for (K in Looprange(1,Mixlength(FaceL))){
+ Tmp3<- Op(K,FaceL);
+ if (Member(Tmp1[1],Tmp3) &&
+ Member(Tmp1[2],Tmp3) &&
+ Member(Tmp2[1],Tmp3) &&
+ Member(Tmp2[2],Tmp3)){
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==1){
+ break
+ }
+ }
+ J<- min(J, Mixlength(QL))
+ PL<- c(PL,list(Op(J,QL)))
+ Tmp1<- QL[Looprange(1,J-1)]
+ Tmp2<- QL[Looprange(J+1,Mixlength(QL))]
+ QL<- c(Tmp1,Tmp2)
+ if (Mixlength(QL)==0){
+ break
+ }
+ }
+ PHCUTPOINTL<<- PL
+ Tmp<- list()
+ for (J in Looprange(1,Mixlength(PL))){
+ Tmp1<- Op(J,PL)
+ Tmp1<- Op(2,Tmp1)
+ Tmp<- c(Tmp,list(Tmp1))
+ }
+ Tmp1<- Op(1,PL)
+ Tmp1<- Op(2,Tmp1)
+ Tmp<- c(Tmp,list(Tmp1))
+ Out2<- Spaceline(Tmp)
+ Out<- c(Out0,list(Out2))
+}
+
+#########################################
+
+Phcutoffdata<- function(...){
+ varargin<-list(...)
+ Eps<- 10^(-4)
+ Out2<- list()
+ VL<- varargin[[1]]
+ FaceL<- varargin[[2]]
+ PlaneD<- varargin[[3]]
+ Sgnstr<- varargin[[4]]
+ Fugou<- 1
+ if (Sgnstr=="-" || Sgnstr=="n"){
+ Fugou<- -1
+ }
+ Out0<- Phcutdata(VL,FaceL,PlaneD)
+ PtL<- PHCUTPOINTL
+ PHVERTEXL<<- VL
+ PHFACEL<<- FaceL
+ if (length(PtL)==0){
+ Out2<- Out0
+ return(Out2)
+ }
+ N1<- Mixlength(VL)
+ Face<- c()
+ for (I in Looprange(1,Mixlength(PtL))){
+ Tmp<- Op(I,PtL)
+ Tmp3<- Op(1,Tmp)
+ Tmp1<- Tmp3[[1]]; Tmp2<- Tmp3[[2]] # debugged 10.08.14
+ if (Tmp1!=Tmp2){
+ VL<- c(VL,list(Op(2,Tmp)))
+ N1<- N1+1
+ Tmp1<- N1
+ }
+ Face<- c(Face,Tmp1)
+ PtL[[I]]<- list(Op(1,Tmp),Tmp1)
+ }
+ OutfL<- list(Face)
+ if (Mixtype(PlaneD)!=1){
+ V1<- Op(1,PlaneD)
+ Tmp<- Op(2,PlaneD)
+ if (length(Tmp)>1){
+ d<- V1[1]*Tmp[1]+V1[2]*Tmp[2]+V1[3]*Tmp[3]
+ }else{
+ d<- Tmp
+ }
+ }else if (mode(PlaneD)=="numeric"){
+ V1<- PlaneD[1:3]
+ d<- PlaneD[4]
+ }else{
+ StrV<- strsplit(PlaneD,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Tmp1<- StrV[1]
+ Tmp2<- StrV[2]
+ PlaneD<- paste(Tmp1,"-(",Tmp2,")",sep="")
+ }
+ x<- 0; y<- 0; z<- 0
+ d<- -eval(parse(text=PlaneD))
+ x<- 1; y<- 0; z<- 0
+ Tmp1<- eval(parse(text=PlaneD))+d
+ x<- 0; y<- 1; z<- 0
+ Tmp2<- eval(parse(text=PlaneD))+d
+ x<- 0; y<- 0; z<- 1
+ Tmp3<- eval(parse(text=PlaneD))+d
+ V1<- c(Tmp1,Tmp2,Tmp3)
+ }
+ for (I in Looprange(1,Mixlength(FaceL))){
+ Face<- Op(I,FaceL)
+ TmpL<- list()
+ for (J in Looprange(1,length(Face))){
+ N1<- Face[J]
+ if (J==length(Face)){
+ N2<- Face[1]
+ }else{
+ N2<- Face[J+1]
+ }
+ for (K in Looprange(1,Mixlength(PtL))){
+ Pd<- Op(K,PtL)
+ Tmp<- Op(1,Pd)
+ if (Tmp[1]==Tmp[2]){
+ if (Tmp[1]==N1){
+ TmpL<- c(TmpL,list(list(J,c(N1,N2),Op(2,Pd))))
+ }
+ }else{
+ if (all(Tmp==c(N1,N2)) || all(Tmp==c(N2,N1))){
+ TmpL<- c(TmpL,list(list(J,c(N1,N2),Op(2,Pd))))
+ }
+ }
+ }
+ }
+ if (Mixlength(TmpL)<2){
+ Flg<- 0
+ for (J in Looprange(1,length(Face))){
+ Tmp<- Op(Face[J],VL)
+ Tmp1<- Fugou*(Dotprod(V1,Tmp)-d)
+ if (Tmp1< -Eps){
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==0){
+ OutfL<- c(OutfL,list(Face))
+ }
+ next
+ }
+ Pd<- Op(1,TmpL)
+ Qd<- Op(2,TmpL)
+ Outf1<- c(Op(3,Pd))
+ Nf<- Op(1,Pd)+1
+ Tmp<- Op(2,Pd)
+ JJ<- 0
+ while (!all(Tmp==Op(2,Qd))){
+ JJ<- JJ+1
+ if (JJ>20){
+ print("bug")
+ return()
+ }
+ Tmp1<- Tmp[2]
+ if (Outf1[length(Outf1)]!=Tmp1){
+ Outf1<- c(Outf1,Tmp1)
+ }
+ Tmp<- c(Face[Nf])
+ Nf<- Nf+1
+ if (Nf>length(Face)){
+ Nf<- 1
+ }
+ Tmp<- c(Tmp,Face[Nf])
+ }
+ Tmp1<- Op(3,Qd)
+ if (Outf1[length(Outf1)]!=Tmp1){
+ Outf1<- c(Outf1,Tmp1)
+ }
+ Outf2<- c(Op(3,Pd))
+ Nf<- Op(1,Pd)
+ Tmp<- Op(2,Pd)
+ JJ<- 0
+ while (!all(Tmp==Op(2,Qd))){
+ JJ<- JJ+1
+ if (JJ>20){
+ print("bug")
+ return()
+ }
+ Tmp1<- Tmp[1]
+ if (Outf2[length(Outf2)]!=Tmp1){
+ Outf2<- c(Outf2,Tmp1)
+ }
+ Tmp<- c(Face[Nf])
+ Nf<- Nf-1
+ if (Nf<1){
+ Nf<- length(Face)
+ }
+ Tmp<- c(Face[Nf],Tmp)
+ }
+ Tmp1<- Op(3,Qd)
+ if (Outf2[length(Outf2)]!=Tmp1){
+ Outf2<- c(Outf2,Tmp1)
+ }
+ if (length(Outf1)<3 || length(Outf2)<3){
+ Face<- Outf1
+ if (length(Outf1)<length(Outf2)){
+ Face<- Outf2
+ }
+ Flg<- 0
+ for (J in Looprange(1,length(Face))){
+ Tmp<- Op(Face(J),VL)
+ Tmp1<- Fugou*(Dotprod(V1,Tmp)-d)
+ if (Tmp1<-Eps){
+ Flg<- 1
+ break
+ }
+ }
+ if (Flg==0){
+ OutfL<- c(OutfL,list(Face))
+ }
+ }else{
+ Tmp<- Op(Outf1[2],VL)
+ Tmp1<- Outf1
+ Tmp2<- Fugou*(Dotprod(V1,Tmp)-d)
+ if (Tmp2<0){
+ Tmp1<- Outf2
+ }
+ OutfL<- c(OutfL,list(Tmp1))
+ }
+ }
+ PHVERTEXL<<- VL
+ PHFACEL<<- OutfL
+ Out2<- Phcutdata(VL,OutfL,c(0,0,0,0))
+ return(Out2)
+}
+
+#######################
+
+Phparadata<- function(VL,FaceL){
+ Out<- Facesdata(list(VL,FaceL),"para")
+ return(Out)
+}
+
+####################################
+
+Phpersdata<- function(VL,FaceL){
+ Out<- Facesdata(list(VL,FaceL),"pers")
+ return(Out)
+}
+
+####################################
+
+Phspersdata<- function(Fdata){
+ Out<- Facesdata(Fdata,"pers")
+ return(Out)
+}
+
+####################################
+
+Phsparadata<- function(Fdata){
+ Out<- Facesdata(Fdata,"para")
+ return(Out)
+}
+
+#########################
+
+#100816
+Projpers<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Flg<- 0
+ if (Nargs==1 && Mixtype(varargin[[1]])==1){
+ Flg<- 1
+ }
+ CL<- list()
+ for (N in Looprange(1,Nargs)){
+ Crv<- varargin[[N]]
+ if (Mixtype(Crv)==1){
+ Tmp<- CameraCurve(Crv)
+ CL<- c(CL,list(Tmp))
+ }else{
+ if (Mixtype(Crv)==3){
+ ObjL<- list()
+ for (I in Looprange(1,Mixlength(Crv))){
+ Tmp1<- Op(I,Crv)
+ if (Mixtype(Tmp1)==1){
+ ObjL<- c(ObjL,list(Tmp1))
+ }else{
+ ObjL<- c(ObjL,Tmp1)
+ }
+ }
+ Crv<- ObjL
+ }
+ for (J in Looprange(1,Mixlength(Crv))){
+ Tmp<- CameraCurve(Op(J,Crv))
+ CL<- c(CL,list(Tmp))
+ }
+ }
+ }
+ if (Mixlength(CL)==1 && Flg==1){
+ CL<- Op(1,CL)
+ }
+ return(CL)
+}
+
+###################################
+
+ProjcoordCurve<- function(Curve){
+ SP<- sin(PHI); CP<- cos(PHI)
+ ST<- sin(THETA); CT<- cos(THETA)
+ Out<- c()
+ for (J in Looprange(1,Nrow(Curve))){
+ P<- Ptcrv(J,Curve)
+ x<- P[1]; y<- P[2]; z<- P[3]
+ Xz<- -x*SP+y*CP
+ Yz<- -x*CP*CT-y*SP*CT+z*ST
+ Zz<- x*CP*ST+y*SP*ST+z*CT
+ Out<- c(Out,Xz,Yz,Zz)
+ }
+ Out<- matrix(Out,ncol=3,byrow=TRUE)
+ return(Out)
+}
+
+#################################
+
+ProjCurve<- function(Curve){
+ Eps<- 10^(-6)
+ AnsL<- c()
+ SP<- sin(PHI); CP<- cos(PHI)
+ ST<- sin(THETA); CT<- cos(THETA)
+ for (I in Looprange(1,Nrow(Curve)) ){
+ P<- Curve[I,]
+ x<- P[1]; y<- P[2]; z<- P[3]
+ if (x!=Inf){
+ Xz<- -x*SP+y*CP
+ Yz<- -x*CP*CT-y*SP*CT+z*ST
+ Tmp<- c(Xz,Yz)
+ if (I==1){
+ AnsL<- c(Tmp)
+ }
+ else{
+ Tmp1<- AnsL[(length(AnsL)-1):length(AnsL)]
+ if (Tmp1[1]==Inf || Norm(Tmp-Tmp1)>Eps){
+ AnsL<- c(AnsL,Tmp)
+ }
+ }
+ }
+ else{
+ AnsL<- c(AnsL,c(Inf,Inf))
+ }
+ }
+ AnsL<- matrix(AnsL,ncol=2,byrow=TRUE)
+ return(AnsL)
+}
+
+####################################
+
+Projpara<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Flg<- 0
+ if (Nargs==1 && Mixtype(varargin[[1]])==1){
+ Flg<- 1
+ }
+ CL<- list()
+ for (N in Looprange(1,Nargs)){
+ Crv<- varargin[[N]]
+ if (Mixtype(Crv)==1){
+ Tmp<- ProjCurve(Crv)
+ CL<- c(CL,list(Tmp))
+ }
+ else{
+ if (Mixtype(Crv)==3){
+ ObjL<- list()
+ for (I in Looprange(1,Mixlength(Crv))){
+ Tmp1<- Op(I,Crv)
+ if (Mixtype(Tmp1)==1){
+ ObjL<- c(ObjL,list(Tmp1))
+ }
+ else{
+ ObjL<- c(ObjL,Tmp1)
+ }
+ }
+ Crv<- ObjL
+ }
+ for (J in Looprange(1,Mixlength(Crv))){
+ Tmp<- ProjCurve(Op(J,Crv))
+ CL<- c(CL,list(Tmp))
+ }
+ }
+ }
+ if (Mixlength(CL)==1 && Flg==1){
+ CL<- Op(1,CL)
+ }
+ return(CL)
+}
+
+#########################
+
+#100816
+Projpers<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Flg<- 0
+ if (Nargs==1 && Mixtype(varargin[[1]])==1){
+ Flg<- 1
+ }
+ CL<- list()
+ for (N in Looprange(1,Nargs)){
+ Crv<- varargin[[N]]
+ if (Mixtype(Crv)==1){
+ Tmp<- CameraCurve(Crv)
+ CL<- c(CL,list(Tmp))
+ }else{
+ if (Mixtype(Crv)==3){
+ ObjL<- list()
+ for (I in Looprange(1,Mixlength(Crv))){
+ Tmp1<- Op(I,Crv)
+ if (Mixtype(Tmp1)==1){
+ ObjL<- c(ObjL,list(Tmp1))
+ }else{
+ ObjL<- c(ObjL,Tmp1)
+ }
+ }
+ Crv<- ObjL
+ }
+ for (J in Looprange(1,Mixlength(Crv))){
+ Tmp<- CameraCurve(Op(J,Crv))
+ CL<- c(CL,list(Tmp))
+ }
+ }
+ }
+ if (Mixlength(CL)==1 && Flg==1){
+ CL<- Op(1,CL)
+ }
+ return(CL)
+}
+
+#########################################
+# 11.08.27
+# 14.03.23 Debugged "center"
+
+Rotate3data<- function(...){
+#Eps=10^(-4)
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Pd3<- varargin[[1]]
+ W1<- varargin[[2]]
+ W2<- varargin[[3]]
+ C<- c(0,0,0)
+ if (Nargs>=4){
+ C<- varargin[[4]]
+ }
+ if (Mixtype(Pd3)==1){
+ Pd3<- list(Pd3)
+ } else if (Mixtype(Pd3)==3){
+ Tmp<- list()
+ for (I in Looprange(1,Mixlength(Pd3))){
+ Tmp<- c(Tmp,Op(I,Pd3))
+ }
+ Pd3<- Tmp
+ }
+ Out<- list()
+ for (I in Looprange(1,Mixlength(Pd3))){
+ PD<- Op(I,Pd3)
+ Ans<- c()
+ for (J in Looprange(1,Nrow(PD))){
+ if(is.matrix(PD)){ # 11.08.27
+ P<- PD[J,]
+ }
+ else{
+ P<- PD
+ }
+ Tmp<- Rotate3pt(P,W1,W2,C) # 14.03.23
+ Ans<- rbind(Ans,Tmp)
+ } # 11.08.27
+ rownames(Ans)<- 1:Nrow(Ans) #10.08.16
+ Out<- c(Out,list(Ans))
+ }
+ if (Mixlength(Out)==1){
+ Out<- Op(1,Out)
+ }
+ return(Out)
+}
+
+#######################################
+
+Rotate3pt<- function(...){
+ varargin<-list(...)
+ Eps<-10^(-4)
+ Nargs<-length(varargin)
+ P<- varargin[[1]]
+ W1<- varargin[[2]]
+ W2<- varargin[[3]]
+ C<- c(0,0,0)
+ if (Nargs>=4){
+ C<- varargin[[4]]
+ }
+ if (mode(W2)=="numeric" && length(W2)==1){
+ Ct<- cos(W2)
+ St<- sin(W2)
+ V3<- 1/Norm(W1)*W1
+ if (V3[1]==0){
+ Tmp<- c(1,0,0)
+ }else{
+ Tmp<- c(0,1,0)
+ }
+ W1<- c(Tmp[2]*V3[3]-Tmp[3]*V3[2],
+ Tmp[3]*V3[1]-Tmp[1]*V3[3],
+ Tmp[1]*V3[2]-Tmp[2]*V3[1])
+ V1<- 1/Norm(W1)*W1
+ V2<- c(V3[2]*V1[3]-V3[3]*V1[2],
+ V3[3]*V1[1]-V3[1]*V1[3],
+ V3[1]*V1[2]-V3[2]*V1[1])
+ }else{
+ Tmp<- c(W1[2]*W2[3]-W1[3]*W2[2],
+ W1[3]*W2[1]-W1[1]*W2[3],
+ W1[1]*W2[2]-W1[2]*W2[1])
+ if (Norm(Tmp)<Eps){
+ Ans<- P
+ return(Ans)
+ }
+ V1<- 1/Norm(W1)*W1
+ Ns<- V1[1]*W2[1]+V1[2]*W2[2]+V1[3]*W2[3]
+ Tmp<- W2-Ns*V1
+ V2<- 1/Norm(Tmp)*Tmp
+ Tmp<- c(V1[2]*V2[3]-V1[3]*V2[2],
+ V1[3]*V2[1]-V1[1]*V2[3],
+ V1[1]*V2[2]-V1[2]*V2[1])
+ V3<- 1/Norm(Tmp)*Tmp
+ Ct<- Ns/Norm(W2)
+ St<- sqrt(1-Ct^2)
+ }
+ if (Norm(Tmp)<Eps){
+ Ans<- P
+ return(Ans)
+ }
+ V1x<- V1[1]; V1y<- V1[2]; V1z<- V1[3]
+ V2x<- V2[1]; V2y<- V2[2]; V2z<- V2[3]
+ V3x<- V3[1]; V3y<- V3[2]; V3z<- V3[3]
+ if (Mixtype(P)!=1){
+ PtL<- P
+ }else{
+ PtL<- list(P)
+ }
+ Ans<- list()
+ for (N in Looprange(1,Mixlength(PtL))){
+ P<- Op(N,PtL)
+ if (P[1]==Inf){
+ Ans<- c(Ans,list(c(Inf,Inf,Inf)))
+ next
+ }
+ x<- P[1]-C[1]; y=P[2]-C[2]; z=P[3]-C[3]
+ Tmp1<- ((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x
+ Tmp2<- ((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y
+ Tmp3<- ((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z
+ X<- Tmp1+Tmp2+Tmp3
+ Tmp1<- ((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x
+ Tmp2<- ((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y
+ Tmp3<- ((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z
+ Y<- Tmp1+Tmp2+Tmp3
+ Tmp1<- ((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x
+ Tmp2<- ((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y
+ Tmp3<- ((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z
+ Z<- Tmp1+Tmp2+Tmp3
+ Ans<- c(Ans,list(C+c(X,Y,Z)))
+ }
+ if (Mixlength(Ans)==1){
+ Ans<- Op(1,Ans)
+ }
+ return(Ans)
+}
+
+######################################
+
+Setangle<- function(...){
+ Eps<- 10^(-6)
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ if (Nargs==0) {
+ }
+ else if(Nargs==1){
+ V<- varargin[[1]]
+ V<- V/Norm(V)
+ THETA<<- acos(V[3])
+ if(abs(sin(THETA))<Eps){
+ PHI<<- 0
+ }
+ else{
+ PHI<<- acos(V[1]/sin(THETA))
+ if(V[2]< -Eps) PHI<<- -PHI
+ }
+ }
+ else{
+ PHI<<- varargin[[2]]*pi/180
+ THETA<<- varargin[[1]]*pi/180
+ }
+ Out<- paste("theta=",as.character(THETA*180/pi)," phi=",
+ as.character(PHI*180/pi),sep="")
+ return (Out)
+}
+
+#################################
+
+Setpers<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ if (Nargs==0){
+ }
+ else{
+ FocusPoint<<- varargin[[1]]
+ EyePoint<<- varargin[[2]]
+ }
+ F<- as.character(FocusPoint)
+ E<- as.character(EyePoint)
+ Out<- paste("Focus = c(",F[1],",",F[2],",",F[3],") , ",
+ " Eye = c(", E[1],",",E[2],",",E[3],") ",sep="")
+ return (Out)
+}
+
+#################################
+
+SetstereoL<- function(R,T,P,H){
+ X<- R*sin(T*pi/180)*cos(P*pi/180)
+ Y<- R*sin(T*pi/180)*sin(P*pi/180)
+ Z<- R*cos(T*pi/180)
+ Eye<- c(X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z)
+ Out<- Setpers(c(0,0,0),Eye)
+ return(Out)
+}
+
+#################################
+
+SetstereoR<- function(R,T,P,H){
+ X<- R*sin(T*pi/180)*cos(P*pi/180)
+ Y<- R*sin(T*pi/180)*sin(P*pi/180)
+ Z<- R*cos(T*pi/180)
+ Eye<- c(X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z)
+ Out<- Setpers(c(0,0,0),Eye)
+ return(Out)
+}
+
+###############################
+
+Sf3data<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ FdL<- Fullformfunc(varargin[[1]])
+ F<- Op(1,FdL)
+ Xf<- Op(2,FdL)
+ Yf<- Op(3,FdL)
+ Zf<- Op(4,FdL)
+ Urg<- Op(5,FdL)
+ Vrg<- Op(6,FdL)
+ Str<- strsplit(Urg,"=",fixed=TRUE)[[1]]
+ U<- Str[1]
+ Tmp<- Str[2]
+ Tmp<- eval(parse(text=Tmp))
+ Umin<- Tmp[1]; Umax<- Tmp[2]
+ Str<- strsplit(Vrg,"=",fixed=TRUE)[[1]]
+ V<- Str[1]
+ Tmp<- Str[2]
+ Tmp<- eval(parse(text=Tmp))
+ Vmin<- Tmp[1]; Vmax<- Tmp[2]
+ Ndu<- 25 ; Ndv<- 25; Np<- c(50,50)
+ if (Nargs>=3){
+ Ndu<- varargin[[2]]
+ Ndv<- varargin[[3]]
+ }
+ if (Nargs>=4){
+ Np<- varargin[[4]]
+ if (mode(Np)=="numeric" && length(Np)==1){
+ Np<- c(Np,Np)
+ }
+ }
+ Du<- (Umax-Umin)/Ndu
+ Dv<- (Vmax-Vmin)/Ndv
+ PL <- c()#PL <- []
+ Assign("Vmin",Vmin,"Vmax",Vmax)
+ Trgstr<- Assign("t=c(Vmin,Vmax)")
+ PL <- list()
+ for (I in Looprange(0,Ndu)){
+ U0 <- paste("(",as.character(Umin+I*Du),")",sep="")
+ Tmp<- gsub(U,U0,Xf,fixed=TRUE)
+ Tmp1<- gsub(V,"t",Tmp,fixed=TRUE)
+ Tmp<- gsub(U,U0,Yf,fixed=TRUE)
+ Tmp2<- gsub(V,"t",Tmp,fixed=TRUE)
+ Tmp<- gsub(U,U0,Zf,fixed=TRUE)
+ Tmp3<- gsub(V,"t",Tmp,fixed=TRUE)
+ Tmp<- paste("c(",Tmp1,",",Tmp2,",",Tmp3,")",sep="")
+ PD<- Spacecurve(Tmp,Trgstr,paste("N=",as.character(Np[2])))
+ PL<- c(PL,list(PD))
+ }
+ Assign("Umin",Umin,"Umax",Umax)
+ Trgstr<- Assign("t=c(Umin,Umax)")
+ for (J in Looprange(0,Ndv)){
+ V0<- paste("(",as.character(Vmin+J*Dv),")",sep="")
+ Tmp<- gsub(V,V0,Xf,fixed=TRUE)
+ Tmp1<- gsub(U,"t",Tmp,fixed=TRUE)
+ Tmp<- gsub(V,V0,Yf,fixed=TRUE)
+ Tmp2<- gsub(U,"t",Tmp,fixed=TRUE)
+ Tmp<- gsub(V,V0,Zf,fixed=TRUE)
+ Tmp3<- gsub(U,"t",Tmp,fixed=TRUE)
+ Tmp<- paste("c(",Tmp1,",",Tmp2,",",Tmp3,")")
+ PD<- Spacecurve(Tmp,Trgstr,paste("N=",as.character(Np[1])))
+ PL<- c(PL,list(PD))
+ }
+ return(PL)
+}
+
+###################################
+
+Skeletonparadata<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Out<- list()
+ ObjL<- Flattenlist(varargin[[1]])
+ Plt3L<- Flattenlist(varargin[[2]])
+ R<- 0.075*1000/2.54/MilliIn
+ if (Nargs>2){
+ R<- R*varargin[[3]]
+ }
+ Eps2<- 0.05
+ if (Nargs>3){
+ Eps2<- varargin[[4]]
+ }
+ Obj2L<- list()
+ for (I in Looprange(1,Mixlength(ObjL))){
+ Tmp<- ProjcoordCurve(Op(I,ObjL))
+ Obj2L<- c(Obj2L,list(Tmp))
+ }
+ Plt2L<- list()
+ for (I in Looprange(1,Mixlength(Plt3L))){
+ Tmp<- ProjcoordCurve(Op(I,Plt3L))
+ Plt2L<- c(Plt2L,list(Tmp))
+ }
+ Out<- Makeskeletondata(Obj2L,Plt2L,R,Eps2)
+ return(Out)
+}
+
+################################
+
+Skeletonpara3data<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ ObjL<- Flattenlist(varargin[[1]])
+ Plt3L<- Flattenlist(varargin[[2]])
+ R<- 0.075*1000/2.54/MilliIn
+ if (Nargs>2){
+ R=R*varargin[[3]]
+ }
+ Eps2<- 0.05
+ if (Nargs>3){
+ Eps2<- varargin[[4]]
+ }
+ Plt2L<- list()
+ for (I in Looprange(1,Mixlength(Plt3L))){
+ Tmp<- ProjcoordCurve(Op(I,Plt3L))
+ Plt2L<- c(Plt2L,list(Tmp))
+ }
+ Out<- list()
+ for (I in Looprange(1,Mixlength(ObjL))){
+ Obj3<- Op(I,ObjL)
+ Tmp<- ProjcoordCurve(Obj3)
+ Data<- Makeskeletondata(list(Tmp),Plt2L,R,Eps2)
+ for (J in Looprange(1,Mixlength(Data))){
+ Gd<- Op(J,Data)
+ PtD<- c()
+ for (J in Looprange(1,Nrow(Gd))){
+ Tmp<- Ptcrv(J,Gd)
+ Tmp1<- Invparapt(Tmp,Obj3)
+ Tmp1<- Op(1,Tmp1)
+ PtD<- c(PtD,Tmp1)
+ }
+ PtD<- matrix(PtD,ncol=3,byrow=TRUE)
+ Out<- c(Out,list(PtD))
+ }
+ }
+ return(Out)
+}
+
+#################################
+
+#100815
+Skeletonpersdata<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Out<- list()
+ ObjL<- Flattenlist(varargin[[1]])
+ Plt3L<- Flattenlist(varargin[[2]])
+ R<- 0.075*1000/2.54/MilliIn
+ if (Nargs>2){
+ R<- R*varargin[[3]]
+ }
+ Eps2<- 0.05
+ if (Nargs>3){
+ Eps2<- varargin[[4]]
+ }
+ Obj2L<- list()
+ for (I in Looprange(1,Mixlength(ObjL))){
+ Tmp<- CameracoordCurve(Op(I,ObjL))
+ Obj2L<- c(Obj2L,list(Tmp))
+ }
+ Plt2L<- list()
+ for (I in Looprange(1,Mixlength(Plt3L))){
+ Tmp<- CameracoordCurve(Op(I,Plt3L))
+ Plt2L<- c(Plt2L,list(Tmp))
+ }
+ Out<- Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2)
+ return(Out)
+}
+
+#####################
+#100815
+Skeletonpers3data<- function(...){
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Out<- list()
+ ObjL<- Flattenlist(varargin[[1]])
+ Plt3L<- Flattenlist(varargin[[2]])
+ R<- 0.075*1000/2.54/MilliIn
+ if (Nargs>2){
+ R<- R*varargin[[3]]
+ }
+ Eps2<- 0.05
+ if (Nargs>3){
+ Eps2<- varargin[[4]]
+ }
+ Plt2L<- list()
+ for (I in Looprange(1,Mixlength(Plt3L))){
+ Tmp<- CameracoordCurve(Op(I,Plt3L))
+ Plt2L<- c(Plt2L,list(Tmp))
+ }
+ Out<- list()
+ for (I in Looprange(1,Mixlength(ObjL))){
+ Obj3<- Op(I,ObjL)
+ Tmp<- CameracoordCurve(Obj3)
+ Data<- Makeskeletonpersdata(list(Tmp),Plt2L,R,Eps2)
+ for (J in Looprange(1,Mixlength(Data))){
+ Gd<- Op(J,Data)
+ PtD<- c()
+ for (J in Looprange(1,Nrow(Gd))){
+ Tmp<- Gd[J,]
+ Tmp1<- Invperspt(Tmp,Obj3)
+ Tmp1<- Op(1,Tmp1)
+ PtD<- rbind(PtD,Tmp1)
+ }
+ Out<- c(Out,list(PtD))
+ }
+ }
+ return(Out)
+}
+
+#################################
+
+Spacecurve<- function(...){
+ Eps<- 10^(-5)
+ varargin<-list(...)
+ Nargs<- length(varargin)
+ Fnstr<- varargin[[1]]
+ Rgstr<- varargin[[2]]
+ Range<- c(0,2*pi)
+ N<- 50 #Numpoints
+ E<- c() #Exclusions
+ D<- Inf #Discont (Changed)
+ for(I in Looprange(3,Nargs)){
+ Tmp<- varargin[[I]]
+ StrV<- strsplit(Tmp,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ Tmp1<- toupper(StrV[1])
+ Lhs<- substr(Tmp1,1,1)
+ Str<- paste(Lhs,"=",StrV[2])
+ eval(parse(text=Str))
+ }
+ StrV<- strsplit(Rgstr,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if (length(StrV)>1){
+ Vname<- StrV[1]
+ Rng<- eval(parse(text=StrV[2]))
+ }
+ else{
+ Vname<- Rgstr
+ Rng<- c(XMIN,XMAX)
+ }
+ T1<- Rng[1]; T2<- Rng[2]
+ Dt<- (T2-T1)/N #17.09.22
+ Str<- gsub(Vname,"t",Fnstr)
+ P<- c()
+# E<- sort(E,decreasing=FALSE)
+ E<- c(E,Inf)
+ E<- sort(E,decreasing=FALSE)
+ Ke<- 1
+ t<- T1
+ while(t<T2+Eps){
+ Pa<- c()
+ if (t-E[Ke]< Eps){
+ Pa<- eval(parse(text=Str))
+ }
+ if (abs(t-E[Ke])<=Eps){
+ if (length(P)>0 && P[Nrow(P),1]!=Inf){
+ Pa<- c(Inf,Inf,Inf)
+ }
+ }
+ if (t-E[Ke]>Eps){
+ Pa<- eval(parse(text=Str))
+ Ke<- Ke+1
+ }
+ if (length(Pa)>0){
+ if (Pa[1]==Inf){
+ P<- rbind(P,Pa)
+ }else if (length(P)==0){
+ P<- rbind(c(),c(Pa))
+ }
+ else{
+ Tmp<- P[Nrow(P),]
+ if (Tmp[1]==Inf){
+ P<- rbind(P,Pa)
+ }
+ else if( Norm(Tmp-Pa)<D){
+ P<- rbind(P,Pa)
+ }
+ else{
+ P<- rbind(P,c(Inf,Inf,Inf))
+ P<- rbind(P,Pa)
+ }
+ }
+ }
+ t<- t+Dt
+ }
+ rownames(P)<- 1:Nrow(P) # 10.08.16
+ return(P)
+}
+
+########################################
+
+Spaceline<- function(...){
+ varargin<- list(...)
+ Z<- c()
+ for(I in 1:length(varargin)){
+ Data<- varargin[[I]]
+ if (Mixtype(Data)==1){
+ J<- 1
+ while (J<=Ncol(Data)){
+ Tmp<- Data[J:(J+2)]
+ Z<-c(Z,Tmp)
+ J<- J+3
+ }
+ next
+ }
+ if(Mixtype(Data)==3){
+ Tmp<- list()
+ for(I in 1:Mixlength(Data)){
+ Tmp<- c(Tmp,Op(I,Data))
+ }
+ Data<- Tmp
+ }
+ for(J in 1:Mixlength(Data)){
+ Tmp<- Op(J,Data)
+ Z<- c(Z,Tmp)
+ }
+ }
+ Z<- matrix(Z,ncol=3,byrow=TRUE)
+ return(Z)
+}
+
+#################################
+
+Translate3data<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Pd3<- varargin[[1]]
+ Mv<- varargin[[2]]
+ if(mode(Mv)=="numerice" && length(Mv)==1){
+ Mv<- c(varargin[[2]],varargin[[3]],varargin[[4]])
+ }
+ if(Mixtype(Pd3)==1){
+ Pd3<- list(Pd3)
+ }
+ else if(Mixtype(Pd3)==3){
+ Tmp<-list()
+ for(I in Looprange(1,Mixlength(Pd3))){
+ Tmp<- c(Tmp, Op(I,Pd3))
+ }
+ Pd3<- Tmp
+ }
+ Out<- list()
+ for(I in Looprange(1,Mixlength(Pd3))){
+ PD<- Op(I,Pd3)
+ PD<- rbind(c(),PD)
+ Ans<- c()
+ for(J in Looprange(1,Nrow(PD))){
+ P<- PD[J,]
+ Tmp<- P+Mv
+ Ans<- rbind(Ans,Tmp)
+ }
+ rownames(Ans)<- 1:Nrow(Ans)
+ Out<- c(Out,list(Ans))
+ }
+ if(Mixlength(Out)==1){
+ Out<- Op(1,Out)
+ }
+ return(Out)
+}
+
+###############################################
+
+Xyzax3data<- function(Xrange,Yrange,Zrange){
+ StrV<-strsplit(Xrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1) StrV<- StrV[2]
+ Tmp<- eval(parse(text=StrV))
+ Px<- c(Tmp[1],0,0)
+ Qx<- c(Tmp[2],0,0)
+ StrV<-strsplit(Yrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1) StrV<- StrV[2]
+ Tmp<- eval(parse(text=StrV))
+ Py<- c(0,Tmp[1],0)
+ Qy<- c(0,Tmp[2],0)
+ StrV<-strsplit(Zrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1) StrV<- StrV[2]
+ Tmp<- eval(parse(text=StrV))
+ Pz<- c(0,0,Tmp[1])
+ Qz<- c(0,0,Tmp[2])
+ Out<- list(Spaceline(Px,Qx),Spaceline(Py,Qy),Spaceline(Pz,Qz))
+ return(Out)
+}
+
+###################################
+
+Xyzaxparaname<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Eps<- 10.0^(-6)
+ Dr<- 0.19*1000/2.54/MilliIn
+ Tmp<- varargin[[Nargs]]
+ if (Nargs>1 && is.numeric(Tmp)){
+ Dr<- Dr*Tmp
+ Nargs<- Nargs-1
+ }
+ if (mode(varargin[[1]])=="character"){
+ Xname<- "x"
+ Yname<- "y"
+ Zname<- "z"
+ Xrange<- varargin[[1]]
+ Yrange<- varargin[[2]]
+ Zrange<- varargin[[3]]
+ StrV<-strsplit(Xrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Xname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Px<- c(Tmp[1],0,0)
+ Qx<- c(Tmp[2],0,0)
+ StrV<-strsplit(Yrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Yname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Py<- c(0,Tmp[1],0)
+ Qy<- c(0,Tmp[2],0)
+ StrV<-strsplit(Zrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Zname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Pz<- c(0,0,Tmp[1])
+ Qz<- c(0,0,Tmp[2])
+ }else{
+ Data<- varargin[[1]]
+ Xname<- "x"; Yname<- "y"; Zname<- "z"
+ if (Nargs>1){
+ if (varargin[[2]]!=""){
+ Xname<- varargin[[2]]
+ }
+ if (varargin[[3]]!=""){
+ Yname<- varargin[[3]]
+ }
+ if (varargin[[4]]!=""){
+ Zname<- varargin[[4]]
+ }
+ }
+ Tmp<- Op(1,Data)
+ Px<- Tmp[1,]; Qx<- Tmp[2,]
+ Tmp<- Op(2,Data)
+ Py<- Tmp[1,]
+ Qy<- Tmp[2,]
+ Tmp<- Op(3,Data)
+ Pz<- Tmp[1,]
+ Qz<- Tmp[2,]
+ }
+ Ph<- Parapt(Px); Qh<- Parapt(Qx); R<-Norm(Ph-Qh)
+ Kekka<- list()
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Xname)
+ }
+ Ph<- Parapt(Py); Qh<- Parapt(Qy); R<- Norm(Ph-Qh)
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Yname)
+ }
+ Ph<- Parapt(Pz); Qh<- Parapt(Qz); R<- Norm(Ph-Qh)
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Zname)
+ }
+# return(Kekka)
+}
+
+###################################
+
+Xyzaxpersname<- function(...){
+ varargin<- list(...)
+ Eps<- 10.0^(-6)
+ Nargs<- length(varargin)
+ Dr<- 0.19*1000/2.54/MilliIn
+ Tmp<- varargin[[Nargs]]
+ if (Nargs>1 && mode(Tmp)=="numeric"){
+ Dr<- Dr*Tmp
+ Nargs<- Nargs-1
+ }
+ if (mode(varargin[[1]])=="character"){
+ Xname<- "x"
+ Yname<- "y"
+ Zname<- "z"
+ Xrange<- varargin[[1]]
+ Yrange<- varargin[[2]]
+ Zrange<- varargin[[3]]
+ StrV<-strsplit(Xrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Xname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Px<- c(Tmp[1],0,0)
+ Qx<- c(Tmp[2],0,0)
+ StrV<-strsplit(Yrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Yname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Py<- c(0,Tmp[1],0)
+ Qy<- c(0,Tmp[2],0)
+ StrV<-strsplit(Zrange,"=",fixed=TRUE)
+ StrV<- StrV[[1]]
+ if(length(StrV)>1){
+ Zname<- StrV[1]
+ StrV<- StrV[2]
+ }
+ Tmp<- eval(parse(text=StrV))
+ Pz<- c(0,0,Tmp[1])
+ Qz<- c(0,0,Tmp[2])
+ }else{
+ Data<- varargin[[1]]
+ Xname<- "x"; Yname<- "y"; Zname<- "z"
+ if (Nargs>1){
+ if (varargin[[2]]!=""){
+ Xname<- varargin[[2]]
+ }
+ if (varargin[[3]]!=""){
+ Yname<- varargin[[3]]
+ }
+ if (varargin[[4]]!=""){
+ Zname<- varargin[[4]]
+ }
+ }
+ Tmp<- Op(1,Data)
+ Px<- Tmp[1,]; Qx<- Tmp[2,]
+ Tmp<- Op(2,Data)
+ Py<- Tmp[1,]
+ Qy<- Tmp[2,]
+ Tmp<- Op(3,Data)
+ Pz<- Tmp[1,]
+ Qz<- Tmp[2,]
+ }
+ Ph<- Perspt(Px)
+ Qh<- Perspt(Qx)
+ R<- Norm(Ph-Qh)
+ Kekka<- list()
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Xname)
+ }
+ Ph<- Perspt(Py)
+ Qh<- Perspt(Qy)
+ R<- Norm(Ph-Qh)
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Yname)
+ }
+ Ph<- Perspt(Pz)
+ Qh<- Perspt(Qz)
+ R<- Norm(Ph-Qh)
+ if (R>Eps){
+ Ch<- Qh+Dr/R*(Qh-Ph)
+ Kekka<- c(Kekka,list(Pointdata(Ch)))
+ Expr(Ch,"c",Zname)
+ }
+# return(Kekka)
+}
+
+#########################
+#100815
+Zparapt<- function(P){#function Out=Zparapt(P)
+ x<- P[1]; y<- P[2]; z<- P[3]
+ Out<- x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA)
+ return(Out)
+}
+
+#########################
+#100815
+Zperspt<- function(P){
+ Tmp<- P-FocusPoint
+ X1<- Tmp[1]; Y1<- Tmp[2]; Z1<- Tmp[3]
+ Tmp<- EyePoint-FocusPoint
+ E1<- Tmp[1]; F1<- Tmp[2]; G1<- Tmp[3]
+ Ca<- E1/sqrt(E1^2+F1^2)
+ Sa<- F1/sqrt(E1^2+F1^2)
+ X2<- X1*Ca+Y1*Sa; Y2<- -X1*Sa+Y1*Ca; Z2<- Z1
+ E2<- E1*Ca+F1*Sa; F2<- -E1*Sa+F1*Ca; G2<- G1
+ Cb<- E2/sqrt(E2^2+G2^2)
+ Sb<- G2/sqrt(E2^2+G2^2)
+ X3<- X2*Cb+Z2*Sb
+ return(X3)
+}
+
+##########################################
+
+
+
+##########################################
+
+# Stat Package
+
+##########################################
+
+# 2010.04.12
+
+# new
+
+# Htickmarklower, Vtickmarkleft, HtickmarklowerV
+# VtickmarkleftV, Insertcom, Replacecom
+# Maketexfile, Formatting
+# Drwhistframe, Histplotdata, Drwhistplot
+
+Htickmarklower<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ ArgsL<- varargin
+ if (mode(ArgsL[[1]])=="character"){
+ Str<- ArgsL[[1]]
+ Tmp<- strsplit(Str,"m")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ I<- nchar(Tmp[1])+1
+ }
+ else{
+ I<- 0
+ }
+ Tmp<- strsplit(Str,"n")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ J<- nchar(Tmp[1])+1
+ }
+ else{
+ J<- 0
+ }
+ Tmp<- strsplit(Str,"r")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ K=nchar(Tmp[1])+1
+ }
+ else{
+ K<- 0
+ }
+ if (K>0){
+ S<- substr(Str,K+1,nchar(Str))
+ R<- as.numeric(S)
+ if (is.na(R)){
+ R<- 1
+ }
+ }
+ else{
+ R<- 1
+ K<- nchar(Str)+1
+ }
+ if (J>0){
+ S<- substr(Str,J+1,K-1)
+ Dn<- as.numeric(S)
+ if (is.na(Dn)){
+ Dn<- 1
+ }
+ }
+ else{
+ Dn<- 1000
+ J<- nchar(Str)+1
+ }
+ S<- substr(Str,I+1,J-1)
+ Dm<- as.numeric(S)
+ if (is.na(Dm)){
+ Dm<- 1
+ }
+ ArgsL<- list()
+ for (I in Looprange(1, floor((XMAX-GENTEN[1])/Dm))){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ for (I in seq(-1,ceiling((XMIN-GENTEN[1])/Dm),by=-1)){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ }
+ MemoriList<- list()
+ Memori<- list()
+ for (N in 1:length(ArgsL)){
+ Dt<- ArgsL[[N]]
+ if (mode(Dt)=="numeric" && length(Dt)>1){
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt)
+ next
+ }
+ if (mode(Dt)=="character"){
+ Memori<- Mixjoin(Memori,Dt)
+ }
+ else{
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt,GENTEN[2])
+ }
+ }
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ for (N in 1:length(MemoriList)){
+ Dt<- MemoriList[[N]]
+ Ndt<- length(Dt)
+ X=Op(1,Dt)
+ Y=Op(2,Dt)
+ Tmp<-Doscaling(c(X,Y))
+ X<- Tmp[1]
+ Y<- Tmp[2]
+ Moji<- Op(Ndt,Dt)
+ Tmp1<- Unscaling(c(X,Y))
+ Tmp2<- Unscaling(c(X,Y-2*MARKLEN))
+ Fd<- Listplot(c(Tmp1,Tmp2))
+ Drwline(Fd)
+ if (Ndt==3){
+ Tmp<-Unscaling(c(X,Y-2*MARKLEN))
+ Expr(Tmp,"s",Moji)
+ }
+ if (Ndt==4){
+ Houkou<- Op(3,Dt)
+ Tmp<-grep("s",Houkou)
+ if (length(Tmp)>0){
+ Tmp<-Unscaling(c(X,Y-2*MARKLEN))
+ Expr(Tmp,Houkou,Moji)
+ }
+ else{
+ Tmp<- Unscaling(c(X,Y))
+ Expr(Tmp,Houkou,Moji)
+ }
+ }
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+Vtickmarkleft<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ ArgsL<- varargin
+ if (mode(ArgsL[[1]])=="character"){
+ Str<- ArgsL[[1]]
+ Tmp<- strsplit(Str,"m")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ I<- nchar(Tmp[1])+1
+ }
+ else{
+ I<- 0
+ }
+ Tmp<- strsplit(Str,"n")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ J<- nchar(Tmp[1])+1
+ }
+ else{
+ J<- 0
+ }
+ Tmp<- strsplit(Str,"r")
+ Tmp<- Tmp[[1]]
+ if (length(Tmp)>1){
+ K=nchar(Tmp[1])+1
+ }
+ else{
+ K<- 0
+ }
+ if (K>0){
+ S<- substr(Str,K+1,nchar(Str))
+ R<- as.numeric(S)
+ if (is.na(R)){
+ R<- 1
+ }
+ }
+ else{
+ R<- 1
+ K<- nchar(Str)+1
+ }
+ if (J>0){
+ S<- substr(Str,J+1,K-1)
+ Dn<- as.numeric(S)
+ if (is.na(Dn)){
+ Dn<- 1
+ }
+ }
+ else{
+ Dn<- 1000
+ J<- nchar(Str)+1
+ }
+ S<- substr(Str,I+1,J-1)
+ Dm<- as.numeric(S)
+ if (is.na(Dm)){
+ Dm<- 1
+ }
+ ArgsL<- list()
+ for (I in 1:floor((YMAX-GENTEN[2])/Dm)){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ for (I in seq(-1,ceiling((YMIN-GENTEN[2])/Dm))){
+ ArgsL<- Mixjoin(ArgsL,I*Dm)
+ if (I-floor(I/Dn)*Dn==0){
+ Str<- as.character(I*Dm*R)
+ ArgsL<- Mixjoin(ArgsL,Str)
+ }
+ }
+ }
+ MemoriList<- list()
+ Memori<- list()
+ for (N in 1:length(ArgsL)){
+ Dt<- ArgsL[[N]]
+ if (mode(Dt)=="numeric" && length(Dt)>1){
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(Dt)
+ next
+ }
+ if (mode(Dt)=="character"){
+ Memori<- Mixjoin(Memori,Dt)
+ }
+ else{
+ if (length(Memori)>0){
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ }
+ Memori<- list(GENTEN[1],Dt)
+ }
+ }
+ MemoriList<- Mixjoin(MemoriList,list(Memori))
+ for (N in 1:length(MemoriList)){
+ Dt<- MemoriList[[N]]
+ Ndt<- length(Dt)
+ X=Op(1,Dt)
+ Y=Op(2,Dt)
+ Tmp<-Doscaling(c(X,Y))
+ X<- Tmp[1]
+ Y<- Tmp[2]
+ Moji<- Op(Ndt,Dt)
+ Tmp1<- Unscaling(c(X,Y))
+ Tmp2<- Unscaling(c(X-2*MARKLEN,Y))
+ Fd<- Listplot(c(Tmp1,Tmp2))
+ Drwline(Fd)
+ if (Ndt==3){
+ Tmp<-Unscaling(c(X-2*MARKLEN,Y))
+ Expr(Tmp,"w",Moji)
+ }
+ if (Ndt==4){
+ Houkou<- Op(3,Dt)
+ Tmp<-grep("w",Houkou)
+ if (length(Tmp)>0){
+ Tmp<-Unscaling(c(X-2*MARKLEN,Y))
+ Expr(Tmp,Houkou,Moji)
+ }
+ else{
+ Tmp<- Unscaling(c(X,Y))
+ Expr(Tmp,Houkou,Moji)
+ }
+ }
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+}
+
+HtickmarklowerV<- function(Vec,digits=2,nsmall=2)
+{
+ for (I in 1:length(Vec)){
+ Tmp<- Vec[I]
+ Htickmarklower(Tmp, Formatting(Tmp,digits,nsmall))
+ }
+}
+
+HtickLV<- function(...)
+{
+ HtickmarklowerV(...)
+}
+
+VtickmarkleftV<- function(Vec,digits=2,nsmall=2)
+{
+ for (I in 1:length(Vec)){
+ Tmp<- Vec[I]
+ Vtickmarkleft(Tmp, Formatting(Tmp,digits,nsmall))
+ }
+}
+
+VtickLV<- function(...)
+{
+ VtickmarkleftV(...)
+}
+
+Insertcom<- function(CmdM,Npos,Str)
+{
+ if (is.matrix(CmdM)){
+ Cmd<- CmdM
+ }
+ else{
+ C<- paste("Cmd<- ",CmdM)
+ eval(parse(text=C))
+ }
+ Out<- Cmd[Looprange(1,Npos-1),]
+ Out<- c(Out,Str)
+ Tmp<- Cmd[Looprange(Npos,nrow(Cmd)),]
+ Out<- c(Out,Tmp)
+ Out<- matrix(Out)
+ if (!is.matrix(CmdM)){
+ C<- paste(CmdM,"<<- Out")
+ eval(parse(text=C))
+ }
+ return(Out)
+}
+
+Replacecom<- function(CmdM,Npos,Str)
+{
+ if (is.matrix(CmdM)){
+ Cmd<- CmdM
+ }
+ else{
+ C<- paste("Cmd<- ",CmdM)
+ eval(parse(text=C))
+ }
+ Out<- Cmd[Looprange(1,Npos-1),]
+ Out<- c(Out,Str)
+ Tmp<- Cmd[Looprange(Npos+1,nrow(Cmd)),]
+ Out<- c(Out,Tmp)
+ Out<- matrix(Out)
+ if (!is.matrix(CmdM)){
+ C<- paste(CmdM,"<<- Out")
+ eval(parse(text=C))
+ }
+ return(Out)
+}
+
+Deletecom<- function(CmdM,Npos)
+{
+ if (is.matrix(CmdM)){
+ Cmd<- CmdM
+ }
+ else{
+ C<- paste("Cmd<- ",CmdM)
+ eval(parse(text=C))
+ }
+ Out<- Cmd[Looprange(1,Npos-1),]
+ Tmp<- Cmd[Looprange(Npos+1,nrow(Cmd)),]
+ Out<- c(Out,Tmp)
+ Out<- matrix(Out)
+ if (!is.matrix(CmdM)){
+ C<- paste(CmdM,"<<- Out")
+ eval(parse(text=C))
+ }
+ return(Out)
+}
+
+Maketexfile<- function(commands="",texfile="")
+{
+ Openfile(texfile)
+ Execmd(commands)
+ Closefile()
+}
+
+Formatting<- function(X,D=2,N=2)
+{
+ if (D>0){
+ Xs <- format(X,digits=D,nsmall=N)
+ }
+ else{
+ Xs<- as.character(X)
+ }
+ return(Xs)
+}
+
+################################
+
+Boxplotdata1 <-function(DataF1,CenterX,Width,...)
+{
+ Xr <- Width
+ Temp <- boxplot(DataF1[1],plot=FALSE)
+ Stats <- Temp$stats
+ rownames(Stats) <- c("Lhige","Q1","Q2","Q3","Uhige")
+ Out <- Temp$out
+ Lhige <- Stats["Lhige",1]
+ Uhige <- Stats["Uhige",1]
+ Q1 <- Stats["Q1",1]
+ Q2 <- Stats["Q2",1]
+ Q3 <- Stats["Q3",1]
+ CenterY <- (Q1+Q3)/2
+ C <- c(CenterX,CenterY)
+ V <- c(0,(Q3-Q1)/2)
+ G1 <- Framedata(C,Xr/2,V[2]) # box
+ Temp1 <- c(0,Q1-Lhige)
+ Temp2 <- c(0,Uhige-Q3)
+ G2 <- Listplot(C-V,C-V-Temp1) #
+ G3 <- Listplot(C+V,C+V+Temp2) #
+ Temp3 <- c(Xr/4,0)
+ G4 <- Listplot(C-V-Temp1-Temp3,C-V-Temp1+Temp3) #
+ G5 <- Listplot(C+V+Temp2-Temp3,C+V+Temp2+Temp3) #
+ Temp4 <- c(0,Q3-Q2)
+ Temp5 <- c(Xr/2,0)
+ G6 <- Listplot(C+V-Temp4-Temp5,C+V-Temp4+Temp5) #
+ G7 <- list()
+ for(j in Looprange(1,length(Out))){
+ G7 <- c(G7,list(c(CenterX, Out[j])))
+ }
+ G7 <- G7[order(Out,decreasing=TRUE)]
+ list(median=G6,box=G1,uwhisker=G2,lwhisker=G3,lwp=G4,uwp=G5,outliers=G7)
+}
+
+Boxplotdata2 <- function(Data,Ratio, ...)
+{
+ DataF<- Flattenlist(Data) # 11.07.21(from)
+ ymin<- Inf
+ ymax<- -Inf
+ for(J in 1:length(DataF)){
+ Tmp<- DataF[[J]]
+ ymin<- min(ymin, min(Tmp))
+ ymax<- max(ymax,max(Tmp))
+ } # 11.07.21(upto)
+ dy <- ymax-ymin
+ Setwindow(c(0,XMAX-XMIN),c(ymin-0.1*dy,ymax+0.1*dy))
+ R1<- (YMAX-YMIN)/(XMAX-XMIN)
+ R<- Ratio/R1
+ Setscaling(R)
+ Delta <- XMAX/length(DataF)
+ W <- 0.6*Delta
+ PdL <- list()
+ for(i in 1:length(DataF)){ # 11.07.21
+ X <- (0.5+i-1)*Delta
+ G <- Boxplotdata1(DataF[i],X,W,...)
+ PdL <- c(PdL,list(G))
+ }
+ G <- Framedata()
+ Tmp<- list(frame=G)
+ PdL <-c(PdL,list(Tmp))
+ Epsi <-0
+ Setwindow(c(XMIN-Epsi,XMAX+Epsi),c(YMIN-Epsi,YMAX+Epsi))
+ return(PdL)
+}
+
+Drwboxframe<-function(BoxDataL)
+{
+ Setorigin(c(XMIN,YMIN))
+ Tmp<- Unscaling(c(0.2,0.2))
+ Setwindow(c(XMIN-0.2,XMAX),c(YMIN-Tmp[2],YMAX))
+ Hako<- BoxDataL$plotdata
+ title<- BoxDataL$title
+ cap<- BoxDataL$cap
+ ylab<- BoxDataL$ylab
+ if(mode(title)!="list") title<- list(title)
+ if(mode(cap)!="list") cap<- list(cap)
+ if(mode(ylab)!="list") ylab<- list(ylab)
+ if(length(title)==0) title<- list("")
+ if(length(title)==1) title<- c(title, list("n"))
+ if(length(title)==2) title<- c(title, list(""))
+ if(length(cap)==0) cap<- list("")
+ if(length(cap)==1) cap<- c(cap, list("n"),0) # 11.11.27
+ if(length(cap)==2) cap<- c(cap, 0) # 11.11.27
+ if(length(ylab)==0) ylab<- list("")
+ if(length(ylab)==1) ylab <- c(ylab, list("n"))
+ if(length(ylab)==2) ylab<- c(ylab, list(""))
+ Temp <- Hako[[length(Hako)]]
+ Drwline(Temp$frame)
+ Fontsize(cap[[2]])
+ for(i in Looprange(1,length(Hako)-1)){
+ Temp <- Hako[[i]]
+ attach(Temp)
+ Dashline(uwhisker,lwhisker)
+ Drwline(median,2)
+ Drwline(box,lwp,uwp)
+ Drwpt(outliers,0)
+ X <- uwhisker[1,1]
+ detach(Temp)
+ Htickmarklower(X)
+ if(nchar(cap[[1]])<1) next # 2011.03.08
+ if(length(cap)==2 || cap[[3]]==0){
+ pos<- 1
+ if(length(cap)>=4) pos<- cap[[4]]
+ Tmp<- paste("s",as.character(pos),sep="")
+ Letter(c(X,YMIN),Tmp, Op(i,cap[[1]]))
+ }
+ else{
+ rotate<- cap[[3]]
+ if(length(cap)==3){
+ pos<- 0
+ }
+ else{
+ pos<- cap[[4]]
+ }
+ Temp1 <- rotate*pi/180
+ Temp <- c(cos(Temp1),sin(Temp1))
+ Letterrot(c(X,YMIN-pos),Temp,Op(i,cap[[1]]))
+ }
+ }
+ if(nchar(ylab[[1]])>0){
+ Fontsize(ylab[[2]])
+ Tmp1<- ylab[[1]]
+ Tmp3<- ylab[[3]]
+ if(nchar(Tmp3)>0){
+ Tmp1<- paste("{\\",Tmp3," ",Tmp1,"}",sep="")
+ }
+ Letter(c(XMIN, YMAX),"n2",Tmp1)
+ Fontsize("n")
+ }
+ if(nchar(title[[1]])>0){
+ Fontsize(title[[2]])
+ Tmp1<- title[[1]]
+ Tmp3<- title[[3]]
+ if(nchar(Tmp3)>0){
+ Tmp1<- paste("{\\",Tmp3," ",Tmp1,"}",sep="")
+ }
+ Letter(c((XMIN+XMAX)/2,YMAX),"n2",Tmp1)
+ }
+ Fontsize("n")
+}
+
+Drwboxplot<- function(dataf,var,size,
+ title=list(""), cap=list(colnames(dataf)),
+ ylab=list(""), ptsize=5,plot=TRUE,...)
+ #Return : title,cap,ylab,commands,plotdata,info
+{
+ Tmp <- boxplot(dataf, plot=FALSE, ...)
+ Stats <- Tmp$stats
+ DataF<- Flattenlist(dataf) # 11.07.21(from)
+ ymin<- Inf
+ ymax<- -Inf
+ for(J in 1:length(DataF)){
+ Tmp<- DataF[[J]]
+ ymin<- min(ymin, min(Tmp))
+ ymax<- max(ymax,max(Tmp))
+ } # 11.07.21(upto)
+ Hako<- Boxplotdata2(dataf, size[2]/size[1], ...)
+ if(plot){
+ Windisp(Hako)
+ }
+ Tmp<- Formatting(size[1]/(XMAX-XMIN),5,5)
+ unit<- paste(Tmp,"cm",sep="")
+ Setunitlen(unit)
+ Exstr<- c(
+ "","",
+ paste("Beginpicture(","'",unit,"')",sep=""),
+ paste("Setpt(",as.character(ptsize),")",sep=""),
+ "","",
+ paste("Drwboxframe(",var,")",sep=""),
+ paste("VtickLV(c(",as.character(ymin),",", as.character(ymax),"),0,0)",sep=""),
+ "","","","",
+ "Setpt(1)",
+ "Endpicture(0)"
+ )
+ Exstr<- matrix(Exstr)
+ Xpos<- c()
+ for(i in Looprange(1,length(Hako)-1)){
+ Temp <- Hako[[i]]
+ Temp1 <- Temp[[5]]
+ Xpos <- c(Xpos,Temp1[1,1])
+ }
+ Info<- list(stats=Stats,window=matrix(c(XMIN,XMAX,YMIN,YMAX),nrow=2),xpos=Xpos)
+ Tmp<- paste(var,"<<- ",
+ "list(title=title,cap=cap,ylab=ylab,",
+ "commands=Exstr,plotdata=Hako,info=Info)",sep="")
+ eval(parse(text=Tmp))
+}
+
+
+###########################################
+
+Histplotdata <- function(DataV,Ratio,freq=TRUE,densplot=FALSE,...)
+# 10.12.07 freq
+{
+ Temp <- hist(DataV,plot=FALSE,...)
+ Breaks <- Temp$breaks
+ Counts <- Temp$counts
+ Density <- Temp$density
+ Mids <- Temp$mids
+ if (!freq){
+ Data<- Density
+ }
+ else{
+ Data<- Counts
+ }
+ Ghist <- list()
+ for(i in Looprange(1,length(Breaks)-1)){
+ Tmp1 <- c(Breaks[i],Breaks[i+1])
+ Tmp2 <- c(0,Data[i])
+ G1 <- Framedata(Tmp1,Tmp2) #bar
+ Ghist <- c(Ghist,list(G1))
+ }
+ Bin <- Breaks[2]-Breaks[1]
+ Eps <- 0.7*Bin # 0.7 times Bin
+ Temp1 <- c(min(Breaks)-Eps,max(Breaks)+Eps) # Put Eps at both sides
+ Temp2 <- c(0,max(Data)*1.02)
+ Setwindow(Temp1,Temp2)
+ Setorigin(c(Temp1[1],0))
+ R1<- (YMAX-YMIN)/(XMAX-XMIN)
+ R<- Ratio/R1
+ Setscaling(R)
+ VEps <- 0.05*(XMAX-XMIN)/5
+ Temp1<- Temp1-c(VEps,0)
+ Temp2<- Temp2-1/R*c(VEps,0)
+ Setwindow(Temp1,Temp2)
+ Fpt <- c(Mids[1]-Bin,0)
+ Lpt <- c(Mids[length(Mids)]+Bin,0)
+ Fp <- matrix(Fpt,nrow=1)
+ for(i in Looprange(1,length(Mids))){
+ Tmp <- c(Mids[i],Data[i])
+ Fp <- rbind(Fp,Tmp)
+ }
+ Fp <- rbind(Fp,Lpt)
+ rownames(Fp)<- c(1:nrow(Fp))
+ if(densplot){
+ Temp <- density(DataV)
+ X <- matrix(Temp$x)
+ Y <- matrix(Temp$y)
+ Gdens <- cbind(X,Y)
+ }
+ else{
+ Gdens <- list()
+ }
+ list(plotdata=list(histplot=Ghist,fpplot=list(Fp),densityplot=list(Gdens)),
+ breaks=Breaks,counts=Counts,density=Density,mids=Mids)
+}
+
+Drwhistframe<-function(HistDataL)
+{
+ title<- HistDataL$title
+ xlab<- HistDataL$xlab
+ ylab<- HistDataL$ylab
+ if(mode(title)!="list") title<- list(title)
+ if(mode(xlab)!="list") cap<- list(xlab)
+ if(mode(ylab)!="list") cap<- list(ylab)
+ if(length(title)==0) title<- list("")
+ if(length(title)==1) title<- c(title, list("n"))
+ if(length(title)==2) title<- c(title, list(""))
+ if(length(xlab)==0) xlab<- list("")
+ if(length(xlab)==1) xlab<- c(xlab, list("n"))
+ if(length(xlab)==2) xlab<- c(xlab, list(""))
+ if(length(xlab)==3) xlab<- c(xlab, list(8))
+ if(length(ylab)==0) ylab<- list("")
+ if(length(ylab)==1) ylab<- c(ylab, list("n"))
+ if(length(ylab)==2) ylab<- c(ylab, list(""))
+ if(nchar(title[[1]])>0){
+ Fontsize(title[[2]])
+ Tmp1<- title[[1]]
+ Tmp3<- title[[3]]
+ if(nchar(Tmp3)>0){
+ Tmp1<- paste("{\\",Tmp3," ",Tmp1,"}",sep="")
+ }
+ Letter(c((XMIN+XMAX)/2,YMAX),"n2",Tmp1)
+ Fontsize("n")
+ }
+ if(nchar(xlab[[1]])>0){
+ Fontsize(xlab[[2]])
+ Tmp1<- xlab[[1]]
+ Tmp3<- xlab[[3]]
+ if(nchar(Tmp3)>0){
+ Tmp1<- paste("{\\",Tmp3," ",Tmp1,"}",sep="")
+ }
+ Tmp4<- paste("s",as.character(xlab[[4]]),sep="")
+ Letter(c((XMIN+XMAX)/2,YMIN),Tmp4,Tmp1)
+ Fontsize("n")
+ }
+ if(nchar(ylab[[1]])>0){
+ Fontsize(ylab[[2]])
+ Tmp1<- ylab[[1]]
+ Tmp3<- ylab[[3]]
+ if(nchar(Tmp3)>0){
+ Tmp1<- paste("{\\",Tmp3," ",Tmp1,"}",sep="")
+ }
+ Tmp<- Setorigin()
+ Letter(c(Tmp[1], YMAX),"n2",Tmp1)
+ Fontsize("n")
+ }
+
+ Setax(2," ")
+ Setax(4," ")
+ Setax(6," ")
+}
+
+Drwhistplot<- function(datav,var,size,freq=TRUE,
+ title=list(""), xlab=list(""), ylab=list(""),
+ plot=TRUE,densplot=FALSE,fpplot=TRUE,...)
+ #Output : title,xlab,ylab,commands,plotdata,info
+{
+ H <- Histplotdata(datav, size[2]/size[1], freq=freq,densplot=densplot,...)
+ Pd<- H$plotdata
+ Ghist <- list(histplot=Pd$histplot,densityplot=Pd$densityplot) # 10.12.07
+ if(fpplot){
+ Ghist<- c(Ghist,list(fpplot=Pd$fpplot))
+ }
+ if(plot){
+ Windisp(Ghist)
+ }
+ Tmp<- Formatting(size[1]/(XMAX-XMIN),5,5)
+ unit<- paste(Tmp,"cm",sep="")
+ Setunitlen(unit)
+ Infostr<- paste(var,"$info",sep="")
+ Brkstr<- paste(Infostr,"$breaks",sep="")
+ Midstr<- paste(Infostr,"$mids",sep="")
+ if (!freq){
+ Digits<- ",2,2"
+ Denstr<- paste(Infostr,"$density",sep="")
+ }
+ else{
+ Digits<- ",0,0"
+ Denstr<- paste(Infostr,"$counts",sep="")
+ }
+
+ if (fpplot) Prefp<- "" else Prefp<- "#"
+ Exstr<- c(
+ "","",
+ paste("Beginpicture(","'",unit,"')",sep=""),
+ "","",
+ paste("Drwhistframe(",var,")",sep=""),
+ paste("HtickLV(",Midstr,",1,1)",sep=""),
+ paste("VtickLV(max(",Denstr,")",Digits,")",sep=""),
+ paste("Drwline(",var,"[['plotdata']]","$histplot)",sep=""),
+ paste(Prefp,"Dashline(",var,"[['plotdata']]","$fpplot)",sep=""),
+ paste("#Drwline(",var,"[['plotdata']]","$densityplot,2)",sep=""),
+ "","","","",
+ "Endpicture(1)"
+ )
+ Exstr<- matrix(Exstr)
+ Info<- list(breaks=H$breaks,counts=H$counts,density=H$density,mids=H$mids,
+ window=matrix(c(XMIN,XMAX,YMIN,YMAX),nrow=2))
+ Tmp<- paste(var,"<<- ",
+ "list(title=title,xlab=xlab,ylab=ylab,",
+ "commands=Exstr,plotdata=Ghist,info=Info)",sep="")
+ eval(parse(text=Tmp))
+}
+
+##########################
+#17.09.30
+
+Bezierpt<- function(t,Ptlist,Ctrlist){
+ if(length(Ptlist)==6){
+ P0=Ptlist[1:3]
+ P3=Ptlist[4:6]
+ P1=Ctrlist[1:3]
+ if(length(Ctrlist)==3){
+ P2=P3
+ flg3=0
+ }else{
+ P2=Ctrlist[4:6]
+ flg3=1
+ }
+ }else{
+ P0=Ptlist[1:2]
+ P3=Ptlist[3:4]
+ P1=Ctrlist[1:2]
+ if(length(Ctrlist)==2){
+ P2=P3
+ flg3=0
+ }else{
+ P2=Ctrlist[3:4]
+ flg3=1
+ }
+ }
+ P4=(1-t)*P0+t*P1
+ P5=(1-t)*P1+t*P2
+ P6=(1-t)*P2+t*P3
+ P7=(1-t)*P4+t*P5
+ P8=(1-t)*P5+t*P6
+ P9=(1-t)*P7+t*P8
+ if(flg3==0){
+ Out=P7
+ }else{
+ Out=P9
+ }
+ return(Out)
+}
+
+Bezier<- function(...){
+ varargin<- list(...)
+ Nargs=length(varargin)
+ Ptlist=varargin[[1]]
+ Ctrlist=varargin[[2]]
+ Num=10
+ for(J in Looprange(3,Nargs)){
+ Tmp=varargin[[J]]
+ K=strsplit(Tmp,'=',fixe=TRUE)
+ K=K[[1]]
+ Tmp1=substring(K[1],1,1)
+ Lhs=toupper(Tmp1)
+ if(Lhs=="N"){
+ Num=eval(parse(text=K[2]))
+ }
+ }
+ if(length(Num)==1){
+ Num=rep(Num,length(Ctrlist)) #17.10.08
+ }
+ Out=c()
+ for(ii in Looprange(1,length(Ctrlist))){
+ Tmp1=c(Ptlist[[ii]],Ptlist[[ii+1]])
+ Tmp2=Ctrlist[[ii]]
+ if(ii==1){
+ St=0
+ }else{
+ St=1
+ }
+ for(J in Looprange(St,Num[ii])){
+ Tmp=Bezierpt(J/Num[ii],Tmp1,Tmp2)
+ Out=Appendrow(Out,Tmp)
+ }
+ }
+ return(Out)
+}
+
+#######################
+# 17.10.02
+
+Connectseg<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ Pdata=varargin[[1]]
+ Eps=10^(-5)
+ if(Nargs>=2){
+ Eps=varargin[[2]]
+ }
+ if(is.matrix(Pdata)){
+ Din=Dataindex(Pdata)
+ tmp1=list()
+ for(J in 1:nrow(Din)){
+ tmp=Pdata[Din[J,1]:Din[J,2],]
+ tmp1=c(tmp1,list(tmp))
+ }
+ Pdata=tmp1
+ }
+ PlotL=Pdata[1]
+ VI=2:length(Pdata)
+ while(length(VI)>0){
+ Qd=PlotL[[length(PlotL)]]
+ Ah=Qd[1,]; Ao=Qd[nrow(Qd),]
+ Flg=0
+ for(J in 1:length(VI)){
+ Tmp1=Pdata[[VI[J]]]
+ P=Tmp1[1,]; Q=Tmp1[nrow(Tmp1),]
+ if(Norm(P-Ao)<Eps){
+ Tmp=Tmp1[2:nrow(Tmp1),]
+ Qd=Appendrow(Qd,Tmp)
+ PlotL[[length(PlotL)]]=Qd
+ VI=VI[-J]
+ Flg=1
+ break
+ }
+ if(Norm(Q-Ao)<Eps){
+ Tmp=Tmp1[(nrow(Tmp1)-1):1,]
+ Qd=Appendrow(Qd,Tmp)
+ PlotL[[length(PlotL)]]=Qd
+ VI=VI[-J]
+ Flg=1
+ break
+ }
+ if(Norm(P-Ah)<Eps){
+ Tmp=Tmp1[2:nrow(Tmp1),]
+ Qd=Appendrow(Tmp,Qd)
+ PlotL[[length(PlotL)]]=Qd
+ VI=VI[-J]
+ Flg=1
+ break
+ }
+ if(Norm(Q-Ah)<Eps){
+ Tmp=Tmp1[(nrow(Tmp1)-1):1,]
+ Qd=Appendrow(Tmp,Qd)
+ PlotL[[length(PlotL)]]=Qd
+ VI=VI[-J]
+ Flg=1
+ break
+ }
+ }
+ if(Flg==0){
+ PlotL=c(PlotL,Pdata[VI[1]])
+ VI=VI[-1]
+ }
+ }
+ return(PlotL)
+}
+
+Makevaltable<- function(MS){
+ Eps=10^(-6)
+ Nargs=length(MS)
+ Fstr=Op(1,MS)
+ Tmp=Op(2,MS)
+ Tmp1=strsplit(Tmp,"=",fixed=TRUE)
+ Tmp1=Tmp1[[1]]
+ Xname=Tmp1[1]
+ Xrange=eval(parse(text=Tmp1[2]))
+ Tmp=Op(3,MS)
+ Tmp1=strsplit(Tmp,"=",fixed=TRUE)
+ Tmp1=Tmp1[[1]]
+ Yname=Tmp1[1]
+ Yrange=eval(parse(text=Tmp1[2]))
+ Tmp=gsub(Xname,"x",Fstr)
+ Fstr=gsub(Yname,"y",Tmp)
+ Tmp=grep(Xname,Fstr)
+ if(Tmp==0){
+ Fstr=paste(Fstr,'+0*x',sep="")
+ }
+ Mdv=50
+ Ndv=50
+ if(Nargs>=4){
+ Tmp=Op(4,MS)
+ if(nrow(Tmp)>1){
+ Mdv=Tmp[1,1]
+ Ndv=Tmp[1,2]
+ }else{
+ Mdv=Tmp
+ if(Nargs==4){
+ Ndv=Mdv
+ }else{
+ Tmp1=Op(5,MS)
+ if((is.numeric(Tmp1))&&(length(Tmp1)==1)){
+ Ndv=Tmp1
+ }else{
+ Ndv=Mdv
+ }
+ }
+ }
+ }
+ X1=Xrange[1]; X2=Xrange[2]
+ Y1=Yrange[1]; Y2=Yrange[2]
+ Dx=(X2-X1)/Mdv
+ Dy=(Y2-Y1)/Ndv
+ Xval=c()
+ Tmp=X1
+ while(Tmp<X2+Eps){
+ Xval=c(Xval,Tmp)
+ Tmp=Tmp+Dx
+ }
+ Yval=c()
+ Tmp=Y1
+ while(Tmp<Y2+Eps){
+ Yval=c(Yval,Tmp)
+ Tmp=Tmp+Dy
+ }
+ Zval=matrix(nrow=Mdv+1,ncol=Ndv+1)
+ I=1
+ for(y in Yval){
+ J=1
+ for(x in Xval){
+ Zval[I,J]=eval(parse(text=Fstr))
+ J=J+1
+ }
+ I=I+1
+ }
+ return(list(Zval,Xval,Yval))
+}
+
+Implicitplot<- function(...){
+ varargin=list(...)
+ Eps=10^(-4)
+ Nargs=length(varargin)
+ Fstr=varargin[[1]]
+ if(is.list(Fstr)){
+ MS=Fstr
+ Tmp=Makevaltable(MS)
+ Zval=Tmp[[1]]; Xval=Tmp[[2]]; Yval=Tmp[[3]]
+ }else if(is.character(Fstr)){
+ MS=list()
+ for(I in 1:Nargs){
+ MS=c(MS,varargin[I])
+ }
+ Tmp=Makevaltable(MS)
+ Zval=Tmp[[1]]; Xval=Tmp[[2]]; Yval=Tmp[[3]]
+ }else{
+ Zval=varargin[[1]]
+ Xval=varargin[[2]]
+ Yval=varargin[[3]]
+ }
+ Out=c()
+ for(J in Looprange(1,length(Yval)-1)){
+ for(I in Looprange(1,length(Xval)-1)){
+ a1=Xval[I]; b1=Yval[J]; c1=Zval[J,I]
+ a2=Xval[I+1]; b2=Yval[J]; c2=Zval[J,I+1]
+ a3=Xval[I+1]; b3=Yval[J+1]; c3=Zval[J+1,I+1]
+ a4=Xval[I];b4=Yval[J+1];c4=Zval[J+1,I]
+ PL=matrix(c(a1,b1,a2,b2,a3,b3,a4,b4,a1,b1),ncol=2,byrow=TRUE)
+ VL=c(c1,c2,c3,c4,c1)
+ QL=c()
+ for(K in 1:4){
+ if(abs(VL[K])<=Eps){
+ QL=Appendrow(QL,PL[K,])
+ }else if(VL[K]>Eps){
+ if(VL[K+1]< -Eps){
+ Tmp=1/(VL[K]-VL[K+1])*(-VL[K+1]*PL[K,]+VL[K]*PL[K+1,])
+ QL=Appendrow(QL,Tmp)
+ }
+ }else{
+ if(VL[K+1]>Eps){
+ Tmp=1/(-VL[K]+VL[K+1])*(VL[K+1]*PL[K,]-VL[K]*PL[K+1,])
+ QL=Appendrow(QL,Tmp)
+ }
+ }
+ }
+ if(length(QL)==4){
+ Out=Appendrow(Out,c(Inf,Inf))
+ Out=Appendrow(Out,QL)
+ }
+ }
+ }
+ Out=Out[2:nrow(Out),]
+ if(length(Out)>0){
+ Out=Connectseg(Out)
+ }else{
+ Out=c()
+ }
+ return(Out)
+}
+
+#########################
+# 17.10.06
+
+Deqdata=function(deq,rng,initt,initf,Num){
+ Eps=10^(-3)
+ inf=10^3
+ tmp=strsplit(deq,"=")[[1]]
+ tmp1=gsub("`","",tmp[1],fixed=TRUE)
+ tmp1=substring(tmp1,3,nchar(tmp1)-1)
+ Xname=strsplit(tmp1,",")[[1]]
+ func=tmp[2]
+ for(J in 1:(length(Xname))){
+ tmp1=paste("X[",as.character(J),"]",sep="")
+ func=gsub(Xname[J],tmp1,func,fixed=TRUE)
+ }
+ tmp=strsplit(rng,"=")[[1]]
+ tname=tmp[1]
+ tmp=eval(parse(text=tmp[2]))
+ t1=tmp[1]
+ t2=tmp[2]
+ tmp=paste("function(",tname,",X){",func,"}",sep="")
+ funP=eval(parse(text=tmp))
+ tmp=paste("function(",tname,",X){-",func,"}",sep="")
+ funN=eval(parse(text=tmp))
+ dt=(t2-t1)/Num
+ tt=initt
+ X0=initf
+ pdL=c(tt,X0)
+ for(J in 1:(floor((t2-initt)/dt))){
+ kl1=dt*funP(tt,X0)
+ kl2=dt*funP(tt+dt/2,X0+kl1/2)
+ kl3=dt*funP(tt+dt/2,X0+kl2/2)
+ kl4=dt*funP(tt+dt,X0+kl3)
+ X0=X0+(kl1+2*kl2+2*kl3+kl4)/6
+ tt=initt+J*dt
+ tmp=c(tt,X0)
+ if(Norm(tmp)>inf){break}
+ pdL=Appendrow(pdL,tmp)
+ }
+ tt=initt
+ X0=initf
+ for(J in 1:(floor((initt-t1)/dt))){
+ kl1=dt*funN(tt,X0)
+ kl2=dt*funN(tt+dt/2,X0+kl1/2)
+ kl3=dt*funN(tt+dt/2,X0+kl2/2)
+ kl4=dt*funN(tt+dt,X0+kl3)
+ X0=X0+(kl1+2*kl2+2*kl3+kl4)/6
+ tt=initt-J*dt
+ tmp=c(tt,X0)
+ if(Norm(tmp)>inf){break}
+ pdL=Appendrow(tmp,pdL)
+ }
+ pdL
+}
+
+Deqplot=function(...){
+ varargin=list(...)
+ deq=varargin[[1]]
+ rng=varargin[[2]]
+ initt=varargin[[3]]
+ initf=varargin[[4]]
+ Num=50
+ Sel=c(1,2)
+ for(J in Looprange(5,length(varargin))){
+ tmp1=varargin[[J]]
+ if(is.character(tmp1)){
+ tmp=strsplit(tmp1,"=")[[1]]
+ Num=eval(parse(text=tmp[2]))
+ }else{
+ SeL=tmp1
+ }
+ }
+ pdL=Deqdata(deq,rng,initt,initf,Num)
+ pdL=pdL[,SeL]
+}
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r
new file mode 100644
index 00000000..f45c949d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r
@@ -0,0 +1,577 @@
+# Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
+#
+#This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>
+
+
+#########################################
+
+ThisVersion<- "2ev5_2_3(17.10.07)"
+
+# 2017.10.07
+#
+
+#############################################
+
+Dottedline<- function(...)
+{
+ varargin <- list(...)
+ Nall <- length(varargin)
+ Nagasa <- 0.1
+ Ookisa <- PenThick*2 #17.10.07
+ I <- Nall
+ Tmp <- varargin[[I]]
+ while (mode(Tmp)=="numeric" && length(Tmp)==1 ) {
+ I <- I-1
+ Tmp <- varargin[[I]]
+ }
+ if (I==Nall-1) {
+ Nagasa<-Nagasa*varargin[[Nall]]
+ Nall <- Nall-1
+ }
+ if (I==Nall-2) {
+ Nagasa <- Nagasa*varargin[[Nall-1]]
+ Ookisa <- round(Ookisa*varargin[[Nall]])
+ Nall <- Nall-2
+ }
+ Nagasa <- 1000/2.54/MilliIn*Nagasa
+ Ra=Ookisa/MilliIn
+ for (N in 1:Nall) {
+ Pdata <- varargin[[N]]
+ if (mode(Pdata)=="numeric") {
+ Pdata <- list(Pdata)
+ }
+ for (II in 1:length(Pdata)) {
+ Clist <- MakeCurves(Op(II,Pdata))
+ DinM <- Dataindex(Clist)
+ Mojisu=0
+ for (n in Looprange(1,Nrow(DinM))) {
+ Tmp <- DinM[n,]
+ Data <- Clist[Tmp[1]:Tmp[2],]
+ Len <- 0
+ Lenlist <- c(0)
+ for (I in Looprange(2,Nrow(Data))) {
+ Len <- Len+Norm(Data[I,]-Data[I-1,])
+ Lenlist <- c(Lenlist,Len)
+ }
+ Lenall <- Lenlist[length(Lenlist)]
+ if (Lenall==0) {
+ next
+ }
+ Naga <- Nagasa
+ Nten <- round(Lenall/Naga)+1
+ if (Nten > 1) {
+ Seg <- Lenall/(Nten-1)
+ }
+ else {
+ Seg <- Lenall
+ }
+ Eps <- 10^(-6)*Seg
+ PPd<-c()
+ Hajime <- 1
+ for (I in Looprange(0,Nten-1)) {
+ Len <- Seg*I
+ if (I>0) {
+ J <- Hajime
+ while( Len>=Lenlist[J]+Eps) {
+ J <- J+1
+ }
+ Hajime <- J-1
+ }
+ T <- (Len-Lenlist[Hajime])/
+ (Lenlist[Hajime+1]-Lenlist[Hajime])
+ P <- Data[Hajime,]+T*(Data[Hajime+1,]-Data[Hajime,])
+ PPd<-Appendrow(PPd,P)
+ if (I==Nten-1) {
+ if (Norm(P-Data[1,])<Eps) {
+ next
+ }
+ }
+ }
+ for (I in Looprange(1,Nrow(PPd))){
+ P<- Op(I,PPd)
+ if (Nrow(PPd)==1){
+ V<- c(1,0)
+ }
+ else if (I==1){
+ Tmp<- Op(I+1,PPd)-P
+ V<- 1/Norm(Tmp)*Tmp
+ }
+ else if (I==Nrow(PPd)){
+ Tmp<- P-Op(I-1,PPd)
+ V<- 1/Norm(Tmp)*Tmp
+ }
+ else{
+ Tmp1<- Op(I+1,PPd)-P
+ Tmp2<- P-Op(I-1,PPd)
+ Tmp3<-1/Norm(Tmp1)*Tmp1+1/Norm(Tmp2)*Tmp2
+ V<- 1/Norm(Tmp3)*Tmp3
+ }
+ X=sprintf('%5.5f',P[1])
+ Y=sprintf('%5.5f',P[2])
+ Str=paste('\\put(',X,',',Y,'){\\circle*{',sprintf('%6.6f',Ra),'}}',sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu=Mojisu+nchar(Str)
+ if(Mojisu>80){
+ cat("\n",file=Wfile,append=TRUE)
+ Mojisu=0
+ }
+ }
+ }
+ }
+ if(Mojisu>0){
+ cat("\n",file=Wfile,append=TRUE)
+ }
+ }
+ Tmp<-PenThick/PenThickInit
+ Setpen(Tmp)
+}
+
+
+###########################################
+
+Drwline<-function(...)
+{
+ varargin<-list(...)
+ Nall<-length(varargin)
+ Thick<-0
+ Tmp<-varargin[[Nall]]
+ if (mode(Tmp)=="numeric" && length(Tmp)==1){
+ Setpen(Tmp)
+ Nall<-Nall-1
+ }
+ for (N in 1:Nall){
+ Pdata<-varargin[[N]]
+ if (length(Pdata)==0) next
+ if (mode(Pdata)!="list") Pdata<-list(Pdata)
+ while(Mixtype(Pdata)==3){
+ Tmp1<- list()
+ for(II in Looprange(1,length(Pdata))){
+ Tmp1<- Mixjoin(Tmp1,Pdata[[II]])
+ }
+ Pdata<- Tmp1
+ }
+ for (II in Looprange(1,length(Pdata))){
+ Clist<-MakeCurves(Pdata[[II]])
+ DinM<-Dataindex(Clist)
+ for (n in Looprange(1,Nrow(DinM))){
+ Tmp<-DinM[n,]
+ Data<-Clist[Tmp[1]:Tmp[2],]
+ Mojisu<-0
+ for (I in Looprange(1,Nrow(Data))){
+ Tmp<-Data[I,]
+ X=sprintf('%5.5f',Tmp[1])
+ Y=sprintf('%5.5f',Tmp[2])
+ Pt=paste('(',X,',',Y,')',sep="")
+ if(I==1){
+ Str=paste('\\polyline',Pt,sep="")
+ }else{
+ Str=Pt
+ }
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<-Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<-0
+ }
+ }
+ if (Mojisu!=0){
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+ cat("%\n",file=Wfile,append=TRUE)
+ }
+ }
+ }
+ if (Thick>0){
+ Tmp<-PenThick/PenThickInit
+ Setpen(Tmp)
+ }
+}
+
+###########################################
+
+Drwpt<-function(...)
+{
+ varargin<-list(...)
+ Nargs<-length(varargin)
+ All=Nargs
+ if (TenSize>TenSizeInit){
+ N<- round(6*sqrt(TenSize/TenSizeInit))
+ }
+ else{
+ N<-4
+ }
+ Tmp<- varargin[[All]]
+ Iro=c(0,0,0,1)
+ Iroflg=0
+ if(is.character(Tmp)){
+ Iro=Ratiocmyk(Tmp)
+ Iroflg=1
+ All=All-1
+ }
+ Tmp<- varargin[[All]]
+ if (mode(Tmp)=="numeric"){
+ if (length(Tmp)>1){
+ Kosa<- 1; All<- Nargs
+ }
+ else{
+ Kosa<- Tmp; All<- All-1
+ }
+ }
+ else if (mode(Tmp)=="list"){
+ Kosa<- 1; All<- Nargs
+ }
+ Ra=TenSize*1000/2.54/MilliIn
+ if(Iroflg>0){
+ Str='{\\color[cmyk]{'
+ for(J in 1:4){
+ Str=paste(Str,as.character(Kosa*Iro[J]),sep="")
+ if(J<4){
+ Str=paste(Str,',',sep="")
+ }
+ }
+ Str=paste(Str,'}%',sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ }
+
+# CL<-c()
+# for (J in 0:N){
+# Tmp<- TenSize*0.5*1000/2.54/MilliIn
+# Tmp<- Tmp*c(cos(pi/4+J*2*pi/N),sin(pi/4+J*2*pi/N))
+# CL<- append(CL,Tmp)
+# }
+# CL<- matrix(CL,nrow=2)
+# CL<- t(CL)
+ Mojisu=0
+ for (II in Looprange(1,All)){
+ MS<- varargin[[II]]
+ if (mode(MS)=="numeric"){
+ MS<- list(MS)
+ }
+ for (I in Looprange(1,length(MS))){
+ P<- MS[[I]]
+ if (InWindow(P)!="i") next
+ P<- Doscaling(P)
+ X=sprintf('%5.5f',P[1])
+ Y=sprintf('%5.5f',P[2])
+ Str=paste('\\put(',X,',',Y,'){\\circle*{',sprintf('%6.6f',Ra),'}}',sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu=Mojisu+nchar(Str)
+ if(Mojisu>80){
+ cat("\n",file=Wfile,append=TRUE)
+ Mojisu=0
+ }
+ }
+ }
+ Str="%"
+ if(Iroflg>0){
+ Str='}%'
+ }
+ if(Mojisu>0){
+ Str=paste('\n',Str,'\n',sep="")
+ }else{
+ Fmt=paste(Str,'\n',sep="")
+ }
+ cat(Str,file=Wfile,append=TRUE)
+}
+
+# PL<-c()
+# for (J in 0:N){
+# PL<- c(PL,P+CL[J+1,])
+# }
+# PL<-matrix(PL,nrow=2)
+# PL<-t(PL)
+# Mojisu<-0
+# for (J in 1:Nrow(PL)){
+# Q<- PL[J,]
+# X<- as.character(round(MilliIn*Q[1]))
+# Y<- as.character(-round(MilliIn*Q[2]))
+# Str<- paste("\\special{pa ",X," ",Y,"}",sep="")
+# cat(Str,file=Wfile,append=TRUE)
+# Mojisu<- Mojisu+nchar(Str)
+# if (Mojisu>80){
+# cat("#\n",file=Wfile,append=TRUE)
+# }
+# Mojisu=0
+# }
+# Str1<- paste("\\special{sh ",as.character(Kosa),"}",sep="")
+# Str2<- "\\special{fp}%\n"
+# cat(Str1,file=Wfile,append=TRUE)
+# cat(Str2,file=Wfile,append=TRUE)
+# }
+# }
+#}
+
+######################################
+
+Makehasen<- function(Figdata,Sen,Gap,Ptn)
+{
+ Eps<- 10.0^(-6)
+ Clist<- MakeCurves(Figdata)
+ DinM<- Dataindex(Clist)
+ for (N in Looprange(1,Nrow(DinM))){
+ Tmp<- DinM[N,]
+ Data<- Clist[Tmp[1]:Tmp[2],]
+ Dtall<- Nrow(Data)
+ Len<- 0
+ Lenlist<- c(0)
+ for (I in Looprange(2,Dtall)){
+ Len<- Len+Norm(Data[I,]-Data[I-1,])
+ Lenlist<- c(Lenlist,Len)
+ }
+ Lenall<- Lenlist[Dtall]
+ if (Lenall==0){
+ next
+ }
+ Kari<- (Sen+Gap)*0.1
+ Naga<- Sen*0.1
+ Tobi<- Gap*0.1
+ if (Norm(Data[1,]-Data[Dtall,])<Eps){
+ Nsen<- max(ceiling(Lenall/Kari),3)
+ SegUnit<- Lenall/Nsen
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(0,(Nsen-1)*SegUnit,by=SegUnit))
+ }
+ else{
+ if (Ptn==0){
+ Nsen<- max(ceiling((Lenall+Tobi)/Kari),3)
+ SegUnit<- Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap)
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(0,(Nsen-1)*SegUnit,by=SegUnit))
+ }
+ else{
+ Nsen<- max(ceiling((Lenall+Naga)/Kari),3)
+ SegUnit<- Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap)
+ Naga<- SegUnit*Sen/(Sen+Gap)
+ Tobi<- SegUnit*Gap/(Sen+Gap)
+ SegList<- c(seq(Tobi,Tobi+(Nsen-2)*SegUnit,by=SegUnit))
+ }
+ }
+ Hajime<- 1; Owari<- 1
+ Mojisu<- 0
+ for (I in Looprange(1,length(SegList))){
+ Len<- SegList[I]
+ J<- Owari
+ while (Len>=Lenlist[J]-Eps){
+ if (J==Dtall){
+ break
+ }
+ J<- J+1
+ }
+ Hajime<- J-1
+ J<- Hajime
+ while (Len+Naga>Lenlist[J]-Eps){
+ if (J==Dtall){
+ break
+ }
+ J<- J+1
+ }
+ Owari<- J-1
+ T<- (Len-Lenlist[Hajime])
+ T<- T/(Lenlist[Hajime+1]-Lenlist[Hajime])
+ P<- Data[Hajime,]+T*(Data[Hajime+1,]-Data[Hajime,])
+ X0=sprintf('%5.5f',P[1])
+ Y0=sprintf('%5.5f',P[2])
+ Pt0=paste('(',X0,',',Y0,')',sep="")
+ Str=paste('\\polyline',Pt0,sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ for (J in Looprange(Hajime+1,Owari)){
+ P=Data[J,]
+ X=sprintf('%5.5f',P[1])
+ Y=sprintf('%5.5f',P[2])
+ Pt=paste('(',X,',',Y,')',sep="")
+ Str=Pt
+ cat(Str,file=Wfile,append=TRUE)
+ Pt0=Pt
+ Mojisu=Mojisu+nchar(Str)
+ }
+ T<- (Len+Naga-Lenlist[Owari])
+ T<- T/(Lenlist[Owari+1]-Lenlist[Owari])
+ P<- Data[Owari,]+T*(Data[Owari+1,]-Data[Owari,])
+ X=sprintf('%5.5f',P[1])
+ Y=sprintf('%5.5f',P[2])
+ Pt=paste('(',X,',',Y,')',sep="")
+ Str=Pt
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<- 0
+ }
+ }
+ }
+ cat("%\n%\n",file=Wfile,append=TRUE);
+}
+
+#########################################
+
+Beginpicture<-function(ul)
+{ ## Scaling is implemented
+ Tmp<- Doscaling(c(XMIN,YMIN))
+ Xm<- Tmp[1]
+ Ym<- Tmp[2]
+ Tmp<- Doscaling(c(XMAX,YMAX))
+ XM<- Tmp[1]
+ YM<- Tmp[2]
+ Dx<- XM-Xm
+ Dy<- YM-Ym
+ Sym<-".0123456789 +-*/"
+ SL<-Sym
+ OL<-"+-*/"
+ if (ul!=""){
+ ULEN<<-ul;
+ }
+ Is<-1;
+ VL<-"";
+ Ucode<-ULEN
+ for (I in Looprange(1,nchar(Ucode))){
+ C<-substring(Ucode,I,I);
+ if (length(grep(C,SL,fixed=TRUE))>0){
+ if (length(grep(C,OL,fixed=TRUE))>0){
+ Tmp<-substring(Ucode,Is,I-1);
+ Str<-paste(VL,Tmp,C,sep="")
+ VL<-Str
+ Is<-I+1;
+ }
+ }
+ else{
+ Unit<-substring(Ucode,I,I+1);
+ Str<-substring(Ucode,Is,I-1);
+ VL<-paste(VL,Str,sep="")
+ break;
+ }
+ }
+ Valu<-eval(parse(text=VL));
+ Str<-as.character(Valu);
+ ULEN<<- paste(Str,Unit,sep="");
+ if (Unit=="cm") MilliIn<<-1000/2.54*Valu
+ if (Unit=="mm") MilliIn<<-1000/2.54*Valu/10
+ if (Unit=="in") MilliIn<<-1000*Valu
+ if (Unit=="pt") MilliIn<<-1000/72.27*Valu
+ if (Unit=="pc") MilliIn<<-1000/6.022*Valu
+ if (Unit=="bp") MilliIn<<-1000/72*Valu
+ if (Unit=="dd2") MilliIn<<-1000/1238/1157/72.27*Valu
+ if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu;
+ if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10
+ MARKLEN<<- MARKLENNow*1000/2.54/MilliIn;
+ Str<-paste("{\\unitlength=",ULEN,"%\n",sep="");
+ cat(Str,file=Wfile,append=TRUE);
+ cat("\\begin{picture}%\n",file=Wfile,append=TRUE);
+ Str<-"(";
+ Tmp<-as.character(round(Dx,digits=6));
+ Str<-paste(Str,Tmp,",",sep="");
+ Tmp<-as.character(round(Dy,digits=6));
+ Str<-paste(Str,Tmp,")(",sep="");
+ Tmp<-as.character(round(Xm,digits=6));
+ Str<-paste(Str,Tmp,",",sep="");
+ Tmp<-as.character(round(Ym,digits=6));
+ Str<-paste(Str,Tmp,")%\n",sep="");
+ cat(Str,file=Wfile,append=TRUE);
+ Str=paste('\\linethickness{',as.character(PenThickInit/1000),'in}%',sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+}
+
+#########################################
+
+Setpen<-function(Width)
+{
+ PenThick<<-round(PenThickInit*Width)
+ Str=paste('\\linethickness{',as.character(PenThick/1000),'in}%',sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
+}
+
+#########################################
+
+Shade<- function(...)
+{ ## Scaling is implemented
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Iroflg=0
+ if(Nargs>1){
+ Iro=varargin[[Nargs]]
+ if(is.character(Iro)){
+ Iroflg=1
+ if(length(grep("{",Iro,fixed=TRUE))>0){
+ Str=paste("{\\color",Iro,sep="")
+ }
+ else{
+ Str=paste("{\\color{",Iro,"}",sep="")
+ }
+ }
+ else{
+ if(length(Iro)==1){
+ Kosa=Iro
+ }
+ else{
+ Iroflg=1
+ if(length(Iro)==4){
+ Str="{\\color[cmyk]{"
+ }
+ else{
+ if(length(Iro)==3){
+ Str="{\\color[rgb]{"
+ }
+ }
+ for(J in 1:length(Iro)){
+ Str=paste(Str,as.character(Iro[J]),sep="")
+ if(J<length(Iro)){
+ Str=paste(Str,",")
+ }
+ }
+ Str=paste(Str,"}")
+ }
+ }
+ if(Iroflg==1){
+ Str=paste(Str,"%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ }
+ }
+ Mojisu=0
+ Tmp=varargin[[1]]
+ Data=Kyoukai(Tmp)
+ for (I in Looprange(1, length(Data))){
+ PL<- Op(I,Data)
+ Mojisu<- 0
+ for (J in 1:Nrow(PL)){
+ P<- Doscaling(Op(J,PL))
+ X=sprintf('%5.5f',P[1])
+ Y=sprintf('%5.5f',P[2])
+ Pt=paste('(',X,',',Y,')',sep="")
+ if(J==1){
+ Str=paste('\\polygon*',Pt,sep="")
+ }else{
+ Str=Pt
+ }
+ cat(Str,file=Wfile,append=TRUE)
+ Mojisu<- Mojisu+nchar(Str)
+ if (Mojisu>80){
+ cat("%\n",file=Wfile,append=TRUE)
+ Mojisu<- 0
+ }
+ }
+ }
+ if(Iroflg==1){
+ Str='}%'
+ if(Mojisu>0){
+ Str=paste('\n',Str,'\n',sep="")
+ }else{
+ Str=paste(Str,'\n')
+ }
+ cat(Str,file=Wfile,append=TRUE)
+ }
+}
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin
index c1e3ef24..c1e3ef24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin
index 8b094651..8b094651 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin
index 2af2be64..2af2be64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin
index f4101b32..f4101b32 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin
index 3640469b..3640469b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin
index 0d68e6d0..0d68e6d0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin
index 3f243306..3f243306 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin
index 99a0cecd..99a0cecd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin
index 47ac2ac9..47ac2ac9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin
index afb1b3bc..afb1b3bc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin
index 81625f07..81625f07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin
index 1e8b41fb..1e8b41fb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin
index f146b511..f146b511 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin
index bb466f84..bb466f84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin
index 80964b1c..80964b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin
index 94cfb714..94cfb714 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin
index bee787d9..bee787d9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin
index f53ad324..f53ad324 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin
index 05a4fb2e..05a4fb2e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin
index bc02de52..bc02de52 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin
index 77aa840f..77aa840f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin
index 49978903..49978903 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin
index 5e3f28b9..5e3f28b9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin
index 426023be..426023be 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin
index 7745bccc..7745bccc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin
index d037c656..d037c656 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin
index 13e374db..13e374db 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin
index c16f84ba..c16f84ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin
index 55b15ad7..55b15ad7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin
index 9a27e094..9a27e094 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin
index 73ea5db3..73ea5db3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin
index e7a00c3e..e7a00c3e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin
index f62af795..f62af795 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin
index f73458f1..f73458f1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin
index 5960bb73..5960bb73 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin
index 1c8fd062..1c8fd062 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin
index 70566c55..70566c55 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin
index ade04624..ade04624 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
index 5c4f8404..5c4f8404 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin
index 7d645929..7d645929 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
index 7f994b75..7f994b75 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
index d92d7a5a..d92d7a5a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin
index 71b24de1..71b24de1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin
index 835d570f..835d570f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin
index 0ecbcb1c..0ecbcb1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin
index dba77269..dba77269 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin
index b3a3f8e4..b3a3f8e4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin
index b2124b51..b2124b51 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin
index 08f82d89..08f82d89 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin
index 2fbf6adb..2fbf6adb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin
index b09e4aeb..b09e4aeb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin
index 609d057a..609d057a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin
index e6f70b1c..e6f70b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin
index 8f7d28a1..8f7d28a1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin
index e3bd11d0..e3bd11d0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin
index f0ff3ef8..f0ff3ef8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin
index a3ba57b6..a3ba57b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin
index 8ab45716..8ab45716 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin
index 70d3663e..70d3663e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin
index 03498fd7..03498fd7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin
index abf752c8..abf752c8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin
index 1a024a4d..1a024a4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin
index 589adeaf..589adeaf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin
index 7a097bea..7a097bea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin
index d3962817..d3962817 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin
index 9ac44969..9ac44969 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin
index f4bff84e..f4bff84e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin
index d4520393..d4520393 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin
index 05c9df9c..05c9df9c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin
index 54ce1e7c..54ce1e7c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin
index 5a081c10..5a081c10 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin
index 17e55798..17e55798 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin
index 1a6860c5..1a6860c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin
index 7fa6e7b9..7fa6e7b9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin
index e4bb3e12..e4bb3e12 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin
index a300752a..a300752a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin
index 3ed90ff9..3ed90ff9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin
index 3cae8493..3cae8493 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin
index e249a055..e249a055 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin
index f7f2e09b..f7f2e09b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin
index 003930bd..003930bd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin
index 1cc63d81..1cc63d81 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin
index 47cd3aff..47cd3aff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin
index d0ac6d1f..d0ac6d1f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin
index 0c1ff22d..0c1ff22d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin
index 0ada7614..0ada7614 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin
index 80d7fa1d..80d7fa1d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin
index f17997ae..f17997ae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin
index 4dfc5fba..4dfc5fba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin
index a445388d..a445388d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin
index 00cefe7b..00cefe7b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin
index 5efa1ba3..5efa1ba3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin
index 31de11e2..31de11e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin
index 8bc86748..8bc86748 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin
index ebb9f45e..ebb9f45e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin
index 0335b185..0335b185 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin
index 88ce57e9..88ce57e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin
index f52ad0ee..f52ad0ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin
index 5662575f..5662575f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin
index 38306a20..38306a20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin
index 3c6ed6c5..3c6ed6c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin
index deb2de0d..deb2de0d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin
index 3a87071b..3a87071b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin
index de85e2a9..de85e2a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin
index 3a918b84..3a918b84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin
index 5b1846e7..5b1846e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin
index 2b895f4d..2b895f4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin
index 76baa221..76baa221 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin
index def0bb31..def0bb31 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin
index 07c0c078..07c0c078 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin
index 5dbdc7cb..5dbdc7cb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin
index dafe1e24..dafe1e24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin
index 97caac64..97caac64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin
index 70e1971c..70e1971c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin
index 21dc66a1..21dc66a1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin
index 9ccea2a3..9ccea2a3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin
index d191d41a..d191d41a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin
index 313c934d..313c934d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin
index f705d5b1..f705d5b1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin
index 3940a613..3940a613 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin
index c9ce9f14..c9ce9f14 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin
index bcaebbbd..bcaebbbd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin
index 4bc6206a..4bc6206a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin
index 51fbfbe1..51fbfbe1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin
index 0fa577df..0fa577df 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin
index fb13efa4..fb13efa4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin
index 98ddd1a4..98ddd1a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin
index 6356eaed..6356eaed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin
index 7f8de9cd..7f8de9cd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin
index 83ba3861..83ba3861 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin
index 92534466..92534466 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin
index 2d013048..2d013048 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin
index 0bd11580..0bd11580 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
index 49a24e6c..49a24e6c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin
index 67316bd1..67316bd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin
index 1658b408..1658b408 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin
index 95c31670..95c31670 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin
index fcf74e3c..fcf74e3c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin
index f5ced4c3..f5ced4c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin
index 6cd9f985..6cd9f985 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin
index c41eb72e..c41eb72e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin
index ab493424..ab493424 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin
index 659d412f..659d412f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin
index f26a75b6..f26a75b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin
index 1a2a931f..1a2a931f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin
index 92c22101..92c22101 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin
index 43809cb9..43809cb9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin
index 4562fd87..4562fd87 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin
index 29800896..29800896 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin
index dc725565..dc725565 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin
index e1ab36e0..e1ab36e0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin
index 74a5a6aa..74a5a6aa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin
index 332d7968..332d7968 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin
index b188ade7..b188ade7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin
index 4c0a5b2d..4c0a5b2d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin
index d7d9f480..d7d9f480 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin
index bf51af8a..bf51af8a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin
index 80a32401..80a32401 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin
index b7f0d8cf..b7f0d8cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin
index 7bfcf7ab..7bfcf7ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin
index 2bdabcc4..2bdabcc4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin
index b692d55a..b692d55a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin
index 57a2ce6f..57a2ce6f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin
index 845d40ca..845d40ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin
index 92afe9ad..92afe9ad 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin
index a14bcc2f..a14bcc2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin
index da05430c..da05430c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin
index 18416f1c..18416f1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin
index bef4fb7d..bef4fb7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin
index 6bbe6d7d..6bbe6d7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin
index 8c215679..8c215679 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin
index e66c254e..e66c254e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin
index fb3d3b45..fb3d3b45 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin
index e1625a76..e1625a76 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin
index 2024ea60..2024ea60 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin
index c812540a..c812540a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin
index 41d69ca5..41d69ca5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin
index d285a0cc..d285a0cc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin
index 32bf34e8..32bf34e8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin
index d28e36ee..d28e36ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin
index a7078f9c..a7078f9c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin
index e4c31df3..e4c31df3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin
index f532d7ee..f532d7ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin
index ffebca84..ffebca84 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin
index e7958ab9..e7958ab9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin
index d54eb52f..d54eb52f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin
index 07321262..07321262 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin
index a13d3f5f..a13d3f5f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin
index 58cef916..58cef916 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin
index 6f557a3b..6f557a3b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin
index f95c613a..f95c613a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin
index 2d1eec35..2d1eec35 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin
index ac5490d9..ac5490d9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin
index 814b8791..814b8791 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin
index d700ec69..d700ec69 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin
index ccea3366..ccea3366 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin
index c3f667e3..c3f667e3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin
index 2e3c664b..2e3c664b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin
index 1a2bbf95..1a2bbf95 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin
index 903c9029..903c9029 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin
index 5e7b5ffb..5e7b5ffb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin
index da8b1196..da8b1196 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin
index 6ac27dcb..6ac27dcb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin
index a3da7dd1..a3da7dd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin
index 8843cde4..8843cde4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin
index c0547852..c0547852 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin
index 8c11c2c2..8c11c2c2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin
index e6055b42..e6055b42 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin
index cf693dd1..cf693dd1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin
index 1dce322f..1dce322f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin
index e7094eb4..e7094eb4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin
index 3a62be73..3a62be73 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin
index 2ca583e9..2ca583e9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin
index 5de23ccd..5de23ccd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin
index bda03ab0..bda03ab0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin
index fbf6d134..fbf6d134 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin
index 13f43f67..13f43f67 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin
index 10ac2f07..10ac2f07 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin
index cf36ca4e..cf36ca4e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin
index 4f608b89..4f608b89 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin
index 727cf4d5..727cf4d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin
index f09e463c..f09e463c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin
index c1303557..c1303557 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin
index 1003cd61..1003cd61 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin
index be3a6f13..be3a6f13 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin
index d154a0a0..d154a0a0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin
index 77a99874..77a99874 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin
index 01e1b69c..01e1b69c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin
index a4872a7f..a4872a7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin
index 1e679bfc..1e679bfc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin
index 5df6db75..5df6db75 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin
index 042a7261..042a7261 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin
index df1a3849..df1a3849 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin
index da18fb37..da18fb37 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin
index 10769324..10769324 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin
index 56a87566..56a87566 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin
index 0acb33cf..0acb33cf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin
index 8d4a1b0e..8d4a1b0e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin
index f51f7599..f51f7599 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin
index 02bd0619..02bd0619 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin
index 1036fe46..1036fe46 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin
index 6cfc7b1c..6cfc7b1c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin
index 7bc8974d..7bc8974d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin
index dcde7e7d..dcde7e7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin
index c9678719..c9678719 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin
index aca40719..aca40719 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin
index bfdb8495..bfdb8495 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin
index 997e8178..997e8178 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin
index 1d2063bf..1d2063bf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin
index 46e49d69..46e49d69 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin
index ae62bffa..ae62bffa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin
index 3a609bc9..3a609bc9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin
index be2cbbb6..be2cbbb6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin
index 79ae6660..79ae6660 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin
index 3fe068d8..3fe068d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin
index adc5ef97..adc5ef97 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin
index ed695e7f..ed695e7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin
index 918c968e..918c968e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin
index e417c91f..e417c91f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin
index f9fb21b4..f9fb21b4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin
index faf60668..faf60668 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin
index c0d4e9e7..c0d4e9e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin
index 44dc173e..44dc173e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin
index 6ef24cf2..6ef24cf2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin
index 9658e1ab..9658e1ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin
index fc39c4e1..fc39c4e1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin
index bed3747e..bed3747e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin
index bd7b7168..bd7b7168 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin
index 86ba2a9e..86ba2a9e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin
index c4009953..c4009953 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
index 278af331..278af331 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin
index 5aa6fd04..5aa6fd04 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin
index b22043d8..b22043d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
index 64f416d6..64f416d6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
index cd356699..cd356699 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
index 295812ba..295812ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin
index c98b95ed..c98b95ed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin
index 5a780fab..5a780fab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin
index 037fffea..037fffea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin
index b3d2d402..b3d2d402 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin
index 5895e254..5895e254 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin
index c34f7e16..c34f7e16 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin
index 4ba4947b..4ba4947b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin
index 9c83ea64..9c83ea64 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin
index 0e8bacaf..0e8bacaf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin
index b097e980..b097e980 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin
index 7a3c634c..7a3c634c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin
index ca70656e..ca70656e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin
index 66f8e6c0..66f8e6c0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin
index a2bafc2c..a2bafc2c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin
index 131297e0..131297e0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin
index a1a27f00..a1a27f00 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin
index ab4bb5ed..ab4bb5ed 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin
index 74871299..74871299 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin
index e0e2dab3..e0e2dab3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin
index 4e974456..4e974456 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin
index d22ea31d..d22ea31d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin
index 0d86b601..0d86b601 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin
index 46fd7b7e..46fd7b7e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin
index f5e92c99..f5e92c99 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin
index a8140128..a8140128 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin
index be4c9157..be4c9157 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin
index 99ef9902..99ef9902 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin
index 0904029d..0904029d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin
index 7d332cfd..7d332cfd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin
index 1abdf882..1abdf882 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin
index ccfce689..ccfce689 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin
index f2e50561..f2e50561 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin
index a224f885..a224f885 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin
index 2fee3584..2fee3584 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin
index 5f360f2f..5f360f2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin
index 5aa530ec..5aa530ec 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin
index 5e76126d..5e76126d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin
index 3fd4aeda..3fd4aeda 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin
index 3262007d..3262007d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin
index a05f649a..a05f649a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin
index 1bd27535..1bd27535 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin
index 1668581e..1668581e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin
index 3acff07e..3acff07e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin
index 06515c27..06515c27 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin
index e0c9fdf2..e0c9fdf2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin
index 487a5881..487a5881 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin
index 15d7c7ea..15d7c7ea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin
index 8356c7d3..8356c7d3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin
index 8a956544..8a956544 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin
index 06813c26..06813c26 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin
index 53ef48f2..53ef48f2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin
index a4463d6f..a4463d6f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin
index 35bbb30a..35bbb30a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin
index 1c115eb9..1c115eb9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin
index 90e83be0..90e83be0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin
index 3cc76a71..3cc76a71 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin
index 51ccdf48..51ccdf48 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin
index bba8a4ee..bba8a4ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin
index 3a5e517b..3a5e517b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin
index d89801c7..d89801c7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin
index f89ae3a7..f89ae3a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin
index cc5aea83..cc5aea83 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin
index e454fb5a..e454fb5a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin
index 1749fad9..1749fad9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin
index 8613eba7..8613eba7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names
index 02079ff8..02079ff8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
index 9a32ff18..9a32ff18 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin
index d21df4c3..d21df4c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
index c940a543..c940a543 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
index 4a709337..4a709337 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
index 6deb302c..6deb302c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin
index 4dcd94f2..4dcd94f2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
index f6ac6ef2..f6ac6ef2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin
index 7c3ca7ca..7c3ca7ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
index 9073ca6e..9073ca6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
index 56e18c45..56e18c45 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
index 68dfe27c..68dfe27c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin
index 45527ddc..45527ddc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
index 881662b1..881662b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
index b6f33643..b6f33643 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
index 8d9201cc..8d9201cc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin
index 8c80117b..8c80117b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
index d8883e6c..d8883e6c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin
index 4ee61642..4ee61642 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
index 0a362b01..0a362b01 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin
index eb9e3072..eb9e3072 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
index bb77c105..bb77c105 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin
index 2f570d6e..2f570d6e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
index f93e3200..f93e3200 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin
index bcf1d42b..bcf1d42b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
index 7d1993eb..7d1993eb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin
index 51ad025e..51ad025e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
index ac639249..ac639249 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin
index e238cbcb..e238cbcb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
index dac12561..dac12561 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin
index 40553cd7..40553cd7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
index 12947bcd..12947bcd 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin
index d5c08e6d..d5c08e6d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
index 2e944821..2e944821 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin
index 162c473d..162c473d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
index f86ddfa0..f86ddfa0 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
index 41515f60..41515f60 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
index 657efc23..657efc23 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
index 00fea499..00fea499 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
index 48154cf1..48154cf1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
index fe5aa36a..fe5aa36a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
index 5157c111..5157c111 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
index 320dc759..320dc759 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
index f57c4961..f57c4961 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
index e4dd5aa2..e4dd5aa2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
index 8d1edf78..8d1edf78 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
index 69e9a115..69e9a115 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
index aa1216dd..aa1216dd 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
index dea083ce..dea083ce 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
index 111e9b3b..111e9b3b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
index 90ba14bb..90ba14bb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
index 30c646a6..30c646a6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
index a0f9bec1..a0f9bec1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
index fcc7687c..fcc7687c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
index 1504ef28..1504ef28 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
index 310ac166..310ac166 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
index 09869b72..09869b72 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
index 1574d812..1574d812 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
index 9b976e9a..9b976e9a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
index b63aba5c..b63aba5c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
index 479debe4..479debe4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
index 2148c061..2148c061 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
index 7a4e7e0e..7a4e7e0e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
index bf9572c5..bf9572c5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin
index ee0c01eb..ee0c01eb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
index f2928103..f2928103 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin
index 459ad839..459ad839 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
index da7c3850..da7c3850 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
index 2f0714fe..2f0714fe 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
index 64b93e1a..64b93e1a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
index 6a9af1b5..6a9af1b5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
index 39b363f6..39b363f6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
index 45c1666b..45c1666b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
index a3f345cb..a3f345cb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
index 2ae19755..2ae19755 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
index 2abe8c90..2abe8c90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin
index ebbf0250..ebbf0250 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
index ab4d55b5..ab4d55b5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
index 945f328f..945f328f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
index 07c17303..07c17303 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
index edfc2433..edfc2433 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
index ba168b71..ba168b71 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
index fcf19f53..fcf19f53 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
index 5fc40737..5fc40737 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
index 6c2acae3..6c2acae3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
index 9d97b3ce..9d97b3ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
index 5a5c9703..5a5c9703 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
index a530284b..a530284b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
index 29f41d3c..29f41d3c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
index f3bdf700..f3bdf700 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
index c0c9a068..c0c9a068 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
index 0081b20c..0081b20c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
index c4172a33..c4172a33 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
index a87506d2..a87506d2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
index 8efb0eb2..8efb0eb2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
index 7e24efcb..7e24efcb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
index 98b1a53c..98b1a53c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
index 8c2b6eee..8c2b6eee 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
index 8d097887..8d097887 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
index 33f1d807..33f1d807 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
index a3855489..a3855489 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
index 07cbb09b..07cbb09b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
index ae85baa1..ae85baa1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
index 0ea935b6..0ea935b6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin
index 4f20be30..4f20be30 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
index a8221f5b..a8221f5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin
index 48b89428..48b89428 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
index fa26b319..fa26b319 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
index b20f8311..b20f8311 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
index 1df8e5e3..1df8e5e3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
index fc463260..fc463260 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
index 82e9ac48..82e9ac48 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
index 5069d551..5069d551 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
index b06ac44b..b06ac44b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin
index 1935267f..1935267f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
index 43d8ea6e..43d8ea6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin
index b4f3edb7..b4f3edb7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
index cbffc3d7..cbffc3d7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
index 8854f5a7..8854f5a7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
index b6a53b62..b6a53b62 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
index 91415a88..91415a88 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
index be16b473..be16b473 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
index 7b1b6ff3..7b1b6ff3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
index 36531da2..36531da2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
index c7f08dda..c7f08dda 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
index 5054faf2..5054faf2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
index 489764ae..489764ae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
index fc2847c7..fc2847c7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin
index fe44d95c..fe44d95c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
index dc35fde5..dc35fde5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin
index a678c346..a678c346 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
index 7e4ea8a1..7e4ea8a1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin
index 5871fcc7..5871fcc7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
index c4d9b86a..c4d9b86a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
index 9777c32b..9777c32b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
index 3a06be00..3a06be00 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
index cf57e835..cf57e835 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
index 84fd6daa..84fd6daa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
index 071b7070..071b7070 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
index 2ec407ec..2ec407ec 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin
index 198c0c88..198c0c88 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
index 5cb45c6f..5cb45c6f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin
index 42407401..42407401 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
index b091754f..b091754f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
index dd1bf063..dd1bf063 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
index 9b67e366..9b67e366 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
index d9d9c1bf..d9d9c1bf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
index bfc191b9..bfc191b9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
index 6e120c8d..6e120c8d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
index cded7ef2..cded7ef2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin
index 36e0755f..36e0755f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
index ff4a3c43..ff4a3c43 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin
index 027661d5..027661d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
index b9c86eef..b9c86eef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin
index d5745d92..d5745d92 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
index 15ddd0a8..15ddd0a8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
index a18f4f27..a18f4f27 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
index 2a4d1491..2a4d1491 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
index b714247e..b714247e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
index 5b9df24b..5b9df24b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
index ea7beb15..ea7beb15 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
index d51dfa91..d51dfa91 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
index 9c11aaad..9c11aaad 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
index ae0bea54..ae0bea54 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
index d32b2b3d..d32b2b3d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
index 7dc8bef1..7dc8bef1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
index 10b573ba..10b573ba 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
index 0ed2f249..0ed2f249 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin
index 8af8ea49..8af8ea49 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
index c300cf6e..c300cf6e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin
index 513db3d6..513db3d6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
index 062fcc5c..062fcc5c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
index 54c4fa4b..54c4fa4b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
index 903679ab..903679ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
index e1a1d3b6..e1a1d3b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
index 218b599f..218b599f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
index de2203fe..de2203fe 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
index af259244..af259244 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin
index cc5d39c4..cc5d39c4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
index 2d0d840b..2d0d840b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin
index 91dee3ce..91dee3ce 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
index 6182f4a7..6182f4a7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin
index 4cc02afc..4cc02afc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
index 437ff122..437ff122 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin
index 828acf25..828acf25 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
index 071f7381..071f7381 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin
index 5e765044..5e765044 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
index 97ddae5b..97ddae5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin
index ba4a0779..ba4a0779 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
index 3d17995e..3d17995e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
index a66e7b20..a66e7b20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
index ca4e0d2a..ca4e0d2a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
index d0751e37..d0751e37 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
index 5395d885..5395d885 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
index 4e13bb0c..4e13bb0c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
index 236287ef..236287ef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin
index b7f91dc9..b7f91dc9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
index 7bc05ed9..7bc05ed9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin
index d4296e92..d4296e92 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
index 2ead122d..2ead122d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin
index 65df35b0..65df35b0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
index ab8a54b6..ab8a54b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin
index 39861c63..39861c63 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
index ae02fee1..ae02fee1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
index 875a82b3..875a82b3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
index b0715484..b0715484 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
index 37882bfa..37882bfa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
index 9dacd30c..9dacd30c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin
index 80050aeb..80050aeb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
index d5e09ff4..d5e09ff4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin
index cca9ea76..cca9ea76 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
index abd3377f..abd3377f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin
index 9c865940..9c865940 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
index 59b4fdcc..59b4fdcc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
index 806ccfa3..806ccfa3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
index a1218d06..a1218d06 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin
index fd6bbac1..fd6bbac1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
index 2a2e5b6c..2a2e5b6c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin
index 12e2536d..12e2536d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
index ed92a5aa..ed92a5aa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin
index 12429fff..12429fff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
index 4b246e95..4b246e95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin
index a247d3a0..a247d3a0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
index bf6f976f..bf6f976f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin
index ab928c50..ab928c50 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
index 9f9f9d95..9f9f9d95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
index b5f41832..b5f41832 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
index 4d7863b1..4d7863b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
index 10fe9aa7..10fe9aa7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
index c2c35355..c2c35355 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
index 13bbbe42..13bbbe42 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
index 04aaf4eb..04aaf4eb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
index 5baec784..5baec784 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
index 78cd46e5..78cd46e5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
index 5d029c80..5d029c80 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
index bbe02e62..bbe02e62 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
index 2f1c2398..2f1c2398 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
index c12b721e..c12b721e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin
index ffe8ecfe..ffe8ecfe 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
index 82cf1e2c..82cf1e2c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin
index f7e0a110..f7e0a110 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
index 371807fa..371807fa 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin
index 70d72423..70d72423 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
index 0e38dae7..0e38dae7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin
index 0d78251c..0d78251c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
index 4e38175f..4e38175f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin
index fdf86c27..fdf86c27 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
index a07a89d1..a07a89d1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
index fcb5da5c..fcb5da5c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
index 4090c2da..4090c2da 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin
index 7949b7bf..7949b7bf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
index 7a7a4b78..7a7a4b78 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
index dc1116b4..dc1116b4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
index f99917cf..f99917cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
index b8e9311a..b8e9311a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
index bc44c2e9..bc44c2e9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
index 5f1081ec..5f1081ec 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
index 0bc9f736..0bc9f736 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
index e44f369d..e44f369d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
index 27e70d48..27e70d48 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
index f1333732..f1333732 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
index f3bbd3ec..f3bbd3ec 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin
index 1c1d8d80..1c1d8d80 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
index 81b0492f..81b0492f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
index eb542783..eb542783 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
index 9cf82362..9cf82362 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin
index ec29163f..ec29163f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
index e9915e1b..e9915e1b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
index a5b313ff..a5b313ff 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
index e24525e1..e24525e1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin
index 04b49b15..04b49b15 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
index 443751be..443751be 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
index ae09526a..ae09526a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
index 99ad5910..99ad5910 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
index 76247746..76247746 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
index 4838d658..4838d658 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin
index e8a0ce7a..e8a0ce7a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
index dc917f30..dc917f30 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin
index 36526d8e..36526d8e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
index a16a5a4d..a16a5a4d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin
index e1c2db72..e1c2db72 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
index fb8aa27b..fb8aa27b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin
index 8f3c4b69..8f3c4b69 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
index 11b02c63..11b02c63 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin
index 1bc9eef3..1bc9eef3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
index 65f543ea..65f543ea 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin
index 0392c6b0..0392c6b0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
index 65ba1166..65ba1166 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin
index 61d508ef..61d508ef 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
index 79826f90..79826f90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
index 2bc985c7..2bc985c7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
index de8d4b0d..de8d4b0d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin
index bcb9509f..bcb9509f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
index 43eab74b..43eab74b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin
index 5b35bcb9..5b35bcb9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
index 4f06c437..4f06c437 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
index 92d14b2c..92d14b2c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
index daf5a2d9..daf5a2d9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
index 5a0d9b25..5a0d9b25 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
index 623af493..623af493 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
index cb5b4953..cb5b4953 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
index 8d45fea1..8d45fea1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
index c15a987e..c15a987e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
index 2fed1197..2fed1197 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
index 3666302f..3666302f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
index d6e49c14..d6e49c14 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
index d9515fd8..d9515fd8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
index 6fd31749..6fd31749 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
index b85a4f1a..b85a4f1a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
index 7f05a2ab..7f05a2ab 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
index f5ff95b4..f5ff95b4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
index 10c846dc..10c846dc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
index 116f9ae6..116f9ae6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
index e3e281f3..e3e281f3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
index bd65bd09..bd65bd09 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
index b336c763..b336c763 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
index 23f75fa2..23f75fa2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
index 8a4f0557..8a4f0557 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
index cc184ed1..cc184ed1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
index 193ad384..193ad384 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
index 70999c76..70999c76 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
index a404370a..a404370a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin
index b3417b7a..b3417b7a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
index 9e0227e8..9e0227e8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin
index a7c43a91..a7c43a91 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
index 3826b281..3826b281 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin
index 4bb581d7..4bb581d7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
index 996559db..996559db 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin
index 47aea6f6..47aea6f6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
index 140516b1..140516b1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin
index 65217043..65217043 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
index d49bce91..d49bce91 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin
index 6093f704..6093f704 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
index dad4f4ef..dad4f4ef 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
index 1720cf7c..1720cf7c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
index 20a86640..20a86640 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin
index 1691debf..1691debf 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
index e8a80ff3..e8a80ff3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin
index c6d194f0..c6d194f0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
index 6c523fc2..6c523fc2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
index d9a85501..d9a85501 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
index ba5b346a..ba5b346a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin
index fed77a7d..fed77a7d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
index c33e23a8..c33e23a8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin
index 2a419206..2a419206 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
index d8775fb3..d8775fb3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin
index 99ec2207..99ec2207 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
index 15543b8a..15543b8a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
index 09306fec..09306fec 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
index 808924a4..808924a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
index b73e2b6a..b73e2b6a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
index 42fde6a5..42fde6a5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
index fde60066..fde60066 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
index 519bc9da..519bc9da 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
index aaf01a9b..aaf01a9b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
index 4007e1b3..4007e1b3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
index 0562b2b2..0562b2b2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
index e902ce5d..e902ce5d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
index 4fad25f8..4fad25f8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
index a3056f66..a3056f66 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
index 3324d29e..3324d29e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
index 461549e9..461549e9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
index 6f58ed83..6f58ed83 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
index edf043ca..edf043ca 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
index 75982c37..75982c37 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
index 8889de32..8889de32 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
index c39ee4b6..c39ee4b6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
index 823fc8c4..823fc8c4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
index 9695687c..9695687c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
index 82ac7c4f..82ac7c4f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
index 323d0fcd..323d0fcd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
index ce7e0d76..ce7e0d76 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
index 14f251f7..14f251f7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
index 83661787..83661787 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin
index fc163602..fc163602 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
index 4e3effdc..4e3effdc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin
index 092914d8..092914d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
index 5adb4837..5adb4837 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin
index 73386a71..73386a71 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
index 0b4844df..0b4844df 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin
index 5d9d9e2f..5d9d9e2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
index 5b3cd178..5b3cd178 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin
index bf10f26e..bf10f26e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
index a8581b1b..a8581b1b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin
index badede95..badede95 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
index 15d74ec4..15d74ec4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin
index b732c600..b732c600 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
index 39c23c45..39c23c45 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin
index e48ca436..e48ca436 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
index eb689ffe..eb689ffe 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
index 6c1648ab..6c1648ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
index ea2c8e28..ea2c8e28 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
index a76d1351..a76d1351 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
index d5333cd1..d5333cd1 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
index 6f261d0b..6f261d0b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
index 1eae4bc9..1eae4bc9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
index c447109d..c447109d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
index 9c7806f5..9c7806f5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin
index 9e24e48d..9e24e48d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
index 879067ce..879067ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin
index 4105b83f..4105b83f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
index 02fe98a5..02fe98a5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin
index 8e0c2f4b..8e0c2f4b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
index 835c173e..835c173e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin
index bd4d18f5..bd4d18f5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
index e422b6fc..e422b6fc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin
index 83ccabf1..83ccabf1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
index c4c79c26..c4c79c26 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin
index c2072a26..c2072a26 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
index 29870630..29870630 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin
index 4a5a308d..4a5a308d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
index 3c8018e3..3c8018e3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin
index 9d90d190..9d90d190 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
index 58ab8101..58ab8101 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin
index ef215643..ef215643 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
index 6928d928..6928d928 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin
index b571d4dd..b571d4dd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
index 21677841..21677841 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin
index fb253985..fb253985 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
index fc548f28..fc548f28 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin
index 1a7c1121..1a7c1121 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
index 35e2347e..35e2347e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin
index 181d1354..181d1354 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
index fd2a35d0..fd2a35d0 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin
index 16b3b587..16b3b587 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
index c39cdadc..c39cdadc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin
index 337e76a9..337e76a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
index b23dfdc8..b23dfdc8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
index 8a75cbf0..8a75cbf0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
index bc866928..bc866928 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
index a4c6dba6..a4c6dba6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
index bf137751..bf137751 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
index 5adfea2f..5adfea2f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
index bbe28c12..bbe28c12 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
index 8b17d615..8b17d615 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
index 74c552a6..74c552a6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
index 0ce6a992..0ce6a992 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
index 82feeff2..82feeff2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
index 7594630e..7594630e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
index b43451a9..b43451a9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
index b042e991..b042e991 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
index 78776d7b..78776d7b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
index 51257705..51257705 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
index d16ebf80..d16ebf80 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
index b86773c2..b86773c2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
index 98f2ca94..98f2ca94 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin
index 97796c60..97796c60 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
index f6452897..f6452897 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
index 1d290957..1d290957 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
index e3cd5ebc..e3cd5ebc 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
index 09489c68..09489c68 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
index fe5e52b9..fe5e52b9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
index c662aeb8..c662aeb8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
index f94437cf..f94437cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin
index 3cd0fa20..3cd0fa20 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
index 5b0a3474..5b0a3474 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
index d31053f9..d31053f9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
index e0020f0b..e0020f0b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
index f834f86d..f834f86d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
index 63bc151f..63bc151f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin
index 1b37ca31..1b37ca31 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
index 41b9a1b6..41b9a1b6 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin
index 7a5123d8..7a5123d8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
index 0e2f9d0a..0e2f9d0a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
index c4cecfc7..c4cecfc7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
index b993ffa9..b993ffa9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
index 5fc7bc24..5fc7bc24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
index 8d732a9d..8d732a9d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin
index 1910dfd9..1910dfd9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
index ce63e542..ce63e542 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin
index 9085bc24..9085bc24 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
index 0c2c209a..0c2c209a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin
index 83b428d4..83b428d4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
index 0a3158cc..0a3158cc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
index 02bd62fd..02bd62fd 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
index d006f3ec..d006f3ec 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
index cfb497e7..cfb497e7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
index a4f1ad89..a4f1ad89 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
index 116083a4..116083a4 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
index 839452f6..839452f6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
index 22d88c39..22d88c39 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
index c1656b15..c1656b15 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
index 9f2e42ee..9f2e42ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
index eaf9f6df..eaf9f6df 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
index 4a58106b..4a58106b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
index 7109f789..7109f789 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
index d9cd1315..d9cd1315 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
index 837a5727..837a5727 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
index 66f6a956..66f6a956 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
index facea4d5..facea4d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
index e8683dd9..e8683dd9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
index 9082290d..9082290d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
index bc806d95..bc806d95 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
index 910aa734..910aa734 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin
index fc876c55..fc876c55 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
index 845cac17..845cac17 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin
index f55e05bc..f55e05bc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
index d14f3b3a..d14f3b3a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin
index 025c430a..025c430a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
index 7e563f4b..7e563f4b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin
index 60750005..60750005 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
index e918e475..e918e475 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin
index e70977ce..e70977ce 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
index 2a4a3c95..2a4a3c95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin
index 63725d0f..63725d0f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
index 8f9d6053..8f9d6053 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin
index 6a258c98..6a258c98 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
index 5fab30e2..5fab30e2 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin
index cb6ec45d..cb6ec45d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
index 51b8e0c3..51b8e0c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin
index 7bcd0094..7bcd0094 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
index 4b8b932b..4b8b932b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin
index b8a538c3..b8a538c3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
index ae713f4e..ae713f4e 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin
index 6822b346..6822b346 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
index a17c9e95..a17c9e95 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin
index a8591c05..a8591c05 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
index 2ee06cbb..2ee06cbb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin
index 71df5ec2..71df5ec2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
index 22f13c4d..22f13c4d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin
index 91bbc8da..91bbc8da 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
index 62a1f624..62a1f624 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin
index d5934c6e..d5934c6e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
index 500ef7f9..500ef7f9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin
index c628c2f0..c628c2f0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
index 455551bb..455551bb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin
index b36a2407..b36a2407 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
index a3b86b01..a3b86b01 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin
index d3561ee9..d3561ee9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
index 1d4868c9..1d4868c9 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin
index cba724b8..cba724b8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
index cb6c79ae..cb6c79ae 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin
index 7f82c6ee..7f82c6ee 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
index ff9de892..ff9de892 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin
index 23ded039..23ded039 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
index 84ea4d60..84ea4d60 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin
index 992a793c..992a793c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
index 92883d5a..92883d5a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin
index 5ab2b0d2..5ab2b0d2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
index fb72097b..fb72097b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
index 623920c5..623920c5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
index 9c20a13b..9c20a13b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
index 183f7fda..183f7fda 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
index 7a759f69..7a759f69 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
index 5f77179e..5f77179e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
index 9833a7f4..9833a7f4 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
index 66da5cea..66da5cea 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
index 082ccec3..082ccec3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
index cd42fdf6..cd42fdf6 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
index cde6870f..cde6870f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
index c7f1f6f1..c7f1f6f1 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
index 5a15d61c..5a15d61c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
index b6341637..b6341637 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
index 0e4c6a5b..0e4c6a5b 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
index 636f24b3..636f24b3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
index c10cdb8d..c10cdb8d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
index 2b4fd676..2b4fd676 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
index 546f66d8..546f66d8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
index 08ac4249..08ac4249 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
index e5a387f5..e5a387f5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
index f1b9d960..f1b9d960 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
index 5aa4e5e5..5aa4e5e5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
index bea54bf3..bea54bf3 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
index ecc63e41..ecc63e41 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
index 48ba5b55..48ba5b55 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
index ec4fa716..ec4fa716 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin
index e93fdf6e..e93fdf6e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
index 4eec31cf..4eec31cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
index 1d3bd14f..1d3bd14f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
index 5914d47a..5914d47a 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin
index f0879401..f0879401 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
index 1270f789..1270f789 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin
index d382a6b0..d382a6b0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
index 57dde938..57dde938 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
index 03417429..03417429 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
index c91e73cf..c91e73cf 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
index bacaa702..bacaa702 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
index 077a88cb..077a88cb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin
index b5252573..b5252573 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
index 9fe33c06..9fe33c06 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin
index c9477a3a..c9477a3a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
index a4de85ea..a4de85ea 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin
index e8876298..e8876298 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
index 8f4da94d..8f4da94d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
index 5f1b02bc..5f1b02bc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
index 785b605c..785b605c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
index cd35f9cc..cd35f9cc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
index 55fdfd0f..55fdfd0f 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
index 7abbf37d..7abbf37d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
index 0d649872..0d649872 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
index ebda20ac..ebda20ac 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
index d63a3470..d63a3470 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
index 57730f7f..57730f7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
index 621f6256..621f6256 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
index c702d4e8..c702d4e8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
index 9b848315..9b848315 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
index 3f2db49a..3f2db49a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
index 2a8b08ca..2a8b08ca 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
index 4bd0517d..4bd0517d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
index 8ef93556..8ef93556 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
index 322cde18..322cde18 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
index a3139873..a3139873 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
index ea787159..ea787159 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
index ecb7b788..ecb7b788 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
index 43440fc9..43440fc9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
index 97d32d85..97d32d85 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
index 69956280..69956280 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
index 0c239842..0c239842 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
index 66fe8e3c..66fe8e3c 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
index f661c649..f661c649 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
index 52222c34..52222c34 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
index 8cbae5dc..8cbae5dc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
index d95b41da..d95b41da 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
index f83cc8c8..f83cc8c8 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
index eec32b1e..eec32b1e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
index b3b9a417..b3b9a417 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
index c724a1fa..c724a1fa 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
index 03cabf81..03cabf81 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
index a19894a9..a19894a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
index b8926589..b8926589 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
index 6b59198a..6b59198a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
index 166af676..166af676 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
index 7a1b6b04..7a1b6b04 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
index 469da91a..469da91a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
index 71c3785e..71c3785e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
index 96d1c734..96d1c734 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
index 0da12c0f..0da12c0f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
index fc443411..fc443411 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
index 8f036e77..8f036e77 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
index c6ceff89..c6ceff89 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
index 43d2d234..43d2d234 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
index a7a3fc2d..a7a3fc2d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin
index 5e7b9411..5e7b9411 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
index 8ef53bd5..8ef53bd5 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
index 43315b47..43315b47 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
index 98d69544..98d69544 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
index 9b27594a..9b27594a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
index a2e31085..a2e31085 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
index 838fdc91..838fdc91 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
index b4705593..b4705593 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
index 60e56331..60e56331 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
index 74910ceb..74910ceb 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
index b6a902cc..b6a902cc 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
index 4bc7684c..4bc7684c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
index 3118062d..3118062d 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
index 527d3834..527d3834 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
index 1692f2d7..1692f2d7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
index 44bde517..44bde517 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
index 8410cc5f..8410cc5f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
index de320918..de320918 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
index cfd85f0b..cfd85f0b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
index baa03e73..baa03e73 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
index 329b7bae..329b7bae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
index 24920661..24920661 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
index cd12acae..cd12acae 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
index d62acaf3..d62acaf3 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
index 74ac71e0..74ac71e0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
index b46e359c..b46e359c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
index 7ac1f185..7ac1f185 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
index 11def80c..11def80c 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
index 646215a8..646215a8 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
index 59c5ba54..59c5ba54 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
index 28eecf7a..28eecf7a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
index d168b4f7..d168b4f7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
index baa9001a..baa9001a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
index 059ac6d5..059ac6d5 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
index 734a3c14..734a3c14 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
index ae51bf8b..ae51bf8b 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
index 5e4a47e2..5e4a47e2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
index 51a13884..51a13884 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin
index 4b55a62a..4b55a62a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
index 60d73ef7..60d73ef7 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin
index 42261931..42261931 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
index 28ab28ce..28ab28ce 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin
index aff6ce0e..aff6ce0e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
index e18e83d7..e18e83d7 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin
index c10e835a..c10e835a 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
index b2118c90..b2118c90 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
index 58069271..58069271 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
index b833802d..b833802d 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
index 9bafd8a9..9bafd8a9 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
index d9c1c7df..d9c1c7df 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
index dd606856..dd606856 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
index 0a835534..0a835534 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin
index e990681f..e990681f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
index 73d0d261..73d0d261 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin
index acd2edd0..acd2edd0 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
index 5c237179..5c237179 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
index 76e4408e..76e4408e 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
index 13601556..13601556 100755..100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
index 3083cb73..3083cb73 100644
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max b/texmf-dist/scripts/ketcindy/ketlib/maximaL/fourier_sec.max
index c70f7f46..c70f7f46 100644
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max
+++ b/texmf-dist/scripts/ketcindy/ketlib/maximaL/fourier_sec.max
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max b/texmf-dist/scripts/ketcindy/ketlib/maximaL/matoperation.max
index 512a9ffb..512a9ffb 100644
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max
+++ b/texmf-dist/scripts/ketcindy/ketlib/maximaL/matoperation.max
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac b/texmf-dist/scripts/ketcindy/ketlib/maximaL/poincare.mac
index aefab3a2..aefab3a2 100644
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac
+++ b/texmf-dist/scripts/ketcindy/ketlib/maximaL/poincare.mac
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp b/texmf-dist/scripts/ketcindy/ketlib/maximaL/rkfun.lisp
index 70aafc7f..70aafc7f 100644
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp
+++ b/texmf-dist/scripts/ketcindy/ketlib/maximaL/rkfun.lisp
diff --git a/texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.pdf b/texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.pdf
new file mode 100644
index 00000000..33864232
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.pdf
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr b/texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.rr
index badddccb..ba7131ab 100644
--- a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr
+++ b/texmf-dist/scripts/ketcindy/ketlib/oshima/os_muldif.rr
@@ -5,7 +5,7 @@
/* #undef USEMODULE */
/* os_muldif.rr (Library for Risa/Asir)
- * Toshio Oshima (Nov. 2007 - June 2017)
+ * Toshio Oshima (Nov. 2007 - Aug. 2017)
*
* For polynomials and differential operators with coefficients
* in rational funtions (See os_muldif.pdf)
@@ -180,6 +180,8 @@ localf eta$
localf jell$
localf frac$
localf erfc$
+localf orthpoly$
+localf schurpoly$
localf fouriers$
localf todf$
localf f2df$
@@ -271,6 +273,7 @@ localf okuboetos$
localf heun$
localf fspt$
localf abs$
+localf sgn$
localf calc$
localf isint$
localf israt$
@@ -398,6 +401,9 @@ localf areabezier$
localf saveproc$
localf xygraph$
localf xy2graph$
+localf addIL$
+localf xy2curve$
+localf xygrid$
localf xyarrow$
localf xyarrows$
localf xyang$
@@ -451,7 +457,7 @@ extern LQS$
static S_Fc,S_Dc,S_Ic,S_Ec,S_EC,S_Lc$
static S_FDot$
extern AMSTeX$
-Muldif.rr="00170612"$
+Muldif.rr="00170825"$
AMSTeX=1$
TeXEq=5$
TeXLim=80$
@@ -550,9 +556,7 @@ def makenewv(L)
if((V=getopt(var))<2) V="z_";
else if(isvar(V)) V=rtostr(V);
if(type(N=getopt(num))!=1) N=0;
- Var=vars(L);
- for(Va=Var;Va!=[];Va=cdr(Va))
- if(vtype(car(Va))==2) Var=append(vars(args(car(Va))),Var);
+ Var=varargs(L|all=2);
for(XX=[],I=J=0;;I++){
X=strtov(V+rtostr(I));
if(findin(X,Var)<0){
@@ -616,6 +620,12 @@ def mycat(L)
def fcat(S,X)
{
if(type(S)!=7){
+ if(type(DIROUTD)!=7){
+ DIROUTD=str_subst(DIROUT,["%HOME%","%ASIRROOT%","\\"],
+ [getenv("HOME"),get_rootdir(),"/"])+"/";
+ if(isMs()) DIROUTD=str_subst(DIROUTD,"/","\\"|sjis=1);
+ }
+ if(S==-1) return;
T="fcat";
if(S>=2&&S<=9) T+=rtostr(S);
T=DIROUTD+T+".txt";
@@ -623,16 +633,18 @@ def fcat(S,X)
if(S!=0&&access(T)) remove_file(T);
S=T;
}
- output(S);
+ R=output(S);
print(X);
output();
if(getopt(exe)==1) shell("\""+S+"\"");
+ return R;
}
def mycat0(L,T)
{
Opt = getopt(delim);
Del = (type(Opt) >= 0)?Opt:"";
+ if(type(L)!=4) L=[L];
while(L != []){
if(Do==1)
print(Del,0);
@@ -728,7 +740,7 @@ def mydiff(P,X)
for(;X!=[];X=cdr(X)) P=mydiff(P,car(X));
return P;
}
- if(deg(dn(P),X) == 0)
+ if(ptype(dn(P),X)<2)
return red(diff(nm(P),X)/dn(P));
return red(diff(P,X));
}
@@ -1245,21 +1257,36 @@ def mulseries(V1,V2)
def scale(L)
{
T=0;LS=1;
+ Pr=getopt(prec);
if(type(L)!=4){
if(L==2){
- L=[[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2]],
+ L=(Pr!=1)?
+ [[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2]],
[[1,2,1/10],[2,5,1/2], [10,20,1],[20,50,5]],
- [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10]]];
+ [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10]]]:
+ [[[1,2,1/50],[2,5,1/20],[5,10,1/10], [10,20,1/5],[20,50,1/2],[50,100,1]],
+ [[1,5,1/10],[5,10,1/2], [10,20,1],[50,100,5]],
+ [[1,5,1/2],[5,10,1], [10,50,5],[50,100,10]]];
LS=2;
}else if(L==3){
- L=[[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2],
- [100,200,5],[200,500,10],[500,1000,20]],
+ L=(Pr!=1)?
+ [[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2],
+ [100,200,5],[200,500,10],[500,1000,20]],
[[1,2,1/10],[2,5,1/2], [10,20,1],[20,50,5], [100,200,10],[200,500,50]],
- [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10], [100,200,50],[200,1000,100]]];
+ [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10], [100,200,50],[200,1000,100]]]:
+ [[[1,2,1/50],[2,5,1/20],[5,10,1/10],[10,20,1/5],[20,50,1/2],[50,100,1],
+ [100,200,2],[200,500,5],[500,1000,10]],
+ [[1,5,1/10],[5,10,1/2], [10,50,1],[50,100,5], [100,500,10],[500,1000,50]],
+ [[1,5,1/2],[5,10,1], [10,50,5],[50,100,10], [100,500,50],[500,1000,100]]];
LS=3;
}else{
- L=[[[1,2,1/50],[5,10,1/2],[5,10,1/10]],[[1,5,1/10],[5,10,1/2]],
- [[1,5,1/2],[5,10,1]]];
+ L=(Pr!=1)?
+ [[[1,2,1/50],[2,5,1/20],[5,10,1/10]],
+ [[1,5,1/10],[5,10,1/2]],
+ [[1,5,1/2],[5,10,1]]]:
+ [[[1,2,1/100],[2,5,1/50],[5,10,1/20]],
+ [[1,2,1/20],[2,10,1/10]],
+ [[1,2,1/10],[2,10,1/2]]];
}
}else if(type(L[0])!=4){
L=[L];
@@ -1284,41 +1311,48 @@ def scale(L)
SC=getopt(scale);
if(type(SC)==4){
S0=SC[0];S1=SC[1];
- }else if(type(S)==1){
- S0=S;S1=0;
+ }else if(type(SC)==1){
+ S0=SC;S1=0;
}else return T;
if(type(D=getopt(shift))==4){
D0=D[0];D1=D[1];
}
if(type(F=getopt(f))>1) F=f2df(F);
else F=0;
- for(M=[],I=length(T);T!=[];T=cdr(T),I--){
+ for(M=M0=[],I=length(T);T!=[];T=cdr(T),I--){
for(S=car(T);S!=[];S=cdr(S)){
V=((!F)?dlog(car(S))/dlog(10)/LS:myfdeval(F,car(S)))*S0;
if(S1!=0){
M=cons([V+D0,D1],M);
M=cons([V+D0,I*((length(SC)>2)?SC[I]:S1)+D1],M);
M=cons(0,M);
- }else M=cons(V+D0,M);
+ }else M0=cons(V+D0,M0);
}
+ if(S1==0) M=cons(reverse(M0),M);
}
if(S1!=0) M=cdr(M);
+ if(S1==0||getopt(TeX)!=1) return M;
M=reverse(M);
- if(getopt(TeX)==1){
- if(type(U=getopt(line))==4)
- M=cons([U[0]+D0,D1],cons([U[1]+D0,D1],cons(0,M)));
- S=xylines(M);
- if(type(Mes=getopt(mes))==4){
- S3=car(Mes);
- V=car(scale(cdr(Mes)));
- if(!F) Mes=scale(cdr(Mes)|scale=[S0/LS,0],shift=[D0,D1]);
- else Mes=scale(cdr(Mes)|f=F,scale=[S0,0],shift=[D0,D1]);
- for(M=Mes;M!=[];M=cdr(M),V=cdr(V))
- S+=xyput([car(M),S3,deval(car(V))]);
+ if(type(U=getopt(line))==4)
+ M=cons([U[0]+D0,D1],cons([U[1]+D0,D1],cons(0,M)));
+ if(type(Col=getopt(col))<1) S=xylines(M);
+ else S=xylines(M|opt=Col);
+ if(type(Mes=getopt(mes))==4){
+ S3=car(Mes);
+ if(type(S3)==4){
+ Col=S3[1];
+ S3=car(S3);
+ }else Col=0;
+ V=car(scale(cdr(Mes)));
+ if(!F) Mes=scale(cdr(Mes)|scale=[S0/LS,0],shift=[D0,D1]);
+ else Mes=scale(cdr(Mes)|f=F,scale=[S0,0],shift=[D0,D1]);
+ for(M=car(Mes);M!=[];M=cdr(M),V=cdr(V)){
+ VT=deval(car(V));
+ if(Col!=0) VT=[Col,VT];
+ S+=xyput([car(M),S3,VT]);
}
- return S;
}
- return M;
+ return S;
}
def pluspower(P,V,N,M)
@@ -3631,9 +3665,27 @@ def ladd(X,Y,M)
def mrot(X)
{
+ if(type(X)==4){
+ if(getopt(deg)==1)
+ X=[deval(@pi*X[0]/180),deval(@pi*X[1]/180),deval(@pi*X[2]/180)];
+ if(getopt(conj)==1)
+ return mrot([-X[2],-X[1],0])*mrot([X[0],X[1],X[2]]);
+ if(X[1]==0){
+ X=[X[0]+X[2],0,0];
+ if(X[0]==0) return diagm(3,[1]);
+ }
+ if(X[0]!=0){
+ M=mat([dcos(X[0]),-dsin(X[0]),0],[dsin(X[0]),dcos(X[0]),0],[0,0,1]);
+ if(X[1]==0) return M;
+ }
+ N=mat([dcos(X[1]),0,-dsin(X[1])],[0,1,0],[dsin(X[1]),0,dcos(X[1])]);
+ if(X[0]!=0) N=M*N;
+ if(X[2]==0) return N;
+ return N*mrot([X[2],0,0]);
+ }
if(getopt(deg)==1) X=@pi*X/180;
X=deval(X);
- return mat([dcos(X),dsin(X)],[-dsin(X),dcos(X)]);
+ return mat([dcos(X),-dsin(X)],[dsin(X),dcos(X)]);
}
def m2v(M)
@@ -5779,7 +5831,7 @@ def pol2sft(F,A)
def binom(P,N)
{
- if(type(N)!=1 || N<0) return 1;
+ if(type(N)!=1 || N<=0) return 1;
for(S=1;N>0;N--,P-=1) S*=P/N;
return red(S);
}
@@ -5795,6 +5847,7 @@ def expower(P,R,N)
def seriesHG(A,B,X,N)
{
+ if(N==0) return 1;
if(type(N)!=1 || N<0) return 0;
if(type(X)<4){
for(K=0,S=S0=1;K<N;K++){
@@ -7415,6 +7468,22 @@ def abs(X)
return X;
}
+def sgn(X)
+{
+ if(X==0) return 0;
+ if(type(X)==1){
+ return (X>0)?1:-1;
+ }
+ if(type(X)==5) X=vtol(X);
+ if(type(X)==4){
+ for(W=0,Y=X;Y!=[];Y=cdr(Y))
+ for(Z=cdr(Y);Z!=[];Z=cdr(Z))
+ if(car(Y)>car(Z)) W++;
+ if(getopt(val)==1) return W;
+ return (iand(W,1))?-1:1;
+ }
+}
+
def calc(X,L)
{
if(type(X)<4||type(X)==7){
@@ -10349,6 +10418,7 @@ def tocsv(L)
S=str_tb(0,Tb);
if(type(EXE=getopt(exe))!=1&&EXE!=0&&type(EXE)!=7) return S;
if(type(F)!=7){
+ fcat(-1,0);
F="risaout";
if(EXE>=2&&EXE<=9) F+=rtostr(EXE);
F=DIROUTD+F+".csv";
@@ -11100,7 +11170,6 @@ def xyline(P,Q)
def xylines(P)
{
-/* mycat([P,getopt()]); */
Lf=getopt(curve);
if(type(Lf)!=1) Lf=0;
SS=getopt(opt);
@@ -11259,9 +11328,292 @@ def saveproc(S,Out)
}
}
+def xygrid(X,Y)
+{
+ for(RR=[],I=0,Z=X;I<2;I++){
+ U=Z[2];L=LL=[];M=Z[3];
+ if(Z[1]==1||Z[1]==-1){
+ if(type(M)==4) L=M;
+ else{
+ if(U*(-dlog(1-1/20)/dlog(10))>=M){
+ L=cons([1,2,1/10],L);
+ LL=cons([1,2,1/2],LL);
+ }else if(U*(-dlog(1-1/10)/dlog(10))>=M)
+ L=cons([1,2,1/5],L);
+ else if(U*(-dlog(1-1/4)/dlog(10))>=M)
+ L=cons([1,2,1/2],L);
+ if(U*(-dlog(1-1/50)/dlog(10))>=M){
+ L=cons([2,5,1/10],L);
+ LL=cons([2,5,1/2],LL);
+ }else if(U*(-dlog(1-1/25)/dlog(10))>=M)
+ L=cons([2,5,1/5],L);
+ else if(U*(-dlog(1-1/10)/dlog(10))>=M)
+ L=cons([2,5,1/2],L);
+ if(U*(-dlog(1-1/100)/dlog(10))>=M){
+ L=cons([5,10,1/10],L);
+ LL=cons([5,10,1/2],LL);
+ }
+ else if(U*(-dlog(1-1/50)/dlog(10))>=M)
+ L=cons([5,10,1/5],L);
+ else if(U*(-dlog(1-1/20)/dlog(10))>=M)
+ L=cons([5,10,1/2],L);
+ L=cons(L,cons(LL,[[[1,10,1]]]));
+ }
+ R=scale(L|scale=U);
+ if(Z[1]==-1){
+ for(LL=[];R!=[];R=cdr(R)){
+ for(L=[],T=car(R);T!=[];T=cdr(T)) L=cons(U-car(T),L);
+ LL=cons(reverse(L),LL);
+ }
+ R=reverse(LL);
+ }
+ }else if(Z[1]==0){
+ if(type(M)==4){
+ R=scale(M|f=x,scale=U);
+ }else{
+ V=0;
+ if(U/10>=M) V=1/10;
+ else if(U/5>=M) V=1/5;
+ else if(U/2>=M) V=1/2;
+ R=[];
+ if(V>0){
+ UU=U*V;
+ for(R=[],J=UU;J<U;J+=UU) R=cons(J,R);
+ }
+ if(V==1/10) L=[U/2];
+ else L=[];
+ R=cons(R,cons(L,[[0,U]]));
+ }
+ }else if(type(Z[1])==4){
+ R=Z[1];
+ if(length(R)==0||type(R[0])!=4) R=[[],[],R];
+ }else return 0;
+ K=length(R);
+ S=newvect(K);
+ for(J=0;J<K;J++){
+ for(S[J]=[],JJ=0;JJ<=Z[0];JJ+=U){
+ for(P=R[J];P!=[];P=cdr(P))
+ if(car(P)+JJ<=Z[0]) S[J]=cons(car(P)+JJ,S[J]);
+ }
+ }
+ for(J=0;J<K;J++) S[J]=lsort(S[J],[],1);
+ for(U=[],J=K-1;J>0;J--){
+ U=lsort(S[J],U,0);S[J-1]=lsort(S[J-1],U,1);
+ }
+ RR=cons(vtol(S),RR);
+ Z=Y;
+ }
+ if((Raw=getopt(raw))==1) return RR;
+ SS=[];
+ if(type(Sf=getopt(shift))==7){
+ Sx=Sf[0];Sy=Sf[1];
+ }else Sx=Sy=0;
+ for(I=0;I<2;I++){
+ for(S0=[],L=RR[I];L!=[];L=cdr(L)){
+ for(S=[],T=car(L);T!=[];T=cdr(T)){
+ if(S!=[]) S=cons(0,S);
+ if(I==0){
+ S=cons([X[0]+Sx,car(T)+Sy],S);
+ S=cons([Sx,car(T)+Sy],S);
+ }else{
+ S=cons([car(T)+Sx,Y[0]+Sy],S);
+ S=cons([car(T)+Sx,Sy],S);
+ }
+ }
+ S0=cons(S,S0);
+ }
+ SS=cons(reverse(S0),SS);
+ }
+ SS=reverse(SS);
+ if(Raw==2) return SS;
+ if(length(Y)<5) T=[["",""]];
+ else if(type(Y[4])==4) T=[Y[4]];
+ else T=[Y[4],Y[4]];
+ if(length(X[4])==4) T=cons([""],T);
+ else if(type(X[4])==4) T=cons(X[4],T);
+ else T=cons([X[4]],T);
+ for(Sx=Sy=[],I=0;I<2;I++){
+ TT=T[I];
+ for(V=SS[I];V!=[];V=cdr(V)){
+ Op=car(TT);
+ if(length(TT)>1) TT=cdr(TT);
+ if(car(V)==[]) continue;
+ if(Op=="") S=xylines(car(V));
+ else S=xylines(car(V)|opt=Op);
+ if(I==0) Sx=cons(S,Sx);
+ else Sy=cons(S,Sy);
+ }
+ }
+ for(S="",Sx=reverse(Sx), Sy=reverse(Sy);Sx!=[]&&Sy!=[];){
+ if(Sx!=[]){
+ S+=car(Sx);Sx=cdr(Sx);
+ }
+ if(Sy!=[]){
+ S+=car(Sy);Sy=cdr(Sy);
+ }
+ }
+ return S;
+}
+
+
+def addIL(I,L)
+{
+ if(I==0){
+ for(R=[];L!=[];L=cdr(L)) R=addIL(car(L),R);
+ return reverse(R);
+ }
+ if(type(In=getopt(in))==1){
+ if(In==-1){
+ J=JJ=I[1];I=I[0];
+ for(R=[];L!=[];L=cdr(L)){
+ J=lmin([car(L)[0],JJ]);
+ if(J>I) R=cons([I,J],R);
+ I=lmax([car(L)[1],I]);
+ }
+ if(I<JJ) R=cons([I,JJ],R);
+ return reverse(R);
+ }else{
+ for(;L!=[];L=cdr(L)){
+ if(car(L)[0]>I) return 0;
+ if(car(L)[1]>=I){
+ if(In==3) return car(L);
+ if(In==1||(I!=car(L)[0]&&I!=car(L)[1])) return 1;
+ return 2;
+ }
+ }
+ return 0;
+ }
+ }
+ I0=car(I);I1=I[1];
+ for(F=0,R=[];L!=[];L=cdr(L)){
+ if(I0>car(L)[1]){
+ R=cons(car(L),R);
+ continue;
+ }
+ if(I0<=car(L)[1]){
+ I0=lmin([I0,car(L)[0]]);
+ if(I1<car(L)[0]){
+ R=cons([I0,I1],R);
+ for( ;L!=[];L=cdr(L)) R=cons(car(L),R);
+ F=1;
+ break;
+ }
+ I1=lmax([I1,car(L)[1]]);
+ }
+ }
+ if(!F) R=cons([I0,I1],R);
+ return reverse(R);
+}
+
+def xy2curve(F,N,Lx,Ly,Lz,A,B)
+{
+ Raw=getopt(raw);
+ if(type(Gap=getopt(gap))==4){
+ MG=Gap[1];Gap=car(Gap);
+ }else MG=3;
+ if(type(Gap)!=1 && Gap!=0) Gap=0.7;
+ if(type(Dvi=getopt(dviout))<1) Dvi=0;
+ OL=[["dviout",Dvi]];
+ if(type(Opt=getopt(opt))<1) Opt=0;
+ else OL=cons(["opt",Opt],OL);
+ if(type(Sc=getopt(scale))!=1 && type(Sc)!=4) Sc=[1,1,1];
+ else if(type(Sc)!=4) Sc=[Sc,Sc,Sc];
+ else if(length(Sc)!=3) Sc=[Sc[0],Sc[1],Sc[1]];
+ M=diagm(3,Sc);
+ if(A!=0||B!=0){
+ if(type(A)!=6){ /* M=mrot([-A,B,0]|deg=1)*M; */
+ Pi=deval(@pi);
+ Ac=dcos(Pi*A/180);As=dsin(Pi*A/180);
+ M=mat([Ac,As,0],[-As,Ac,0],[0,0,1])*M;
+ Ac=dcos(Pi*B/180);As=dsin(Pi*B/180);
+ M=mat([Ac,0,As],[0,1,0],[-As,0,Ac])*M;
+ }else M=A;
+ V=M*newvect(3,[x,y,z]);
+ Fx=compdf(V[0],[x,y,z],F);Fy=compdf(V[1],[x,y,z],F);Fz=compdf(V[2],[x,y,z],F);
+ }else{
+ for(I=0;I<3;I++){
+ if(type(T=F[I])!=4) T=f2df(T);
+ if(type(T)==4) T=cons(car(T)*Sc[I],cdr(T));
+ else T*=Sc[I];
+ if(I==0) Fx=T;
+ else if(I==1) Fy=T;
+ else Fz=T;
+ }
+ }
+ if(Raw==5||!Gap)
+ return (Dvi||!Gap)? xygraph([Fy,Fz],N,Lx,Ly,Lz|option_list=OL):[Fx,Fy,Fz];
+ R=xygraph([Fy,Fz],N,Lx,Ly,Lz|raw=2);
+ R0=cdr(car(R));R1=R[1];
+ for(LT=[];R0!=[];R0=cdr(R0),R1=cdr(R1))
+ if(car(R0)!=0) LT=cons([R1[0],R1[1]],LT);
+ LT=reverse(LT);
+ if(N<0){
+ Be=xylines(car(R)|curve=1,proc=3,close=-1);
+ LT=reverse(cdr(LT));
+ LT=reverse(cdr(LT));
+ }
+ else Be=xylines(car(R)|curve=1,proc=3);
+ Be=cdr(cdr(Be));
+ Be=lbezier(car(Be));
+ if(Raw==4) return [Be,LT,Lx];
+ X=ptcombz(Be,0,0);
+ Var=(length(Lx)==3)?car(Lx):x;
+ if(type(Eq=getopt(eq))!=1) Eq=0.01;
+ if(TikZ==1){
+ Gap/=10;Eq/=10;
+ }
+ for(R=[],XT=X;XT!=[];XT=cdr(XT)){
+ V=car(XT);
+ U=LT[V[0][0]];
+ T=U[0]*V[1][0]+U[1]*(1-V[1][0]);
+ VV=myfdeval(Fx,[Var,T]);
+ U=LT[V[0][1]];
+ T=U[0]*V[1][1]+U[1]*(1-V[1][1]);
+ VV-=myfdeval(Fx,[Var,T]);
+ if(abs(VV)<Eq) continue;
+ I=(VV<0)?0:1;
+ R=cons([V[0][I],V[1][I],V[0][1-I],V[1][1-I]],R);
+ }
+ R=qsort(R);
+ if(Raw==3) return [Be,R];
+ Db=newvect(L=length(Be));
+ for(I=0;I<L;I++) Db[I]=[];
+ for(TR=R;TR!=[];TR=cdr(TR)){
+ V1=ptbezier(Be,[I=car(TR)[0],P=car(TR)[1]])[1];
+ V2=ptbezier(Be,[car(TR)[2],car(TR)[3]])[1];
+ T=dsqrt(1-dvangle(V1,V2)^2);
+ if(T<1/MG) T=MG;
+ GP=Gap/T;
+ W=GP/dnorm(V1);
+ Db[I]=addIL([P-W,P+W],Db[I]);
+ if(P-W<0 && I>0) Db[I-1]=addIL([P-W+1,1],Db[I-1]);
+ if(P+W>1 && I+1<L) Db[I+1]=addIL([0,P+W-1],Db[I+1]);
+ }
+ Db=vtol(Db);
+ for(Bf=[];Be!=[];Be=cdr(Be),Db=cdr(Db)){
+ if(car(Db)==[]) Bf=cons(car(Be),Bf);
+ else{
+ D=addIL([0,1],car(Db)|in=-1);
+ for(;D!=[];D=cdr(D))
+ Bf=cons(tobezier(car(Be)|inv=car(D)),Bf);
+ }
+ }
+ Bf=reverse(Bf);
+ if(Raw==2) return Bf;
+ OL=[];
+ if(Opt){
+ if(type(Opt)==4&&length(Opt)>1) OL=[["opt",Opt[0]],["cmd",Opt[1]]];
+ else OL=[["opt",Opt]];
+ }else OL=[];
+ S=xybezier(lbezier(Bf|inv=1)|option_list=OL);
+ if(Raw==1||!Dvi) return S;
+ return xyproc(S|dviout=Dvi);
+}
+
def xy2graph(F0,N,Lx,Ly,Lz,A,B)
{
- /* (x,y,z) -> ( -x sin A + y cos A, z cos B - x cos A sin B - y sin A sin B) */
+ /* (x,y,z) -> (z sin B + x cos A cos B + y sin A cos B,
+ -x sin A + y cos A, z cos B - x cos A sin B - y sin A sin B) */
if((Proc=getopt(proc))==1||Proc==2){
OPT0=[["proc",3]];
}else{
@@ -11695,22 +12047,100 @@ def xy2graph(F0,N,Lx,Ly,Lz,A,B)
if(Dvi<0) return Lout;
}
+def orthpoly(N)
+{
+ F=0;
+ if(type(P=getopt(pol))==7){
+ for(L=["Le","Ge","Tc","2T","Ja","He","La","Se"];L!=[];L=cdr(L),F++)
+ if(str_str(P,car(L)|end=2)==0) break;
+ }else P=0;
+ if(type(D=N)==4) D=N[0];
+ if(!isint(D)||D<0) return 0;
+ if(F==0) return seriesHG([-D,D+1],[1],(1-x)/2,D);
+ if(F==1) return red(seriesHG([-D,D+2*N[1]],[N[1]+1/2],(1-x)/2,D)*binom(D+2*N[1]-1,D));
+ if(F==2) return seriesHG([-D,D],[1/2],(1-x)/2,D);
+ if(F==3){
+ if(D==0) return 0;
+ return orthpoly([D-1,1]|pol="Ge");
+ }
+ if(F==4) return red(seriesHG([-D,D+N[1]],[N[2]],x,D));
+ if(F==5){
+ for(S=I=1;I<=D;I+=2) S*=I;
+ if(iand(D,1)) return seriesHG([-(D-1)/2],[3/2],x^2/2,D-1)*x*S*(-1)^((D-1)/2);
+ else return seriesHG([-D/2],[1/2],x^2/2,D)*S*(-1)^(D/2);
+ }
+ if(F==6){
+ NN=(type(N)==4)?N[1]:0;
+ return red(seriesHG([-D],[NN+1],x,D)*binom(D+NN,D));
+ }
+ if(F==7){
+ NN=N[1];
+ for(S=1,I=1;I<=D;I++) S+=(-1)^I*binom(D,I)*binom(D+I,I)*sftpow(x,I)/sftpow(NN,I);
+ return S;
+ }
+ return 0;
+}
+
+def schurpoly(L)
+{
+ N=length(L);
+ for(R=[],I=1;L!=[];L=cdr(L),I++) R=cons(car(L)+N-I,R);
+ L=reverse(R);
+ if(type(X=getopt(var))!=4){
+ V=(type(X)>1)?X:"x";
+ for(X=[],I=0;I<N;I++) X=cons(makev([V,N-I]),X);
+ }
+ M=newmat(N,N);
+ for(I=0;I<N;I++)
+ for(J=0;J<N;J++) M[I][J]=X[I]^L[J];
+ P=det(M);
+ for(I=0;I<N;I++)
+ for(J=I+1;J<N;J++) P=sdiv(P,X[I]-X[J]);
+ return P;
+}
+
def fouriers(A,B,X)
{
+ if((Y=getopt(y))==0||type(Y)>0) Y=deval(Y);
+ else Y=0;
+ if((V=getopt(const))==0||type(V)>0){
+ V=myfeval(V,Y);
+ K=1;
+ }else K=0;
if(A!=[]&&type(car(A))>1){
- for(C=[],I=A[1];I>=0;I--) C=cons(myfeval(car(A),I),C);
+ for(C=[],I=A[1];I>=K;I--) C=cons(myf2eval(car(A),I,Y),C);
+ if(K) C=cons(0,C);
A=C;
}
+ if(K){
+ if(A!=[]) A=cdr(A);
+ A=cons(V,A);
+ }
if(B!=[]&&type(car(B))>1){
- for(C=[],I=B[1];I>0;I--) C=cons(myfeval(car(B),I),C);
+ for(C=[],I=B[1];I>0;I--) C=cons(myf2eval(car(B),I,Y),C);
B=C;
}
- R=0;
+ L=length(B)+1;
+ if(length(A)>=L) L=length(A)+1;
+ if(type(Sum=getopt(sum))>0){
+ if(Sum==1) Sum=1-x;
+ else if(Sum==2) Sum=[(z__)/(3.1416*x),[z__,os_md.mysin,3.1416*x]];
+ else Sum=f2df(Sum);
+ C=[];
+ if(A!=[]){
+ C=cons(car(A),C);
+ A=cdr(A);
+ }
+ for(I=1;A!=[];A=cdr(A),I++) C=cons(car(A)*myf2eval(Sum,I/L,L),C);
+ A=reverse(C);
+ for(C=[],I=1;B!=[];B=cdr(B),I++) C=cons(car(B)*myf2eval(Sum,I/L,L),C);
+ B=reverse(C);
+ }
if(getopt(cpx)==1){
- if(type(X=eval(X))>1) return todf([os_md.fouriers,[["cpx",1]]],[[A],[B],[X]]);
+ if(type(X=eval(X))>1) return todf([os_md.fouriers,[["cpx",1]]],[[A],[B],[X]]);
V=dexp(@i*X);
for(C=A,P=1,I=0;C!=[];C=cdr(C),I++){
- R+=car(C)*P;
+ R+=S*car(C)*P;
P*=V;
}
V=dexp(-@i*X);
@@ -12226,10 +12656,6 @@ def compdf(F,V,G)
{
FL=["abs","floor","rint","zeta","gamma","arg","real","imag","conj"];
FS=[os_md.abs,floor,rint,os_md.zeta,os_md.gamma,os_md.myarg,real,imag,conj];
- if(type(V)==4){
- for(;V!=[];V=cdr(V),G=cdr(G)) F=compdf(F,car(V),car(G));
- return F;
- }
if(type(F)==7){
if(str_str(F,"|")==0){
F="abs("+str_cut(F,1,str_len(F)-2)+")";
@@ -12250,7 +12676,20 @@ def compdf(F,V,G)
}
if(type(F)!=4) F=f2df(F);
if(type(G)!=4) G=f2df(G);
+ if(V==G) return F; /* subst(F(V),V,G) */
VF=vars(F);VG=vars(G);
+ if(type(V)==4){
+ for(VT=[],VV=V;VV!=[];VV=cdr(VV)){
+ if(findin(car(VV),VF)>=0){
+ X=makenewv(append(VF,VG));
+ VF=cons(X,VF);
+ F=mysubst(F,[car(VV),X]);
+ VT=cons(X,VT);
+ }else VT=cons(car(VV),VT);
+ }
+ for(V=reverse(VT);V!=[];V=cdr(V),G=cdr(G)) F=compdf(F,car(V),car(G));
+ return F;
+ }
for(E=I=0;I<30;I++){
for(J=0;J<30;J++){
X=makev(["z__",I,J]);
@@ -12261,7 +12700,6 @@ def compdf(F,V,G)
if(E) break;
}
if(!E) return 0;
- if(V==G) return F; /* subst(F(V),V,G) */
if(type(G)<4) return mysubst(F,[V,G]);
if(type(F)<4) F=[F]; /* return compdf([X,[X,0,F]],V,G); */
F=mysubst(F,[V,X]);
@@ -12709,7 +13147,8 @@ def xygraph(F,N,LT,LX,LY)
}
V=reverse(NV);
}
- if(getopt(raw)==1) return V;
+ if((Raw=getopt(raw))==1) return V;
+ if(Raw==2) return [V,LT];
OL=[["curve",1]];OLP=[];
if(type(C=getopt(ratio))==1){
OL=cons(["ratio",C],OL);OLP=cons(["ratio",C],OLP);
@@ -13033,7 +13472,7 @@ def polroots(L,V)
if(SS==0&&INIT==1){
SS=polroots(L,V|option_list=OL);
if(SS!=0) return SS;
- for(C=0;SS==0&&C<4;C++){
+ for(C=0;SS==0&&C<5;C++){
I=(C==0)?1:(iand(random(),0xff)-0x80);
for(LL=[],K=length(L)-1;K>=0;K--){
for(Q=0,J=length(L)-1;J>=0;J--)
@@ -13252,7 +13691,7 @@ def cutf(F,X,VV)
if(car(V)!=[] && car(V)[0]<X) return myfeval(car(V)[1],Y);
return myfeval(F,Y);
}
- if(X>car(V)[0]) continue;
+ if(car(V)==[]||X>car(V)[0]) continue;
if(X==car(V)[0]) return car(V)[1];
return myfeval(F,Y);
}
@@ -13279,8 +13718,8 @@ def periodicf(F,L,X)
if(type(L)==4) L=[eval(L[0]),eval(L[1])];
else L=eval(L);
if(isvar(X)){
- Y=makenewv([X,V]);
- Z=makenewv([X,Y,V]);
+ Y=makenewv([X,F]);
+ Z=makenewv([X,Y,F]);
return [Z,[Z,os_md.periodicf,[mysubst(F,[x,Y])],(type(L)==4)?[L]:L,[[Y,X]]]];
}
if(type(X)==4){
@@ -17235,7 +17674,7 @@ def integrate(P,X)
if(S!=RR) R=cons([[1,RR=S]],R);
for(V=FR=[];R!=[];R=cdr(R))
if(car(R)!=FR) V=cons(FR=car(R),V);
- Var=varargs(V|all=1)[1];
+ Var=varargs(V|all=2);
for(S0=[x0,x1,x2,x3],S=[t,s,u,v,w];S0!=[]&&S!=[];){
if(findin(car(S0),Var)<0){
S0=cdr(S0); continue;
@@ -18366,10 +18805,10 @@ def linfrac01(X)
def varargs(P)
{
- if((All=getopt(all))!=1) All=0;
+ if((All=getopt(all))!=1&&All!=2) All=0;
V=vars(P);
for(Arg=FC=[];V!=[];V=cdr(V)){
- if(vtype(CV=car(V))==0&&All==1){
+ if(vtype(CV=car(V))==0&&All!=0){
Arg=lsort([CV],Arg,0);
}
if(vtype(CV)!=2) continue;
@@ -18386,7 +18825,8 @@ def varargs(P)
}
}
}
- return [FC,Arg];
+ Arg=reverse(Arg);
+ return (All==2)?Arg:[reverse(FC),Arg];
}
def pfargs(P,X)
@@ -18812,7 +19252,7 @@ def init() {
}
if(Id>=0){
while((S=get_line(Id))!=0){
- if(type(P=str_str(S,LS))==4 && (P0=str_char(S,P[1]+5,"="))>0){
+ if(type(P=str_str(S,LS))==4 && (P0=str_char(S,P[1]+4,"="))>0){
if(P[0]<5){
P0=str_chr(S,P0+1,"\"");
if(P0>0){
@@ -18836,7 +19276,7 @@ def init() {
else if(P[0]==7) TikZ=SV;
else if(P[0]==8) XYPrec=SV;
else if(P[0]==9) XYcm=SV;
- else if(P[0]==10) XYcm=Canvas;
+ else if(P[0]==10) Canvas=SV;
}
}
}
diff --git a/texmf-dist/scripts/ketpic/ketlibC/ketcommon.h b/texmf-dist/scripts/ketcindy/ketlibC/ketcommon.h
index bfcbbf23..bfcbbf23 100644
--- a/texmf-dist/scripts/ketpic/ketlibC/ketcommon.h
+++ b/texmf-dist/scripts/ketcindy/ketlibC/ketcommon.h
diff --git a/texmf-dist/scripts/ketpic/ketlibC/surflib.h b/texmf-dist/scripts/ketcindy/ketlibC/surflib.h
index 1b2f6c48..1b2f6c48 100644
--- a/texmf-dist/scripts/ketpic/ketlibC/surflib.h
+++ b/texmf-dist/scripts/ketcindy/ketlibC/surflib.h
diff --git a/texmf-dist/scripts/ketpic/ketlibC/surflibhead.h b/texmf-dist/scripts/ketcindy/ketlibC/surflibhead.h
index 49d2ed4c..49d2ed4c 100644
--- a/texmf-dist/scripts/ketpic/ketlibC/surflibhead.h
+++ b/texmf-dist/scripts/ketcindy/ketlibC/surflibhead.h
diff --git a/texmf-dist/scripts/ketpic/ketoutset.txt b/texmf-dist/scripts/ketcindy/ketoutset.txt
index 7ec66a8d..81cb65c1 100644
--- a/texmf-dist/scripts/ketpic/ketoutset.txt
+++ b/texmf-dist/scripts/ketcindy/ketoutset.txt
@@ -1,11 +1,13 @@
if(iswindows(),
- PathT="C:\kettex\w32texb\bin\platex";
+// PathT="C:\kettex\texlive\bin\win32\platex";
+ PathT="C:\kettex\texlive\bin\win32\uplatex";
+// PathT="C:\kettex\w32texb\bin\platex";
// PathT="C:\kettex\w32texb\bin\latex";
// PathT="C:\kettex\w32texb\bin\pdflatex";
// PathT="C:\w32tex\bin\platex";
// PathT="C:\texlive\bin\platex";
- PathS="C:\Program Files\scilab-5.5.2\bin\scilex";
-// PathS="C:\Program Files\scilab-6.6.0\bin\scilex";
+// PathS="C:\Program Files\scilab-5.5.2\bin\scilex";
+ PathS="C:\Program Files\scilab-6.6.0\bin\scilex";
PathC="C:\MinGW\bin\gcc.exe";
// PathC="C:\MinGW32\bin\gcc.exe";
Pathpdf="C:\Program Files\SumatraPDF\SumatraPDF.exe";
@@ -18,8 +20,13 @@ if(iswindows(),
PathAd="C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe";
);
if(ismacosx(),
- PathT="/Applications/kettex/texlive/bin/x86_64-darwin/platex";
+// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/platex";
+ PathT="/Applications/kettex/texlive/bin/x86_64-darwin/uplatex";
// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/latex";
+// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/xelatex";
+// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/pdflatex";
+// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/lualatex";
+// PathT="/Applications/kettexbasic/texlive/bin/x86_64-darwin/platex";
// PathT="/Library/TeX/texbin/platex";
// PathT="/Library/TeX/texbin/pdflatex";
// PathT="/Library/TeX/texbin/lualatex";
@@ -27,27 +34,30 @@ if(ismacosx(),
// PathT="/usr/texbin/platex";
// PathS="/Applications/scilab-5.5.2.app/Contents/MacOS/bin/scilab";
PathS="/Applications/scilab-6.0.0.app/Contents/MacOS/bin/scilab";
- Pathpdf="preview";
+// Pathpdf="preview";
Pathpdf="skim";
// Pathpdf="/Applications/skim.app/Contents/MacOS/Skim";
PathC="gcc";
- PathR="R";
+// PathR="R";
// PathR="/Library/Frameworks/R.framework/Versions/3.3/Resources/bin/R";
+ PathR="/Library/Frameworks/R.framework/Versions/Current/Resources/bin/R";
PathA="/Applications/cfep.app/OpenXM/rc/asir";
PathM="/Applications/Maxima.app/Contents/Resources/maxima.sh";
PathV3="/Applications/meshlab.app/Contents/MacOS/MeshLab";
PathF="/Applications/FriCAS.app/Contents/Resources/bin/fricas";
// PathAd="Adobe Reader";
PathAd="/Applications/Adobe Acrobat Reader DC.app/Contents/MacOS/AdobeReader";
+// Mackc="sh";
+ Mackc="open";
);
if(islinux(),
- PathT="/usr/bin/platex";
- PathS="/usr/bin/scilab";
+ PathT="uplatex";
+ PathS="scilab";
Pathpdf="evince";
// Pathpdf="/usr/bin/xpdf";
- PathR="";
+ PathR="R";
PathA="";
- PathM="/usr/bin/maxima";
+ PathM="maxima";
PathV3="";
PathF="";
PathAd="";
diff --git a/texmf-dist/scripts/ketcindy/setketcindy.txt b/texmf-dist/scripts/ketcindy/setketcindy.txt
new file mode 100644
index 00000000..10792513
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/setketcindy.txt
@@ -0,0 +1,15 @@
+// e:2017.10.13
+Dirlib=ketcindydir+pathsep()+"ketlib";
+Libname=Dirlib+pathsep()+"ketpic5_2_3";
+LibnameS=Dirlib+pathsep()+"ketpicsciL5";
+DirlibC=ketcindydir+pathsep()+"ketlibC";
+Dirwork=Dirhead;
+tmp=Dirhead;
+println(makedir(Dirwork));
+setdirectory(Dirlib);
+import("ketcindylibbasic1r.cs");
+import("ketcindylibbasic2r.cs");
+import("ketcindyliboutr.cs");
+import("ketcindylib3dr.cs");
+import("ketcindylibmvr.cs");
+
diff --git a/texmf-dist/scripts/ketpic/allbuttons.cdy b/texmf-dist/scripts/ketpic/allbuttons.cdy
deleted file mode 100755
index 4ae63aaa..00000000
--- a/texmf-dist/scripts/ketpic/allbuttons.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample1.csv b/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample1.csv
deleted file mode 100644
index 75715f97..00000000
--- a/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample1.csv
+++ /dev/null
@@ -1 +0,0 @@
--0.16,-1.79,0.21,0.64,1.12,-0.04,0.05,0.99,-0.4,-0.17,0.94,-0.99,1.43,-0.74,-0.16,0.75,1.18,1.53,1.55,0.17,-0.02,-0.78,0.5,0.16,-1.47,-0.26,0.14,-1.8,-0.78,0.29,-0.02,-0.06,-0.08,1.37,0.77,-0.06,-0.21,0.72,-1.08,-0.72,-0.51,0.8,-0.95,0.36,-1.5,-0.24,-1.21,2.5,0.03,-0.8,0.32,0.79,1.03,-1.32,-1.17,1,0.89,0.47,1.18,-0.21,0.39,-1.17,-0.49,1.04,0.09,0.97,-0.55,-0.09,-1,1.15,-0.89,-0.77,1.04,-0.79,-0.66,-0.9,0.78,-0.55,-0.42,0.32,-0.75,-0.6,-0.66,-0.05,-0.94,-0.54,0.83,0.08,-0.93,-0.3,0.74,-1.35,1.5,-2.44,-0.44,-0.17,-1.32,0.13,-1.49,0.43
diff --git a/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample2.csv b/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample2.csv
deleted file mode 100644
index 928f94d0..00000000
--- a/texmf-dist/scripts/ketpic/data/Rtutorial/t4sample2.csv
+++ /dev/null
@@ -1,74 +0,0 @@
-,No1,No2,,,,,,,,
-,60,66,,,,,,,,
-,62,67,,,,,,,,
-,30,60,,,,,,,,
-,60,70,,,,,,,,
-,77,60,,,,,,,,
-,65,60,,,,,,,,
-,30,54,,,,,,,,
-,30,50,,,,,,,,
-,20,40,,,,,,,,
-,88,80,,,,,,,,
-,82,60,,,,,,,,
-,87,88,,,,,,,,
-,60,66,,,,,,,,
-,83,85,,,,,,,,
-,87,88,,,,,,,,
-,60,66,,,,,,,,
-,87,88,,,,,,,,
-,60,66,,,,,,,,
-,60,66,,,,,,,,
-,73,76,,,,,,,,
-,82,80,,,,,,,,
-,60,66,,,,,,,,
-,87,88,,,,,,,,
-,63,68,,,,,,,,
-,20,50,,,,,,,,
-,72,75,,,,,,,,
-,70,80,,,,,,,,
-,60,66,,,,,,,,
-,60,66,,,,,,,,
-,87,88,,,,,,,,
-,84,86,,,,,,,,
-,99,90,,,,,,,,
-,89,90,,,,,,,,
-,60,80,,,,,,,,
-,96,97,,,,,,,,
-,81,83,,,,,,,,
-,92,70,,,,,,,,
-,60,66,,,,,,,,
-,60,66,,,,,,,,
-,40,56,,,,,,,,
-,66,70,,,,,,,,
-,63,68,,,,,,,,
-,80,82,,,,,,,,
-,64,69,,,,,,,,
-,80,82,,,,,,,,
-,95,96,,,,,,,,
-,80,50,,,,,,,,
-,20,40,,,,,,,,
-,94,80,,,,,,,,
-,94,95,,,,,,,,
-,87,88,,,,,,,,
-,60,66,,,,,,,,
-,80,82,,,,,,,,
-,70,74,,,,,,,,
-,99,100,,,,,,,,
-,86,87,,,,,,,,
-,40,56,,,,,,,,
-,60,70,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,,
-,,,,,,,,,, \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/data/Rtutorial/t6sample.csv b/texmf-dist/scripts/ketpic/data/Rtutorial/t6sample.csv
deleted file mode 100644
index 70614266..00000000
--- a/texmf-dist/scripts/ketpic/data/Rtutorial/t6sample.csv
+++ /dev/null
@@ -1,21 +0,0 @@
-no1,no2
-2.50029,3.0914
-1.14447,0.5
-6.61082,5.12323
-7.91532,9.5
-9.58157,9.21903
-8.16335,8.71356
-8.3303,8.32783
-2.90018,2.22525
-4.58738,4.33457
-8.77463,6.63825
-4.04384,3.51828
-6.31744,6.42058
-9.99769,9.5
-1.74338,2.08149
-1.74195,0.55616
-7.79965,8.14211
-2.48528,2.20084
-3.54729,3.61683
-6.72468,5.99547
-1.22752,1.05287
diff --git a/texmf-dist/scripts/ketpic/data/Rtutorial/t7sample.csv b/texmf-dist/scripts/ketpic/data/Rtutorial/t7sample.csv
deleted file mode 100644
index ed185bf1..00000000
--- a/texmf-dist/scripts/ketpic/data/Rtutorial/t7sample.csv
+++ /dev/null
@@ -1,21 +0,0 @@
-no1,no2
-5.18806,5.84027
-2.40647,2.1354
-1.67986,2.65213
-6.07764,6.3763
-1.34631,0.5
-7.48434,7.81286
-3.51076,2.85506
-9.90707,9.5
-4.50056,4.59383
-8.65694,7.76352
-2.40712,4.22212
-9.48185,9.5
-4.8778,3.83387
-7.79092,7.81612
-8.40402,8.06828
-2.25626,2.57587
-2.35259,3.0321
-6.69321,6.61142
-5.94798,5.43573
-1.40489,0.5
diff --git a/texmf-dist/scripts/ketpic/data/Rtutorial/t8sampledistrtest.csv b/texmf-dist/scripts/ketpic/data/Rtutorial/t8sampledistrtest.csv
deleted file mode 100644
index ba609bb7..00000000
--- a/texmf-dist/scripts/ketpic/data/Rtutorial/t8sampledistrtest.csv
+++ /dev/null
@@ -1,201 +0,0 @@
-n=1,n=10
-4,5.2
-4,5.2
-5,5.3
-2,6.6
-6,5.9
-5,5.9
-6,5.7
-3,3.7
-7,6.2
-6,5.8
-0,6.2
-6,4.6
-5,5.3
-6,5.5
-8,6.2
-5,4.9
-7,5.5
-3,4.2
-5,6.4
-5,4.9
-3,4.9
-1,4.7
-3,4.3
-8,4.4
-2,4.3
-3,4.2
-1,4.6
-3,5.4
-5,5.3
-7,4.8
-3,4.5
-7,4.4
-3,5.2
-8,4.3
-0,4.3
-6,6.1
-6,3.9
-2,4.9
-8,5.4
-8,5.7
-7,4.6
-6,4.5
-5,3.5
-4,5.1
-5,5.9
-2,4.5
-3,4.6
-6,5.6
-3,4.8
-3,5.9
-6,4.2
-9,4.1
-7,5.2
-10,4.7
-2,5.4
-6,5.5
-8,3.9
-1,4.9
-3,4
-6,5.5
-6,4.2
-6,4.8
-9,4.6
-2,4.8
-5,4.9
-3,4.7
-5,5
-6,5.1
-3,6.4
-3,5.5
-9,4
-3,5
-10,4.5
-12,5.6
-2,5.3
-3,5.2
-2,3.4
-7,5
-4,4.5
-1,4
-3,5.3
-5,3.8
-7,3.5
-5,5.5
-5,4.9
-6,4.7
-5,4.1
-11,4.6
-2,4.9
-1,5
-5,4.7
-4,5.3
-6,5.4
-5,5.6
-7,3.6
-8,5.7
-5,5.8
-6,4.9
-7,3.6
-9,4.7
-2,4.8
-4,4.9
-8,5.4
-2,5.2
-4,6.3
-3,5.5
-6,6.7
-7,4.7
-6,4.8
-4,5
-7,4.4
-5,4.7
-5,4.4
-8,5.3
-4,5.5
-5,5
-4,6.9
-4,5.6
-4,5.9
-4,4.8
-4,4.2
-3,5.3
-5,6
-4,5.1
-6,5.9
-6,4.9
-5,4.3
-5,5.5
-6,3.5
-6,5.4
-5,5.7
-2,4.5
-5,4.7
-3,5.3
-7,4.8
-6,4.3
-4,5.5
-7,6.2
-6,7.1
-5,4.4
-5,4.6
-5,5.6
-3,4.7
-1,4.7
-11,5
-7,5.6
-5,5.8
-6,5.8
-3,5.7
-6,5.3
-6,3.9
-4,6.3
-5,4.8
-3,5
-5,4.4
-7,5.6
-6,5.2
-5,5.2
-4,5.5
-2,5.3
-9,4.1
-6,5.3
-10,6
-4,4.6
-9,6.3
-3,3.5
-4,5.5
-4,4.8
-3,4.7
-2,4
-5,4.4
-3,4.3
-8,4.6
-3,4.1
-7,4.8
-2,6.2
-5,5.4
-8,4.7
-8,4.6
-6,6
-5,4.7
-2,4.5
-8,4.5
-3,7.2
-4,4.1
-4,5.6
-4,5.2
-5,6
-4,5.5
-7,4.5
-5,4.8
-2,4.7
-7,5.1
-13,4.1
-10,5.6
-10,4.5
-1,4.5
-2,4.9
-4,6.3
-7,4.6
diff --git a/texmf-dist/scripts/ketpic/data/js/Cindy.js b/texmf-dist/scripts/ketpic/data/js/Cindy.js
deleted file mode 100644
index 0fe1c2a5..00000000
--- a/texmf-dist/scripts/ketpic/data/js/Cindy.js
+++ /dev/null
@@ -1,757 +0,0 @@
-/* CindyJS - (C) 2014-2016 The CindyJS Project
- * Mostly licensed under the Apache License 2.0, but subprojects may use different licensing.
- * See https://github.com/CindyJS/CindyJS/tree/a578a6389991b86a1b9f4e54197acf99bc1adec0
- * for corresponding sources and their respective licensing conditions.
- */
-(function(){function q(b,d,e){h.biginteger_used=1;null!=b&&("number"==typeof b&&"undefined"==typeof d?this.fromInt(b):"number"==typeof b?this.fromNumber(b,d,e):null==d&&"string"!=typeof b?this.fromString(b,256):this.fromString(b,d))}function H(){return new q(null)}function oa(b,d,e,l,h,r){for(;0<=--r;){var k=d*this[b++]+e[l]+h;h=Math.floor(k/67108864);e[l++]=k&67108863}return h}function ib(b,d,e,l,h,r){var k=d&32767;for(d>>=15;0<=--r;){var E=this[b]&32767,B=this[b++]>>15,q=d*E+B*k,E=k*E+((q&32767)<<
-15)+e[l]+(h&1073741823);h=(E>>>30)+(q>>>15)+d*B+(h>>>30);e[l++]=E&1073741823}return h}function Ia(b,d,e,l,h,r){var k=d&16383;for(d>>=14;0<=--r;){var E=this[b]&16383,B=this[b++]>>14,q=d*E+B*k,E=k*E+((q&16383)<<14)+e[l]+h;h=(E>>28)+(q>>14)+d*B;e[l++]=E&268435455}return h}function Ja(b,d){var e=Ya[b.charCodeAt(d)];return null==e?-1:e}function Ba(b){var d=H();d.fromInt(b);return d}function k(b){var d=1,e;0!=(e=b>>>16)&&(b=e,d+=16);0!=(e=b>>8)&&(b=e,d+=8);0!=(e=b>>4)&&(b=e,d+=4);0!=(e=b>>2)&&(b=e,d+=2);
-0!=b>>1&&(d+=1);return d}function Ra(b){this.m=b}function L(b){this.m=b;this.mp=b.invDigit();this.mpl=this.mp&32767;this.mph=this.mp>>15;this.um=(1<<b.DB-15)-1;this.mt2=2*b.t}function fa(b,d){return b&d}function Y(b,d){return b|d}function Q(b,d){return b^d}function X(b,d){return b&~d}function xb(){}function Fc(b){return b}function ka(b){this.r2=H();this.q3=H();q.ONE.dlShiftTo(2*b.t,this.r2);this.mu=this.r2.divide(b);this.m=b}var h={},Ib=!1;"undefined"!==typeof module&&module.exports?(module.exports=
-h,Ib=!0):"undefined"!==typeof document?window.ClipperLib=h:self.ClipperLib=h;var da;if(Ib)S="chrome",da="Netscape";else{var S=navigator.userAgent.toString().toLowerCase();da=navigator.appName}var Za,Wb,La,$a,jb,pb;Za=-1!=S.indexOf("chrome")&&-1==S.indexOf("chromium")?1:0;Ib=-1!=S.indexOf("chromium")?1:0;Wb=-1!=S.indexOf("safari")&&-1==S.indexOf("chrome")&&-1==S.indexOf("chromium")?1:0;La=-1!=S.indexOf("firefox")?1:0;S.indexOf("firefox/17");S.indexOf("firefox/15");S.indexOf("firefox/3");$a=-1!=S.indexOf("opera")?
-1:0;S.indexOf("msie 10");S.indexOf("msie 9");jb=-1!=S.indexOf("msie 8")?1:0;pb=-1!=S.indexOf("msie 7")?1:0;S=-1!=S.indexOf("msie ")?1:0;h.biginteger_used=null;"Microsoft Internet Explorer"==da?(q.prototype.am=ib,da=30):"Netscape"!=da?(q.prototype.am=oa,da=26):(q.prototype.am=Ia,da=28);q.prototype.DB=da;q.prototype.DM=(1<<da)-1;q.prototype.DV=1<<da;q.prototype.FV=Math.pow(2,52);q.prototype.F1=52-da;q.prototype.F2=2*da-52;var Ya=[],K;da=48;for(K=0;9>=K;++K)Ya[da++]=K;da=97;for(K=10;36>K;++K)Ya[da++]=
-K;da=65;for(K=10;36>K;++K)Ya[da++]=K;Ra.prototype.convert=function(b){return 0>b.s||0<=b.compareTo(this.m)?b.mod(this.m):b};Ra.prototype.revert=function(b){return b};Ra.prototype.reduce=function(b){b.divRemTo(this.m,null,b)};Ra.prototype.mulTo=function(b,d,e){b.multiplyTo(d,e);this.reduce(e)};Ra.prototype.sqrTo=function(b,d){b.squareTo(d);this.reduce(d)};L.prototype.convert=function(b){var d=H();b.abs().dlShiftTo(this.m.t,d);d.divRemTo(this.m,null,d);0>b.s&&0<d.compareTo(q.ZERO)&&this.m.subTo(d,d);
-return d};L.prototype.revert=function(b){var d=H();b.copyTo(d);this.reduce(d);return d};L.prototype.reduce=function(b){for(;b.t<=this.mt2;)b[b.t++]=0;for(var d=0;d<this.m.t;++d){var e=b[d]&32767,l=e*this.mpl+((e*this.mph+(b[d]>>15)*this.mpl&this.um)<<15)&b.DM,e=d+this.m.t;for(b[e]+=this.m.am(0,l,b,d,0,this.m.t);b[e]>=b.DV;)b[e]-=b.DV,b[++e]++}b.clamp();b.drShiftTo(this.m.t,b);0<=b.compareTo(this.m)&&b.subTo(this.m,b)};L.prototype.mulTo=function(b,d,e){b.multiplyTo(d,e);this.reduce(e)};L.prototype.sqrTo=
-function(b,d){b.squareTo(d);this.reduce(d)};q.prototype.copyTo=function(b){for(var d=this.t-1;0<=d;--d)b[d]=this[d];b.t=this.t;b.s=this.s};q.prototype.fromInt=function(b){this.t=1;this.s=0>b?-1:0;0<b?this[0]=b:-1>b?this[0]=b+this.DV:this.t=0};q.prototype.fromString=function(b,d){var e;if(16==d)e=4;else if(8==d)e=3;else if(256==d)e=8;else if(2==d)e=1;else if(32==d)e=5;else if(4==d)e=2;else{this.fromRadix(b,d);return}this.s=this.t=0;for(var l=b.length,h=!1,r=0;0<=--l;){var k=8==e?b[l]&255:Ja(b,l);0>
-k?"-"==b.charAt(l)&&(h=!0):(h=!1,0==r?this[this.t++]=k:r+e>this.DB?(this[this.t-1]|=(k&(1<<this.DB-r)-1)<<r,this[this.t++]=k>>this.DB-r):this[this.t-1]|=k<<r,r+=e,r>=this.DB&&(r-=this.DB))}8==e&&0!=(b[0]&128)&&(this.s=-1,0<r&&(this[this.t-1]|=(1<<this.DB-r)-1<<r));this.clamp();h&&q.ZERO.subTo(this,this)};q.prototype.clamp=function(){for(var b=this.s&this.DM;0<this.t&&this[this.t-1]==b;)--this.t};q.prototype.dlShiftTo=function(b,d){var e;for(e=this.t-1;0<=e;--e)d[e+b]=this[e];for(e=b-1;0<=e;--e)d[e]=
-0;d.t=this.t+b;d.s=this.s};q.prototype.drShiftTo=function(b,d){for(var e=b;e<this.t;++e)d[e-b]=this[e];d.t=Math.max(this.t-b,0);d.s=this.s};q.prototype.lShiftTo=function(b,d){var e=b%this.DB,l=this.DB-e,h=(1<<l)-1,r=Math.floor(b/this.DB),k=this.s<<e&this.DM,E;for(E=this.t-1;0<=E;--E)d[E+r+1]=this[E]>>l|k,k=(this[E]&h)<<e;for(E=r-1;0<=E;--E)d[E]=0;d[r]=k;d.t=this.t+r+1;d.s=this.s;d.clamp()};q.prototype.rShiftTo=function(b,d){d.s=this.s;var e=Math.floor(b/this.DB);if(e>=this.t)d.t=0;else{var l=b%this.DB,
-h=this.DB-l,r=(1<<l)-1;d[0]=this[e]>>l;for(var k=e+1;k<this.t;++k)d[k-e-1]|=(this[k]&r)<<h,d[k-e]=this[k]>>l;0<l&&(d[this.t-e-1]|=(this.s&r)<<h);d.t=this.t-e;d.clamp()}};q.prototype.subTo=function(b,d){for(var e=0,l=0,h=Math.min(b.t,this.t);e<h;)l+=this[e]-b[e],d[e++]=l&this.DM,l>>=this.DB;if(b.t<this.t){for(l-=b.s;e<this.t;)l+=this[e],d[e++]=l&this.DM,l>>=this.DB;l+=this.s}else{for(l+=this.s;e<b.t;)l-=b[e],d[e++]=l&this.DM,l>>=this.DB;l-=b.s}d.s=0>l?-1:0;-1>l?d[e++]=this.DV+l:0<l&&(d[e++]=l);d.t=
-e;d.clamp()};q.prototype.multiplyTo=function(b,d){var e=this.abs(),l=b.abs(),h=e.t;for(d.t=h+l.t;0<=--h;)d[h]=0;for(h=0;h<l.t;++h)d[h+e.t]=e.am(0,l[h],d,h,0,e.t);d.s=0;d.clamp();this.s!=b.s&&q.ZERO.subTo(d,d)};q.prototype.squareTo=function(b){for(var d=this.abs(),e=b.t=2*d.t;0<=--e;)b[e]=0;for(e=0;e<d.t-1;++e){var l=d.am(e,d[e],b,2*e,0,1);(b[e+d.t]+=d.am(e+1,2*d[e],b,2*e+1,l,d.t-e-1))>=d.DV&&(b[e+d.t]-=d.DV,b[e+d.t+1]=1)}0<b.t&&(b[b.t-1]+=d.am(e,d[e],b,2*e,0,1));b.s=0;b.clamp()};q.prototype.divRemTo=
-function(b,d,e){var l=b.abs();if(!(0>=l.t)){var h=this.abs();if(h.t<l.t)null!=d&&d.fromInt(0),null!=e&&this.copyTo(e);else{null==e&&(e=H());var r=H(),w=this.s;b=b.s;var E=this.DB-k(l[l.t-1]);0<E?(l.lShiftTo(E,r),h.lShiftTo(E,e)):(l.copyTo(r),h.copyTo(e));l=r.t;h=r[l-1];if(0!=h){var B=h*(1<<this.F1)+(1<l?r[l-2]>>this.F2:0),L=this.FV/B,B=(1<<this.F1)/B,pa=1<<this.F2,na=e.t,K=na-l,fa=null==d?H():d;r.dlShiftTo(K,fa);0<=e.compareTo(fa)&&(e[e.t++]=1,e.subTo(fa,e));q.ONE.dlShiftTo(l,fa);for(fa.subTo(r,r);r.t<
-l;)r[r.t++]=0;for(;0<=--K;){var Q=e[--na]==h?this.DM:Math.floor(e[na]*L+(e[na-1]+pa)*B);if((e[na]+=r.am(0,Q,e,K,0,l))<Q)for(r.dlShiftTo(K,fa),e.subTo(fa,e);e[na]<--Q;)e.subTo(fa,e)}null!=d&&(e.drShiftTo(l,d),w!=b&&q.ZERO.subTo(d,d));e.t=l;e.clamp();0<E&&e.rShiftTo(E,e);0>w&&q.ZERO.subTo(e,e)}}}};q.prototype.invDigit=function(){if(1>this.t)return 0;var b=this[0];if(0==(b&1))return 0;var d=b&3,d=d*(2-(b&15)*d)&15,d=d*(2-(b&255)*d)&255,d=d*(2-((b&65535)*d&65535))&65535,d=d*(2-b*d%this.DV)%this.DV;return 0<
-d?this.DV-d:-d};q.prototype.isEven=function(){return 0==(0<this.t?this[0]&1:this.s)};q.prototype.exp=function(b,d){if(4294967295<b||1>b)return q.ONE;var e=H(),l=H(),h=d.convert(this),r=k(b)-1;for(h.copyTo(e);0<=--r;)if(d.sqrTo(e,l),0<(b&1<<r))d.mulTo(l,h,e);else var w=e,e=l,l=w;return d.revert(e)};q.prototype.toString=function(b){if(0>this.s)return"-"+this.negate().toString(b);if(16==b)b=4;else if(8==b)b=3;else if(2==b)b=1;else if(32==b)b=5;else if(4==b)b=2;else return this.toRadix(b);var d=(1<<b)-
-1,e,l=!1,h="",r=this.t,k=this.DB-r*this.DB%b;if(0<r--)for(k<this.DB&&0<(e=this[r]>>k)&&(l=!0,h="0123456789abcdefghijklmnopqrstuvwxyz".charAt(e));0<=r;)k<b?(e=(this[r]&(1<<k)-1)<<b-k,e|=this[--r]>>(k+=this.DB-b)):(e=this[r]>>(k-=b)&d,0>=k&&(k+=this.DB,--r)),0<e&&(l=!0),l&&(h+="0123456789abcdefghijklmnopqrstuvwxyz".charAt(e));return l?h:"0"};q.prototype.negate=function(){var b=H();q.ZERO.subTo(this,b);return b};q.prototype.abs=function(){return 0>this.s?this.negate():this};q.prototype.compareTo=function(b){var d=
-this.s-b.s;if(0!=d)return d;var e=this.t,d=e-b.t;if(0!=d)return 0>this.s?-d:d;for(;0<=--e;)if(0!=(d=this[e]-b[e]))return d;return 0};q.prototype.bitLength=function(){return 0>=this.t?0:this.DB*(this.t-1)+k(this[this.t-1]^this.s&this.DM)};q.prototype.mod=function(b){var d=H();this.abs().divRemTo(b,null,d);0>this.s&&0<d.compareTo(q.ZERO)&&b.subTo(d,d);return d};q.prototype.modPowInt=function(b,d){var e;e=256>b||d.isEven()?new Ra(d):new L(d);return this.exp(b,e)};q.ZERO=Ba(0);q.ONE=Ba(1);xb.prototype.convert=
-Fc;xb.prototype.revert=Fc;xb.prototype.mulTo=function(b,d,e){b.multiplyTo(d,e)};xb.prototype.sqrTo=function(b,d){b.squareTo(d)};ka.prototype.convert=function(b){if(0>b.s||b.t>2*this.m.t)return b.mod(this.m);if(0>b.compareTo(this.m))return b;var d=H();b.copyTo(d);this.reduce(d);return d};ka.prototype.revert=function(b){return b};ka.prototype.reduce=function(b){b.drShiftTo(this.m.t-1,this.r2);b.t>this.m.t+1&&(b.t=this.m.t+1,b.clamp());this.mu.multiplyUpperTo(this.r2,this.m.t+1,this.q3);for(this.m.multiplyLowerTo(this.q3,
-this.m.t+1,this.r2);0>b.compareTo(this.r2);)b.dAddOffset(1,this.m.t+1);for(b.subTo(this.r2,b);0<=b.compareTo(this.m);)b.subTo(this.m,b)};ka.prototype.mulTo=function(b,d,e){b.multiplyTo(d,e);this.reduce(e)};ka.prototype.sqrTo=function(b,d){b.squareTo(d);this.reduce(d)};var la=[2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,
-313,317,331,337,347,349,353,359,367,373,379,383,389,397,401,409,419,421,431,433,439,443,449,457,461,463,467,479,487,491,499,503,509,521,523,541,547,557,563,569,571,577,587,593,599,601,607,613,617,619,631,641,643,647,653,659,661,673,677,683,691,701,709,719,727,733,739,743,751,757,761,769,773,787,797,809,811,821,823,827,829,839,853,857,859,863,877,881,883,887,907,911,919,929,937,941,947,953,967,971,977,983,991,997],qb=67108864/la[la.length-1];q.prototype.chunkSize=function(b){return Math.floor(Math.LN2*
-this.DB/Math.log(b))};q.prototype.toRadix=function(b){null==b&&(b=10);if(0==this.signum()||2>b||36<b)return"0";var d=this.chunkSize(b),d=Math.pow(b,d),e=Ba(d),l=H(),h=H(),r="";for(this.divRemTo(e,l,h);0<l.signum();)r=(d+h.intValue()).toString(b).substr(1)+r,l.divRemTo(e,l,h);return h.intValue().toString(b)+r};q.prototype.fromRadix=function(b,d){this.fromInt(0);null==d&&(d=10);for(var e=this.chunkSize(d),l=Math.pow(d,e),h=!1,r=0,k=0,E=0;E<b.length;++E){var B=Ja(b,E);0>B?"-"==b.charAt(E)&&0==this.signum()&&
-(h=!0):(k=d*k+B,++r>=e&&(this.dMultiply(l),this.dAddOffset(k,0),k=r=0))}0<r&&(this.dMultiply(Math.pow(d,r)),this.dAddOffset(k,0));h&&q.ZERO.subTo(this,this)};q.prototype.fromNumber=function(b,d,e){if("number"==typeof d)if(2>b)this.fromInt(1);else for(this.fromNumber(b,e),this.testBit(b-1)||this.bitwiseTo(q.ONE.shiftLeft(b-1),Y,this),this.isEven()&&this.dAddOffset(1,0);!this.isProbablePrime(d);)this.dAddOffset(2,0),this.bitLength()>b&&this.subTo(q.ONE.shiftLeft(b-1),this);else{e=[];var l=b&7;e.length=
-(b>>3)+1;d.nextBytes(e);e[0]=0<l?e[0]&(1<<l)-1:0;this.fromString(e,256)}};q.prototype.bitwiseTo=function(b,d,e){var l,h,r=Math.min(b.t,this.t);for(l=0;l<r;++l)e[l]=d(this[l],b[l]);if(b.t<this.t){h=b.s&this.DM;for(l=r;l<this.t;++l)e[l]=d(this[l],h);e.t=this.t}else{h=this.s&this.DM;for(l=r;l<b.t;++l)e[l]=d(h,b[l]);e.t=b.t}e.s=d(this.s,b.s);e.clamp()};q.prototype.changeBit=function(b,d){var e=q.ONE.shiftLeft(b);this.bitwiseTo(e,d,e);return e};q.prototype.addTo=function(b,d){for(var e=0,l=0,h=Math.min(b.t,
-this.t);e<h;)l+=this[e]+b[e],d[e++]=l&this.DM,l>>=this.DB;if(b.t<this.t){for(l+=b.s;e<this.t;)l+=this[e],d[e++]=l&this.DM,l>>=this.DB;l+=this.s}else{for(l+=this.s;e<b.t;)l+=b[e],d[e++]=l&this.DM,l>>=this.DB;l+=b.s}d.s=0>l?-1:0;0<l?d[e++]=l:-1>l&&(d[e++]=this.DV+l);d.t=e;d.clamp()};q.prototype.dMultiply=function(b){this[this.t]=this.am(0,b-1,this,0,0,this.t);++this.t;this.clamp()};q.prototype.dAddOffset=function(b,d){if(0!=b){for(;this.t<=d;)this[this.t++]=0;for(this[d]+=b;this[d]>=this.DV;)this[d]-=
-this.DV,++d>=this.t&&(this[this.t++]=0),++this[d]}};q.prototype.multiplyLowerTo=function(b,d,e){var l=Math.min(this.t+b.t,d);e.s=0;for(e.t=l;0<l;)e[--l]=0;var h;for(h=e.t-this.t;l<h;++l)e[l+this.t]=this.am(0,b[l],e,l,0,this.t);for(h=Math.min(b.t,d);l<h;++l)this.am(0,b[l],e,l,0,d-l);e.clamp()};q.prototype.multiplyUpperTo=function(b,d,e){--d;var l=e.t=this.t+b.t-d;for(e.s=0;0<=--l;)e[l]=0;for(l=Math.max(d-this.t,0);l<b.t;++l)e[this.t+l-d]=this.am(d-l,b[l],e,0,0,this.t+l-d);e.clamp();e.drShiftTo(1,e)};
-q.prototype.modInt=function(b){if(0>=b)return 0;var d=this.DV%b,e=0>this.s?b-1:0;if(0<this.t)if(0==d)e=this[0]%b;else for(var l=this.t-1;0<=l;--l)e=(d*e+this[l])%b;return e};q.prototype.millerRabin=function(b){var d=this.subtract(q.ONE),e=d.getLowestSetBit();if(0>=e)return!1;var l=d.shiftRight(e);b=b+1>>1;b>la.length&&(b=la.length);for(var h=H(),r=0;r<b;++r){h.fromInt(la[Math.floor(Math.random()*la.length)]);var k=h.modPow(l,this);if(0!=k.compareTo(q.ONE)&&0!=k.compareTo(d)){for(var E=1;E++<e&&0!=
-k.compareTo(d);)if(k=k.modPowInt(2,this),0==k.compareTo(q.ONE))return!1;if(0!=k.compareTo(d))return!1}}return!0};q.prototype.clone=function(){var b=H();this.copyTo(b);return b};q.prototype.intValue=function(){if(0>this.s){if(1==this.t)return this[0]-this.DV;if(0==this.t)return-1}else{if(1==this.t)return this[0];if(0==this.t)return 0}return(this[1]&(1<<32-this.DB)-1)<<this.DB|this[0]};q.prototype.byteValue=function(){return 0==this.t?this.s:this[0]<<24>>24};q.prototype.shortValue=function(){return 0==
-this.t?this.s:this[0]<<16>>16};q.prototype.signum=function(){return 0>this.s?-1:0>=this.t||1==this.t&&0>=this[0]?0:1};q.prototype.toByteArray=function(){var b=this.t,d=[];d[0]=this.s;var e=this.DB-b*this.DB%8,l,h=0;if(0<b--)for(e<this.DB&&(l=this[b]>>e)!=(this.s&this.DM)>>e&&(d[h++]=l|this.s<<this.DB-e);0<=b;)if(8>e?(l=(this[b]&(1<<e)-1)<<8-e,l|=this[--b]>>(e+=this.DB-8)):(l=this[b]>>(e-=8)&255,0>=e&&(e+=this.DB,--b)),0!=(l&128)&&(l|=-256),0==h&&(this.s&128)!=(l&128)&&++h,0<h||l!=this.s)d[h++]=l;
-return d};q.prototype.equals=function(b){return 0==this.compareTo(b)};q.prototype.min=function(b){return 0>this.compareTo(b)?this:b};q.prototype.max=function(b){return 0<this.compareTo(b)?this:b};q.prototype.and=function(b){var d=H();this.bitwiseTo(b,fa,d);return d};q.prototype.or=function(b){var d=H();this.bitwiseTo(b,Y,d);return d};q.prototype.xor=function(b){var d=H();this.bitwiseTo(b,Q,d);return d};q.prototype.andNot=function(b){var d=H();this.bitwiseTo(b,X,d);return d};q.prototype.not=function(){for(var b=
-H(),d=0;d<this.t;++d)b[d]=this.DM&~this[d];b.t=this.t;b.s=~this.s;return b};q.prototype.shiftLeft=function(b){var d=H();0>b?this.rShiftTo(-b,d):this.lShiftTo(b,d);return d};q.prototype.shiftRight=function(b){var d=H();0>b?this.lShiftTo(-b,d):this.rShiftTo(b,d);return d};q.prototype.getLowestSetBit=function(){for(var b=0;b<this.t;++b)if(0!=this[b]){var d=b*this.DB,b=this[b];if(0==b)b=-1;else{var e=0;0==(b&65535)&&(b>>=16,e+=16);0==(b&255)&&(b>>=8,e+=8);0==(b&15)&&(b>>=4,e+=4);0==(b&3)&&(b>>=2,e+=2);
-0==(b&1)&&++e;b=e}return d+b}return 0>this.s?this.t*this.DB:-1};q.prototype.bitCount=function(){for(var b=0,d=this.s&this.DM,e=0;e<this.t;++e){for(var l=this[e]^d,h=0;0!=l;)l&=l-1,++h;b+=h}return b};q.prototype.testBit=function(b){var d=Math.floor(b/this.DB);return d>=this.t?0!=this.s:0!=(this[d]&1<<b%this.DB)};q.prototype.setBit=function(b){return this.changeBit(b,Y)};q.prototype.clearBit=function(b){return this.changeBit(b,X)};q.prototype.flipBit=function(b){return this.changeBit(b,Q)};q.prototype.add=
-function(b){var d=H();this.addTo(b,d);return d};q.prototype.subtract=function(b){var d=H();this.subTo(b,d);return d};q.prototype.multiply=function(b){var d=H();this.multiplyTo(b,d);return d};q.prototype.divide=function(b){var d=H();this.divRemTo(b,d,null);return d};q.prototype.remainder=function(b){var d=H();this.divRemTo(b,null,d);return d};q.prototype.divideAndRemainder=function(b){var d=H(),e=H();this.divRemTo(b,d,e);return[d,e]};q.prototype.modPow=function(b,d){var e=b.bitLength(),l,h=Ba(1),r;
-if(0>=e)return h;l=18>e?1:48>e?3:144>e?4:768>e?5:6;r=8>e?new Ra(d):d.isEven()?new ka(d):new L(d);var w=[],E=3,B=l-1,q=(1<<l)-1;w[1]=r.convert(this);if(1<l)for(e=H(),r.sqrTo(w[1],e);E<=q;)w[E]=H(),r.mulTo(e,w[E-2],w[E]),E+=2;for(var pa=b.t-1,na,fa=!0,K=H(),e=k(b[pa])-1;0<=pa;){e>=B?na=b[pa]>>e-B&q:(na=(b[pa]&(1<<e+1)-1)<<B-e,0<pa&&(na|=b[pa-1]>>this.DB+e-B));for(E=l;0==(na&1);)na>>=1,--E;0>(e-=E)&&(e+=this.DB,--pa);if(fa)w[na].copyTo(h),fa=!1;else{for(;1<E;)r.sqrTo(h,K),r.sqrTo(K,h),E-=2;0<E?r.sqrTo(h,
-K):(E=h,h=K,K=E);r.mulTo(K,w[na],h)}for(;0<=pa&&0==(b[pa]&1<<e);)r.sqrTo(h,K),E=h,h=K,K=E,0>--e&&(e=this.DB-1,--pa)}return r.revert(h)};q.prototype.modInverse=function(b){var d=b.isEven();if(this.isEven()&&d||0==b.signum())return q.ZERO;for(var e=b.clone(),l=this.clone(),h=Ba(1),r=Ba(0),k=Ba(0),E=Ba(1);0!=e.signum();){for(;e.isEven();)e.rShiftTo(1,e),d?(h.isEven()&&r.isEven()||(h.addTo(this,h),r.subTo(b,r)),h.rShiftTo(1,h)):r.isEven()||r.subTo(b,r),r.rShiftTo(1,r);for(;l.isEven();)l.rShiftTo(1,l),
-d?(k.isEven()&&E.isEven()||(k.addTo(this,k),E.subTo(b,E)),k.rShiftTo(1,k)):E.isEven()||E.subTo(b,E),E.rShiftTo(1,E);0<=e.compareTo(l)?(e.subTo(l,e),d&&h.subTo(k,h),r.subTo(E,r)):(l.subTo(e,l),d&&k.subTo(h,k),E.subTo(r,E))}if(0!=l.compareTo(q.ONE))return q.ZERO;if(0<=E.compareTo(b))return E.subtract(b);if(0>E.signum())E.addTo(b,E);else return E;return 0>E.signum()?E.add(b):E};q.prototype.pow=function(b){return this.exp(b,new xb)};q.prototype.gcd=function(b){var d=0>this.s?this.negate():this.clone();
-b=0>b.s?b.negate():b.clone();if(0>d.compareTo(b)){var e=d,d=b;b=e}var e=d.getLowestSetBit(),l=b.getLowestSetBit();if(0>l)return d;e<l&&(l=e);for(0<l&&(d.rShiftTo(l,d),b.rShiftTo(l,b));0<d.signum();)0<(e=d.getLowestSetBit())&&d.rShiftTo(e,d),0<(e=b.getLowestSetBit())&&b.rShiftTo(e,b),0<=d.compareTo(b)?(d.subTo(b,d),d.rShiftTo(1,d)):(b.subTo(d,b),b.rShiftTo(1,b));0<l&&b.lShiftTo(l,b);return b};q.prototype.isProbablePrime=function(b){var d,e=this.abs();if(1==e.t&&e[0]<=la[la.length-1]){for(d=0;d<la.length;++d)if(e[0]==
-la[d])return!0;return!1}if(e.isEven())return!1;for(d=1;d<la.length;){for(var l=la[d],h=d+1;h<la.length&&l<qb;)l*=la[h++];for(l=e.modInt(l);d<h;)if(0==l%la[d++])return!1}return e.millerRabin(b)};q.prototype.square=function(){var b=H();this.squareTo(b);return b};q.prototype.IsNegative=function(){return-1==this.compareTo(q.ZERO)?!0:!1};q.op_Equality=function(b,d){return 0==b.compareTo(d)?!0:!1};q.op_Inequality=function(b,d){return 0!=b.compareTo(d)?!0:!1};q.op_GreaterThan=function(b,d){return 0<b.compareTo(d)?
-!0:!1};q.op_LessThan=function(b,d){return 0>b.compareTo(d)?!0:!1};q.op_Addition=function(b,d){return(new q(b)).add(new q(d))};q.op_Subtraction=function(b,d){return(new q(b)).subtract(new q(d))};q.Int128Mul=function(b,d){return(new q(b)).multiply(new q(d))};q.op_Division=function(b,d){return b.divide(d)};q.prototype.ToDouble=function(){return parseFloat(this.toString())};if("undefined"==typeof Yb)var Yb=function(b,d){var e;if("undefined"==typeof Object.getOwnPropertyNames)for(e in d.prototype){if("undefined"==
-typeof b.prototype[e]||b.prototype[e]==Object.prototype[e])b.prototype[e]=d.prototype[e]}else for(var l=Object.getOwnPropertyNames(d.prototype),h=0;h<l.length;h++)"undefined"==typeof Object.getOwnPropertyDescriptor(b.prototype,l[h])&&Object.defineProperty(b.prototype,l[h],Object.getOwnPropertyDescriptor(d.prototype,l[h]));for(e in d)"undefined"==typeof b[e]&&(b[e]=d[e]);b.$baseCtor=d};h.Path=function(){return[]};h.Paths=function(){return[]};h.DoublePoint=function(){var b=arguments;this.Y=this.X=0;
-1==b.length?(this.X=b[0].X,this.Y=b[0].Y):2==b.length&&(this.X=b[0],this.Y=b[1])};h.DoublePoint0=function(){this.Y=this.X=0};h.DoublePoint1=function(b){this.X=b.X;this.Y=b.Y};h.DoublePoint2=function(b,d){this.X=b;this.Y=d};h.PolyNode=function(){this.m_Parent=null;this.m_polygon=new h.Path;this.m_endtype=this.m_jointype=this.m_Index=0;this.m_Childs=[];this.IsOpen=!1};h.PolyNode.prototype.IsHoleNode=function(){for(var b=!0,d=this.m_Parent;null!==d;)b=!b,d=d.m_Parent;return b};h.PolyNode.prototype.ChildCount=
-function(){return this.m_Childs.length};h.PolyNode.prototype.Contour=function(){return this.m_polygon};h.PolyNode.prototype.AddChild=function(b){var d=this.m_Childs.length;this.m_Childs.push(b);b.m_Parent=this;b.m_Index=d};h.PolyNode.prototype.GetNext=function(){return 0<this.m_Childs.length?this.m_Childs[0]:this.GetNextSiblingUp()};h.PolyNode.prototype.GetNextSiblingUp=function(){return null===this.m_Parent?null:this.m_Index==this.m_Parent.m_Childs.length-1?this.m_Parent.GetNextSiblingUp():this.m_Parent.m_Childs[this.m_Index+
-1]};h.PolyNode.prototype.Childs=function(){return this.m_Childs};h.PolyNode.prototype.Parent=function(){return this.m_Parent};h.PolyNode.prototype.IsHole=function(){return this.IsHoleNode()};h.PolyTree=function(){this.m_AllPolys=[];h.PolyNode.call(this)};h.PolyTree.prototype.Clear=function(){for(var b=0,d=this.m_AllPolys.length;b<d;b++)this.m_AllPolys[b]=null;this.m_AllPolys.length=0;this.m_Childs.length=0};h.PolyTree.prototype.GetFirst=function(){return 0<this.m_Childs.length?this.m_Childs[0]:null};
-h.PolyTree.prototype.Total=function(){return this.m_AllPolys.length};Yb(h.PolyTree,h.PolyNode);h.Math_Abs_Int64=h.Math_Abs_Int32=h.Math_Abs_Double=function(b){return Math.abs(b)};h.Math_Max_Int32_Int32=function(b,d){return Math.max(b,d)};h.Cast_Int32=S||$a||Wb?function(b){return b|0}:function(b){return~~b};h.Cast_Int64=Za?function(b){return-2147483648>b||2147483647<b?0>b?Math.ceil(b):Math.floor(b):~~b}:La&&"function"==typeof Number.toInteger?function(b){return Number.toInteger(b)}:pb||jb?function(b){return parseInt(b,
-10)}:S?function(b){return-2147483648>b||2147483647<b?0>b?Math.ceil(b):Math.floor(b):b|0}:function(b){return 0>b?Math.ceil(b):Math.floor(b)};h.Clear=function(b){b.length=0};h.PI=3.141592653589793;h.PI2=6.283185307179586;h.IntPoint=function(){var b;b=arguments;var d=b.length;this.Y=this.X=0;2==d?(this.X=b[0],this.Y=b[1]):1==d?b[0]instanceof h.DoublePoint?(b=b[0],this.X=h.Clipper.Round(b.X),this.Y=h.Clipper.Round(b.Y)):(b=b[0],this.X=b.X,this.Y=b.Y):this.Y=this.X=0};h.IntPoint.op_Equality=function(b,
-d){return b.X==d.X&&b.Y==d.Y};h.IntPoint.op_Inequality=function(b,d){return b.X!=d.X||b.Y!=d.Y};h.IntPoint0=function(){this.Y=this.X=0};h.IntPoint1=function(b){this.X=b.X;this.Y=b.Y};h.IntPoint1dp=function(b){this.X=h.Clipper.Round(b.X);this.Y=h.Clipper.Round(b.Y)};h.IntPoint2=function(b,d){this.X=b;this.Y=d};h.IntRect=function(){var b=arguments,d=b.length;4==d?(this.left=b[0],this.top=b[1],this.right=b[2],this.bottom=b[3]):1==d?(this.left=b[0].left,this.top=b[0].top,this.right=b[0].right,this.bottom=
-b[0].bottom):this.bottom=this.right=this.top=this.left=0};h.IntRect0=function(){this.bottom=this.right=this.top=this.left=0};h.IntRect1=function(b){this.left=b.left;this.top=b.top;this.right=b.right;this.bottom=b.bottom};h.IntRect4=function(b,d,e,l){this.left=b;this.top=d;this.right=e;this.bottom=l};h.ClipType={ctIntersection:0,ctUnion:1,ctDifference:2,ctXor:3};h.PolyType={ptSubject:0,ptClip:1};h.PolyFillType={pftEvenOdd:0,pftNonZero:1,pftPositive:2,pftNegative:3};h.JoinType={jtSquare:0,jtRound:1,
-jtMiter:2};h.EndType={etOpenSquare:0,etOpenRound:1,etOpenButt:2,etClosedLine:3,etClosedPolygon:4};h.EdgeSide={esLeft:0,esRight:1};h.Direction={dRightToLeft:0,dLeftToRight:1};h.TEdge=function(){this.Bot=new h.IntPoint;this.Curr=new h.IntPoint;this.Top=new h.IntPoint;this.Delta=new h.IntPoint;this.Dx=0;this.PolyTyp=h.PolyType.ptSubject;this.Side=h.EdgeSide.esLeft;this.OutIdx=this.WindCnt2=this.WindCnt=this.WindDelta=0;this.PrevInSEL=this.NextInSEL=this.PrevInAEL=this.NextInAEL=this.NextInLML=this.Prev=
-this.Next=null};h.IntersectNode=function(){this.Edge2=this.Edge1=null;this.Pt=new h.IntPoint};h.MyIntersectNodeSort=function(){};h.MyIntersectNodeSort.Compare=function(b,d){return d.Pt.Y-b.Pt.Y};h.LocalMinima=function(){this.Y=0;this.Next=this.RightBound=this.LeftBound=null};h.Scanbeam=function(){this.Y=0;this.Next=null};h.OutRec=function(){this.Idx=0;this.IsOpen=this.IsHole=!1;this.PolyNode=this.BottomPt=this.Pts=this.FirstLeft=null};h.OutPt=function(){this.Idx=0;this.Pt=new h.IntPoint;this.Prev=
-this.Next=null};h.Join=function(){this.OutPt2=this.OutPt1=null;this.OffPt=new h.IntPoint};h.ClipperBase=function(){this.m_CurrentLM=this.m_MinimaList=null;this.m_edges=[];this.PreserveCollinear=this.m_HasOpenPaths=this.m_UseFullRange=!1;this.m_CurrentLM=this.m_MinimaList=null;this.m_HasOpenPaths=this.m_UseFullRange=!1};h.ClipperBase.horizontal=-9007199254740992;h.ClipperBase.Skip=-2;h.ClipperBase.Unassigned=-1;h.ClipperBase.tolerance=1E-20;h.ClipperBase.loRange=47453132;h.ClipperBase.hiRange=0xfffffffffffff;
-h.ClipperBase.near_zero=function(b){return b>-h.ClipperBase.tolerance&&b<h.ClipperBase.tolerance};h.ClipperBase.IsHorizontal=function(b){return 0===b.Delta.Y};h.ClipperBase.prototype.PointIsVertex=function(b,d){var e=d;do{if(h.IntPoint.op_Equality(e.Pt,b))return!0;e=e.Next}while(e!=d);return!1};h.ClipperBase.prototype.PointOnLineSegment=function(b,d,e,l){return l?b.X==d.X&&b.Y==d.Y||b.X==e.X&&b.Y==e.Y||b.X>d.X==b.X<e.X&&b.Y>d.Y==b.Y<e.Y&&q.op_Equality(q.Int128Mul(b.X-d.X,e.Y-d.Y),q.Int128Mul(e.X-
-d.X,b.Y-d.Y)):b.X==d.X&&b.Y==d.Y||b.X==e.X&&b.Y==e.Y||b.X>d.X==b.X<e.X&&b.Y>d.Y==b.Y<e.Y&&(b.X-d.X)*(e.Y-d.Y)==(e.X-d.X)*(b.Y-d.Y)};h.ClipperBase.prototype.PointOnPolygon=function(b,d,e){for(var l=d;;){if(this.PointOnLineSegment(b,l.Pt,l.Next.Pt,e))return!0;l=l.Next;if(l==d)break}return!1};h.ClipperBase.prototype.SlopesEqual=h.ClipperBase.SlopesEqual=function(){var b=arguments,d=b.length,e,l,G;if(3==d)return d=b[0],e=b[1],b[2]?q.op_Equality(q.Int128Mul(d.Delta.Y,e.Delta.X),q.Int128Mul(d.Delta.X,e.Delta.Y)):
-h.Cast_Int64(d.Delta.Y*e.Delta.X)==h.Cast_Int64(d.Delta.X*e.Delta.Y);if(4==d)return d=b[0],e=b[1],l=b[2],b[3]?q.op_Equality(q.Int128Mul(d.Y-e.Y,e.X-l.X),q.Int128Mul(d.X-e.X,e.Y-l.Y)):0===h.Cast_Int64((d.Y-e.Y)*(e.X-l.X))-h.Cast_Int64((d.X-e.X)*(e.Y-l.Y));d=b[0];e=b[1];l=b[2];G=b[3];return b[4]?q.op_Equality(q.Int128Mul(d.Y-e.Y,l.X-G.X),q.Int128Mul(d.X-e.X,l.Y-G.Y)):0===h.Cast_Int64((d.Y-e.Y)*(l.X-G.X))-h.Cast_Int64((d.X-e.X)*(l.Y-G.Y))};h.ClipperBase.SlopesEqual3=function(b,d,e){return e?q.op_Equality(q.Int128Mul(b.Delta.Y,
-d.Delta.X),q.Int128Mul(b.Delta.X,d.Delta.Y)):h.Cast_Int64(b.Delta.Y*d.Delta.X)==h.Cast_Int64(b.Delta.X*d.Delta.Y)};h.ClipperBase.SlopesEqual4=function(b,d,e,l){return l?q.op_Equality(q.Int128Mul(b.Y-d.Y,d.X-e.X),q.Int128Mul(b.X-d.X,d.Y-e.Y)):0===h.Cast_Int64((b.Y-d.Y)*(d.X-e.X))-h.Cast_Int64((b.X-d.X)*(d.Y-e.Y))};h.ClipperBase.SlopesEqual5=function(b,d,e,l,G){return G?q.op_Equality(q.Int128Mul(b.Y-d.Y,e.X-l.X),q.Int128Mul(b.X-d.X,e.Y-l.Y)):0===h.Cast_Int64((b.Y-d.Y)*(e.X-l.X))-h.Cast_Int64((b.X-d.X)*
-(e.Y-l.Y))};h.ClipperBase.prototype.Clear=function(){this.DisposeLocalMinimaList();for(var b=0,d=this.m_edges.length;b<d;++b){for(var e=0,l=this.m_edges[b].length;e<l;++e)this.m_edges[b][e]=null;h.Clear(this.m_edges[b])}h.Clear(this.m_edges);this.m_HasOpenPaths=this.m_UseFullRange=!1};h.ClipperBase.prototype.DisposeLocalMinimaList=function(){for(;null!==this.m_MinimaList;){var b=this.m_MinimaList.Next;this.m_MinimaList=null;this.m_MinimaList=b}this.m_CurrentLM=null};h.ClipperBase.prototype.RangeTest=
-function(b,d){if(d.Value)(b.X>h.ClipperBase.hiRange||b.Y>h.ClipperBase.hiRange||-b.X>h.ClipperBase.hiRange||-b.Y>h.ClipperBase.hiRange)&&h.Error("Coordinate outside allowed range in RangeTest().");else if(b.X>h.ClipperBase.loRange||b.Y>h.ClipperBase.loRange||-b.X>h.ClipperBase.loRange||-b.Y>h.ClipperBase.loRange)d.Value=!0,this.RangeTest(b,d)};h.ClipperBase.prototype.InitEdge=function(b,d,e,l){b.Next=d;b.Prev=e;b.Curr.X=l.X;b.Curr.Y=l.Y;b.OutIdx=-1};h.ClipperBase.prototype.InitEdge2=function(b,d){b.Curr.Y>=
-b.Next.Curr.Y?(b.Bot.X=b.Curr.X,b.Bot.Y=b.Curr.Y,b.Top.X=b.Next.Curr.X,b.Top.Y=b.Next.Curr.Y):(b.Top.X=b.Curr.X,b.Top.Y=b.Curr.Y,b.Bot.X=b.Next.Curr.X,b.Bot.Y=b.Next.Curr.Y);this.SetDx(b);b.PolyTyp=d};h.ClipperBase.prototype.FindNextLocMin=function(b){for(var d;;){for(;h.IntPoint.op_Inequality(b.Bot,b.Prev.Bot)||h.IntPoint.op_Equality(b.Curr,b.Top);)b=b.Next;if(b.Dx!=h.ClipperBase.horizontal&&b.Prev.Dx!=h.ClipperBase.horizontal)break;for(;b.Prev.Dx==h.ClipperBase.horizontal;)b=b.Prev;for(d=b;b.Dx==
-h.ClipperBase.horizontal;)b=b.Next;if(b.Top.Y!=b.Prev.Bot.Y){d.Prev.Bot.X<b.Bot.X&&(b=d);break}}return b};h.ClipperBase.prototype.ProcessBound=function(b,d){var e=b,l=b,G;b.Dx==h.ClipperBase.horizontal&&(G=d?b.Prev.Bot.X:b.Next.Bot.X,b.Bot.X!=G&&this.ReverseHorizontal(b));if(l.OutIdx!=h.ClipperBase.Skip)if(d){for(;l.Top.Y==l.Next.Bot.Y&&l.Next.OutIdx!=h.ClipperBase.Skip;)l=l.Next;if(l.Dx==h.ClipperBase.horizontal&&l.Next.OutIdx!=h.ClipperBase.Skip){for(G=l;G.Prev.Dx==h.ClipperBase.horizontal;)G=G.Prev;
-G.Prev.Top.X==l.Next.Top.X?d||(l=G.Prev):G.Prev.Top.X>l.Next.Top.X&&(l=G.Prev)}for(;b!=l;)b.NextInLML=b.Next,b.Dx==h.ClipperBase.horizontal&&b!=e&&b.Bot.X!=b.Prev.Top.X&&this.ReverseHorizontal(b),b=b.Next;b.Dx==h.ClipperBase.horizontal&&b!=e&&b.Bot.X!=b.Prev.Top.X&&this.ReverseHorizontal(b);l=l.Next}else{for(;l.Top.Y==l.Prev.Bot.Y&&l.Prev.OutIdx!=h.ClipperBase.Skip;)l=l.Prev;if(l.Dx==h.ClipperBase.horizontal&&l.Prev.OutIdx!=h.ClipperBase.Skip){for(G=l;G.Next.Dx==h.ClipperBase.horizontal;)G=G.Next;
-G.Next.Top.X==l.Prev.Top.X?d||(l=G.Next):G.Next.Top.X>l.Prev.Top.X&&(l=G.Next)}for(;b!=l;)b.NextInLML=b.Prev,b.Dx==h.ClipperBase.horizontal&&b!=e&&b.Bot.X!=b.Next.Top.X&&this.ReverseHorizontal(b),b=b.Prev;b.Dx==h.ClipperBase.horizontal&&b!=e&&b.Bot.X!=b.Next.Top.X&&this.ReverseHorizontal(b);l=l.Prev}if(l.OutIdx==h.ClipperBase.Skip){b=l;if(d){for(;b.Top.Y==b.Next.Bot.Y;)b=b.Next;for(;b!=l&&b.Dx==h.ClipperBase.horizontal;)b=b.Prev}else{for(;b.Top.Y==b.Prev.Bot.Y;)b=b.Prev;for(;b!=l&&b.Dx==h.ClipperBase.horizontal;)b=
-b.Next}b==l?l=d?b.Next:b.Prev:(b=d?l.Next:l.Prev,e=new h.LocalMinima,e.Next=null,e.Y=b.Bot.Y,e.LeftBound=null,e.RightBound=b,e.RightBound.WindDelta=0,l=this.ProcessBound(e.RightBound,d),this.InsertLocalMinima(e))}return l};h.ClipperBase.prototype.AddPath=function(b,d,e){e||d!=h.PolyType.ptClip||h.Error("AddPath: Open paths must be subject.");var l=b.length-1;if(e)for(;0<l&&h.IntPoint.op_Equality(b[l],b[0]);)--l;for(;0<l&&h.IntPoint.op_Equality(b[l],b[l-1]);)--l;if(e&&2>l||!e&&1>l)return!1;for(var G=
-[],r=0;r<=l;r++)G.push(new h.TEdge);var k=!0;try{for(G[1].Curr.X=b[1].X,G[1].Curr.Y=b[1].Y,function(){var d={Value:this.m_UseFullRange},e=this.RangeTest(b[0],d);this.m_UseFullRange=d.Value;return e}.call(this),function(){var d={Value:this.m_UseFullRange},e=this.RangeTest(b[l],d);this.m_UseFullRange=d.Value;return e}.call(this),this.InitEdge(G[0],G[1],G[l],b[0]),this.InitEdge(G[l],G[0],G[l-1],b[l]),r=l-1;1<=r;--r)(function(){var d={Value:this.m_UseFullRange},e=this.RangeTest(b[r],d);this.m_UseFullRange=
-d.Value;return e}).call(this),this.InitEdge(G[r],G[r+1],G[r-1],b[r])}catch(q){return!1}var E=G[0];e||(E.Prev.OutIdx=h.ClipperBase.Skip);for(var B=E,L=E;;)if(h.IntPoint.op_Equality(B.Curr,B.Next.Curr)){if(B==B.Next)break;B==E&&(E=B.Next);L=B=this.RemoveEdge(B)}else{if(B.Prev==B.Next)break;else if(e&&h.ClipperBase.SlopesEqual(B.Prev.Curr,B.Curr,B.Next.Curr,this.m_UseFullRange)&&(!this.PreserveCollinear||!this.Pt2IsBetweenPt1AndPt3(B.Prev.Curr,B.Curr,B.Next.Curr))){B==E&&(E=B.Next);B=this.RemoveEdge(B);
-L=B=B.Prev;continue}B=B.Next;if(B==L)break}if(!e&&B==B.Next||e&&B.Prev==B.Next)return!1;e||(this.m_HasOpenPaths=!0);B=E;do this.InitEdge2(B,d),B=B.Next,k&&B.Curr.Y!=E.Curr.Y&&(k=!1);while(B!=E);if(k){if(e)return!1;B.Prev.OutIdx=h.ClipperBase.Skip;B.Prev.Bot.X<B.Prev.Top.X&&this.ReverseHorizontal(B.Prev);d=new h.LocalMinima;d.Next=null;d.Y=B.Bot.Y;d.LeftBound=null;d.RightBound=B;d.RightBound.Side=h.EdgeSide.esRight;for(d.RightBound.WindDelta=0;B.Next.OutIdx!=h.ClipperBase.Skip;)B.NextInLML=B.Next,
-B.Bot.X!=B.Prev.Top.X&&this.ReverseHorizontal(B),B=B.Next;this.InsertLocalMinima(d);this.m_edges.push(G);return!0}this.m_edges.push(G);for(k=null;;){B=this.FindNextLocMin(B);if(B==k)break;else null==k&&(k=B);d=new h.LocalMinima;d.Next=null;d.Y=B.Bot.Y;B.Dx<B.Prev.Dx?(d.LeftBound=B.Prev,d.RightBound=B,G=!1):(d.LeftBound=B,d.RightBound=B.Prev,G=!0);d.LeftBound.Side=h.EdgeSide.esLeft;d.RightBound.Side=h.EdgeSide.esRight;d.LeftBound.WindDelta=e?d.LeftBound.Next==d.RightBound?-1:1:0;d.RightBound.WindDelta=
--d.LeftBound.WindDelta;B=this.ProcessBound(d.LeftBound,G);E=this.ProcessBound(d.RightBound,!G);d.LeftBound.OutIdx==h.ClipperBase.Skip?d.LeftBound=null:d.RightBound.OutIdx==h.ClipperBase.Skip&&(d.RightBound=null);this.InsertLocalMinima(d);G||(B=E)}return!0};h.ClipperBase.prototype.AddPaths=function(b,d,e){for(var l=!1,h=0,k=b.length;h<k;++h)this.AddPath(b[h],d,e)&&(l=!0);return l};h.ClipperBase.prototype.Pt2IsBetweenPt1AndPt3=function(b,d,e){return h.IntPoint.op_Equality(b,e)||h.IntPoint.op_Equality(b,
-d)||h.IntPoint.op_Equality(e,d)?!1:b.X!=e.X?d.X>b.X==d.X<e.X:d.Y>b.Y==d.Y<e.Y};h.ClipperBase.prototype.RemoveEdge=function(b){b.Prev.Next=b.Next;b.Next.Prev=b.Prev;var d=b.Next;b.Prev=null;return d};h.ClipperBase.prototype.SetDx=function(b){b.Delta.X=b.Top.X-b.Bot.X;b.Delta.Y=b.Top.Y-b.Bot.Y;b.Dx=0===b.Delta.Y?h.ClipperBase.horizontal:b.Delta.X/b.Delta.Y};h.ClipperBase.prototype.InsertLocalMinima=function(b){if(null===this.m_MinimaList)this.m_MinimaList=b;else if(b.Y>=this.m_MinimaList.Y)b.Next=this.m_MinimaList,
-this.m_MinimaList=b;else{for(var d=this.m_MinimaList;null!==d.Next&&b.Y<d.Next.Y;)d=d.Next;b.Next=d.Next;d.Next=b}};h.ClipperBase.prototype.PopLocalMinima=function(){null!==this.m_CurrentLM&&(this.m_CurrentLM=this.m_CurrentLM.Next)};h.ClipperBase.prototype.ReverseHorizontal=function(b){var d=b.Top.X;b.Top.X=b.Bot.X;b.Bot.X=d};h.ClipperBase.prototype.Reset=function(){this.m_CurrentLM=this.m_MinimaList;if(null!=this.m_CurrentLM)for(var b=this.m_MinimaList;null!=b;){var d=b.LeftBound;null!=d&&(d.Curr.X=
-d.Bot.X,d.Curr.Y=d.Bot.Y,d.Side=h.EdgeSide.esLeft,d.OutIdx=h.ClipperBase.Unassigned);d=b.RightBound;null!=d&&(d.Curr.X=d.Bot.X,d.Curr.Y=d.Bot.Y,d.Side=h.EdgeSide.esRight,d.OutIdx=h.ClipperBase.Unassigned);b=b.Next}};h.Clipper=function(b){"undefined"==typeof b&&(b=0);this.m_PolyOuts=null;this.m_ClipType=h.ClipType.ctIntersection;this.m_IntersectNodeComparer=this.m_IntersectList=this.m_SortedEdges=this.m_ActiveEdges=this.m_Scanbeam=null;this.m_ExecuteLocked=!1;this.m_SubjFillType=this.m_ClipFillType=
-h.PolyFillType.pftEvenOdd;this.m_GhostJoins=this.m_Joins=null;this.StrictlySimple=this.ReverseSolution=this.m_UsingPolyTree=!1;h.ClipperBase.call(this);this.m_SortedEdges=this.m_ActiveEdges=this.m_Scanbeam=null;this.m_IntersectList=[];this.m_IntersectNodeComparer=h.MyIntersectNodeSort.Compare;this.m_UsingPolyTree=this.m_ExecuteLocked=!1;this.m_PolyOuts=[];this.m_Joins=[];this.m_GhostJoins=[];this.ReverseSolution=0!==(1&b);this.StrictlySimple=0!==(2&b);this.PreserveCollinear=0!==(4&b)};h.Clipper.ioReverseSolution=
-1;h.Clipper.ioStrictlySimple=2;h.Clipper.ioPreserveCollinear=4;h.Clipper.prototype.Clear=function(){0!==this.m_edges.length&&(this.DisposeAllPolyPts(),h.ClipperBase.prototype.Clear.call(this))};h.Clipper.prototype.DisposeScanbeamList=function(){for(;null!==this.m_Scanbeam;){var b=this.m_Scanbeam.Next;this.m_Scanbeam=null;this.m_Scanbeam=b}};h.Clipper.prototype.Reset=function(){h.ClipperBase.prototype.Reset.call(this);this.m_SortedEdges=this.m_ActiveEdges=this.m_Scanbeam=null;this.DisposeAllPolyPts();
-for(var b=this.m_MinimaList;null!==b;)this.InsertScanbeam(b.Y),b=b.Next};h.Clipper.prototype.InsertScanbeam=function(b){if(null===this.m_Scanbeam)this.m_Scanbeam=new h.Scanbeam,this.m_Scanbeam.Next=null,this.m_Scanbeam.Y=b;else if(b>this.m_Scanbeam.Y){var d=new h.Scanbeam;d.Y=b;d.Next=this.m_Scanbeam;this.m_Scanbeam=d}else{for(var e=this.m_Scanbeam;null!==e.Next&&b<=e.Next.Y;)e=e.Next;b!=e.Y&&(d=new h.Scanbeam,d.Y=b,d.Next=e.Next,e.Next=d)}};h.Clipper.prototype.Execute=function(){var b=arguments,
-d=b.length,e=b[1]instanceof h.PolyTree;if(4!=d||e){if(4==d&&e){e=b[0];d=b[1];l=b[2];b=b[3];if(this.m_ExecuteLocked)return!1;this.m_ExecuteLocked=!0;this.m_SubjFillType=l;this.m_ClipFillType=b;this.m_ClipType=e;this.m_UsingPolyTree=!0;(b=this.ExecuteInternal())&&this.BuildResult2(d);this.m_ExecuteLocked=!1;return b}if(2==d&&!e||2==d&&e)return e=b[0],d=b[1],this.Execute(e,d,h.PolyFillType.pftEvenOdd,h.PolyFillType.pftEvenOdd)}else{var e=b[0],d=b[1],l=b[2],b=b[3];if(this.m_ExecuteLocked)return!1;this.m_HasOpenPaths&&
-h.Error("Error: PolyTree struct is need for open path clipping.");this.m_ExecuteLocked=!0;h.Clear(d);this.m_SubjFillType=l;this.m_ClipFillType=b;this.m_ClipType=e;this.m_UsingPolyTree=!1;(b=this.ExecuteInternal())&&this.BuildResult(d);this.m_ExecuteLocked=!1;return b}};h.Clipper.prototype.FixHoleLinkage=function(b){if(null!==b.FirstLeft&&(b.IsHole==b.FirstLeft.IsHole||null===b.FirstLeft.Pts)){for(var d=b.FirstLeft;null!==d&&(d.IsHole==b.IsHole||null===d.Pts);)d=d.FirstLeft;b.FirstLeft=d}};h.Clipper.prototype.ExecuteInternal=
-function(){try{this.Reset();if(null===this.m_CurrentLM)return!1;var b=this.PopScanbeam();do{this.InsertLocalMinimaIntoAEL(b);h.Clear(this.m_GhostJoins);this.ProcessHorizontals(!1);if(null===this.m_Scanbeam)break;var d=this.PopScanbeam();if(!this.ProcessIntersections(b,d))return!1;this.ProcessEdgesAtTopOfScanbeam(d);b=d}while(null!==this.m_Scanbeam||null!==this.m_CurrentLM);for(var b=0,e=this.m_PolyOuts.length;b<e;b++){var l=this.m_PolyOuts[b];null===l.Pts||l.IsOpen||(l.IsHole^this.ReverseSolution)==
-0<this.Area(l)&&this.ReversePolyPtLinks(l.Pts)}this.JoinCommonEdges();b=0;for(e=this.m_PolyOuts.length;b<e;b++)l=this.m_PolyOuts[b],null===l.Pts||l.IsOpen||this.FixupOutPolygon(l);this.StrictlySimple&&this.DoSimplePolygons();return!0}finally{h.Clear(this.m_Joins),h.Clear(this.m_GhostJoins)}};h.Clipper.prototype.PopScanbeam=function(){var b=this.m_Scanbeam.Y;this.m_Scanbeam=this.m_Scanbeam.Next;return b};h.Clipper.prototype.DisposeAllPolyPts=function(){for(var b=0,d=this.m_PolyOuts.length;b<d;++b)this.DisposeOutRec(b);
-h.Clear(this.m_PolyOuts)};h.Clipper.prototype.DisposeOutRec=function(b){var d=this.m_PolyOuts[b];null!==d.Pts&&this.DisposeOutPts(d.Pts);this.m_PolyOuts[b]=null};h.Clipper.prototype.DisposeOutPts=function(b){if(null!==b)for(b.Prev.Next=null;null!==b;)b=b.Next};h.Clipper.prototype.AddJoin=function(b,d,e){var l=new h.Join;l.OutPt1=b;l.OutPt2=d;l.OffPt.X=e.X;l.OffPt.Y=e.Y;this.m_Joins.push(l)};h.Clipper.prototype.AddGhostJoin=function(b,d){var e=new h.Join;e.OutPt1=b;e.OffPt.X=d.X;e.OffPt.Y=d.Y;this.m_GhostJoins.push(e)};
-h.Clipper.prototype.InsertLocalMinimaIntoAEL=function(b){for(;null!==this.m_CurrentLM&&this.m_CurrentLM.Y==b;){var d=this.m_CurrentLM.LeftBound,e=this.m_CurrentLM.RightBound;this.PopLocalMinima();var l=null;null===d?(this.InsertEdgeIntoAEL(e,null),this.SetWindingCount(e),this.IsContributing(e)&&(l=this.AddOutPt(e,e.Bot))):(null==e?(this.InsertEdgeIntoAEL(d,null),this.SetWindingCount(d),this.IsContributing(d)&&(l=this.AddOutPt(d,d.Bot))):(this.InsertEdgeIntoAEL(d,null),this.InsertEdgeIntoAEL(e,d),
-this.SetWindingCount(d),e.WindCnt=d.WindCnt,e.WindCnt2=d.WindCnt2,this.IsContributing(d)&&(l=this.AddLocalMinPoly(d,e,d.Bot))),this.InsertScanbeam(d.Top.Y));null!=e&&(h.ClipperBase.IsHorizontal(e)?this.AddEdgeToSEL(e):this.InsertScanbeam(e.Top.Y));if(null!=d&&null!=e){if(null!==l&&h.ClipperBase.IsHorizontal(e)&&0<this.m_GhostJoins.length&&0!==e.WindDelta)for(var G=0,k=this.m_GhostJoins.length;G<k;G++){var w=this.m_GhostJoins[G];this.HorzSegmentsOverlap(w.OutPt1.Pt,w.OffPt,e.Bot,e.Top)&&this.AddJoin(w.OutPt1,
-l,w.OffPt)}0<=d.OutIdx&&null!==d.PrevInAEL&&d.PrevInAEL.Curr.X==d.Bot.X&&0<=d.PrevInAEL.OutIdx&&h.ClipperBase.SlopesEqual(d.PrevInAEL,d,this.m_UseFullRange)&&0!==d.WindDelta&&0!==d.PrevInAEL.WindDelta&&(G=this.AddOutPt(d.PrevInAEL,d.Bot),this.AddJoin(l,G,d.Top));if(d.NextInAEL!=e&&(0<=e.OutIdx&&0<=e.PrevInAEL.OutIdx&&h.ClipperBase.SlopesEqual(e.PrevInAEL,e,this.m_UseFullRange)&&0!==e.WindDelta&&0!==e.PrevInAEL.WindDelta&&(G=this.AddOutPt(e.PrevInAEL,e.Bot),this.AddJoin(l,G,e.Top)),l=d.NextInAEL,null!==
-l))for(;l!=e;)this.IntersectEdges(e,l,d.Curr,!1),l=l.NextInAEL}}};h.Clipper.prototype.InsertEdgeIntoAEL=function(b,d){if(null===this.m_ActiveEdges)b.PrevInAEL=null,b.NextInAEL=null,this.m_ActiveEdges=b;else if(null===d&&this.E2InsertsBeforeE1(this.m_ActiveEdges,b))b.PrevInAEL=null,b.NextInAEL=this.m_ActiveEdges,this.m_ActiveEdges=this.m_ActiveEdges.PrevInAEL=b;else{for(null===d&&(d=this.m_ActiveEdges);null!==d.NextInAEL&&!this.E2InsertsBeforeE1(d.NextInAEL,b);)d=d.NextInAEL;b.NextInAEL=d.NextInAEL;
-null!==d.NextInAEL&&(d.NextInAEL.PrevInAEL=b);b.PrevInAEL=d;d.NextInAEL=b}};h.Clipper.prototype.E2InsertsBeforeE1=function(b,d){return d.Curr.X==b.Curr.X?d.Top.Y>b.Top.Y?d.Top.X<h.Clipper.TopX(b,d.Top.Y):b.Top.X>h.Clipper.TopX(d,b.Top.Y):d.Curr.X<b.Curr.X};h.Clipper.prototype.IsEvenOddFillType=function(b){return b.PolyTyp==h.PolyType.ptSubject?this.m_SubjFillType==h.PolyFillType.pftEvenOdd:this.m_ClipFillType==h.PolyFillType.pftEvenOdd};h.Clipper.prototype.IsEvenOddAltFillType=function(b){return b.PolyTyp==
-h.PolyType.ptSubject?this.m_ClipFillType==h.PolyFillType.pftEvenOdd:this.m_SubjFillType==h.PolyFillType.pftEvenOdd};h.Clipper.prototype.IsContributing=function(b){var d,e;b.PolyTyp==h.PolyType.ptSubject?(d=this.m_SubjFillType,e=this.m_ClipFillType):(d=this.m_ClipFillType,e=this.m_SubjFillType);switch(d){case h.PolyFillType.pftEvenOdd:if(0===b.WindDelta&&1!=b.WindCnt)return!1;break;case h.PolyFillType.pftNonZero:if(1!=Math.abs(b.WindCnt))return!1;break;case h.PolyFillType.pftPositive:if(1!=b.WindCnt)return!1;
-break;default:if(-1!=b.WindCnt)return!1}switch(this.m_ClipType){case h.ClipType.ctIntersection:switch(e){case h.PolyFillType.pftEvenOdd:case h.PolyFillType.pftNonZero:return 0!==b.WindCnt2;case h.PolyFillType.pftPositive:return 0<b.WindCnt2;default:return 0>b.WindCnt2}case h.ClipType.ctUnion:switch(e){case h.PolyFillType.pftEvenOdd:case h.PolyFillType.pftNonZero:return 0===b.WindCnt2;case h.PolyFillType.pftPositive:return 0>=b.WindCnt2;default:return 0<=b.WindCnt2}case h.ClipType.ctDifference:if(b.PolyTyp==
-h.PolyType.ptSubject)switch(e){case h.PolyFillType.pftEvenOdd:case h.PolyFillType.pftNonZero:return 0===b.WindCnt2;case h.PolyFillType.pftPositive:return 0>=b.WindCnt2;default:return 0<=b.WindCnt2}else switch(e){case h.PolyFillType.pftEvenOdd:case h.PolyFillType.pftNonZero:return 0!==b.WindCnt2;case h.PolyFillType.pftPositive:return 0<b.WindCnt2;default:return 0>b.WindCnt2}case h.ClipType.ctXor:if(0===b.WindDelta)switch(e){case h.PolyFillType.pftEvenOdd:case h.PolyFillType.pftNonZero:return 0===b.WindCnt2;
-case h.PolyFillType.pftPositive:return 0>=b.WindCnt2;default:return 0<=b.WindCnt2}}return!0};h.Clipper.prototype.SetWindingCount=function(b){for(var d=b.PrevInAEL;null!==d&&(d.PolyTyp!=b.PolyTyp||0===d.WindDelta);)d=d.PrevInAEL;if(null===d)b.WindCnt=0===b.WindDelta?1:b.WindDelta,b.WindCnt2=0,d=this.m_ActiveEdges;else{if(0===b.WindDelta&&this.m_ClipType!=h.ClipType.ctUnion)b.WindCnt=1;else if(this.IsEvenOddFillType(b))if(0===b.WindDelta){for(var e=!0,l=d.PrevInAEL;null!==l;)l.PolyTyp==d.PolyTyp&&0!==
-l.WindDelta&&(e=!e),l=l.PrevInAEL;b.WindCnt=e?0:1}else b.WindCnt=b.WindDelta;else 0>d.WindCnt*d.WindDelta?1<Math.abs(d.WindCnt)?b.WindCnt=0>d.WindDelta*b.WindDelta?d.WindCnt:d.WindCnt+b.WindDelta:b.WindCnt=0===b.WindDelta?1:b.WindDelta:b.WindCnt=0===b.WindDelta?0>d.WindCnt?d.WindCnt-1:d.WindCnt+1:0>d.WindDelta*b.WindDelta?d.WindCnt:d.WindCnt+b.WindDelta;b.WindCnt2=d.WindCnt2;d=d.NextInAEL}if(this.IsEvenOddAltFillType(b))for(;d!=b;)0!==d.WindDelta&&(b.WindCnt2=0===b.WindCnt2?1:0),d=d.NextInAEL;else for(;d!=
-b;)b.WindCnt2+=d.WindDelta,d=d.NextInAEL};h.Clipper.prototype.AddEdgeToSEL=function(b){null===this.m_SortedEdges?(this.m_SortedEdges=b,b.PrevInSEL=null,b.NextInSEL=null):(b.NextInSEL=this.m_SortedEdges,b.PrevInSEL=null,this.m_SortedEdges=this.m_SortedEdges.PrevInSEL=b)};h.Clipper.prototype.CopyAELToSEL=function(){var b=this.m_ActiveEdges;for(this.m_SortedEdges=b;null!==b;)b.PrevInSEL=b.PrevInAEL,b=b.NextInSEL=b.NextInAEL};h.Clipper.prototype.SwapPositionsInAEL=function(b,d){if(b.NextInAEL!=b.PrevInAEL&&
-d.NextInAEL!=d.PrevInAEL){if(b.NextInAEL==d){var e=d.NextInAEL;null!==e&&(e.PrevInAEL=b);var l=b.PrevInAEL;null!==l&&(l.NextInAEL=d);d.PrevInAEL=l;d.NextInAEL=b;b.PrevInAEL=d;b.NextInAEL=e}else d.NextInAEL==b?(e=b.NextInAEL,null!==e&&(e.PrevInAEL=d),l=d.PrevInAEL,null!==l&&(l.NextInAEL=b),b.PrevInAEL=l,b.NextInAEL=d,d.PrevInAEL=b,d.NextInAEL=e):(e=b.NextInAEL,l=b.PrevInAEL,b.NextInAEL=d.NextInAEL,null!==b.NextInAEL&&(b.NextInAEL.PrevInAEL=b),b.PrevInAEL=d.PrevInAEL,null!==b.PrevInAEL&&(b.PrevInAEL.NextInAEL=
-b),d.NextInAEL=e,null!==d.NextInAEL&&(d.NextInAEL.PrevInAEL=d),d.PrevInAEL=l,null!==d.PrevInAEL&&(d.PrevInAEL.NextInAEL=d));null===b.PrevInAEL?this.m_ActiveEdges=b:null===d.PrevInAEL&&(this.m_ActiveEdges=d)}};h.Clipper.prototype.SwapPositionsInSEL=function(b,d){if(null!==b.NextInSEL||null!==b.PrevInSEL)if(null!==d.NextInSEL||null!==d.PrevInSEL){if(b.NextInSEL==d){var e=d.NextInSEL;null!==e&&(e.PrevInSEL=b);var l=b.PrevInSEL;null!==l&&(l.NextInSEL=d);d.PrevInSEL=l;d.NextInSEL=b;b.PrevInSEL=d;b.NextInSEL=
-e}else d.NextInSEL==b?(e=b.NextInSEL,null!==e&&(e.PrevInSEL=d),l=d.PrevInSEL,null!==l&&(l.NextInSEL=b),b.PrevInSEL=l,b.NextInSEL=d,d.PrevInSEL=b,d.NextInSEL=e):(e=b.NextInSEL,l=b.PrevInSEL,b.NextInSEL=d.NextInSEL,null!==b.NextInSEL&&(b.NextInSEL.PrevInSEL=b),b.PrevInSEL=d.PrevInSEL,null!==b.PrevInSEL&&(b.PrevInSEL.NextInSEL=b),d.NextInSEL=e,null!==d.NextInSEL&&(d.NextInSEL.PrevInSEL=d),d.PrevInSEL=l,null!==d.PrevInSEL&&(d.PrevInSEL.NextInSEL=d));null===b.PrevInSEL?this.m_SortedEdges=b:null===d.PrevInSEL&&
-(this.m_SortedEdges=d)}};h.Clipper.prototype.AddLocalMaxPoly=function(b,d,e){this.AddOutPt(b,e);0==d.WindDelta&&this.AddOutPt(d,e);b.OutIdx==d.OutIdx?(b.OutIdx=-1,d.OutIdx=-1):b.OutIdx<d.OutIdx?this.AppendPolygon(b,d):this.AppendPolygon(d,b)};h.Clipper.prototype.AddLocalMinPoly=function(b,d,e){var l,G;h.ClipperBase.IsHorizontal(d)||b.Dx>d.Dx?(l=this.AddOutPt(b,e),d.OutIdx=b.OutIdx,b.Side=h.EdgeSide.esLeft,d.Side=h.EdgeSide.esRight,G=b,b=G.PrevInAEL==d?d.PrevInAEL:G.PrevInAEL):(l=this.AddOutPt(d,e),
-b.OutIdx=d.OutIdx,b.Side=h.EdgeSide.esRight,d.Side=h.EdgeSide.esLeft,G=d,b=G.PrevInAEL==b?b.PrevInAEL:G.PrevInAEL);null!==b&&0<=b.OutIdx&&h.Clipper.TopX(b,e.Y)==h.Clipper.TopX(G,e.Y)&&h.ClipperBase.SlopesEqual(G,b,this.m_UseFullRange)&&0!==G.WindDelta&&0!==b.WindDelta&&(e=this.AddOutPt(b,e),this.AddJoin(l,e,G.Top));return l};h.Clipper.prototype.CreateOutRec=function(){var b=new h.OutRec;b.Idx=-1;b.IsHole=!1;b.IsOpen=!1;b.FirstLeft=null;b.Pts=null;b.BottomPt=null;b.PolyNode=null;this.m_PolyOuts.push(b);
-b.Idx=this.m_PolyOuts.length-1;return b};h.Clipper.prototype.AddOutPt=function(b,d){var e=b.Side==h.EdgeSide.esLeft;if(0>b.OutIdx){var l=this.CreateOutRec();l.IsOpen=0===b.WindDelta;var G=new h.OutPt;l.Pts=G;G.Idx=l.Idx;G.Pt.X=d.X;G.Pt.Y=d.Y;G.Next=G;G.Prev=G;l.IsOpen||this.SetHoleState(b,l);b.OutIdx=l.Idx}else{var l=this.m_PolyOuts[b.OutIdx],k=l.Pts;if(e&&h.IntPoint.op_Equality(d,k.Pt))return k;if(!e&&h.IntPoint.op_Equality(d,k.Prev.Pt))return k.Prev;G=new h.OutPt;G.Idx=l.Idx;G.Pt.X=d.X;G.Pt.Y=d.Y;
-G.Next=k;G.Prev=k.Prev;G.Prev.Next=G;k.Prev=G;e&&(l.Pts=G)}return G};h.Clipper.prototype.SwapPoints=function(b,d){var e=new h.IntPoint(b.Value);b.Value.X=d.Value.X;b.Value.Y=d.Value.Y;d.Value.X=e.X;d.Value.Y=e.Y};h.Clipper.prototype.HorzSegmentsOverlap=function(b,d,e,l){return b.X>e.X==b.X<l.X?!0:d.X>e.X==d.X<l.X?!0:e.X>b.X==e.X<d.X?!0:l.X>b.X==l.X<d.X?!0:b.X==e.X&&d.X==l.X?!0:b.X==l.X&&d.X==e.X?!0:!1};h.Clipper.prototype.InsertPolyPtBetween=function(b,d,e){var l=new h.OutPt;l.Pt.X=e.X;l.Pt.Y=e.Y;
-d==b.Next?(b.Next=l,d.Prev=l,l.Next=d,l.Prev=b):(d.Next=l,b.Prev=l,l.Next=b,l.Prev=d);return l};h.Clipper.prototype.SetHoleState=function(b,d){for(var e=!1,l=b.PrevInAEL;null!==l;)0<=l.OutIdx&&0!=l.WindDelta&&(e=!e,null===d.FirstLeft&&(d.FirstLeft=this.m_PolyOuts[l.OutIdx])),l=l.PrevInAEL;e&&(d.IsHole=!0)};h.Clipper.prototype.GetDx=function(b,d){return b.Y==d.Y?h.ClipperBase.horizontal:(d.X-b.X)/(d.Y-b.Y)};h.Clipper.prototype.FirstIsBottomPt=function(b,d){for(var e=b.Prev;h.IntPoint.op_Equality(e.Pt,
-b.Pt)&&e!=b;)e=e.Prev;for(var l=Math.abs(this.GetDx(b.Pt,e.Pt)),e=b.Next;h.IntPoint.op_Equality(e.Pt,b.Pt)&&e!=b;)e=e.Next;for(var G=Math.abs(this.GetDx(b.Pt,e.Pt)),e=d.Prev;h.IntPoint.op_Equality(e.Pt,d.Pt)&&e!=d;)e=e.Prev;for(var k=Math.abs(this.GetDx(d.Pt,e.Pt)),e=d.Next;h.IntPoint.op_Equality(e.Pt,d.Pt)&&e!=d;)e=e.Next;e=Math.abs(this.GetDx(d.Pt,e.Pt));return l>=k&&l>=e||G>=k&&G>=e};h.Clipper.prototype.GetBottomPt=function(b){for(var d=null,e=b.Next;e!=b;)e.Pt.Y>b.Pt.Y?(b=e,d=null):e.Pt.Y==b.Pt.Y&&
-e.Pt.X<=b.Pt.X&&(e.Pt.X<b.Pt.X?(d=null,b=e):e.Next!=b&&e.Prev!=b&&(d=e)),e=e.Next;if(null!==d)for(;d!=e;)for(this.FirstIsBottomPt(e,d)||(b=d),d=d.Next;h.IntPoint.op_Inequality(d.Pt,b.Pt);)d=d.Next;return b};h.Clipper.prototype.GetLowermostRec=function(b,d){null===b.BottomPt&&(b.BottomPt=this.GetBottomPt(b.Pts));null===d.BottomPt&&(d.BottomPt=this.GetBottomPt(d.Pts));var e=b.BottomPt,l=d.BottomPt;return e.Pt.Y>l.Pt.Y?b:e.Pt.Y<l.Pt.Y?d:e.Pt.X<l.Pt.X?b:e.Pt.X>l.Pt.X?d:e.Next==e?d:l.Next==l?b:this.FirstIsBottomPt(e,
-l)?b:d};h.Clipper.prototype.Param1RightOfParam2=function(b,d){do if(b=b.FirstLeft,b==d)return!0;while(null!==b);return!1};h.Clipper.prototype.GetOutRec=function(b){for(b=this.m_PolyOuts[b];b!=this.m_PolyOuts[b.Idx];)b=this.m_PolyOuts[b.Idx];return b};h.Clipper.prototype.AppendPolygon=function(b,d){var e=this.m_PolyOuts[b.OutIdx],l=this.m_PolyOuts[d.OutIdx],G;G=this.Param1RightOfParam2(e,l)?l:this.Param1RightOfParam2(l,e)?e:this.GetLowermostRec(e,l);var k=e.Pts,w=k.Prev,E=l.Pts,B=E.Prev;b.Side==h.EdgeSide.esLeft?
-(d.Side==h.EdgeSide.esLeft?(this.ReversePolyPtLinks(E),E.Next=k,k.Prev=E,w.Next=B,B.Prev=w,e.Pts=B):(B.Next=k,k.Prev=B,E.Prev=w,w.Next=E,e.Pts=E),k=h.EdgeSide.esLeft):(d.Side==h.EdgeSide.esRight?(this.ReversePolyPtLinks(E),w.Next=B,B.Prev=w,E.Next=k,k.Prev=E):(w.Next=E,E.Prev=w,k.Prev=B,B.Next=k),k=h.EdgeSide.esRight);e.BottomPt=null;G==l&&(l.FirstLeft!=e&&(e.FirstLeft=l.FirstLeft),e.IsHole=l.IsHole);l.Pts=null;l.BottomPt=null;l.FirstLeft=e;G=b.OutIdx;w=d.OutIdx;b.OutIdx=-1;d.OutIdx=-1;for(E=this.m_ActiveEdges;null!==
-E;){if(E.OutIdx==w){E.OutIdx=G;E.Side=k;break}E=E.NextInAEL}l.Idx=e.Idx};h.Clipper.prototype.ReversePolyPtLinks=function(b){if(null!==b){var d,e;d=b;do e=d.Next,d.Next=d.Prev,d=d.Prev=e;while(d!=b)}};h.Clipper.SwapSides=function(b,d){var e=b.Side;b.Side=d.Side;d.Side=e};h.Clipper.SwapPolyIndexes=function(b,d){var e=b.OutIdx;b.OutIdx=d.OutIdx;d.OutIdx=e};h.Clipper.prototype.IntersectEdges=function(b,d,e,l){var G=!l&&null===b.NextInLML&&b.Top.X==e.X&&b.Top.Y==e.Y;l=!l&&null===d.NextInLML&&d.Top.X==
-e.X&&d.Top.Y==e.Y;var k=0<=b.OutIdx,w=0<=d.OutIdx;if(0===b.WindDelta||0===d.WindDelta)0===b.WindDelta&&0===d.WindDelta?(G||l)&&k&&w&&this.AddLocalMaxPoly(b,d,e):b.PolyTyp==d.PolyTyp&&b.WindDelta!=d.WindDelta&&this.m_ClipType==h.ClipType.ctUnion?0===b.WindDelta?w&&(this.AddOutPt(b,e),k&&(b.OutIdx=-1)):k&&(this.AddOutPt(d,e),w&&(d.OutIdx=-1)):b.PolyTyp!=d.PolyTyp&&(0!==b.WindDelta||1!=Math.abs(d.WindCnt)||this.m_ClipType==h.ClipType.ctUnion&&0!==d.WindCnt2?0!==d.WindDelta||1!=Math.abs(b.WindCnt)||this.m_ClipType==
-h.ClipType.ctUnion&&0!==b.WindCnt2||(this.AddOutPt(d,e),w&&(d.OutIdx=-1)):(this.AddOutPt(b,e),k&&(b.OutIdx=-1))),G&&(0>b.OutIdx?this.DeleteFromAEL(b):h.Error("Error intersecting polylines")),l&&(0>d.OutIdx?this.DeleteFromAEL(d):h.Error("Error intersecting polylines"));else{if(b.PolyTyp==d.PolyTyp)if(this.IsEvenOddFillType(b)){var E=b.WindCnt;b.WindCnt=d.WindCnt;d.WindCnt=E}else b.WindCnt=0===b.WindCnt+d.WindDelta?-b.WindCnt:b.WindCnt+d.WindDelta,d.WindCnt=0===d.WindCnt-b.WindDelta?-d.WindCnt:d.WindCnt-
-b.WindDelta;else this.IsEvenOddFillType(d)?b.WindCnt2=0===b.WindCnt2?1:0:b.WindCnt2+=d.WindDelta,this.IsEvenOddFillType(b)?d.WindCnt2=0===d.WindCnt2?1:0:d.WindCnt2-=b.WindDelta;var B,q,L;b.PolyTyp==h.PolyType.ptSubject?(B=this.m_SubjFillType,L=this.m_ClipFillType):(B=this.m_ClipFillType,L=this.m_SubjFillType);d.PolyTyp==h.PolyType.ptSubject?(q=this.m_SubjFillType,E=this.m_ClipFillType):(q=this.m_ClipFillType,E=this.m_SubjFillType);switch(B){case h.PolyFillType.pftPositive:B=b.WindCnt;break;case h.PolyFillType.pftNegative:B=
--b.WindCnt;break;default:B=Math.abs(b.WindCnt)}switch(q){case h.PolyFillType.pftPositive:q=d.WindCnt;break;case h.PolyFillType.pftNegative:q=-d.WindCnt;break;default:q=Math.abs(d.WindCnt)}if(k&&w)G||l||0!==B&&1!=B||0!==q&&1!=q||b.PolyTyp!=d.PolyTyp&&this.m_ClipType!=h.ClipType.ctXor?this.AddLocalMaxPoly(b,d,e):(this.AddOutPt(b,e),this.AddOutPt(d,e),h.Clipper.SwapSides(b,d),h.Clipper.SwapPolyIndexes(b,d));else if(k){if(0===q||1==q)this.AddOutPt(b,e),h.Clipper.SwapSides(b,d),h.Clipper.SwapPolyIndexes(b,
-d)}else if(w){if(0===B||1==B)this.AddOutPt(d,e),h.Clipper.SwapSides(b,d),h.Clipper.SwapPolyIndexes(b,d)}else if(!(0!==B&&1!=B||0!==q&&1!=q||G||l)){switch(L){case h.PolyFillType.pftPositive:k=b.WindCnt2;break;case h.PolyFillType.pftNegative:k=-b.WindCnt2;break;default:k=Math.abs(b.WindCnt2)}switch(E){case h.PolyFillType.pftPositive:w=d.WindCnt2;break;case h.PolyFillType.pftNegative:w=-d.WindCnt2;break;default:w=Math.abs(d.WindCnt2)}if(b.PolyTyp!=d.PolyTyp)this.AddLocalMinPoly(b,d,e);else if(1==B&&
-1==q)switch(this.m_ClipType){case h.ClipType.ctIntersection:0<k&&0<w&&this.AddLocalMinPoly(b,d,e);break;case h.ClipType.ctUnion:0>=k&&0>=w&&this.AddLocalMinPoly(b,d,e);break;case h.ClipType.ctDifference:(b.PolyTyp==h.PolyType.ptClip&&0<k&&0<w||b.PolyTyp==h.PolyType.ptSubject&&0>=k&&0>=w)&&this.AddLocalMinPoly(b,d,e);break;case h.ClipType.ctXor:this.AddLocalMinPoly(b,d,e)}else h.Clipper.SwapSides(b,d)}G!=l&&(G&&0<=b.OutIdx||l&&0<=d.OutIdx)&&(h.Clipper.SwapSides(b,d),h.Clipper.SwapPolyIndexes(b,d));
-G&&this.DeleteFromAEL(b);l&&this.DeleteFromAEL(d)}};h.Clipper.prototype.DeleteFromAEL=function(b){var d=b.PrevInAEL,e=b.NextInAEL;if(null!==d||null!==e||b==this.m_ActiveEdges)null!==d?d.NextInAEL=e:this.m_ActiveEdges=e,null!==e&&(e.PrevInAEL=d),b.NextInAEL=null,b.PrevInAEL=null};h.Clipper.prototype.DeleteFromSEL=function(b){var d=b.PrevInSEL,e=b.NextInSEL;if(null!==d||null!==e||b==this.m_SortedEdges)null!==d?d.NextInSEL=e:this.m_SortedEdges=e,null!==e&&(e.PrevInSEL=d),b.NextInSEL=null,b.PrevInSEL=
-null};h.Clipper.prototype.UpdateEdgeIntoAEL=function(b){null===b.Value.NextInLML&&h.Error("UpdateEdgeIntoAEL: invalid call");var d=b.Value.PrevInAEL,e=b.Value.NextInAEL;b.Value.NextInLML.OutIdx=b.Value.OutIdx;null!==d?d.NextInAEL=b.Value.NextInLML:this.m_ActiveEdges=b.Value.NextInLML;null!==e&&(e.PrevInAEL=b.Value.NextInLML);b.Value.NextInLML.Side=b.Value.Side;b.Value.NextInLML.WindDelta=b.Value.WindDelta;b.Value.NextInLML.WindCnt=b.Value.WindCnt;b.Value.NextInLML.WindCnt2=b.Value.WindCnt2;b.Value=
-b.Value.NextInLML;b.Value.Curr.X=b.Value.Bot.X;b.Value.Curr.Y=b.Value.Bot.Y;b.Value.PrevInAEL=d;b.Value.NextInAEL=e;h.ClipperBase.IsHorizontal(b.Value)||this.InsertScanbeam(b.Value.Top.Y)};h.Clipper.prototype.ProcessHorizontals=function(b){for(var d=this.m_SortedEdges;null!==d;)this.DeleteFromSEL(d),this.ProcessHorizontal(d,b),d=this.m_SortedEdges};h.Clipper.prototype.GetHorzDirection=function(b,d,e,l){b.Bot.X<b.Top.X?(e.Value=b.Bot.X,l.Value=b.Top.X,d.Value=h.Direction.dLeftToRight):(e.Value=b.Top.X,
-l.Value=b.Bot.X,d.Value=h.Direction.dRightToLeft)};h.Clipper.prototype.PrepareHorzJoins=function(b,d){var e=this.m_PolyOuts[b.OutIdx].Pts;b.Side!=h.EdgeSide.esLeft&&(e=e.Prev);for(var l=0,G=this.m_GhostJoins.length;l<G;++l){var k=this.m_GhostJoins[l];this.HorzSegmentsOverlap(k.OutPt1.Pt,k.OffPt,b.Bot,b.Top)&&this.AddJoin(k.OutPt1,e,k.OffPt)}d&&(h.IntPoint.op_Equality(e.Pt,b.Top)?this.AddGhostJoin(e,b.Bot):this.AddGhostJoin(e,b.Top))};h.Clipper.prototype.ProcessHorizontal=function(b,d){var e,l,k;(function(){e=
-{Value:e};l={Value:l};k={Value:k};var d=this.GetHorzDirection(b,e,l,k);e=e.Value;l=l.Value;k=k.Value;return d}).call(this);for(var r=b,w=null;null!==r.NextInLML&&h.ClipperBase.IsHorizontal(r.NextInLML);)r=r.NextInLML;for(null===r.NextInLML&&(w=this.GetMaximaPair(r));;){for(var E=b==r,B=this.GetNextInAEL(b,e);null!==B&&!(B.Curr.X==b.Top.X&&null!==b.NextInLML&&B.Dx<b.NextInLML.Dx);){var q=this.GetNextInAEL(B,e);if(e==h.Direction.dLeftToRight&&B.Curr.X<=k||e==h.Direction.dRightToLeft&&B.Curr.X>=l){0<=
-b.OutIdx&&0!=b.WindDelta&&this.PrepareHorzJoins(b,d);if(B==w&&E){e==h.Direction.dLeftToRight?this.IntersectEdges(b,B,B.Top,!1):this.IntersectEdges(B,b,B.Top,!1);0<=w.OutIdx&&h.Error("ProcessHorizontal error");return}if(e==h.Direction.dLeftToRight){var L=new h.IntPoint(B.Curr.X,b.Curr.Y);this.IntersectEdges(b,B,L,!0)}else L=new h.IntPoint(B.Curr.X,b.Curr.Y),this.IntersectEdges(B,b,L,!0);this.SwapPositionsInAEL(b,B)}else if(e==h.Direction.dLeftToRight&&B.Curr.X>=k||e==h.Direction.dRightToLeft&&B.Curr.X<=
-l)break;B=q}0<=b.OutIdx&&0!==b.WindDelta&&this.PrepareHorzJoins(b,d);if(null!==b.NextInLML&&h.ClipperBase.IsHorizontal(b.NextInLML))(function(){b={Value:b};var d=this.UpdateEdgeIntoAEL(b);b=b.Value;return d}).call(this),0<=b.OutIdx&&this.AddOutPt(b,b.Bot),function(){e={Value:e};l={Value:l};k={Value:k};var d=this.GetHorzDirection(b,e,l,k);e=e.Value;l=l.Value;k=k.Value;return d}.call(this);else break}null!==b.NextInLML?0<=b.OutIdx?(r=this.AddOutPt(b,b.Top),function(){b={Value:b};var d=this.UpdateEdgeIntoAEL(b);
-b=b.Value;return d}.call(this),0!==b.WindDelta&&(w=b.PrevInAEL,q=b.NextInAEL,null!==w&&w.Curr.X==b.Bot.X&&w.Curr.Y==b.Bot.Y&&0!==w.WindDelta&&0<=w.OutIdx&&w.Curr.Y>w.Top.Y&&h.ClipperBase.SlopesEqual(b,w,this.m_UseFullRange)?(q=this.AddOutPt(w,b.Bot),this.AddJoin(r,q,b.Top)):null!==q&&q.Curr.X==b.Bot.X&&q.Curr.Y==b.Bot.Y&&0!==q.WindDelta&&0<=q.OutIdx&&q.Curr.Y>q.Top.Y&&h.ClipperBase.SlopesEqual(b,q,this.m_UseFullRange)&&(q=this.AddOutPt(q,b.Bot),this.AddJoin(r,q,b.Top)))):function(){b={Value:b};var d=
-this.UpdateEdgeIntoAEL(b);b=b.Value;return d}.call(this):null!==w?0<=w.OutIdx?(e==h.Direction.dLeftToRight?this.IntersectEdges(b,w,b.Top,!1):this.IntersectEdges(w,b,b.Top,!1),0<=w.OutIdx&&h.Error("ProcessHorizontal error")):(this.DeleteFromAEL(b),this.DeleteFromAEL(w)):(0<=b.OutIdx&&this.AddOutPt(b,b.Top),this.DeleteFromAEL(b))};h.Clipper.prototype.GetNextInAEL=function(b,d){return d==h.Direction.dLeftToRight?b.NextInAEL:b.PrevInAEL};h.Clipper.prototype.IsMinima=function(b){return null!==b&&b.Prev.NextInLML!=
-b&&b.Next.NextInLML!=b};h.Clipper.prototype.IsMaxima=function(b,d){return null!==b&&b.Top.Y==d&&null===b.NextInLML};h.Clipper.prototype.IsIntermediate=function(b,d){return b.Top.Y==d&&null!==b.NextInLML};h.Clipper.prototype.GetMaximaPair=function(b){var d=null;h.IntPoint.op_Equality(b.Next.Top,b.Top)&&null===b.Next.NextInLML?d=b.Next:h.IntPoint.op_Equality(b.Prev.Top,b.Top)&&null===b.Prev.NextInLML&&(d=b.Prev);return null===d||-2!=d.OutIdx&&(d.NextInAEL!=d.PrevInAEL||h.ClipperBase.IsHorizontal(d))?
-d:null};h.Clipper.prototype.ProcessIntersections=function(b,d){if(null==this.m_ActiveEdges)return!0;try{this.BuildIntersectList(b,d);if(0==this.m_IntersectList.length)return!0;if(1==this.m_IntersectList.length||this.FixupIntersectionOrder())this.ProcessIntersectList();else return!1}catch(e){this.m_SortedEdges=null,this.m_IntersectList.length=0,h.Error("ProcessIntersections error")}this.m_SortedEdges=null;return!0};h.Clipper.prototype.BuildIntersectList=function(b,d){if(null!==this.m_ActiveEdges){var e=
-this.m_ActiveEdges;for(this.m_SortedEdges=e;null!==e;)e.PrevInSEL=e.PrevInAEL,e.NextInSEL=e.NextInAEL,e.Curr.X=h.Clipper.TopX(e,d),e=e.NextInAEL;for(var l=!0;l&&null!==this.m_SortedEdges;){l=!1;for(e=this.m_SortedEdges;null!==e.NextInSEL;){var k=e.NextInSEL,r=new h.IntPoint;e.Curr.X>k.Curr.X?(r={Value:r},l=this.IntersectPoint(e,k,r),r=r.Value,!l&&e.Curr.X>k.Curr.X+1&&h.Error("Intersection error"),r.Y>b&&(r.Y=b,Math.abs(e.Dx)>Math.abs(k.Dx)?r.X=h.Clipper.TopX(k,b):r.X=h.Clipper.TopX(e,b)),l=new h.IntersectNode,
-l.Edge1=e,l.Edge2=k,l.Pt.X=r.X,l.Pt.Y=r.Y,this.m_IntersectList.push(l),this.SwapPositionsInSEL(e,k),l=!0):e=k}if(null!==e.PrevInSEL)e.PrevInSEL.NextInSEL=null;else break}this.m_SortedEdges=null}};h.Clipper.prototype.EdgesAdjacent=function(b){return b.Edge1.NextInSEL==b.Edge2||b.Edge1.PrevInSEL==b.Edge2};h.Clipper.IntersectNodeSort=function(b,d){return d.Pt.Y-b.Pt.Y};h.Clipper.prototype.FixupIntersectionOrder=function(){this.m_IntersectList.sort(this.m_IntersectNodeComparer);this.CopyAELToSEL();for(var b=
-this.m_IntersectList.length,d=0;d<b;d++){if(!this.EdgesAdjacent(this.m_IntersectList[d])){for(var e=d+1;e<b&&!this.EdgesAdjacent(this.m_IntersectList[e]);)e++;if(e==b)return!1;var l=this.m_IntersectList[d];this.m_IntersectList[d]=this.m_IntersectList[e];this.m_IntersectList[e]=l}this.SwapPositionsInSEL(this.m_IntersectList[d].Edge1,this.m_IntersectList[d].Edge2)}return!0};h.Clipper.prototype.ProcessIntersectList=function(){for(var b=0,d=this.m_IntersectList.length;b<d;b++){var e=this.m_IntersectList[b];
-this.IntersectEdges(e.Edge1,e.Edge2,e.Pt,!0);this.SwapPositionsInAEL(e.Edge1,e.Edge2)}this.m_IntersectList.length=0};Za=function(b){return 0>b?Math.ceil(b-.5):Math.round(b)};La=function(b){return 0>b?Math.ceil(b-.5):Math.floor(b+.5)};$a=function(b){return 0>b?-Math.round(Math.abs(b)):Math.round(b)};jb=function(b){if(0>b)return b-=.5,-2147483648>b?Math.ceil(b):b|0;b+=.5;return 2147483647<b?Math.floor(b):b|0};h.Clipper.Round=S?Za:Ib?$a:Wb?jb:La;h.Clipper.TopX=function(b,d){return d==b.Top.Y?b.Top.X:
-b.Bot.X+h.Clipper.Round(b.Dx*(d-b.Bot.Y))};h.Clipper.prototype.IntersectPoint=function(b,d,e){e.Value=new h.IntPoint;var l,k;if(h.ClipperBase.SlopesEqual(b,d,this.m_UseFullRange)||b.Dx==d.Dx)return d.Bot.Y>b.Bot.Y?(e.Value.X=d.Bot.X,e.Value.Y=d.Bot.Y):(e.Value.X=b.Bot.X,e.Value.Y=b.Bot.Y),!1;if(0===b.Delta.X)e.Value.X=b.Bot.X,h.ClipperBase.IsHorizontal(d)?e.Value.Y=d.Bot.Y:(k=d.Bot.Y-d.Bot.X/d.Dx,e.Value.Y=h.Clipper.Round(e.Value.X/d.Dx+k));else if(0===d.Delta.X)e.Value.X=d.Bot.X,h.ClipperBase.IsHorizontal(b)?
-e.Value.Y=b.Bot.Y:(l=b.Bot.Y-b.Bot.X/b.Dx,e.Value.Y=h.Clipper.Round(e.Value.X/b.Dx+l));else{l=b.Bot.X-b.Bot.Y*b.Dx;k=d.Bot.X-d.Bot.Y*d.Dx;var r=(k-l)/(b.Dx-d.Dx);e.Value.Y=h.Clipper.Round(r);Math.abs(b.Dx)<Math.abs(d.Dx)?e.Value.X=h.Clipper.Round(b.Dx*r+l):e.Value.X=h.Clipper.Round(d.Dx*r+k)}if(e.Value.Y<b.Top.Y||e.Value.Y<d.Top.Y){if(b.Top.Y>d.Top.Y)return e.Value.Y=b.Top.Y,e.Value.X=h.Clipper.TopX(d,b.Top.Y),e.Value.X<b.Top.X;e.Value.Y=d.Top.Y;Math.abs(b.Dx)<Math.abs(d.Dx)?e.Value.X=h.Clipper.TopX(b,
-e.Value.Y):e.Value.X=h.Clipper.TopX(d,e.Value.Y)}return!0};h.Clipper.prototype.ProcessEdgesAtTopOfScanbeam=function(b){for(var d=this.m_ActiveEdges;null!==d;){var e=this.IsMaxima(d,b);e&&(e=this.GetMaximaPair(d),e=null===e||!h.ClipperBase.IsHorizontal(e));if(e){var l=d.PrevInAEL;this.DoMaxima(d);d=null===l?this.m_ActiveEdges:l.NextInAEL}else this.IsIntermediate(d,b)&&h.ClipperBase.IsHorizontal(d.NextInLML)?(function(){d={Value:d};var b=this.UpdateEdgeIntoAEL(d);d=d.Value;return b}.call(this),0<=d.OutIdx&&
-this.AddOutPt(d,d.Bot),this.AddEdgeToSEL(d)):(d.Curr.X=h.Clipper.TopX(d,b),d.Curr.Y=b),this.StrictlySimple&&(l=d.PrevInAEL,0<=d.OutIdx&&0!==d.WindDelta&&null!==l&&0<=l.OutIdx&&l.Curr.X==d.Curr.X&&0!==l.WindDelta&&(e=this.AddOutPt(l,d.Curr),l=this.AddOutPt(d,d.Curr),this.AddJoin(e,l,d.Curr))),d=d.NextInAEL}this.ProcessHorizontals(!0);for(d=this.m_ActiveEdges;null!==d;){if(this.IsIntermediate(d,b)){e=null;0<=d.OutIdx&&(e=this.AddOutPt(d,d.Top));(function(){d={Value:d};var b=this.UpdateEdgeIntoAEL(d);
-d=d.Value;return b}).call(this);var l=d.PrevInAEL,k=d.NextInAEL;null!==l&&l.Curr.X==d.Bot.X&&l.Curr.Y==d.Bot.Y&&null!==e&&0<=l.OutIdx&&l.Curr.Y>l.Top.Y&&h.ClipperBase.SlopesEqual(d,l,this.m_UseFullRange)&&0!==d.WindDelta&&0!==l.WindDelta?(l=this.AddOutPt(l,d.Bot),this.AddJoin(e,l,d.Top)):null!==k&&k.Curr.X==d.Bot.X&&k.Curr.Y==d.Bot.Y&&null!==e&&0<=k.OutIdx&&k.Curr.Y>k.Top.Y&&h.ClipperBase.SlopesEqual(d,k,this.m_UseFullRange)&&0!==d.WindDelta&&0!==k.WindDelta&&(l=this.AddOutPt(k,d.Bot),this.AddJoin(e,
-l,d.Top))}d=d.NextInAEL}};h.Clipper.prototype.DoMaxima=function(b){var d=this.GetMaximaPair(b);if(null===d)0<=b.OutIdx&&this.AddOutPt(b,b.Top),this.DeleteFromAEL(b);else{for(var e=b.NextInAEL;null!==e&&e!=d;)this.IntersectEdges(b,e,b.Top,!0),this.SwapPositionsInAEL(b,e),e=b.NextInAEL;-1==b.OutIdx&&-1==d.OutIdx?(this.DeleteFromAEL(b),this.DeleteFromAEL(d)):0<=b.OutIdx&&0<=d.OutIdx?this.IntersectEdges(b,d,b.Top,!1):0===b.WindDelta?(0<=b.OutIdx&&(this.AddOutPt(b,b.Top),b.OutIdx=-1),this.DeleteFromAEL(b),
-0<=d.OutIdx&&(this.AddOutPt(d,b.Top),d.OutIdx=-1),this.DeleteFromAEL(d)):h.Error("DoMaxima error")}};h.Clipper.ReversePaths=function(b){for(var d=0,e=b.length;d<e;d++)b[d].reverse()};h.Clipper.Orientation=function(b){return 0<=h.Clipper.Area(b)};h.Clipper.prototype.PointCount=function(b){if(null===b)return 0;var d=0,e=b;do d++,e=e.Next;while(e!=b);return d};h.Clipper.prototype.BuildResult=function(b){h.Clear(b);for(var d=0,e=this.m_PolyOuts.length;d<e;d++){var l=this.m_PolyOuts[d];if(null!==l.Pts){var l=
-l.Pts.Prev,k=this.PointCount(l);if(!(2>k)){for(var r=Array(k),w=0;w<k;w++)r[w]=l.Pt,l=l.Prev;b.push(r)}}}};h.Clipper.prototype.BuildResult2=function(b){b.Clear();for(var d=0,e=this.m_PolyOuts.length;d<e;d++){var l=this.m_PolyOuts[d],k=this.PointCount(l.Pts);if(!(l.IsOpen&&2>k||!l.IsOpen&&3>k)){this.FixHoleLinkage(l);var r=new h.PolyNode;b.m_AllPolys.push(r);l.PolyNode=r;r.m_polygon.length=k;for(var l=l.Pts.Prev,w=0;w<k;w++)r.m_polygon[w]=l.Pt,l=l.Prev}}d=0;for(e=this.m_PolyOuts.length;d<e;d++)l=this.m_PolyOuts[d],
-null!==l.PolyNode&&(l.IsOpen?(l.PolyNode.IsOpen=!0,b.AddChild(l.PolyNode)):null!==l.FirstLeft&&null!=l.FirstLeft.PolyNode?l.FirstLeft.PolyNode.AddChild(l.PolyNode):b.AddChild(l.PolyNode))};h.Clipper.prototype.FixupOutPolygon=function(b){var d=null;b.BottomPt=null;for(var e=b.Pts;;){if(e.Prev==e||e.Prev==e.Next){this.DisposeOutPts(e);b.Pts=null;return}if(h.IntPoint.op_Equality(e.Pt,e.Next.Pt)||h.IntPoint.op_Equality(e.Pt,e.Prev.Pt)||h.ClipperBase.SlopesEqual(e.Prev.Pt,e.Pt,e.Next.Pt,this.m_UseFullRange)&&
-(!this.PreserveCollinear||!this.Pt2IsBetweenPt1AndPt3(e.Prev.Pt,e.Pt,e.Next.Pt)))d=null,e.Prev.Next=e.Next,e=e.Next.Prev=e.Prev;else if(e==d)break;else null===d&&(d=e),e=e.Next}b.Pts=e};h.Clipper.prototype.DupOutPt=function(b,d){var e=new h.OutPt;e.Pt.X=b.Pt.X;e.Pt.Y=b.Pt.Y;e.Idx=b.Idx;d?(e.Next=b.Next,e.Prev=b,b.Next.Prev=e,b.Next=e):(e.Prev=b.Prev,e.Next=b,b.Prev.Next=e,b.Prev=e);return e};h.Clipper.prototype.GetOverlap=function(b,d,e,l,h,k){b<d?e<l?(h.Value=Math.max(b,e),k.Value=Math.min(d,l)):
-(h.Value=Math.max(b,l),k.Value=Math.min(d,e)):e<l?(h.Value=Math.max(d,e),k.Value=Math.min(b,l)):(h.Value=Math.max(d,l),k.Value=Math.min(b,e));return h.Value<k.Value};h.Clipper.prototype.JoinHorz=function(b,d,e,l,k,r){var w=b.Pt.X>d.Pt.X?h.Direction.dRightToLeft:h.Direction.dLeftToRight;l=e.Pt.X>l.Pt.X?h.Direction.dRightToLeft:h.Direction.dLeftToRight;if(w==l)return!1;if(w==h.Direction.dLeftToRight){for(;b.Next.Pt.X<=k.X&&b.Next.Pt.X>=b.Pt.X&&b.Next.Pt.Y==k.Y;)b=b.Next;r&&b.Pt.X!=k.X&&(b=b.Next);d=
-this.DupOutPt(b,!r);h.IntPoint.op_Inequality(d.Pt,k)&&(b=d,b.Pt.X=k.X,b.Pt.Y=k.Y,d=this.DupOutPt(b,!r))}else{for(;b.Next.Pt.X>=k.X&&b.Next.Pt.X<=b.Pt.X&&b.Next.Pt.Y==k.Y;)b=b.Next;r||b.Pt.X==k.X||(b=b.Next);d=this.DupOutPt(b,r);h.IntPoint.op_Inequality(d.Pt,k)&&(b=d,b.Pt.X=k.X,b.Pt.Y=k.Y,d=this.DupOutPt(b,r))}if(l==h.Direction.dLeftToRight){for(;e.Next.Pt.X<=k.X&&e.Next.Pt.X>=e.Pt.X&&e.Next.Pt.Y==k.Y;)e=e.Next;r&&e.Pt.X!=k.X&&(e=e.Next);l=this.DupOutPt(e,!r);h.IntPoint.op_Inequality(l.Pt,k)&&(e=l,
-e.Pt.X=k.X,e.Pt.Y=k.Y,l=this.DupOutPt(e,!r))}else{for(;e.Next.Pt.X>=k.X&&e.Next.Pt.X<=e.Pt.X&&e.Next.Pt.Y==k.Y;)e=e.Next;r||e.Pt.X==k.X||(e=e.Next);l=this.DupOutPt(e,r);h.IntPoint.op_Inequality(l.Pt,k)&&(e=l,e.Pt.X=k.X,e.Pt.Y=k.Y,l=this.DupOutPt(e,r))}w==h.Direction.dLeftToRight==r?(b.Prev=e,e.Next=b,d.Next=l,l.Prev=d):(b.Next=e,e.Prev=b,d.Prev=l,l.Next=d);return!0};h.Clipper.prototype.JoinPoints=function(b,d,e){var l=b.OutPt1,k;new h.OutPt;var r=b.OutPt2,w;new h.OutPt;if((w=b.OutPt1.Pt.Y==b.OffPt.Y)&&
-h.IntPoint.op_Equality(b.OffPt,b.OutPt1.Pt)&&h.IntPoint.op_Equality(b.OffPt,b.OutPt2.Pt)){for(k=b.OutPt1.Next;k!=l&&h.IntPoint.op_Equality(k.Pt,b.OffPt);)k=k.Next;k=k.Pt.Y>b.OffPt.Y;for(w=b.OutPt2.Next;w!=r&&h.IntPoint.op_Equality(w.Pt,b.OffPt);)w=w.Next;if(k==w.Pt.Y>b.OffPt.Y)return!1;k?(k=this.DupOutPt(l,!1),w=this.DupOutPt(r,!0),l.Prev=r,r.Next=l,k.Next=w,w.Prev=k):(k=this.DupOutPt(l,!0),w=this.DupOutPt(r,!1),l.Next=r,r.Prev=l,k.Prev=w,w.Next=k);b.OutPt1=l;b.OutPt2=k;return!0}if(w){for(k=l;l.Prev.Pt.Y==
-l.Pt.Y&&l.Prev!=k&&l.Prev!=r;)l=l.Prev;for(;k.Next.Pt.Y==k.Pt.Y&&k.Next!=l&&k.Next!=r;)k=k.Next;if(k.Next==l||k.Next==r)return!1;for(w=r;r.Prev.Pt.Y==r.Pt.Y&&r.Prev!=w&&r.Prev!=k;)r=r.Prev;for(;w.Next.Pt.Y==w.Pt.Y&&w.Next!=r&&w.Next!=l;)w=w.Next;if(w.Next==r||w.Next==l)return!1;var q,B;q={Value:q};B={Value:B};d=this.GetOverlap(l.Pt.X,k.Pt.X,r.Pt.X,w.Pt.X,q,B);q=q.Value;B=B.Value;if(!d)return!1;d=new h.IntPoint;l.Pt.X>=q&&l.Pt.X<=B?(d.X=l.Pt.X,d.Y=l.Pt.Y,e=l.Pt.X>k.Pt.X):r.Pt.X>=q&&r.Pt.X<=B?(d.X=
-r.Pt.X,d.Y=r.Pt.Y,e=r.Pt.X>w.Pt.X):k.Pt.X>=q&&k.Pt.X<=B?(d.X=k.Pt.X,d.Y=k.Pt.Y,e=k.Pt.X>l.Pt.X):(d.X=w.Pt.X,d.Y=w.Pt.Y,e=w.Pt.X>r.Pt.X);b.OutPt1=l;b.OutPt2=r;return this.JoinHorz(l,k,r,w,d,e)}for(k=l.Next;h.IntPoint.op_Equality(k.Pt,l.Pt)&&k!=l;)k=k.Next;if(q=k.Pt.Y>l.Pt.Y||!h.ClipperBase.SlopesEqual(l.Pt,k.Pt,b.OffPt,this.m_UseFullRange)){for(k=l.Prev;h.IntPoint.op_Equality(k.Pt,l.Pt)&&k!=l;)k=k.Prev;if(k.Pt.Y>l.Pt.Y||!h.ClipperBase.SlopesEqual(l.Pt,k.Pt,b.OffPt,this.m_UseFullRange))return!1}for(w=
-r.Next;h.IntPoint.op_Equality(w.Pt,r.Pt)&&w!=r;)w=w.Next;if(B=w.Pt.Y>r.Pt.Y||!h.ClipperBase.SlopesEqual(r.Pt,w.Pt,b.OffPt,this.m_UseFullRange)){for(w=r.Prev;h.IntPoint.op_Equality(w.Pt,r.Pt)&&w!=r;)w=w.Prev;if(w.Pt.Y>r.Pt.Y||!h.ClipperBase.SlopesEqual(r.Pt,w.Pt,b.OffPt,this.m_UseFullRange))return!1}if(k==l||w==r||k==w||d==e&&q==B)return!1;q?(k=this.DupOutPt(l,!1),w=this.DupOutPt(r,!0),l.Prev=r,r.Next=l,k.Next=w,w.Prev=k):(k=this.DupOutPt(l,!0),w=this.DupOutPt(r,!1),l.Next=r,r.Prev=l,k.Prev=w,w.Next=
-k);b.OutPt1=l;b.OutPt2=k;return!0};h.Clipper.GetBounds=function(b){for(var d=0,e=b.length;d<e&&0==b[d].length;)d++;if(d==e)return new h.IntRect(0,0,0,0);var l=new h.IntRect;l.left=b[d][0].X;l.right=l.left;l.top=b[d][0].Y;for(l.bottom=l.top;d<e;d++)for(var k=0,r=b[d].length;k<r;k++)b[d][k].X<l.left?l.left=b[d][k].X:b[d][k].X>l.right&&(l.right=b[d][k].X),b[d][k].Y<l.top?l.top=b[d][k].Y:b[d][k].Y>l.bottom&&(l.bottom=b[d][k].Y);return l};h.Clipper.prototype.GetBounds2=function(b){var d=b,e=new h.IntRect;
-e.left=b.Pt.X;e.right=b.Pt.X;e.top=b.Pt.Y;e.bottom=b.Pt.Y;for(b=b.Next;b!=d;)b.Pt.X<e.left&&(e.left=b.Pt.X),b.Pt.X>e.right&&(e.right=b.Pt.X),b.Pt.Y<e.top&&(e.top=b.Pt.Y),b.Pt.Y>e.bottom&&(e.bottom=b.Pt.Y),b=b.Next;return e};h.ClipperBase.prototype.PointInPolygon=h.Clipper.prototype.PointInPolygon=function(){var b=arguments,d=b.length;if(2==d){for(var d=b[0],e=b[1],b=0,l=e;;){var h=e.Pt.X,k=e.Pt.Y,w=e.Next.Pt.X,E=e.Next.Pt.Y;if(E==d.Y&&(w==d.X||k==d.Y&&w>d.X==h<d.X))return-1;if(k<d.Y!=E<d.Y)if(h>=
-d.X)if(w>d.X)b=1-b;else{h=(h-d.X)*(E-d.Y)-(w-d.X)*(k-d.Y);if(0==h)return-1;0<h==E>k&&(b=1-b)}else if(w>d.X){h=(h-d.X)*(E-d.Y)-(w-d.X)*(k-d.Y);if(0==h)return-1;0<h==E>k&&(b=1-b)}e=e.Next;if(l==e)break}return b}if(3==d){d=b[0];e=b[1];l=b[2];k=e;b=!1;if(l){do k.Pt.Y>d.Y!=k.Prev.Pt.Y>d.Y&&q.op_LessThan(new q(d.X-k.Pt.X),q.op_Division(q.Int128Mul(k.Prev.Pt.X-k.Pt.X,d.Y-k.Pt.Y),new q(k.Prev.Pt.Y-k.Pt.Y)))&&(b=!b),k=k.Next;while(k!=e)}else{do k.Pt.Y>d.Y!=k.Prev.Pt.Y>d.Y&&d.X-k.Pt.X<(k.Prev.Pt.X-k.Pt.X)*
-(d.Y-k.Pt.Y)/(k.Prev.Pt.Y-k.Pt.Y)&&(b=!b),k=k.Next;while(k!=e)}return b}};h.Clipper.prototype.Poly2ContainsPoly1=function(b,d){var e=b;do{var l=this.PointInPolygon(e.Pt,d);if(0<=l)return 0!=l;e=e.Next}while(e!=b);return!0};h.Clipper.prototype.FixupFirstLefts1=function(b,d){for(var e=0,l=this.m_PolyOuts.length;e<l;e++){var h=this.m_PolyOuts[e];null!==h.Pts&&h.FirstLeft==b&&this.Poly2ContainsPoly1(h.Pts,d.Pts)&&(h.FirstLeft=d)}};h.Clipper.prototype.FixupFirstLefts2=function(b,d){for(var e=0,l=this.m_PolyOuts,
-h=l.length,k=l[e];e<h;e++,k=l[e])k.FirstLeft==b&&(k.FirstLeft=d)};h.Clipper.ParseFirstLeft=function(b){for(;null!=b&&null==b.Pts;)b=b.FirstLeft;return b};h.Clipper.prototype.JoinCommonEdges=function(){for(var b=0,d=this.m_Joins.length;b<d;b++){var e=this.m_Joins[b],l=this.GetOutRec(e.OutPt1.Idx),k=this.GetOutRec(e.OutPt2.Idx);if(null!=l.Pts&&null!=k.Pts){var r;r=l==k?l:this.Param1RightOfParam2(l,k)?k:this.Param1RightOfParam2(k,l)?l:this.GetLowermostRec(l,k);if(this.JoinPoints(e,l,k))if(l==k){l.Pts=
-e.OutPt1;l.BottomPt=null;k=this.CreateOutRec();k.Pts=e.OutPt2;this.UpdateOutPtIdxs(k);if(this.m_UsingPolyTree){r=0;for(var w=this.m_PolyOuts.length;r<w-1;r++){var q=this.m_PolyOuts[r];null!=q.Pts&&h.Clipper.ParseFirstLeft(q.FirstLeft)==l&&q.IsHole!=l.IsHole&&this.Poly2ContainsPoly1(q.Pts,e.OutPt2)&&(q.FirstLeft=k)}}this.Poly2ContainsPoly1(k.Pts,l.Pts)?(k.IsHole=!l.IsHole,k.FirstLeft=l,this.m_UsingPolyTree&&this.FixupFirstLefts2(k,l),(k.IsHole^this.ReverseSolution)==0<this.Area(k)&&this.ReversePolyPtLinks(k.Pts)):
-this.Poly2ContainsPoly1(l.Pts,k.Pts)?(k.IsHole=l.IsHole,l.IsHole=!k.IsHole,k.FirstLeft=l.FirstLeft,l.FirstLeft=k,this.m_UsingPolyTree&&this.FixupFirstLefts2(l,k),(l.IsHole^this.ReverseSolution)==0<this.Area(l)&&this.ReversePolyPtLinks(l.Pts)):(k.IsHole=l.IsHole,k.FirstLeft=l.FirstLeft,this.m_UsingPolyTree&&this.FixupFirstLefts1(l,k))}else k.Pts=null,k.BottomPt=null,k.Idx=l.Idx,l.IsHole=r.IsHole,r==k&&(l.FirstLeft=k.FirstLeft),k.FirstLeft=l,this.m_UsingPolyTree&&this.FixupFirstLefts2(k,l)}}};h.Clipper.prototype.UpdateOutPtIdxs=
-function(b){var d=b.Pts;do d.Idx=b.Idx,d=d.Prev;while(d!=b.Pts)};h.Clipper.prototype.DoSimplePolygons=function(){for(var b=0;b<this.m_PolyOuts.length;){var d=this.m_PolyOuts[b++],e=d.Pts;if(null!==e){do{for(var l=e.Next;l!=d.Pts;){if(h.IntPoint.op_Equality(e.Pt,l.Pt)&&l.Next!=e&&l.Prev!=e){var k=e.Prev,r=l.Prev;e.Prev=r;r.Next=e;l.Prev=k;k.Next=l;d.Pts=e;k=this.CreateOutRec();k.Pts=l;this.UpdateOutPtIdxs(k);this.Poly2ContainsPoly1(k.Pts,d.Pts)?(k.IsHole=!d.IsHole,k.FirstLeft=d):this.Poly2ContainsPoly1(d.Pts,
-k.Pts)?(k.IsHole=d.IsHole,d.IsHole=!k.IsHole,k.FirstLeft=d.FirstLeft,d.FirstLeft=k):(k.IsHole=d.IsHole,k.FirstLeft=d.FirstLeft);l=e}l=l.Next}e=e.Next}while(e!=d.Pts)}}};h.Clipper.Area=function(b){var d=b.length;if(3>d)return 0;for(var e=0,h=0,k=d-1;h<d;++h)e+=(b[k].X+b[h].X)*(b[k].Y-b[h].Y),k=h;return.5*-e};h.Clipper.prototype.Area=function(b){var d=b.Pts;if(null==d)return 0;var e=0;do e+=(d.Prev.Pt.X+d.Pt.X)*(d.Prev.Pt.Y-d.Pt.Y),d=d.Next;while(d!=b.Pts);return.5*e};h.Clipper.SimplifyPolygon=function(b,
-d){var e=[],l=new h.Clipper(0);l.StrictlySimple=!0;l.AddPath(b,h.PolyType.ptSubject,!0);l.Execute(h.ClipType.ctUnion,e,d,d);return e};h.Clipper.SimplifyPolygons=function(b,d){"undefined"==typeof d&&(d=h.PolyFillType.pftEvenOdd);var e=[],l=new h.Clipper(0);l.StrictlySimple=!0;l.AddPaths(b,h.PolyType.ptSubject,!0);l.Execute(h.ClipType.ctUnion,e,d,d);return e};h.Clipper.DistanceSqrd=function(b,d){var e=b.X-d.X,h=b.Y-d.Y;return e*e+h*h};h.Clipper.DistanceFromLineSqrd=function(b,d,e){var h=d.Y-e.Y;e=e.X-
-d.X;d=h*d.X+e*d.Y;d=h*b.X+e*b.Y-d;return d*d/(h*h+e*e)};h.Clipper.SlopesNearCollinear=function(b,d,e,l){return h.Clipper.DistanceFromLineSqrd(d,b,e)<l};h.Clipper.PointsAreClose=function(b,d,e){var h=b.X-d.X;b=b.Y-d.Y;return h*h+b*b<=e};h.Clipper.ExcludeOp=function(b){var d=b.Prev;d.Next=b.Next;b.Next.Prev=d;d.Idx=0;return d};h.Clipper.CleanPolygon=function(b,d){"undefined"==typeof d&&(d=1.415);var e=b.length;if(0==e)return[];for(var l=Array(e),k=0;k<e;++k)l[k]=new h.OutPt;for(k=0;k<e;++k)l[k].Pt=
-b[k],l[k].Next=l[(k+1)%e],l[k].Next.Prev=l[k],l[k].Idx=0;k=d*d;for(l=l[0];0==l.Idx&&l.Next!=l.Prev;)h.Clipper.PointsAreClose(l.Pt,l.Prev.Pt,k)?(l=h.Clipper.ExcludeOp(l),e--):h.Clipper.PointsAreClose(l.Prev.Pt,l.Next.Pt,k)?(h.Clipper.ExcludeOp(l.Next),l=h.Clipper.ExcludeOp(l),e-=2):h.Clipper.SlopesNearCollinear(l.Prev.Pt,l.Pt,l.Next.Pt,k)?(l=h.Clipper.ExcludeOp(l),e--):(l.Idx=1,l=l.Next);3>e&&(e=0);for(var r=Array(e),k=0;k<e;++k)r[k]=new h.IntPoint(l.Pt),l=l.Next;return r};h.Clipper.CleanPolygons=
-function(b,d){for(var e=Array(b.length),l=0,k=b.length;l<k;l++)e[l]=h.Clipper.CleanPolygon(b[l],d);return e};h.Clipper.Minkowski=function(b,d,e,l){var k=l?1:0,r=b.length,w=d.length;l=[];if(e)for(e=0;e<w;e++){for(var q=Array(r),B=0,L=b.length,H=b[B];B<L;B++,H=b[B])q[B]=new h.IntPoint(d[e].X+H.X,d[e].Y+H.Y);l.push(q)}else for(e=0;e<w;e++){q=Array(r);B=0;L=b.length;for(H=b[B];B<L;B++,H=b[B])q[B]=new h.IntPoint(d[e].X-H.X,d[e].Y-H.Y);l.push(q)}b=[];for(e=0;e<=w-2+k;e++)for(B=0;B<=r-1;B++)d=[],d.push(l[e%
-w][B%r]),d.push(l[(e+1)%w][B%r]),d.push(l[(e+1)%w][(B+1)%r]),d.push(l[e%w][(B+1)%r]),h.Clipper.Orientation(d)||d.reverse(),b.push(d);k=new h.Clipper(0);k.AddPaths(b,h.PolyType.ptSubject,!0);k.Execute(h.ClipType.ctUnion,l,h.PolyFillType.pftNonZero,h.PolyFillType.pftNonZero);return l};h.Clipper.MinkowskiSum=function(b,d,e){return h.Clipper.Minkowski(b,d,!0,e)};h.Clipper.MinkowskiDiff=function(b,d,e){return h.Clipper.Minkowski(b,d,!1,e)};h.Clipper.PolyTreeToPaths=function(b){var d=[];h.Clipper.AddPolyNodeToPaths(b,
-h.Clipper.NodeType.ntAny,d);return d};h.Clipper.AddPolyNodeToPaths=function(b,d,e){var l=!0;switch(d){case h.Clipper.NodeType.ntOpen:return;case h.Clipper.NodeType.ntClosed:l=!b.IsOpen}0<b.m_polygon.length&&l&&e.push(b.m_polygon);l=0;b=b.Childs();for(var k=b.length,r=b[l];l<k;l++,r=b[l])h.Clipper.AddPolyNodeToPaths(r,d,e)};h.Clipper.OpenPathsFromPolyTree=function(b){for(var d=new h.Paths,e=0,l=b.ChildCount();e<l;e++)b.Childs()[e].IsOpen&&d.push(b.Childs()[e].m_polygon);return d};h.Clipper.ClosedPathsFromPolyTree=
-function(b){var d=new h.Paths;h.Clipper.AddPolyNodeToPaths(b,h.Clipper.NodeType.ntClosed,d);return d};Yb(h.Clipper,h.ClipperBase);h.Clipper.NodeType={ntAny:0,ntOpen:1,ntClosed:2};h.ClipperOffset=function(b,d){"undefined"==typeof b&&(b=2);"undefined"==typeof d&&(d=h.ClipperOffset.def_arc_tolerance);this.m_destPolys=new h.Paths;this.m_srcPoly=new h.Path;this.m_destPoly=new h.Path;this.m_normals=[];this.m_StepsPerRad=this.m_miterLim=this.m_cos=this.m_sin=this.m_sinA=this.m_delta=0;this.m_lowest=new h.IntPoint;
-this.m_polyNodes=new h.PolyNode;this.MiterLimit=b;this.ArcTolerance=d;this.m_lowest.X=-1};h.ClipperOffset.two_pi=6.28318530717959;h.ClipperOffset.def_arc_tolerance=.25;h.ClipperOffset.prototype.Clear=function(){h.Clear(this.m_polyNodes.Childs());this.m_lowest.X=-1};h.ClipperOffset.Round=h.Clipper.Round;h.ClipperOffset.prototype.AddPath=function(b,d,e){var l=b.length-1;if(!(0>l)){var k=new h.PolyNode;k.m_jointype=d;k.m_endtype=e;if(e==h.EndType.etClosedLine||e==h.EndType.etClosedPolygon)for(;0<l&&
-h.IntPoint.op_Equality(b[0],b[l]);)l--;k.m_polygon.push(b[0]);var r=0;d=0;for(var w=1;w<=l;w++)h.IntPoint.op_Inequality(k.m_polygon[r],b[w])&&(r++,k.m_polygon.push(b[w]),b[w].Y>k.m_polygon[d].Y||b[w].Y==k.m_polygon[d].Y&&b[w].X<k.m_polygon[d].X)&&(d=r);if(!(e==h.EndType.etClosedPolygon&&2>r||e!=h.EndType.etClosedPolygon&&0>r)&&(this.m_polyNodes.AddChild(k),e==h.EndType.etClosedPolygon))if(0>this.m_lowest.X)this.m_lowest=new h.IntPoint(0,d);else if(b=this.m_polyNodes.Childs()[this.m_lowest.X].m_polygon[this.m_lowest.Y],
-k.m_polygon[d].Y>b.Y||k.m_polygon[d].Y==b.Y&&k.m_polygon[d].X<b.X)this.m_lowest=new h.IntPoint(this.m_polyNodes.ChildCount()-1,d)}};h.ClipperOffset.prototype.AddPaths=function(b,d,e){for(var h=0,k=b.length;h<k;h++)this.AddPath(b[h],d,e)};h.ClipperOffset.prototype.FixOrientations=function(){if(0<=this.m_lowest.X&&!h.Clipper.Orientation(this.m_polyNodes.Childs()[this.m_lowest.X].m_polygon))for(var b=0;b<this.m_polyNodes.ChildCount();b++){var d=this.m_polyNodes.Childs()[b];(d.m_endtype==h.EndType.etClosedPolygon||
-d.m_endtype==h.EndType.etClosedLine&&h.Clipper.Orientation(d.m_polygon))&&d.m_polygon.reverse()}else for(b=0;b<this.m_polyNodes.ChildCount();b++)d=this.m_polyNodes.Childs()[b],d.m_endtype!=h.EndType.etClosedLine||h.Clipper.Orientation(d.m_polygon)||d.m_polygon.reverse()};h.ClipperOffset.GetUnitNormal=function(b,d){var e=d.X-b.X,l=d.Y-b.Y;if(0==e&&0==l)return new h.DoublePoint(0,0);var k=1/Math.sqrt(e*e+l*l);return new h.DoublePoint(l*k,-(e*k))};h.ClipperOffset.prototype.DoOffset=function(b){this.m_destPolys=
-[];this.m_delta=b;if(h.ClipperBase.near_zero(b))for(var d=0;d<this.m_polyNodes.ChildCount();d++){var e=this.m_polyNodes.Childs()[d];e.m_endtype==h.EndType.etClosedPolygon&&this.m_destPolys.push(e.m_polygon)}else{this.m_miterLim=2<this.MiterLimit?2/(this.MiterLimit*this.MiterLimit):.5;var d=0>=this.ArcTolerance?h.ClipperOffset.def_arc_tolerance:this.ArcTolerance>Math.abs(b)*h.ClipperOffset.def_arc_tolerance?Math.abs(b)*h.ClipperOffset.def_arc_tolerance:this.ArcTolerance,l=3.14159265358979/Math.acos(1-
-d/Math.abs(b));this.m_sin=Math.sin(h.ClipperOffset.two_pi/l);this.m_cos=Math.cos(h.ClipperOffset.two_pi/l);this.m_StepsPerRad=l/h.ClipperOffset.two_pi;0>b&&(this.m_sin=-this.m_sin);for(d=0;d<this.m_polyNodes.ChildCount();d++){e=this.m_polyNodes.Childs()[d];this.m_srcPoly=e.m_polygon;var k=this.m_srcPoly.length;if(!(0==k||0>=b&&(3>k||e.m_endtype!=h.EndType.etClosedPolygon))){this.m_destPoly=[];if(1==k)if(e.m_jointype==h.JoinType.jtRound)for(var e=1,k=0,r=1;r<=l;r++){this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[0].X+
-e*b),h.ClipperOffset.Round(this.m_srcPoly[0].Y+k*b)));var w=e,e=e*this.m_cos-this.m_sin*k,k=w*this.m_sin+k*this.m_cos}else for(k=e=-1,r=0;4>r;++r)this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[0].X+e*b),h.ClipperOffset.Round(this.m_srcPoly[0].Y+k*b))),0>e?e=1:0>k?k=1:e=-1;else{for(r=this.m_normals.length=0;r<k-1;r++)this.m_normals.push(h.ClipperOffset.GetUnitNormal(this.m_srcPoly[r],this.m_srcPoly[r+1]));e.m_endtype==h.EndType.etClosedLine||e.m_endtype==h.EndType.etClosedPolygon?
-this.m_normals.push(h.ClipperOffset.GetUnitNormal(this.m_srcPoly[k-1],this.m_srcPoly[0])):this.m_normals.push(new h.DoublePoint(this.m_normals[k-2]));if(e.m_endtype==h.EndType.etClosedPolygon)for(w=k-1,r=0;r<k;r++)w=this.OffsetPoint(r,w,e.m_jointype);else if(e.m_endtype==h.EndType.etClosedLine){w=k-1;for(r=0;r<k;r++)w=this.OffsetPoint(r,w,e.m_jointype);this.m_destPolys.push(this.m_destPoly);this.m_destPoly=[];w=this.m_normals[k-1];for(r=k-1;0<r;r--)this.m_normals[r]=new h.DoublePoint(-this.m_normals[r-
-1].X,-this.m_normals[r-1].Y);this.m_normals[0]=new h.DoublePoint(-w.X,-w.Y);w=0;for(r=k-1;0<=r;r--)w=this.OffsetPoint(r,w,e.m_jointype)}else{w=0;for(r=1;r<k-1;++r)w=this.OffsetPoint(r,w,e.m_jointype);e.m_endtype==h.EndType.etOpenButt?(r=k-1,w=new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[r].X+this.m_normals[r].X*b),h.ClipperOffset.Round(this.m_srcPoly[r].Y+this.m_normals[r].Y*b)),this.m_destPoly.push(w),w=new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[r].X-this.m_normals[r].X*b),h.ClipperOffset.Round(this.m_srcPoly[r].Y-
-this.m_normals[r].Y*b)),this.m_destPoly.push(w)):(r=k-1,w=k-2,this.m_sinA=0,this.m_normals[r]=new h.DoublePoint(-this.m_normals[r].X,-this.m_normals[r].Y),e.m_endtype==h.EndType.etOpenSquare?this.DoSquare(r,w):this.DoRound(r,w));for(r=k-1;0<r;r--)this.m_normals[r]=new h.DoublePoint(-this.m_normals[r-1].X,-this.m_normals[r-1].Y);this.m_normals[0]=new h.DoublePoint(-this.m_normals[1].X,-this.m_normals[1].Y);w=k-1;for(r=w-1;0<r;--r)w=this.OffsetPoint(r,w,e.m_jointype);e.m_endtype==h.EndType.etOpenButt?
-(w=new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[0].X-this.m_normals[0].X*b),h.ClipperOffset.Round(this.m_srcPoly[0].Y-this.m_normals[0].Y*b)),this.m_destPoly.push(w),w=new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[0].X+this.m_normals[0].X*b),h.ClipperOffset.Round(this.m_srcPoly[0].Y+this.m_normals[0].Y*b)),this.m_destPoly.push(w)):(this.m_sinA=0,e.m_endtype==h.EndType.etOpenSquare?this.DoSquare(0,1):this.DoRound(0,1))}}this.m_destPolys.push(this.m_destPoly)}}}};h.ClipperOffset.prototype.Execute=
-function(){var b=arguments;if(b[0]instanceof h.PolyTree)if(d=b[0],e=b[1],d.Clear(),this.FixOrientations(),this.DoOffset(e),b=new h.Clipper(0),b.AddPaths(this.m_destPolys,h.PolyType.ptSubject,!0),0<e)b.Execute(h.ClipType.ctUnion,d,h.PolyFillType.pftPositive,h.PolyFillType.pftPositive);else if(e=h.Clipper.GetBounds(this.m_destPolys),l=new h.Path,l.push(new h.IntPoint(e.left-10,e.bottom+10)),l.push(new h.IntPoint(e.right+10,e.bottom+10)),l.push(new h.IntPoint(e.right+10,e.top-10)),l.push(new h.IntPoint(e.left-
-10,e.top-10)),b.AddPath(l,h.PolyType.ptSubject,!0),b.ReverseSolution=!0,b.Execute(h.ClipType.ctUnion,d,h.PolyFillType.pftNegative,h.PolyFillType.pftNegative),1==d.ChildCount()&&0<d.Childs()[0].ChildCount())for(b=d.Childs()[0],d.Childs()[0]=b.Childs()[0],e=1;e<b.ChildCount();e++)d.AddChild(b.Childs()[e]);else d.Clear();else{var d=b[0],e=b[1];h.Clear(d);this.FixOrientations();this.DoOffset(e);b=new h.Clipper(0);b.AddPaths(this.m_destPolys,h.PolyType.ptSubject,!0);if(0<e)b.Execute(h.ClipType.ctUnion,
-d,h.PolyFillType.pftPositive,h.PolyFillType.pftPositive);else{var e=h.Clipper.GetBounds(this.m_destPolys),l=new h.Path;l.push(new h.IntPoint(e.left-10,e.bottom+10));l.push(new h.IntPoint(e.right+10,e.bottom+10));l.push(new h.IntPoint(e.right+10,e.top-10));l.push(new h.IntPoint(e.left-10,e.top-10));b.AddPath(l,h.PolyType.ptSubject,!0);b.ReverseSolution=!0;b.Execute(h.ClipType.ctUnion,d,h.PolyFillType.pftNegative,h.PolyFillType.pftNegative);0<d.length&&d.splice(0,1)}}};h.ClipperOffset.prototype.OffsetPoint=
-function(b,d,e){this.m_sinA=this.m_normals[d].X*this.m_normals[b].Y-this.m_normals[b].X*this.m_normals[d].Y;if(5E-5>this.m_sinA&&-5E-5<this.m_sinA)return d;1<this.m_sinA?this.m_sinA=1:-1>this.m_sinA&&(this.m_sinA=-1);if(0>this.m_sinA*this.m_delta)this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+this.m_normals[d].X*this.m_delta),h.ClipperOffset.Round(this.m_srcPoly[b].Y+this.m_normals[d].Y*this.m_delta))),this.m_destPoly.push(new h.IntPoint(this.m_srcPoly[b])),this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+
-this.m_normals[b].X*this.m_delta),h.ClipperOffset.Round(this.m_srcPoly[b].Y+this.m_normals[b].Y*this.m_delta)));else switch(e){case h.JoinType.jtMiter:e=1+(this.m_normals[b].X*this.m_normals[d].X+this.m_normals[b].Y*this.m_normals[d].Y);e>=this.m_miterLim?this.DoMiter(b,d,e):this.DoSquare(b,d);break;case h.JoinType.jtSquare:this.DoSquare(b,d);break;case h.JoinType.jtRound:this.DoRound(b,d)}return b};h.ClipperOffset.prototype.DoSquare=function(b,d){var e=Math.tan(Math.atan2(this.m_sinA,this.m_normals[d].X*
-this.m_normals[b].X+this.m_normals[d].Y*this.m_normals[b].Y)/4);this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+this.m_delta*(this.m_normals[d].X-this.m_normals[d].Y*e)),h.ClipperOffset.Round(this.m_srcPoly[b].Y+this.m_delta*(this.m_normals[d].Y+this.m_normals[d].X*e))));this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+this.m_delta*(this.m_normals[b].X+this.m_normals[b].Y*e)),h.ClipperOffset.Round(this.m_srcPoly[b].Y+this.m_delta*(this.m_normals[b].Y-
-this.m_normals[b].X*e))))};h.ClipperOffset.prototype.DoMiter=function(b,d,e){e=this.m_delta/e;this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+(this.m_normals[d].X+this.m_normals[b].X)*e),h.ClipperOffset.Round(this.m_srcPoly[b].Y+(this.m_normals[d].Y+this.m_normals[b].Y)*e)))};h.ClipperOffset.prototype.DoRound=function(b,d){for(var e=Math.atan2(this.m_sinA,this.m_normals[d].X*this.m_normals[b].X+this.m_normals[d].Y*this.m_normals[b].Y),e=h.Cast_Int32(h.ClipperOffset.Round(this.m_StepsPerRad*
-Math.abs(e))),l=this.m_normals[d].X,k=this.m_normals[d].Y,r,w=0;w<e;++w)this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+l*this.m_delta),h.ClipperOffset.Round(this.m_srcPoly[b].Y+k*this.m_delta))),r=l,l=l*this.m_cos-this.m_sin*k,k=r*this.m_sin+k*this.m_cos;this.m_destPoly.push(new h.IntPoint(h.ClipperOffset.Round(this.m_srcPoly[b].X+this.m_normals[b].X*this.m_delta),h.ClipperOffset.Round(this.m_srcPoly[b].Y+this.m_normals[b].Y*this.m_delta)))};h.Error=function(b){try{throw Error(b);
-}catch(d){alert(d.message)}};h.JS={};h.JS.AreaOfPolygon=function(b,d){d||(d=1);return h.Clipper.Area(b)/(d*d)};h.JS.AreaOfPolygons=function(b,d){d||(d=1);for(var e=0,l=0;l<b.length;l++)e+=h.Clipper.Area(b[l]);return e/(d*d)};h.JS.BoundsOfPath=function(b,d){return h.JS.BoundsOfPaths([b],d)};h.JS.BoundsOfPaths=function(b,d){d||(d=1);var e=h.Clipper.GetBounds(b);e.left/=d;e.bottom/=d;e.right/=d;e.top/=d;return e};h.JS.Clean=function(b,d){if(!(b instanceof Array))return[];var e=b[0]instanceof Array;b=
-h.JS.Clone(b);if("number"!=typeof d||null===d)return h.Error("Delta is not a number in Clean()."),b;if(0===b.length||1==b.length&&0===b[0].length||0>d)return b;e||(b=[b]);for(var l=b.length,k,r,w,q,B,L,H,K=[],fa=0;fa<l;fa++)if(r=b[fa],k=r.length,0!==k)if(3>k)w=r,K.push(w);else{w=r;q=d*d;B=r[0];for(H=L=1;H<k;H++)(r[H].X-B.X)*(r[H].X-B.X)+(r[H].Y-B.Y)*(r[H].Y-B.Y)<=q||(w[L]=r[H],B=r[H],L++);B=r[L-1];(r[0].X-B.X)*(r[0].X-B.X)+(r[0].Y-B.Y)*(r[0].Y-B.Y)<=q&&L--;L<k&&w.splice(L,k-L);w.length&&K.push(w)}!e&&
-K.length?K=K[0]:e||0!==K.length?e&&0===K.length&&(K=[[]]):K=[];return K};h.JS.Clone=function(b){if(!(b instanceof Array)||0===b.length)return[];if(1==b.length&&0===b[0].length)return[[]];var d=b[0]instanceof Array;d||(b=[b]);var e=b.length,h,k,r,w,q=Array(e);for(k=0;k<e;k++){h=b[k].length;w=Array(h);for(r=0;r<h;r++)w[r]={X:b[k][r].X,Y:b[k][r].Y};q[k]=w}d||(q=q[0]);return q};h.JS.Lighten=function(b,d){if(!(b instanceof Array))return[];if("number"!=typeof d||null===d)return h.Error("Tolerance is not a number in Lighten()."),
-h.JS.Clone(b);if(0===b.length||1==b.length&&0===b[0].length||0>d)return h.JS.Clone(b);b[0]instanceof Array||(b=[b]);var e,l,k,r,w,q,B,L,H,K,fa,Q,Y,S,X,da=b.length,la=d*d,ka=[];for(e=0;e<da;e++)if(k=b[e],q=k.length,0!=q){for(r=0;1E6>r;r++){w=[];q=k.length;k[q-1].X!=k[0].X||k[q-1].Y!=k[0].Y?(fa=1,k.push({X:k[0].X,Y:k[0].Y}),q=k.length):fa=0;K=[];for(l=0;l<q-2;l++){B=k[l];H=k[l+1];L=k[l+2];S=B.X;X=B.Y;B=L.X-S;Q=L.Y-X;if(0!==B||0!==Q)Y=((H.X-S)*B+(H.Y-X)*Q)/(B*B+Q*Q),1<Y?(S=L.X,X=L.Y):0<Y&&(S+=B*Y,X+=
-Q*Y);B=H.X-S;Q=H.Y-X;L=B*B+Q*Q;L<=la&&(K[l+1]=1,l++)}w.push({X:k[0].X,Y:k[0].Y});for(l=1;l<q-1;l++)K[l]||w.push({X:k[l].X,Y:k[l].Y});w.push({X:k[q-1].X,Y:k[q-1].Y});fa&&k.pop();if(K.length)k=w;else break}q=w.length;w[q-1].X==w[0].X&&w[q-1].Y==w[0].Y&&w.pop();2<w.length&&ka.push(w)}b[0]instanceof Array||(ka=ka[0]);"undefined"==typeof ka&&(ka=[[]]);return ka};h.JS.PerimeterOfPath=function(b,d,e){if("undefined"==typeof b)return 0;var h=Math.sqrt,k=0,r,w,q,B,L=b.length;if(2>L)return 0;for(d&&(b[L]=b[0],
-L++);--L;)r=b[L],q=r.X,r=r.Y,w=b[L-1],B=w.X,w=w.Y,k+=h((q-B)*(q-B)+(r-w)*(r-w));d&&b.pop();return k/e};h.JS.PerimeterOfPaths=function(b,d,e){e||(e=1);for(var k=0,q=0;q<b.length;q++)k+=h.JS.PerimeterOfPath(b[q],d,e);return k};h.JS.ScaleDownPath=function(b,d){var e,h;d||(d=1);for(e=b.length;e--;)h=b[e],h.X/=d,h.Y/=d};h.JS.ScaleDownPaths=function(b,d){var e,h,k;d||(d=1);for(e=b.length;e--;)for(h=b[e].length;h--;)k=b[e][h],k.X/=d,k.Y/=d};h.JS.ScaleUpPath=function(b,d){var e,h,k=Math.round;d||(d=1);for(e=
-b.length;e--;)h=b[e],h.X=k(h.X*d),h.Y=k(h.Y*d)};h.JS.ScaleUpPaths=function(b,d){var e,h,k,r=Math.round;d||(d=1);for(e=b.length;e--;)for(h=b[e].length;h--;)k=b[e][h],k.X=r(k.X*d),k.Y=r(k.Y*d)};h.ExPolygons=function(){return[]};h.ExPolygon=function(){this.holes=this.outer=null};h.JS.AddOuterPolyNodeToExPolygons=function(b,d){var e=new h.ExPolygon;e.outer=b.Contour();var k=b.Childs(),q=k.length;e.holes=Array(q);var r,w,L,B,H;for(w=0;w<q;w++)for(r=k[w],e.holes[w]=r.Contour(),L=0,B=r.Childs(),H=B.length;L<
-H;L++)r=B[L],h.JS.AddOuterPolyNodeToExPolygons(r,d);d.push(e)};h.JS.ExPolygonsToPaths=function(b){var d,e,k,q,r=new h.Paths;d=0;for(k=b.length;d<k;d++)for(r.push(b[d].outer),e=0,q=b[d].holes.length;e<q;e++)r.push(b[d].holes[e]);return r};h.JS.PolyTreeToExPolygons=function(b){var d=new h.ExPolygons,e,k,q;e=0;k=b.Childs();for(q=k.length;e<q;e++)b=k[e],h.JS.AddOuterPolyNodeToExPolygons(b,d);return d}})();
-var CindyJS=function(){function q(k){if(0===oa)return console.error("Waiting for "+k+" after we finished waiting."),function(){};0>oa&&(oa=0);++oa;return function(){--oa;0>oa&&console.error("Wait count mismatch: "+k);if(0===oa)for(var q=0,H=ib.length;q<H;)ib[q++].startup()}}function H(k){var q=H.newInstance(k);0>=oa?q.startup():!1!==k.autostart&&ib.push(q);return q}var oa=-1,ib=[];"undefined"===typeof document||"undefined"===typeof window||"undefined"===typeof document.addEventListener||"undefined"!==
-typeof window.cindyDontWait&&!0===window.cindyDontWait||document.addEventListener("DOMContentLoaded",q("DOMContentLoaded"));var Ia=null,Ja=null,Ba={};H.getBaseDir=function(){if(null!==Ia)return Ia;for(var k=document.getElementsByTagName("script"),q=0;q<k.length;++q){var H=k[q],Q=H.src;if(Q){var X=/Cindy\.js$/.exec(Q);if(X)return Ia=Q.substr(0,X.index),console.log("Will load extensions from "+Ia),Ja=H,Ia}}console.error("Could not find <script> tag for Cindy.js");return Ia=Ja=!1};H.addNewScript=function(k,
-q){q||console.error.bind(console);var Y=H.getBaseDir();if(!1===Y)return!1;var Q=document.createElement("script");Q.src=Y+k;var Y=Ja.nextSibling,X=Ja.parentElement;Y?X.insertBefore(Q,Y):X.appendChild(Q);return Q};H.loadScript=function(k,q,Y,Q){if(window[k])return Y(),!0;Q||(Q=console.error.bind(console));var X=Ba[k];if(!X){X=H.addNewScript(q,Q);if(!1===X)return Q("Can't load additional components."),!1;Ba[k]=X}X.addEventListener("load",Y);X.addEventListener("error",Q);return null};H._autoLoadingPlugin=
-{};H.autoLoadPlugin=function(k,q,Y){if(H._pluginRegistry[k])return Y(),!0;var Q=H._autoLoadingPlugin[k];if(!Q){q||(q=k+"-plugin.js");Q=H._autoLoadingPlugin[k]=[];k=H.addNewScript(q);if(!1===k)return!1;k.addEventListener("error",console.error.bind(console))}Q.push(Y);return null};var k={ctype:"undefined"};H.waitFor=q;H._pluginRegistry={};H.instances=[];H.registerPlugin=function(k,q,Y){if(1!==k)return console.error("Plugin API version "+k+" not supported"),!1;H._pluginRegistry[q]=Y;(H._autoLoadingPlugin[q]||
-[]).forEach(function(k){k()})};var Ra=0;H.dumpState=function(k){k=H.instances[k||0].saveState();console.log(JSON.stringify(k))};H.debugState=function(k){H.instances.map(function(k){var q=k.config,q=JSON.parse(JSON.stringify(q)),L=k.saveState();console.log(JSON.stringify(L));for(var H in L)q[H]=L[H];k.shutdown();return q}).forEach(function(k){H(k)})};H.newInstance=function(q){function H(){ga.width=W=ga.clientWidth;ga.height=V=ga.clientHeight;z.setTransform(1,0,0,1,0,0);x.setMat(25,0,0,25,250.5,250.5);
-if(yb)for(var a=0;a<yb.length;a++){var g=yb[a],c=Object.keys(g)[0];"scale"===c&&(Jb=g.scale,x[c](g.scale));if("translate"===c)x[c](g.translate[0],g.translate[1]);"scaleAndOrigin"===c&&(Jb=g[c][0]/25,x[c].apply(null,g[c]));"visibleRect"===c&&(x[c].apply(null,g[c]),Jb=x.drawingstate.initialmatrix.a/25)}x.createnewbackup();x.greset();a=1;"undefined"!==typeof window&&window.devicePixelRatio&&(a=window.devicePixelRatio);g=z.webkitBackingStorePixelRatio||z.mozBackingStorePixelRatio||z.msBackingStorePixelRatio||
-z.oBackingStorePixelRatio||z.backingStorePixelRatio||1;a!==g&&(a/=g,ga.width=W*a,ga.height=V*a,z.scale(a,a))}function Y(a){var g;if("canvas"!==a.tagName.toLowerCase())for(g=a,ga=document.createElement("canvas");g.firstChild;)g.removeChild(g.firstChild);else{ga=a;g=document.createElement("div");var c=null,p=null;Array.prototype.slice.call(ga.attributes).forEach(function(a){"width"===a.name?c=a.value:"height"===a.name?p=a.value:g.setAttributeNodeNS(ga.removeAttributeNode(a))});null===c||g.style.width||
-(g.style.width=c+"px");null===p||g.style.height||(g.style.height=p+"px");ga.parentNode.replaceChild(g,ga)}g.classList.add("CindyJS-widget");a=ga.style;a.position="absolute";a.border="none";a.margin=a.padding=a.left=a.top="0px";a.width=a.height="100%";a="static";window.getComputedStyle&&(a=window.getComputedStyle(g).getPropertyValue("position"),a=String(a||"static"));"static"===a&&(g.style.position="relative");g.appendChild(ga);return ga}function Q(){$b=!0;if(0===Kb){if(q.exclusive)for(b=va.instances.length;0<
-b;)va.instances[--b].shutdown();void 0!==q.csconsole&&(ha=q.csconsole);ha=null===ha?new Ya:!0===ha?new jb:"string"===typeof ha?new pb(ha):"object"===typeof ha&&"function"===typeof ha.appendChild?new pb(ha):new Ya;sa=[100,100];var a=null;yb=q.transform;if(q.ports&&0<q.ports.length){b=q.ports[0];(a=b.element)||(a=document.getElementById(b.id));var a=Y(a),g=a.parentNode.style;"window"===b.fill?(g.width="100vw",g.height="100vh"):"parent"===b.fill?(g.width="100%",g.height="100%"):b.width&&b.height&&(g.width=
-b.width+"px",g.height=b.height+"px");b.background&&(a.style.backgroundColor=b.background);void 0!==b.transform&&(yb=b.transform);Sa(b.grid)&&0<b.grid&&(Ta=b.grid);Sa(b.tgrid)&&0<b.tgrid&&(ac=b.tgrid);b.snap&&(bc=!0);b.axes&&(zb=!0)}a||(a=q.canvas,a||"undefined"===typeof document||(a=document.getElementById(q.canvasname))&&(a=Y(a)));a&&(ga=a,z=a.getContext("2d"),H(),z.setLineDash||(z.setLineDash=function(){}),(q.animation?q.animation.controls:q.animcontrols)&&Ba(q),q.animation&&Sa(q.animation.speed)&&
-(void 0===q.animation.accuracy&&q.cinderella&&q.cinderella.version&&2===q.cinderella.version[0]&&9===q.cinderella.version[1]&&1875>q.cinderella.version[2]?oa(.5*q.animation.speed):oa(q.animation.speed)),q.animation&&Sa(q.animation.accuracy)&&(Lb=q.animation.accuracy));q.statusbar&&(cc="string"===typeof q.statusbar?document.getElementById(q.statusbar):q.statusbar);var c=q.scripts,p=null;"string"===typeof c&&c.search(/\*/)&&(p=c);"object"!==typeof c&&(c=null);"move keydown mousedown mouseup mousedrag mousemove mouseclick init tick draw simulationstep simulationstart simulationstop ondrop".split(" ").forEach(function(a){var g;
-if(null!==c&&c[a])g=c[a];else{g=a+"script";if(q[g])g=document.getElementById(q[g]);else if(p){if(g=document.getElementById(p.replace(/\*/,a)),!g)return}else return;g=g.text}g=Ma(g,!1);"error"===g.ctype?console.error("Error compiling "+a+" script: "+g.message):ia[a]=g});Sa(q.grid)&&0<q.grid&&(Ta=q.grid);q.snap&&(bc=!0);u={};var b=0;ab={};q.geometry||(q.geometry=[]);Hd(q.geometry);q.behavior||(q.behavior=[]);"function"===typeof dc&&dc(q.behavior);for(var d in q.images)b=X(q.images[d]),b!==k&&(ab[d]=
-b);qa.canvas=a;if(q.oninit)q.oninit(qa);va.instances.push(qa);q.use&&q.use.forEach(function(a){t.use$1([v.wrap(a)],{})});Mc.convexhull3d$1&&h("quickhull3d","quickhull3d/quickhull3d.nocache.js");Ia()}}function X(a){var g;"string"===typeof a?(g=new Image,g.src=a):g=a;if(!g.tagName)return console.error("Not a valid image element",g),k;var c={img:g,width:NaN,height:NaN,ready:!0,live:!1,generation:0,whenReady:ka};a=g.tagName.toLowerCase();var p=[];if("img"===a)g.complete?(c.width=g.width,c.height=g.height):
-(c.ready=!1,g.addEventListener("load",function(){c.width=g.width;c.height=g.height;c.ready=!0;c.whenReady=ka;p.forEach(ka);b()}),c.whenReady=p.push.bind(p));else if("video"===a)c.live=!0,g.readyState>=g.HAVE_METADATA?(c.width=g.videoWidth,c.height=g.videoHeight):(c.ready=!1,g.addEventListener("loadedmetadata",function(){c.width=g.videoWidth;c.height=g.videoHeight;c.ready=!0;c.whenReady=ka;p.forEach(ka);b()}),c.whenReady=p.push.bind(p));else if("canvas"===a)c.width=g.width,c.height=g.height;else return console.error("Not a valid image element",
-a,g),k;return{ctype:"image",value:c}}function Ba(a){function g(a,c){var g=document.createElement("button"),p=document.createElement("img");g.appendChild(p);k.appendChild(g);Ab(p,a);g.addEventListener("click",c);Na[a]=function(a){a?g.classList.add("CindyJS-active"):g.classList.remove("CindyJS-active")}}function c(a){if(h){var c=e.getBoundingClientRect();oa(f*(a.clientX-c.left-e.clientLeft+.5)/c.width+b)}}var p=document.createElement("div");p.className="CindyJS-animcontrols";ga.parentNode.appendChild(p);
-var b=0,d=1,f=1;a.animation&&a.animation.speedRange&&Sa(a.animation.speedRange[0])&&Sa(a.animation.speedRange[1])&&(b=a.animation.speedRange[0],d=a.animation.speedRange[1],f=d-b);var e=document.createElement("div");e.className="CindyJS-animspeed";p.appendChild(e);var m=document.createElement("div");e.appendChild(m);K(e,"mousedown",function(a){h=!0;c(a)});K(e,"mousemove",c);K(ga.parentNode,"mouseup",function(a){h=!1},!0);var k=document.createElement("div");k.className="CindyJS-animbuttons";p.appendChild(k);
-g("play",S);g("pause",Za);g("stop",Ja);Na.stop(!0);fc=function(a){a=(a-b)/f;a=Math.max(0,Math.min(1,a));a=.1*Math.round(1E3*a);m.style.width=a+"%"};var h=!1}function oa(a){Nc=a;fc&&fc(a)}function ka(a){return a()}function h(a,g){var c=null;q.plugins&&(c=q.plugins[a]);c||(c=va._pluginRegistry[a]);c?t.use$1([v.wrap(a)],{}):(++Oc,va.autoLoadPlugin(a,g,function(){t.use$1([v.wrap(a)],{});Ia()}))}function Ia(){0===--Oc&&(A(ia.init),(q.animation||q).autoplay&&S(),qa.canvas&&la(qa.canvas,q))}function da(){null!==
-Bb&&(ma.set(Bb.state),Object.keys(Bb.speeds).forEach(function(a){var g=u.csnames[a];"undefined"!==typeof g.behavior&&(a=Bb.speeds[a],g.behavior.vx=a[0],g.behavior.vy=a[1],g.behavior.vz=a[2],g.behavior.fx=0,g.behavior.fy=0,g.behavior.fz=0)}),Id())}function S(){if(!Ua){if(Nb){var a=bb.backup;a.set(ma);for(var g={},c=0;c<u.points.length;c++){var p=u.points[c];"undefined"!==typeof p.behavior&&(g[p.name]=[p.behavior.vx,p.behavior.vy,p.behavior.vz])}Bb={state:a,speeds:g};Cb=0;Nb=!1;Na.stop(!1)}else Na.pause(!1);
-gc=Date.now();Na.play(!0);"function"===typeof dc&&hc&&Jd();Ua=!0;A(ia.simulationstart);b()}}function Za(){Ua&&(Na.play(!1),Na.pause(!0),Ua=!1)}function Ja(){Nb||(Ua?(A(ia.simulationstop),Ua=!1,Na.play(!1)):Na.pause(!1),Na.stop(!0),Nb=!0,da())}function La(){if(!ic){ic=!0;for(var a=va.instances.length;0<a;)if(va.instances[--a]===qa){va.instances.splice(a,1);break}for(a=kb.length;0<a;)try{kb[--a]()}catch(g){console.error(g)}}}function $a(a){this["in"]=function(a,c){console.log(a);c?this.append(this.createTextNode("span",
-"blue",a)):this.append(this.createTextNode("p","blue",a))};this.out=function(a,c){console.log(a);c?this.append(this.createTextNode("span","red",a)):this.append(this.createTextNode("p","red",a))};this.err=function(a,c){console.log(a);c?this.append(this.createTextNode("span","red",a)):this.append(this.createTextNode("p","red",a))};this.createTextNode=function(a,c,p){return"undefined"!==typeof document?(a=document.createElement(a),a.appendChild(document.createTextNode(p)),a.style.color=c,a):p+"\n"}}
-function jb(){var a=this,g,c=document.createElement("div"),p;c.innerHTML='<div id="console" style="border-top: 1px solid #333333; bottom: 0px; position: absolute; width: 100%;"><div id="log" style="height: 150px; overflow-y: auto;"></div><input id="cmd" type="text" style="box-sizing: border-box; height: 30px; width: 100%;"></div>';document.body.appendChild(c);g=document.getElementById("cmd");p=document.getElementById("log");g.onkeydown=function(c){13===c.keyCode&&""!==g.value&&(a["in"](g.value),c=
-t.parse$1([v.wrap(g.value)],[]),c=A(c),console.log(w(c)),"undefined"!==c.ctype&&ha.out(w(c)),g.value="",p.scrollTop=p.scrollHeight)};this.append=function(a){p.appendChild(a)};this.clear=function(){p.innerHTML=""}}function pb(a){var g=a;"string"===typeof a&&(g=document.getElementById(a));this.append=function(a){g.appendChild(a)};this.clear=function(){g.innerHTML=""}}function Ya(){this.append=function(a){};this.clear=function(){}}function K(a,g,c,p){void 0===p&&(p=!1);kb.push(function(){a.removeEventListener(g,
-c,p)});a.addEventListener(g,c,p)}function la(a,g){function c(c){var g=a.getBoundingClientRect();c=x.to(c.clientX-g.left-a.clientLeft+.5,c.clientY-g.top-a.clientTop+.5);U.prevx=U.x;U.prevy=U.y;U.x=c[0];U.y=c[1];sa[0]=U.x;sa[1]=U.y;b()}function p(a){U.down=!1;aa=void 0;lb();A(ia.mouseup);sb("mouseup");b();a.preventDefault()}var ba=null;"undefined"!==typeof MutationObserver&&(ba=MutationObserver);ba||"undefined"===typeof WebKitMutationObserver||(ba=WebKitMutationObserver);ba?(ba=new ba(function(c){document.body.contains(a)||
-La()}),ba.observe(document.documentElement,{childList:!0,subtree:!0}),kb.push(function(){ba.disconnect()})):(K(a,"DOMNodeRemovedFromDocument",La),K(a,"DOMNodeRemoved",La));!0===g.keylistener?K(document,"keydown",function(a){l(a);return!1}):ia.keydown&&(a.setAttribute("tabindex","0"),K(a,"mousedown",function(){a.focus()}),K(a,"keydown",function(a){9!==a.keyCode&&(l(a),a.preventDefault())}));K(a,"mousedown",function(a){U.button=a.which;c(a);A(ia.mousedown);sb("mousedown");U.down=!0;a.preventDefault()});
-K(a,"mouseup",function(a){U.down=!1;aa=void 0;lb();A(ia.mouseup);sb("mouseup");b();a.preventDefault()});K(a,"mousemove",function(a){c(a);U.down?A(ia.mousedrag):A(ia.mousemove);sb("mousemove");a.preventDefault()});K(a,"click",function(a){c(a);A(ia.mouseclick);a.preventDefault()});K(a,"dragenter",function(a){a.preventDefault()});K(a,"dragover",function(a){a.preventDefault()});K(a,"drop",function(c){function g(a,c,R){ba[a]=f.turnIntoCSList([c,v.string(R||c.ctype),v.string(p[a].type),v.string(p[a].name)]);
-0===--d&&(a=m,jc=f.turnIntoCSList(ba),kc=a,A(ia.ondrop),kc=jc=k,b())}c.preventDefault();var p=c.dataTransfer.files,ba=Array(p.length),d=p.length,e=c.currentTarget.getBoundingClientRect(),m=f.realVector(x.to(c.clientX-e.left-a.clientLeft+.5,c.clientY-e.top-a.clientTop+.5));Array.prototype.forEach.call(p,function(a,c){var p=new FileReader;/^text\//.test(a.type)?(p.onload=function(){var a=v.string(p.result);g(c,a)},p.readAsText(a)):/^image\//.test(a.type)?(p.onload=function(){var a=new Image;a.onload=
-function(){g(c,X(a))};a.src=p.result},p.readAsDataURL(a)):g(c,k)})});K(a,"touchstart",function(a){c(a.targetTouches[0]);A(ia.mousedown);U.down=!0;sb("mousedown");a.preventDefault()},!1);K(a,"touchmove",function(a){c(a.targetTouches[0]);U.down?A(ia.mousedrag):A(ia.mousemove);sb("mousemove");a.preventDefault()},!0);K(a,"touchend",p,!1);"undefined"!==typeof document&&document.body&&K(document.body,"touchcancel",p,!1);"undefined"!==typeof window&&K(window,"resize",function(){Ob(function(){H();b()})},
-!1);ib(a.parentNode);b()}function qb(a,g){var c=document.createElement("div");c.setAttribute("style",g);a.appendChild(c);return c}function ib(a){function g(){p.scrollLeft=p.scrollTop=ba.scrollLeft=ba.scrollTop=1E5}function c(){if(d!==a.clientWidth||f!==a.clientHeight)d=a.clientWidth,f=a.clientHeight,e||(e=!0,Ob(function(){e=!1;H();b()}));g()}if("undefined"!==typeof document){var p=qb(a,"position: absolute; transition: 0s; left: 0; top: 0; right: 0; bottom: 0; overflow: hidden; z-index: -1; visibility: hidden;");
-qb(p,"position: absolute; transition: 0s; left: 0; top: 0; width: 100000px; height: 100000px");var ba=qb(a,"position: absolute; transition: 0s; left: 0; top: 0; right: 0; bottom: 0; overflow: hidden; z-index: -1; visibility: hidden;");qb(ba,"position: absolute; transition: 0s; left: 0; top: 0; width: 200%; height: 200%");g();var d=a.clientWidth,f=a.clientHeight,e=!1;p.addEventListener("scroll",c);ba.addEventListener("scroll",c)}}function b(){lc||(lc=Ob(d))}function d(){lc=null;if(!ic){if(Ua){var a=
-Date.now(),g=Math.min(50,a-gc)*Nc*Kd;gc=a;a=Cb+g;hc&&"undefined"!==typeof ra&&ra.tick(g);Cb=a;Ua&&A(ia.tick)}e();Ua&&b()}}function e(){x.reset();z.save();z.clearRect(0,0,W,V);var a=x.drawingstate.matrix,g,c,p,b,d;if(0!==Ta){z.beginPath();z.strokeStyle="rgba(0,0,0,0.1)";z.lineWidth=1;z.lineCap="butt";g=Ta*a.a;for(b=Math.ceil(-a.tx/g);(d=b*g+a.tx)<W;){if(b||!zb)z.moveTo(d,0),z.lineTo(d,V);b++}for(b=Math.floor(a.ty/g);(d=b*g-a.ty)<V;){if(b||!zb)z.moveTo(0,d),z.lineTo(W,d);b++}z.stroke()}if(0!==ac){z.beginPath();
-z.strokeStyle="rgba(0,0,0,0.1)";z.lineWidth=1;z.lineCap="butt";g=ac*a.a;var e=Math.sqrt(3);c=a.ty/e;p=(V+a.ty)/e;for(b=Math.ceil(-(a.tx+p)/g);(d=b*g+a.tx)+c<W;)z.moveTo(d+c,0),z.lineTo(d+p,V),b++;for(b=Math.ceil(-(a.tx-c)/g);(d=b*g+a.tx)-p<W;)z.moveTo(d-c,0),z.lineTo(d-p,V),b++;g*=.5*e;for(b=Math.floor(a.ty/g);(d=b*g-a.ty)<V;){if(b||!zb)z.moveTo(0,d),z.lineTo(W,d);b++}z.stroke()}zb&&(z.beginPath(),z.strokeStyle="rgba(0,0,0,0.2)",z.lineWidth=3,z.lineCap="butt",z.lineJoin="miter",z.miterLimit=10,z.beginPath(),
-z.moveTo(0,-a.ty),z.lineTo(W-6,-a.ty),z.moveTo(W-13,-5-a.ty),z.lineTo(W-3,-a.ty),z.lineTo(W-13,5-a.ty),z.moveTo(a.tx,V),z.lineTo(a.tx,6),z.moveTo(a.tx-5,13),z.lineTo(a.tx,3),z.lineTo(a.tx+5,13),z.stroke());Ld();x.greset();Md();for(a=0;a<u.polygons.length;a++)g=u.polygons[a],g.isshowing&&!1!==g.visible&&(c={color:g.color,alpha:g.alpha,fillcolor:g.fillcolor,fillalpha:g.fillalpha,size:g.size,lineJoin:v.string("miter")},D.drawpolygon([g.vertices],c,"D",!0));for(a=0;a<u.conics.length;a++)u.conics[a].isArc?
-(g=u.conics[a],g.isshowing&&!1!==g.visible&&(c={},c.color=g.color,c.alpha=g.alpha,c.size=g.size,D.drawarc(g,c,g.filled?"F":"D"))):(g=u.conics[a],g.isshowing&&!1!==g.visible&&(c={},c.color=g.color,c.alpha=g.alpha,c.size=g.size,D.drawconic(g.matrix,c)));for(a=0;a<u.lines.length;a++)a:if(g=u.lines[a],g.isshowing&&!1!==g.visible&&f._helper.isAlmostReal(g.homog))if("S"===g.kind)c={overhang:g.overhang,dashtype:g.dashtype,size:g.size,color:g.color,alpha:g.alpha,arrow:g.arrow,arrowsize:g.arrowsize,arrowposition:g.arrowposition,
-arrowshape:g.arrowshape,arrowsides:g.arrowsides},0<=m.mult(g.startpos.value[2],m.conjugate(g.endpos.value[2])).value.real?t.draw$2([g.startpos,g.endpos],c):(y.handleModifs(c,y.lineModifs),y.drawRaySegment(g.startpos,g.endpos));else if("end"===g.clip.value&&"Join"===g.type)b=u.csnames[g.args[0]],c=u.csnames[g.args[1]],t.draw$2([b.homog,c.homog],{overhang:g.overhang,dashtype:g.dashtype,size:g.size,color:g.color,alpha:g.alpha});else{if("inci"===g.clip.value){b=[1E6,0];c=[-1E6,0];d=[1E6,0];p=[-1E6,0];
-for(e=0;e<g.incidences.length;e++){var k=u.csnames[g.incidences[e]].homog,h=k.value[0],l=k.value[1],n=k.value[2];m._helper.isAlmostZero(n)||(h=m.div(h,n),l=m.div(l,n),m._helper.isAlmostReal(h)&&m._helper.isAlmostReal(l)&&(h.value.real<b[0]&&(b=[h.value.real,k]),h.value.real>c[0]&&(c=[h.value.real,k]),l.value.real<d[0]&&(d=[l.value.real,k]),l.value.real>p[0]&&(p=[l.value.real,k])))}c[0]-b[0]>p[0]-d[0]?(b=b[1],c=c[1]):(b=d[1],c=p[1]);if(b!==c){t.draw$2([b,c],{dashtype:g.dashtype,size:g.size,color:g.color,
-alpha:g.alpha,overhang:g.overhang});break a}}t.draw$1([g.homog],{dashtype:g.dashtype,size:g.size,color:g.color,alpha:g.alpha})}for(a=0;a<u.points.length;a++)g=u.points[a],g.isshowing&&!1!==g.visible&&f._helper.isAlmostReal(g.homog)&&(c=g.color,g.behavior&&(c=g.color),t.draw$1([g.homog],{size:g.size,color:c,alpha:g.alpha}),g.labeled&&!g.tmp&&(c=g.printname||g.name||"P",p=g.labelpos||{x:3,y:3},b=g.textsize||ja.textsize,d=!0===g.textbold,e=!0===g.textitalics,k=g.text_fontfamily||ja.fontFamily,h=p.x*
-p.x+p.y*p.y,l=1,0<h&&(l=1+g.size.value.real/Math.sqrt(h)),D.drawtext([g.homog,v.wrap(c)],{x_offset:v.wrap(l*p.x),y_offset:v.wrap(l*p.y),size:v.wrap(b),bold:v.wrap(d),italics:v.wrap(e),family:v.wrap(k)})));for(a=0;a<u.texts.length;a++)Nd(u.texts[a]);z.restore()}function l(a){a=window.event?event:a;a=a.charCode?a.charCode:a.keyCode;Pc=String.fromCharCode(a);Qc=a;A(ia.keydown);b()}function G(a){var g=a.value;a=g[0].value;var c=g[1].value,g=g[2].value;return f.turnIntoCSList([a[0],m.add(a[1],c[0]),m.add(a[2],
-g[0]),c[1],m.add(c[2],g[1]),g[2]])}function r(a){var g=!0;return function(c,p){g&&(console.error("Operator "+a+" is not supported yet."),g=!1);return k}}function w(a){if("undefined"===typeof a)return"_??_";if(null===a)return"_???_";if("undefined"===a.ctype)return"___";if("number"===a.ctype)return m.niceprint(a);if("string"===a.ctype||"boolean"===a.ctype)return a.value;if("list"===a.ctype){for(var g="[",c=0;c<a.value.length;c++)g+=w(A(a.value[c])),c!==a.value.length-1&&(g+=", ");return g+"]"}return"dict"===
-a.ctype?Oa.niceprint(a):"function"===a.ctype?"FUNCTION":"infix"===a.ctype?"INFIX":"modifier"===a.ctype?a.key+"->"+w(a.value):"shape"===a.ctype?a.type:"error"===a.ctype?"Error: "+a.message:"variable"===a.ctype?w(J.getvar(a.name)):"geo"===a.ctype?a.value.name:"image"===a.ctype?"IMAGE":"_?_"}function E(a,g){var c="undefined"===a[0].ctype,p="undefined"===a[1].ctype,b=A(a[1]);if(c||p)return k;"variable"===a[0].ctype?J.setvar(a[0].name,b):"infix"===a[0].ctype?"_"===a[0].oper?D.assigntake(a[0],b):console.error("Can't use infix expression as lvalue"):
-"field"===a[0].ctype?D.assigndot(a[0],b):"function"===a[0].ctype&&"genList"===a[0].oper?"list"===b.ctype?D.assignlist(a[0].args,b.value):console.error("Expected list in rhs of assignment"):console.error("Left hand side of assignment is not a recognized lvalue");return b}function B(a,g){var c=A(a[0]),p=A(a[1]);if(c.ctype===p.ctype){if("number"===c.ctype)return v.bool(c.value.real===p.value.real&&c.value.imag===p.value.imag);if("string"===c.ctype||"boolean"===c.ctype)return v.bool(c.value===p.value);
-if("list"===c.ctype)return f.equals(c,p);if("geo"===c.ctype)return v.bool(c.value===p.value)}return{ctype:"boolean",value:!1}}function Ec(a,g){return v.not(B(a,g))}function pa(a,g){var c=C(a[0]),p=C(a[1]);return"number"===c.ctype&&"number"===p.ctype?{ctype:"boolean",value:m._helper.isAlmostEqual(c,p)}:"string"===c.ctype&&"string"===p.ctype||"boolean"===c.ctype&&"boolean"===p.ctype?{ctype:"boolean",value:c.value===p.value}:"list"===c.ctype&&"list"===p.ctype?f.almostequals(c,p):{ctype:"boolean",value:!1}}
-function na(a,g){var c=C(a[0]),p=C(a[1]);return"boolean"===c.ctype&&"boolean"===p.ctype?{ctype:"boolean",value:c.value&&p.value}:k}function Gc(a,g){var c=C(a[0]),p=C(a[1]);return"boolean"===c.ctype&&"boolean"===p.ctype?{ctype:"boolean",value:c.value||p.value}:k}function Hc(a,g){var c=a[0];"void"!==c.ctype&&(c=C(c));var p=C(a[1]),b=v.add(c,p);"Angle"===c.usage&&"Angle"===p.usage&&(b=v.withUsage(b,"Angle"));return b}function Xb(a,g){var c=a[0];"void"!==c.ctype&&(c=C(c));var p=C(a[1]),b=v.sub(c,p);"Angle"===
-c.usage&&"Angle"===p.usage&&(b=v.withUsage(b,"Angle"));return b}function Ic(a,g){var c=C(a[0]),p=C(a[1]),b=v.mult(c,p);"Angle"!==c.usage||p.usage?"Angle"!==p.usage||c.usage||(b=v.withUsage(b,"Angle")):b=v.withUsage(b,"Angle");return b}function Jc(a,g){var c=C(a[0]),p=C(a[1]);"number"===p.ctype&&m._helper.isZero(p)&&ha.err("WARNING: Division by zero!");var b=v.div(c,p);"Angle"!==c.usage||p.usage?"Angle"!==p.usage||c.usage||(b=v.withUsage(b,"Angle")):b=v.withUsage(b,"Angle");return b}function Kc(a,
-g){var c=C(a[0]),p=C(a[1]);return"number"===c.ctype&&"number"===p.ctype?m.pow(c,p):k}function Lc(a,g){var c=M(a[0]),p=M(a[1]);if(c!==k&&p!==k){var b=f.cross(c,p);"Point"===c.usage&&"Point"===p.usage&&(b=v.withUsage(b,"Line"));"Line"===c.usage&&"Line"===p.usage&&(b=v.withUsage(b,"Point"));return b}return k}function Zb(a){var g=a.length;if(0===g)return[];if(1===g)return[0];if(2===g)return a[0][0]+a[1][1]<=a[0][1]+a[1][0]?[0,1]:[1,0];if(4<g)return Od(a);for(var c=Pd[g],p=Number.POSITIVE_INFINITY,b=c[0],
-d=0;d<c.length;++d){for(var f=c[d],e=0,m=0;m<g;++m)e+=a[m][f[m]];e<p&&(p=e,b=f)}return b}function Od(a){function g(){return{matched:-1,prev:-1,start:-1,cost:0,used:!1,leaf:!1}}function c(a){for(var g=0;g<d;++g)0<h[a][g]||k[g].used||(k[g].used=!0,c(k[g].matched))}function p(a){for(var c=0;c<d;++c)0<h[c][a]||m[c].used||(m[c].used=!0,p(m[c].matched))}var b=Math.abs,d=a.length,f,e,m=Array(d),k=Array(d),h=Array(d);for(f=0;f<d;++f)h[f]=Array(d);for(f=0;f<d;++f)for(m[f]=g(),k[f]=g(),m[f].cost=a[f][0],e=
-1;e<d;++e)m[f].cost>a[f][e]&&(m[f].cost=a[f][e]);for(;;){for(f=0;f<d;++f)for(e=0;e<d;++e)h[f][e]=a[f][e]-m[f].cost-k[e].cost,h[f][e]<1E-14*(b(a[f][e])+b(m[f].cost)+b(k[e].cost))&&(h[f][e]=0);for(f=0;f<d;++f)m[f].matched=k[f].matched=-1;for(var l=0;;){for(f=0;f<d;++f)m[f].used=m[f].leaf=k[f].used=k[f].leaf=!1,-1===m[f].matched&&(m[f].start=f,m[f].used=m[f].leaf=!0,m[f].prev=-1);for(var n=!1,q=!1;!q;){for(f=0;f<d;++f)if(m[f].leaf)for(m[f].leaf=!1,e=0;e<d;++e)if(!(k[e].used||0<h[f][e])&&m[f].matched!==
-e&&(k[e].prev=f,k[e].start=m[f].start,k[e].used=k[e].leaf=!0,-1===k[e].matched)){m[k[e].start].prev=e;n=!0;break}if(n)break;q=!0;for(e=0;e<d;++e)k[e].leaf&&(k[e].leaf=!1,f=k[e].matched,m[f].used||(m[f].prev=e,m[f].start=k[e].start,m[f].used=m[f].leaf=!0,q=!1))}if(!n)break;for(n=0;n<d;++n)if(-1===m[n].matched&&-1!==m[n].prev){e=m[n].prev;do f=k[e].prev,k[e].matched=f,m[f].matched=e,e=m[f].prev;while(f!==n);++l}}if(l===d)break;for(f=0;f<d;++f)m[f].used=m[f].leaf=k[f].used=k[f].leaf=!1;for(f=0;f<d;++f)-1===
-m[f].matched&&c(f);for(e=0;e<d;++e)-1===k[e].matched&&p(e);for(f=0;f<d;++f)-1===m[f].matched||m[f].used||k[m[f].matched].used||(m[f].used=!0);l=Number.POSITIVE_INFINITY;for(f=0;f<d;++f)if(!m[f].used)for(e=0;e<d;++e)k[e].used||l>h[f][e]&&(l=h[f][e]);for(f=0;f<d;++f)m[f].used||(m[f].cost+=l),k[f].used&&(k[f].cost-=l)}a=Array(d);for(f=0;f<d;++f)e=m[f].matched,a[f]=e;return a}function mc(a,g){var c=A(a[0]),p=C(a[1]);"string"!==c.ctype&&(c=f.asList(c));if("number"===p.ctype){p=Math.floor(p.value.real);
-0>p&&(p=c.value.length+p+1);if(0<p&&p<c.value.length+1)return"list"===c.ctype?c.value[p-1]:{ctype:"string",value:c.value.charAt(p-1)};ha.err("WARNING: Index out of range!");return k}if("list"===p.ctype){for(var b=[],d=0;d<p.value.length;d++){var e=C(p.value[d]);b[d]=mc([c,e],[])}return f.turnIntoCSList(b)}return k}function Rc(a,g){var c=A(a[0]),p=A(a[1]);if("shape"===c.ctype&&"shape"===p.ctype)return D.shapeconcat(c,p);c=f.asList(c);p=f.asList(p);return"list"===c.ctype&&"list"===p.ctype?f.concat(c,
-p):k}function Sc(a,g){var c=A(a[0]),p=A(a[1]);return"list"===c.ctype&&"list"===p.ctype?f.set(f.common(c,p)):"shape"===c.ctype&&"shape"===p.ctype?D.shapecommon(c,p):k}function Tc(a,g){var c=A(a[0]),p=A(a[1]);return"list"===c.ctype&&"list"===p.ctype?f.remove(c,p):"shape"===c.ctype&&"shape"===p.ctype?D.shaperemove(c,p):k}function Uc(a,g){var c=A(a[0]),p=A(a[1]);return"list"===c.ctype?f.append(c,p):k}function Vc(a,g){var c=A(a[0]),p=A(a[1]);return"list"===p.ctype?f.prepend(c,p):k}function nc(a,g){a|=
-0;g|=0;if(0===a&&0===g)return 0;for(;0!==g;){var c=a;a=g;g=c%g|0}return a}function Qd(a){return 1===a?0:1}function Wc(a,g,c,p,b,d,f){if(-1!==g.indexOf("\n")){var e=Infinity,m=-Infinity,k=Infinity,h=-Infinity;g.split("\n").forEach(function(g){g=Wc(a,g,c,p,b,d);e>g.left&&(e=g.left);m<g.right&&(m=g.right);k>g.top&&(k=g.top);h<g.bottom&&(h=g.bottom);p+=f});return{left:e,right:m,top:k,bottom:h}}var l=a.measureText(g);a.fillText(g,c-l.width*b,p);return{left:c-l.width*b,right:c+l.width*(1-b),top:p-.84*d,
-bottom:p+.36*d}}function cb(a){return"image"===a.ctype?a.value:"string"===a.ctype&&ab.hasOwnProperty(a.value)?ab[a.value].value:null}function Xc(a){return a.replace(/[^A-Za-z0-9 \u0080-\uffff]/ig,"\\$&")}function ea(a,g,c){var p=a;g&&(p=p+" at "+g.row+":"+g.col);c&&(p=p+": \u2018"+c+"\u2019");p=Error(p);p.name="CindyScriptParseError";p.description=a;p.location=g;p.text=c;return p}function mb(a){this.input=a;this.re=new RegExp(Yc,"g");for(var g=[],c=a.indexOf("\n")+1;c;)g.push(c),c=a.indexOf("\n",
-c)+1;g.push(a.length);this.bols=g;this.bol=this.pos=0;this.line=1}function Pb(a){var g=a[a.length-2],c=a[a.length-3],p=a[a.length-1];if(c){if(c.isSuperscript&&g.precedence<=c.precedence)throw ea("Operator not allowed after superscript",g.start,g.text);if(p){if(!g.op.infix)throw ea("Operator may not be used infix",g.start,g.text);}else if(!g.op.postfix)throw ea("Operator may not be used postfix",g.start,g.text);}else if(p){if(!g.op.prefix)throw ea("Operator may not be used prefix",g.start,g.text);
-}else if(!g.op.bare)throw ea("Operator without operands",g.start,g.text);g.ctype="infix";g.oper=g.op.sym;g.args=[c,p];a.splice(a.length-3,3,g)}function Zc(a,g,c,p){a.length&1||a.push(null);for(c=wa[c];3<=a.length&&a[a.length-2].precedence<=c.precedence;)Pb(a);a.push({op:c,precedence:c.precedence+(c.rassoc?1:0),start:g.start,end:g.end,text:g.text,rawtext:g.rawtext});c="";for(var b=g.text,d=0;d<b.length;++d)c+="0123456789+-".charAt(p.indexOf(b.charAt(d)));g.ctype="number";g.value={real:+c,imag:0};a.push(g);
-Pb(a)}function $c(a,g){var c=[],p;a:for(;;)switch(p=a.next(),p.toktype){case "OP":var b=wa[p.text];"_"!==b.sym||!c.length||c.length&1||"OP"!==c[c.length-1].toktype||":="!==c[c.length-1].op.sym||(c.pop(),b=wa[":=_"],p.text=b.sym);p.op=b;p.precedence=b.precedence;for(c.length&1||c.push(null);3<=c.length&&c[c.length-2].precedence<=p.precedence;)Pb(c);b.rassoc&&p.precedence++;c.push(p);break;case "ID":p.ctype="variable";p.name=p.text;if(c.length&1)throw ea("Missing operator",p.start,p.text);c.push(p);
-break;case "NUM":p.ctype="number";p.value={real:+p.text,imag:0};if(c.length&1)throw ea("Missing operator",p.start,p.text);c.push(p);break;case "STR":p.ctype="string";p.value=p.raw.substring(1,p.raw.length-1);if(c.length&1)throw ea("Missing operator",p.start,p.text);c.push(p);break;case "SUB":Zc(c,p,"_","\u2080\u2081\u2082\u2083\u2084\u2085\u2086\u2087\u2088\u2089\u208a\u208b");break;case "SUP":Zc(c,p,"^","\u2070\u00b9\u00b2\u00b3\u2074\u2075\u2076\u2077\u2078\u2079\u207a\u207b");c[c.length-1].isSuperscript=
-!0;break;case "BRA":b="[](){}||".indexOf(p.text);if(p.text===g||b&1)break a;var b="[](){}||".charAt(b+1),d=$c(a,b),f=d.closedBy;if(f.text!==b)throw ea("Opening "+p.text+" at "+p.start.row+":"+p.start.col+" closed by "+(f.text||"EOF")+" at "+f.start.row+":"+f.start.col);f=p.text+f.text;b=[];if(d=d.expr){for(;d&&"infix"===d.ctype&&","===d.oper;)b.push(d.args[0]),d=d.args[1];b.push(d)}if(c.length&1){if("{}"===f)throw ea("{\u2026} reserved for future use",p.start);d=c[c.length-1];if("variable"!==d.ctype)throw ea("Function name must be an identifier",
-d.start);if(2<c.length&&c[c.length-2].precedence<ad)throw ea("Function call in indexing construct must be enclosed in parentheses",p.start);d.ctype="function";p=d.args=[];for(var f=d.modifs={},e=0;e<b.length;++e){var m=b[e];if(m&&"infix"===m.ctype&&"->"===m.oper){var k=m.args[0];if("variable"!==k.ctype)throw ea("Modifier name must be an identifier",m.start);f[k.name]=m.args[1]}else p.push(m)}d.oper=d.name.toLowerCase()+"$"+d.args.length}else if("||"===f)if(1===b.length)c.push({ctype:"function",oper:"abs_infix",
-args:b,modifs:{}});else if(2===b.length)c.push({ctype:"function",oper:"dist_infix",args:b,modifs:{}});else throw ea("Don't support |\u2026| with "+b.length+" arguments",p.start);else{if("{}"===f)throw ea("{\u2026} reserved for future use",p.start);"[]"!==f&&1===b.length?c.push({ctype:"paren",args:b}):0===b.length?c.push({ctype:"list",value:[]}):c.push({ctype:"function",oper:"genList",args:b,modifs:{}})}break;case "EOF":break a}for(c.length&1||c.push(null);3<=c.length;)Pb(c);return{expr:c[0],closedBy:p}}
-function Db(a){this.usedFunctions={};this.usedVariables={}}function A(a){if(void 0===a)return k;if("infix"===a.ctype)return a.impl(a.args,{},a);if("variable"===a.ctype)return A(J.getvar(a.name));if("function"===a.ctype)return D.evaluate(a.oper,a.args,a.modifs);if("void"===a.ctype)return k;if("field"===a.ctype){var g=A(a.obj);return"geo"===g.ctype?xa.getField(g.value,a.key):"list"===g.ctype?f.getField(g,a.key):k}return a}function C(a){a=A(a);if("geo"===a.ctype){var g=a.value;if("P"===g.kind)return xa.getField(g,
-"xy");if("V"===g.kind)return g.value}return a}function M(a){a=A(a);if("geo"===a.ctype){var g=a.value;if("P"===g.kind||"L"===g.kind)return xa.getField(g,"homog")}return f._helper.isNumberVecN(a,3)?a:f._helper.isNumberVecN(a,2)?(g=f.turnIntoCSList([a.value[0],a.value[1],m.real(1)]),a.usage&&(g=v.withUsage(g,a.usage)),g):k}function Ma(a){var g=new Db;g.usedFunctions=Mc;g.infixmap=P;a=g.parse(a);for(var c in g.usedVariables)J.create(c);return a}function bd(){this._path=[];this._defs=["<defs>"];this._imgcache=
-[];this._body=[];this._saveStack=[""];this._clipIndex=0;this._stroke=this._fill="#000";this._strokeOpacity=this._fillOpacity=null;this.height=this.width=0;this.lineWidth=1;this.lineCap="butt";this.lineJoin="miter";this.miterLimit=10;this.globalAlpha=1}function cd(){this._body=[];this._yPos=this._xPos=NaN;this._extGState={Af255:"<< /ca 1 >>",As255:"<< /CA 1 >>"};this._objects=[["%PDF-1.4\n"]];this._offset=this._objects[0][0].length;this._nextIndex=5;this._imgcache=[];this._xobjects={};this._pathUsed=
--1;this._fillAlpha=this._strokeAlpha=this._globalAlpha=1;this.height=this.width=0;this.lineWidth=1;this.lineCap="butt";this.lineJoin="miter";this.miterLimit=10}function dd(a,g){var c=a.width,p=a.height,b=document.createElement("canvas");b.setAttribute("width",c);b.setAttribute("height",p);b.setAttribute("style","display:none;");var d=qa.canvas;d.parentNode.insertBefore(b,d.nextSibling);try{return b.getContext("2d").drawImage(a,0,0,c,p),b.toDataURL(g||"image/png")}finally{b.parentNode.removeChild(b)}}
-function Rd(a){a=a.replace(RegExp("[^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/]+","g"),"");var g=new Uint8Array(3*a.length>>2),c,p,b,d,f,e;for(p=c=0;c+3<a.length;c+=4)b="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c)),d="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+1)),f="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+2)),e="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+
-3)),g[p++]=b<<2|d>>4,g[p++]=d<<4|f>>2,g[p++]=f<<6|e;switch(a.length-c){case 0:break;case 2:b="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c));d="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+1));g[p++]=b<<2|d>>4;break;case 3:b="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c));d="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+1));f="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/".indexOf(a.charAt(c+
-2));g[p++]=b<<2|d>>4;g[p++]=d<<4|f>>2;break;default:throw Error("Malformed Base64 input: "+(a.length-c)+" chars left: "+a.substr(c));}if(p!==g.length)throw Error("Failed assertion: "+p+" should be "+g.length);return g}function Sd(a){function g(c){return(a[c]<<24|a[c+1]<<16|a[c+2]<<8|a[c+3])>>>0}if(57>a.length)throw Error("Too short to be a PNG file");if(2303741511!==g(0)||218765834!==g(4))throw Error("PNG signature missing");for(var c=[],p=8;p<a.length;){if(p+12>a.length)throw Error("Incomplete chunk at offset 0x"+
-p.toString(16));var b=g(p);if(2147483648<=b)throw Error("Chunk too long");var d=p+12+b;if(d>a.length)throw Error("Incomplete chunk at offset 0x"+p.toString(16));var f=a.subarray(p+4,p+8),f=String.fromCharCode.apply(String,f);c.push({len:b,type:f,data:a.subarray(p+8,p+8+b),crc:g(p+8+b)});p=d}return c}function Qb(a,g){var c;if(c=/^rgba\(([0-9]+), *([0-9]+), *([0-9]+), *([0-9]+)\)$/.exec(a))g(+c[1],+c[2],+c[3],+c[4]);else if(c=/^rgb\(([0-9]+), *([0-9]+), *([0-9]+)\)$/.exec(a))g(+c[1],+c[2],+c[3],1);
-else throw Error("Can't handle color style "+a);}function Td(a){var g=1;Object.keys(ab).forEach(function(c){var p=ab[c].value.img;if(void 0===p.cachedDataURL&&p.src)if("data:"===p.src.substr(0,5))p.cachedDataURL=p.src;else{++g;p.cachedDataURL=null;var b=new XMLHttpRequest;b.responseType="blob";b.onreadystatechange=function(){if(b.readyState===XMLHttpRequest.DONE)if(200===b.status){var c=new FileReader;c.onloadend=function(){p.cachedDataURL=c.result;console.log("Cached data for image "+p.src);0===
---g&&a()};c.readAsDataURL(b.response)}else console.error("Failed to load "+p.src+": "+b.statusText),0===--g&&a()};b.open("GET",p.src,!0);b.send()}});0===--g&&a()}function nb(a,g,c){for(c||(c="0");a.length<g;)a=c+a;return a}function ed(){null!==Eb&&(window.URL.revokeObjectURL(Eb),Eb=null)}function fd(a,g){Td(function(){var c=z;try{z=new a;z.width=W;z.height=V;e();var p=z.toBlob();ed();Eb=window.URL.createObjectURL(p);g.location.href=Eb}finally{z=c}})}function Fb(a){var g=null,c=1E6,p;console.log("getElementAtMouse");
-for(var b=0;b<u.gslp.length;b++){var d=u.gslp[b];if(!d.pinned&&!1!==d.visible&&!0!==d.tmp){var e,k,h,l=x.drawingstate.matrix.sdet;if("P"===d.kind){var n=f.normalizeZ(d.homog);if(!f._helper.isAlmostReal(n))continue;e=n.value[0].value.real-a.x;k=n.value[1].value.real-a.y;h=Math.sqrt(e*e+k*k);d.narrow&h>20/l&&(h=1E4)}else if("C"===d.kind)k=u.csnames[d.args[0]],h=0,"undefined"!==typeof d.radius&&(h=d.radius.value.real),e=m.div(k.homog.value[0],k.homog.value[2]).value.real,k=m.div(k.homog.value[1],k.homog.value[2]).value.real,
-e-=a.x,k-=a.y,h=Math.sqrt(e*e+k*k)-h,k=e=0,0>h&&(h=-h),h+=30/l;else if("L"===d.kind||"S"===d.kind)e=d.homog,h=m,k=h.add(h.mult(e.value[0],h.conjugate(e.value[0])),h.mult(e.value[1],h.conjugate(e.value[1]))),k=f.scaldiv(h.sqrt(k),e),h=k.value[0].value.real*a.x+k.value[1].value.real*a.y+k.value[2].value.real,e=k.value[0].value.real*h,k=k.value[1].value.real*h,0>h&&(h=-h),h+=1;h<c+.2/l&&(c=h,g=d,p={x:e,y:k})}}return null===g?null:{mover:g,offset:p,prev:{x:a.x,y:a.y}}}function Pa(){return"P"+Ud++}function sb(a){var g=
-F[oc].actions;g[tb].event===a&&g[tb]["do"]()&&(b(),tb===g.length-1?(ta=[],tb=Qa=0):tb++)}function pc(a){return a&&.5>Math.abs(a.offset.x)&&.5>Math.abs(a.offset.y)&&!a.mover.tmp}function gd(a){return pc(a)&&"P"===a.mover.kind}function hd(a){return pc(a)&&("L"===a.mover.kind||"S"===a.mover.kind)}function qc(a){aa={mover:a,offset:{x:0,y:0},prev:{x:U.x,y:U.y}}}function ob(){var a=Fb(U);gd(a)?ta[Qa]=a.mover:(ta[Qa]={type:"Free",name:Pa(),labeled:!0,pos:[sa[0],sa[1],1]},Da(ta[Qa]));Qa++}function id(){var a=
-Fb(U);return hd(a)?(ta[Qa]=a.mover,Qa++,!0):!1}function jd(){var a=Fb(U),g;(g=hd(a))||(g=pc(a)&&"C"===a.mover.kind);return g?(ta[Qa]=a.mover,Qa++,!0):!1}function ub(){var a=Fb(U);if(gd(a))for(Gb.args[1]=a.mover.name,a=0;a<u.gslp.length;a++){var g=u.gslp[a];!0===g.tmp&&kd(g.name)}else for(a=0;a<u.gslp.length;a++)g=u.gslp[a],!0===g.tmp&&(g.tmp=!1)}function Rb(a){var g={type:"Free",name:Pa(),labeled:!0,pos:[sa[0],sa[1],1],tmp:!0},g=Da(g);Gb=Da({type:a,name:Pa(),labeled:!0,args:[ta[0].name,g.name]});
-qc(g)}function Vd(a){for(var g in a)null!==a[g]&&(ja[g]=a[g])}function Hd(a){Object.keys(n).forEach(function(a){var c=n[a];db(c.signature||"_helper"===a,a+" has no signature");void 0!==c.updatePosition&&void 0===c.stateSize&&(c.stateSize=0)});u.gslp=[];u.csnames={};u.points=[];u.lines=[];u.conics=[];u.texts=[];u.free=[];u.polygons=[];a.forEach(ld);md()}function nd(a){"undefined"===typeof a.tracedim&&(a.tracedim=1);"undefined"===typeof a.tracelength&&(a.tracelength=100);"undefined"===typeof a.traceskip&&
-(a.traceskip=1);a._traces=Array(a.tracelength);a._traces_index=0;a._traces_tick=0}function Wd(a){void 0===a.size&&(a.size=ja.pointSize);a.size=m.real(a.size);!a.movable||a.pinned?(a.color=f.realVector(a.color||ja.pointColor),a.color=f.scalmult(m.real(ja.dimDependent),a.color)):a.color=f.realVector(a.color||ja.pointColor);void 0===a.alpha&&(a.alpha=ja.alpha);a.alpha=m.real(a.alpha);a.drawtrace&&nd(a)}function Sb(a){void 0===a.size&&(a.size=ja.lineSize);a.size=m.real(a.size);a.color=f.realVector(a.color||
-ja.lineColor);void 0===a.alpha&&(a.alpha=ja.alpha);a.alpha=m.real(a.alpha);a.clip=v.string(a.clip||ja.clip);void 0===a.overhang&&(a.overhang=ja.overhangLine);a.overhang=m.real(a.overhang);a.dashtype&&(a.dashtype=v.wrap(a.dashtype))}function Xd(a){void 0===a.overhang&&(a.overhang=ja.overhangSeg);a.arrow&&(a.arrow=v.bool(a.arrow));a.arrowsize&&(a.arrowsize=m.real(a.arrowsize));a.arrowposition&&(a.arrowposition=m.real(a.arrowposition));a.arrowshape&&(a.arrowshape=v.string(a.arrowshape));a.arrowsides&&
-(a.arrowsides=v.string(a.arrowsides));Sb(a);a.clip=v.string("end")}function Yd(a){a.size=void 0!==a.textsize?a.textsize:void 0!==a.size?a.size:ja.textsize;a.size=m.real(+a.size)}function Zd(a){a.filled=void 0!==a.filled?v.bool(a.filled):v.bool(!0);a.fillcolor=void 0===a.fillcolor?k:f.realVector(a.fillcolor);void 0===a.fillalpha&&(a.fillalpha=0);a.fillalpha=m.real(a.fillalpha);Sb(a)}function Da(a){a=ld(a);md();return a}function ld(a){var g;if(void 0!==u.csnames[a.name])return console.log("Element name '"+
-a.name+"' already exists"),g=u.csnames[a.name],n[g.type].isMovable&&Ea(g,a.pos,"homog"),{ctype:"geo",value:g};if(g=od[a.type]){var c=g(a),p=null;for(g=0;g<c.length;++g)p=Da(c[g]);return p}var b=n[a.type],c=!1;if(!b)return console.error(a),console.error("Operation "+a.type+" not implemented yet"),null;if("**"!==b.signature)if(!Array.isArray(b.signature)&&"*"===b.signature.charAt(1))c=!0,a.args.forEach(function(c){if(u.csnames[c].kind!==b.signature.charAt(0))return console.error("Not all elements in set are of same type: "+
-a.name+" expects "+b.signature+" but "+c+" is of kind "+u.csnames[c].kind),"undefined"!==typeof window&&window.alert("Not all elements in set are of same type: "+a.name),null});else if(b.signature.length!==(a.args?a.args.length:0))return console.error("Wrong number of arguments for "+a.name+" of type "+a.type),"undefined"!==typeof window&&window.alert("Wrong number of arguments for "+a.name),null;if(a.args)for(g=0;g<a.args.length;++g){if(!u.csnames.hasOwnProperty(a.args[g]))return console.log("Dropping "+
-a.name+" due to missing argument "+a.args[g]),null;if("**"!==b.signature&&!c&&(p=u.csnames[a.args[g]].kind,b.signature[g]!==p&&("S"!==p||"L"!==b.signature[g])))return window.alert("Wrong argument kind "+p+" as argument "+g+" to element "+a.name+" of type "+a.type),null}b.signatureConstraints&&!b.signatureConstraints(a)&&window.alert("signature constraints violated for element "+a.name);u.gslp.push(a);u.csnames[a.name]=a;g=ya.length;a.kind=b.kind;a.stateIdx=g;g+=b.stateSize;a.incidences=[];a.isshowing=
-!0;a.movable=!1;b.isMovable&&(a.movable=!0,u.free.push(a));"P"===a.kind&&(u.points.push(a),Wd(a));"L"===a.kind&&(u.lines.push(a),Sb(a));"C"===a.kind&&(u.conics.push(a),Sb(a));"S"===a.kind&&(u.lines.push(a),Xd(a));"Text"===a.kind&&(u.texts.push(a),Yd(a));"Poly"===a.kind&&(u.polygons.push(a),Zd(a));$d(g);ma=Fa=ya;eb=!0;b.initialize&&(ua=za=a.stateIdx,a.param=b.initialize(a),db(za===a.stateIdx+b.stateSize,"State fully initialized"));ua=za=a.stateIdx;b.updatePosition(a,!1);db(ua===a.stateIdx+b.stateSize,
-"State fully consumed");db(za===a.stateIdx+b.stateSize,"State fully updated");eb=!1;ma=bb["in"];ma.set(ya);Fa=bb.out;rc(a,b);Tb={};fb(a);return u.csnames[a.name]}function kd(a){var g,c;console.log("Remove element "+a);delete u.csnames[a];for(g=0;g<u.gslp.length;g++)c=u.gslp[g],c.name===a&&(console.log("Removed element from gslp "+a),u.gslp.splice(g,1));for(g=0;g<u.free.length;g++)c=u.free[g],c.name===a&&(console.log("Removed element from free "+a),u.free.splice(g,1));for(g=0;g<u.points.length;g++)c=
-u.points[g],c.name===a&&(console.log("Removed element from points "+a),u.points.splice(g,1));for(g=0;g<u.lines.length;g++)c=u.lines[g],c.name===a&&(console.log("Removed element from lines "+a),u.lines.splice(g,1));for(g=0;g<u.conics.length;g++)c=u.conics[g],c.name===a&&(console.log("Removed element from conics "+a),u.conics.splice(g,1));Tb={}}function pd(a,g){var c=u.csnames[g.args[0]].homog,p=u.csnames[g.args[1]].homog,b=a.homog,d=m.div(c.value[0],c.value[2]),c=m.div(c.value[1],c.value[2]),f=m.div(p.value[0],
-p.value[2]),p=m.div(p.value[1],p.value[2]),e=m.div(b.value[0],b.value[2]),b=m.div(b.value[1],b.value[2]);return m._helper.isAlmostReal(d)&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(f)&&m._helper.isAlmostReal(p)&&m._helper.isAlmostReal(e)&&m._helper.isAlmostReal(b)?(d=d.value.real,c=c.value.real,f=f.value.real,p=p.value.real,e=e.value.real,b=b.value.real,d=Math.sqrt((d-f)*(d-f)+(c-p)*(c-p))-Math.sqrt((d-e)*(d-e)+(c-b)*(c-b))-Math.sqrt((f-e)*(f-e)+(p-b)*(p-b)),1E-15>d*d):!1}function rc(a,g){a.isshowing=
-!0;if(a.args)for(var c=0;c<a.args.length;c++)if(!u.csnames[a.args[c]].isshowing){a.isshowing=!1;return}g.visiblecheck&&g.visiblecheck(a)}function Nd(a){a._bbox=null;if(a.isshowing&&!1!==a.visible){var g={size:a.size},c=a.homog,p=a.text,b=n[a.type].getText,p=b?b(a):p.replace(/@[$#]"([^"\\]|\\.)*"/g,function(a){var c,g;try{if(c=JSON.parse(a.substring(2)),g=u.csnames[c],!g)return"?"}catch(p){return"?"}switch(a.charAt(1)){case "$":return g.printname||c;case "#":return"V"!==g.kind?"?":w(g.value)}}),b=
-null;if(a.html)var d=a._textCache||{text:!1},f=a.html,e=f.parentNode,m=e.parentNode,b=function(c,g,p,b,ba){d.invisible&&m.style.removeProperty("display");if(c!==d.text||g!==d.font||p!==d.x||b!==d.y||ba!==d.align){g!==d.font&&(f.style.font=g,f.style.lineHeight=ja.lineHeight);c!==d.text&&!1!==c&&!1===qd(f,c,g)&&(c=!1);m.style.left=p+"px";m.style.top=b+"px";if(ba||e.style.transform)e.style.transform="translateX("+-100*ba+"%)";a._textCache={text:c,font:g,x:p,y:b,align:ba}}};p=v.string(p);a.dock&&(a.dock.to?
-c=u.csnames[a.dock.to].homog:rd.hasOwnProperty(a.dock.corner)&&(c=t.screenbounds$0([],{}),c=c.value[rd[a.dock.corner]]),g.offset=a.dock.offset);a.align&&(g.align=v.string(a.align));c&&(a._bbox=D.drawtext([c,p],g,b))}else a.html&&(a.html.parentNode.parentNode.style.display="none",a._textCache={invisible:!0})}function Md(){function a(){var a=e++/c._traces.length,g=c._traces[f];g&&(a*=p*a*a,t.draw$1([g],{size:m.real(b),color:c.color,alpha:m.real(a)}));b*=d}for(var g=0;g<u.points.length;g++){var c=u.points[g];
-if(c.drawtrace){c._traces_tick===c.traceskip?(c._traces[c._traces_index]=c.homog,c._traces_index=(c._traces_index+1)%c._traces.length,c._traces_tick=0):c._traces_tick++;var p=c.alpha.value.real,b=c.size.value.real,d=1;1!==c.tracedim&&(b*=c.tracedim,d=Math.pow(c.tracedim,-1/c._traces.length));var f,e=0;for(f=c._traces_index;f<c._traces.length;++f)a();for(f=0;f<c._traces_index;++f)a()}}}function db(a,g){var c="Assertion failed: "+g;if(!a)throw console.log(c),La(),"undefined"!==typeof alert&&alert(c),
-Error(c);}function $d(a){if(a!==ya.length){var g,c,p=sc.length;gb.length<a*p?(g=2*a,gb=new Float64Array(p*g)):g=gb.length/p|0;for(c=0;c<p;++c)bb[sc[c]]=gb.subarray(c*g,c*g+a);a=ya;ma=bb["in"];Fa=bb.out;ya=bb.good;ya.set(a)}}function lb(){ya.set(ma);sd(!1);for(var a=ya.length,g=Math.abs,c=0;c<a;c+=2)g(ya[c])>1E12*g(ya[c+1])&&(ya[c+1]=0)}function Ub(){if(vb)Ga=!0;else throw td;}function ud(a,g,c,p,b){return v.add(p,v.mult(c,v.sub(b,p)))}function Ld(){I&&(I.currentMouseAndScripts=[]);tc=!0;Ga=!1;ma.set(ya);
-if(aa){var a=aa.mover,g=f.realVector([U.x+aa.offset.x,U.y+aa.offset.y,1]);uc(a,g,"mouse");aa.prev.x=U.x;aa.prev.y=U.y}A(ia.move);A(ia.draw);Ga||lb();tc=!1;I&&(I.fullLog.push(f.turnIntoCSList([f.turnIntoCSList(I.currentMouseAndScripts)])),I.length>I.logLength&&I.splice(0,I.length-I.logLength),I.currentMouseAndScripts=null,I.postMouseHooks.forEach(function(a){a()}))}function Ea(a,g,c){tc?uc(a,g,c):(lb(),Ga=!1,uc(a,g,c),lb())}function uc(a,g,c){I&&I.currentMouseAndScripts&&(I.currentMover=[]);Fa.set(ma);
-var p=1E4,b;b=Tb[a.name];if(!b){var d={},e=0;b=[];d[a.name]=a;for(var k=u.gslp,h=0;h<k.length;++h){var l=k[h],rb=l.args;if(rb)for(var q=0;q<rb.length;++q)d.hasOwnProperty(rb[q])&&(d[l.name]=l,b[e++]=l)}Tb[a.name]=b}var d=-1,e=.9,r,t,w,k=n[a.type],h=k.parameterPath||ud;ua=a.stateIdx;l=k.getParamFromState(a);ua=za=a.stateIdx;rb=k.getParamForInput(a,g,c);for(q=d+e;d!==q;){var y=q*q,x=.5/(1+y),x=m.complex(2*q*x+.5,(1-y)*x);vb=d+.5*e<=d||0===p;0===p&&console.log("tracing limit Reached");y=!1;I&&I.currentMouseAndScripts&&
-(I.currentStep=[]);try{ua=za=a.stateIdx;var z=h(a,q,x,l,rb);I&&(I.currentParam=z);x=Fa;Fa=ma;k.putParamToState(a,z);Fa=x;za=a.stateIdx;I&&(I.currentElement=a);k.updatePosition(a,!0);db(ua===a.stateIdx+k.stateSize,"State fully consumed");db(za===a.stateIdx+k.stateSize,"State fully updated");for(r=0;r<b.length;++r)t=b[r],w=n[t.type],ua=za=t.stateIdx,I&&(I.currentElement=t),w.updatePosition(t,!1),db(ua===t.stateIdx+w.stateSize,"State fully consumed"),db(za===t.stateIdx+w.stateSize,"State fully updated");
-I&&(I.currentElement=null);d=q;e*=1.25;q+=e;1<=q&&(q=1);Fa=ma;ma=x}catch(A){if(A!==td)throw A;e*=.5;q=d+e;--p;y=!0}I&&I.currentMouseAndScripts&&(I.currentMover.push(f.turnIntoCSList([f.turnIntoCSList(I.currentStep),v.wrap(y),v.wrap(d),v.wrap(q),v.wrap(I.currentParam)])),I.currentStep=null,I.currentParam=null)}sd(Ga);for(r=0;r<b.length;++r)t=b[r],w=n[t.type],rc(t,w);I&&I.currentMouseAndScripts&&(I.currentMouseAndScripts.push(f.turnIntoCSList([f.turnIntoCSList(I.currentMover),v.wrap(Ga),v.wrap(a.name),
-g,v.wrap(c),l,rb])),I.currentMover=null)}function Id(){lb();vb=!0;for(var a=u.gslp,g=0;g<a.length;g++){var c=a[g],p=n[c.type];ua=za=c.stateIdx;p.updatePosition(c,!1);rc(c,p)}a=Fa;Fa=ma;ma=a;lb()}function sd(a){var g=q.tracingStateReport;"string"===typeof g&&(document.getElementById(g).textContent=a?"BAD":"GOOD")}function ae(){return f.turnIntoCSList(I.fullLog.slice())}function be(a){var g=JSON.stringify(I.fullLog);a=new Blob([g],{type:a?"application/octet-stream":"application/json"});return window.URL.createObjectURL(a)}
-function wb(){var a=ua;ua+=2;return m.complex(ma[a],ma[a+1])}function Z(a){for(var g=Array(a),c=0;c<a;++c)g[c]=wb();return f.turnIntoCSList(g)}function Va(a){Fa[za]=a.value.real;Fa[za+1]=a.value.imag;za+=2}function T(a){for(var g=0,c=a.value.length;g<c;++g)Va(a.value[g])}function Ha(a,g){var c=Z(3),p=Z(3),c=vd(a,g,c,p);T(c[0]);T(c[1]);return f.turnIntoCSList(c)}function vd(a,g,c,p){if(eb)return[a,g];var b=f.projectiveDistMinScal(c,a),d=f.projectiveDistMinScal(c,g),e=f.projectiveDistMinScal(p,a),m=
-f.projectiveDistMinScal(p,g),h=f.projectiveDistMinScal(c,p),l=f.projectiveDistMinScal(a,g),n=b+m,q=d+e,r;n>q?(r=[g,a],n=q):r=[a,g];q=function(){};if(I&&I.currentStep){var t=[I.labelTracing2,v.wrap(I.currentElement.name),f.turnIntoCSList(r),f.turnIntoCSList([c,p]),f.realMatrix([[b,d],[e,m]]),v.wrap(n),v.wrap(h),v.wrap(l),k];I.currentStep.push(f.turnIntoCSList(t));q=function(a){I.hasOwnProperty(a)||(I[a]=v.wrap(a));t[t.length-1]=I[a]}}f._helper.isNaN(a)||f._helper.isNaN(g)?(q("Tracing failed due to NaNs."),
-Ga=!0):h>3*n&&l>3*n?q("Normal case, everything all right."):1E-5>l?1E-5>h?q("Staying inside singularity."):(q("Moved into singularity."),Ga=!0):1E-5>h?q("Moved out of singularity."):(vb?q("Reached refinement limit, giving up."):q("Need to refine."),Ub());return r}function vc(a,g,c,p){var b=Z(3),d=Z(3),e=Z(3),m=Z(3);a=ce(a,g,c,p,b,d,e,m);T(a[0]);T(a[1]);T(a[2]);T(a[3]);return f.turnIntoCSList(a)}function ce(a,g,c,p,b,d,e,m){var h=function(){};b=[b,d,e,m];a=[a,g,c,p];if(eb)return a;d=0;p=Array(4);for(c=
-0;4>c;c++)for(p[c]=Array(4),m=0;4>m;m++)e=f.projectiveDistMinScal(b[c],a[m]),p[c][m]=e;e=Zb(p);g=Array(4);for(c=0;4>c;++c)g[c]=a[e[c]],d+=p[c][e[c]];var l=1*d,n=Infinity,q=Infinity;for(c=0;4>c;c++){if(f._helper.isNaN(a[c]))return h("Tracing failed due to NaNs."),Ga=!0,g;for(m=c+1;4>m;m++)e=f.projectiveDistMinScal(b[c],b[m]),n>e&&(n=e),e=f.projectiveDistMinScal(g[c],g[m]),q>e&&(q=e)}if(I&&I.currentStep){var r=[I.labelTracing4,v.wrap(I.currentElement.name),f.turnIntoCSList(g),f.turnIntoCSList(b),f.realMatrix(p),
-v.wrap(d),v.wrap(n),v.wrap(q),k];I.currentStep.push(f.turnIntoCSList(r));h=function(a){I.hasOwnProperty(a)||(I[a]=v.wrap(a));r[r.length-1]=I[a]}}n>l&&q>l||(1E-5>q?1E-5>n?h("Staying inside singularity."):(h("Moved into singularity."),Ga=!0):1E-5>n?h("Moved out of singularity."):(vb?h("Reached refinement limit, giving up."):h("Need to refine."),Ub()));return g}function wd(a){var g=a.length,c,p;if(eb){for(c=0;c<g;++c)ua+=2*a[c].value.length,T(a[c]);return a}var b=Array(g),d=Array(g),e=Array(g),m=99,
-h=99,l=Array(g);for(c=0;c<g;++c)b[c]=Z(a[c].value.length),d[c]=f.normSquared(b[c]).value.real,e[c]=f.normSquared(a[c]).value.real,l[c]=Array(g);var n;for(c=0;c<g;++c){for(p=0;p<g;++p)n=f.sesquilinearproduct(b[c],a[p]).value,n=(n.real*n.real+n.imag*n.imag)/(d[c]*e[p]),l[c][p]=1-n;for(p=c+1;p<g;++p)n=f.sesquilinearproduct(b[c],b[p]).value,n=(n.real*n.real+n.imag*n.imag)/(d[c]*d[p]),m>1-n&&(m=1-n),n=f.sesquilinearproduct(a[c],a[p]).value,n=(n.real*n.real+n.imag*n.imag)/(e[c]*e[p]),h>1-n&&(h=1-n)}n=Zb(l);
-p=Array(g);d=0;e=!1;for(c=0;c<g;++c){var d=d+l[c][n[c]],q=p[c]=a[n[c]];T(q);e|=f._helper.isNaN(q)}e|=isNaN(d);a=function(){};if(I&&I.currentStep){var r=[I.labelTracingSesq,v.wrap(I.currentElement.name),f.turnIntoCSList(p),f.turnIntoCSList(b),f.realMatrix(l),v.wrap(d),v.wrap(m),v.wrap(h),k];I.currentStep.push(f.turnIntoCSList(r));a=function(a){I.hasOwnProperty(a)||(I[a]=v.wrap(a));r[r.length-1]=I[a]}}e?(a("Tracing failed due to NaNs."),Ga=!0):m>3*d&&h>3*d?a("Normal case, everything all right."):1E-5>
-h?1E-5>m?a("Staying inside singularity."):(a("Moved into singularity."),Ga=!0):1E-5>m?a("Moved out of singularity."):(vb?a("Reached refinement limit, giving up."):a("Need to refine."),Ub());return p}function fb(a){if(fb.hasOwnProperty(a.kind))fb[a.kind](a)}function xd(a,g){return function(){a.incidences.push(g.name);g.incidences.push(a.name)}}function yd(a,g){return{toString:function(){return"point "+a.name+" incident line "+g.name},apply:xd(a,g),holds:function(){var c=f.scaldiv(f.abs(a.homog),a.homog),
-p=f.scaldiv(f.abs(g.homog),g.homog);return 1E-13>m.abs(f.scalproduct(c,p)).value.real}}}function zd(a,g){return{toString:function(){return"point "+a.name+" incident conic "+g.name},apply:xd(a,g),holds:function(){var c=v.mult(g.matrix,a.homog),c=v.mult(a.homog,c),c=m.abs(c);1E-13>c.value.real&&(a.incidences.push(g.name),g.incidences.push(a.name))}}}function md(){if(0!==hb.length){for(var a=0;a<hb.length;++a)hb[a].apply();hb=[]}}function wc(a,g,c){var p=document.createElement("div"),d=document.createElement("img");
-d.src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAPoCAQAAAC1v1zVAAAAGklEQVR42u3BMQEAAADCoPVPbQ0PoAAAgHcDC7gAAVI8ZnwAAAAASUVORK5CYII=";p.className="CindyJS-baseline";p.appendChild(d);d=document.createElement("div");d.className="CindyJS-button";p.appendChild(d);for(var f=2;f<arguments.length;++f)d.appendChild(arguments[f]);ga.parentNode.appendChild(p);a.html=arguments[arguments.length-1];p=b;if(a.script)var e=Ma(a.script),p=function(){A(e);b()};c.addEventListener(g,p);n.Text.initialize(a)}
-function Ka(){}function de(a){if(!/^Select/.test(a.type)&&!n[a.type].isMovable)return null;var g=v.unwrap,c=m.add;switch(a.kind){case "P":case "L":case "Text":return g(a.homog);case "C":return a=a.matrix.value,{xx:g(a[0].value[0]),yy:g(a[1].value[1]),zz:g(a[2].value[2]),xy:g(c(a[0].value[1],a[1].value[0])),xz:g(c(a[0].value[2],a[2].value[0])),yz:g(c(a[1].value[2],a[2].value[1]))};default:return null}}function ee(a){var g={};g.offset=v.unwrap(a.offset);a.to&&(g.to=a.to);a.corner&&(g.corner=a.corner);
-return g}function fe(a){var g={};ge.forEach(function(c){if(a.hasOwnProperty(c)){var b=v.unwrap(a[c]);null!==b&&void 0!==b&&(g[c]=b)}});if("P"===a.kind&&(!a.movable||a.pinned)&&g.color){var c=m.real(1/ja.dimDependent);g.color=v.unwrap(f.scalmult(c,a.color))}if(c=de(a))g.pos=c;a.dock&&(g.dock=ee(a.dock));return g}function he(){var a=[];u.gslp.forEach(function(g){g.tmp||a.push(fe(g))});return a}function Jd(){Aa.forEach(function(a){var g=(a.geo||[]).map(function(a){return u.csnames[a]});N[a.type].reset(a,
-g[0],g)})}function dc(a){hc=0!==a.length;Aa=[];ca=[];xc=[];N.Environment.init({});a.forEach(function(a){a.behavior?(a.name&&(a.behavior.geo=[a.name]),a=a.behavior,a.gravity&&(a.gravity=-a.gravity)):c=a.geo;var c=(a.geo||[]).map(function(a){return u.csnames[a]}),p=c[0],b=N[a.type];b?(b.init&&b.init(a,p,c),p&&(p.behavior=a,"Mass"===a.type?ca.push(p):"Spring"===a.type&&xc.push(p)),Aa.push(a)):(console.error(a),console.error("Behavior "+a.type+" not implemented yet"))})}var va=this,ha,ia={},Ua=!1,Nb=
-!0,Cb=0,Nc=.5,gc=0,Lb=10,Ad=5/360,Kd=.32/Ad/1E3*2,Jb=1,Ta=0,ac=0,bc=!1,zb=!1,ga,yb,Sa=Number.isFinite||function(a){return"number"===typeof a&&isFinite(a)},sa,z,W,V,u,ab,jc=k,kc=k,Na={play:Ka,pause:Ka,stop:Ka},fc=null,Ab=function(a,g){var c=[];Ab=function(a,g){c.push({img:a,id:g})};Ab(a,g);var p=va.getBaseDir()+"images/Icons.svg",b=new XMLHttpRequest;b.onreadystatechange=function(){if(b.readyState===XMLHttpRequest.DONE)if(200!==b.status)console.error("Failed to load CindyJS Icons.svg from "+p+": "+
-b.statusText);else{var a=b.responseXML,g=a.documentElement,d={},f,e;for(f=g.firstChild;f;f=e)e=f.nextSibling,f.nodeType===Node.ELEMENT_NODE&&"http://www.w3.org/2000/svg"===f.namespaceURI&&"g"===f.localName.toLowerCase()&&(g.removeChild(f),f.setAttribute("style","display:inline"),d[f.getAttribute("id")]=f);var m=new XMLSerializer;Ab=function(c,p){if(d.hasOwnProperty(p)){var b=d[p];g.appendChild(b);var f;try{f=m.serializeToString(a)}finally{g.removeChild(b)}c.src="data:image/svg+xml;charset=utf-8,"+
-encodeURIComponent(f)}};c.forEach(function(a){Ab(a.img,a.id)});c=null}};b.responseType="document";b.open("GET",p);b.send()},Oc=1,Bb=null,kb=[],ic=!1,qa={config:q,startup:Q,shutdown:La,evokeCS:function(a){a=Ma(a,!1);console.log(a);A(a);b()},play:S,pause:Za,stop:Ja,evalcs:function(a){return A(Ma(a,!1))},parse:function(a){return Ma(a)},niceprint:w,canvas:null},$b=!1,Kb=0;q.use&&q.use.forEach(function(a){var g=null;q.plugins&&(g=q.plugins[a]);g||(g=va._pluginRegistry[a]);g||(++Kb,console.log("Loading script for plugin "+
-a),va.loadScript(a+"-plugin",a+"-plugin.js",function(){console.log("Successfully loaded plugin "+a);0===--Kb&&$b&&Q()},function(){console.error("Failed to auto-load plugin "+a);0===--Kb&&$b&&Q()}))});jb.prototype=new $a;pb.prototype=new $a;Ya.prototype=new $a;var U={},aa,Pc="",Qc=0,Ob;Ob=q.isNode?process.nextTick:window.requestAnimationFrame||window.webkitRequestAnimationFrame||window.mozRequestAnimationFrame||window.oRequestAnimationFrame||window.msRequestAnimationFrame||function(a){window.setTimeout(a,
-0)};var lc=null,ie=[0,8,1,0,"ga578a63"],m={_helper:{}};m._helper.roundingfactor=1E4;m._helper.angleroundingfactor=10;m._helper.niceround=function(a,g){return Math.round(a*g)/g};m.niceprint=function(a,g){g=g||m._helper.roundingfactor;if("Angle"===a.usage)return m._helper.niceangle(a);var c=m._helper.niceround(a.value.real,g),p=m._helper.niceround(a.value.imag,g);return 0===p?""+c:0<p?""+c+" + i*"+p:""+c+" - i*"+-p};var yc=q.angleUnit||"\u00b0",je=yc.replace(/\s+/g,""),Bd=2*Math.PI,ke=1/Bd,le={rad:Bd,
-"\u00b0":360,deg:360,degree:360,gra:400,grad:400,turn:1,cyc:1,rev:1,rot:1,"\u03c0":2,pi:2,quad:4};m._helper.niceangle=function(a){var g=le[je];if(!g)return m.niceprint(v.withUsage(a,null));if("function"===typeof g)return g(a);a=m.niceprint(m.realmult(g*ke,a),200<g?m._helper.angleroundingfactor:null);return-1===a.indexOf("i*")?a+yc:"("+a+")"+yc};m.complex=function(a,g){return{ctype:"number",value:{real:a,imag:g}}};m.real=function(a){return{ctype:"number",value:{real:a,imag:0}}};m.zero=m.real(0);m.one=
-m.real(1);m.infinity=m.complex(Infinity,Infinity);m.nan=m.complex(NaN,NaN);m._helper.input=function(a){return"object"===typeof a?m.complex(+a.r,+a.i):m.real(+a)};m.argmax=function(a,g){return a.value.real*a.value.real+a.value.imag*a.value.imag<g.value.real*g.value.real+g.value.imag*g.value.imag?g:a};m.max=function(a,g){return{ctype:"number",value:{real:Math.max(a.value.real,g.value.real),imag:Math.max(a.value.imag,g.value.imag)}}};m.min=function(a,g){return{ctype:"number",value:{real:Math.min(a.value.real,
-g.value.real),imag:Math.min(a.value.imag,g.value.imag)}}};m.add=function(a,g){return{ctype:"number",value:{real:a.value.real+g.value.real,imag:a.value.imag+g.value.imag}}};m.sub=function(a,g){return{ctype:"number",value:{real:a.value.real-g.value.real,imag:a.value.imag-g.value.imag}}};m.neg=function(a){return{ctype:"number",value:{real:-a.value.real,imag:-a.value.imag}}};m.re=function(a){return{ctype:"number",value:{real:a.value.real,imag:0}}};m.im=function(a){return{ctype:"number",value:{real:a.value.imag,
-imag:0}}};m.conjugate=function(a){return{ctype:"number",value:{real:a.value.real,imag:-a.value.imag}}};m.round=function(a){return{ctype:"number",value:{real:Math.round(a.value.real),imag:Math.round(a.value.imag)}}};m.ceil=function(a){return{ctype:"number",value:{real:Math.ceil(a.value.real),imag:Math.ceil(a.value.imag)}}};m.floor=function(a){return{ctype:"number",value:{real:Math.floor(a.value.real),imag:Math.floor(a.value.imag)}}};m.mult=function(a,g){return{ctype:"number",value:{real:a.value.real*
-g.value.real-a.value.imag*g.value.imag,imag:a.value.real*g.value.imag+a.value.imag*g.value.real}}};m.realmult=function(a,g){return{ctype:"number",value:{real:a*g.value.real,imag:a*g.value.imag}}};m.multiMult=function(a){var g=a[0];if("number"!==g.ctype)return k;for(var c=1;c<a.length;c++){if("number"!==a[c].ctype)return k;g=m.mult(g,a[c])}return g};m.abs2=function(a,g){return{ctype:"number",value:{real:a.value.real*a.value.real+a.value.imag*a.value.imag,imag:0}}};m.abs=function(a){return m.sqrt(m.abs2(a))};
-m.inv=function(a){var g=a.value.real*a.value.real+a.value.imag*a.value.imag;return{ctype:"number",value:{real:a.value.real/g,imag:-a.value.imag/g}}};m.div=function(a,g){var c=a.value.real,p=a.value.imag,b=g.value.real,d=g.value.imag,f=b*b+d*d;return{ctype:"number",value:{real:(c*b+p*d)/f,imag:(p*b-c*d)/f}}};m.eps=1E-10;m.epsbig=1E-6;m.snap=function(a){var g=a.value.real;a=a.value.imag;Math.floor(g+m.eps)!==Math.floor(g-m.eps)&&(g=Math.round(g));Math.floor(a+m.eps)!==Math.floor(a-m.eps)&&(a=Math.round(a));
-return{ctype:"number",value:{real:g,imag:a}}};m.exp=function(a){var g=Math.exp(a.value.real);return{ctype:"number",value:{real:g*Math.cos(a.value.imag),imag:g*Math.sin(a.value.imag)}}};m.cos=function(a){var g=a.value.real;a=a.value.imag;var c=Math.exp(a),p=c*Math.sin(-g),b=c*Math.cos(-g),c=Math.exp(-a);return{ctype:"number",value:{real:(b+c*Math.cos(g))/2,imag:(p+c*Math.sin(g))/2}}};m.sin=function(a){var g=a.value.real;a=a.value.imag;var c=Math.exp(a),p=c*Math.sin(-g),b=c*Math.cos(-g),c=Math.exp(-a);
-return{ctype:"number",value:{real:-(p-c*Math.sin(g))/2,imag:(b-c*Math.cos(g))/2}}};m.tan=function(a){var g=m.sin(a);a=m.cos(a);return m.div(g,a)};m.arccos=function(a){var g=m.mult(a,m.neg(a)),g=m.sqrt(m.add(m.real(1),g));a=m.add(m.mult(a,m.complex(0,1)),g);a=m.add(m.mult(m.log(a),m.complex(0,1)),m.real(.5*Math.PI));return v.withUsage(a,"Angle")};m.arcsin=function(a){var g=m.mult(a,m.neg(a)),g=m.sqrt(m.add(m.real(1),g));a=m.add(m.mult(a,m.complex(0,1)),g);a=m.mult(m.log(a),m.complex(0,-1));return v.withUsage(a,
-"Angle")};m.arctan=function(a){var g=m.log(m.add(m.mult(a,m.complex(0,-1)),m.real(1)));a=m.log(m.add(m.mult(a,m.complex(0,1)),m.real(1)));g=m.mult(m.sub(g,a),m.complex(0,.5));return v.withUsage(g,"Angle")};m.arctan2=function(a,g){var c;if(void 0===g)c=m.real(Math.atan2(a.value.imag,a.value.real));else if(m._helper.isReal(a)&&m._helper.isReal(g))c=m.real(Math.atan2(g.value.real,a.value.real));else{c=m.add(a,m.mult(m.complex(0,1),g));var p=m.sqrt(m.add(m.mult(a,a),m.mult(g,g)));c=m.mult(m.complex(0,
--1),m.log(m.div(c,p)))}return v.withUsage(c,"Angle")};m.sqrt=function(a){var g=a.value.real,c=a.value.imag;a=Math.sqrt(Math.sqrt(g*g+c*c));g=Math.atan2(c,g);return{ctype:"number",value:{real:a*Math.cos(g/2),imag:a*Math.sin(g/2)}}};m.powRealExponent=function(a,g){var c=a.value.real,p=a.value.imag,b=Math.pow(Math.sqrt(c*c+p*p),g),c=Math.atan2(p,c);return{ctype:"number",value:{real:b*Math.cos(c*g),imag:b*Math.sin(c*g)}}};m.log=function(a){var g=a.value.real;a=a.value.imag;var c=Math.sqrt(g*g+a*a),p=
-Math.atan2(a,g);0>a&&(p+=2*Math.PI);0===a&&0>g&&(p=Math.PI);p>Math.PI&&(p-=2*Math.PI);return m.snap({ctype:"number",value:{real:Math.log(c),imag:p}})};m.pow=function(a,g){return m._helper.isZero(g)?m.one:m._helper.isZero(a)?m.zero:m._helper.isReal(g)?m.powRealExponent(a,g.value.real):m.exp(m.mult(m.log(a),g))};m.mod=function(a,g){var c=a.value.real,p=g.value.real,b=a.value.imag,d=g.value.imag,c=c-Math.floor(c/p)*p,b=b-Math.floor(b/d)*d;0===p&&(c=0);0===d&&(b=0);return m.snap({ctype:"number",value:{real:c,
-imag:b}})};m._helper.seed="NO";m._helper.seedrandom=function(a){a-=Math.floor(a);m._helper.seed=.8*a+.1};m._helper.rand=function(){if("NO"===m._helper.seed)return Math.random();var a=m._helper.seed,a=1E3*Math.sin(1E3*a),a=a-Math.floor(a);return m._helper.seed=a};m._helper.randnormal=function(){var a=m._helper.rand(),g=m._helper.rand();return Math.sqrt(-2*Math.log(a))*Math.cos(2*Math.PI*g)};m._helper.isEqual=function(a,g){return a.value.real===g.value.real&&a.value.imag===g.value.imag};m._helper.isLessThan=
-function(a,g){return a.value.real<g.value.real||a.value.real===g.value.real&&a.value.imag<g.value.imag};m._helper.compare=function(a,g){return m._helper.isLessThan(a,g)?-1:m._helper.isEqual(a,g)?0:1};m._helper.isAlmostEqual=function(a,g,c){var p=m.eps;"undefined"!==typeof c&&(p=c);c=a.value.real-g.value.real;a=a.value.imag-g.value.imag;return c<p&&c>-p&&a<p&&a>-p};m._helper.isZero=function(a){return 0===a.value.real&&0===a.value.imag};m._helper.isAlmostZero=function(a){var g=a.value.real;a=a.value.imag;
-return g<m.eps&&g>-m.eps&&a<m.eps&&a>-m.eps};m._helper.isReal=function(a){return 0===a.value.imag};m._helper.isAlmostReal=function(a){a=a.value.imag;return a<m.epsbig&&a>-m.epsbig};m._helper.isNaN=function(a){return isNaN(a.value.real)||isNaN(a.value.imag)};m._helper.isFinite=function(a){return isFinite(a.value.real)&&isFinite(a.value.imag)};m._helper.isAlmostImag=function(a){a=a.value.real;return a<m.epsbig&&a>-m.epsbig};m._helper.z3a=m.complex(-.5,.5*Math.sqrt(3));m._helper.z3b=m.complex(-.5,-.5*
-Math.sqrt(3));m._helper.cub1={ctype:"list",value:[m.one,m.one,m.one]};m._helper.cub2={ctype:"list",value:[m._helper.z3a,m.one,m._helper.z3b]};m._helper.cub3={ctype:"list",value:[m._helper.z3b,m.one,m._helper.z3a]};m.solveCubic=function(a,g,c,p){a=m._helper.solveCubicHelper(a,g,c,p);return[f.scalproduct(m._helper.cub1,a),f.scalproduct(m._helper.cub2,a),f.scalproduct(m._helper.cub3,a)]};m._helper.solveCubicHelper=function(a,g,c,p){var b=a.value.real;a=a.value.imag;var d=g.value.real;g=g.value.imag;
-var e=c.value.real,k=c.value.imag,h=p.value.real,l=p.value.imag,n=b*e-a*k;c=b*k+a*e;p=4*n-(d*d-g*g);var q=4*c-2*d*g,r=b*d-a*g,t=b*g+a*d,u=p*e-q*k-18*(r*h-t*l),q=p*k+q*e-18*(r*l+t*h);p=27*(b*b-a*a);var v=54*a*b,w=p*h-v*l,y=p*l+v*h,x=d*d-g*g,z=2*d*g,A=x*d-z*g,B=x*g+z*d,C=w+4*A,v=y+4*B;p=27*(u*e-q*k+C*h-v*l);q=27*(u*k+q*e+C*l+v*h);C=Math.sqrt(Math.sqrt(p*p+q*q));v=Math.atan2(q,p);q=C*Math.sin(v/2);p=C*Math.cos(v/2);A=-2*A+9*(r*e-t*k)-w+(p*b-q*a);B=-2*B+9*(r*k+t*e)-y+(p*a+q*b);p=Math.exp(Math.log(Math.sqrt(A*
-A+B*B))/3);e=Math.atan2(B,A);v=p*Math.sin(e/3);q=p*Math.cos(e/3);p*=p;e*=2;n=2*x-6*n;c=2*z-6*c;z=-1.5874010519681996*(d*q-g*v);d=-1.5874010519681996*(d*v+g*q);g=1.2599210498948732*p*Math.cos(e/3);e=1.2599210498948732*p*Math.sin(e/3);p=4.762203155904599*(q*b-v*a);q=4.762203155904599*(q*a+v*b);b=p*p+q*q;v=(-n*q+c*p)/b;n=(n*p+c*q)/b;c=v;v=(-z*q+d*p)/b;z=(z*p+d*q)/b;d=v;v=(-g*q+e*p)/b;g=(g*p+e*q)/b;e=v;return f.turnIntoCSList([m.complex(n,c),m.complex(z,d),m.complex(g,e)])};var f={_helper:{},turnIntoCSList:function(a){return{ctype:"list",
-value:a}}};f.EMPTY=f.turnIntoCSList([]);f.asList=function(a){return"list"===a.ctype?a:"number"===a.ctype||"boolean"===a.ctype||"geo"===a.ctype?f.turnIntoCSList([a]):f.EMPTY};f.realVector=function(a){for(var g=[],c=0;c<a.length;c++)g[c]={ctype:"number",value:{real:a[c],imag:0}};return{ctype:"list",value:g}};f._helper.unitvector=function(a,g){var c=f.zerovector(a);c.value[Math.floor(g.value.real-1)]=m.real(1);return c};f.idMatrix=function(a){for(var g=f.zeromatrix(a,a),c=m.real(1),p=0;p<a.value.real;p++)g.value[p].value[p]=
-c;return g};f._helper.flippedidMatrix=function(a){for(var g=f.zeromatrix(a,a),c=m.real(1),p=0;p<a.value.real;p++)g.value[p].value[a.value.real-p-1]=c;return g};f.println=function(a){for(var g=[],c=0;c<a.value.length;c++)if("number"===a.value[c].ctype)g[c]=m.niceprint(a.value[c]);else if("list"===a.value[c].ctype)f.println(a.value[c]);else return k;"number"===a.value[0].ctype&&console.log(g)};f.matrix=function(a){return f.turnIntoCSList(a.map(f.turnIntoCSList))};f.realMatrix=function(a){for(var g=
-a.length,c=Array(g),p=0;p<g;p++)c[p]=f.realVector(a[p]);return f.turnIntoCSList(c)};f.ex=f.realVector([1,0,0]);f.ey=f.realVector([0,1,0]);f.ez=f.realVector([0,0,1]);f.linfty=f.realVector([0,0,1]);f.ii=f.turnIntoCSList([m.complex(1,0),m.complex(0,1),m.complex(0,0)]);f.jj=f.turnIntoCSList([m.complex(1,0),m.complex(0,-1),m.complex(0,0)]);f.fundDual=f.realMatrix([[1,0,0],[0,1,0],[0,0,0]]);f.fund=f.realMatrix([[0,0,0],[0,0,0],[0,0,1]]);f.sequence=function(a,g){for(var c=[],p=0,b=Math.round(a.value.real);b<
-Math.round(g.value.real)+1;b++)c[p]={ctype:"number",value:{real:b,imag:0}},p++;return{ctype:"list",value:c}};f.pairs=function(a){for(var g=[],c=0;c<a.value.length-1;c++)for(var p=c+1;p<a.value.length;p++)g.push({ctype:"list",value:[a.value[c],a.value[p]]});return{ctype:"list",value:g}};f.triples=function(a){for(var g=[],c=0;c<a.value.length-2;c++)for(var p=c+1;p<a.value.length-1;p++)for(var b=p+1;b<a.value.length;b++)g.push({ctype:"list",value:[a.value[c],a.value[p],a.value[b]]});return{ctype:"list",
-value:g}};f.cycle=function(a){for(var g=[],c=0;c<a.value.length-1;c++)g[c]={ctype:"list",value:[a.value[c],a.value[c+1]]};g.push({ctype:"list",value:[a.value[a.value.length-1],a.value[0]]});return{ctype:"list",value:g}};f.consecutive=function(a){for(var g=[],c=0;c<a.value.length-1;c++)g[c]={ctype:"list",value:[a.value[c],a.value[c+1]]};return{ctype:"list",value:g}};f.reverse=function(a){for(var g=[],c=a.value.length-1;0<=c;c--)g.push(a.value[c]);return{ctype:"list",value:g}};f.directproduct=function(a,
-g){for(var c=[],p=0;p<a.value.length;p++)for(var b=0;b<g.value.length;b++)c.push({ctype:"list",value:[a.value[p],g.value[b]]});return{ctype:"list",value:c}};f.concat=function(a,g){for(var c=[],p=0;p<a.value.length;p++)c.push(a.value[p]);for(p=0;p<g.value.length;p++)c.push(g.value[p]);return{ctype:"list",value:c}};f.prepend=function(a,g){var c=[];c[0]=a;for(var p=0;p<g.value.length;p++)c[p+1]=g.value[p];return{ctype:"list",value:c}};f.append=function(a,g){for(var c=[],p=0;p<a.value.length;p++)c[p]=
-a.value[p];c.push(g);return{ctype:"list",value:c}};f.contains=function(a,g){for(var c=0;c<a.value.length;c++)if(D.equals(a.value[c],g).value)return{ctype:"boolean",value:!0};return{ctype:"boolean",value:!1}};f.common=function(a,g){for(var c=[],p=0,b=0;b<a.value.length;b++){for(var d=!1,f=a.value[b],e=0;e<g.value.length;e++)d=d||D.equals(f,g.value[e]).value;d&&(c[p]=a.value[b],p++)}return{ctype:"list",value:c}};f.remove=function(a,g){for(var c=[],p=0,b=0;b<a.value.length;b++){for(var d=!1,f=a.value[b],
-e=0;e<g.value.length;e++)d=d||D.equals(f,g.value[e]).value;d||(c[p]=a.value[b],p++)}return{ctype:"list",value:c}};f.sort1=function(a){a=a.value.slice();a.sort(v.compare);return f.turnIntoCSList(a)};f._helper.isEqual=function(a,g){return f.equals(a,g).value};f._helper.isLessThan=function(a,g){for(var c=a.value.length,p=g.value.length,b=0;!(b>=c||b>=p)&&v.isEqual(a.value[b],g.value[b]);)b++;return b===c&&b<p?!0:b===p&&b<c||b===c&&b===p?!1:v.isLessThan(a.value[b],g.value[b])};f._helper.compare=function(a,
-g){return f._helper.isLessThan(a,g)?-1:f._helper.isEqual(a,g)?0:1};f.equals=function(a,g){if(a.value.length!==g.value.length)return{ctype:"boolean",value:!1};for(var c=!0,p=0;p<a.value.length;p++)var b=a.value[p],d=g.value[p],c="list"===b.ctype&&"list"===d.ctype?c&&f.equals(b,d).value:c&&B([b,d],[]).value;return{ctype:"boolean",value:c}};f.almostequals=function(a,g){if(a.value.length!==g.value.length)return{ctype:"boolean",value:!1};for(var c=!0,p=0;p<a.value.length;p++)var b=a.value[p],d=g.value[p],
-c="list"===b.ctype&&"list"===d.ctype?c&&f.almostequals(b,d).value:c&&pa([b,d],[]).value;return{ctype:"boolean",value:c}};f._helper.isAlmostReal=function(a){for(var g=!0,c=0;c<a.value.length;c++)var p=a.value[c],g="list"===p.ctype?g&&f._helper.isAlmostReal(p):g&&m._helper.isAlmostReal(p);return g};f._helper.isAlmostZero=function(a){for(var g=0;g<a.value.length;g++){var c=a.value[g];if("list"===c.ctype){if(!f._helper.isAlmostZero(c))return!1}else if(!m._helper.isAlmostZero(c))return!1}return!0};f._helper.isNaN=
-function(a){for(var g=!1,c=0;c<a.value.length;c++)var p=a.value[c],g="list"===p.ctype?g||f._helper.isNaN(p):g||m._helper.isNaN(p);return g};f.set=function(a){var g=[],c=0;a=a.value.slice();a.sort(v.compare);for(var p=0;p<a.length;p++)0!==p&&B([g[g.length-1],a[p]],[]).value||(g[c]=a[p],c++);return{ctype:"list",value:g}};f.maxval=function(a){for(var g=m.zero,c=0;c<a.value.length;c++){var p=a.value[c];"number"===p.ctype&&(g=m.argmax(g,p));"list"===p.ctype&&(g=m.argmax(g,f.maxval(p)))}return g};f.maxIndex=
-function(a,g,c){var p=0;void 0!==c&&(p=c);c=p;for(var b=g(a.value[p]).value.real;p<a.value.length;++p){var d=g(a.value[p]).value.real;d>b&&(c=p,b=d)}return c};f.normalizeMax=function(a){var g=m.inv(f.maxval(a));return m._helper.isFinite(g)?f.scalmult(g,a):a};f.normalizeZ=function(a){var g=m.inv(a.value[2]);return f.scalmult(g,a)};f.dehom=function(a){a=a.value.slice();var g=a.length-1,c=m.inv(a[g]);a.length=g;for(var p=0;p<g;++p)a[p]=m.mult(c,a[p]);return f.turnIntoCSList(a)};f.normalizeAbs=function(a){var g=
-m.inv(f.abs(a));return f.scalmult(g,a)};f.max=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++)c[p]=v.max(a.value[p],g.value[p]);return{ctype:"list",value:c}};f.min=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++)c[p]=v.min(a.value[p],g.value[p]);return{ctype:"list",value:c}};f.scaldiv=function(a,g){if("number"!==a.ctype)return k;for(var c=[],p=0;p<g.value.length;p++){var b=g.value[p];c[p]="number"===b.ctype?
-v.div(b,a):"list"===b.ctype?f.scaldiv(a,b):k}return{ctype:"list",value:c}};f.scalmult=function(a,g){if("number"!==a.ctype)return k;for(var c=[],p=0;p<g.value.length;p++){var b=g.value[p];c[p]="number"===b.ctype?v.mult(b,a):"list"===b.ctype?f.scalmult(a,b):k}return{ctype:"list",value:c}};f.add=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++){var b=a.value[p],d=g.value[p];c[p]="number"===b.ctype&&"number"===d.ctype?v.add(b,d):"list"===b.ctype&&"list"===
-d.ctype?f.add(b,d):k}return{ctype:"list",value:c}};f.sub=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++){var b=a.value[p],d=g.value[p];c[p]="number"===b.ctype&&"number"===d.ctype?m.sub(b,d):"list"===b.ctype&&"list"===d.ctype?f.sub(b,d):k}return{ctype:"list",value:c}};f.abs2=function(a){for(var g=0,c=0;c<a.value.length;c++){var p=a.value[c];if("number"===p.ctype)g+=m.abs2(p).value.real;else if("list"===p.ctype)g+=f.abs2(p).value.real;else return k}return{ctype:"number",
-value:{real:g,imag:0}}};f.abs=function(a){return m.sqrt(f.abs2(a))};f.normalizeMaxXX=function(a){for(var g=-1E4,c=m.real(1),p=0;p<a.value.length;p++){var b=m.abs(a.value[p]);b.value.real>g&&(c=a.value[p],g=b.value.real)}return f.scaldiv(c,a)};f.recursive=function(a,g){for(var c=[],p=0;p<a.value.length;p++){var b=C(a.value[p]);c[p]="number"===b.ctype?m[g](b):"list"===b.ctype?f[g](b):k}return{ctype:"list",value:c}};f.re=function(a){return f.recursive(a,"re")};f.neg=function(a){return f.recursive(a,
-"neg")};f.im=function(a){return f.recursive(a,"im")};f.conjugate=function(a){return f.recursive(a,"conjugate")};f.transjugate=function(a){return f.transpose(f.conjugate(a))};f.round=function(a){return f.recursive(a,"round")};f.ceil=function(a){return f.recursive(a,"ceil")};f.floor=function(a){return f.recursive(a,"floor")};f._helper.colNumb=function(a){if("list"!==a.ctype)return-1;for(var g=-1,c=0;c<a.value.length;c++){if("list"!==a.value[c].ctype)return-1;if(0===c)g=a.value[c].value.length;else if(g!==
-a.value[c].value.length)return-1}return g};f._helper.isNumberVecN=function(a,g){if("list"!==a.ctype||a.value.length!==g)return!1;for(var c=0;c<a.value.length;c++)if("number"!==a.value[c].ctype)return!1;return!0};f.isNumberVector=function(a){if("list"!==a.ctype)return{ctype:"boolean",value:!1};for(var g=0;g<a.value.length;g++)if("number"!==a.value[g].ctype)return{ctype:"boolean",value:!1};return{ctype:"boolean",value:!0}};f.isNumberVectorN=function(a,g){if("list"!==a.ctype)return{ctype:"boolean",value:!1};
-if(a.value)for(var c=0;c<a.value.length;c++)if("number"!==a.value[c].ctype)return{ctype:"boolean",value:!1};return{ctype:"boolean",value:!0}};f.isNumberMatrix=function(a){if(-1===f._helper.colNumb(a))return{ctype:"boolean",value:!1};for(var g=0;g<a.value.length;g++)if(!f.isNumberVector(a.value[g]).value)return{ctype:"boolean",value:!1};return{ctype:"boolean",value:!0}};f.scalproduct=function(a,g){if(a.value.length!==g.value.length)return k;for(var c={ctype:"number",value:{real:0,imag:0}},p=0;p<g.value.length;p++){var b=
-a.value[p],d=g.value[p];if("number"===b.ctype&&"number"===d.ctype)c=m.add(m.mult(b,d),c);else return k}return c};f.sesquilinearproduct=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=0,p=0,b=0;b<g.value.length;b++)var d=a.value[b].value,f=g.value[b].value,c=c+(d.real*f.real+d.imag*f.imag),p=p+(d.real*f.imag-d.imag*f.real);return m.complex(c,p)};f.normSquared=function(a){for(var g=0,c=0;c<a.value.length;c++)var p=a.value[c].value,g=g+(p.real*p.real+p.imag*p.imag);return m.real(g)};
-f.productMV=function(a,g){if(a.value[0].value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++){for(var b={ctype:"number",value:{real:0,imag:0}},d=a.value[p],e=0;e<g.value.length;e++){var h=d.value[e],l=g.value[e];if("number"===h.ctype&&"number"===l.ctype)b=m.add(m.mult(h,l),b);else return k}c[p]=b}return f.turnIntoCSList(c)};f.productVM=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=[],p=0;p<g.value[0].value.length;p++){for(var b={ctype:"number",value:{real:0,
-imag:0}},d=0;d<a.value.length;d++){var e=a.value[d],h=g.value[d].value[p];if("number"===e.ctype&&"number"===h.ctype)b=m.add(m.mult(e,h),b);else return k}c[p]=b}return f.turnIntoCSList(c)};f.productMM=function(a,g){if(a.value[0].value.length!==g.value.length)return k;for(var c=[],p=0;p<a.value.length;p++){var b=f.productVM(a.value[p],g);c[p]=b}return f.turnIntoCSList(c)};f.mult=function(a,g){return a.value.length===g.value.length&&f.isNumberVector(a).value&&f.isNumberVector(g).value?f.scalproduct(a,
-g):f.isNumberMatrix(a).value&&g.value.length===a.value[0].value.length&&f.isNumberVector(g).value?f.productMV(a,g):f.isNumberMatrix(g).value&&a.value.length===g.value.length&&f.isNumberVector(a).value?f.productVM(a,g):f.isNumberMatrix(a).value&&f.isNumberMatrix(g)&&g.value.length===a.value[0].value.length?f.productMM(a,g):k};f.projectiveDistMinScal=function(a,g){var c=f.abs(a),p=f.abs(g);if(0===c.value.real||0===p.value.real)return 0;var b=f.conjugate(g),b=f.scalproduct(a,b),b=m._helper.isAlmostZero(b)?
-m.real(1):m.div(b,m.abs(b)),c=f.scaldiv(c,a),p=f.scaldiv(p,g),p=f.scalmult(b,p),b=f.abs(f.add(c,p)),p=f.abs(f.sub(c,p));return Math.min(b.value.real,p.value.real)};f.conicDist=function(a,g){var c=G(a),p=G(g);console.log(w(c),w(p));return f.projectiveDistMinScal(c,p)};f.crossOperator=function(a){var g=a.value[0],c=a.value[1];a=a.value[2];return f.turnIntoCSList([f.turnIntoCSList([m.zero,m.neg(a),c]),f.turnIntoCSList([a,m.zero,m.neg(g)]),f.turnIntoCSList([m.neg(c),g,m.zero])])};f.cross=function(a,g){var c=
-m.sub(m.mult(a.value[1],g.value[2]),m.mult(a.value[2],g.value[1])),p=m.sub(m.mult(a.value[2],g.value[0]),m.mult(a.value[0],g.value[2])),b=m.sub(m.mult(a.value[0],g.value[1]),m.mult(a.value[1],g.value[0]));return f.turnIntoCSList([c,p,b])};f.crossratio3harm=function(a,g,c,p,b){var d=f.det3(a,c,b),e=f.det3(g,p,b);a=f.det3(a,p,b);g=f.det3(g,c,b);d=m.mult(d,e);e=m.mult(a,g);return f.turnIntoCSList([d,e])};f.crossratio3=function(a,g,c,p,b){a=f.crossratio3harm(a,g,c,p,b);return m.div(a.value[0],a.value[1])};
-f.veronese=function(a){var g=m.mult(a.value[0],a.value[0]),c=m.mult(a.value[1],a.value[1]),p=m.mult(a.value[2],a.value[2]),b=m.mult(a.value[0],a.value[1]),d=m.mult(a.value[0],a.value[2]);a=m.mult(a.value[1],a.value[2]);return f.turnIntoSCList([g,c,p,b,d,a])};f.matrixFromVeronese=function(a){var g=a.value[0],c=a.value[1],p=a.value[2],b=m.realmult(.5,a.value[3]),d=m.realmult(.5,a.value[4]);a=m.realmult(.5,a.value[5]);return f.turnIntoCSList([f.turnIntoCSList([g,b,d]),f.turnIntoCSList([b,c,a]),f.turnIntoCSList([d,
-a,p])])};f.det2=function(a,g){var c=m.mult(a.value[0],g.value[1]);return c=m.sub(c,m.mult(a.value[1],g.value[0]))};f.det3=function(a,g,c){return m.complex(a.value[0].value.real*g.value[1].value.real*c.value[2].value.real-a.value[0].value.imag*g.value[1].value.imag*c.value[2].value.real-a.value[0].value.imag*g.value[1].value.real*c.value[2].value.imag-a.value[0].value.real*g.value[1].value.imag*c.value[2].value.imag+a.value[2].value.real*g.value[0].value.real*c.value[1].value.real-a.value[2].value.imag*
-g.value[0].value.imag*c.value[1].value.real-a.value[2].value.imag*g.value[0].value.real*c.value[1].value.imag-a.value[2].value.real*g.value[0].value.imag*c.value[1].value.imag+a.value[1].value.real*g.value[2].value.real*c.value[0].value.real-a.value[1].value.imag*g.value[2].value.imag*c.value[0].value.real-a.value[1].value.imag*g.value[2].value.real*c.value[0].value.imag-a.value[1].value.real*g.value[2].value.imag*c.value[0].value.imag-a.value[0].value.real*g.value[2].value.real*c.value[1].value.real+
-a.value[0].value.imag*g.value[2].value.imag*c.value[1].value.real+a.value[0].value.imag*g.value[2].value.real*c.value[1].value.imag+a.value[0].value.real*g.value[2].value.imag*c.value[1].value.imag-a.value[2].value.real*g.value[1].value.real*c.value[0].value.real+a.value[2].value.imag*g.value[1].value.imag*c.value[0].value.real+a.value[2].value.imag*g.value[1].value.real*c.value[0].value.imag+a.value[2].value.real*g.value[1].value.imag*c.value[0].value.imag-a.value[1].value.real*g.value[0].value.real*
-c.value[2].value.real+a.value[1].value.imag*g.value[0].value.imag*c.value[2].value.real+a.value[1].value.imag*g.value[0].value.real*c.value[2].value.imag+a.value[1].value.real*g.value[0].value.imag*c.value[2].value.imag,-a.value[0].value.imag*g.value[1].value.imag*c.value[2].value.imag+a.value[0].value.imag*g.value[1].value.real*c.value[2].value.real+a.value[0].value.real*g.value[1].value.real*c.value[2].value.imag+a.value[0].value.real*g.value[1].value.imag*c.value[2].value.real-a.value[2].value.imag*
-g.value[0].value.imag*c.value[1].value.imag+a.value[2].value.imag*g.value[0].value.real*c.value[1].value.real+a.value[2].value.real*g.value[0].value.real*c.value[1].value.imag+a.value[2].value.real*g.value[0].value.imag*c.value[1].value.real-a.value[1].value.imag*g.value[2].value.imag*c.value[0].value.imag+a.value[1].value.imag*g.value[2].value.real*c.value[0].value.real+a.value[1].value.real*g.value[2].value.real*c.value[0].value.imag+a.value[1].value.real*g.value[2].value.imag*c.value[0].value.real+
-a.value[0].value.imag*g.value[2].value.imag*c.value[1].value.imag-a.value[0].value.imag*g.value[2].value.real*c.value[1].value.real-a.value[0].value.real*g.value[2].value.real*c.value[1].value.imag-a.value[0].value.real*g.value[2].value.imag*c.value[1].value.real+a.value[2].value.imag*g.value[1].value.imag*c.value[0].value.imag-a.value[2].value.imag*g.value[1].value.real*c.value[0].value.real-a.value[2].value.real*g.value[1].value.real*c.value[0].value.imag-a.value[2].value.real*g.value[1].value.imag*
-c.value[0].value.real+a.value[1].value.imag*g.value[0].value.imag*c.value[2].value.imag-a.value[1].value.imag*g.value[0].value.real*c.value[2].value.real-a.value[1].value.real*g.value[0].value.real*c.value[2].value.imag-a.value[1].value.real*g.value[0].value.imag*c.value[2].value.real)};f.det4m=function(a){var g=a.value,c=g[0].value,p=c[0].value,b=+p.real,d=+p.imag,p=c[1].value,f=+p.real,e=+p.imag,p=c[2].value,k=+p.real,h=+p.imag,p=c[3].value,l=+p.real,n=+p.imag,c=g[1].value,p=c[0].value,q=+p.real,
-r=+p.imag,p=c[1].value,t=+p.real,u=+p.imag,p=c[2].value,v=+p.real,w=+p.imag,p=c[3].value,c=+p.real,p=+p.imag;a=b*t-d*u-f*q+e*r;var x=b*u+d*t-f*r-e*q,y=b*v-d*w-k*q+h*r,z=b*w+d*v-k*r-h*q,A=b*c-d*p-l*q+n*r,B=b*p+d*c-l*r-n*q,C=f*v-e*w-k*t+h*u,D=f*w+e*v-k*u-h*t,E=f*c-e*p-l*t+n*u,F=f*p+e*c-l*u-n*t,G=k*c-h*p-l*v+n*w,H=k*p+h*c-l*w-n*v,c=g[2].value,p=c[0].value,b=+p.real,d=+p.imag,p=c[1].value,f=+p.real,e=+p.imag,p=c[2].value,k=+p.real,h=+p.imag,p=c[3].value,l=+p.real,n=+p.imag,c=g[3].value,p=c[0].value,q=
-+p.real,r=+p.imag,p=c[1].value,t=+p.real,u=+p.imag,p=c[2].value,v=+p.real,w=+p.imag,p=c[3].value,c=+p.real,p=+p.imag,g=b*t-d*u-f*q+e*r,I=b*u+d*t-f*r-e*q,J=b*v-d*w-k*q+h*r,K=b*w+d*v-k*r-h*q,L=b*c-d*p-l*q+n*r,b=b*p+d*c-l*r-n*q,d=f*v-e*w-k*t+h*u,q=f*w+e*v-k*u-h*t,r=f*c-e*p-l*t+n*u,f=f*p+e*c-l*u-n*t,e=k*c-h*p-l*v+n*w,k=k*p+h*c-l*w-n*v;return m.complex(a*e-x*k-y*r+z*f+A*d-B*q+C*L-D*b-E*J+F*K+G*g-H*I,a*k+x*e-y*f-z*r+A*q+B*d+C*b+D*L-E*K-F*J+G*I+H*g)};f.eucangle=function(a,g){var c=f.cross(a,f.linfty),p=
-f.cross(g,f.linfty),b=f.det3(f.ez,c,f.ii),c=f.det3(f.ez,c,f.jj),d=f.det3(f.ez,p,f.ii),p=f.det3(f.ez,p,f.jj),b=m.div(m.mult(b,p),m.mult(d,c)),b=m.log(b);return b=m.mult(b,m.complex(0,.5))};f.zerovector=function(a){a=Math.floor(a.value.real);for(var g=Array(a),c=0;c<a;c++)g[c]=0;return f.realVector(g)};f.zeromatrix=function(a,g){for(var c=Math.floor(a.value.real),p=Array(c),b=0;b<c;b++)p[b]=f.zerovector(g);return f.turnIntoCSList(p)};f.vandermonde=function(a){for(var g=a.value.length,c=f.zeromatrix(g,
-g),p=0;p<g;p++)for(var b=0;b<g;b++)c.value[p].value[b]=m.pow(a.value[p],m.real(b-1));return c};f.transpose=function(a){for(var g=[],c=a.value[0].value.length,b=a.value.length,d=0;d<c;d++){for(var e=[],m=0;m<b;m++)e[m]=a.value[m].value[d];g[d]=f.turnIntoCSList(e)}return f.turnIntoCSList(g)};f.column=function(a,g){for(var c=[],b=a.value.length,d=Math.floor(g.value.real-1),e=0;e<b;e++)c[e]=a.value[e].value[d];return f.turnIntoCSList(c)};f.row=function(a,g){for(var c=[],b=a.value[0].value.length,d=Math.floor(g.value.real-
-1),e=0;e<b;e++)c[e]=a.value[d].value[e];return f.turnIntoCSList(c)};f.adjoint2=function(a){var g=a.value[0].value[0],c=a.value[1].value[0],b=Array(2);b[0]=f.turnIntoCSList([a.value[1].value[1],m.neg(a.value[0].value[1])]);b[1]=f.turnIntoCSList([m.neg(c),g]);return b=f.turnIntoCSList(b)};f.adjoint3=function(a){var g,c,b,d,f,e,m,k,h,l,n,q,r,t,u,v,w;g=a.value[0].value;c=g[0].value;b=c.real;d=c.imag;c=g[1].value;f=c.real;e=c.imag;c=g[2].value;m=c.real;k=c.imag;g=a.value[1].value;c=g[0].value;h=c.real;
-l=c.imag;c=g[1].value;n=c.real;q=c.imag;c=g[2].value;r=c.real;t=c.imag;g=a.value[2].value;c=g[0].value;a=c.real;u=c.imag;c=g[1].value;v=c.real;w=c.imag;c=g[2].value;g=c.real;c=c.imag;return{ctype:"list",value:[{ctype:"list",value:[{ctype:"number",value:{real:n*g-r*v-q*c+t*w,imag:n*c-r*w-v*t+g*q}},{ctype:"number",value:{real:-f*g+m*v+e*c-k*w,imag:-f*c+m*w+v*k-g*e}},{ctype:"number",value:{real:f*r-m*n-e*t+k*q,imag:f*t-m*q-n*k+r*e}}]},{ctype:"list",value:[{ctype:"number",value:{real:-h*g+r*a+l*c-t*u,
-imag:-h*c+r*u+a*t-g*l}},{ctype:"number",value:{real:b*g-m*a-d*c+k*u,imag:b*c-m*u-a*k+g*d}},{ctype:"number",value:{real:-b*r+m*h+d*t-k*l,imag:-b*t+m*l+h*k-r*d}}]},{ctype:"list",value:[{ctype:"number",value:{real:h*v-n*a-l*w+q*u,imag:h*w-n*u-a*q+v*l}},{ctype:"number",value:{real:-b*v+f*a+d*w-e*u,imag:-b*w+f*u+a*e-v*d}},{ctype:"number",value:{real:b*n-f*h-d*q+e*l,imag:b*q-f*l-h*e+n*d}}]}]}};f.inverse=function(a){var g=a.value.length;if(g!==a.value[0].value.length)return console.log("Inverse works only for square matrices"),
-k;if(2===g)return f.scaldiv(f.det(a),f.adjoint2(a));if(3===g)return f.scaldiv(f.det(a),f.adjoint3(a));g=f.LUdecomp(a);a=a.value.length;var c=m.real(0),b=m.real(1),d=f.zerovector(m.real(a));d.value[0]=b;for(var e=Array(a),h=0;h<a;h++)e[h]=f._helper.LUsolve(g,d),d.value[h]=c,d.value[h+1]=b;e=f.turnIntoCSList(e);return e=f.transpose(e)};f.linearsolve=function(a,g){return 2===a.value.length?f.linearsolveCramer2(a,g):3===a.value.length?f.linearsolveCramer3(a,g):f.LUsolve(a,g)};f.getDiag=function(a){if(a.value.length!==
-a.value[0].value.length)return k;for(var g=Array(a.value.length),c=0;c<a.value.length;c++)g[c]=a.value[c].value[c];return f.turnIntoCSList(g)};f.getSubDiag=function(a){if(a.value.length!==a.value[0].value.length)return k;for(var g=Array(a.value.length-1),c=0;c<a.value.length-1;c++)g[c]=a.value[c+1].value[c];return f.turnIntoCSList(g)};f.eig2=function(a){var g=m.add(a.value[0].value[0],a.value[1].value[1]);a=f.det2(a.value[0],a.value[1]);var c=m.mult(g,g),b=g=m.mult(g,m.real(.5));a=m.sqrt(m.sub(m.div(c,
-m.real(4)),a));g=m.add(g,a);b=m.sub(b,a);return f.turnIntoCSList([g,b])};f.eig=function(a,g){var c=g||!0,b=a,d=m.real(b.value.length),e=d.value.real;m.real(0);var b=f._helper.QRIteration(b)[0],b=f.getDiag(b),b=f.sort1(b),d=f.idMatrix(d,d),h=Array(e),h=f.turnIntoCSList(h);if(c){for(var k,l,n,q=0,r=!1,c=0;c<e;c++)r?l=k.value[q]:(k=b.value[c],k=f.sub(a,f.scalmult(k,d)),k=f.nullSpace(k),l=k.value[0],void 0!==l&&(n=l)),void 0===l&&(l=n),1E-8>f.abs(l).value.real&&0===q&&(l=f._helper.inverseIteration(a,
-b.value[c])),h.value[c]=f._helper.isAlmostZeroVec(l)?l:f.scaldiv(f.abs(l),l),c<e-1&&((r=1E-6>m.abs(m.sub(b.value[c],b.value[c+1])).value.real)?q++:q=0);h=f.transpose(h)}return f.turnIntoCSList([b,h])};f._helper.isNormalMatrix=function(a){return 1E-10>f.abs(f.sub(a,f.transjugate(a))).value.real};f._helper.QRIteration=function(a,g){var c,b=a;c=m.real(b.value.length);var d=c.value.real,e=c.value.real;m.real(0);var k;f.idMatrix(c,c);var h=f.zeromatrix(c,c),l=f.idMatrix(c,c),n=g?g:2500,q,r,t,u=0,w=Array(e);
-for(c=0;c<n;c++){k=f._helper.getBlock(b,[e-2,e-1],[e-2,e-1]);q=f.eig2(k);k=q.value[0];q=q.value[1];f.abs(k);f.abs(q);r=b.value[e-1].value[e-1];t=m.abs(m.sub(r,k)).value.real;r=m.abs(m.sub(r,q)).value.real;q=t<r?k:q;k=f.idMatrix(m.real(e),m.real(e));q=f.scalmult(q,k);k=f.QRdecomp(f.sub(b,q));b=v.mult(k.R,k.Q);b=f.add(b,q);k.Q=f._helper.buildBlockMatrix(k.Q,f.idMatrix(m.real(u),m.real(u)));l=v.mult(l,k.Q);if(1E-48>m.abs2(b.value[b.value.length-1].value[b.value[0].value.length-2]).value.real&&1<e){w[d-
-u-1]=b.value[e-1].value[e-1];for(c=0;c<e;c++)h.value[e-1].value[c]=b.value[e-1].value[c],h.value[c].value[e-1]=b.value[c].value[e-1];b=f._helper.getBlock(b,[0,e-2],[0,e-2]);u++;e--}if(1===e){h.value[0].value[0]=b.value[0].value[0];break}if(f._helper.isUpperTriangular(b)){for(c=0;c<e;c++)h.value[c].value[c]=b.value[c].value[c];break}}return[h,l]};f.rank=function(a,g){return f.RRQRdecomp(a,g).rank};f._helper.isAlmostZeroVec=function(a){for(var g=a.value.length,c=0;c<g;c++)if(!m._helper.isAlmostZero(a.value[c]))return!1;
-return!0};f._helper.isLowerTriangular=function(a){for(var g=a.value.length,c=a.value[0].value.length,b=0;b<g;b++)for(var d=b+1;d<c;d++)if(!m._helper.isAlmostZero(a.value[b].value[d]))return!1;return!0};f._helper.isUpperTriangular=function(a){return f._helper.isLowerTriangular(f.transpose(a))};f._helper.isAlmostId=function(a){var g=a.value.length,c=m.real(g);if(g!==a.value[0].value.length)return!1;a=f.sub(a,f.idMatrix(c),c);for(c=0;c<g;c++)for(var b=0;b<g;b++)if(1E-16<m.abs(a.value[c].value[b]).value.real)return!1;
-return!0};f.nullSpace=function(a,g){var c=a.value.length,b=f.RRQRdecomp(f.transjugate(a),g),d=f.transpose(b.Q),b=c-b.rank.value.real,e=Array(b);d.value.reverse();for(var k,h=0;h<b;h++)k=d.value[h],e[h]=f.scaldiv(f.abs(k),k);e=f.turnIntoCSList(e);return 0<e.value.length?e:f.turnIntoCSList([f.zerovector(m.real(c))])};f._helper.isAlmostDiagonal=function(a){var g=a.value.length;m.real(g);m.real(0);if(g!==a.value[0].value.length)return!1;for(var c=0;c<g;c++)for(var b=0;b<g;b++)if(c!==b&&1E-16<m.abs(a.value[c].value[b]).value.real)return!1;
-return!0};f._helper.inverseIteration=function(a,g){console.log("warning: code untested");for(var c=a.value.length,b=Array(c),d=0;d<c;d++)b[d]=2*Math.random()-.5;for(var b=f.realVector(b),c=f.idMatrix(m.real(c),m.real(c)),d=m.add(g,m.real(.1*Math.random()-.5)),e=0;100>e;e++)b=f.scaldiv(f.abs(b),b),b=f.LUsolve(f.sub(a,f.scalmult(d,c)),JSON.parse(JSON.stringify(b)));return f.scaldiv(f.abs(b),b)};f._helper.toHessenberg=function(a){var g=JSON.parse(JSON.stringify(a)),c=g.value.length,b=m.real(c-1),d=m.real(c);
-m.real(1);if(f._helper.isUpperTriangular(g))return[f.idMatrix(b,b),a];var e;a=f.idMatrix(d,d);for(var k,d=1;d<c-1;d++)e=f.column(g,m.real(d)),e.value=e.value.splice(d),k=f.abs2(e).value.real,1E-16<k&&(e=f._helper.getHouseHolder(e),a=v.mult(a,e),g=v.mult(v.mult(e,g),e)),b.value.real--;return[a,g]};f._helper.swapEl=function(a,g,c){var b;"[object Array]"===Object.prototype.toString.call(a)?(b=a[g],a[g]=a[c],a[c]=b):"list"===a.ctype&&(b=a.value[g],a.value[g]=a.value[c],a.value[c]=b)};f.RRQRdecomp=function(a,
-g){var c=Math.sqrt(m.eps);void 0!==g&&(c=.1*g.value.real);var c=c*c,b,d=a.value.length,e=m.real(d),k=m.real(1),h=f._helper.unitvector(m.real(a.value.length),k),l=f.idMatrix(e,e),n=JSON.parse(JSON.stringify(a)),q=f.transpose(a),r=Array(d);for(b=0;b<d;b++)r[b]=f.abs2(q.value[b]);r=f.turnIntoCSList(r);q=Array(d);for(b=0;b<d;b++)q[b]=b;b=f.maxIndex(r,m.abs);for(var t=r.value[b],u=0,w=0;1E-16<m.abs2(t).value.real;w++){u++;f._helper.swapColumn(n,w,b);f._helper.swapEl(r,w,b);f._helper.swapEl(q,w,b);b=f._helper.getBlock(n,
-[w],[w]);b=f.column(b,k);t=f.abs2(b).value.real;1E-8<t&&(b=f._helper.getHouseHolder(b),b=f._helper.buildBlockMatrix(f.idMatrix(m.real(w),m.real(w)),b),l=v.mult(l,f.transjugate(b)),n=v.mult(b,n));for(b=w+1;b<d;b++)r.value[b]=m.sub(r.value[b],m.mult(n.value[w].value[b],m.conjugate(n.value[w].value[b])));b=f.maxIndex(r,m.abs2,w+1);t=r.value[b];if(w+2===d){m.abs(t).value.real>c&&u++;break}e=m.sub(e,k);h.value=h.value.splice(0,h.value.length-1)}return{Q:l,R:n,P:f.turnIntoCSList(q),rank:m.real(u)}};f._helper.getHouseHolder=
-function(a){var g=m.real(a.value.length);if(1E-16>f.abs2(a))return f.idMatrix(g,g);var c,b=m.real(1),d=f._helper.unitvector(m.real(a.value.length),b);c=f._helper.QRgetAlpha(a,0);c=f.sub(a,f.scalmult(c,d));c=f.scaldiv(f.abs(c),c);a=m.div(f.sesquilinearproduct(a,c),f.sesquilinearproduct(c,a));g=f.idMatrix(g,g);return g=f.sub(g,f.scalmult(m.add(b,a),f._helper.transposeMult(c,f.conjugate(c))))};f._helper.reOrderbyPivots=function(a,g){for(var c=a.value.length.length,b=f.transpose(a),c=Array(c),d=0;d<g.length;d++)c[g[d]]=
-b.value[d];c=f.turnIntoCSList(c);return f.transpose(c)};f.QRdecomp=function(a){var g,c=a.value.length,b=m.real(c);if(f._helper.isUpperTriangular(a))return{Q:f.idMatrix(b,b),R:a};var d=m.real(1),e=f._helper.unitvector(m.real(a.value.length),d),k,h=f.idMatrix(b,b);a=JSON.parse(JSON.stringify(a));for(var l=0;;l++){g=f._helper.getBlock(a,[l],[l]);g=f.column(g,d);k=f.abs2(g).value.real;1E-8<k&&(g=f._helper.getHouseHolder(g),g=f._helper.buildBlockMatrix(f.idMatrix(m.real(l),m.real(l)),g),h=v.mult(h,f.transjugate(g)),
-a=v.mult(g,a));if(l+2===c)break;b=m.sub(b,d);e.value=e.value.splice(0,e.value.length-1)}return{Q:h,R:a}};f._helper.swapColumn=function(a,g,c){for(var b,d=0;d<a.value.length;d++)b=a.value[d].value[g],a.value[d].value[g]=a.value[d].value[c],a.value[d].value[c]=b};f._helper.buildBlockMatrix=function(a,g){if(0===a.value.length)return g;if(0===g.value.length)return a;for(var c=a.value.length,b=a.value[0].value.length,d=b+g.value[0].value.length,d=f.zeromatrix(m.real(c+g.value.length),m.real(d)),e=0;e<
-a.value.length;e++)for(var k=0;k<a.value[0].value.length;k++)d.value[e].value[k]=a.value[e].value[k];for(e=0;e<g.value.length;e++)for(k=0;k<g.value[0].value.length;k++)d.value[c+e].value[b+k]=g.value[e].value[k];return d};f._helper.getBlock=function(a,g,c){a=JSON.parse(JSON.stringify(a));var b=g[0],d=c[0];g=void 0===g[1]?a.value.length:g[1];c=void 0===c[1]?a.value[0].value.length:c[1];g++;c++;a.value=a.value.slice(b,g);for(b=0;b<a.value.length;b++)a.value[b].value=a.value[b].value.slice(d,c);return a};
-f._helper.setBlock=function(a,g,c){a=JSON.parse(JSON.stringify(a));var b=c[0];c=c[1];for(var d=g.value.length,f=g.value[0].value.length,e=0;e<d;e++)for(var k=0;k<f;k++)a.value[b+e].value[c+k]=g.value[e].value[k];return a};f._helper.transposeMult=function(a,g){if(a.value.length!==g.value.length)return k;for(var c=a.value.length,b=Array(c),d=0;d<c;d++)b[d]=f.scalmult(a.value[d],g);return f.turnIntoCSList(b)};f._helper.QRgetAlpha=function(a,g){return 0>a.value[g].value.real?f.abs(a):m.neg(f.abs(a))};
-f.LUdecomp=function(a){a=JSON.parse(JSON.stringify(a));var g,c,b,d,f,e=0,k,h=a.value.length,l=h-1,n=Array(h);for(b=0;b<h;++b){f=b;d=a.value[b];k=m.abs(d.value[b]).value.real;for(c=b+1;c<h;++c)g=m.abs(a.value[c].value[b]),k<g.value.real&&(k=g.value.real,f=c);k<m.eps&&console.log("Warning: singular matrix!");n[b]=f;f!==b&&(a.value[b]=a.value[f],a.value[f]=d,d=a.value[b],e++);c=d.value[b];for(g=b+1;g<h;++g)a.value[g].value[b]=m.div(a.value[g].value[b],c);for(g=b+1;g<h;++g){f=a.value[g];for(c=b+1;c<l;++c)f.value[c]=
-m.sub(f.value[c],m.mult(f.value[b],d.value[c])),++c,f.value[c]=m.sub(f.value[c],m.mult(f.value[b],d.value[c]));c===l&&(f.value[c]=m.sub(f.value[c],m.mult(f.value[b],d.value[c])))}}return{LU:a,P:n,TransPos:e}};f.LUsolve=function(a,g){var c=f.LUdecomp(a);return f._helper.LUsolve(c,g)};f._helper.LUsolve=function(a,g){var c=JSON.parse(JSON.stringify(g)),b,d=a.LU,f=d.value.length,e=JSON.parse(JSON.stringify(c)),k=a.P,h;for(b=f-1;-1!==b;--b)e.value[b]=c.value[b];for(b=0;b<f;++b)for(c=k[b],k[b]!==b&&(h=
-e.value[b],e.value[b]=e.value[c],e.value[c]=h),h=d.value[b],c=0;c<b;++c)e.value[b]=m.sub(e.value[b],m.mult(e.value[c],h.value[c]));for(b=f-1;0<=b;--b){h=d.value[b];for(c=b+1;c<f;++c)e.value[b]=m.sub(e.value[b],m.mult(e.value[c],h.value[c]));e.value[b]=m.div(e.value[b],h.value[b])}return e};f.linearsolveCramer2=function(a,g){var c=f.column(a,m.real(1)),b=f.column(a,m.real(2)),d=f.det2(c,b);m._helper.isZero(d)&&console.log("A is not regular!");b=f.det2(g,b);b=m.div(b,d);c=f.det2(c,g);c=m.div(c,d);return f.turnIntoCSList([b,
-c])};f.linearsolveCramer3=function(a,g){var c=f.column(a,m.real(1)),b=f.column(a,m.real(2)),d=f.column(a,m.real(3)),e=f.det3(c,b,d);m._helper.isZero(e)&&console.log("A is not regular!");var k=f.det3(g,b,d),d=f.det3(c,g,d),c=f.det3(c,b,g),k=f.turnIntoCSList([k,d,c]);return k=f.scaldiv(e,k)};f.linearsolveCGNR=function(a,g){var c=f.transpose(a),b=v.mult(c,a),c=v.mult(c,g);return f.linearsolveCG(b,c)};f.linearsolveCG=function(a,g){var c,b,d,e,k,h;e=g;b=c=f.sub(g,v.mult(a,g));for(var l=Math.ceil(1.2*a.value.length),
-n=0;n<l;){n++;k=v.mult(a,b);h=d=f.scalproduct(c,c);d=m.div(d,f.scalproduct(b,k));e=f.add(e,v.mult(d,b));c=f.sub(c,v.mult(d,k));if(f.abs(c).value.real<m.eps)break;d=f.scalproduct(c,c);d=m.div(d,h);b=f.add(c,v.mult(d,b))}n>=l&&console.log("CG did not converge");return e};f.det=function(a){if(1===a.value.length)return a.value[0].value[0];if(2===a.value.length)return f.det2(a.value[0],a.value[1]);if(3===a.value.length)return f.det3(a.value[0],a.value[1],a.value[2]);if(4===a.value.length)return f.det4m(a);
-var g=a.value.length,c=m.real(1),b,d,e=JSON.parse(JSON.stringify(a)),k,h,l,n;for(a=0;a<g-1;a++){d=a;for(b=a+1;b<g;b++)m.abs(e.value[b].value[a]).value.real>m.abs(e.value[d].value[a]).value.real&&(d=b);d!==a&&(b=e.value[d],e.value[d]=e.value[a],e.value[a]=b,c=m.neg(c));k=e.value[a];for(b=a+1;b<g;b++){h=e.value[b];l=m.div(h.value[a],k.value[a]);for(d=a+1;d<g-1;d+=2)n=d+1,h.value[d]=m.sub(h.value[d],m.mult(k.value[d],l)),h.value[n]=m.sub(h.value[n],m.mult(k.value[n],l));d!==g&&(h.value[d]=m.sub(h.value[d],
-m.mult(k.value[d],l)))}if(m._helper.isZero(k.value[a]))return m.real(0);c=m.mult(c,k.value[a])}return m.mult(c,e.value[a].value[a])};f.LUdet=function(a){a=f.LUdecomp(a);for(var g=a.LU,c=g.value.length,b=g.value[0].value[0],d=1;d<c;d++)b=m.mult(b,g.value[d].value[d]);1===a.TransPos%2&&(b=m.neg(b));return b};f.getField=function(a,g){var c;if("homog"===g){if(f._helper.isNumberVecN(a,3))return a;if(f._helper.isNumberVecN(a,2))return f.turnIntoCSList([a.value[0],a.value[1],m.real(1)])}if("xy"===g){if(f._helper.isNumberVecN(a,
-2))return a;if(f._helper.isNumberVecN(a,3))return f.turnIntoCSList([m.div(a.value[0],a.value[2]),m.div(a.value[1],a.value[2])])}if("x"===g&&f.isNumberVector(a)){c=a.value.length;if(0<c&&3!==c)return a.value[0];if(3===c)return"Point"===a.usage?m.div(a.value[0],a.value[2]):a.value[0]}if("y"===g&&f.isNumberVector(a)){c=a.value.length;if(1<c&&3!==c)return a.value[1];if(3===c)return"Point"===a.usage?m.div(a.value[1],a.value[2]):a.value[1]}return"z"===g&&f.isNumberVector(a)&&(c=a.value.length,2<c)?a.value[2]:
-k};f.nil=f.turnIntoCSList([]);f.ofGeos=function(a){return f.turnIntoCSList(a.map(function(a){return{ctype:"geo",value:a}}))};var Oa={key:function(a){if("string"===a.ctype)return"s"+a.value.length+":"+a.value+";";if("number"===a.ctype)return"n"+a.value.real+","+a.value.imag+";";if("list"===a.ctype)return"l"+a.value.length+":"+a.value.map(Oa.key).join(",")+";";if("boolean"===a.ctype)return"b"+a.value+";";if("dict"===a.ctype)return a=Object.keys(a.value).sort(),"d"+a.length+":"+a.join(",")+";";"undefined"!==
-a.ctype&&ha.err("Bad dictionary key: "+w(a));return"undef"},create:function(){return{ctype:"dict",value:{}}},clone:function(a){var g=Oa.create(),c;for(c in a.value)a.value.hasOwnProperty(c)&&(g.value[c]=a.value[c]);return g},put:function(a,g,c){a.value[Oa.key(g)]={key:g,value:c}},get:function(a,g,c){return(a=a.value[Oa.key(g)])?a.value:c},niceprint:function(a){return"{"+Object.keys(a.value).sort().map(function(g){g=a.value[g];return w(g.key)+":"+w(g.value)}).join(", ")+"}"}},v={_helper:{},order:{undefined:0,
-"boolean":1,number:2,term:3,atomic:4,variable:5,geo:6,string:7,list:8},string:function(a){return{ctype:"string",value:a}},bool:function(a){return{ctype:"boolean",value:a}},not:function(a){return v.bool(!a.value)},isLessThan:function(a,g){return-1===v.compare(a,g)},isEqual:function(a,g){return 0===v.compare(a,g)},compareResults:function(a,g){return v.compare(a.result,g.result)},compare:function(a,g){if(a.ctype!==g.ctype)return v.order[a.ctype]-v.order[g.ctype];if("number"===a.ctype)return m._helper.compare(a,
-g);if("list"===a.ctype)return f._helper.compare(a,g);if("geo"===a.ctype)return a.value.name===g.value.name?0:a.value.name<g.value.name?-1:1;if("string"===a.ctype)return a.value===g.value?0:a.value<g.value?-1:1;if("boolean"===a.ctype)return a.value===g.value?0:!1===a.value?-1:1},add:function(a,g){return"void"===a.ctype&&"number"===g.ctype||"void"===a.ctype&&"list"===g.ctype?g:"number"===a.ctype&&"number"===g.ctype?m.add(a,g):"string"===a.ctype||"string"===g.ctype?{ctype:"string",value:w(a)+w(g)}:"list"===
-a.ctype&&"list"===g.ctype?f.add(a,g):k},sub:function(a,g){return"void"===a.ctype&&"number"===g.ctype?m.neg(g):"void"===a.ctype&&"list"===g.ctype?f.neg(g):"number"===a.ctype&&"number"===g.ctype?m.sub(a,g):"list"===a.ctype&&"list"===g.ctype?f.sub(a,g):k},mult:function(a,g){return"number"===a.ctype&&"number"===g.ctype?m.mult(a,g):"number"===a.ctype&&"list"===g.ctype?f.scalmult(a,g):"list"===a.ctype&&"number"===g.ctype?f.scalmult(g,a):"list"===a.ctype&&"list"===g.ctype?f.mult(a,g):k},div:function(a,g){return"number"===
-a.ctype&&"number"===g.ctype?m.div(a,g):"list"===a.ctype&&"number"===g.ctype?f.scaldiv(g,a):k},max:function(a,g){return"number"===a.ctype&&"number"===g.ctype?m.max(a,g):"list"===a.ctype&&"list"===g.ctype?f.max(a,g):k},min:function(a,g){return"number"===a.ctype&&"number"===g.ctype?m.min(a,g):"list"===a.ctype&&"list"===g.ctype?f.min(a,g):k},wrap:function(a){if("number"===typeof a)return m.real(a);if("object"===typeof a&&void 0!==a.length){for(var g=[],c=0;c<a.length;c++)g[c]=v.wrap(a[c]);return f.turnIntoCSList(g)}return"string"===
-typeof a?{ctype:"string",value:a}:"boolean"===typeof a?{ctype:"boolean",value:a}:k},unwrap:function(a){if("object"!==typeof a||null===a)return a;if(Array.isArray(a))return a.map(v.unwrap);switch(a.ctype){case "string":case "boolean":return a.value;case "number":return 0===a.value.imag?a.value.real:{r:a.value.real,i:a.value.imag};case "list":return a.value.map(v.unwrap);default:return null}},withUsage:function(a,g){return{ctype:a.ctype,value:a.value,usage:g}}},Wa={},P={};P[":"]=r(":");P["\u00b0"]=
-function(a,g){var c=C(a[0]);return"number"===c.ctype&&"void"===a[1].ctype?v.withUsage(m.realmult(Math.PI/180,c),"Angle"):k};P._=mc;P["^"]=Kc;P["\u221a"]=function(a,g){return"void"===a[0].ctype?t.sqrt$1([a[1]],g):k};P["*"]=Ic;P["\u00d7"]=Lc;P["/"]=Jc;P["+"]=Hc;P["-"]=Xb;P["!"]=function(a,g){var c=C(a[1]);return"void"===a[0].ctype&&"boolean"===c.ctype?{ctype:"boolean",value:!c.value}:k};P["=="]=B;P["~="]=pa;P["~<"]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&
-m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real-b.value.real<=-m.eps}:k};P["~>"]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real-b.value.real>=m.eps}:k};P["=:="]=r("=:=");P[">="]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real>=
-b.value.real}:"string"===c.ctype&&"string"===b.ctype?{ctype:"boolean",value:c.value>=b.value}:k};P["<="]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real<=b.value.real}:"string"===c.ctype&&"string"===b.ctype?{ctype:"boolean",value:c.value<=b.value}:k};P["~>="]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?
-{ctype:"boolean",value:c.value.real-b.value.real>-m.eps}:k};P["~<="]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real-b.value.real<m.eps}:k};P[">"]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real>b.value.real}:"string"===c.ctype&&"string"===b.ctype?{ctype:"boolean",
-value:c.value>b.value}:k};P["<"]=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype&&m._helper.isAlmostReal(c)&&m._helper.isAlmostReal(b)?{ctype:"boolean",value:c.value.real<b.value.real}:"string"===c.ctype&&"string"===b.ctype?{ctype:"boolean",value:c.value<b.value}:k};P["<>"]=Ec;P["\u2208"]=function(a,g){var c=A(a[0]),b=A(a[1]);return"list"===b.ctype?f.contains(b,c):k};P["\u2209"]=function(a,g){var c=A(a[0]),b=A(a[1]);return"list"===b.ctype?v.not(f.contains(b,c)):
-k};P["&"]=na;P["%"]=Gc;P["!="]=Ec;P["~!="]=function(a,g){return v.not(pa(a,g))};P[".."]=function(a,g){var c=A(a[0]),b=A(a[1]);return"number"===c.ctype&&"number"===b.ctype?f.sequence(c,b):k};P["++"]=Rc;P["--"]=Tc;P["~~"]=Sc;P[":>"]=Uc;P["<:"]=Vc;P["="]=E;P[":="]=function(a,g,c){g="undefined"===a[1].ctype;if("undefined"===a[0].ctype||g)return k;if("function"===a[0].ctype){g=a[0].oper;var b=a[0].args,d=a[1],f=1;if(Wa.hasOwnProperty(g)){f=Wa[g];if(f.definer===c)return k;f=f.generation+1}Wa[g]={oper:g,
-body:d,arglist:b,definer:c,generation:f}}"variable"===a[0].ctype&&J.setvar(a[0].name,a[1]);return k};P[":=_"]=function(a,g){if("void"!==a[1].ctype)return k;"function"===a[0].ctype&&delete Wa[a[0].oper];return k};P["::="]=r("::=");P[";"]=function(a,g){var c="void"===a[0].ctype,b="void"===a[1].ctype;if(c&&b)return k;if(!c&&b)return A(a[0]);c||b||A(a[0]);return b?k:A(a[1])};var t={},D={evaluate:function(a,g,c){if(Wa.hasOwnProperty(a)){a=Wa[a];if(void 0===a)g=k;else{var b=[];for(c=0;c<a.arglist.length;c++)b[c]=
-A(g[c]);for(c=0;c<a.arglist.length;c++)J.newvar(a.arglist[c].name),J.setvar(a.arglist[c].name,b[c]);J.pushVstack("*");g=A(a.body);J.cleanVstack();for(c=0;c<a.arglist.length;c++)J.removevar(a.arglist[c].name)}return g}if(b=t[a])return b(g,c);var d=a.lastIndexOf("$");if(-1!==d&&(d=a.substr(0,d),b=t[d]))return b(g,c);ha.err("Called undefined function "+d+" (as "+a+")");return k},equals:function(a,g){return"number"===a.ctype&&"number"===g.ctype?{ctype:"boolean",value:a.value.real===g.value.real&&a.value.imag===
-g.value.imag}:"string"===a.ctype&&"string"===g.ctype||"boolean"===a.ctype&&"boolean"===g.ctype?{ctype:"boolean",value:a.value===g.value}:"list"===a.ctype&&"list"===g.ctype?f.equals(a,g):"geo"===a.ctype&&"geo"===g.ctype?{ctype:"boolean",value:a.value===g.value}:{ctype:"boolean",value:!1}}},J={};J.vars=function(){var a={pi:m.real(Math.PI),"\u03c0":m.real(Math.PI),i:m.complex(0,1),"true":v.bool(!0),"false":v.bool(!1),"#":k,nil:f.turnIntoCSList([]),newline:v.string("\n"),tab:v.string("\t")},g=[],c;for(c in a)g[c]=
-[a[c]];return g}();J.isVariable=function(a){return this.vars.hasOwnProperty(a)};J.create=function(a){if(this.vars.hasOwnProperty(a))return this.vars[a];var g=[null];return this.vars[a]=g};J.newvar=function(a){a=this.vars[a];a.push(k);return a};J.removevar=function(a){var g=this.vars[a];0===g.length&&console.error("Removing non-existing "+a);g.pop();0===g.length&&console.warn("Removing last "+a)};J.setvar=function(a,g){var c=this.vars[a];0===c.length&&console.error("Setting non-existing variable "+
-a);void 0===g&&(console.error("Setting variable "+a+" to undefined value"),g=k);if("undefined"===g.ctype)c[c.length-1]=g;else{var b=g;null===b&&(b=k);c[c.length-1]=b}};J.undefinedWarning={};J.getvar=function(a){var g=this.vars[a];0===g.length&&console.error("Getting non-existing variable "+a);g=g[g.length-1];if(null===g){if(u.csnames.hasOwnProperty(a))return{ctype:"geo",value:u.csnames[a]};console&&console.log&&void 0===this.undefinedWarning[a]&&(this.undefinedWarning[a]=!0,console.log("Warning: Accessing undefined variable: "+
-a));return k}return g};J.dump=function(a){var g=this.vars[a];console.log("*** Dump "+a);for(a=0;a<g.length;a++)console.log(a+":> "+w(g[a]))};J.vstack=[];J.pushVstack=function(a){this.vstack.push(a)};J.popVstack=function(){this.vstack.pop()};J.cleanVstack=function(){for(var a=this.vstack;0<a.length&&"*"!==a[a.length-1];)this.removevar(a[a.length-1]),a.pop();0<a.length&&a.pop()};var xa={generalFields:{color:"color",colorhsb:"",size:"size",alpha:"alpha",fillcolor:"fillcolor",fillalpha:"fillalpha",isshowing:"isshowing",
-visible:"visible",name:"name",caption:"caption",trace:"",tracelength:"",selected:""},getGeoField:function(a,g){return"undefined"!==typeof u.csnames[a]?xa.getField(u.csnames[a],g):k},setGeoField:function(a,g,c){return"undefined"!==typeof u.csnames[a]?xa.setField(u.csnames[a],g,c):k},getField:function(a,g){var c;if("P"===a.kind){if("xy"===g)return c=f.dehom(a.homog),v.withUsage(c,"Point");if("homog"===g)return v.withUsage(a.homog,"Point");if("x"===g)return m.div(a.homog.value[0],a.homog.value[2]);if("y"===
-g)return m.div(a.homog.value[1],a.homog.value[2])}if("L"===a.kind||"S"===a.kind){if("homog"===g)return v.withUsage(a.homog,"Line");if("angle"===g)return c=f.eucangle(f.ey,a.homog),v.withUsage(c,"Angle");if("slope"===g)return m.neg(m.div(a.homog.value[0],a.homog.value[1]))}if("Tr"===a.kind&&"matrix"===g)return a.matrix;if("C"===a.kind){if("radius"===g){var b=a.matrix;c=b.value[0].value[0];var d=b.value[0].value[2],e=b.value[1].value[2],b=b.value[2].value[2];m.mult(c,c);d=m.div(d,c);e=m.div(e,c);c=
-m.div(b,c);return c=m.sqrt(m.sub(m.add(m.mult(d,d),m.mult(e,e)),c))}if("size"===g)return a.size;if("matrix"===g)return a.matrix;if("center"===g)return c=n._helper.CenterOfConic(a.matrix),c=f.dehom(c),v.withUsage(c,"Point");if("dualMatrix"===g)return f.normalizeMax(f.adjoint3(a.matrix))}if("Text"===a.kind){if("pressed"===g)return a.checkbox?v.bool(a.checkbox.checked):v.bool(!1);if(("text"===g||"currenttext"===g)&&"EditableText"===a.type)return v.string(String(a.html.value));if("xy"===g)return c=f.dehom(a.homog),
-v.withUsage(c,"Point");if("homog"===g)return v.withUsage(a.homog,"Point");if("x"===g)return m.div(a.homog.value[0],a.homog.value[2]);if("y"===g)return m.div(a.homog.value[1],a.homog.value[2])}if("trace"===g)return v.bool(!!a.drawtrace);if(xa.generalFields[g])return(c=a[xa.generalFields[g]])&&c.ctype?c:"object"!==typeof c?v.wrap(c):k;if(a.behavior){if("mass"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.mass);if("radius"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.radius);if("charge"===
-g&&"Mass"===a.behavior.type)return m.real(a.behavior.charge);if("friction"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.friction);if("vx"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.vx);if("vy"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.vy);if("v"===g&&"Mass"===a.behavior.type)return f.realVector([a.behavior.vx,a.behavior.vy]);if("fx"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.fx);if("fy"===g&&"Mass"===a.behavior.type)return m.real(a.behavior.fy);if("f"===
-g&&"Mass"===a.behavior.type)return f.realVector([a.behavior.fx,a.behavior.fy])}return k},setField:function(a,g,c){var b;"color"===g&&f._helper.isNumberVecN(c,3)&&(a.color=c);"size"===g&&"number"===c.ctype&&(a.size=c);"alpha"===g&&"number"===c.ctype&&(a.alpha=c);"fillcolor"===g&&f._helper.isNumberVecN(c,3)&&("EditableText"===a.type?(a.fillcolor=c.value.map(function(a){return a.value.real}),a.html.style.backgroundColor=y.makeColor(a.fillcolor,a.fillalpha)):a.fillcolor=c);"fillalpha"===g&&"number"===
-c.ctype&&(a.fillalpha=c);"visible"===g&&"boolean"===c.ctype&&(a.visible=c.value);"pinned"===g&&"boolean"===c.ctype&&(a.pinned=c.value);"printlabel"===g&&(a.printname=w(c));"trace"===g&&"boolean"===c.ctype&&(c.value&&!a.drawtrace?(a.drawtrace=!0,nd(a)):a.drawtrace=c.value);"P"===a.kind&&a.movable&&("xy"===g&&f._helper.isNumberVecN(c,2)&&Ea(a,f.turnIntoCSList([c.value[0],c.value[1],m.real(1)]),"homog"),"xy"===g&&f._helper.isNumberVecN(c,3)&&Ea(a,c,"homog"),"x"===g&&"number"===c.ctype&&Ea(a,f.turnIntoCSList([m.mult(c,
-a.homog.value[2]),a.homog.value[1],a.homog.value[2]]),"homog"),"y"===g&&"number"===c.ctype&&Ea(a,f.turnIntoCSList([a.homog.value[0],m.mult(c,a.homog.value[2]),a.homog.value[2]]),"homog"),"homog"===g&&f._helper.isNumberVecN(c,3)&&Ea(a,c,"homog"));"homog"===g&&"L"===a.kind&&a.movable&&f._helper.isNumberVecN(c,3)&&Ea(a,c,"homog");if("angle"===g&&"Through"===a.type&&"number"===c.ctype){b=m.cos(c);var d=m.sin(c);b=f.turnIntoCSList([b,d,m.real(0)]);Ea(a,b,"dir")}"slope"===g&&"Through"===a.type&&"number"===
-c.ctype&&(b=f.turnIntoCSList([m.real(1),c,m.real(0)]),Ea(a,b,"dir"));"C"===a.kind&&"radius"===g&&"CircleMr"===a.type&&"number"===c.ctype&&Ea(a,c,"radius");"Text"===a.kind&&("pressed"===g&&"boolean"===c.ctype&&a.checkbox&&(a.checkbox.checked=c.value),"text"!==g&&"currenttext"!==g||"EditableText"!==a.type||(a.html.value=w(c)),a.movable&&("xy"===g?f._helper.isNumberVecN(c,2)?a.homog=f.turnIntoCSList([c.value[0],c.value[1],m.real(1)]):f._helper.isNumberVecN(c,3)&&(a.homog=c):"homog"===g&&f._helper.isNumberVecN(c,
-3)?a.homog=c:"x"===g&&"number"===c.ctype?a.homog=f.turnIntoCSList([m.mult(c,a.homog.value[2]),a.homog.value[1],a.homog.value[2]]):"y"===g&&"number"===c.ctype&&(a.homog=f.turnIntoCSList([a.homog.value[0],m.mult(c,a.homog.value[2]),a.homog.value[2]]))));a.behavior&&("mass"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&(a.behavior.mass=c.value.real),"mass"===g&&"Sun"===a.behavior.type&&"number"===c.ctype&&(a.behavior.mass=c.value.real),"friction"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&
-(a.behavior.friction=c.value.real),"charge"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&(a.behavior.charge=c.value.real),"radius"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&(a.behavior.radius=c.value.real),"vx"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&(a.behavior.vx=c.value.real),"vy"===g&&"Mass"===a.behavior.type&&"number"===c.ctype&&(a.behavior.vy=c.value.real),"v"===g&&"Mass"===a.behavior.type&&f._helper.isNumberVecN(c,2)&&(a.behavior.vx=c.value[0].value.real,a.behavior.vy=
-c.value[1].value.real))}};t.version$0=function(a,g){var c=["CindyJS"].concat(ie);return f.turnIntoCSList(c.map(v.wrap))};t.clearconsole$0=function(a,g){ha.clear()};t.err$1=function(a,g){var c="",b;"variable"===a[0].ctype?(c=a[0].name,b=J.getvar(a[0].name)):b=a[0];b=c+" ===> "+w(A(b));ha.err(b);return k};t.errc$1=function(a,g){var c;"variable"===a[0].ctype?(c=A(J.getvar(a[0].name)),console.log(a[0].name+" ===> "+w(c))):(c=A(a[0]),console.log(" ===> "+w(c)));return k};t.print$1=function(a,g){ha.out(w(A(a[0])),
-!0);return k};t.println$1=function(a,g){ha.out(w(A(a[0])));return k};t.dump$1=function(a,g){console.log(JSON.stringify(a[0]));return k};t.repeat$2=function(a,g){return t.repeat$3([a[0],null,a[1]],g)};t.repeat$3=function(a,g){var c=C(a[0]),b="#";null!==a[1]&&"variable"===a[1].ctype&&(b=a[1].name);if("number"!==c.ctype)return k;var c=Math.round(c.value.real),d=1,f=1,e=c+1,h=!1,m=!1,l=!1,n;void 0!==g.start&&(n=A(g.start),"number"===n.ctype&&(h=!0,f=n.value.real));void 0!==g.step&&(n=A(g.step),"number"===
-n.ctype&&(l=!0,d=n.value.real));void 0!==g.stop&&(n=A(g.stop),"number"===n.ctype&&(m=!0,e=n.value.real));!h||m||l||(e=d*c+f);h||!m||l||(f=-d*(c-1)+e,e+=d);h||m||!l||(e=d*c+f);h&&m&&!l&&(d=(e-f)/(c-1),e+=d);h&&!m&&l&&(e=d*c+f);!h&&m&&l&&(f=-d*(c-1)+e,e+=d);h&&m&&l&&(e+=d);(f<=e&&0<d||f>=e&&0>d)&&h&&m&&l&&(c=Math.floor((e-f)/d));J.newvar(b);e=k;for(h=0;h<c;h++)J.setvar(b,{ctype:"number",value:{real:h*d+f,imag:0}}),e=A(a[2]);J.removevar(b);return e};t.while$2=function(a,g){for(var c=a[1],b=a[0],d=A(b),
-f=k;"list"!==d.ctype&&d.value;)f=A(c),d=A(b);return f};t.apply$2=function(a,g){return t.apply$3([a[0],null,a[1]],g)};t.apply$3=function(a,g){var c=C(a[0]);if("list"!==c.ctype)return k;var b="#";null!==a[1]&&"variable"===a[1].ctype&&(b=a[1].name);var c=c.value,d=[];J.newvar(b);for(var f=0;f<c.length;f++)J.setvar(b,c[f]),d[f]=A(a[2]);J.removevar(b);return{ctype:"list",value:d}};t.forall$2=function(a,g){return t.forall$3([a[0],null,a[1]],g)};t.forall$3=function(a,g){var c=C(a[0]);if("list"!==c.ctype)return k;
-var b="#";null!==a[1]&&"variable"===a[1].ctype&&(b=a[1].name);c=c.value;J.newvar(b);for(var d,f=0;f<c.length;f++)J.setvar(b,c[f]),d=A(a[2]);J.removevar(b);return d};t.select$2=function(a,g){return t.select$3([a[0],null,a[1]],g)};t.select$3=function(a,g){var c=C(a[0]);if("list"!==c.ctype)return k;var b="#";null!==a[1]&&"variable"===a[1].ctype&&(b=a[1].name);var c=c.value,d=[];J.newvar(b);for(var f=0,e=0;e<c.length;e++){J.setvar(b,c[e]);var h=A(a[2]);"boolean"===h.ctype&&!0===h.value&&(d[f]=c[e],f++)}J.removevar(b);
-return{ctype:"list",value:d}};t.flatten$1=function(a,g){function c(a,g){return-1===g||"list"!==a.ctype?a:[].concat.apply([],a.value.map(function(a){return c(a,g-1)}))}var b=C(a[0]);if("list"!==b.ctype)return b;var d=g.levels;void 0===d?d=1:(d=A(d),d="number"===d.ctype?d.value.real:"string"===d.ctype&&"all"===d.value?-2:1);return{ctype:"list",value:c(b,d)}};t.createvar$1=function(a,g){"variable"===a[0].ctype&&J.newvar(a[0].name);return k};t.local=function(a,g){for(var c=0;c<a.length;c++)"variable"===
-a[c].ctype&&J.newvar(a[c].name);return k};t.removevar$1=function(a,g){var c=A(a[0]);"variable"===a[0].ctype&&J.removevar(a[0].name);return c};t.release=function(a,g){if(0===a.length)return k;for(var c=A(a[a.length-1]),b=0;b<a.length;b++)"variable"===a[b].ctype&&J.removevar(a[b].name);return c};t.regional=function(a,g){for(var c=0;c<a.length;c++)if("variable"===a[c].ctype){var b=a[c].name;J.newvar(b);J.pushVstack(b)}return k};t.genList=function(a,g){return f.turnIntoCSList(a.map(A))};D.assigntake=
-function(a,g){var c=a.args[0],b=A(c),d=C(a.args[1]),e=k;if("list"===b.ctype||"string"===b.ctype)d=Math.floor(d.value.real),0>d&&(d=b.value.length+d+1),0<d&&d<=b.value.length&&("list"===b.ctype?(b=b.value.slice(),b[d-1]=A(g),e=f.turnIntoCSList(b)):(b=b.value,b=b.substring(0,d-1)+w(A(g))+b.substring(d,b.length),e=v.string(b)));E([c,e])};D.assigndot=function(a,g){var c=A(a.obj),b=a.key;"geo"===c.ctype&&b&&xa.setField(c.value,b,C(g));return k};D.assignlist=function(a,g){var c=a.length,b=g.length;b<c&&
-(c=b);for(b=0;b<c;b++)E([a[b],g[b]],[])};t.if$2=function(a,g){return t.if$3(a,g)};t.if$3=function(a,g){var c=C(a[0]);if("boolean"===c.ctype){if(!0===c.value)return A(a[1]);if(3===a.length)return A(a[2])}else ha.err("Condition for if is not boolean");return k};t.and$2=na;t.or$2=Gc;t.xor$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"boolean"===c.ctype&&"boolean"===b.ctype?{ctype:"boolean",value:c.value!==b.value}:k};t.not$1=function(a,g){var c=C(a[0]);return"boolean"===c.ctype?{ctype:"boolean",value:!c.value}:
-k};D.genericListMathGen=function(a,g,c){t[a+"$1"]=function(a,b){var p=A(a[0]);if("list"!==p.ctype)return k;p=p.value;if(0===p.length)return c;for(var d=p[0],f=1;f<p.length;f++)d=g(d,p[f]);return d};var b=a+"$3";t[a+"$2"]=function(a,c){return t[b]([a[0],null,a[1]])};t[b]=function(a,b){var p=C(a[0]);if("list"!==p.ctype)return k;p=p.value;if(0===p.length)return c;var d="#";null!==a[1]&&"variable"===a[1].ctype&&(d=a[1].name);J.newvar(d);J.setvar(d,p[0]);for(var f=A(a[2]),e=1;e<p.length;e++){J.setvar(d,
-p[e]);var h=A(a[2]),f=g(f,h)}J.removevar(d);return f}};D.genericListMathGen("product",v.mult,m.real(1));D.genericListMathGen("sum",v.add,m.real(0));D.genericListMathGen("max",v.max,k);D.genericListMathGen("min",v.min,k);t.max$2=function(a,g){var c=C(a[0]);if("list"===c.ctype)return t.max$3([c,null,a[1]]);var b=C(a[1]);return t.max$1([f.turnIntoCSList([c,b])])};t.min$2=function(a,g){var c=C(a[0]);if("list"===c.ctype)return t.min$3([c,null,a[1]]);var b=C(a[1]);return t.min$1([f.turnIntoCSList([c,b])])};
-t.add$2=Hc;t.sub$2=Xb;t.mult$2=Ic;t.div$2=Jc;t.mod$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype?m.mod(c,b):k};t.pow$2=Kc;t.exp$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.exp(c):k};t.sin$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.sin(c):k};t.sqrt$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.sqrt(c):k};D.laguerre=function(a,g,c){if("list"!==a.ctype)return k;var b=a.value.length-1,d;for(d=0;d<=b;d++)if("number"!==a.value[d].ctype)return k;
-if("number"!==g.ctype)return k;for(var f=[1,.3141,.5926,.5358,.9793,.2385,.6264,.3383,.2795,.0288],e,h,l,n=1;n<=c;n++){h=l=m.zero;e=a.value[b];for(d=b-1;0<=d;d--)l=m.add(h,m.mult(l,g)),h=m.add(e,m.mult(h,g)),e=m.add(a.value[d],m.mult(e,g));if(m._helper.isLessThan(m.abs(e),m.real(1E-14)))break;d=m.div(h,e);h=m.mult(d,d);e=m.sub(h,m.div(m.mult(m.real(2),l),e));l=m.sqrt(m.mult(m.real(b-1),m.sub(m.mult(m.real(b),e),h)));e=m.add(d,l);d=m.sub(d,l);m._helper.isLessThan(m.abs(e),m.abs(d))&&(e=d);d=m._helper.isLessThan(m.real(1E-14),
-m.abs(e))?m.div(m.real(b),e):m.mult(m.add(m.abs(g),m.one),m.complex(Math.cos(n),Math.sin(n)));if(m._helper.isLessThan(m.abs(d),m.real(1E-14)))break;0===n%20&&n<c-19&&(d=m.mult(d,m.real(f[Math.floor(n/20)])));g=m.sub(g,d)}return g};D.quadratic_roots=function(a){if("list"!==a.ctype)return k;var g=a.value[2],c=a.value[1];a=a.value[0];if(m._helper.isZero(a))return[m.zero,m.neg(m.div(c,g))];var b=m.sqrt(m.sub(m.mult(c,c),m.mult(m.real(4),m.mult(g,a))));0<=m.re(c)&&(b=m.neg(b));return[m.div(m.sub(b,c),
-m.mult(m.real(2),g)),m.div(m.mult(m.real(2),a),m.sub(b,c))]};D.roots=function(a){var g=[],c=a,b=a.value.length-1;if(0>=b)return f.turnIntoCSList([]);if(m._helper.isZero(a.value[b]))return g=D.roots(f.turnIntoCSList(a.value.slice(0,b))),f.append(g,m.infinity);if(1===b)g[0]=m.neg(m.div(a.value[0],a.value[1]));else if(2===b)g=D.quadratic_roots(a);else{for(var d=0;d<b-2;d++){g[d]=D.laguerre(a,m.zero,200);g[d]=D.laguerre(c,g[d],1);var e=[];e[b-d]=a.value[b-d];for(var h=b-d;0<h;h--)e[h-1]=m.add(a.value[h-
-1],m.mult(e[h],g[d]));e.shift();a=f.turnIntoCSList(e)}a=D.quadratic_roots(a);g[b-2]=a[0];g[b-1]=a[1]}return f.turnIntoCSList(g)};t.roots$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){for(var b=0;b<c.value.length;b++)if("number"!==c.value[b].ctype)return k;c=D.roots(c);return f.sort1(c)}return k};t.autodiff$3=function(a,g){var c="x",b;if("function"===a[0].ctype)b=Wa[a[0].oper].body,c=a[0].args[0].name;else if("function"===typeof a[0].impl)b=a[0];else return console.log("could not parse function"),
-k;var d=C(a[1]),f=C(a[2]);if(1>f.value.real)return console.log("grade cant be < 1"),k;f=m.add(f,m.real(1));return O.autodiff(b,c,d,f)};t.cos$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.cos(c):k};t.tan$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.tan(c):k};t.arccos$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.arccos(c):k};t.arcsin$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.arcsin(c):k};t.arctan$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?
-m.arctan(c):k};t.arctan2$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype?m.arctan2(c,b):k};t.arctan2$1=function(a,g){var c=C(a[0]);if("list"===c.ctype&&2===c.value.length){if(c=c.value,"number"===c[0].ctype&&"number"===c[1].ctype)return t.arctan2$2(c,g)}else if("number"===c.ctype)return m.arctan2(c);return k};t.log$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.log(c):k};D.recursiveGen=function(a){var g=m[a],c=f[a];t[a+"$1"]=function(a,b){var d=C(a[0]);
-return"number"===d.ctype?g(d):"list"===d.ctype?c(d):k}};D.recursiveGen("im");D.recursiveGen("re");D.recursiveGen("conjugate");D.recursiveGen("round");D.recursiveGen("ceil");D.recursiveGen("floor");D.recursiveGen("abs");t.abs_infix=t.abs$1;t.random$0=function(a,g){return m.real(m._helper.rand())};t.random$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?m.complex(c.value.real*m._helper.rand(),c.value.imag*m._helper.rand()):k};t.seedrandom$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&m._helper.seedrandom(c.value.real);
-return k};t.randomnormal$0=function(a,g){return m.real(m._helper.randnormal())};t.randominteger$1=function(a,g){var c=C(a[0]);if("number"===c.ctype){var b=c.value.real|0,c=c.value.imag|0,b=b*m._helper.rand()|0,c=c*m._helper.rand()|0;return m.complex(b,c)}return k};t.randomint$1=t.randominteger$1;t.randombool$0=function(a,g){return.5<m._helper.rand()?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isreal$1=function(a,g){var c=A(a[0]);return"number"===c.ctype&&m._helper.isAlmostReal(c)?{ctype:"boolean",
-value:!0}:{ctype:"boolean",value:!1}};t.isinteger$1=function(a,g){var c=A(a[0]);return"number"===c.ctype&&m._helper.isAlmostReal(c)&&c.value.real===Math.floor(c.value.real)?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.iseven$1=function(a,g){var c=A(a[0]);return"number"===c.ctype&&m._helper.isAlmostReal(c)&&c.value.real/2===Math.floor(c.value.real/2)?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isodd$1=function(a,g){var c=A(a[0]);return"number"===c.ctype&&m._helper.isAlmostReal(c)&&
-(c.value.real-1)/2===Math.floor((c.value.real-1)/2)?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.iscomplex$1=function(a,g){return"number"===A(a[0]).ctype?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isstring$1=function(a,g){return"string"===A(a[0]).ctype?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.islist$1=function(a,g){return"list"===A(a[0]).ctype?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.ismatrix$1=function(a,g){var c=A(a[0]);return-1!==f._helper.colNumb(c)?
-{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.iscircle$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&"C"===c.value.kind&&"Circle"===c.value.matrix.usage?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isconic$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&"C"===c.value.kind?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isline$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&"L"===c.value.kind?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.ispoint$1=
-function(a,g){var c=A(a[0]);return"geo"===c.ctype&&"P"===c.value.kind?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isgeometric$1=function(a,g){return"geo"===A(a[0]).ctype?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isnumbermatrix$1=function(a,g){var c=A(a[0]);return f.isNumberMatrix(c).value?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isnumbervector$1=function(a,g){var c=A(a[0]);return f.isNumberVector(c).value?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};
-t.issun$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&void 0!==c.value.behavior&&"Sun"===c.value.behavior.type?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.ismass$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&void 0!==c.value.behavior&&"Mass"===c.value.behavior.type?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isspring$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&void 0!==c.value.behavior&&"Spring"===c.value.behavior.type?{ctype:"boolean",value:!0}:{ctype:"boolean",
-value:!1}};t.isbouncer$1=function(a,g){var c=A(a[0]);return"geo"===c.ctype&&void 0!==c.value.behavior&&"Bouncer"===c.value.behavior.type?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};t.isundefined$1=function(a,g){return"undefined"===A(a[0]).ctype?{ctype:"boolean",value:!0}:{ctype:"boolean",value:!1}};var Cd={ArcBy3:"Arc",CenterOfConic:"Center",ConicBy1p4l:"Conic1P4L",ConicBy4p1l:"Conic4P1L",ConicBy5lines:"Conic5L",ConicBy2Foci1P:"ConicFoci",ConicFromPrincipalDirections:"ConicPrincipleDirs",
-Free:"FreePoint",PolarOfLine:"PolarLine",PolarOfPoint:"PolarPoint",PointOnSegment:"PointOnLine",Button:"Text",ToggleButton:"Text",TrReflectionL:"TrReflection",TrReflectionP:"TrReflection",TrReflectionC:"TrReflection",TrTranslation:"TrProjection",TrSimilarity:"TrProjection",TrAffine:"TrProjection",TransformP:"Transform",TransformL:"Transform",TransformSegment:"Transform",TransformS:"Transform",TransformPolygon:"Transform",TransformArc:"Transform",TransformConic:"Transform",TransformC:"Transform",TrMoebiusP:"Transform",
-TrMoebiusL:"Transform",TrMoebiusSegment:"Transform",TrMoebiusS:"Transform",TrMoebiusPolygon:"Transform",TrMoebiusArc:"Transform",TrMoebiusCircle:"Transform",TrMoebiusC:"Transform",TrInverseMoebius:"TrInverse",Perp:"Orthogonal",Para:"Parallel",AngleBisector:"AngularBisector",IntersectLC:"IntersectionConicLine",IntersectCirCir:"IntersectionCircleCircle",OtherPointOnCircle:"PointOnCircle"};t.algorithm$1=function(a,g){var c=A(a[0]);if("geo"===c.ctype){var c=c.value,b=c.type,d=C(g.compatibility);"string"===
-d.ctype&&/^cinderella$/i.test(d.value)&&(/^Select/.test(b)&&(c=u.csnames[c.args[0]],b=c.type),Cd.hasOwnProperty(b)?b=Cd[b]:"CircleMr"===b&&(b=c.pinned?"CircleByFixedRadius":"CircleByRadius"));return v.string(b)}return k};t.inputs$1=function(a,g){var c=A(a[0]);if("geo"===c.ctype){var c=c.value,b=c.type,d=[];c.args&&(d=c.args.map(function(a){return{ctype:"geo",value:u.csnames[a]}}));if(/^Select/.test(b)||n[b].isMovable)switch(c.kind){case "P":case "L":d.push(c.homog);break;case "C":d.push(c.matrix)}return f.turnIntoCSList(d)}return k};
-t.moveto$2=function(a,g){var c=A(a[0]),b=C(a[1]);"geo"===c.ctype&&(c=c.value,f._helper.isNumberVecN(b,2)?xa.setField(c,"xy",b):f._helper.isNumberVecN(b,3)&&xa.setField(c,"homog",b));return k};t.matrixrowcolumn$1=function(a,g){var c=A(a[0]);return-1!==f._helper.colNumb(c)?f.realVector([c.value.length,c.value[0].value.length]):k};t.rowmatrix$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.turnIntoCSList([c]):k};t.columnmatrix$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.turnIntoCSList(c.value.map(function(a){return f.turnIntoCSList([a])})):
-k};t.submatrix$3=function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]);if("list"===c.ctype&&"number"===b.ctype&&"number"===d.ctype){var e=Math.round(b.value.real),b=Math.round(d.value.real),c=c.value.slice();0<b&&b<=c.length&&c.splice(b-1,1);var h=!0,c=c.map(function(a){if("list"!==a.ctype)h=!1;else return a=a.value.slice(),0<e&&e<=a.length&&a.splice(e-1,1),f.turnIntoCSList(a)});return h?f.turnIntoCSList(c):k}return k};t.complex$1=function(a,g){var c,b,d;d=C(a[0]);if("list"===d.ctype&&f.isNumberVector(d)){if(2===
-d.value.length)return c=d.value[0],b=d.value[1],m.complex(c.value.real-b.value.imag,b.value.real+c.value.imag);if(3===d.value.length)return c=d.value[0],b=d.value[1],d=d.value[2],c=m.div(c,d),b=m.div(b,d),m.complex(c.value.real-b.value.imag,b.value.real+c.value.imag)}return k};t.gauss$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?f.realVector([c.value.real,c.value.imag]):k};t.cross$2=Lc;t.crossratio$4=function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]),e=A(a[3]),h=M(c),l=M(b),n=M(d),q=M(e);return h!==
-k&&l!==k&&n!==k&&q!==k?f.crossratio3(h,l,n,q,f.ii):"number"===c.ctype&&"number"===b.ctype&&"number"===d.ctype&&"number"===e.ctype?m.div(m.mult(m.sub(c,d),m.sub(b,e)),m.mult(m.sub(c,e),m.sub(b,d))):k};t.para$2=function(a,g){var c=C(a[0]),b=C(a[1]),d=M(c),e=M(b);if(c!==k&&b!==k){var b=b.usage,h=d,m=e;if("Line"===c.usage||"Point"===b)h=e,m=d;c=f.cross(f.cross(f.linfty,m),h);return v.withUsage(c,"Line")}return k};t.perp$2=function(a,g){var c=C(a[0]),b=C(a[1]),d=M(c),e=M(b);if(c!==k&&b!==k){var h=b.usage||
-e.usage,b=d,l=e;if("Line"===(c.usage||d.usage)||"Point"===h)b=e,l=d;c=f.turnIntoCSList([l.value[0],l.value[1],m.zero]);c=f.cross(c,b);return v.withUsage(c,"Line")}return k};t.perp$1=function(a,g){var c=C(a[0]);return f._helper.isNumberVecN(c,2)?f.turnIntoCSList([m.neg(c.value[1]),c.value[0]]):k};t.parallel$2=t.para$2;t.perpendicular$2=t.perp$2;t.perpendicular$1=t.perp$1;t.meet$2=function(a,g){var c=M(a[0]),b=M(a[1]);return c!==k&&b!==k?(c=f.cross(c,b),v.withUsage(c,"Point")):k};t.join$2=function(a,
-g){var c=M(a[0]),b=M(a[1]);return c!==k&&b!==k?(c=f.cross(c,b),v.withUsage(c,"Line")):k};t.dist$2=function(a,g){var c=C(a[0]),b=C(a[1]),c=Xb([c,b],[]);return t.abs$1([c],[])};t.dist_infix=t.dist$2;t.point$1=function(a,g){var c=A(a[0]);return f._helper.isNumberVecN(c,3)||f._helper.isNumberVecN(c,2)?v.withUsage(c,"Point"):c};t.line$1=function(a,g){var c=A(a[0]);return f._helper.isNumberVecN(c,3)?v.withUsage(c,"Line"):c};t.det$3=function(a,g){var c=M(a[0]),b=M(a[1]),d=M(a[2]);if(c!==k&&b!==k&&d!==k)return f.det3(c,
-b,d)};t.det$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.det(c)}return k};t.eig$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.eig(c)}return k};t.eigenvalues$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.eig(c,!1).value[0]}return k};t.rank$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=
-f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.rank(c,g.precision)}return k};t.kernel$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return c=f.nullSpace(c,g.precision),f.transpose(c)}return k};t.eigenvectors$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.eig(c).value[1]}return k};t.area$3=function(a,g){var c=M(a[0]),b=M(a[1]),d=M(a[2]);if(c!==k&&b!==k&&d!==
-k){var e=c.value[2],h=b.value[2],l=d.value[2];if(!m._helper.isAlmostZero(e)&&!m._helper.isAlmostZero(h)&&!m._helper.isAlmostZero(l))return c=f.scaldiv(e,c),b=f.scaldiv(h,b),d=f.scaldiv(l,d),c=f.det3(c,b,d),m.realmult(.5,c)}return k};t.inverse$1=function(a,g){var c=C(a[0]);if("list"===c.ctype){var b=f._helper.colNumb(c);if(-1!==b&&b===c.value.length)return f.inverse(c)}return k};t.linearsolve$2=function(a,g){var c=C(a[0]),b=C(a[1]);if("list"===c.ctype){var d=f._helper.colNumb(c);if(-1!==d&&d===c.value.length&&
-f._helper.isNumberVecN(b,d))return f.linearsolve(c,b)}return k};var Pd=[[[]],[[0]],[[0,1],[1,0]],[[0,1,2],[0,2,1],[1,0,2],[1,2,0],[2,0,1],[2,1,0]],[[0,1,2,3],[0,1,3,2],[0,2,1,3],[0,2,3,1],[0,3,1,2],[0,3,2,1],[1,0,2,3],[1,0,3,2],[1,2,0,3],[1,2,3,0],[1,3,0,2],[1,3,2,0],[2,0,1,3],[2,0,3,1],[2,1,0,3],[2,1,3,0],[2,3,0,1],[2,3,1,0],[3,0,1,2],[3,0,2,1],[3,1,0,2],[3,1,2,0],[3,2,0,1],[3,2,1,0]]];t.mincostmatching$1=function(a,g){var c=A(a[0]);if(f.isNumberMatrix(c)){var b=c.value.length,d=f._helper.colNumb(c),
-e=b<d?d:b,h,l,n=Array(e);for(h=0;h<e;++h)for(n[h]=Array(e),l=0;l<e;++l)n[h][l]=h<b&&l<d?c.value[h].value[l].value.real:0;c=Zb(n);e=Array(b);for(h=0;h<b;++h)l=c[h],e[h]=l<d?m.real(l+1):m.real(0);return f.turnIntoCSList(e)}return k};t.take$2=mc;t.length$1=function(a,g){var c=A(a[0]);return"list"===c.ctype||"string"===c.ctype?m.real(c.value.length):k};t.pairs$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.pairs(c):k};t.triples$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.triples(c):
-k};t.cycle$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.cycle(c):k};t.consecutive$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.consecutive(c):k};t.reverse$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.reverse(c):k};t.directproduct$2=function(a,g){var c=A(a[0]),b=A(a[1]);return"list"===c.ctype&&"list"===b.ctype?f.directproduct(c,b):k};t.concat$2=Rc;t.common$2=Sc;t.remove$2=Tc;t.append$2=Uc;t.prepend$2=Vc;t.contains$2=function(a,g){var c=A(a[0]),b=A(a[1]);return"list"===
-c.ctype?f.contains(c,b):k};t.sort$2=function(a,g){return t.sort$3([a[0],null,a[1]],g)};t.sort$3=function(a,g){var c=C(a[0]);if("list"!==c.ctype)return k;var b="#";null!==a[1]&&"variable"===a[1].ctype&&(b=a[1].name);var c=c.value,d=[];J.newvar(b);var e;for(e=0;e<c.length;e++)J.setvar(b,c[e]),d[e]={val:c[e],result:A(a[2])};J.removevar(b);d.sort(v.compareResults);b=[];for(e=0;e<c.length;e++)b[e]=d[e].val;return{ctype:"list",value:b}};t.sort$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.sort1(c):
-k};t.set$1=function(a,g){var c=A(a[0]);return"list"===c.ctype?f.set(c):k};t.combinations$2=function(a,g){function c(a,g){a===h?n.push(f.turnIntoCSList(l.slice())):g<e&&(l[a]=b.value[g],c(a+1,g+1),c(a,g+1))}var b=A(a[0]),d=A(a[1]),e,h,l,n;if("number"===d.ctype){h=d.value.real|0;if("number"===b.ctype){e=b.value.real|0;e-h<h&&(h=e-h);if(0>h)return m.real(0);if(0===h)return m.real(1);if(1===h)return b;for(var q=d=1,r=1;r<=h;++r)var t=e-h+r|0,u=r|0,v=nc(t,u)|0,t=t/v|0,u=u/v|0,v=nc(d,u)|0,d=d/v|0,u=u/v|
-0,v=nc(t,q)|0,t=t/v|0,q=q/v|0,d=d*t|0,q=q*u|0;return m.real(d/q)}if("list"===b.ctype){e=b.value.length;if(0>h||h>e)return f.turnIntoCSList([]);if(0===h)return f.turnIntoCSList([f.turnIntoCSList([])]);if(h===e)return f.turnIntoCSList([b]);n=[];l=Array(h);c(0,0);return f.turnIntoCSList(n)}}return k};t.zeromatrix$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===c.ctype&&"number"===b.ctype?f.zeromatrix(c,b):k};t.zerovector$1=function(a,g){var c=C(a[0]);return"number"===c.ctype?f.zerovector(c):
-k};t.transpose$1=function(a,g){var c=C(a[0]);return"list"===c.ctype&&-1!==f._helper.colNumb(c)?f.transpose(c):k};t.row$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===b.ctype&&"list"===c.ctype&&-1!==f._helper.colNumb(c)?f.row(c,b):k};t.column$2=function(a,g){var c=C(a[0]),b=C(a[1]);return"number"===b.ctype&&"list"===c.ctype&&-1!==f._helper.colNumb(c)?f.column(c,b):k};t.dict$0=function(a,g){var c=Oa.create(),b;for(b in g)g.hasOwnProperty(b)&&Oa.put(c,v.string(b),A(g[b]));return c};t.put$3=
-function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]);return"dict"===c.ctype?(c=Oa.clone(c),Oa.put(c,b,d),c):k};t.get$2=function(a,g){var c=A(a[0]),b=A(a[1]);return"dict"===c.ctype?Oa.get(c,b,k):k};t.red$1=function(a,g){var c=A(a[0]);return"number"===c.ctype?f.realVector([Math.min(1,Math.max(0,c.value.real)),0,0]):k};t.green$1=function(a,g){var c=A(a[0]);return"number"===c.ctype?f.realVector([0,Math.min(1,Math.max(0,c.value.real)),0]):k};t.blue$1=function(a,g){var c=A(a[0]);return"number"===c.ctype?f.realVector([0,
-0,Math.min(1,Math.max(0,c.value.real))]):k};t.gray$1=function(a,g){var c=A(a[0]);return"number"===c.ctype?(c=Math.min(1,Math.max(0,c.value.real)),f.realVector([c,c,c])):k};t.grey$1=t.gray$1;D.HSVtoRGB=function(a,g,c){var b,d,e,h,k,m;a&&void 0===g&&void 0===c&&(g=a.s,c=a.v,a=a.h);h=Math.floor(6*a);k=6*a-h;a=c*(1-g);m=c*(1-k*g);g=c*(1-(1-k)*g);switch(h%6){case 0:b=c;d=g;e=a;break;case 1:b=m;d=c;e=a;break;case 2:b=a;d=c;e=g;break;case 3:b=a;d=m;e=c;break;case 4:b=g;d=a;e=c;break;case 5:b=c,d=a,e=m}return f.realVector([b,
-d,e])};t.hue$1=function(a,g){var c=A(a[0]);return"number"===c.ctype?(c=c.value.real,c-=Math.floor(c),D.HSVtoRGB(c,1,1)):k};D.shapeconvert=function(a){var g,c;if("circle"===a.type){g=a.value.value[0];g=v.div(g,g.value[2]);var b=g.value[0].value.real,d=g.value[1].value.real;a=a.value.value[1].value.real;c=Array(125);var e=2*Math.PI/125;for(g=0;125>g;g++)c[g]={X:b+Math.cos(g*e)*a,Y:d+Math.sin(g*e)*a};return[c]}if("polygon"===a.type){b=[];for(g=0;g<a.value.length;g++){d=a.value[g];c=[];for(e=0;e<d.length;e++)c[e]=
-{X:d[e].X,Y:d[e].Y};b[g]=c}return b}};D.shapeop=function(a,g,c){a=D.shapeconvert(a);var b=D.shapeconvert(g);ClipperLib.JS.ScaleUpPaths(a,1E3);ClipperLib.JS.ScaleUpPaths(b,1E3);g=new ClipperLib.Clipper;g.AddPaths(a,ClipperLib.PolyType.ptSubject,!0);g.AddPaths(b,ClipperLib.PolyType.ptClip,!0);var b=a=ClipperLib.PolyFillType.pftNonZero,d=new ClipperLib.Paths;g.Execute(c,d,a,b);ClipperLib.JS.ScaleDownPaths(d,1E3);return{ctype:"shape",type:"polygon",value:d}};D.shapecommon=function(a,g){return D.shapeop(a,
-g,ClipperLib.ClipType.ctIntersection)};D.shaperemove=function(a,g){return D.shapeop(a,g,ClipperLib.ClipType.ctDifference)};D.shapeconcat=function(a,g){return D.shapeop(a,g,ClipperLib.ClipType.ctUnion)};t.key$0=function(a,g){return{ctype:"string",value:Pc}};t.keycode$0=function(a,g){return m.real(Qc)};t.mouse$0=function(a,g){return f.realVector([sa[0],sa[1]])};t.mover$0=function(a,g){if(aa&&aa.mover)return{ctype:"geo",value:aa.mover};console.log("Not moving anything at the moment");return k};t.translate$1=
-function(a,g){var c=C(a[0]);"list"===c.ctype&&f.isNumberVector(c)&&2===c.value.length&&x.translate(c.value[0].value.real,c.value[1].value.real);return k};t.rotate$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&x.rotate(c.value.real);return k};t.scale$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&x.scale(c.value.real);return k};t.greset$0=function(a,g){var c=Xa.stack.length;x.greset();for(var b=0;b<c;b++)z.restore();return k};t.gsave$0=function(a,g){x.gsave();z.save();return k};t.grestore$0=
-function(a,g){x.grestore();z.restore();return k};t.color$1=function(a,g){var c=C(a[0]);"list"===c.ctype&&f.isNumberVector(c).value&&x.setcolor(c);return k};t.linecolor$1=function(a,g){var c=C(a[0]);"list"===c.ctype&&f.isNumberVector(c).value&&x.setlinecolor(c);return k};t.pointcolor$1=function(a,g){var c=C(a[0]);"list"===c.ctype&&f.isNumberVector(c).value&&x.setpointcolor(c);return k};t.alpha$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&x.setalpha(c);return k};t.pointsize$1=function(a,g){var c=
-C(a[0]);"number"===c.ctype&&x.setpointsize(c);return k};t.linesize$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&x.setlinesize(c);return k};t.textsize$1=function(a,g){var c=C(a[0]);"number"===c.ctype&&x.settextsize(c);return k};t.playanimation$0=function(a,g){S();return k};t.pauseanimation$0=function(a,g){Za();return k};t.stopanimation$0=function(a,g){Ja();return k};t.text$1=function(a,g){var c=C(a[0]);return v.string(w(c))};t.replace$3=function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]);if("string"===
-c.ctype&&"string"===b.ctype&&"string"===d.ctype)return c=c.value,b=b.value.replace(/[^A-Za-z0-9]/g,"\\$&"),d=d.value.replace(/\$/g,"$$$$"),c=c.replace(new RegExp(b,"g"),d),{ctype:"string",value:c}};t.replace$2=function(a,g){function c(a,c,g){var e="";d=b=-1;for(var f=0;f<c.length;f++){var h=c[f][0],k=a.indexOf(h,g);-1!==k&&(-1===b?(e=h,b=k,d=f):k<b&&(e=h,b=k,d=f))}return e}var b,d,e,f=A(a[0]);e=A(a[1]);if("string"===f.ctype&&"list"===e.ctype){for(var f=f.value,h=[],m=0;m<e.value.length;m++){var l=
-e.value[m];"list"===l.ctype&&2===l.value.length&&"string"===l.value[0].ctype&&"string"===l.value[1].ctype&&(h[h.length]=[l.value[0].value,l.value[1].value])}b=-1;for(e=c(f,h,0);-1!==b;)f=f.substring(0,b)+h[d][1]+f.substring(b+e.length,f.length),e=b+h[d][1].length,e=c(f,h,e);return{ctype:"string",value:f}}return k};t.substring$3=function(a,g){var c=A(a[0]),b=C(a[1]),d=C(a[2]);return"string"===c.ctype&&"number"===b.ctype&&"number"===d.ctype?{ctype:"string",value:c.value.substring(Math.floor(b.value.real),
-Math.floor(d.value.real))}:k};t.tokenize$2=function(a,g){var c=A(a[0]),b=A(a[1]);if("string"===c.ctype&&"string"===b.ctype)return t.tokenize$2([c,f.turnIntoCSList([b])],g);if("string"===c.ctype&&"list"===b.ctype){c=c.value;if(0===b.value.length){b=!0;if(void 0!==g.autoconvert){var d=A(g.autoconvert);"boolean"===d.ctype&&(b=d.value)}return b&&(b=parseFloat(c),!isNaN(b))?m.real(b):v.string(c)}var d=b.value[0],e=f.turnIntoCSList(b.value.slice(1)),c=c.split(d.value);return f.turnIntoCSList(c.map(function(a){return t.tokenize$2([v.string(a),
-e],g)}))}return k};t.indexof$2=function(a,g){var c=A(a[0]),b=A(a[1]);return"string"===c.ctype&&"string"===b.ctype?(c=c.value.indexOf(b.value),m.real(c+1)):k};t.indexof$3=function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]);return"string"===c.ctype&&"string"===b.ctype&&"number"===d.ctype?(c=c.value.indexOf(b.value,Math.round(d.value.real)-1),m.real(c+1)):k};t.parse$1=function(a,g){var c=A(a[0]);return"string"===c.ctype?(c=Ma(c.value),A(c)):k};t.unicode$1=function(a,g){var c;c=A(a[0]);var b=16;if(g.base){var d=
-A(g.base);"number"===d.ctype&&(b=d.value.real)}if("string"===c.ctype)c=parseInt(c.value,b);else if("number"===c.ctype)c=c.value.real;else return k;"undefined"!==typeof String.fromCodePoint?c=String.fromCodePoint(c):65535>=c?c=String.fromCharCode(c):(c-=65536,c=String.fromCharCode((c>>10)+55296,(c&1023)+56320));return v.string(c)};t.international$1=function(a,g){return t.international$2([a[0],null],g)};t.international$2=function(a,g){var c=A(a[0]);if("string"!==c.ctype)return k;var b=(q.translations||
-{})[q.language||"en"]||{};if(!b.hasOwnProperty(c.value))return c;var d=b[c.value];if("string"===typeof d)return v.string(d);if(null===a[1])return c;var e=A(a[1]),e="number"===e.ctype?e.value.real:0,b=(b._pluralFormFunction||Qd)(e);return b<d.length?v.string(d[b]):c};t.currentlanguage$0=function(a,g){return v.string(q.language||"en")};D.basismap=function(a,g,c,b){var d=f.turnIntoCSList([a,g,c]),d=f.adjoint3(f.transpose(d));b=v.mult(d,b);d=f.turnIntoCSList([v.mult(b.value[0],a),v.mult(b.value[1],g),
-v.mult(b.value[2],c)]);return f.transpose(d)};t.map$8=function(a,g){var c=M(a[0]),b=M(a[1]),d=M(a[2]),e=M(a[3]),h=M(a[4]),m=M(a[5]),l=M(a[6]),n=M(a[7]);return h!==k&&m!==k&&l!==k&&n!==k&&c!==k&&b!==k&&d!==k&&e!==k?(h=D.basismap(h,m,l,n),c=D.basismap(c,b,d,e),c=v.mult(h,f.adjoint3(c)),f.normalizeMax(c)):k};t.map$6=function(a,g){var c=M(a[0]),b=M(a[1]),d=M(a[2]),e=f.realVector([0,0,1]),h=f.cross,m=h(h(d,h(e,h(c,b))),h(b,h(e,h(c,d)))),l=M(a[3]),n=M(a[4]),q=M(a[5]),e=h(h(q,h(e,h(l,n))),h(n,h(e,h(l,q))));
-return l!==k&&n!==k&&q!==k&&e!==k&&c!==k&&b!==k&&d!==k&&m!==k?(l=D.basismap(l,n,q,e),c=D.basismap(c,b,d,m),c=v.mult(l,f.adjoint3(c)),f.normalizeMax(c)):k};t.map$4=function(a,g){var c=f.ii,b=f.jj,d=M(a[0]),e=M(a[1]),h=M(a[2]),m=M(a[3]);return h!==k&&m!==k&&d!==k&&e!==k?(h=D.basismap(h,m,c,b),c=D.basismap(d,e,c,b),c=v.mult(h,f.adjoint3(c)),f.normalizeMax(c)):k};t.map$2=function(a,g){var c=f.ii,b=f.jj,d=M(a[0]),e=v.add(f.realVector([1,0,0]),d),h=M(a[1]),m=v.add(f.realVector([1,0,0]),h);return h!==k&&
-m!==k&&d!==k&&e!==k?(h=D.basismap(h,m,c,b),c=D.basismap(d,e,c,b),c=v.mult(h,f.adjoint3(c)),f.normalizeMax(c)):k};t.pointreflect$1=function(a,g){var c=f.ii,b=f.jj,d=M(a[0]),e=v.add(f.realVector([1,0,0]),d),h=v.add(f.realVector([-1,0,0]),d);return h!==k&&d!==k&&e!==k?(h=D.basismap(d,h,c,b),c=D.basismap(d,e,c,b),c=v.mult(h,f.adjoint3(c)),f.normalizeMax(c)):k};t.linereflect$1=function(a,g){var c=f.ii,b=f.jj,d=M(a[0]),e=f.realVector([Math.random(),Math.random(),Math.random()]),h=f.realVector([Math.random(),
-Math.random(),Math.random()]),e=f.cross(e,d),h=f.cross(h,d);return d!==k&&e!==k?(d=D.basismap(e,h,c,b),c=D.basismap(e,h,b,c),c=v.mult(d,f.adjoint3(c)),f.normalizeMax(c)):k};D.extractPointVec=function(a){var g={ok:!1};if("geo"===a.ctype){var c=a.value;if("P"===c.kind)return g.x=xa.getField(c,"x"),g.y=xa.getField(c,"y"),g.z=m.real(1),g.ok=!0,g}if("list"!==a.ctype)return g;var b=a.value;if(2===b.length&&(a=b[0],c=b[1],"number"===a.ctype&&"number"===c.ctype))return g.x=a,g.y=c,g.z=m.real(1),g.ok=!0,g;
-3===b.length&&(a=b[0],c=b[1],b=b[2],"number"===a.ctype&&"number"===c.ctype&&"number"===b.ctype&&(g.x=m.div(a,b),g.y=m.div(c,b),g.z=m.real(1),g.ok=!0));return g};t.polygon$1=function(a,g){var c=A(a[0]);if("list"===c.ctype){for(var b=[],d=0;d<c.value.length;d++){var e=D.extractPoint(c.value[d]);if(!e.ok)return k;b[d]={X:e.x,Y:e.y}}return{ctype:"shape",type:"polygon",value:[b]}}return k};t.circle$2=function(a,g){var c=C(a[0]),b=C(a[1]),c=D.extractPointVec(c);if(!c.ok||"number"!==b.ctype)return k;c=f.turnIntoCSList([c.x,
-c.y,c.z]);return{ctype:"shape",type:"circle",value:f.turnIntoCSList([c,b])}};t.screen$0=function(a,g){var c=x.drawingstate.initialmatrix,b=function(a,g){var b=a-c.tx,d=g+c.ty;return{X:(b*c.d-d*c.b)/c.det,Y:-(-b*c.c+d*c.a)/c.det}};return{ctype:"shape",type:"polygon",value:[[b(0,0),b(W,0),b(W,V),b(0,V)]]}};t.halfplane$2=function(a,g){var c=C(a[0]),b=C(a[1]),d=M(c),e=M(b);if(c!==k&&b!==k){var h=b.usage,b=e;if("Line"===c.usage||"Point"===h)d=e,b=c;c=f.turnIntoCSList([b.value[0],b.value[1],m.zero]);c=
-f.cross(c,d);e=f.cross(b,c);e=v.div(e,e.value[2]);d=v.div(d,d.value[2]);d=f.sub(d,e);c=f.abs(d);d=v.div(d,c);c=e.value[0].value.real;e=e.value[1].value.real;b=1E3*d.value[0].value.real;d=1E3*d.value[1].value.real;return{ctype:"shape",type:"polygon",value:[[{X:c+d/2,Y:e-b/2},{X:c+d/2+b,Y:e-b/2+d},{X:c-d/2+b,Y:e+b/2+d},{X:c-d/2,Y:e+b/2}]]}}return k};t.element$1=function(a,g){var c=A(a[0]);return"string"===c.ctype&&u.csnames.hasOwnProperty(c.value)?{ctype:"geo",value:u.csnames[c.value]}:k};D.all$1=function(a,
-g){var c=A(a[0]);return"geo"===c.ctype&&c.value.incidences?f.ofGeos(c.value.incidences.map(function(a){return u.csnames[a]}).filter(g)):f.nil};t.allpoints$0=function(a,g){return f.ofGeos(u.points)};t.allpoints$1=function(a,g){return D.all$1(a,function(a){return"P"===a.kind})};t.allmasses$0=function(a,g){return f.ofGeos(ca)};t.allmasses$1=function(a,g){return D.all$1(a,function(a){return"P"===a.kind&&a.behavior&&"Mass"===a.behavior.type})};t.allsprings$0=function(a,g){return f.ofGeos(xc)};t.allsprings$1=
-function(a,g){return D.all$1(a,function(a){return"S"===a.kind&&a.behavior&&"Spring"===a.behavior.type})};t.alllines$0=function(a,g){return f.ofGeos(u.lines)};t.alllines$1=function(a,g){return D.all$1(a,function(a){return"L"===a.kind||"S"===a.kind})};t.allsegments$0=function(a,g){return f.ofGeos(u.lines.filter(function(a){return"S"===a.kind}))};t.allsegments$1=function(a,g){return D.all$1(a,function(a){return"S"===a.kind})};t.allconics$0=function(a,g){return f.ofGeos(u.conics)};t.allconics$1=function(a,
-g){return D.all$1(a,function(a){return"C"===a.kind})};t.allcircles$0=function(a,g){return f.ofGeos(u.conics.filter(function(a){return"Circle"===a.matrix.usage}))};t.allcircles$1=function(a,g){return D.all$1(a,function(a){return"C"===a.kind&&"Circle"===a.matrix.usage})};t.allelements$0=function(a,g){return f.ofGeos(u.gslp)};t.allelements$1=function(a,g){return D.all$1(a,function(a){return!0})};t.incidences$1=t.allelements$1;t.createpoint$2=function(a,g){var c=A(a[0]),b=M(a[1]);return"string"!==c.ctype?
-(console.log("Name must be a string"),k):"list"!==b.ctype&&f.isNumberVector(b)?(console.log("Position must be a number vector"),k):Da({name:c.value,type:"Free",labeled:!0,pos:b})};t.create$3=function(a,g){var c=A(a[0]),b=A(a[1]),d=A(a[2]),e,h;if("string"===c.ctype)e=c.value;else{if("list"!==c.ctype)return console.log("Names must be a string or a list of strings"),k;if(1!==c.value.length){e=v.string(c.value.map(function(a){return a.value}).join("__"));e=t.create$3([e,b,d],g);if(e!==k)for(b=v.string(e.kind.replace(/^(.*)s$/,
-"Select$1")),d=f.turnIntoCSList([v.string(e.name)]),h=0;h<c.value.length;++h)t.create$3([c.value[h],b,d],{index:m.real(h+1)});return e}if("string"!==c.value[0].ctype)return console.log("Element of names list must be a string"),k;e=c.value[0].value}if("string"!==b.ctype)return console.log("Type must be a string"),k;if("list"!==d.ctype)return console.log("Arguments must be a list"),k;if(!n.hasOwnProperty(b.value)&&!od.hasOwnProperty(b.value))return console.log("Invalid geometric operation: '"+b.value+
-"'"),k;var c=[],l=null;for(h=0;h<d.value.length;h++){var q=d.value[h];if("string"===q.ctype)c.push(q.value);else if("geo"===q.ctype)c.push(q.value.name);else if(l=M(q),l===k)return console.log("Unknown argument type"),k}e={name:e,type:b.value,labeled:!0};l&&(e.pos=l);0<c.length&&(e.args=c);b=C(g.index);"number"===b.ctype&&(e.index=b.value.real|0);return Da(e)};t.javascript$1=function(a,g){var c=A(a[0]);"string"===c.ctype&&(new Function(c.value)).call(qa);return k};t.use$1=function(a,g){function c(a,
-c,g){t[a.toLowerCase()+"$"+c]=g}var b=A(a[0]);if("string"===b.ctype){var b=b.value,d;q.plugins&&(d=q.plugins[b]);d||(d=va._pluginRegistry[b]);if(d)return d({instance:qa,config:q,nada:k,evaluate:A,extractPoint:D.extractPoint,evaluateAndVal:C,defineFunction:c,addShutdownHook:kb.push.bind(kb),addAutoCleaningEventListener:K,getVariable:J.getvar.bind(J),getInitialMatrix:function(){return x.drawingstate.initialmatrix},setTextRenderer:function(a,c){zc=a;c&&(qd=c)},getImage:function(a,c){"string"===typeof a&&
-(a=v.string(a));var g=cb(a);if(!g)return null;!c&&g.cdyUpdate&&g.cdyUpdate();return g},getMyfunction:function(a){return Wa.hasOwnProperty(a)?Wa[a]:null}}),{ctype:"boolean",value:!0};console.log("Plugin "+b+" not found");return{ctype:"boolean",value:!1}}return k};t.format$2=function(a,g){function c(a){a=a.toFixed(f);var c;do c=a,a=a.substring(0,a.length-1);while(""!==a&&"-"!==a&&+a===+c);return""+c}function b(a){var g;return"number"===a.ctype?(g=c(a.value.real),a=c(a.value.imag),g="0"===a?g:"-"===
-a.substring(0,1)?g+" - i*"+a.substring(1):g+" + i*"+a,{ctype:"string",value:g}):"list"===a.ctype?{ctype:"list",value:a.value.map(b)}:{ctype:"string",value:w(a).toString()}}var d=C(a[0]),e=C(a[1]),f;return"number"!==d.ctype&&"list"!==d.ctype||"number"!==e.ctype?k:(f=Math.max(0,Math.min(20,Math.round(e.value.real))),b(d))};Date.now||(Date.now=function(){return(new Date).getTime()});var Dd=0;t.timestamp$0=function(a,g){return m.real(Date.now())};t.seconds$0=function(a,g){return m.real((Date.now()-Dd)/
-1E3)};t.resetclock$0=function(a,g){Dd=Date.now();return k};t.time$0=function(a,g){var c=new Date;return f.realVector([c.getHours(),c.getMinutes(),c.getSeconds(),c.getMilliseconds()])};t.date$0=function(a,g){var c=new Date;return f.realVector([c.getFullYear(),c.getMonth()+1,c.getDate()])};t.simulationtime$0=function(a,g){return m.real(Cb*Ad)};t.settimeout$2=function(a,g){function c(){A(e);b()}var d=A(a[0]),e=a[1];"number"===d.ctype&&"undefined"!==typeof window&&window.setTimeout(c,1E3*d.value.real);
-return k};D.formatForWebGL=function(a){return a.toFixed(10)};t.generateWebGL$2=function(a,g){var c=D.formatForWebGL,b=a[0],d=A(a[1]);console.log(d);if("list"!==d.ctype)return k;for(var e=[],f=0;f<d.value.length;f++)"string"===d.value[f].ctype&&e.push(d.value[f].value);console.log("***********");console.log(e);d=D.plotvars(b);console.log(d);-1===d.indexOf("a")&&-1===d.indexOf("b")&&-1===d.indexOf("c")&&-1===d.indexOf("d")&&-1===d.indexOf("e")&&-1===d.indexOf("f")&&(b=C(b));if("number"===b.ctype)return{ctype:"string",
-value:"vec2("+c(b.value.real)+","+c(b.value.imag)+")"};if("variable"===b.ctype)return{ctype:"string",value:b.name};if("string"===b.ctype||"void"===b.ctype)return b;if(2===b.args.length&&("infix"===b.ctype||"function"===b.ctype)){c=t.compileToWebGL$1([b.args[0]],{});d=t.compileToWebGL$1([b.args[1]],{});if("+"===b.oper||"add"===b.oper)return void 0===c.value||"void"===c.ctype?{ctype:"string",value:d.value}:{ctype:"string",value:"addc("+c.value+","+d.value+")"};if("*"===b.oper||"mult"===b.oper)return{ctype:"string",
-value:"multc("+c.value+","+d.value+")"};if("/"===b.oper||"div"===b.oper)return{ctype:"string",value:"divc("+c.value+","+d.value+")"};if("-"===b.oper||"sub"===b.oper)return void 0===c.value||"void"===c.ctype?{ctype:"string",value:"negc("+d.value+")"}:{ctype:"string",value:"subc("+c.value+","+d.value+")"};if("^"===b.oper||"pow"===b.oper)return{ctype:"string",value:"powc("+c.value+","+d.value+")"}}if("function"===b.ctype&&1===b.args.length){c=t.compileToWebGL$1([b.args[0]],{});if("sin$1"===b.oper)return{ctype:"string",
-value:"sinc("+c.value+")"};if("cos$1"===b.oper)return{ctype:"string",value:"cosc("+c.value+")"};if("tan$1"===b.oper)return{ctype:"string",value:"tanc("+c.value+")"};if("exp$1"===b.oper)return{ctype:"string",value:"expc("+c.value+")"};if("log$1"===b.oper)return{ctype:"string",value:"logc("+c.value+")"};if("arctan$1"===b.oper)return{ctype:"string",value:"arctanc("+c.value+")"};if("arcsin$1"===b.oper)return{ctype:"string",value:"arcsinc("+c.value+")"};if("arccos$1"===b.oper)return{ctype:"string",value:"arccosc("+
-c.value+")"};if("sqrt$1"===b.oper)return{ctype:"string",value:"sqrtc("+c.value+")"}}return k};t.compileToWebGL$1=function(a,g){var c,b;c=D.formatForWebGL;var d=a[0];b=D.plotvars(d);-1===b.indexOf("a")&&-1===b.indexOf("b")&&-1===b.indexOf("c")&&-1===b.indexOf("d")&&-1===b.indexOf("e")&&-1===b.indexOf("f")&&(d=C(d));if("number"===d.ctype)return{ctype:"string",value:"vec2("+c(d.value.real)+","+c(d.value.imag)+")"};if("variable"===d.ctype)return{ctype:"string",value:d.name};if("string"===d.ctype||"void"===
-d.ctype)return d;if(2===d.args.length&&("infix"===d.ctype||"function"===d.ctype)){c=t.compileToWebGL$1([d.args[0]],{});b=t.compileToWebGL$1([d.args[1]],{});if("+"===d.oper||"add"===d.oper)return void 0===c.value||"void"===c.ctype?{ctype:"string",value:b.value}:{ctype:"string",value:"addc("+c.value+","+b.value+")"};if("*"===d.oper||"mult"===d.oper)return{ctype:"string",value:"multc("+c.value+","+b.value+")"};if("/"===d.oper||"div"===d.oper)return{ctype:"string",value:"divc("+c.value+","+b.value+")"};
-if("-"===d.oper||"sub"===d.oper)return void 0===c.value||"void"===c.ctype?{ctype:"string",value:"negc("+b.value+")"}:{ctype:"string",value:"subc("+c.value+","+b.value+")"};if("^"===d.oper||"pow"===d.oper)return{ctype:"string",value:"powc("+c.value+","+b.value+")"}}if("function"===d.ctype&&1===d.args.length){c=t.compileToWebGL$1([d.args[0]],{});if("sin$1"===d.oper)return{ctype:"string",value:"sinc("+c.value+")"};if("cos$1"===d.oper)return{ctype:"string",value:"cosc("+c.value+")"};if("tan$1"===d.oper)return{ctype:"string",
-value:"tanc("+c.value+")"};if("exp$1"===d.oper)return{ctype:"string",value:"expc("+c.value+")"};if("log$1"===d.oper)return{ctype:"string",value:"logc("+c.value+")"};if("arctan$1"===d.oper)return{ctype:"string",value:"arctanc("+c.value+")"};if("arcsin$1"===d.oper)return{ctype:"string",value:"arcsinc("+c.value+")"};if("arccos$1"===d.oper)return{ctype:"string$1",value:"arccosc("+c.value+")"};if("sqrt$1"===d.oper)return{ctype:"string",value:"sqrtc("+c.value+")"}}return k};t.setsimulationspeed$1=function(a,
-b){var c=C(a[0]);"number"===c.ctype&&oa(c.value.real);return k};t.setsimulationaccuracy$1=function(a,b){var c=C(a[0]);"number"===c.ctype&&"undefined"!==typeof N&&"undefined"!==typeof N.env&&(N.env.accuracy=Math.max(1,c.value.real|0));return k};t.setsimulationquality$1=function(a,b){var c=C(a[0]);"number"===c.ctype&&"undefined"!==typeof N&&"undefined"!==typeof N.env&&(c=c.value.real,0===c&&(N.env.errorbound=.01,N.env.lowestdeltat=1E-5,N.env.slowdownfactor=2),1===c&&(N.env.errorbound=.001,N.env.lowestdeltat=
-1E-7,N.env.slowdownfactor=2),2===c&&(N.env.errorbound=1E-5,N.env.lowestdeltat=1E-10,N.env.slowdownfactor=4),3===c&&(N.env.errorbound=1E-6,N.env.lowestdeltat=1E-12,N.env.slowdownfactor=4));return k};var Vb=null,cc=null;t.createtool$3=function(a,b){var c,d="left",e="top",f=null;b.space&&(c=A(b.space),"number"===c.ctype&&(f=c.value.real/2));var h=null;b.toolbar&&(c=A(b.toolbar),"string"===c.ctype&&((h=document.getElementById(c.value))||console.warn("Element #"+c.value+" not found")));if(!h){if(b.reference){var m=
-A(b.reference);if("string"===m.ctype)switch(m.value){case "UR":d="right";break;case "LL":e="bottom";break;case "LR":d="right",e="bottom"}}h=document.createElement("div");h.className="CindyJS-toolbar";ga.parentNode.appendChild(h);m=A(a[1]);c=A(a[2]);"number"===m.ctype&&(h.style[d]=m.value.real+"px");"number"===c.ctype&&(h.style[e]=c.value.real+"px");null!==f&&(h.style.margin=-f+"px")}m=A(a[0]);if("string"===m.ctype)m=[[m.value]];else if("list"===m.ctype)m=m.value.map(function(a){return"string"===a.ctype?
-[a.value]:"list"===a.ctype?a.value.map(function(a){return"string"===a.ctype?a.value:null}):[null]});else return console.log("Name must be a string or a list of strings"),k;if(b.flipped&&(c=A(b.flipped),"boolean"===c.ctype&&c.value)){console.log("Flipping");var l=0;c=m.length;m.forEach(function(a){a.length>l&&(l=a.length)});for(var n=[],q=0;q<l;++q){n[q]=[];for(var r=0;r<c;++r)n[q][r]=m[r][q]||null}m=n}"bottom"===e&&m.reverse();m.forEach(function(a){"right"===d&&a.reverse();var c=document.createElement("div");
-h.appendChild(c);a.forEach(function(a){function b(){Vb&&Vb.classList.remove("CindyJS-active");Vb=d;d.classList.add("CindyJS-active");oc=a;var c=F[oc].actions;cc&&(cc.textContent=c[0].tooltip||"");ta=[];tb=Qa=0}F.hasOwnProperty(a)||(console.log("Tool '"+a+"' not implemented yet."),a=null);if(null===a){var g=document.createElement("span");g.className="CindyJS-spacer";c.appendChild(g)}else{var d=document.createElement("button"),g=document.createElement("img");g.src=va.getBaseDir()+"images/"+a+".png";
-d.appendChild(g);d.addEventListener("click",b);Vb||b();null!==f&&(d.style.margin=f+"px");c.appendChild(d)}})});return k};t.dropped$0=function(){return jc};t.droppoint$0=function(){return kc};t.parsecsv$1=function(a,b){var c=!0,d=C(b.autoconvert);"boolean"===d.ctype&&(c=d.value);var e=null,d=C(b.delimiter);"string"===d.ctype&&/^[^\"\r\n]$/.test(d.value)&&(e=d.value);d=C(a[0]);if("string"!==d.ctype)return console.log("CSV data is not a string"),k;var d=d.value,h='(?:"((?:[^"]+|"")*)"|([^]*?))(\r\n|(,)|[\r\n]|$)';
-e&&(e=e.replace(/[^A-Za-z0-9]/g,"\\$&").replace(/\$/g,"$$$$"),h=h.replace(/,/g,e));for(var h=new RegExp(h,"g"),e=[],l=[],n=null;h.lastIndex<d.length;){var q=h.exec(d),r=q[2];"string"===typeof q[1]&&(r=q[1].replace(/""/g,'"'));r=c?/^[Tt]rue$/.test(r)?v.bool(!0):/^[Ff]alse$/.test(r)?v.bool(!1):/^[\-+]?([0-9]+(\.[0-9]*)?|\.[0-9]+|Infinity)$/.test(r)?m.real(Number(r)):v.string(r):v.string(r);e.push(r);q[4]&&h.lastIndex===d.length&&(e.push(v.string("")),q={});if(!q[4]){null===n&&(n=e.length);if(n<e.length)for(n=
-e.length,q=0;q<l.length;++q)for(r=l[q].length;r<n;++r)l[q][r]=k;else if(n>e.length)for(q=e.length;q<n;++q)e[q]=k;l.push(e);e=[]}}return f.turnIntoCSList(l.map(f.turnIntoCSList))};t.load$2=function(a,b){return t.load$3([a[0],null,a[1]],b)};t.load$3=function(a,g){function c(){if(h.readyState===XMLHttpRequest.DONE){var c;200===h.status?c=v.string(String(h.responseText)):(ha.err("Failed to load "+f+": "+h.statusText),c=k);J.newvar(d);J.setvar(d,c);A(a[2]);J.removevar(d);b()}}var d="#";null!==a[1]&&"variable"===
-a[1].ctype&&(d=a[1].name);var e=C(a[0]),f=null,h=null;"string"===e.ctype&&/^https?:\/\//.test(e.value)&&(f=e.value);return null!==f?(h=new XMLHttpRequest,h.onreadystatechange=c,h.open("GET",f),h.send(),v.bool(!0)):k};D.extractPoint=function(a){var b={ok:!1};if("geo"===a.ctype){var c=a.value;if("P"===c.kind)return b.x=xa.getField(c,"x").value.real,b.y=xa.getField(c,"y").value.real,b.ok=!0,b}if("list"!==a.ctype)return b;var d=a.value;if(2===d.length&&(a=d[0],c=d[1],"number"===a.ctype&&"number"===c.ctype))return b.x=
-a.value.real,b.y=c.value.real,b.ok=!0,b;3===d.length&&(a=d[0],c=d[1],d=d[2],"number"===a.ctype&&"number"===c.ctype&&"number"===d.ctype&&(a=m.div(a,d),c=m.div(c,d),b.x=a.value.real,b.y=c.value.real,b.ok=!0));return b};t.draw$1=function(a,b){var c=C(a[0]);if("shape"===c.ctype)D.drawshape(c,b);else if("Line"===c.usage)y.handleModifs(b,y.lineModifs),y.drawline(c);else{var d=D.extractPoint(c);if(!d.ok){if("undefined"!==typeof c.value&&2===c.value.length)return t.draw$2(c.value,b);return}null!==b&&y.handleModifs(b,
-y.pointModifs);y.drawpoint(d)}return k};t.draw$2=function(a,b){var c=C(a[0]),d=C(a[1]),c=D.extractPoint(c),d=D.extractPoint(d);if(!c.ok||!d.ok)return k;null!==b&&y.handleModifs(b,y.lineModifs);y.drawsegcore(c,d);return k};t.drawcircle$2=function(a,b){return D.drawcircle(a,b,"D")};D.arcHelper=function(a){var b={};b.startPoint=M(a[0]);b.viaPoint=M(a[1]);b.endPoint=M(a[2]);return b};t.fillcircle$2=function(a,b){return D.drawcircle(a,b,"F")};t.drawarc$3=function(a,b){var c=D.arcHelper(a);return D.drawarc(c,
-b,"D")};t.fillarc$3=function(a,b){var c=D.arcHelper(a);return D.drawarc(c,b,"F")};D.drawarc=function(a,b,c){var d=a.startPoint,e=a.viaPoint;a=a.endPoint;if(!f._helper.isAlmostReal(f.turnIntoCSList([d,e,a])))return k;y.handleModifs(b,y.conicModifs);y.preDrawCurve();b=f.det3(d,e,a);if(1E-12<Math.abs(b.value.real)){b=n._helper.ConicBy5(null,d,e,a,f.ii,f.jj);var h=n._helper.CenterOfConic(b),h=f.normalizeMax(h);b=m.real(0);var l=f.turnIntoCSList([f.turnIntoCSList([h.value[2],b,m.neg(h.value[0])]),f.turnIntoCSList([b,
-h.value[2],m.neg(h.value[1])]),f.turnIntoCSList([b,b,h.value[2]])]);b=f.normalizeZ(v.mult(l,d));f.normalizeZ(v.mult(l,e));l=f.normalizeZ(v.mult(l,a));b=-Math.atan2(b.value[1].value.real,b.value[0].value.real);l=-Math.atan2(l.value[1].value.real,l.value[0].value.real);h=f.normalizeZ(h);d=f.normalizeZ(d);e=f.normalizeZ(e);a=f.normalizeZ(a);var q=f.abs(f.sub(d,h)),r=[h.value[0].value.real,h.value[1].value.real],h=x.drawingstate.matrix,t=r[0]*h.a-r[1]*h.b+h.tx,r=r[0]*h.c-r[1]*h.d-h.ty,d=0<f.det3(d,e,
-a).value.real;z.save();z.beginPath();z.translate(t,r);z.arc(0,0,q.value.real*h.sdet,b,l,d);"F"===c&&(z.fillStyle=y.lineColor,z.closePath(),z.fill());"D"===c&&z.stroke();z.restore()}else{if("D"!==c)return k;c=D.extractPoint(d);b=D.extractPoint(e);l=D.extractPoint(a);if(!c.ok||!b.ok||!l.ok)return k;q=(c.x-l.x)*(c.x-l.x)+(c.y-l.y)*(c.y-l.y);h=(l.x-b.x)*(l.x-b.x)+(l.y-b.y)*(l.y-b.y);if(1E-12>(c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)||1E-12>q||1E-12>h)return k;0>f.crossratio3(d,a,e,f.cross(f.cross(d,e),
-f.linfty),f.ii).value.real?y.drawsegcore(c,l):y.drawRaySegment(d,a)}return k};D.drawcircle=function(a,b,c){var d=C(a[0]);a=C(a[1]);var e=D.extractPoint(d);if(!e.ok||"number"!==a.ctype||!m._helper.isAlmostReal(a))return k;var d=x.drawingstate.matrix,f=e.x*d.a-e.y*d.b+d.tx,e=e.x*d.c-e.y*d.d-d.ty;y.handleModifs(b,y.conicModifs);y.preDrawCurve();z.lineJoin="miter";z.beginPath();z.arc(f,e,Math.abs(a.value.real)*d.sdet,0,2*Math.PI);z.closePath();"D"===c&&z.stroke();"F"===c&&(z.fillStyle=y.lineColor,z.fill());
-"C"===c&&z.clip();return k};t.drawconic$1=function(a,b){var c;c=C(a[0]);if("list"!==c.ctype||3!==c.value.length&&6!==c.value.length)return console.error("could not parse conic"),k;if(6===c.value.length){for(var d=0;6>d;d++)if("number"!==c.value[d].ctype)return console.error("could not parse conic"),k;var e=m.real(.5),d=c.value[0],h=c.value[2],h=m.mult(h,e),l=c.value[1],n=c.value[3],n=m.mult(n,e),q=c.value[4],q=m.mult(q,e);c=c.value[5];c=f.turnIntoCSList([f.turnIntoCSList([d,h,n]),f.turnIntoCSList([h,
-l,q]),f.turnIntoCSList([n,q,c])])}else{for(d=0;3>d;d++)for(h=0;3>h;h++)if("number"!==c.value[d].value[h].ctype)return console.error("could not parse conic"),k;f.equals(c,f.transpose(c)).value||(d=v.mult(c,m.real(.5)),c=v.mult(f.transpose(c),m.real(.5)),c=f.add(d,c))}c=f.normalizeMax(c);return D.drawconic(c,b)};D.drawconic=function(a,b){y.handleModifs(b,y.conicModifs);if(0!==y.lsize){y.preDrawCurve();for(var c=f.normalizeMax(a),d=c,e=0;2>e;e++)for(var h=0;2>h;h++)if(Math.abs(c.value[e].value[h].value.imag)>
-m.eps)return;e=f.turnIntoCSList([f.realVector([-1,-1,1]),f.realVector([1,0,0]),f.realVector([0,1,0])]);h=x.from(0,0,1);h[2]=1;var l=x.from(1,0,1);l[2]=1;var q=x.from(0,1,1);q[2]=1;var h=f.turnIntoCSList([f.realVector(h),f.realVector(l),f.realVector(q)]),h=f.transpose(h),e=v.mult(h,e),e=f.inverse(e),c=v.mult(f.transpose(e),c),c=v.mult(c,e),e=c.value[0].value[0].value.real,h=c.value[1].value[0].value.real,l=c.value[1].value[1].value.real,q=c.value[2].value[0].value.real,r=c.value[2].value[1].value.real,
-u=c.value[2].value[2].value.real,c=[[e,h,q],[h,l,r],[q,r,u]],w=1E-14>Math.abs(e*l*u-e*r*r-h*h*u+2*h*q*r-l*q*q);if(w&&"Circle"===a.usage){var A=v.mult(f.adjoint3(d),f.linfty);m.abs(A.value[2]).value.real>m.eps&&(w=!1)}var A=W>V?W:V,B=-1.5*A,C=1.5*A,D=-1.5*A,ec=1.5*A,E=1;w&&(E=0);if(E)var q=0,q=1E-14<Math.abs(e-h)?Math.atan(h/e-l)/2:Math.PI/4,F=function(a){var c=Math.cos(a);a=Math.sin(a);return[[c,-a,0],[a,c,0],[0,0,1]]}(q),F=f.realMatrix(F),e=f.transpose(F),c=v.mult(f.realMatrix(c),F),c=v.mult(e,c),
-e=c.value[0].value[0].value.real,h=c.value[1].value[0].value.real,l=c.value[1].value[1].value.real,q=c.value[2].value[0].value.real,r=c.value[2].value[1].value.real,u=c.value[2].value[2].value.real;var c=[e,h,l,q,r,u],e=function(){var a=n._helper.splitDegenConic(d);if(a!==k){var c=a[1],a=[a[0]];t.draw$1(a,b);a[0]=c;t.draw$1(a,b)}},G=function(a){"undefined"!==a&&6===a.length||console.error("this does not define a Conic");if(w)return"degenerate";a=a[0]*a[2]-a[1]*a[1];return 1E-14>Math.abs(a)?"parabola":
-1E-14<a?"ellipsoid":"hyperbola"};G(c);var H=function(a,c){return 0<a&&a<W&&0<c&&c<V},I=[],J=[],K=[],L=[],M=[],N=[],O=function(){I=[];J=[];K=[];L=[];M=[];N=[]},P=function(a,c){z.beginPath();z.moveTo(a[0],c[0]);for(var b=1;b<a.length;b++)z.lineTo(a[b],c[b]);z.stroke()},Q=function(a,c,b){var g,d,e=G(a);if(6!==a.length)console.error("Conic needs 6 Parameters");else{var p=a[0],h=a[1],k=a[2],m=a[3],l=a[4];a=a[5];var n;g=b-c;for(var ba=.1*g+c,q=b-.1*g,R=c;R<=b;R+=n){n=R<ba||R>q||100>Math.abs(b-c)?.5:0>R||
-R>V?10:3;d=-p*k*R*R-2*p*l*R-p*a+h*h*R*R+2*h*m*R+m*m;d=Math.sqrt(d);g=1/p*(-h*R-m+d);d=-1/p*(h*R+m+d);var r,Ca;E?(r=[g,R,1],Ca=[d,R,1],r=v.mult(F,f.realVector(r)),Ca=v.mult(F,f.realVector(Ca)),g=r.value[0].value.real,d=Ca.value[0].value.real,r=r.value[1].value.real,Ca=Ca.value[1].value.real):Ca=r=R;isNaN(g)||"ellipsoid"!==e?!isNaN(g)&&g>=B&&g<=C&&(I.push(g),K.push(r)):(I.push(g),K.push(r));isNaN(d)||"ellipsoid"!==e?!isNaN(d)&&d>=B&&d<=C&&(J.push(d),L.push(Ca)):(J.push(d),L.push(Ca))}}},h=function(a){var c,
-b,g;G(a);if(6!==a.length)console.error("Conic needs 6 Parameters");else{g=a[0];var d=a[1],e=a[2],f=a[3],p=a[4],h=a[5];c=-g*p+d*f;b=Math.sqrt(g*(-g*e*h+g*Math.pow(p,2)+Math.pow(d,2)*h-2*d*f*p+e*Math.pow(f,2)));e=g*e-Math.pow(d,2);1E-14<Math.abs(e)?(g=(c-b)/e,b=(c+b)/e):b=g=(-g*h+f*f)/(2*g*p-2*d*f);!isNaN(g)&&g>D&&g<ec||(g=D);!isNaN(b)&&b>D&&b<ec||(b=D);c=g<b?g:b;b=g>b?g:b;Q(a,D,c);M=I.concat(J.reverse());N=K.concat(L.reverse());P(M,N);O();Q(a,b,ec);P(I,K);if(H(I[0],K[1])||H(J[0],L[0]))z.beginPath(),
-z.moveTo(I[0],K[0]),z.lineTo(J[0],L[0]),z.stroke();P(J,L);O();Q(a,c,b);P(I,K);z.beginPath();z.moveTo(I[0],K[0]);z.lineTo(J[0],L[0]);z.stroke();z.beginPath();z.moveTo(I[I.length-1],K[K.length-1]);z.lineTo(J[J.length-1],L[L.length-1]);z.stroke();P(J,L);O()}};w?e():h(c)}};t.drawall$1=function(a,b){var c=A(a[0]);if("list"===c.ctype){y.handleModifs(b,y.pointAndLineModifs);for(var d=0;d<c.value.length;d++)t.draw$1([c.value[d]],null)}return k};t.connect$1=function(a,b){return D.drawpolygon(a,b,"D",!1)};
-t.drawpoly$1=function(a,b){return D.drawpolygon(a,b,"D",!0)};t.fillpoly$1=function(a,b){return D.drawpolygon(a,b,"F",!0)};t.drawpolygon$1=function(a,b){return D.drawpolygon(a,b,"D",!0)};t.fillpolygon$1=function(a,b){return D.drawpolygon(a,b,"F",!0)};D.drawpolygon=function(a,b,c,d){function e(){for(var a=m.value,c=0;c<a.length;c++){var b=a[c],g;for(g=0;g<b.length;g++){var d=b[g],f=d.X*h.a-d.Y*h.b+h.tx,d=d.X*h.c-d.Y*h.d-h.ty;0===g?z.moveTo(f,d):z.lineTo(f,d)}z.closePath()}}function f(){var a;for(a=
-0;a<m.value.length;a++){var c=D.extractPoint(m.value[a]);if(!c.ok)return;var b=c.x*h.a-c.y*h.b+h.tx,c=c.x*h.c-c.y*h.d-h.ty;0===a?z.moveTo(b,c):z.lineTo(b,c)}d&&z.closePath()}y.handleModifs(b,y.conicModifs);y.preDrawCurve();z.mozFillRule="evenodd";var h=x.drawingstate.matrix,m=A(a[0]);z.beginPath();"list"===m.ctype&&f();"shape"===m.ctype&&e();"D"===c&&(y.fillColor&&(z.fillStyle=y.fillColor,z.fill()),z.stroke());"F"===c&&(z.fillStyle=y.lineColor,z.fill());"C"===c&&z.clip();return k};var zc=Wc,qd=function(a,
-b,c){if(-1!==b.indexOf("\n"))for(b=b.split("\n"),a.textContent=b[0],c=1;c<b.length;++c)a.appendChild(document.createElement("br")),a.appendChild(document.createTextNode(b[c]));else a.textContent=b};D.drawtext=function(a,b,c){var d=C(a[0]);a=A(a[1]);var e=D.extractPoint(d);if(!e.ok)return null;y.handleModifs(b,y.textModifs);b=x.drawingstate.textsize;null===b&&(b=ja.textsize);null!==y.size&&(b=y.size);z.fillStyle=y.textColor;var f=x.drawingstate.matrix,d=e.x*f.a-e.y*f.b+f.tx+y.xOffset,e=e.x*f.c-e.y*
-f.d-f.ty-y.yOffset;a=w(a);f=y.bold+y.italics+Math.round(10*b)/10+"px "+y.family;z.font=f;return c?c(a,f,d,e,y.align,b):zc(z,a,d,e,y.align,b,b*ja.lineHeight)};t.drawtext$2=function(a,b){D.drawtext(a,b,null);return k};t.drawtable$2=function(a,b){var c=C(a[0]),d=C(a[1]),e=D.extractPoint(c);if(!e.ok||"list"!==d.ctype)return k;var d=d.value,c=d.length,h=-1,m;for(m=0;m<c;++m)"list"===d[m].ctype&&d[m].value.length>h&&(h=d[m].value.length);-1===h?(d=d.map(function(a){return[a]}),h=1):d=d.map(function(a){return f.asList(a).value});
-var l=100,n=null,q=!0,r=x.drawingstate.textcolor;y.handleModifs(b,{size:!0,color:function(a){f._helper.isNumberVecN(a,3)&&(r=y.makeColor([a.value[0].value.real,a.value[1].value.real,a.value[2].value.real]))},alpha:!0,bold:!0,italics:!0,family:!0,align:!0,x_offset:!0,y_offset:!0,offset:!0,width:function(a){"number"===a.ctype&&(l=a.value.real)},height:function(a){"number"===a.ctype&&(n=a.value.real)},border:function(a){"boolean"===a.ctype&&(q=a.value)}});var t=x.drawingstate.textsize;null===t&&(t=ja.textsize);
-null!==y.size&&(t=y.size);null===n&&(n=1.6*t);z.font=y.bold+y.italics+Math.round(10*t)/10+"px "+y.family;m=x.drawingstate.matrix;var u=h*l,v=c*n,t=e.x*m.a-e.y*m.b+m.tx+y.xOffset,A=e.x*m.c-e.y*m.d-m.ty-y.yOffset-v;if(q){y.preDrawCurve();z.strokeStyle=y.lineColor;z.beginPath();for(m=1;m<c;++m)z.moveTo(t,A+m*n),z.lineTo(t+u,A+m*n);for(e=1;e<h;++e)z.moveTo(t+e*l,A),z.lineTo(t+e*l,A+v);z.stroke();z.lineWidth=y.lsize+1;z.beginPath();z.rect(t,A,u,v);z.stroke()}t+=y.align*l+(1-2*y.align)*n*.3;A+=.7*n;z.fillStyle=
-r;for(m=0;m<c;++m)for(e=0;e<h;++e)u=w(d[m][e]),zc(z,u,t+e*l,A+m*n,y.align);return k};D.drawshape=function(a,b){return"polygon"===a.type?D.drawpolygon([a],b,"D",1):"circle"===a.type?D.drawcircle([a.value.value[0],a.value.value[1]],b,"D"):k};D.fillshape=function(a,b){return"polygon"===a.type?D.drawpolygon([a],b,"F",1):"circle"===a.type?D.drawcircle([a.value.value[0],a.value.value[1]],b,"F"):k};D.clipshape=function(a,b){return"polygon"===a.type?D.drawpolygon([a],b,"C",1):"circle"===a.type?D.drawcircle([a.value.value[0],
-a.value.value[1]],b,"C"):k};t.fill$1=function(a,b){var c=A(a[0]);return"shape"===c.ctype?D.fillshape(c,b):k};t.clip$1=function(a,b){var c=A(a[0]);return"shape"===c.ctype?D.clipshape(c,b):"list"===c.ctype?(c=t.polygon$1(a,[]),t.clip$1([c],[])):k};t.plot$1=function(a,b){return t.plot$2([a[0],null],b)};t.plot$2=function(a,b){function c(a){return"number"===a.ctype&&m._helper.isAlmostReal(a)}function d(a,c,b,g,e){n++;c=+c.value.real;e=+g.value.real;g=c*E.a-e*E.b+E.tx;c=c*E.c-e*E.d-E.ty;a=+a.value.real;
-e=+b.value.real;b=a*E.a-e*E.b+E.tx;a=a*E.c-e*E.d-E.ty;q?(z.lineTo(b,a),z.lineTo(g,c)):(z.beginPath(),z.moveTo(b,a),z.lineTo(g,c),q=!0)}function e(a,b,g,f,k){var n=c(g),r=c(f);if(.001>k)!h&&q&&(z.stroke(),q=!1);else if(n||r){var t=m.real((a.value.real+b.value.real)/2);J.setvar(B,t);var u=A(w),v=c(u);if(n&&r&&v){var Mb=g.value.real,r=u.value.real,v=f.value.real;if(n=1>Math.abs(Mb+v-2*r)/l){var x=m.real((a.value.real+t.value.real)/2);J.setvar(B,x);var x=A(w),y=m.real((t.value.real+b.value.real)/2);J.setvar(B,
-y);y=A(w);Mb=Math.abs(Mb+r-2*x.value.real)/l;r=Math.abs(r+v-2*y.value.real)/l;n=n&&1>Mb&&1>r}n?(d(a,t,g,u,k/2),d(t,b,u,f,k/2)):(e(a,t,g,u,k/2),e(t,b,u,f,k/2))}else e(a,t,g,u,k/2),e(t,b,u,f,k/2)}}var h=!1,l=.2/Jb,n=0,q=!1,r=-10,t=10,u=.1,v=1E3,w=a[0],B;if(null!==a[1]&&"variable"===a[1].ctype)B=a[1].name;else{var C=D.plotvars(w);B="#";-1!==C.indexOf("t")&&(B="t");-1!==C.indexOf("z")&&(B="z");-1!==C.indexOf("y")&&(B="y");-1!==C.indexOf("x")&&(B="x")}J.newvar(B);var E=x.drawingstate.matrix;y.handleModifs(b,
-{color:!0,alpha:!0,size:!0,dashpattern:!0,dashtype:!0,dashing:!0,lineCap:!0,lineJoin:!0,miterLimit:!0,connect:function(a){"boolean"===a.ctype&&(h=a.value)},start:function(a){"number"===a.ctype&&(r=a.value.real)},stop:function(a){"number"===a.ctype&&(t=a.value.real)},steps:function(a){"number"===a.ctype&&(v=a.value.real)}});z.strokeStyle=y.lineColor;z.lineWidth=y.lsize;var F,G,H,I,q=!1,C=m.real(14.32);J.setvar(B,C);H=A(w);if("number"!==H.ctype){if(f.isNumberVector(H).value&&2===H.value.length){q=!1;
-u=(t-r)/v;for(C=r;C<t;C+=u)J.setvar(B,m.real(C)),I=A(w),f.isNumberVector(I).value&&2===I.value.length&&(F=+I.value[0].value.real,G=+I.value[1].value.real,I=F*E.a-G*E.b+E.tx,F=F*E.c-G*E.d-E.ty,q?z.lineTo(I,F):(z.beginPath(),z.moveTo(I,F),q=!0));z.stroke();J.removevar(B)}return k}for(I=r;I<t+u;I+=u)C=m.real(I),J.setvar(B,C),H=A(w),C.value.real>r&&e(F,C,G,H,u),F=C,G=H;J.removevar(B);q&&z.stroke();return k};t.plotX$1=function(a,b){var c=a[0],d=D.plotvars(c),e="#";-1!==d.indexOf("t")&&(e="t");-1!==d.indexOf("z")&&
-(e="z");-1!==d.indexOf("y")&&(e="y");-1!==d.indexOf("x")&&(e="x");J.newvar(e);d=x.drawingstate.matrix;z.fillStyle=x.drawingstate.linecolor;z.lineWidth=1;z.lineCap=y.lineCap;z.lineJoin=y.lineJoin;z.miterLimit=y.miterLimit;for(var f=!1,h=-10;10>h;h+=.01){J.setvar(e,m.real(h));var l=A(c);if("number"===l.ctype){var n=+l.value.real,l=h*d.a-n*d.b+d.tx,n=h*d.c-n*d.d-d.ty;f?z.lineTo(l,n):(z.beginPath(),z.moveTo(l,n),f=!0)}}z.stroke();J.removevar(e);return k};D.plotvars=function(a){function b(a,c){var g={},
-d;for(d=a.length-1;0<=d;--d)g[a[d]]=a[d];for(d=c.length-1;0<=d;--d)g[c[d]]=c[d];d=[];for(var e in g)g.hasOwnProperty(e)&&d.push(g[e]);return d}function c(a,c){for(var b=0;b<a.length;b++)a[b]===c&&(a.splice(b,1),b--);return a}var d,e,f,h;if("variable"===a.ctype)return[a.name];if("infix"===a.ctype)return d=D.plotvars(a.args[0]),a=D.plotvars(a.args[1]),b(d,a);if("list"===a.ctype){f=a.value;e=[];for(h=0;h<f.length;h++)d=D.plotvars(f[h]),e=b(e,d);return e}if("function"===a.ctype){f=a.args;e=[];for(h=0;h<
-f.length;h++)d=D.plotvars(f[h]),e=b(e,d);"apply"!==a.oper&&"select"!==a.oper&&"forall"!==a.oper&&"sum"!==a.oper&&"product"!==a.oper&&"repeat"!==a.oper&&"min"!==a.oper&&"max"!==a.oper&&"sort"!==a.oper||"variable"!==a.args[1].ctype||(e=c(e,a.args[1].name));return e}return[]};t.clrscr$0=function(a,b){"undefined"!==typeof W&&"undefined"!==typeof V&&z.clearRect(0,0,W,V);return k};t.repaint$0=function(a,g){b();return k};t.screenbounds$0=function(a,b){var c=v.withUsage(f.realVector(x.to(0,0)),"Point"),d=
-v.withUsage(f.realVector(x.to(W,0)),"Point"),e=v.withUsage(f.realVector(x.to(W,V)),"Point"),h=v.withUsage(f.realVector(x.to(0,V)),"Point");return f.turnIntoCSList([c,d,e,h])};t.createimage$3=function(a,b){var c=A(a[0]),d=C(a[1]),e=C(a[2]);if("number"!==d.ctype||"number"!==e.ctype||"string"!==c.ctype)return k;var f=document.createElement("canvas");f.id=c.value;f.width=d.value.real;f.height=e.value.real;f.style.display="none";document.body.appendChild(f);ab[c.value]=X(f);return k};t.clearimage$1=function(a,
-b){var c=A(a[0]);if("string"!==c.ctype&&"image"!==c.ctype)return k;var c=cb(c),d=c.img;if("undefined"===typeof d||null===d)return k;var e=c.width,f=c.height;d.getContext("2d").clearRect(0,0,e,f);c.generation++;return k};t.canvas$4=function(a,b){var c=C(a[0]),d=C(a[1]),e=A(a[2]),f=a[3],h=D.extractPoint(c),m=D.extractPoint(d);if(!h.ok||!m.ok||"string"!==e.ctype&&"image"!==e.ctype)return k;e=cb(e);if(!e||!e.img.getContext)return k;var d=e.img,l=e.width,c=e.height,n=m.x-h.x,q=m.y-h.y,r=h.x-q*c/l,t=h.y+
-n*c/l,q=m.x-q*c/l,n=m.y+n*c/l,m=x.from(h.x,h.y,1),r=x.from(r,t,1),q=x.from(q,n,1),h=m[0],t=m[1],n=r[0],u=r[1],v=q[0],w=q[1],r=l*(t-u)/((h-n)*(t-w)-(h-v)*(t-u)),l=l*(h-n)/((t-u)*(h-v)-(t-w)*(h-n)),q=-r*h-l*t,m=(c*(t-w)-c*(t-u))/((h-n)*(t-w)-(h-v)*(t-u)),n=(c*(h-v)-c*(h-n))/((t-u)*(h-v)-(t-w)*(h-n)),c=c-m*h-n*t,d=d.getContext("2d"),h=z;z=d;z.save();z.transform(r,m,l,n,q,c);e.generation++;A(f);z.restore();z=h};t.canvas$5=function(a,b){var c=C(a[0]),d=C(a[1]),e=C(a[2]),f=A(a[3]),h=a[4],c=D.extractPoint(c),
-m=D.extractPoint(d),l=D.extractPoint(e);if(!c.ok||!m.ok||!l.ok||"string"!==f.ctype&&"image"!==f.ctype)return k;f=cb(f);if(!f||!f.img.getContext)return k;var e=f.img,n=f.width,d=f.height,q=x.from(c.x,c.y,1),r=x.from(m.x,m.y,1),m=x.from(l.x,l.y,1),c=q[0],l=q[1],t=r[0],u=r[1],v=m[0],w=m[1],m=((0-n)*(l-w)-0*(l-u))/((c-t)*(l-w)-(c-v)*(l-u)),n=((0-n)*(c-v)-0*(c-t))/((l-u)*(c-v)-(l-w)*(c-t)),r=0-m*c-n*l,q=((d-d)*(l-w)-(d-0)*(l-u))/((c-t)*(l-w)-(c-v)*(l-u)),t=((d-d)*(c-v)-(d-0)*(c-t))/((l-u)*(c-v)-(l-w)*
-(c-t)),d=d-q*c-t*l,e=e.getContext("2d"),c=z;z=e;z.save();z.transform(m,q,n,t,r,d);f.generation++;A(h);z.restore();z=c};t.screenresolution$0=function(a,b){return m.real(x.drawingstate.matrix.a)};t.layer$1=function(a,b){};t.imagesize$1=function(a,b){var c=cb(C(a[0]));return c?f.realVector([+c.width,+c.height]):k};t.imageready$1=function(a,b){var c=cb(C(a[0]));return v.bool(!(!c||!c.ready))};t.drawimage$2=function(a,b){function c(){var a=1,c=1,d=1,p=1,h=0,m=1,n=D.extractPoint(e);if(!n.ok)return k;l=
-cb(l);if(!l)return k;z.save();var q;void 0!==b.angle&&(q=A(b.angle),"number"===q.ctype&&(h=q.value.real));void 0!==b.rotation&&(q=A(b.rotation),"number"===q.ctype&&(h=q.value.real));void 0!==b.scale&&(q=C(b.scale),"number"===q.ctype&&(c=a=q.value.real),f.isNumberVector(q).value&&2===q.value.length&&(a=q.value[0].value.real,c=q.value[1].value.real));void 0!==b.scalex&&(q=A(b.scalex),"number"===q.ctype&&(a=q.value.real));void 0!==b.scaley&&(q=A(b.scaley),"number"===q.ctype&&(c=q.value.real));void 0!==
-b.flipx&&(q=A(b.flipx),"boolean"===q.ctype&&q.value&&(d=-1));void 0!==b.flipy&&(q=A(b.flipy),"boolean"===q.ctype&&q.value&&(p=-1));void 0!==b.alpha&&(q=A(b.alpha),"number"===q.ctype&&(m=q.value.real));var r=x.drawingstate.matrix,R=x.drawingstate.initialmatrix,t=l.width,u=l.height;q=n.x*r.a-n.y*r.b+r.tx;var v=n.x*r.c-n.y*r.d-r.ty,w=(n.x+1)*r.a-n.y*r.b+r.tx-q,r=(n.x+1)*r.c-n.y*r.d-r.ty-v,Ca=(n.x+1)*R.a-n.y*R.b+R.tx-(n.x*R.a-n.y*R.b+R.tx),R=(n.x+1)*R.c-n.y*R.d-R.ty-(n.x*R.c-n.y*R.d-R.ty),n=Math.sqrt(w*
-w+r*r)/Math.sqrt(Ca*Ca+R*R),w=-Math.atan2(w,r)+Math.atan2(Ca,R),r=x.drawingstate.matrix.sdet/72,a=a*r,c=c*r;1!==m&&(z.globalAlpha=m);z.translate(q,v);z.scale(a*d*n,c*p*n);z.rotate(h+w);z.translate(-q,-v);z.translate(-t/2,-u/2);a=l;a.drawTo?a.drawTo(z,q,v):z.drawImage(a.img,q,v);z.globalAlpha=1;z.restore()}function d(){var a=1,c=1,f=1,p=1,n=D.extractPoint(e),q=D.extractPoint(h),r;if(!n.ok||!q.ok)return k;l=cb(l);if(!l)return k;var t=l.width,u=l.height;if(0===m)r={},r.x=n.x-(q.y-n.y),r.y=n.y+(q.x-n.x),
-p=u/t;else if(r=D.extractPoint(m),!n.ok)return k;z.save();var v;void 0!==b.alpha&&(v=A(b.alpha),"number"===v.ctype&&(a=v.value.real));void 0!==b.aspect&&(v=A(b.aspect),"number"===v.ctype&&(p=v.value.real));void 0!==b.flipx&&(v=A(b.flipx),"boolean"===v.ctype&&v.value&&(c=-1));void 0!==b.flipy&&(v=A(b.flipy),"boolean"===v.ctype&&v.value&&(f=-1));v=x.drawingstate.matrix;1!==a&&(z.globalAlpha=a);a=n.x*v.a-n.y*v.b+v.tx;n=n.x*v.c-n.y*v.d-v.ty;z.transform(q.x*v.a-q.y*v.b+v.tx-a,q.x*v.c-q.y*v.d-v.ty-n,r.x*
-v.a-r.y*v.b+v.tx-a,r.x*v.c-r.y*v.d-v.ty-n,a,n);z.scale(1/t,-1/u*p);z.translate(t/2,-u/2);z.scale(c,f);z.translate(-t/2,u/2);z.translate(0,-u);c=l;c.drawTo?c.drawTo(z,0,0):z.drawImage(c.img,0,0);z.globalAlpha=1;z.restore()}var e,h,m,l;return 2===a.length?(e=C(a[0]),l=C(a[1]),c()):3===a.length?(e=C(a[0]),h=C(a[1]),m=0,l=C(a[2]),d()):4===a.length?(e=C(a[0]),h=C(a[1]),m=C(a[2]),l=C(a[3]),d()):k};t.drawimage$3=t.drawimage$2;t.drawimage$4=t.drawimage$2;t.allimages$0=function(){var a=[];Object.keys(ab).forEach(function(b){a.push({ctype:"string",
-value:b})});return f.turnIntoCSList(a)};t.cameravideo$0=function(){var a=null,b={video:!0,audio:!1},c=navigator.mediaDevices&&navigator.mediaDevices.getUserMedia;c?a=function(a,c){navigator.mediaDevices.getUserMedia(b).then(a,c)}:(c=navigator.getUserMedia||navigator.webkitGetUserMedia||navigator.mozGetUserMedia||navigator.msGetUserMedia)&&(a=function(a,d){c.call(navigator,b,a,d)});if(!a)return console.warn("getUserMedia call not supported"),k;var d=document.createElement("video");d.autoplay=!0;var e=
-X(d);console.log("Opening stream.");a(function(a){a=window.URL.createObjectURL(a);d.src=a;d.addEventListener("loadeddata",S)},function(a){console.error("Could not get user video:",String(a),a)});return e};"use strict";var me=[{key:[":"],field:["."],deg:["\u00b0"],take:["_"]},{functionCall:!0},{rassoc:!0,pow:["^"],sqrt:["\u221a"]},{mul:["*","\u2062","\u22c5","\u00b7"],cross:["\u00d7"],div:["/","\u00f7","\u2215","\u2236"]},{add:["+"],sub:["-","\u2212"],neg:["!","\u00ac"]},{seq:[".."]},{eq:["==","\u225f"],
-ne:["!=","<>","\u2260"],lt:["<"],gt:[">"],le:["<=","\u2264","\u2266"],ge:[">=","\u2265","\u2267"],aeq:["~=","\u2248"],ane:["~!=","\u2249"],alt:["~<","\u2a89"],agt:["~>","\u2a8a"],ale:["~<=","\u2a85"],age:["~>=","\u2a86"],"in":["\u2208"],nin:["\u2209"]},{and:["&","\u2227"],or:["%","\u2228"]},{rassoc:!0,prepend:["<:"]},{concat:["++","\u222a"],remove:["--","\u2216"],common:["~~","\u2229"],append:[":>"]},{rassoc:!0,assign:["="],define:[":="],undefine:[":=_"],bdefine:["::="]},{seq:[";"]},{modif:["->",
-"\u2192"]},{rassoc:!0,list:[","]}],ne=["+","-"],oe=["!","\u221a"],pe=["\u00b0",":=_"],qe=[";",","],Ac=[],wa={},ad;(function(){var a=0;me.forEach(function(b){a+=2;var c=!!b.rassoc;b.functionCall&&(ad=a);for(var d in b){var e=b[d];if("boolean"!==typeof e)for(var f={name:d,sym:e[0],symbols:e,rassoc:c,precedence:a,prefix:!1,postfix:!1,infix:!0,bare:!1},h=0;h<e.length;++h){var m=e[h];if(wa.hasOwnProperty(m))throw Error("Duplicate operator: "+m);wa[m]=f;Ac.push(m)}}});ne.forEach(function(a){wa[a].prefix=
-!0});oe.forEach(function(a){wa[a].prefix=!0;wa[a].infix=!1});pe.forEach(function(a){wa[a].postfix=!0;wa[a].infix=!1});qe.forEach(function(a){wa[a].prefix=!0;wa[a].postfix=!0;wa[a].infix=!0;wa[a].bare=!0})})();Ac.sort(function(a,b){return b.length-a.length});var re="(?:[0-9](?: [0-9])*(?: \\.(?! \\.)(?: [0-9])*)?|\\.(?: [0-9])+)(?: [Ee](?: [+-])?(?: [0-9])+)?".replace(/ /g,"[ \t]*"),se="(?:[\u207a\u207b] )?[\u2070\u00b9\u00b2\u00b3\u2074\u2075\u2076\u2077\u2078\u2079](?: [\u2070\u00b9\u00b2\u00b3\u2074\u2075\u2076\u2077\u2078\u2079])*".replace(/ /g,
-"[ \t]*"),te="(?:[\u208a\u208b] )?[\u2080\u2081\u2082\u2083\u2084\u2085\u2086\u2087\u2088\u2089](?: [\u2080\u2081\u2082\u2083\u2084\u2085\u2086\u2087\u2088\u2089])*".replace(/ /g,"[ \t]*"),Bc=function(a,b,c){var d,e,f=0,h="(?:[",m=b.length;for(d=0;d<m;++d)e=b.charCodeAt(d),55296<=e?(h+="]|"+b.charAt(d)+"[",f=56320):(h+=String.fromCharCode(e=f=a[e-32]+f),f+=a[b.charCodeAt(++d)-32],f!==e&&(f!==e+1&&(h+="-"),h+=String.fromCharCode(f)));return h+"]|["+c+"][\udc00-\udfff])"}([2,0,106,3,4,1,6,5,7,11,17,
-8,12,21,9,22,30,10,15,24,25,16,13,42,46,14,18,19,29,37,27,28,35,26,32,36,40,43,47,53,20,48,50,56,33,34,39,51,52,55,63,64,65,68,85,23,31,38,45,49,105,59,66,69,72,88,102,114,117,128,157,191,41,44,54,60,67,70,71,73,74,75,76,80,81,82,83,84,86,87,89,93,94,98,99,107,108,116,122,130,132,134,138,160,165,185,195,196,255,268,277,310,332,339,362,365,390,449,457,470,512,513,541,568,582,619,673,726,768,820,921,991,1164,2684,6581,8453,11171,20949],"T4(4I!)!'!&/ 0 \u0096')2$+! !\u0083$ %## !(! ! ; u \u0086.\u0088 =#!+YoA& 87C% } !5%+%) #!*! <0a,!4B1%'!&-'!1!$!33`HsG$!;!+.52'(#%#- & !$#$!*!9% 2%H''%#- & % % %B# !H *+ - & % $$!;!5%3!,(#%#- & % $$!X% 5!:! '$ #$% ! %$%$ $)W!G( / 2$!> &%C( / . $$!L! %5%;( D#!*!* 4'&*$W + !#&]F %6&]% !#% !#!(# & ! !#% # %1!#$ !/#L!S( @?$\u00817-!*''#$!$%+ ',6!:= !&!#7 \u0090 ##& ! ##D ##B ##& ! ##9 K ##^Y2*V#'$\u009d#5 4&p((+, #2*2*2, 5OC!'!Uy.D !&_)0J<#$,E'4Q/1Pv!|8:&K<9%)E>@7 )@\u0080# #$%1gT\u008e#'#=#'#( ! ! ! 0#P & !$ &$##'',& &d!9!*,b!'!#. !$$(! ! ! # 1##&$'!G%\u00a58 8 \u0084(#$%6= !&!#Q+!*/1& & & & & & & &t!\u0097%E$&%'V( z #&D${:Aj2\u0099\u00a6q\u00a9E\u00a4UZ#\u008d$2)%-8*0#_J+#b#M#(S1 # /0O2[R'$! !6>)/A?+8<!*$ .)$ D3 (-/$!$[ !$%#$#! !4 #1+ 6'#'#'1& & 7 .)c0\u00a86/'I\u00a7\u0093#\\N&6$&! . , $ ! % % \u007fM\u0092;R#Gh)d$ \u0085=4(4,a$'#'#'# \ud800!) 4 : % 9#6@\u0082\u0094?$IIX*5 ((=)<#@'(\ud801!f~N.Of\u008f1-)(\ud802!'#! E %$!#/)/10^: %)-)4nQ(%T!5# AZ?$?C( >?G)-):9*\ud803!`KJ9J\ud804#PriL3>@7M$!6F2#/! !C* 3V& ! # 9 .+8N(#%#- & % $$!;!6$\ud805eF-% !\u008987#=F-!k7x4\ud806\u0087RB!\u0095K\ud808!\u00a2\ud809e\u008a\ud80d!8\ud811!\u009c\ud81a!\u009b+0c<;F*#BH&:\ud81b\u00a0U,!l,\ud82c!%\ud82f!\"&,$++.\ud835!w m %#!#%## ) ! & S ##( & > # $ !$& \u0091#3 3 0 3 0 3 0 3 0 3 (\ud83a!\u008b\ud83b\u0098# A % !#! . # ! !(!'! ! ! % !#! ! ! ! ! % !## & # # ! . 5& $ 5\ud869!\u009f7\u008c\ud86d!\u00a1,g\ud86e!<#\u00a3\ud873!\u009e\ud87e!\u009a",
-"\ud80c\ud840-\ud868\ud86a-\ud86c\ud86f-\ud872"),ue=("#(?: [1-9])?|(?:'|"+Bc+")(?: (?:[0-9']|"+Bc+"))*").replace(/ /g,"[ \t]*"),Yc=["([ \t\n]+)|(//.*)|(/\\*)","("+re+")","("+Ac.map(Xc).join("|")+")","("+"[](){}||".split("").map(Xc).join("|")+")","("+te+")","("+se+")","("+ue+")",'("[^"]*")|($)'].join("|"),ve=new RegExp("[ \t]*".replace(/\*$/,"+"),"g"),Cc="ANY WS COMMENT START_COMMENT NUM OP BRA SUB SUP ID STR EOF".split(" ");(function(){var a=(new RegExp(Yc,"g")).exec("");if(a.hasOwnProperty(Cc.length))throw Error("RE has more groups than expected");
-if(!a.hasOwnProperty(Cc.length-1))throw Error("RE has fewer groups than expected");})();mb.prototype.advanceBy=function(a){this.advanceTo(this.pos+a)};mb.prototype.advanceTo=function(a){for(this.pos=a;this.bols[0]<=a;)this.bol=this.bols.shift(),this.line++};mb.prototype.curPos=function(){return{row:this.line,col:this.pos-this.bol,pos:this.pos}};mb.prototype.nextInternal=function(){var a=this.re.exec(this.input);if(a.index!==this.pos)throw ea("Invalid token",this.curPos(),this.input.substring(this.pos,
-a.index));var b=this.curPos();this.advanceBy(a[0].length);var c=this.curPos(),d;for(d=1;null==a[d];++d);return{start:b,end:c,raw:a[0],text:a[0].replace(ve,""),toktype:Cc[d]}};mb.prototype.next=function(){var a;do if(a=this.nextInternal(),"START_COMMENT"===a.toktype){var b=/\*\/|\/\*/g;b.lastIndex=a.start.pos+2;for(var c=1,d;0<c;)if(d=b.exec(this.input))"/*"===d[0]?++c:--c;else throw ea("Unterminated comment",a.start,a.text);this.re.lastIndex=b.lastIndex;this.advanceTo(b.lastIndex);a.end=this.curPos();
-a.raw=this.input.substring(a.start.pos,a.end.pos);a.text=a.raw;a.toktype="COMMENT"}while("WS"===a.toktype||"COMMENT"===a.toktype);return a};var we={ctype:"void"};Db.prototype.postprocess=function(a){if(null===a)return we;if(a){if("infix"===a.ctype)if(":="===a.oper){var b=a.args[0];if("function"===b.ctype)b.args.forEach(function(c){if(null===c||"variable"!==c.ctype)throw ea("Function argument must be an identifier",c.start||a.start);});else if("variable"!==b.ctype)throw ea(a.oper+" can only be used to define functions or variables",
-a.start);}else if(","===a.oper)throw ea("comma may only be used to delimit list elements",a.start);a.args&&(a.args=a.args.map(this.postprocess,this));if(a.modifs)for(var c in a.modifs)a.modifs[c]=this.postprocess(a.modifs[c]);if("paren"===a.ctype)return a.args[0];if("infix"===a.ctype){if("."===a.oper){if(!a.args[1]||"variable"!==a.args[1].ctype)throw ea("Field name must be identifier",a.start,a.text);a.ctype="field";a.obj=a.args[0];a.key=a.args[1].name;delete a.args}this.infixmap&&(a.impl=this.infixmap[a.oper])}else"variable"===
-a.ctype?this.usedVariables[a.name]=!0:"function"===a.ctype&&(this.usedFunctions[a.oper]=!0)}if("infix"===a.ctype)return{ctype:"infix",oper:String(a.oper),args:[a.args[0],a.args[1]],impl:a.impl};if("variable"===a.ctype)return{ctype:"variable",name:String(a.name)};if("number"===a.ctype)return{ctype:"number",value:{real:+a.value.real,imag:+a.value.imag}};if("string"===a.ctype)return{ctype:"string",value:String(a.value)};if("list"===a.ctype)return{ctype:"list",value:a.value};if("function"===a.ctype)return{ctype:"function",
-oper:String(a.oper),args:a.args,modifs:a.modifs};if("field"===a.ctype)return{ctype:"field",obj:a.obj,key:String(a.key)};throw Error("Unsupported AST node of type "+a.ctype);};Db.prototype.parse=function(a){try{var b=$c(new mb(a));if("EOF"!==b.closedBy.toktype)throw ea("Closing bracket never opened.",b.closedBy.start,b.closedBy.text);return this.postprocess(b.expr)}catch(c){return c.ctype="error",c}};"undefined"!==typeof process&&"undefined"!==typeof module&&"undefined"!==typeof module.exports&&"undefined"===
-typeof window&&(module.exports.Parser=Db,module.exports.Tokenizer=mb,module.exports.unicodeLetters=Bc,module.exports.parse=function(a){return(new Db).parse(a)});var Mc={},Dc;Dc=[0,0,0,0,0,0,0,0,0,0,0,0];t.playsin$1=function(a,b){var c=C(a[0]),d=0;if("number"===c.ctype){var e;void 0!==b.line&&(e=A(b.line),"number"===e.ctype&&(d=Math.floor(e.value.real),0>d&&(d=0),10<d&&(d=10)));c=c.value.real;0!==Dc[d]&&Dc[d].set({freq:c})}return k};var O={printArr:function(a){for(var b=a.value.length,c=[],d=[],e=
-!1,f=0;f<b;f++)c[f]=a.value[f].value.real,d[f]=a.value[f].value.imag,0!==d[f]&&(e=!0);console.log(c);e&&console.log(d)},zero:function(a){for(var b=[],c=m.real(0),d=0;d<a.value.real;d++)b[d]=c;return f.turnIntoCSList(b)},number:function(a,b){var c=O.zero(b);c.value[0]=a;return c},variable:function(a,b){var c=O.zero(b);c.value[0]=a;c.value[1]=m.real(1);return c},add:function(a,b){return f.add(a,b)},sub:function(a,b){return f.sub(a,b)},mult:function(a,b){if(a.value.length!==b.value.length)return console.error("dims don't fit return nada"),
-k;for(var c=a.value.length,d=O.zero(m.real(c)),e=m.real(0),f=0;f<c;f++){for(var h=0;h<=f;h++)e=m.add(e,m.mult(a.value[h],b.value[f-h]));d.value[f]=e;e=m.real(0)}return d},pow:function(a,b){if(0>b.value.real||b.value.real!==Math.floor(b.value.real))return O.root(a,b);for(var c=a,d=1;d<b.value.real;d++)c=O.mult(c,a);return c},root:function(a,b){var c=m.real(0),d=m.real(1),e=m.add(d,b),f=a.value.length,h=O.zero(m.real(f));h.value[0]=m.pow(a.value[0],b);for(var k=c,l,n,q=1;q<f;q++){n=m.real(q);for(var r=
-1;r<=q;r++)l=m.mult(e,m.real(r)),l=m.div(l,n),l=m.sub(l,d),l=m.mult(l,a.value[r]),l=m.mult(l,h.value[q-r]),k=m.add(k,l);k=m.div(k,a.value[0]);h.value[q]=k;k=c}return h},findFirstNoneZero:function(a,b,c){for(var d=Infinity,e=Infinity,f=c;f<a.value.length;f++)if(1E-12<m.abs2(a.value[f]).value.real){d=f;break}for(a=c;a<b.value.length;a++)if(1E-12<m.abs2(b.value[a]).value.real){e=a;break}return[d,e]},div:function(a,b){if(a.value.length!==b.value.length)return console.log("dims don't fit - return nada"),
-k;for(var c=a.value.length,d=m.real(0),e=O.zero(m.real(c)),f=d,h,l=0;l<c;l++){h=O.findFirstNoneZero(a,b,l);l<h[0]&&h[0]===h[1]&&Infinity!==h[0]&&(a.value.splice(l,h[0]),b.value.splice(l,h[0]),e.value.splice(l,h[0]),c-=h[0]);h=a.value[l];for(var n=0;n<l;n++)f=m.add(f,m.mult(e.value[n],b.value[l-n]));h=m.sub(h,f);h=m.div(h,b.value[0]);e.value[l]=h;f=d}return e},exp:function(a){var b=m.real(0),c=a.value.length,d=O.zero(m.real(c)),e=b,f;d.value[0]=m.exp(a.value[0]);for(var h=1;h<c;h++){for(var k=1;k<=
-h;k++)f=m.mult(m.real(k),a.value[k]),f=m.mult(f,d.value[h-k]),e=m.add(e,f);d.value[h]=m.div(e,m.real(h));e=b}return d},log:function(a){var b=m.real(0),c=a.value.length,d=O.zero(m.real(c));d.value[0]=m.log(a.value[0]);for(var e=b,f,h,k=1;k<c;k++){f=a.value[k];for(var l=1;l<k;l++)h=m.mult(m.real(l),d.value[l]),h=m.mult(h,a.value[k-l]),e=m.add(e,h);e=m.div(e,m.real(k));f=m.sub(f,e);f=m.div(f,a.value[0]);d.value[k]=f;e=b}return d},sincos:function(a){var b=m.real(0),c=a.value.length,d=O.zero(m.real(c)),
-e=O.zero(m.real(c));d.value[0]=m.sin(a.value[0]);e.value[0]=m.cos(a.value[0]);for(var f=b,h=b,k,l,n,q=1;q<c;q++){n=m.real(q);for(var r=1;r<=q;r++)l=m.mult(m.real(r),a.value[r]),k=m.mult(l,e.value[q-r]),l=m.mult(l,d.value[q-r]),h=m.add(h,k),f=m.add(f,l);h=m.div(h,n);f=m.div(f,m.neg(n));d.value[q]=h;e.value[q]=f;f=h=b}O.sinsave=d;O.cossave=e;return[d,e]},sin:function(a){return O.sincos(a)[0]},cos:function(a){return O.sincos(a)[1]},faculty:function(a){var b=[];b[0]=m.real(1);for(var c=1,d=1;d<=a.value.real;d++)c*=
-d,b[d]=m.real(c);return b=f.turnIntoCSList(b)},diff:function(a,b,c,d){var e;if("variable"===a.ctype)e=a.name!==b?O.number(A(a),d):O.variable(c,d);else if("number"===a.ctype)e=O.number(a,d);else{if("infix"===a.ctype){if("*"===a.oper)return O.mult(O.diff(a.args[0],b,c,d),O.diff(a.args[1],b,c,d));if("^"===a.oper)return O.pow(O.diff(a.args[0],b,c,d),O.diff(a.args[1],b,c,d).value[0]);if("/"===a.oper)return O.div(O.diff(a.args[0],b,c,d),O.diff(a.args[1],b,c,d));if("+"===a.oper)return O.add(O.diff(a.args[0],
-b,c,d),O.diff(a.args[1],b,c,d));if("-"===a.oper)return O.sub(O.diff(a.args[0],b,c,d),O.diff(a.args[1],b,c,d));console.log("infix not found",a.oper);return k}if("function"===a.ctype){if("exp$1"===a.oper)return O.exp(O.diff(a.args[0],b,c,d));if("log$1"===a.oper)return O.log(O.diff(a.args[0],b,c,d));if("sin$1"===a.oper)return O.sin(O.diff(a.args[0],b,c,d));if("cos$1"===a.oper)return O.cos(O.diff(a.args[0],b,c,d))}else return console.log("ctype not found",a.ctype),k}return e},adevaluate:function(a,b,
-c,d){a=O.diff(a,b,c,d);d=O.faculty(d);for(b=2;b<a.value.length;b++)a.value[b]=m.mult(a.value[b],d.value[b]);return a},autodiff:function(a,b,c,d){for(var e=[],h=c.value.length,m,k=0;k<h;k++)m=O.adevaluate(a,b,c.value[k],d),e[k]=m;return e=f.turnIntoCSList(e)}},y={handleModifs:function(a,b){y.dashing&&y.unSetDash();y.colorraw=null;y.fillcolorraw=null;y.size=null;0>=y.psize&&(y.psize=0);0>=y.lsize&&(y.lsize=0);y.overhang=1;y.dashing=!1;y.isArrow=!1;y.arrowSides="==>";y.arrowposition=1;y.headlen=10;y.arrowShape=
-y.arrowShapes.line;y.alpha=x.drawingstate.alpha;y.fillalpha=0;y.bold="";y.italics="";y.family="sans-serif";y.align=0;y.xOffset=0;y.yOffset=0;y.lineCap="round";y.lineJoin="round";y.miterLimit=10;var c,d;for(c in a){var e=a[c];e&&((d=b[c])?(!0===d&&(d=y.modifHandlers[c]),d(A(e))):console.log("Modifier not supported: "+c))}null!==y.size?y.psize=y.lsize=y.size:(y.psize=x.drawingstate.pointsize,y.lsize=x.drawingstate.linesize);y.dashing&&y.dashing(y.lsize);null!==y.colorraw?y.pointColor=y.lineColor=y.textColor=
-y.makeColor(y.colorraw):1===y.alpha?(y.pointColor=x.drawingstate.pointcolor,y.lineColor=x.drawingstate.linecolor,y.textColor=x.drawingstate.textcolor):(y.pointColor=y.makeColor(x.drawingstate.pointcolorraw),y.lineColor=y.makeColor(x.drawingstate.linecolorraw),y.textColor=y.makeColor(x.drawingstate.textcolorraw));y.black=1===y.alpha?"rgb(0,0,0)":"rgba(0,0,0,"+y.alpha+")";y.fillColor=y.fillcolorraw&&0<y.fillalpha?y.makeColor(y.fillcolorraw,y.fillalpha):null},modifHandlers:{size:function(a){"number"===
-a.ctype&&(y.size=a.value.real,0>y.size&&(y.size=0),1E3<y.size&&(y.size=1E3))},color:function(a){f.isNumberVector(a).value&&3===a.value.length&&(y.colorraw=[a.value[0].value.real,a.value[1].value.real,a.value[2].value.real])},fillcolor:function(a){f.isNumberVector(a).value&&3===a.value.length&&(y.fillcolorraw=[a.value[0].value.real,a.value[1].value.real,a.value[2].value.real])},alpha:function(a){"number"===a.ctype&&(y.alpha=a.value.real)},fillalpha:function(a){"number"===a.ctype&&(y.fillalpha=a.value.real)},
-dashpattern:function(a){if("list"===a.ctype){for(var b=[],c=0,d=0;c<a.value.length;c++)"number"===a.value[c].ctype&&(b[d++]=a.value[c].value.real);y.dashing=y.setDash.bind(null,b)}},dashtype:function(a){if("number"===a.ctype)a=Math.floor(a.value.real);else if("string"===a.ctype)a=a.value;else return;if(a=y.dashTypes[a])y.dashing=y.setDash.bind(null,a)},dashing:function(a){"number"===a.ctype&&(a=Math.floor(a.value.real),y.dashing=y.setDash.bind(null,[2*a,a]))},overhang:function(a){"number"===a.ctype&&
-(y.overhang=y.overhang*a.value.real+(1-y.overhang)*(1-a.value.real))},arrow:function(a){"boolean"===a.ctype?y.isArrow=a.value:console.error("arrow needs to be of type boolean")},arrowshape:function(a){"string"!==a.ctype?console.error("arrowshape needs to be of type string"):y.arrowShapes.hasOwnProperty(a.value)?(y.arrowShape=y.arrowShapes[a.value],y.isArrow=!0,y.arrowShape.deprecated&&(console.log("arrowshape "+a.value+" is deprecated, use "+y.arrowShape.deprecated+" instead."),y.arrowShape.deprecated=
-null)):(a=Object.keys(y.arrowShapes),a.sort(),a=a.join(", "),console.error("arrowshape needs to be one of "+a))},arrowsides:function(a){"string"!==a.ctype?console.error("arrowsides is not of type string"):"==>"!==a.value&&"<==>"!==a.value&&"<=="!==a.value?console.error("arrowsides is unknows"):(y.arrowSides=a.value,y.isArrow=!0)},arrowposition:function(a){"number"!==a.ctype?console.error("arrowposition is not of type number"):0>a.value.real?console.error("arrowposition has to be positive"):1<a.value.real?
-y.overhang=y.overhang*a.value.real+(1-y.overhang)*(1-a.value.real):(y.arrowposition=a.value.real,y.isArrow=!0)},arrowsize:function(a){"number"!==a.ctype?console.error("arrowsize is not of type number"):0>a.value.real?console.error("arrowsize has to be positive"):y.headlen*=a.value.real},bold:function(a){"boolean"===a.ctype&&a.value&&(y.bold="bold ")},italics:function(a){"boolean"===a.ctype&&a.value&&(y.italics="italic ")},family:function(a){"string"===a.ctype&&(y.family=a.value)},align:function(a){"string"===
-a.ctype&&(a=a.value,"left"===a&&(y.align=0),"right"===a&&(y.align=1),"mid"===a&&(y.align=.5))},x_offset:function(a){"number"===a.ctype&&(y.xOffset=a.value.real)},y_offset:function(a){"number"===a.ctype&&(y.yOffset=a.value.real)},offset:function(a){"list"===a.ctype&&2===a.value.length&&"number"===a.value[0].ctype&&"number"===a.value[1].ctype&&(y.xOffset=a.value[0].value.real,y.yOffset=a.value[1].value.real)},lineCap:function(a){"string"!==a.ctype||"round"!==a.value&&"square"!==a.value&&"butt"!==a.value||
-(y.lineCap=a.value)},lineJoin:function(a){"string"!==a.ctype||"round"!==a.value&&"bevel"!==a.value&&"miter"!==a.value||(y.lineJoin=a.value)},miterLimit:function(a){"number"===a.ctype&&0<a.value.real&&(y.miterLimit=Math.round(a.value.real))}},lineModifs:{size:!0,color:!0,alpha:!0,dashpattern:!0,dashtype:!0,dashing:!0,overhang:!0,arrow:!0,arrowshape:!0,arrowsides:!0,arrowposition:!0,arrowsize:!0,lineCap:!0,lineJoin:!0,miterLimit:!0},pointModifs:{size:!0,color:!0,alpha:!0}};y.pointAndLineModifs=y.lineModifs;
-y.conicModifs={size:!0,color:!0,alpha:!0,fillcolor:!0,fillalpha:!0,lineCap:!0,lineJoin:!0,miterLimit:!0};y.textModifs={size:!0,color:!0,alpha:!0,bold:!0,italics:!0,family:!0,align:!0,x_offset:!0,y_offset:!0,offset:!0};y.makeColor=function(a,b){void 0===b&&(b=y.alpha);return"rgba("+Math.floor(255*a[0])+","+Math.floor(255*a[1])+","+Math.floor(255*a[2])+","+b+")"};y.preDrawCurve=function(){z.lineWidth=y.lsize;z.lineCap=y.lineCap;z.lineJoin=y.lineJoin;z.miterLimit=y.miterLimit;z.strokeStyle=y.lineColor};
-y.arrowShapes={"default":{close:!1,fill:!1,ratio:1,deprecated:"line"},line:{close:!1,fill:!1,ratio:1},empty:{close:!0,fill:!1,ratio:1},hollow:{close:!0,fill:!1,ratio:1,deprecated:"empty"},full:{close:!0,fill:!0,ratio:1},jet:{close:!0,fill:!0,ratio:1.5},delta:{close:!0,fill:!0,ratio:1.5,deprecated:"jet"}};y.clipSegment=function(a,b){var c=b.x-a.x,d=b.y-a.y,e=y.clipLineCore(-d,c,a.x*b.y-b.x*a.y);if(2!==e.length)return[];var f=e[0],e=e[1],h=1/(c*c+d*d),m=((f.x-a.x)*c+(f.y-a.y)*d)*h,c=((e.x-a.x)*c+(e.y-
-a.y)*d)*h;0>m&&(f=a);1<m&&(f=b);0>c&&(e=a);1<c&&(e=b);return f===e?[]:[f,e]};y.drawsegcore=function(a,b){function c(a,b,c,g){var d=a-g*r+.5*t,e=b-g*t-.5*r,f=a-g*r-.5*t;g=b-g*t+.5*r;z.beginPath();y.arrowShape.fill&&(z.lineWidth=y.lsize/2);z.moveTo(d,e);z.lineTo(a,b);z.lineTo(f,g);y.arrowShape.close&&(z.fillStyle=y.lineColor,z.lineTo(a-c*r,b-c*t),z.closePath(),y.arrowShape.fill&&z.fill());z.stroke()}var d=x.drawingstate.matrix,e=a.x*d.a-a.y*d.b+d.tx,f=a.x*d.c-a.y*d.d-d.ty,h=b.x*d.a-b.y*d.b+d.tx,m=b.x*
-d.c-b.y*d.d-d.ty,k=y.overhang,l=1-k,d=k*e+l*h,n=k*f+l*m,q=k*h+l*e,k=k*m+l*f;if(0>d||d>W||0>n||n>V||0>q||q>W||0>k||k>V){k=y.clipSegment({x:d,y:n},{x:q,y:k});if(2!==k.length||.01>y.lsize)return;d=k[0].x;n=k[0].y;q=k[1].x;k=k[1].y}y.preDrawCurve();if(!y.isArrow||e===f&&h===m).01>y.lsize||(z.beginPath(),z.moveTo(d,n),z.lineTo(q,k),z.stroke());else{var e=h-e,f=m-f,h=y.headlen/Math.sqrt(e*e+f*f),r=e*h,t=f*h,m=y.arrowposition,l=1-m,f=m*d+l*q,e=m*n+l*k,h=m*q+l*d,m=m*k+l*n,l=y.arrowSides;z.beginPath();y.arrowShape.close?
-("<==>"===l||"<=="===l?(1>y.arrowposition&&(z.moveTo(d,n),z.lineTo(f,e)),z.moveTo(f+r,e+t)):z.moveTo(d,n),"==>"===l||"<==>"===l?(z.lineTo(h-r,m-t),1>y.arrowposition&&(z.moveTo(h,m),z.lineTo(q,k))):z.lineTo(q,k)):(z.moveTo(d,n),z.lineTo(q,k));z.stroke();"==>"!==l&&"<==>"!==l||c(h,m,1,y.arrowShape.ratio);"<=="!==l&&"<==>"!==l||c(f,e,-1,-y.arrowShape.ratio)}};y.drawpoint=function(a){var b=x.drawingstate.matrix,c=a.x*b.a-a.y*b.b+b.tx;a=a.x*b.c-a.y*b.d-b.ty;z.lineWidth=.3*y.psize;z.beginPath();z.arc(c,
-a,y.psize,0,2*Math.PI);z.fillStyle=y.pointColor;z.fill();z.beginPath();z.arc(c,a,1.15*y.psize,0,2*Math.PI);z.fillStyle=y.black;z.strokeStyle=y.black;z.stroke()};y.clipLineCore=function(a,b,c){var d=Math.SQRT1_2*y.lsize,e=0-d,f=W+d,h=0-d,d=V+d,m=0>e*a+h*b+c,k=0>f*a+h*b+c,l=0>e*a+d*b+c,n=0>f*a+d*b+c,q=[];m!==k&&q.push({x:(-c-b*h)/a,y:h});k!==n&&q.push({x:f,y:(-c-a*f)/b});l!==n&&q.push({x:(-c-b*d)/a,y:d});m!==l&&q.push({x:e,y:(-c-a*e)/b});return q};y.clipLine=function(a){a=f.normalizeMax(f.productVM(a,
-x.toMat()));return y.clipLineCore(a.value[0].value.real,a.value[1].value.real,a.value[2].value.real)};y.drawline=function(a){f._helper.isAlmostReal(a)&&(a=y.clipLine(a),2===a.length&&.01<=y.lsize&&(y.preDrawCurve(),z.beginPath(),z.moveTo(a[0].x,a[0].y),z.lineTo(a[1].x,a[1].y),z.stroke()))};y.drawRaySegment=function(a,b){var c=D.extractPoint(a),d=D.extractPoint(b);if(c.ok&&d.ok){var e=c.x-d.x,f=c.y-d.y,h=25E3/x.drawingstate.matrix.sdet/Math.sqrt(e*e+f*f),e=e*h,f=f*h;y.drawsegcore(c,{x:c.x+e,y:c.y+
-f});y.drawsegcore(d,{x:d.x-e,y:d.y-f})}};y.dashTypes={solid:[],dashed:[10,10],tightdash:[10,4],dotted:[1,3],dashdot:[10,5,1,5],"dashvalue.solid":[],"dashvalue.dashed":[10,10],"dashvalue.tightdash":[10,4],"dashvalue.dotted":[1,3],"dashvalue.dashdot":[10,5,1,5],0:[],1:[10,10],2:[10,4],3:[1,3],4:[10,5,1,5]};y.setDash=function(a,b){var c=Math.sqrt(b);a=a.slice();for(var d=0;d<a.length;d++)a[d]*=c;z.webkitLineDash=a;z.setLineDash(a);z.mozDash=a};y.unSetDash=function(){z.webkitLineDash=[];z.setLineDash([]);
-z.mozDash=[]};bd.prototype={set fillStyle(a){var b=this;Qb(a,function(a,d,e,f){b._fill="#"+nb(a.toString(16),2)+nb(d.toString(16),2)+nb(e.toString(16),2);b._fillOpacity=255===f?null:f})},set strokeStyle(a){var b=this;Qb(a,function(a,d,e,f){b._stroke="#"+nb(a.toString(16),2)+nb(d.toString(16),2)+nb(e.toString(16),2);b._strokeOpacity=255===f?null:f})},clearRect:function(){},beginPath:function(){this._path=[]},_pathcmd:function(){this._path.push.apply(this._path,arguments)},closePath:function(){this._pathcmd("Z")},
-moveTo:function(a,b){this._pathcmd("M",a,b)},lineTo:function(a,b){this._pathcmd("L",a,b)},bezierCurveTo:function(a,b,c,d,e,f){this._pathcmd("C",a,b,c,d,e,f)},quadraticCurveTo:function(a,b,c,d){this._pathcmd("Q",a,b,c,d)},arc:function(a,b,c,d,e,f){var h=c*Math.cos(d)+a,m=c*Math.sin(d)+b,k=c*Math.cos(e)+a,l=c*Math.sin(e)+b;e=f?d-e:e-d;e>=2*Math.PI?this._pathcmd(this._path.length?"L":"M",h,m,"A",c,c,0,0,f?1:0,a-c*Math.cos(d),b-c*Math.sin(d),"A",c,c,0,0,f?1:0,h,m):this._pathcmd(this._path.length?"L":
-"M",h,m,"A",c,c,0,e>Math.PI?1:0,f?1:0,k,l)},rect:function(a,b,c,d){this._pathcmd("M",a,b,"h",c,"v",d,"h",-c,"z")},_cmd:function(a){1!==this.globalAlpha?(this._body.push('<g opacity="'+this.globalAlpha+'">'),this._body.push(a),this._body.push("</g>")):this._body.push(a)},_attrs:function(a){var b="",c;for(c in a)null!==a[c]&&(b+=" "+c+'="'+a[c]+'"');return b},fill:function(){this._cmd("<path"+this._attrs({d:this._path.join(" "),fill:this._fill,"fill-opacity":this._fillOpacity})+"/>")},stroke:function(){this._cmd("<path"+
-this._attrs({d:this._path.join(" "),stroke:this._stroke,"stroke-opacity":this._strokeOpacity,"stroke-width":this.lineWidth,"stroke-linecap":this.lineCap,"stroke-linejoin":this.lineJoin,"stroke-miterlimit":"miter"===this.lineJoin?this.miterLimit:null})+"/>")},clip:function(){++this._clipIndex;this._body.push('<clipPath id="clip'+this._clipIndex+'"><path d="'+this._path.join(" ")+'"/></clipPath>','<g clip-path="url(#clip'+this._clipIndex+')">');this._saveStack[this._saveStack.length-1]+="</g>"},save:function(){this._saveStack.push("")},
-restore:function(){this._body.push(this._saveStack.pop());0===this._saveStack.length&&this._saveStack.push("")},_transform:function(a){this._body.push('<g transform="'+a+'">');this._saveStack[this._saveStack.length-1]+="</g>"},translate:function(a,b){this._transform("translate("+a+" "+b+")")},rotate:function(a){this._transform("rotate("+Math.PI/180*a+")")},scale:function(a,b){this._transform("scale("+a+" "+b+")")},transform:function(a,b,c,d,e,f){this._transform("matrix("+[a,b,c,d,e,f].join(" ")+")")},
-drawImage:function(a,b,c){if(3!==arguments.length)throw Error("SvgWriterContext only supports 3-argument version of drawImage");var d=this._imgcache.indexOf(a);if(-1===d){var d=this._imgcache.length,e;e=a.cachedDataURL?a.cachedDataURL:dd(a);this._defs.push('<image id="img'+d+'" x="0" y="0" width="'+a.width+'" height="'+a.height+'" xlink:href="'+e+'"/>');this._imgcache.push(a)}this._cmd('<use x="'+b+'" y="'+c+'" xlink:href="#img'+d+'"/>')},toBlob:function(){for(;1<this._saveStack.length||""!==this._saveStack[0];)this.restore();
-var a='<?xml version="1.0" encoding="UTF-8" standalone="no"?>\n<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" width="'+this.width+'px" height="'+this.height+'px">\n'+this._defs.join("\n")+'\n</defs>\n<g stroke="none" fill="none">\n'+this._body.join("\n")+"\n</g>\n</svg>\n";return new Blob([a],{type:"image/svg+xml"})}};cd.prototype={_cmd:function(){this._body.push(Array.prototype.join.call(arguments," "))},_setAlpha:function(a,b,c){var d=Math.round(255*
-a*this._globalAlpha);b+=d;this._extGState[b]="<< /"+c+" "+d/255+" >>";this._cmd("/"+b,"gs");return a},set globalAlpha(a){this._globalAlpha=a;this._setAlpha(this._strokeAlpha,"As","CA");this._setAlpha(this._fillAlpha,"Af","ca")},set fillStyle(a){var b=this;Qb(a,function(a,d,e,f){b._cmd(a/255,d/255,e/255,"rg");b._setAlpha(b._fillAlpha=f,"Af","ca")})},set strokeStyle(a){var b=this;Qb(a,function(a,d,e,f){b._cmd(a/255,d/255,e/255,"RG");b._setAlpha(b._strokeAlpha=f,"As","CA")})},set lineWidth(a){this._cmd(a,
-"w")},set lineCap(a){this._cmd({butt:0,round:1,square:2}[a],"J")},set lineJoin(a){this._cmd({miter:0,round:1,bevel:2}[a],"j")},set miterLimit(a){this._cmd(a,"M")},clearRect:function(){},beginPath:function(){this._pathUsed=!1},closePath:function(){this._cmd("h")},moveTo:function(a,b){this._cmd(this._xPos=a,this._yPos=-b,"m")},lineTo:function(a,b){this._cmd(this._xPos=a,this._yPos=-b,"l")},bezierCurveTo:function(a,b,c,d,e,f){this._cmd(a,-b,c,-d,this._xPos=e,this._yPos=-f,"c")},quadraticCurveTo:function(a,
-b,c,d){this.bezierCurveTo((2*a+this._xPos)/3,(2*b-this._yPos)/3,(c+2*a)/3,(d+2*b)/3,c,d)},_kappa:.5522847498307935,arc:function(a,b,c,d,e,f){if(0===d&&e===2*Math.PI)d=this._kappa*c,this.moveTo(a+c,b),this.bezierCurveTo(a+c,b+d,a+d,b+c,a,b+c),this.bezierCurveTo(a-d,b+c,a-c,b+d,a-c,b),this.bezierCurveTo(a-c,b-d,a-d,b-c,a,b-c),this.bezierCurveTo(a+d,b-c,a+c,b-d,a+c,b);else throw Error("PdfWriterContext.arc only supports full circles");},rect:function(a,b,c,d){this._cmd(a,-b,c,-d,"re")},_usePath:function(a){if(this._pathUsed){var b=
-this._body[this._pathUsed],c={"S + f":"B","f + S":"B","W n + S":"W S","W n + f":"W f","S + W n":"W S","f + W n":"W f","B + W n":"W B","W S + f":"W B","W f + S":"W B"}[b+" + "+a];if(!c)throw Error("Don't know how to combine '"+b+"' and '"+a+"'");this._body.splice(this._pathUsed,1);a=c}this._pathUsed=this._body.length;this._cmd(a)},fill:function(){this._usePath("f")},stroke:function(){this._usePath("S")},clip:function(){this._usePath("W n")},save:function(){this._cmd("q")},restore:function(){this._cmd("Q")},
-translate:function(a,b){this.transform(1,0,0,1,a,b)},rotate:function(a){var b=Math.cos(a);a=Math.sin(a);this.transform(b,a,-a,b,0,0)},scale:function(a,b){this.transform(a,0,0,b,0,0)},transform:function(a,b,c,d,e,f){this._cmd(a,-b,-c,d,e,-f,"cm")},_png:function(a){if("data:image/png;base64,"!==a.substr(0,22))return{error:"Not a base64-encoded PNG file"};a=Rd(a.substr(22));var b=Sd(a);console.log("PNG chunks:",b.map(function(a){return a.type}));if("IHDR"!==b[0].type)throw Error("Image does not start with an IHDR");
-var c=b[0].data;a=(c[0]<<24|c[1]<<16|c[2]<<8|c[3])>>>0;var d=(c[4]<<24|c[5]<<16|c[6]<<8|c[7])>>>0,e=c[8],f=c[9],h=0===(f&2),m=0!==(f&4),k=c[10],l=c[11],c=c[12];if(0!==k)throw Error("Unsupported PNG compression method: "+k);if(0!==l)throw Error("Unsupported PNG filter method: "+l);if(0!==c)return{error:"Interlaced image not supported"};if(0!==(f&1))return{error:"Indexed PNG image not supported"};l=null;f=h?1:3;k=b.filter(function(a){return"IDAT"===a.type}).map(function(a){return a.data});if(m){m=window.pako;
-l=new m.Inflate;for(b=0;b<k.length;++b)l.push(k[b],b+1===k.length);if(l.err)throw Error(l.err);l=l.result;c=e>>>3;if(l.length!==d*(a*(f+1)*c+1))throw Error("Data length mismatch");for(var n=f*c,k=new Uint8Array(d*(a*n+1)),q=new Uint8Array(d*(a*c+1)),r=0,t=0,u=0,v=0;v<d;++v){k[t++]=q[u++]=l[r++];for(var w=0;w<a;++w){for(b=0;b<n;++b)k[t++]=l[r++];for(b=0;b<c;++b)q[u++]=l[r++]}}if(r!==l.length||t!==k.length||u!==q.length)throw Error("Seems we garbled our index computation somehow");q=m.deflate(q);l=
-this._strm({Type:"/XObject",Subtype:"/Image",Width:a,Height:d,ColorSpace:"/DeviceGray",BitsPerComponent:e,Filter:"/FlateDecode",DecodeParms:this._dict({Predictor:15,Colors:1,BitsPerComponent:e,Columns:a})},q).ref;k=[m.deflate(k)]}var x=0;k.forEach(function(a){x+=a.length});return this._obj([this._dict({Type:"/XObject",Subtype:"/Image",Name:"/img"+this._imgcache.length,Width:a,Height:d,ColorSpace:h?"/DeviceGray":"/DeviceRGB",SMask:l,BitsPerComponent:e,Length:x,Filter:"/FlateDecode",DecodeParms:this._dict({Predictor:15,
-Colors:f,BitsPerComponent:e,Columns:a})}),"\nstream\n"].concat(k,["\nendstream"]))},drawImage:function(a,b,c){if(3!==arguments.length)throw Error("PdfWriterContext only supports 3-argument version of drawImage");var d=this._imgcache.indexOf(a);if(-1===d){d=this._imgcache.length;this._imgcache.push(a);var e=this._png(a.cachedDataURL||"");e.hasOwnProperty("error")&&(e=this._png(dd(a)));if(e.hasOwnProperty("error"))throw Error(e.error);this._xobjects["img"+d]=e.ref}this._cmd("q");this._setAlpha(1,"Af",
-"ca");this._cmd(a.width,0,0,a.height,b,-c-a.height,"cm");this._cmd("/img"+d,"Do");this._cmd("Q")},_dict:function(a){var b="<<",c;for(c in a)b+=" /"+c+" "+a[c];return b+" >>"},_obj:function(a,b){b||(b=this._nextIndex++);Array.isArray(a)||(a=[this._dict(a)]);a.index=b;a.ref=b+" 0 R";a.offset=this._offset;var c=0;a.unshift(b+" 0 obj\n");a.push("\nendobj\n");for(var d=0;d<a.length;++d)c+=a[d].length;this._offset+=c;this._objects.push(a);return a},_strm:function(a,b,c){a.Length=b.length;return this._obj([this._dict(a),
-"\nstream\n",b,"\nendstream"],c)},toBlob:function(){var a;a="["+[0,-this.height,this.width,0].join(" ")+"]";this._obj({Type:"/Catalog",Pages:"2 0 R"},1);this._obj({Type:"/Pages",Kids:"[3 0 R]",Count:1},2);this._obj({Type:"/Page",Parent:"2 0 R",MediaBox:a,Contents:"4 0 R",Resources:this._dict({ProcSet:"[/PDF /Text /ImageB /ImageC /ImageI]",XObject:this._dict(this._xobjects),ExtGState:this._dict(this._extGState)})},3);var b=this._body.join("\n"),c=new Uint8Array(b.length);for(a=0;a<b.length;++a)c[a]=
-b.charCodeAt(a)&255;b=window.pako.deflate(c);this._strm({Filter:"/FlateDecode"},b,4);var b=this._objects,d=[];for(a=1;a<b.length;++a)d[b[a].index]=b[a];c="xref\n0 "+d.length+"\n";for(a=0;a<d.length;++a)c=d[a]?c+(nb(String(d[a].offset),10)+" 00000 n \n"):c+"0000000000 65535 f \n";a="trailer\n"+this._dict({Size:d.length,Root:"1 0 R"})+"\nstartxref\n"+this._offset+"\n%%EOF\n";b=Array.prototype.concat.apply([],b);b.push(c,a);return new Blob(b,{type:"application/pdf"})}};var Eb=null;kb.push(ed);qa.exportSVG=
-function(){fd(bd,window.open("about:blank","_blank"))};qa.exportPDF=function(){var a=window.open("about:blank","_blank");va.loadScript("pako","pako.min.js",function(){fd(cd,a)})};var oc="Move",Gb,ta=[],Qa=0,Ud=0,tb=0,F={Delete:{}};F.Delete.actions=[];F.Delete.actions[0]={};F.Delete.actions[0].event="mousedown";F.Delete.actions[0].tooltip="...";F.Delete.actions[0]["do"]=function(){aa=Fb(U);null!==aa&&kd(aa.mover.name);return!0};F.Move={};F.Move.actions=[];F.Move.actions[0]={};F.Move.actions[0].event=
-"mousedown";F.Move.actions[0].tooltip="Move free elements by dragging the mouse";F.Move.actions[0]["do"]=function(){for(var a=U,b=null,c=1E6,d,e=0;e<u.free.length;e++){var h=u.free[e];if(!h.pinned&&!1!==h.visible&&!0!==h.tmp){var k,l,n,q=x.drawingstate.matrix.sdet;if("P"===h.kind){l=f.normalizeZ(h.homog);if(!f._helper.isAlmostReal(l))continue;k=l.value[0].value.real-a.x;l=l.value[1].value.real-a.y;n=Math.sqrt(k*k+l*l);if(h.narrow&&n>("number"===typeof h.narrow?h.narrow:20)/q)continue}else if("C"===
-h.kind)l=u.csnames[h.args[0]],n=h.radius,k=m.div(l.homog.value[0],l.homog.value[2]).value.real,l=m.div(l.homog.value[1],l.homog.value[2]).value.real,k-=a.x,l-=a.y,n=Math.sqrt(k*k+l*l)-n.value.real,l=k=0,0>n&&(n=-n),n+=30/q;else if("L"===h.kind)k=h.homog,n=m,l=n.add(n.mult(k.value[0],n.conjugate(k.value[0])),n.mult(k.value[1],n.conjugate(k.value[1]))),l=f.scaldiv(n.sqrt(l),k),n=l.value[0].value.real*a.x+l.value[1].value.real*a.y+l.value[2].value.real,k=-l.value[0].value.real*n,l=-l.value[1].value.real*
-n,0>n&&(n=-n),n+=25/q;else if("Text"===h.kind){if(!h._bbox)continue;l=x.from(a.x,a.y,1);k=Math.max(0,l[0]-h._bbox.right,h._bbox.left-l[0]);l=Math.max(0,l[1]-h._bbox.bottom,h._bbox.top-l[1]);n=Math.sqrt(k*k+l*l);if(20<n)continue;n/=q;l=f.normalizeZ(h.homog);if(!f._helper.isAlmostReal(l))continue;k=l.value[0].value.real-a.x;l=l.value[1].value.real-a.y}else continue;n<c+.2/q&&(c=n,b=h,d={x:k,y:l})}}console.log("Moving "+(b?b.name:"nothing"));aa=null===b?null:{mover:b,offset:d,prev:{x:a.x,y:a.y}};return!0};
-F.Point={};F.Point.actions=[];F.Point.actions[0]={};F.Point.actions[0].event="mousedown";F.Point.actions[0].tooltip="Add a single point with the mouse";F.Point.actions[0]["do"]=function(){Da({type:"Free",name:Pa(),labeled:!0,pos:[sa[0],sa[1],1]});return!0};F.Mid={};F.Mid.actions=[];F.Mid.actions[0]={};F.Mid.actions[0].event="mousedown";F.Mid.actions[0].tooltip="Construct two points and their midpoint by dragging";F.Mid.actions[0]["do"]=function(){ob();return!0};F.Mid.actions[1]={};F.Mid.actions[1].event=
-"mousemove";F.Mid.actions[1]["do"]=function(){Rb("Mid");return!0};F.Mid.actions[2]={};F.Mid.actions[2].event="mouseup";F.Mid.actions[2]["do"]=function(){ub();return!0};F.Circle={};F.Circle.actions=[];F.Circle.actions[0]={};F.Circle.actions[0].event="mousedown";F.Circle.actions[0].tooltip="Construct two points and a circle by dragging the mouse";F.Circle.actions[0]["do"]=function(){ob();return!0};F.Circle.actions[1]={};F.Circle.actions[1].event="mousemove";F.Circle.actions[1]["do"]=function(){Rb("CircleMP");
-return!0};F.Circle.actions[2]={};F.Circle.actions[2].event="mouseup";F.Circle.actions[2]["do"]=function(){ub();return!0};F.Compass={};F.Compass.actions=[];F.Compass.actions[0]={};F.Compass.actions[0].event="mousedown";F.Compass.actions[0].tooltip="...";F.Compass.actions[0]["do"]=function(){ob();return!0};F.Compass.actions[1]={};F.Compass.actions[1].event="mousedown";F.Compass.actions[1].tooltip="...";F.Compass.actions[1]["do"]=function(){ob();return!0};F.Compass.actions[2]={};F.Compass.actions[2].event=
-"mousedown";F.Compass.actions[2].tooltip="...";F.Compass.actions[2]["do"]=function(){ob();Da({type:"Compass",name:Pa(),labeled:!0,args:[ta[0].name,ta[1].name,ta[2].name]});return!0};F.Line={};F.Line.actions=[];F.Line.actions[0]={};F.Line.actions[0].event="mousedown";F.Line.actions[0].tooltip="Construct two points and their connecting line by dragging the mouse";F.Line.actions[0]["do"]=function(){ob();return!0};F.Line.actions[1]={};F.Line.actions[1].event="mousemove";F.Line.actions[1]["do"]=function(){Rb("Join");
-return!0};F.Line.actions[2]={};F.Line.actions[2].event="mouseup";F.Line.actions[2]["do"]=function(){ub();return!0};F.Segment={};F.Segment.actions=[];F.Segment.actions[0]={};F.Segment.actions[0].event="mousedown";F.Segment.actions[0].tooltip="Draw a segment by dragging the mouse";F.Segment.actions[0]["do"]=function(){ob();return!0};F.Segment.actions[1]={};F.Segment.actions[1].event="mousemove";F.Segment.actions[1]["do"]=function(){Rb("Segment");return!0};F.Segment.actions[2]={};F.Segment.actions[2].event=
-"mouseup";F.Segment.actions[2]["do"]=function(){ub();return!0};F.Parallel={};F.Parallel.actions=[];F.Parallel.actions[0]={};F.Parallel.actions[0].event="mousedown";F.Parallel.actions[0].tooltip="Construct a parallel line by dragging a line";F.Parallel.actions[0]["do"]=function(){return id()};F.Parallel.actions[1]={};F.Parallel.actions[1].event="mousemove";F.Parallel.actions[1]["do"]=function(){var a={type:"Free",name:Pa(),labeled:!0,pos:[sa[0],sa[1],1],tmp:!0},a=Da(a);Gb=Da({type:"Para",name:Pa(),
-labeled:!0,args:[ta[0].name,a.name]});qc(a);return!0};F.Parallel.actions[2]={};F.Parallel.actions[2].event="mouseup";F.Parallel.actions[2]["do"]=function(){ub();return!0};F.Orthogonal={};F.Orthogonal.actions=[];F.Orthogonal.actions[0]={};F.Orthogonal.actions[0].event="mousedown";F.Orthogonal.actions[0].tooltip="Construct a orthogonal line by dragging a line";F.Orthogonal.actions[0]["do"]=function(){if(id()){var a={type:"Free",name:Pa(),labeled:!0,pos:[sa[0],sa[1],1],tmp:!0},a=Da(a);Gb=Da({type:"Perp",
-name:Pa(),labeled:!0,args:[ta[0].name,a.name]});qc(a);return!0}return!1};F.Orthogonal.actions[1]={};F.Orthogonal.actions[1].event="mouseup";F.Orthogonal.actions[1]["do"]=function(){ub();return!0};F.Intersection={};F.Intersection.actions=[];F.Intersection.actions[0]={};F.Intersection.actions[0].event="mousedown";F.Intersection.actions[0].tooltip="Select two elements to define their intersection";F.Intersection.actions[0]["do"]=function(){return jd()};F.Intersection.actions[1]={};F.Intersection.actions[1].event=
-"mousedown";F.Intersection.actions[1]["do"]=function(){return jd()?(Gb=Da({type:"Meet",name:Pa(),labeled:!0,args:[ta[0].name,ta[1].name]}),!0):!1};var Xa={},x={drawingstate:{}};x.drawingstate.linecolor="rgb(0,0,255)";x.drawingstate.linecolorraw=[0,0,1];x.drawingstate.pointcolor="rgb(0,255,0)";x.drawingstate.pointcolorraw=[0,1,0];x.drawingstate.textcolor="rgb(0,0,0)";x.drawingstate.textcolorraw=[0,0,0];x.drawingstate.alpha=1;x.drawingstate.pointsize=4;x.drawingstate.linesize=1;x.drawingstate.textsize=
-null;x.drawingstate.matrix={};x.drawingstate.matrix.a=25;x.drawingstate.matrix.b=0;x.drawingstate.matrix.c=0;x.drawingstate.matrix.d=25;x.drawingstate.matrix.tx=250.5;x.drawingstate.matrix.ty=250.5;x.drawingstate.matrix.det=x.drawingstate.matrix.a*x.drawingstate.matrix.d-x.drawingstate.matrix.b*x.drawingstate.matrix.c;x.drawingstate.matrix.sdet=Math.sqrt(x.drawingstate.matrix.det);x.drawingstate.initialmatrix={};x.drawingstate.initialmatrix.a=x.drawingstate.matrix.a;x.drawingstate.initialmatrix.b=
-x.drawingstate.matrix.b;x.drawingstate.initialmatrix.c=x.drawingstate.matrix.c;x.drawingstate.initialmatrix.d=x.drawingstate.matrix.d;x.drawingstate.initialmatrix.tx=x.drawingstate.matrix.tx;x.drawingstate.initialmatrix.ty=x.drawingstate.matrix.ty;x.drawingstate.initialmatrix.det=x.drawingstate.matrix.det;x.drawingstate.initialmatrix.sdet=x.drawingstate.matrix.sdet;x.clone=function(a){if(null===a||"object"!==typeof a)return a;var b=a.constructor(),c;for(c in a)b[c]=x.clone(a[c]);return b};Xa.backup=
-x.clone(x.drawingstate);Xa.stack=[];x.clone(x.drawingstate);x.reset=function(){x.drawingstate.matrix.a=x.drawingstate.initialmatrix.a;x.drawingstate.matrix.b=x.drawingstate.initialmatrix.b;x.drawingstate.matrix.c=x.drawingstate.initialmatrix.c;x.drawingstate.matrix.d=x.drawingstate.initialmatrix.d;x.drawingstate.matrix.tx=x.drawingstate.initialmatrix.tx;x.drawingstate.matrix.ty=x.drawingstate.initialmatrix.ty;x.drawingstate.matrix.det=x.drawingstate.initialmatrix.det;x.drawingstate.matrix.sdet=x.drawingstate.initialmatrix.sdet};
-x.from=function(a,b,c){a/=c;b/=c;c=x.drawingstate.matrix;return[a*c.a-b*c.b+c.tx,a*c.c-b*c.d-c.ty]};x.to=function(a,b){var c=x.drawingstate.matrix,d=a-c.tx,e=b+c.ty;return[(d*c.d-e*c.b)/c.det,-(-d*c.c+e*c.a)/c.det,1]};x.toMat=function(){var a=x.drawingstate.matrix;return f.realMatrix([[a.d,-a.b,-a.tx*a.d-a.ty*a.b],[a.c,-a.a,-a.tx*a.c-a.ty*a.a],[0,0,a.det]])};x.dumpTrafo=function(){function a(a){return Math.round(1E3*a)/1E3}var b=x.drawingstate.matrix;console.log("a:"+a(b.a)+" b:"+a(b.b)+" c:"+a(b.c)+
-" d:"+a(b.d)+" tx:"+a(b.ty)+" ty:"+a(b.tx))};x.setMat=function(a,b,c,d,e,f){var h=x.drawingstate.matrix;h.a=a;h.b=b;h.c=c;h.d=d;h.tx=e;h.ty=f;h.det=a*d-b*c;h.sdet=Math.sqrt(h.det)};x.scaleAndOrigin=function(a,b,c){x.setMat(a,0,0,a,b,c)};x.visibleRect=function(a,b,c,d){var e=c-a,f=b-d,e=W*f<V*e?W/e:V/f;x.setMat(e,0,0,e,(W-e*(a+c))/2,(V-e*(b+d))/2)};x.applyMat=function(a,b,c,d,e,f){var h=x.drawingstate.matrix;x.setMat(h.a*a+h.c*b,h.b*a+h.d*b,h.a*c+h.c*d,h.b*c+h.d*d,h.a*e+h.c*f+h.tx,h.b*e+h.d*f+h.ty)};
-x.translate=function(a,b){x.applyMat(1,0,0,1,a,b)};x.rotate=function(a){var b=Math.cos(a);a=Math.sin(a);x.applyMat(b,a,-a,b,0,0)};x.scale=function(a){x.applyMat(a,0,0,a,0,0)};x.gsave=function(){Xa.stack.push(x.clone(x.drawingstate))};x.grestore=function(){0!==Xa.stack.length&&(x.drawingstate=Xa.stack.pop())};x.greset=function(){x.drawingstate=x.clone(Xa.backup);x.drawingstate.matrix.ty-=V;x.drawingstate.initialmatrix.ty-=V;Xa.stack=[]};x.createnewbackup=function(){x.drawingstate.initialmatrix.a=x.drawingstate.matrix.a;
-x.drawingstate.initialmatrix.b=x.drawingstate.matrix.b;x.drawingstate.initialmatrix.c=x.drawingstate.matrix.c;x.drawingstate.initialmatrix.d=x.drawingstate.matrix.d;x.drawingstate.initialmatrix.tx=x.drawingstate.matrix.tx;x.drawingstate.initialmatrix.ty=x.drawingstate.matrix.ty;x.drawingstate.initialmatrix.det=x.drawingstate.matrix.det;x.drawingstate.initialmatrix.sdet=x.drawingstate.matrix.sdet;Xa.backup=x.clone(x.drawingstate)};x.makecolor=function(a,b,c){a=Math.floor(255*a);b=Math.floor(255*b);
-c=Math.floor(255*c);return 1===x.drawingstate.alpha?"rgb("+a+","+b+","+c+")":"rgba("+a+","+b+","+c+","+x.drawingstate.alpha+")"};x.setcolor=function(a){var b=a.value[0].value.real,c=a.value[1].value.real;a=a.value[2].value.real;x.drawingstate.linecolor=x.drawingstate.pointcolor=x.makecolor(b,c,a);x.drawingstate.linecolorraw=x.drawingstate.pointcolorraw=[b,c,a]};x.setlinecolor=function(a){var b=a.value[0].value.real,c=a.value[1].value.real;a=a.value[2].value.real;x.drawingstate.linecolor=x.makecolor(b,
-c,a);x.drawingstate.linecolorraw=[b,c,a]};x.settextcolor=function(a){var b=a.value[0].value.real,c=a.value[1].value.real;a=a.value[2].value.real;x.drawingstate.textcolor=x.makecolor(b,c,a);x.drawingstate.textcolorraw=[b,c,a]};x.setpointcolor=function(a){var b=a.value[0].value.real,c=a.value[1].value.real;a=a.value[2].value.real;x.drawingstate.pointcolor=x.makecolor(b,c,a);x.drawingstate.pointcolorraw=[b,c,a]};x.setalpha=function(a){x.drawingstate.alpha=a.value.real;x.drawingstate.linecolor=x.makecolor(x.drawingstate.linecolorraw[0],
-x.drawingstate.linecolorraw[1],x.drawingstate.linecolorraw[2]);x.drawingstate.pointcolor=x.makecolor(x.drawingstate.pointcolorraw[0],x.drawingstate.pointcolorraw[1],x.drawingstate.pointcolorraw[2]);x.drawingstate.textcolor=x.makecolor(x.drawingstate.textcolorraw[0],x.drawingstate.textcolorraw[1],x.drawingstate.textcolorraw[2])};x.setpointsize=function(a){x.drawingstate.pointsize=a.value.real};x.setlinesize=function(a){x.drawingstate.linesize=a.value.real};x.settextsize=function(a){x.drawingstate.textsize=
-a.value.real};var ja={clip:"none",pointColor:[1,0,0],lineColor:[0,0,1],pointSize:5,lineSize:1,alpha:1,overhangLine:1,overhangSeg:1,dimDependent:.7,fontFamily:"sans-serif",textsize:20,lineHeight:1.45};q.defaultAppearance&&Vd(q.defaultAppearance);var Tb={},rd={UL:0,UR:1,LR:2,LL:3},sc=["in","out","good","backup"],gb=new Float64Array(0),bb={};sc.forEach(function(a){bb[a]=gb});var ma=gb,Fa=gb,ya=gb,ua,za,eb,Ga,vb,tc=!1,td={toString:function(){return"RefineException"}},I=null;q.enableTraceLog&&(I={logLength:Infinity,
-fullLog:[],currentMouseAndScripts:null,currentMover:null,currentStep:null,currentElement:null,currentParam:null,labelTracing2:v.wrap("tracing2"),labelTracing4:v.wrap("tracing4"),labelTracingSesq:v.wrap("tracingSesq"),postMouseHooks:[]},"number"===typeof q.enableTraceLog&&(I.logLength=q.enableTraceLog),qa.getTraceLog=ae,qa.formatTraceLog=be,qa.addTraceHook=I.postMouseHooks.push.bind(I.postMouseHooks));Ha.stateSize=12;vc.stateSize=24;var hb=[];fb.P=function(a){u.lines.forEach(function(b){b=yd(a,b);
-b.holds()&&hb.push(b)});u.conics.forEach(function(b){b=zd(a,b);b.holds()&&hb.push(b)})};fb.L=function(a){u.points.forEach(function(b){b=yd(b,a);b.holds()&&hb.push(b)})};fb.S=fb.L;fb.C=function(a){u.points.forEach(function(b){b=zd(b,a);b.holds()&&hb.push(b)})};var n={_helper:{},RandomLine:{}};n.RandomLine.kind="L";n.RandomLine.signature=[];n.RandomLine.updatePosition=function(a){a.homog=f.realVector([Math.random()-.5,Math.random()-.5,Math.random()-.5]);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,
-"Line")};n.FreeLine={};n.FreeLine.kind="L";n.FreeLine.signature=[];n.FreeLine.isMovable=!0;n.FreeLine.initialize=function(a){a=n._helper.initializeLine(a);T(a)};n.FreeLine.getParamForInput=function(a,b,c){"mouse"===c?(a=f.cross(b,f.ez),a=f.cross(a,b)):a="homog"===c?b:f.turnIntoCSList([m.zero,m.zero,m.zero]);return f.normalizeMax(a)};n.FreeLine.getParamFromState=function(a){return Z(3)};n.FreeLine.putParamToState=function(a,b){T(b)};n.FreeLine.updatePosition=function(a){var b=Z(3);T(b);a.homog=v.withUsage(b,
-"Line")};n.FreeLine.stateSize=6;n.RandomPoint={};n.RandomPoint.kind="P";n.RandomPoint.signature=[];n.RandomPoint.updatePosition=function(a){a.homog=f.realVector([100*Math.random(),100*Math.random(),100*Math.random()]);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Point")};n.Join={};n.Join.kind="L";n.Join.signature=["P","P"];n.Join.updatePosition=function(a){a.homog=f.cross(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,
-"Line")};n.Segment={};n.Segment.kind="S";n.Segment.signature=["P","P"];n.Segment.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]];n.Segment.setSegmentPos(a,f.cross(b.homog,c.homog),f.scalmult(c.homog.value[2],b.homog),f.scalmult(b.homog.value[2],c.homog))};n.Segment.setSegmentPos=function(a,b,c,d){b=f.normalizeMax(b);a.homog=v.withUsage(b,"Line");b=f.turnIntoCSList([c,d]);b=f.normalizeMax(b);a.startpos=b.value[0];a.endpos=b.value[1]};n.Meet={};n.Meet.kind="P";n.Meet.signature=
-["L","L"];n.Meet.updatePosition=function(a){a.homog=f.cross(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Point")};n.Meet.visiblecheck=function(a){var b=!0,c=u.csnames[a.args[0]],d=u.csnames[a.args[1]];"S"===c.kind&&(b=pd(a,c));b&&"S"===d.kind&&(b=pd(a,d));a.isshowing=b};n._helper.midpoint=function(a,b){return f.normalizeMax(f.add(f.scalmult(b.value[2],a),f.scalmult(a.value[2],b)))};n.Mid={};n.Mid.kind="P";n.Mid.signature=["P",
-"P"];n.Mid.updatePosition=function(a){var b=n._helper.midpoint(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog);a.homog=v.withUsage(b,"Point")};n.Perp={};n.Perp.kind="L";n.Perp.signature=["L","P"];n.Perp.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,b=f.turnIntoCSList([b.value[0],b.value[1],m.zero]);a.homog=f.cross(b,c);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Line")};n.Para={};n.Para.kind="L";n.Para.signature=["L","P"];n.Para.updatePosition=
-function(a){var b=u.csnames[a.args[1]].homog;a.homog=f.cross(f.cross(f.linfty,u.csnames[a.args[0]].homog),b);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Line")};n.Horizontal={};n.Horizontal.kind="L";n.Horizontal.signature=["P"];n.Horizontal.updatePosition=function(a){a.homog=f.cross(f.ex,u.csnames[a.args[0]].homog);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Line")};n.HorizontalLine={};n.HorizontalLine.kind="L";n.HorizontalLine.signature=[];n.HorizontalLine.isMovable=
-!0;n.HorizontalLine.initialize=function(a){a=n._helper.initializeLine(a);a=f.turnIntoCSList([m.zero,a.value[1],a.value[2]]);a=f.normalizeMax(a);T(a)};n.HorizontalLine.getParamForInput=function(a,b,c){if("mouse"===c)b=f.cross(b,f.ex);else if("homog"===c){if(0!==b.value[0].real||0!==b.value[0].imag)b=f.turnIntoCSList([m.zero,b.value[1],b.value[2]])}else b=f.turnIntoCSList([m.zero,m.zero,m.zero]);return f.normalizeMax(b)};n.HorizontalLine.getParamFromState=function(a){return Z(3)};n.HorizontalLine.putParamToState=
-function(a,b){T(b)};n.HorizontalLine.updatePosition=function(a){var b=Z(3);T(b);a.homog=v.withUsage(b,"Line")};n.HorizontalLine.stateSize=6;n.Vertical={};n.Vertical.kind="L";n.Vertical.signature=["P"];n.Vertical.updatePosition=function(a){a.homog=f.cross(f.ey,u.csnames[a.args[0]].homog);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Line")};n.VerticalLine={};n.VerticalLine.kind="L";n.VerticalLine.signature=[];n.VerticalLine.isMovable=!0;n.VerticalLine.initialize=function(a){a=n._helper.initializeLine(a);
-a=f.turnIntoCSList([a.value[0],m.zero,a.value[2]]);a=f.normalizeMax(a);T(a)};n.VerticalLine.getParamForInput=function(a,b,c){if("mouse"===c)b=f.cross(b,f.ey);else if("homog"===c){if(0!==b.value[1].real||0!==b.value[1].imag)b=f.turnIntoCSList([b.value[0],m.zero,b.value[2]])}else b=f.turnIntoCSList([m.zero,m.zero,m.zero]);return f.normalizeMax(b)};n.VerticalLine.getParamFromState=function(a){return Z(3)};n.VerticalLine.putParamToState=function(a,b){T(b)};n.VerticalLine.updatePosition=function(a){var b=
-Z(3);T(b);a.homog=v.withUsage(b,"Line")};n.VerticalLine.stateSize=6;n.LineByFixedAngle={};n.LineByFixedAngle.kind="L";n.LineByFixedAngle.signature=["L","P"];n.LineByFixedAngle.initialize=function(a){var b=m._helper.input(a.angle),c=m.cos(b),b=m.sin(b);a.rot=f.turnIntoCSList([f.turnIntoCSList([b,c,m.zero]),f.turnIntoCSList([m.neg(c),b,m.zero]),f.turnIntoCSList([m.zero,m.zero,m.zero])])};n.LineByFixedAngle.updatePosition=function(a){var b=u.csnames[a.args[1]],c=f.productMV(a.rot,u.csnames[a.args[0]].homog);
-a.homog=f.cross(b.homog,c);a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Line")};n.Through={};n.Through.kind="L";n.Through.signature=["P"];n.Through.isMovable=!0;n.Through.initialize=function(a){a=a.dir?v.wrap(a.dir):f.realVector([a.pos[1],-a.pos[0],0]);T(a)};n.Through.getParamForInput=function(a,b,c){a="dir"===c||"mouse"===c?f.cross(u.csnames[a.args[0]].homog,b):"homog"===c?b:f.turnIntoCSList([m.zero,m.zero,m.zero]);a=f.cross(f.linfty,a);return f.normalizeMax(a)};n.Through.getParamFromState=
-function(a){return Z(3)};n.Through.putParamToState=function(a,b){T(b)};n.Through.updatePosition=function(a){var b=Z(3);T(b);b=f.cross(u.csnames[a.args[0]].homog,b);b=f.normalizeMax(b);a.homog=v.withUsage(b,"Line")};n.Through.stateSize=6;n.Free={};n.Free.kind="P";n.Free.signature=[];n.Free.isMovable=!0;n.Free.initialize=function(a){a=n._helper.initializePoint(a);T(a)};n.Free.getParamForInput=function(a,b,c){if("mouse"===c&&bc&&0!==Ta){b=f.normalizeZ(b);a=b.value[0].value.real;c=b.value[1].value.real;
-var d=Math.round(a/Ta)*Ta,e=Math.round(c/Ta)*Ta;.2>Math.abs(d-a)&&.2>Math.abs(e-c)&&(b=f.realVector([d,e,1]))}return f.normalizeMax(b)};n.Free.getParamFromState=function(a){return Z(3)};n.Free.putParamToState=function(a,b){T(b)};n.Free.updatePosition=function(a){var b=Z(3);T(b);a.homog=v.withUsage(b,"Point")};n.Free.stateSize=6;n._helper.projectPointToLine=function(a,b){var c=f.turnIntoCSList([b.value[0],b.value[1],m.zero]),c=f.cross(c,a);return f.normalizeMax(f.cross(c,b))};n.PointOnLine={};n.PointOnLine.kind=
-"P";n.PointOnLine.signature=["L"];n.PointOnLine.isMovable=!0;n.PointOnLine.initialize=function(a){var b=n._helper.initializePoint(a);a=u.csnames[a.args[0]].homog;var b=n._helper.projectPointToLine(b,a),b=f.normalizeMax(b),c=f.cross(f.linfty,b);f.normalizeMax(c);T(b);T(a);eb=!1};n.PointOnLine.updatePosition=function(a,b){var c,d=u.csnames[a.args[0]].homog;c=Z(3);Z(3);if(!b){ua=a.stateIdx;var e=ma;ma=ya;var h=Z(3),m=Z(3);ma=e;e=f.cross(m,d);f._helper.isAlmostZero(e)&&(e=f.cross(f.linfty,d));h=n._helper.CircleMP(e,
-h);h=n._helper.IntersectLC(d,h);e=n._helper.pointReflection(e,c);c=vd(h[0],h[1],c,e)[0]}c=f.normalizeMax(c);T(c);T(d);a.homog=v.withUsage(c,"Point")};n.PointOnLine.getParamForInput=function(a,b,c){return b=n._helper.projectPointToLine(b,u.csnames[a.args[0]].homog)};n.PointOnLine.getParamFromState=function(a){return Z(3)};n.PointOnLine.putParamToState=function(a,b){return T(b)};n.PointOnLine.stateSize=12;n.PointOnCircle={};n.PointOnCircle.kind="P";n.PointOnCircle.signature=["C"];n.PointOnCircle.isMovable=
-!0;n.PointOnCircle.initialize=function(a){var b=u.csnames[a.args[0]];a=f.normalizeZ(n._helper.initializePoint(a));var c=f.normalizeZ(n._helper.CenterOfConic(b.matrix)),d=f.sub(a,c),d=f.turnIntoCSList([d.value[1],m.neg(d.value[0]),m.zero]),c=f.cross(a,c),b=n._helper.IntersectLC(c,b.matrix),c=f.projectiveDistMinScal(a,b[0]);f.projectiveDistMinScal(a,b[1])<c?(a=b[1],b=b[0]):(a=b[0],b=b[1]);T(d);T(a);T(b);eb=!1};n.PointOnCircle.putParamToState=function(a,b){T(b)};n.PointOnCircle.getParamFromState=function(a){return Z(3)};
-n.PointOnCircle.getParamForInput=function(a,b,c){c=f.normalizeZ(n._helper.CenterOfConic(u.csnames[a.args[0]].matrix));b=f.sub(b,c);ua=a.stateIdx;a=Z(3);var d=f.normalizeZ(Z(3));c=f.sub(d,c);0>m.sub(m.mult(a.value[0],c.value[1]),m.mult(a.value[1],c.value[0])).value.real&&(b=f.neg(b));return f.turnIntoCSList([b.value[1],m.neg(b.value[0]),m.zero])};n.PointOnCircle.parameterPath=function(a,b,c,d,e){d=f.normalizeAbs(d);e=f.normalizeAbs(e);var h=f.scalproduct(d,e);if(0<=h.value.real)return ud(a,b,c,d,e);
-a=f.turnIntoCSList([m.sub(d.value[1],e.value[1]),m.sub(e.value[0],d.value[0]),m.zero]);h=f.scalproduct(d,a);0>h.value.real&&(a=f.neg(a));0>b?(b=2*b+1,c=b*b,h=.25/(1+c),c=m.complex(2*b*h+.25,(1-c)*h)):(b=2*b-1,c=b*b,h=.25/(1+c),c=m.complex(2*b*h+.75,(1-c)*h));var k=m.sub(m.real(1),c);b=m.mult(c,c);h=m.mult(k,k);c=m.mult(c,k);d=f.scalmult(h,d);d=f.add(d,f.scalmult(c,a));return d=f.add(d,f.scalmult(b,e))};n.PointOnCircle.updatePosition=function(a){var b=Z(3);T(b);var c=u.csnames[a.args[0]],b=f.productMV(c.matrix,
-b),c=n._helper.IntersectLC(b,c.matrix),c=Ha(c[0],c[1]),b=f.normalizeMax(c.value[0]);a.homog=v.withUsage(b,"Point");a.antipodalPoint=c.value[1]};n.PointOnCircle.stateSize=6+Ha.stateSize;n.OtherPointOnCircle={};n.OtherPointOnCircle.kind="P";n.OtherPointOnCircle.signature=["P"];n.OtherPointOnCircle.signatureConstraints=function(a){return"PointOnCircle"===u.csnames[a.args[0]].type};n.OtherPointOnCircle.updatePosition=function(a){var b=u.csnames[a.args[0]].antipodalPoint,b=f.normalizeMax(b);a.homog=v.withUsage(b,
-"Point")};n.PointOnSegment={};n.PointOnSegment.kind="P";n.PointOnSegment.signature=["S"];n.PointOnSegment.isMovable=!0;n.PointOnSegment.initialize=function(a){var b=n._helper.initializePoint(a);a=n.PointOnSegment.getParamForInput(a,b);Va(a)};n.PointOnSegment.getParamForInput=function(a,b){var c=u.csnames[a.args[0]],d=c.homog,d=f.turnIntoCSList([d.value[0],d.value[1],m.zero]),e=f.sub(c.startpos,c.endpos),c=f.crossratio3(e,c.startpos,c.endpos,b,d);0>c.value.real&&(c=m.complex(0,c.value.imag));1<c.value.real&&
-(c=m.complex(1,c.value.imag));return c};n.PointOnSegment.getParamFromState=function(a){return wb()};n.PointOnSegment.putParamToState=function(a,b){Va(b)};n.PointOnSegment.updatePosition=function(a){var b=wb();Va(b);var c=u.csnames[a.args[0]],d=c.startpos,c=f.sub(c.endpos,d),b=f.add(d,f.scalmult(b,c)),b=f.normalizeMax(b);a.homog=v.withUsage(b,"Point")};n.PointOnSegment.stateSize=2;n._helper.CenterOfConic=function(a){a=f.adjoint3(a);return{ctype:"list",value:[a.value[2].value[0],a.value[2].value[1],
-a.value[2].value[2]]}};n.CenterOfConic={};n.CenterOfConic.kind="P";n.CenterOfConic.signature=["C"];n.CenterOfConic.updatePosition=function(a){var b=n._helper.CenterOfConic(u.csnames[a.args[0]].matrix);a.homog=b;a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Point")};n._helper.CircleMP=function(a,b){var c=a.value[0],d=a.value[1],e=m.neg(a.value[2]),h=m.zero,c=f.turnIntoCSList([f.turnIntoCSList([e,h,c]),f.turnIntoCSList([h,e,d]),f.turnIntoCSList([c,d,h])]),e=v.mult(v.mult(b,c),b),d=v.mult(v.mult(b,
-f.fund),b),e=v.mult(e,f.fund),c=v.mult(d,c);return f.sub(e,c)};n.CircleMP={};n.CircleMP.kind="C";n.CircleMP.signature=["P","P"];n.CircleMP.updatePosition=function(a){a.matrix=n._helper.CircleMP(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog);a.matrix=f.normalizeMax(a.matrix);a.matrix=v.withUsage(a.matrix,"Circle")};n.CircleMr={};n.CircleMr.kind="C";n.CircleMr.signature=["P"];n.CircleMr.isMovable=!0;n.CircleMr.initialize=function(a){Va(m.real(a.radius))};n.CircleMr.getParamForInput=function(a,
-b,c){if("radius"===c)return b;a=u.csnames[a.args[0]].homog;a=f.normalizeZ(a);b=f.normalizeZ(b);b=f.sub(a,b);return b=f.abs(b)};n.CircleMr.getParamFromState=function(a){return wb()};n.CircleMr.putParamToState=function(a,b){Va(b)};n.CircleMr.updatePosition=function(a){var b=wb();Va(b);var c=u.csnames[a.args[0]].homog,d=m.mult(c.value[2],b),d=m.mult(d,d);if(!m._helper.isFinite(d)&&!m._helper.isNaN(d))return f.fund;c=n._helper.ScaledCircleMrr(c,d);a.matrix=v.withUsage(c,"Circle");a.radius=b};n.CircleMr.stateSize=
-2;n._helper.ScaledCircleMrr=function(a,b){var c=a.value[0],d=a.value[1],e=m.neg(a.value[2]),e=f.scalmult(e,f.turnIntoCSList([c,d,e])).value,c=f.turnIntoCSList([c,d]),c=m.sub(f.scalproduct(c,c),b),e=n._helper.buildConicMatrix([e[2],m.zero,e[2],e[0],e[1],c]);return f.normalizeMax(e)};n.Compass={};n.Compass.kind="C";n.Compass.signature=["P","P","P"];n.Compass.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=u.csnames[a.args[2]].homog,e=b.value[2],h=c.value[2],
-k=d.value[2],b=f.scalmult(m.mult(h,k),b),c=f.scalmult(m.mult(e,k),c),d=f.scalmult(m.mult(e,h),d),b=f.sub(c,b),d=n._helper.ScaledCircleMrr(d,f.scalproduct(b,b));a.matrix=v.withUsage(d,"Circle")};n._helper.getConicType=function(a){if(1E-16>m.abs(f.det(a)).value.real)return"degenerate";var b=m.mult(a.value[0].value[0],a.value[1].value[1]),b=m.sub(b,m.pow(a.value[0].value[1],m.real(2))),b=b.value.real;return 1E-16>Math.abs(b)?"parabola":1E-16<b?"ellipsoid":"hyperbola"};n._helper.ConicBy5=function(a,b,
-c,d,e,h){a=f.turnIntoCSList([f.cross(c,d)]);var k=f.turnIntoCSList([f.cross(b,e)]);b=f.turnIntoCSList([f.cross(b,c)]);d=f.turnIntoCSList([f.cross(d,e)]);return n._helper.conicFromTwoDegenerates(a,k,b,d,h)};n._helper.conicFromTwoDegenerates=function(a,b,c,d,e){a=v.mult(f.transpose(b),a);c=v.mult(f.transpose(d),c);a=f.add(a,f.transpose(a));c=f.add(c,f.transpose(c));d=v.mult(v.mult(e,a),e);e=v.mult(v.mult(e,c),e);c=v.mult(d,c);e=v.mult(e,a);return f.sub(c,e)};n.ConicBy5={};n.ConicBy5.kind="C";n.ConicBy5.signature=
-["P","P","P","P","P"];n.ConicBy5.updatePosition=function(a){var b=n._helper.ConicBy5(a,u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog);a.matrix=b;a.matrix=f.normalizeMax(a.matrix);a.matrix=v.withUsage(a.matrix,"Conic")};n._helper.buildConicMatrix=function(a){var b=a[1],c=a[2],d=a[3],e=a[4],h=a[5];return f.turnIntoCSList([f.turnIntoCSList([a[0],b,d]),f.turnIntoCSList([b,c,e]),f.turnIntoCSList([d,e,h])])};n._helper.splitDegenConic=
-function(a){var b=f.adjoint3(a),c=0,d,e,h=m.abs2(b.value[0].value[0]).value.real;for(d=1;3>d;d++)e=m.abs2(b.value[d].value[d]).value.real,e>h&&(c=d,h=e);d=m.sqrt(m.mult(m.real(-1),b.value[c].value[c]));if(1E-16>m.abs2(d).value.real)return a=f.turnIntoCSList([m.zero,m.zero,m.zero]),[a,a];c=m.real(c+1);e=f.column(b,c);e=f.scaldiv(d,e);d=e.value[0];h=e.value[1];e=e.value[2];d=f.turnIntoCSList([f.turnIntoCSList([m.real(0),e,m.mult(m.real(-1),h)]),f.turnIntoCSList([m.mult(m.real(-1),e),m.real(0),d]),f.turnIntoCSList([h,
-m.mult(m.real(-1),d),m.real(0)])]);a=f.add(a,d);var k=0;for(d=h=b=0;3>d;d++)for(c=0;3>c;c++)e=m.abs2(a.value[d].value[c]).value.real,e>h&&(k=d,b=c,h=e);d=a.value[k];a=f.transpose(a);a=a.value[b];d=f.normalizeMax(d);a=f.normalizeMax(a);d=v.withUsage(d,"Line");a=v.withUsage(a,"Line");return[d,a]};n.SelectConic={};n.SelectConic.kind="C";n.SelectConic.signature=["Cs"];n.SelectConic.initialize=function(a){if(void 0!==a.index)return a.index-1;var b=m._helper.input(a.pos.xx),c=m._helper.input(a.pos.yy),
-d=m._helper.input(a.pos.zz),e=m.realmult(.5,m._helper.input(a.pos.xy)),h=m.realmult(.5,m._helper.input(a.pos.xz)),k=m.realmult(.5,m._helper.input(a.pos.yz)),b=f.turnIntoCSList([f.turnIntoCSList([b,e,h]),f.turnIntoCSList([e,c,k]),f.turnIntoCSList([h,k,d])]);a=u.csnames[a.args[0]].results;c=f.conicDist(b,a[0]);d=0;for(e=1;e<a.length;++e)h=f.conicDist(b,a[e]),h<c&&(c=h,d=e);return d};n.SelectConic.updatePosition=function(a){a.matrix=u.csnames[a.args[0]].results[a.param];a.matrix=f.normalizeMax(a.matrix);
-a.matrix=v.withUsage(a.matrix,"Conic")};n._helper.ConicBy4p1l=function(a,b,c,d,e,h){var k=f.scalproduct(b,h),l=f.scalproduct(c,h),q=f.scalproduct(d,h),r=f.scalproduct(e,h),t=f.det3(c,d,e),u=f.det3(b,c,e),v=f.det3(b,d,e),w=f.det3(b,c,d),x=m.mult,l=m.sqrt(x(x(l,r),x(t,u))),k=m.sqrt(x(x(k,q),x(v,w))),q=f.cross(f.cross(b,d),h);h=f.cross(f.cross(c,e),h);q=f.scalmult(l,q);k=f.scalmult(k,h);h=f.normalizeMax(f.add(q,k));k=f.normalizeMax(f.sub(q,k));k=Ha(h,k);h=n._helper.ConicBy5(a,b,c,d,e,k.value[0]);a=n._helper.ConicBy5(a,
-b,c,d,e,k.value[1]);return[f.normalizeMax(h),f.normalizeMax(a)]};n.ConicBy4p1l={};n.ConicBy4p1l.kind="Cs";n.ConicBy4p1l.signature=["P","P","P","P","L"];n.ConicBy4p1l.updatePosition=function(a){var b=n._helper.ConicBy4p1l(a,u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog);a.results=b};n.ConicBy4p1l.stateSize=Ha.stateSize;n._helper.ConicBy3p2l=function(a,b,c,d,e){function h(a,b,c,d){return m.sub(m.mult(a,d),m.mult(b,
-c))}var k=f.cross(a,b),l=f.cross(d,e);d=f.cross(d,k);e=f.cross(e,k);k=f.turnIntoCSList([d,e,l]);c=f.productVM(c,f.adjoint3(k));l=f.adjoint3(f.turnIntoCSList([f.scalmult(c.value[0],d),f.scalmult(c.value[1],e),f.scalmult(c.value[2],l)]));c=f.transpose(l);d=m.mult;e=f.productMV(c,a);a=e.value[0];e=e.value[1];k=f.productMV(c,b);b=k.value[0];var k=k.value[1],n=m.sqrt(d(a,e)),q=m.sqrt(d(b,k)),r,t=Array(4);for(r=0;4>r;++r){var u=(r&2)-1,v=d(m.real(((r&1)<<1)-1),n),w=d(m.real(u),q),x=h(e,v,k,w),y=h(b,w,a,
-v),u=h(a,e,b,k),z=m.add(m.add(h(b,k,a,e),h(k,w,e,v)),h(w,b,v,a)),v=d(x,x),w=d(y,y),A=d(z,z),B=d(x,y),x=d(x,z),y=d(y,z),B=m.sub(B,d(m.real(.5),d(u,u))),u=f.turnIntoCSList([f.turnIntoCSList([v,B,x]),f.turnIntoCSList([B,w,y]),f.turnIntoCSList([x,y,A])]),u=f.productMM(l,f.productMM(u,c)),u=f.turnIntoCSList([u.value[0].value[0],u.value[0].value[1],u.value[0].value[2],u.value[1].value[1],u.value[1].value[2],u.value[2].value[2]]);t[r]=u}return t};n.ConicBy3p2l={};n.ConicBy3p2l.kind="Cs";n.ConicBy3p2l.signature=
-["P","P","P","L","L"];n.ConicBy3p2l.updatePosition=function(a){for(var b=n._helper.ConicBy3p2l(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog),b=wd(b),c=Array(4),d=0;4>d;++d){var e=b[d].value;c[d]=f.turnIntoCSList([f.turnIntoCSList([e[0],e[1],e[2]]),f.turnIntoCSList([e[1],e[3],e[4]]),f.turnIntoCSList([e[2],e[4],e[5]])])}a.results=c};n.ConicBy3p2l.stateSize=48;n.ConicBy2p3l={};n.ConicBy2p3l.kind="Cs";n.ConicBy2p3l.signature=
-["P","P","L","L","L"];n.ConicBy2p3l.updatePosition=function(a){for(var b=n._helper.ConicBy3p2l(u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog,u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog),b=wd(b),c=Array(4),d=0;4>d;++d){var e=b[d].value,e=f.turnIntoCSList([f.turnIntoCSList([e[0],e[1],e[2]]),f.turnIntoCSList([e[1],e[3],e[4]]),f.turnIntoCSList([e[2],e[4],e[5]])]);c[d]=f.normalizeMax(f.adjoint3(e))}a.results=c};n.ConicBy2p3l.stateSize=48;n.ConicBy1p4l={};n.ConicBy1p4l.kind=
-"Cs";n.ConicBy1p4l.signature=["P","L","L","L","L"];n.ConicBy1p4l.updatePosition=function(a){var b=n._helper.ConicBy4p1l(a,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog,u.csnames[a.args[0]].homog),c=b[0],b=b[1],c=f.adjoint3(c),b=f.adjoint3(b),b=[c,b];a.results=b};n.ConicBy1p4l.stateSize=Ha.stateSize;n.ConicParabolaPL={};n.ConicParabolaPL.kind="C";n.ConicParabolaPL.signature=["P","L"];n.ConicParabolaPL.updatePosition=function(a){var b=u.csnames[a.args[0]].homog.value,
-c=u.csnames[a.args[1]].homog.value,d=m.mult,e=m.neg,h=m.add,k=m.sub,l=b[0],q=b[1],r=b[2],t=c[0],b=c[1],c=c[2],w=d(r,r),x=d(t,t),y=d(b,b),z=d(r,c),A=e(r),r=h(x,y),y=d(w,y),x=d(w,x),e=d(e(w),d(t,b)),t=d(A,h(d(l,r),d(z,t))),b=d(A,h(d(q,r),d(z,b))),d=k(d(h(d(l,l),d(q,q)),r),d(w,d(c,c))),d=n._helper.buildConicMatrix([y,e,x,t,b,d]),d=f.normalizeMax(d);a.matrix=v.withUsage(d,"Conic")};n.ConicBy2Foci1P={};n.ConicBy2Foci1P.kind="Cs";n.ConicBy2Foci1P.signature=["P","P","P"];n.ConicBy2Foci1P.updatePosition=
-function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=u.csnames[a.args[2]].homog,e=f.ii,h=f.jj,k=f.normalizeMax(f.cross(b,d)),l=f.normalizeMax(f.cross(c,d)),q=f.normalizeMax(f.cross(d,e)),d=f.normalizeMax(f.cross(d,h)),l=n._helper.coHarmonic(q,d,k,l),k=f.normalizeMax(l[0]),l=f.normalizeMax(l[1]),e=f.turnIntoCSList([e]),q=f.turnIntoCSList([h]),d=f.turnIntoCSList([b]),r=f.turnIntoCSList([c]),h=n._helper.conicFromTwoDegenerates(e,q,d,r,k),h=f.normalizeMax(h),e=n._helper.conicFromTwoDegenerates(e,
-q,d,r,l),e=f.normalizeMax(e),h=f.normalizeMax(f.adjoint3(h)),e=f.normalizeMax(f.adjoint3(e));"ellipsoid"!==n._helper.getConicType(h)&&(k=h,h=e,e=k);f.almostequals(b,c).value&&(b=m.real(3),e=f.zeromatrix(b,b));a.results=[h,e]};n.ConicBy2Pol1P={};n.ConicBy2Pol1P.kind="C";n.ConicBy2Pol1P.signature=["P","L","P","L","P"];n.ConicBy2Pol1P.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=u.csnames[a.args[2]].homog,e=u.csnames[a.args[3]].homog,h=u.csnames[a.args[4]].homog,
-k=f.scalproduct,l=f.scalmult,n=f.sub,q=f.productMM,r=m.realmult,t=f.transpose,w=f.turnIntoCSList,x=n(l(k(c,b),h),l(r(2,k(c,h)),b)),y=n(l(k(e,d),h),l(r(2,k(e,h)),d)),z=w([f.cross(b,h)]),h=w([f.cross(d,h)]),y=q(t(z),w([f.cross(b,y)])),w=q(t(h),w([f.cross(d,x)])),q=q(t(z),h),b=k(b,e),c=k(d,c),d=f.add(l(c,y),l(b,w)),d=n(d,l(r(2,m.mult(b,c)),q)),d=f.add(d,t(d)),d=f.normalizeMax(d),d=v.withUsage(d,"Conic");a.matrix=d};n.ConicBy2Pol1L={};n.ConicBy2Pol1L.kind="C";n.ConicBy2Pol1L.signature=["P","L","P","L",
-"L"];n.ConicBy2Pol1L.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=u.csnames[a.args[2]].homog,e=u.csnames[a.args[3]].homog,h=u.csnames[a.args[4]].homog,k=f.scalproduct,l=f.scalmult,n=f.productMM,q=m.mult,r=f.transpose,t=f.turnIntoCSList,w=k(c,b),x=k(c,d),y=k(e,b),z=k(e,d),A=k(h,b),k=k(h,d),B=t([f.sub(l(q(y,k),c),l(q(x,A),e))]),b=f.add(n(r(t([l(q(y,x),h)])),t([f.sub(f.add(l(m.sub(q(w,k),q(x,A)),e),l(m.sub(q(z,A),q(y,k)),c)),l(f.det3(c,e,h),f.cross(b,d)))])),
-n(r(B),B)),b=f.add(b,r(b)),b=f.normalizeMax(b),b=v.withUsage(b,"Conic");a.matrix=b};n._helper.conic1Pol3Inc=function(a,b,c,d,e){var h=f.scalproduct,k=f.scalmult,l=f.productMM,n=f.cross,q=m.realmult,r=m.mult,t=f.transpose,u=f.turnIntoCSList,v=f.det3,w=v(a,c,d),x=u([n(c,e)]),y=u([n(a,e)]),z=u([n(c,d)]),A=h(b,a),B=h(b,c);b=h(b,e);n=u([n(d,f.sub(k(A,e),k(q(2,b),a)))]);x=k(w,l(t(x),n));a=q(2,m.add(r(v(a,d,e),B),r(w,b)));a=m.sub(r(v(c,d,e),A),a);x=f.add(x,k(a,l(t(y),z)));x=f.add(x,t(x));return x=f.normalizeMax(x)};
-n.ConicBy1Pol3P={};n.ConicBy1Pol3P.kind="C";n.ConicBy1Pol3P.signature=["P","L","P","P","P"];n.ConicBy1Pol3P.updatePosition=function(a){var b=n._helper.conic1Pol3Inc(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog),b=v.withUsage(b,"Conic");a.matrix=b};n.ConicBy1Pol3L={};n.ConicBy1Pol3L.kind="C";n.ConicBy1Pol3L.signature=["P","L","L","L","L"];n.ConicBy1Pol3L.updatePosition=function(a){var b=n._helper.conic1Pol3Inc(u.csnames[a.args[1]].homog,
-u.csnames[a.args[0]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog),b=f.normalizeMax(f.adjoint3(b)),b=v.withUsage(b,"Conic");a.matrix=b};n._helper.coHarmonic=function(a,b,c,d){var e=f.realVector([100*Math.random(),100*Math.random(),1]),h=f.det3(e,c,a),k=f.det3(e,c,b);c=f.det3(e,d,a);d=f.det3(e,d,b);d=m.sqrt(m.mult(d,k));h=m.sqrt(m.mult(c,h));a=v.mult(a,d);h=v.mult(b,h);b=f.add(a,h);a=f.sub(a,h);return[b,a]};n.ConicInSquare={};n.ConicInSquare.kind="C";n.ConicInSquare.signature=
-["P","P","P","P"];n.ConicInSquare.updatePosition=function(a){var b=D.basismap(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog),c=m.one,c=n._helper.buildConicMatrix([c,c,c,m.real(-3),c,c]),b=f.adjoint3(b),b=f.productMM(f.productMM(f.transpose(b),c),b),b=f.normalizeMax(b);a.matrix=v.withUsage(b,"Conic")};n.ConicBy5lines={};n.ConicBy5lines.kind="C";n.ConicBy5lines.signature=["L","L","L","L","L"];n.ConicBy5lines.updatePosition=function(a){var b=
-n._helper.ConicBy5(a,u.csnames[a.args[0]].homog,u.csnames[a.args[1]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[4]].homog),b=f.adjoint3(b);a.matrix=b;a.matrix=f.normalizeMax(a.matrix);a.matrix=v.withUsage(a.matrix,"Conic")};n.ConicFromPrincipalDirections={};n.ConicFromPrincipalDirections.kind="C";n.ConicFromPrincipalDirections.signature=["P","P","P"];n.ConicFromPrincipalDirections.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,
-d=u.csnames[a.args[2]].homog,e=n._helper.pointReflection(b,c),h=f.cross(c,b),b=f.turnIntoCSList([h.value[0],h.value[1],m.zero]),h=f.turnIntoCSList([h]),c=f.turnIntoCSList([f.cross(c,b)]),e=f.turnIntoCSList([f.cross(e,b)]);a.matrix=n._helper.conicFromTwoDegenerates(h,h,c,e,d);a.matrix=f.normalizeMax(a.matrix);a.matrix=v.withUsage(a.matrix,"Conic")};n.CircleBy3={};n.CircleBy3.kind="C";n.CircleBy3.signature=["P","P","P"];n.CircleBy3.updatePosition=function(a){var b=n._helper.ConicBy5(a,u.csnames[a.args[0]].homog,
-u.csnames[a.args[1]].homog,f.ii,f.jj,u.csnames[a.args[2]].homog);a.matrix=f.normalizeMax(b);a.matrix=v.withUsage(a.matrix,"Circle")};n.ArcBy3={};n.ArcBy3.kind="C";n.ArcBy3.signature=["P","P","P"];n.ArcBy3.updatePosition=function(a){n.CircleBy3.updatePosition(a);a.startPoint=u.csnames[a.args[0]].homog;a.viaPoint=u.csnames[a.args[1]].homog;a.endPoint=u.csnames[a.args[2]].homog};n.ArcBy3.initialize=function(a){a.startPoint=u.csnames[a.args[0]].homog;a.viaPoint=u.csnames[a.args[1]].homog;a.endPoint=u.csnames[a.args[2]].homog;
-a.isArc=!0};n.PolarOfPoint={};n.PolarOfPoint.kind="L";n.PolarOfPoint.signature=["P","C"];n.PolarOfPoint.updatePosition=function(a){var b=v.mult(u.csnames[a.args[1]].matrix,u.csnames[a.args[0]].homog),b=f.normalizeMax(b);a.homog=v.withUsage(b,"Line")};n.PolarOfLine={};n.PolarOfLine.kind="P";n.PolarOfLine.signature=["L","C"];n.PolarOfLine.updatePosition=function(a){var b=u.csnames[a.args[0]],c=f.adjoint3(u.csnames[a.args[1]].matrix),b=v.mult(c,b.homog),b=f.normalizeMax(b);a.homog=v.withUsage(b,"Point")};
-n.AngleBisector={};n.AngleBisector.kind="Ls";n.AngleBisector.signature=["L","L","P"];n.AngleBisector.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=u.csnames[a.args[2]].homog,e=f.add,h=f.sub,k=f.abs,l=f.cross,m=f.scalmult,n=f.normalizeMax,q=f._helper.isAlmostZero,r=f.linfty,t=m(k(l(l(r,c),r)),b),b=m(k(l(l(r,b),r)),c),h=h(t,b),e=e(t,b);q(h)&&(h=l(l(l(r,e),r),d));q(e)&&(e=l(l(l(r,h),r),d));a.results=Ha(n(h),n(e))};n.AngleBisector.stateSize=Ha.stateSize;n._helper.IntersectLC=
-function(a,b){var c=m,d=f.crossOperator(a),e=f.transpose(d),e=v.mult(e,v.mult(b,d)),h=f.maxIndex(a,m.abs2),k,l,n,q;0===h?(h=e.value[1].value[1],k=e.value[1].value[2],l=e.value[2].value[1],n=e.value[2].value[2],q=a.value[0]):1===h?(h=e.value[0].value[0],k=e.value[0].value[2],l=e.value[2].value[0],n=e.value[2].value[2],q=a.value[1]):(h=e.value[0].value[0],k=e.value[0].value[1],l=e.value[1].value[0],n=e.value[1].value[1],q=a.value[2]);c=c.div(c.sqrt(c.sub(c.mult(k,l),c.mult(h,n))),q);c=f.add(e,f.scalmult(c,
-d));h=f.maxIndex(c,f.abs2);d=c.value[h];d=f.normalizeMax(d);d=v.withUsage(d,"Point");c=f.transpose(c);h=f.maxIndex(c,f.abs2);c=c.value[h];c=f.normalizeMax(c);c=v.withUsage(c,"Point");return[d,c]};n.IntersectLC={};n.IntersectLC.kind="Ps";n.IntersectLC.signature=["L","C"];n.IntersectLC.updatePosition=function(a){var b=n._helper.IntersectLC(u.csnames[a.args[0]].homog,u.csnames[a.args[1]].matrix);a.results=Ha(b[0],b[1])};n.IntersectLC.stateSize=Ha.stateSize;n.OtherIntersectionCL={};n.OtherIntersectionCL.kind=
-"P";n.OtherIntersectionCL.signature=["C","L","P"];n.OtherIntersectionCL.updatePosition=function(a){var b=u.csnames[a.args[2]].homog,c=n._helper.IntersectLC(u.csnames[a.args[1]].homog,u.csnames[a.args[0]].matrix),d=c[0],c=c[1],e=f.projectiveDistMinScal(d,b),b=f.projectiveDistMinScal(c,b);a.homog=e<b?c:d;a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Point")};n.IntersectCirCir={};n.IntersectCirCir.kind="Ps";n.IntersectCirCir.signature=["C","C"];n.IntersectCirCir.updatePosition=function(a){var b=
-u.csnames[a.args[0]].matrix,c=u.csnames[a.args[1]].matrix,d=f.scalmult(c.value[0].value[0],b.value[2]),c=f.scalmult(b.value[0].value[0],c.value[2]),d=f.sub(d,c),d=f.turnIntoCSList([d.value[0],d.value[1],m.realmult(.5,d.value[2])]),d=f.normalizeMax(d),b=n._helper.IntersectLC(d,b);a.results=Ha(b[0],b[1])};n.IntersectCirCir.stateSize=Ha.stateSize;n.OtherIntersectionCC={};n.OtherIntersectionCC.kind="P";n.OtherIntersectionCC.signature=["C","C","P"];n.OtherIntersectionCC.updatePosition=function(a){var b=
-u.csnames[a.args[0]].matrix,c=u.csnames[a.args[1]].matrix,d=u.csnames[a.args[2]].homog,e=f.scalmult(c.value[0].value[0],b.value[2]),c=f.scalmult(b.value[0].value[0],c.value[2]),e=f.sub(e,c),e=f.turnIntoCSList([e.value[0],e.value[1],m.realmult(.5,e.value[2])]),e=f.normalizeMax(e),e=n._helper.IntersectLC(e,b),b=e[0],e=e[1],c=f.projectiveDistMinScal(b,d),d=f.projectiveDistMinScal(e,d);a.homog=c<d?e:b;a.homog=f.normalizeMax(a.homog);a.homog=v.withUsage(a.homog,"Point")};n._helper.IntersectConicConic=
-function(a,b){var c=a.value[0],d=a.value[1],e=a.value[2],h=b.value[0],k=b.value[1],l=b.value[2],q=f.det3(c,d,e),r=m.add(m.add(f.det3(c,d,l),f.det3(c,k,e)),f.det3(h,d,e)),c=m.add(m.add(f.det3(c,k,l),f.det3(h,d,l)),f.det3(h,k,e)),h=f.det3(h,k,l),l=m.abs2(q).value.real,k=m.abs2(h).value.real;l<k&&(l=a,a=b,b=l,l=h,h=q,q=l,l=c,c=r,r=l,l=k);1E-24>l?(q=a,c=b):(r=m.solveCubic(q,r,c,h),c=m.abs2(m.sub(r[0],r[1])).value.real,h=m.abs2(m.sub(r[0],r[2])).value.real,k=m.abs2(m.sub(r[1],r[2])).value.real,c>h?(q=
-r[1],r=c>k?r[0]:r[2]):(q=r[2],r=h>k?r[0]:r[1]),q=f.add(f.scalmult(q,a),b),c=f.add(f.scalmult(r,a),b));r=n._helper.splitDegenConic(q);q=r[0];r=r[1];c=n._helper.splitDegenConic(c);k=c[0];h=c[1];c=f.cross(q,k);k=f.cross(r,k);q=f.cross(q,h);r=f.cross(r,h);c=f.normalizeMax(c);k=f.normalizeMax(k);q=f.normalizeMax(q);r=f.normalizeMax(r);c=v.withUsage(c,"Point");k=v.withUsage(k,"Point");q=v.withUsage(q,"Point");r=v.withUsage(r,"Point");return[c,k,q,r]};n.IntersectConicConic={};n.IntersectConicConic.kind=
-"Ps";n.IntersectConicConic.signature=["C","C"];n.IntersectConicConic.updatePosition=function(a){var b=n._helper.IntersectConicConic(u.csnames[a.args[0]].matrix,u.csnames[a.args[1]].matrix),b=vc(b[0],b[1],b[2],b[3]);a.results=b};n.IntersectConicConic.stateSize=vc.stateSize;n.SelectP={};n.SelectP.kind="P";n.SelectP.signature=["Ps"];n.SelectP.initialize=function(a){if(void 0!==a.index)return a.index-1;var b=u.csnames[a.args[0]].results.value;a=n._helper.initializePoint(a);for(var c=f.projectiveDistMinScal(a,
-b[0]),d=0,e=1;e<b.length;++e){var h=f.projectiveDistMinScal(a,b[e]);h<c&&(c=h,d=e)}return d};n.SelectP.updatePosition=function(a){a.homog=u.csnames[a.args[0]].results.value[a.param]};n.SelectL={};n.SelectL.kind="L";n.SelectL.signature=["Ls"];n.SelectL.initialize=function(a){if(void 0!==a.index)return a.index-1;var b=u.csnames[a.args[0]].results.value;a=n._helper.initializeLine(a);for(var c=f.projectiveDistMinScal(a,b[0]),d=0,e=1;e<b.length;++e){var h=f.projectiveDistMinScal(a,b[e]);h<c&&(c=h,d=e)}return d};
-n.SelectL.updatePosition=function(a){a.homog=u.csnames[a.args[0]].results.value[a.param];a.homog=v.withUsage(a.homog,"Line")};n._helper.moebiusStep=function(a,b,c){var d=m.add,e=m.sub,f=m.mult,h=a.value[0],k=a.value[1];a=a.value[2];var l=b.value[0],n=b.value[1];b=b.value[2];var q=c.value[0],r=c.value[1],t=c.value[2];c=e(f(b,q),f(l,t));var u=e(f(b,r),f(n,t)),q=e(f(h,t),f(a,q)),r=e(f(k,t),f(a,r));return[e(f(h,c),f(k,u)),d(f(k,c),f(h,u)),f(a,c),f(a,u),e(f(l,q),f(n,r)),d(f(n,q),f(l,r)),f(b,q),f(b,r)]};
-n.TrMoebius={};n.TrMoebius.kind="Mt";n.TrMoebius.signature="PPPPPP".split("");n.TrMoebius.updatePosition=function(a){var b=m.neg,c=n._helper.moebiusStep(u.csnames[a.args[0]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[4]].homog),d=n._helper.moebiusStep(u.csnames[a.args[1]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[5]].homog),d=f.normalizeMax(f.matrix([[d[0],b(d[1]),d[4],b(d[5])],[d[1],d[0],d[5],d[4]],[d[2],b(d[3]),d[6],b(d[7])],[d[3],d[2],d[7],d[6]]])),c=f.normalizeMax(f.matrix([[c[6],
-b(c[4])],[c[7],b(c[5])],[b(c[2]),c[0]],[b(c[3]),c[1]]])),e=f.productMM(d,c),c=e.value[0].value[0],d=e.value[1].value[0],h=e.value[0].value[1],k=e.value[1].value[1],l=e.value[2].value[0],q=e.value[3].value[0],r=e.value[2].value[1],e=e.value[3].value[1];a.mat1=f.normalizeMax(f.matrix([[b(l),q,b(r)],[q,l,e],[c,b(d),h]]));a.mat2=f.normalizeMax(f.matrix([[b(q),b(l),b(e)],[b(l),q,b(r)],[d,c,k]]))};n.TrMoebiusP={};n.TrMoebiusP.kind="P";n.TrMoebiusP.signature=["Mt","P"];n.TrMoebiusP.updatePosition=function(a){var b=
-u.csnames[a.args[0]],c=u.csnames[a.args[1]].homog,d=f.productMV(b.mat1,c),b=f.productMV(b.mat2,c);a.homog=f.normalizeMax(f.cross(d,b));a.homog=v.withUsage(a.homog,"Point")};n._helper.TrMoebiusP=function(a,b){var c=f.productMV(b.mat1,a),d=f.productMV(b.mat2,a);return f.normalizeMax(f.cross(c,d))};n.TrMoebiusL={};n.TrMoebiusL.kind="C";n.TrMoebiusL.signature=["Mt","L"];n.TrMoebiusL.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]].homog,d=function(){var a=f.realVector([Math.random()-
-.5,Math.random()-.5,Math.random()-.5]);return f.normalizeMax(a)},e=f.cross(d(),c),h=f.cross(d(),c),c=f.cross(d(),c),e=n._helper.TrMoebiusP(e,b),h=n._helper.TrMoebiusP(h,b),b=n._helper.TrMoebiusP(c,b);a.matrix=f.normalizeMax(n._helper.ConicBy5(null,e,h,b,f.ii,f.jj));a.matrix=v.withUsage(a.matrix,"Circle")};n.TrMoebiusS={};n.TrMoebiusS.kind="C";n.TrMoebiusS.signature=["Mt","S"];n.TrMoebiusS.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]],d=c.startpos,c=c.endpos,e=f.add(d,
-c),d=n._helper.TrMoebiusP(d,b),e=n._helper.TrMoebiusP(e,b),b=n._helper.TrMoebiusP(c,b);a.startPoint=d;a.viaPoint=e;a.endPoint=b;a.isArc=!0;a.matrix=f.normalizeMax(n._helper.ConicBy5(null,d,e,b,f.ii,f.jj));a.matrix=v.withUsage(a.matrix,"Circle")};n.TrMoebiusC={};n.TrMoebiusC.kind="C";n.TrMoebiusC.signature=["Mt","C"];n.TrMoebiusC.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]].matrix;if("Circle"!==c.usage)console.log("applying Moebius transform to conics is not implemented yet"),
-b=m.real(3),a.matrix=f.zeromatrix(b,b);else{var d=function(){var a=f.realVector([Math.random()-.5,Math.random()-.5,Math.random()-.5]);return f.normalizeMax(a)},e=n._helper.IntersectLC(d(),c),d=n._helper.IntersectLC(d(),c),c=e[1],d=d[1],e=n._helper.TrMoebiusP(e[0],b),c=n._helper.TrMoebiusP(c,b),b=n._helper.TrMoebiusP(d,b);a.matrix=f.normalizeMax(n._helper.ConicBy5(null,e,c,b,f.ii,f.jj))}a.matrix=v.withUsage(a.matrix,"Circle")};n.TrMoebiusArc={};n.TrMoebiusArc.kind="C";n.TrMoebiusArc.signature=["Mt",
-"C"];n.TrMoebiusArc.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]],d=c.viaPoint,e=c.endPoint,c=n._helper.TrMoebiusP(c.startPoint,b),d=n._helper.TrMoebiusP(d,b),b=n._helper.TrMoebiusP(e,b);a.startPoint=c;a.viaPoint=d;a.endPoint=b;a.isArc=!0;a.matrix=f.normalizeMax(n._helper.ConicBy5(null,c,d,b,f.ii,f.jj));a.matrix=v.withUsage(a.matrix,"Circle")};n._helper.trBuildMatrix=function(a,b){var c=b(0),d=b(1),e=f.productMM(d,f.adjoint3(c));a.matrix=f.normalizeMax(e);e=f.transpose(f.productMM(c,
-f.adjoint3(d)));a.dualMatrix=f.normalizeMax(e)};n.TrProjection={};n.TrProjection.kind="Tr";n.TrProjection.signature="PPPPPPPP".split("");n.TrProjection.updatePosition=function(a){n._helper.trBuildMatrix(a,function(b){return D.basismap(u.csnames[a.args[0+b]].homog,u.csnames[a.args[2+b]].homog,u.csnames[a.args[4+b]].homog,u.csnames[a.args[6+b]].homog)})};n.TrAffine={};n.TrAffine.kind="Tr";n.TrAffine.signature="PPPPPP".split("");n.TrAffine.updatePosition=function(a){var b=m.mult,c=f.scalmult,d=f.turnIntoCSList,
-e=f.transpose,h=f.normalizeMax,k=f.productMM,l=f.adjoint3,n=d([u.csnames[a.args[0]].homog,u.csnames[a.args[2]].homog,u.csnames[a.args[4]].homog]),q=d([u.csnames[a.args[1]].homog,u.csnames[a.args[3]].homog,u.csnames[a.args[5]].homog]),r=e(n),e=e(q),t=r.value[2].value,v=e.value[2].value,w=[b(t[0],v[2]),b(t[1],v[0]),b(t[2],v[1])],r=l(r).value;a.matrix=h(k(e,d([c(b(w[0],v[1]),r[0]),c(b(w[1],v[2]),r[1]),c(b(w[2],v[0]),r[2])])));r=n.value;a.dualMatrix=h(k(l(q),d([c(b(t[2],w[1]),r[0]),c(b(t[0],w[2]),r[1]),
-c(b(t[1],w[0]),r[2])])))};n.TrSimilarity={};n.TrSimilarity.kind="Tr";n.TrSimilarity.signature=["P","P","P","P"];n.TrSimilarity.updatePosition=function(a){n._helper.trBuildMatrix(a,function(b){return D.basismap(u.csnames[a.args[0+b]].homog,u.csnames[a.args[2+b]].homog,f.ii,f.jj)})};n.TrTranslation={};n.TrTranslation.kind="Tr";n.TrTranslation.signature=["P","P"];n.TrTranslation.updatePosition=function(a){var b=u.csnames[a.args[0]].homog,c=u.csnames[a.args[1]].homog,d=f.cross(b,c).value,b=m.mult(b.value[2],
-c.value[2]),c=f.turnIntoCSList,e=m.neg,h=m.zero,d=c([c([b,h,d[1]]),c([h,b,e(d[0])]),c([h,h,b])]),d=f.normalizeMax(d);a.matrix=d;b=e(d.value[0].value[0]);d=c([c([b,h,h]),c([h,b,h]),c([d.value[0].value[2],d.value[1].value[2],b])]);a.dualMatrix=d};n.TrReflectionP={};n.TrReflectionP.kind="Tr";n.TrReflectionP.signature=["P"];n.TrReflectionP.updatePosition=function(a){var b=u.csnames[a.args[0]].homog.value,c=m.realmult(-.5,b[2]),d=m.zero,b=f.turnIntoCSList([f.turnIntoCSList([c,d,b[0]]),f.turnIntoCSList([d,
-c,b[1]]),f.turnIntoCSList([d,d,m.neg(c)])]),b=f.normalizeMax(b);a.matrix=b;a.dualMatrix=f.transpose(b)};n.TrReflectionL={};n.TrReflectionL.kind="Tr";n.TrReflectionL.signature=["L"];n.TrReflectionL.updatePosition=function(a){var b=m.mult,c=m.realmult,d=m.zero,e=u.csnames[a.args[0]].homog.value,h=e[0],k=e[1],e=e[2],l=b(h,h),n=b(k,k),q=c(-.5,m.sub(l,n)),r=b(h,k),b=f.turnIntoCSList([f.turnIntoCSList([m.neg(q),r,b(h,e)]),f.turnIntoCSList([r,q,b(k,e)]),f.turnIntoCSList([d,d,c(-.5,m.add(l,n))])]),b=f.normalizeMax(b);
-a.matrix=b;a.dualMatrix=f.transpose(b)};n.TrReflectionS={};n.TrReflectionS.kind="Tr";n.TrReflectionS.signature=["S"];n.TrReflectionS.updatePosition=n.TrReflectionL.updatePosition;n.TrReflectionC={};n.TrReflectionC.kind="Rc";n.TrReflectionC.signature=["C"];n.TrReflectionC.updatePosition=function(a){var b=u.csnames[a.args[0]].matrix;if("Circle"!==b.usage)console.log("reflection in general conics is not defined"),a.sclRsq=m.zero,a.matrix=f.fund;else{var c=m.add,d=m.mult,e=b.value[2].value,h=e[0],k=e[1],
-e=e[2],l=b.value[0].value[0];a.sclRsq=m.sub(c(d(h,h),d(k,k)),d(l,e))}a.dualMatrix=a.matrix=b};n._helper.ReflectC=function(a,b){var c=m.add,d=m.sub,e=m.mult,h=f.scalmult,k=a.matrix,l=k.value[0].value[0],n=k.value[2].value,q=n[1],r=n[2],t=b.value[0].value[0],u=b.value[2].value,w=u[1],x=u[2],c=d(m.realmult(2,c(e(n[0],u[0]),e(q,w))),c(e(l,x),e(t,r)));return v.withUsage(f.normalizeMax(f.sub(h(c,k),h(a.sclRsq,b))),"Circle")};n.ReflectCC={};n.ReflectCC.kind="C";n.ReflectCC.signature=["Rc","C"];n.ReflectCC.updatePosition=
-function(a){var b=u.csnames[a.args[1]];"Circle"!==b.matrix.usage?(console.log("reflecting general conics in circles is not defined"),a.matrix=v.withUsage(f.fund,"Circle")):a.matrix=n._helper.ReflectC(u.csnames[a.args[0]],b.matrix)};n.ReflectCL={};n.ReflectCL.kind="C";n.ReflectCL.signature=["Rc","L"];n.ReflectCL.updatePosition=function(a){var b=m.zero,c=u.csnames[a.args[1]].homog.value,b=n._helper.buildConicMatrix([b,b,b,c[0],c[1],m.realmult(2,c[2])]);a.matrix=n._helper.ReflectC(u.csnames[a.args[0]],
-b)};n._helper.ReflectCP=function(a,b){var c=b.matrix,d=c.value[2].value,d=f.turnIntoCSList([d[0],d[1],m.neg(c.value[0].value[0])]),e=f.cross;return f.normalizeMax(e(f.productMV(c,a),e(d,a)))};n.ReflectCP={};n.ReflectCP.kind="P";n.ReflectCP.signature=["Rc","P"];n.ReflectCP.updatePosition=function(a){a.homog=v.withUsage(n._helper.ReflectCP(u.csnames[a.args[1]].homog,u.csnames[a.args[0]]),"Point")};n.ReflectCArc={};n.ReflectCArc.kind="C";n.ReflectCArc.signature=["Rc","C"];n.ReflectCArc.updatePosition=
-function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]],d=c.viaPoint,e=c.endPoint,f=n._helper.ReflectCP(c.startPoint,b),d=n._helper.ReflectCP(d,b),e=n._helper.ReflectCP(e,b);a.startPoint=f;a.viaPoint=d;a.endPoint=e;a.isArc=!0;a.matrix=n._helper.ReflectC(b,c.matrix)};n.ReflectCS={};n.ReflectCS.kind="C";n.ReflectCS.signature=["Rc","S"];n.ReflectCS.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]],d=c.startpos,e=c.endpos,f=n._helper.midpoint(d,e),d=n._helper.ReflectCP(d,
-b),f=n._helper.ReflectCP(f,b),e=n._helper.ReflectCP(e,b);a.startPoint=d;a.viaPoint=f;a.endPoint=e;a.isArc=!0;e=m.zero;c=c.homog.value;c=n._helper.buildConicMatrix([e,e,e,c[0],c[1],m.realmult(2,c[2])]);a.matrix=n._helper.ReflectC(b,c)};n.TrInverse={};n.TrInverse.kind="Tr";n.TrInverse.signature=["Tr"];n.TrInverse.updatePosition=function(a){var b=u.csnames[a.args[0]];a.dualMatrix=f.transpose(b.matrix);a.matrix=f.transpose(b.dualMatrix)};n.TransformC={};n.TransformC.kind="C";n.TransformC.signature=["Tr",
-"C"];n.TransformC.updatePosition=function(a){var b=u.csnames[a.args[0]].dualMatrix,b=f.productMM(f.productMM(b,u.csnames[a.args[1]].matrix),f.transpose(b)),b=f.normalizeMax(b);a.matrix=v.withUsage(b,"Conic")};n.TransformArc={};n.TransformArc.kind="C";n.TransformArc.signature=["Tr","C"];n.TransformArc.updatePosition=function(a){var b=u.csnames[a.args[0]].matrix,c=u.csnames[a.args[1]],d=c.viaPoint,e=c.endPoint,c=f.normalizeMax(f.productMV(b,c.startPoint)),d=f.normalizeMax(f.productMV(b,d)),b=f.normalizeMax(f.productMV(b,
-e));a.startPoint=c;a.viaPoint=d;a.endPoint=b;a.isArc=!0;a.matrix=f.normalizeMax(n._helper.ConicBy5(null,c,d,b,f.ii,f.jj));a.matrix=v.withUsage(a.matrix,"Circle")};n.TransformP={};n.TransformP.kind="P";n.TransformP.signature=["Tr","P"];n.TransformP.updatePosition=function(a){a.homog=f.normalizeMax(f.productMV(u.csnames[a.args[0]].matrix,u.csnames[a.args[1]].homog));a.homog=v.withUsage(a.homog,"Point")};n.TransformL={};n.TransformL.kind="L";n.TransformL.signature=["Tr","L"];n.TransformL.updatePosition=
-function(a){a.homog=f.normalizeMax(f.productMV(u.csnames[a.args[0]].dualMatrix,u.csnames[a.args[1]].homog));a.homog=v.withUsage(a.homog,"Line")};n.TransformS={};n.TransformS.kind="S";n.TransformS.signature=["Tr","S"];n.TransformS.updatePosition=function(a){var b=u.csnames[a.args[0]],c=u.csnames[a.args[1]];n.Segment.setSegmentPos(a,f.productMV(b.dualMatrix,c.homog),f.productMV(b.matrix,c.startpos),f.productMV(b.matrix,c.endpos))};n.TransformPolygon={};n.TransformPolygon.kind="Poly";n.TransformPolygon.signature=
-["Tr","Poly"];n.TransformPolygon.updatePosition=function(a){var b=u.csnames[a.args[0]].matrix;a.vertices=f.turnIntoCSList(u.csnames[a.args[1]].vertices.value.map(function(a){a=f.normalizeMax(f.productMV(b,a));return a=v.withUsage(a,"Point")}))};n._helper.pointReflection=function(a,b){return f.normalizeMax(f.sub(f.scalmult(m.realmult(2,b.value[2]),a),f.scalmult(a.value[2],b)))};n._helper.conicOtherIntersection=function(a,b,c){var d=f.productMV(a,c);a=f.scalproduct(c,d);d=f.scalproduct(b,d);d=m.realmult(-2,
-d);b=f.scalmult(a,b);c=f.scalmult(d,c);c=f.add(b,c);return c=f.normalizeMax(c)};n.Dist={};n.Dist.kind="V";n.Dist.signature=["P","P"];n.Dist.updatePosition=function(a){var b=u.csnames[a.args[1]].homog;a.value=f.abs(f.sub(f.normalizeZ(u.csnames[a.args[0]].homog),f.normalizeZ(b)))};n.Angle={};n.Angle.kind="V";n.Angle.signature=["L","L","P"];n.Angle.initialize=function(a){void 0===a.angle&&(a.angle=.5*Math.PI);Va(m._helper.input(a.angle))};n.Angle.updatePosition=function(a){var b=u.csnames[a.args[1]].homog,
-c=u.csnames[a.args[2]].homog,d=f.cross(u.csnames[a.args[0]].homog,f.linfty),b=f.cross(b,f.linfty),c=f.crossratio3(d,b,f.ii,f.jj,c),c=m.mult(m.complex(0,.5),m.log(c)),d=(wb().value.real-c.value.real)/Math.PI,b=Math.round(d);!eb&&.01<Math.abs(b-d)&&Ub();c=m.complex(b*Math.PI+c.value.real,c.value.imag);Va(c);a.value=v.withUsage(c,"Angle")};n.Angle.stateSize=2;n.Text={};n.Text.kind="Text";n.Text.signature="**";n.Text.isMovable=!0;n.Text.updatePosition=Ka;n.Text.initialize=function(a){a.text=String(a.text);
-a.pos&&(a.homog=n._helper.initializePoint(a));a.dock&&(a.dock.offset=a.dock.offset&&2===a.dock.offset.length?f.realVector([+a.dock.offset[0],+a.dock.offset[1]]):f.realVector([0,0]))};n.Text.getParamForInput=function(a,b,c){return n.Free.getParamForInput(a,b,c)};n.Text.getParamFromState=function(a){return a.homog};n.Text.putParamToState=function(a,b){a.homog=b};n.Calculation={};n.Calculation.kind="Text";n.Calculation.signature="**";n.Calculation.isMovable=!0;n.Calculation.updatePosition=Ka;n.Calculation.initialize=
-function(a){n.Text.initialize(a);a.calculation=Ma(a.text)};n.Calculation.getText=function(a){return w(A(a.calculation))};n.Calculation.getParamForInput=n.Text.getParamForInput;n.Calculation.getParamFromState=n.Text.getParamFromState;n.Calculation.putParamToState=n.Text.putParamToState;n.Equation={};n.Equation.kind="Text";n.Equation.isMovable=!0;n.Equation.signature="**";n.Equation.updatePosition=Ka;n.Equation.initialize=function(a){n.Text.initialize(a);a.calculation=Ma(a.text)};n.Equation.getText=
-function(a){return a.text+" = "+w(A(a.calculation))};n.Equation.getParamForInput=n.Text.getParamForInput;n.Equation.getParamFromState=n.Text.getParamFromState;n.Equation.putParamToState=n.Text.putParamToState;n.Evaluate={};n.Evaluate.kind="Text";n.Evaluate.isMovable=!0;n.Evaluate.signature="**";n.Evaluate.updatePosition=Ka;n.Evaluate.initialize=function(a){n.Text.initialize(a);a.calculation=Ma(a.text)};n.Evaluate.getText=function(a){A(a.calculation);return a.text};n.Evaluate.getParamForInput=n.Text.getParamForInput;
-n.Evaluate.getParamFromState=n.Text.getParamFromState;n.Evaluate.putParamToState=n.Text.putParamToState;n.Plot={};n.Plot.kind="Text";n.Plot.isMovable=!0;n.Plot.signature="**";n.Plot.updatePosition=Ka;n.Plot.initialize=function(a){n.Text.initialize(a);a.calculation=Ma("plot(("+a.text+"))")};n.Plot.getText=function(a){A(a.calculation);return a.text};n.Plot.getParamForInput=n.Text.getParamForInput;n.Plot.getParamFromState=n.Text.getParamFromState;n.Plot.putParamToState=n.Text.putParamToState;n.Button=
-{};n.Button.kind="Text";n.Button.signature="**";n.Button.isMovable=!0;n.Button.updatePosition=Ka;n.Button.initialize=function(a){var b=document.createElement("button");wc(a,"click",b)};n.Button.getParamForInput=n.Text.getParamForInput;n.Button.getParamFromState=n.Text.getParamFromState;n.Button.putParamToState=n.Text.putParamToState;n.ToggleButton={};n.ToggleButton.kind="Text";n.ToggleButton.signature="**";n.ToggleButton.isMovable=!0;n.ToggleButton.updatePosition=Ka;n.ToggleButton.initialize=function(a){var b;
-b=void 0;void 0===b&&(b="CindyJSid");b+=++Ra;var c=document.createElement("input"),d=document.createElement("label");c.setAttribute("id",b);d.setAttribute("for",b);c.setAttribute("type","checkbox");a.pressed&&(c.checked=!0);a.checkbox=c;wc(a,"change",c,d)};n.ToggleButton.getParamForInput=n.Text.getParamForInput;n.ToggleButton.getParamFromState=n.Text.getParamFromState;n.ToggleButton.putParamToState=n.Text.putParamToState;n.EditableText={};n.EditableText.kind="Text";n.EditableText.isMovable=!0;n.EditableText.signature=
-[];n.EditableText.updatePosition=Ka;n.EditableText.initialize=function(a){var b=document.createElement("input");b.setAttribute("type","text");b.className="CindyJS-editabletext";Sa(a.fillalpha)||(a.fillalpha=1);a.fillcolor&&(b.style.backgroundColor=y.makeColor(a.fillcolor,a.fillalpha));Sa(a.minwidth)&&(b.style.width=a.minwidth-3+"px");"string"===typeof a.text&&(b.value=a.text);b.addEventListener("keydown",function(a){13===a.keyCode&&b.blur()});wc(a,"change",b)};n.EditableText.getText=function(a){return!1};
-n.EditableText.getParamForInput=n.Text.getParamForInput;n.EditableText.getParamFromState=n.Text.getParamFromState;n.EditableText.putParamToState=n.Text.putParamToState;n._helper.initializePoint=function(a){var b=0,c=0,d=0;if(a.pos){if("list"===a.pos.ctype&&f.isNumberVector(a.pos))return a.pos;2===a.pos.length&&(b=a.pos[0],c=a.pos[1],d=1);3===a.pos.length&&(b=a.pos[0],c=a.pos[1],d=a.pos[2])}a=f.turnIntoCSList([m._helper.input(b),m._helper.input(c),m._helper.input(d)]);return a=f.normalizeMax(a)};n._helper.initializeLine=
-function(a){var b=0,c=0,d=0;if(a.pos){if("list"===a.pos.ctype&&f.isNumberVector(a.pos))return a.pos;3===a.pos.length&&(b=a.pos[0],c=a.pos[1],d=a.pos[2])}a=f.turnIntoCSList([m._helper.input(b),m._helper.input(c),m._helper.input(d)]);return a=f.normalizeMax(a)};n.Poly={};n.Poly.kind="Poly";n.Poly.signature="P*";n.Poly.updatePosition=function(a){a.vertices=f.turnIntoCSList(a.args.map(function(a){return u.csnames[a].homog}))};var od={CircleMFixedr:function(a){a.pinned=!0;a.type="CircleMr";return[a]},
-CircleByFixedRadius:function(a){a.pinned=!0;a.type="CircleMr";return[a]},CircleByRadius:function(a){a.type="CircleMr";return[a]},IntersectionConicLine:function(a){a.args=[a.args[1],a.args[0]];a.type="IntersectLC";return[a]},IntersectionCircleCircle:function(a){a.type="IntersectCirCir";return[a]},IntersectionConicConic:function(a){a.type="IntersectConicConic";return[a]},FreePoint:function(a){a.type="Free";return[a]},Orthogonal:function(a){a.type="Perp";return[a]},Parallel:function(a){a.type="Para";
-return[a]},Pole:function(a){a.type="PolarOfLine";return[a]},Polar:function(a){a.type="PolarOfPoint";return[a]},Arc:function(a){a.type="ArcBy3";return[a]},EuclideanMid:function(a){a.type="Mid";return[a]},AngularBisector:function(a){a.type="AngleBisector";return[a]},TransformConic:function(a){a.type="TransformC";return[a]},TransformSegment:function(a){a.type="TransformS";return[a]},TrMoebiusSegment:function(a){a.type="TrMoebiusS";return[a]},angleBisector:function(a){var b={name:a.name+"_Intersection",
-type:"Meet",args:a.args,visible:!1};a.type="AngleBisector";a.args=[a.args[0],a.args[1],b.name];return[b,a]},Transform:function(a){var b=u.csnames[a.args[1]],b={Tr:"Transform",Mt:"TrMoebius",Rc:"ReflectC"}[u.csnames[a.args[0]].kind]+(b.isArc?"Arc":b.kind);if(n.hasOwnProperty(b))return a.type=b,[a];console.log(b+" not implemented yet");return[]},TrReflection:function(a){var b="TrReflection"+u.csnames[a.args[0]].kind;if(n.hasOwnProperty(b))return a.type=b,[a];console.log(b+" not implemented yet");return[]}},
-ge="align alpha angle args arrow arrowposition arrowshape arrowsides arrowsize clip color dashtype drawtrace fillalpha fillcolor filled labeled labelpos name overhang pinned printname radius size text text_fontfamily textbold textitalics textsize tracedim tracelength traceskip tracing type visible".split(" ");qa.saveState=function(){return{geometry:he()}};var ra={},Ed,Hb,Fd,Gd;Ed=[[],[.2],[.075,.225],[44/45,-56/15,32/9],[19372/6561,-25360/2187,64448/6561,-212/729],[9017/3168,-355/33,46732/5247,49/
-176,-5103/18656],[35/384,0,500/1113,125/192,-2187/6784,11/84]];Hb=[0,.2,.3,.8,8/9,1,1];Fd=[35/384,0,500/1113,125/192,-2187/6784,11/84,0];Gd=[5179/57600,0,7571/16695,.6140625,-92097/339200,187/2100,.025];var Aa,ca=[],xc=[],hc=!1;ra.tick=function(a){a/=Lb;for(var b=0;b<Lb;b++)ra.tick1(a),Cb+=a,A(ia.simulationstep)};ra.tick1=function(a){for(var b=a,c=0;0<a&&c<.999*a||0>a&&c>.999*a;)b=ra.oneRKStep(b),c+=b,b=Math.min(2*b,a-c),b=Math.max(b,1E-16),ra.restorePosition(),ra.doCollisions(),ra.calculateForces(),
-ra.moveToFinalPos();return!0};ra.restorePosition=function(){Aa.forEach(function(a){N[a.type].restorePos(a,9)})};ra.doCollisions=function(){Aa.forEach(function(a){N[a.type].doCollisions(a)})};ra.calculateForces=function(){Aa.forEach(function(a){N[a.type].calculateForces(a)})};ra.moveToFinalPos=function(){Aa.forEach(function(a){N[a.type].move(a)})};ra.oneRKStep=function(a){for(var b=function(a){Aa.forEach(function(b){N[b.type].initRK(b,a);N[b.type].storePosition(b)})},c=function(a){Aa.forEach(function(b){N[b.type].setToTimestep(b,
-Hb[a])})},d=function(a){Aa.forEach(function(b){N[b.type].proceedMotion(b,Hb[a],a,Ed[a])})},e=function(){Aa.forEach(function(a){N[a.type].resetForces(a)})},f=function(a){Aa.forEach(function(b){N[b.type].calculateDelta(b,a)})},h=function(b){var c=0;Aa.forEach(function(a){N[a.type].proceedMotion(a,Hb[6],7,Fd);N[a.type].savePos(a,8);N[a.type].proceedMotion(a,Hb[6],7,Gd);N[a.type].savePos(a,9);c+=N[a.type].sqDist(a,8,9)});return c=Math.sqrt(c)/a},k=function(a){Aa.forEach(function(a){N[a.type].recallPosition(a)})},
-l=!1;!l;){b(a);for(var m=0;7>m;m++)c(m),d(m),e(),ra.calculateForces(),f(m);h(a)>N.env.errorbound&&a>N.env.lowestdeltat?(a/=N.env.slowdownfactor,k()):l=!0}return a};var N={Mass:{reset:function(a,b){a.vel=[0,0,0];a.pos=[0,0,0,0];a.el=b;"undefined"===typeof a.mass&&(a.mass=1);"undefined"===typeof a.charge&&(a.charge=0);"undefined"===typeof a.friction&&(a.friction=0);a.lnfrict=0;"undefined"===typeof a.limitspeed&&(a.limitspeed=!1);"undefined"===typeof a.fixed&&(a.fixed=!1);"undefined"===typeof a.radius&&
-(a.radius=1);a.internalmove=!1;a.fx=0;a.fy=0;a.fz=0;a.vx=a.vx||0;a.vy=a.vy||0;a.vz=a.vz||0;a.mtype=0;a.env=N.env;a.deltat=0;a.mx=0;a.my=0;a.mz=0;a.mvx=0;a.mvy=0;a.mvz=0;a.dx=[0,0,0,0,0,0,0,0,0,0];a.dy=[0,0,0,0,0,0,0,0,0,0];a.dz=[0,0,0,0,0,0,0,0,0,0];a.dvx=[0,0,0,0,0,0,0,0,0,0];a.dvy=[0,0,0,0,0,0,0,0,0,0];a.dvz=[0,0,0,0,0,0,0,0,0,0];a.midx=0;a.midy=0;a.midz=0;a.lx=0;a.ly=0;a.lz=0},resetForces:function(a){a.fx=0;a.fy=0;a.fz=0},getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){var c=D.extractPoint(a.el.homog);
-a.x=c.x;a.y=c.y;a.z=0;a.xo=a.x;a.yo=a.y;a.zo=a.z;a.vxo=a.vx;a.vyo=a.vy;a.vzo=a.vz;a.deltat=b;a.fx=0;a.fy=0;a.fz=0},setVelocity:function(a,b,c,d){d||(d=0);a.vx=b;a.vy=c;a.vz=d},move:function(a){a.pos=[a.x,a.y,1];a.internalmove=!0;aa&&U.down&&a.el===aa.mover||Ea(a.el,f.realVector(a.pos),"homog");a.el.sx=a.x;a.el.sy=a.y;a.internalmove=!1},proceedMotion:function(a,b,c,d){if(!a.fixed)for(a.x=a.mx,a.y=a.my,a.z=a.mz,a.vx=a.mvx,a.vy=a.mvy,a.vz=a.mvz,b=0;b<c;b++)a.x+=d[b]*a.dx[b]*a.deltat,a.y+=d[b]*a.dy[b]*
-a.deltat,a.z+=d[b]*a.dz[b]*a.deltat,a.vx+=d[b]*a.dvx[b]*a.deltat,a.vy+=d[b]*a.dvy[b]*a.deltat,a.vz+=d[b]*a.dvz[b]*a.deltat},calculateForces:function(a){var b=Math.sqrt(a.vx*a.vx+a.vy*a.vy+a.vz*a.vz);a.lnfrict=-Math.log((1-a.friction)*(1-a.env.friction)*(.1<b&&a.limitSpeed?.1/b:1));a.fx+=-a.vx*a.lnfrict*a.mass;a.fy+=-a.vy*a.lnfrict*a.mass;a.fz+=-a.vz*a.lnfrict*a.mass},calculateDelta:function(a,b){a.dx[b]=a.vx;a.dy[b]=a.vy;a.dz[b]=a.vz;a.dvx[b]=a.fx/a.mass;a.dvy[b]=a.fy/a.mass;a.dvz[b]=a.fz/a.mass},
-savePos:function(a,b){a.dx[b]=a.x;a.dy[b]=a.y;a.dz[b]=a.z;a.dvx[b]=a.vx;a.dvy[b]=a.vy;a.dvz[b]=a.vz},restorePos:function(a,b){a.fixed||(a.x=a.dx[b],a.y=a.dy[b],a.z=a.dz[b],a.vx=a.dvx[b],a.vy=a.dvy[b],a.vz=a.dvz[b])},sqDist:function(a,b,c){var d=(a.dx[b]-a.dx[c])*(a.dx[b]-a.dx[c]),d=d+(a.dy[b]-a.dy[c])*(a.dy[b]-a.dy[c]),d=d+(a.dz[b]-a.dz[c])*(a.dz[b]-a.dz[c]),d=d+(a.dvx[b]-a.dvx[c])*(a.dvx[b]-a.dvx[c]),d=d+(a.dvy[b]-a.dvy[c])*(a.dvy[b]-a.dvy[c]);return d+=(a.dvz[b]-a.dvz[c])*(a.dvz[b]-a.dvz[c])},kineticEnergy:function(a){return.5*
-a.mass*(a.vx*a.vx+a.vy*a.vy+a.vz*a.vz)},storePosition:function(a){a.mx=a.x;a.my=a.y;a.mz=a.z;a.mvx=a.vx;a.mvy=a.vy;a.mvz=a.vz},recallPosition:function(a){a.fixed||(a.x=a.mx,a.y=a.my,a.z=a.mz,a.vx=a.mvx,a.vy=a.mvy,a.vz=a.mvz)},doCollisions:function(a){}},Sun:{reset:function(a,b){a.vel=[0,0,0];a.pos=[0,0,0,0];a.el=b;"undefined"===typeof a.mass&&(a.mass=10);"undefined"===typeof a.friction&&(a.friction=0);a.charge=0;a.x=0;a.y=0;a.z=0},resetForces:function(a){},getBlock:!1,setToTimestep:function(a,b,c){},
-initRK:function(a,b){var c=D.extractPoint(a.el.homog);a.x=c.x;a.y=c.y;a.z=0},setVelocity:function(a,b,c,d){},move:function(a){},proceedMotion:function(a,b,c,d){},calculateDelta:function(a,b){},calculateForces:function(a){for(var b=a.x,c=a.y,d=a.z,e=0;e<ca.length;e++){var f=ca[e],h=f.behavior.x,k=f.behavior.y,l=f.behavior.z,m=Math.sqrt((b-h)*(b-h)+(c-k)*(c-k)+(d-l)*(d-l)),k=(c-k)*a.mass*f.behavior.mass/(m*m*m),l=(d-l)*a.mass*f.behavior.mass/(m*m*m);f.behavior.fx+=(b-h)*a.mass*f.behavior.mass/(m*m*
-m)*f.behavior.mass;f.behavior.fy+=k*f.behavior.mass;f.behavior.fz+=l*f.behavior.mass}},savePos:function(a,b){},restorePos:function(a,b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},storePosition:function(a){},recallPosition:function(a){},doCollisions:function(a){}},Velocity:{reset:function(a){var b=u.csnames[a.geo[1]];console.log(b);var c=D.extractPoint(b.homog);a=D.extractPoint(u.csnames[a.geo[2]].homog);b=b.behavior;N[b.type].setVelocity(b,a.x-c.x,a.y-c.y,0)},resetForces:function(a){},
-getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){},setVelocity:function(a,b,c,d){},move:function(a){var b=u.csnames[a.geo[2]];if(!aa||!U.down||b!==aa.mover){var c=u.csnames[a.geo[1]];a=D.extractPoint(c.homog);c=c.behavior;a=f.realVector([a.x+c.vx,a.y+c.vy,1]);Ea(b,a,"homog")}},proceedMotion:function(a,b,c,d){},calculateForces:function(a){},calculateDelta:function(a,b){},savePos:function(a,b){},restorePos:function(a,b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},
-storePosition:function(a){},recallPosition:function(a){},doCollisions:function(a){}},Gravity:{reset:function(a,b){a.vel=[0,0,0];a.pos=[0,0,0,0];a.el=b;"undefined"===typeof a.strength&&(a.strength=1);a.namea=b.args[0];a.nameb=b.args[1];a.ma=u.csnames[a.namea];a.mb=u.csnames[a.nameb]},resetForces:function(a){},getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){},setVelocity:function(a,b,c,d){},move:function(a){},proceedMotion:function(a,b,c,d){},calculateDelta:function(a,b){},calculateForces:function(a){var b=
-D.extractPoint(a.ma.homog),c=D.extractPoint(a.mb.homog),d=(c.x-b.x)*a.strength;a=(c.y-b.y)*a.strength;for(b=0;b<ca.length;b++)c=ca[b],c.behavior.fx+=d*c.behavior.mass,c.behavior.fy+=a*c.behavior.mass,c.behavior.fz+=0*c.behavior.mass},savePos:function(a,b){},restorePos:function(a,b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},storePosition:function(a){},recallPosition:function(a){},doCollisions:function(a){}},Spring:{reset:function(a,b){a.el=b;"undefined"===typeof a.strength&&(a.strength=
-1);"undefined"===typeof a.amplitude&&(a.amplitude=0);"undefined"===typeof a.phase&&(a.phase=0);"undefined"===typeof a.speed&&(a.speed=1);"undefined"===typeof a.l0&&(a.l0=0);"undefined"===typeof a.stype&&(a.stype=1);"undefined"===typeof a.readOnInit&&(a.readOnInit=!1);a.namea=b.args[0];a.nameb=b.args[1];a.ma=u.csnames[a.namea];a.mb=u.csnames[a.nameb];var c=D.extractPoint(a.ma.homog),d=D.extractPoint(a.mb.homog);a.l0=Math.sqrt((c.x-d.x)*(c.x-d.x)+(c.y-d.y)*(c.y-d.y));a.env=N.env},resetForces:function(a){},
-getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){},setVelocity:function(a,b,c,d){},move:function(a){},proceedMotion:function(a,b,c,d){},calculateForces:function(a){var b,c,d,e;!a.ma.behavior||aa&&U.down&&a.ma===aa.mover?(c=D.extractPoint(a.ma.homog),b=c.x,d=c.y):(b=a.ma.behavior.x,d=a.ma.behavior.y);!a.mb.behavior||aa&&U.down&&a.mb===aa.mover?(e=D.extractPoint(a.mb.homog),c=e.x,e=e.y):(c=a.mb.behavior.x,e=a.mb.behavior.y);var f=Math.sqrt((b-c)*(b-c)+(d-e)*(d-e)),h=a.l0,k=a.stype;1===
-k&&(h=0);var l=0;if(2===k||3===k)l=a.ma.behavior.mass*a.mb.behavior.mass*a.strength;2===k&&(l=-l);var m,n;if(0===f||0!==k&&1!==k)if(a.ma.behavior&&a.mb.behavior&&0!==f){if(f*=f*f,2===k||3===k)m=(b-c)*l/f,n=(d-e)*l/f}else m=n=0;else m=-(b-c)*a.strength*(f-h)/f*a.env.springstrength,n=-(d-e)*a.strength*(f-h)/f*a.env.springstrength;a.ma.behavior&&(a.ma.behavior.fx+=m,a.ma.behavior.fy+=n);a.mb.behavior&&(a.mb.behavior.fx-=m,a.mb.behavior.fy-=n)},calculateDelta:function(a,b){},savePos:function(a,b){},restorePos:function(a,
-b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},storePosition:function(a){},recallPosition:function(a){},doCollisions:function(a){}},det:function(a,b,c,d,e,f){return c*f-e*d+e*b-a*f+a*d-c*b},Bouncer:{reset:function(a,b){a.el=b;"undefined"===typeof a.xdamp&&(a.xdamp=0);"undefined"===typeof a.ydamp&&(a.ydamp=0);"undefined"===typeof a.motorchanger&&(a.motorchanger=!0);a.namea=b.args[0];a.nameb=b.args[1];a.ma=u.csnames[a.namea];a.mb=u.csnames[a.nameb];var c=D.extractPoint(a.ma.homog),
-d=D.extractPoint(a.mb.homog);a.x1o=1.01*c.x-.01*d.x;a.y1o=1.01*c.y-.01*d.y;a.x2o=1.01*d.x-.01*c.x;a.y2o=1.01*d.y-.01*c.y;a.env=N.env},resetForces:function(a){},getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){a.deltat=b},setVelocity:function(a,b,c,d){},move:function(a){},proceedMotion:function(a,b,c,d){},calculateForces:function(a){},calculateDelta:function(a,b){},savePos:function(a,b){},restorePos:function(a,b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},storePosition:function(a){},
-recallPosition:function(a){},doCollisions:function(a){for(var b=D.extractPoint(a.ma.homog),c=D.extractPoint(a.mb.homog),d=b.x,b=b.y,e=c.x,c=c.y,f=a.x1o,h=a.y1o,k=a.x2o,l=a.y2o,n=Math.sqrt((d-e)*(d-e)+(b-c)*(b-c)),q=(d-e)/n,n=(b-c)/n,r=0;r<ca.length;r++){var t=ca[r],u=t.behavior.xo,v=t.behavior.yo,w=t.behavior.x,x=t.behavior.y,y=m.mult(m.complex(f,h),m.complex(e,c)),z=m.mult(m.complex(k,l),m.complex(d,b)),y=m.sub(y,z),z=m.mult(m.complex(u,v),m.complex(d,b)),y=m.add(y,z),z=m.mult(m.complex(u,v),m.complex(e,
-c)),y=m.sub(y,z),z=m.sub(m.complex(f,h),m.complex(k,l)),y=m.div(y,z);0>N.det(d,b,e,c,w,x)*N.det(d,b,e,c,y.value.real,y.value.imag)&&0>N.det(d,b,w,x,y.value.real,y.value.imag)*N.det(e,c,w,x,y.value.real,y.value.imag)&&(v=t.behavior.mvx+a.deltat*(-y.value.real+t.behavior.xo),w=t.behavior.mvy+a.deltat*(-y.value.imag+t.behavior.yo),u=q*v+n*w,v=n*v-q*w,t.behavior.x=y.value.real,t.behavior.y=y.value.imag,t.behavior.vx=q*u*(1-a.xdamp),t.behavior.vy=n*u*(1-a.xdamp),t.behavior.vx+=-n*v*(1-a.ydamp),t.behavior.vy+=
-q*v*(1-a.ydamp))}a.x1o=d;a.y1o=b;a.x2o=e;a.y2o=c}},Environment:{init:function(a){"undefined"===typeof a.gravity&&(a.gravity=0);"undefined"===typeof a.friction&&(a.friction=0);"undefined"===typeof a.springstrength&&(a.springstrength=1);"undefined"!==typeof a.accuracy&&(Lb=a.accuracy);"undefined"!==typeof a.deltat&&oa(a.deltat/.6);"undefined"===typeof a.charges&&(a.charges=!1);"undefined"===typeof a.balls&&(a.balls=!1);"undefined"===typeof a.newton&&(a.newton=!1);"undefined"===typeof a.ballInteractionBoosting&&
-(a.ballInteractionBoosting=1);N.env=a;a.errorbound=.001;a.lowestdeltat=1E-7;a.slowdownfactor=2},reset:function(a){},resetForces:function(a){},getBlock:!1,setToTimestep:function(a,b,c){},initRK:function(a,b){},setVelocity:function(a,b,c,d){},move:function(a){},proceedMotion:function(a,b,c,d){},calculateForces:function(a){var b,c,d,e,f,h,k,l,m,n;if(a.newton)for(b=0;b<ca.length-1;b++)for(c=ca[b],d=c.behavior.x,e=c.behavior.y,f=b+1;f<ca.length;f++)h=ca[f],k=h.behavior.x,l=h.behavior.y,n=Math.sqrt((d-
-k)*(d-k)+(e-l)*(e-l)),k=(d-k)*c.behavior.mass*h.behavior.mass/(n*n*n),l=(e-l)*c.behavior.mass*h.behavior.mass/(n*n*n),c.behavior.fx-=k,c.behavior.fy-=l,h.behavior.fx+=k,h.behavior.fy+=l;if(a.charges)for(b=0;b<ca.length-1;b++)for(c=ca[b],d=c.behavior.x,e=c.behavior.y,f=b+1;f<ca.length;f++)h=ca[f],k=h.behavior.x,l=h.behavior.y,n=Math.sqrt((d-k)*(d-k)+(e-l)*(e-l)),k=(d-k)*c.behavior.charge*h.behavior.charge/(n*n*n),l=(e-l)*c.behavior.charge*h.behavior.charge/(n*n*n),c.behavior.fx+=k,c.behavior.fy+=l,
-h.behavior.fx-=k,h.behavior.fy-=l;if(a.balls)for(b=0;b<ca.length-1;b++)if(c=ca[b],0!==c.behavior.radius)for(d=c.behavior.x,e=c.behavior.y,f=b+1;f<ca.length;f++)h=ca[f],0!==h.behavior.radius&&(k=h.behavior.x,l=h.behavior.y,m=c.behavior.radius+h.behavior.radius,n=Math.sqrt((d-k)*(d-k)+(e-l)*(e-l)),0===a.ballInteractionBoosting?(k=(d-k)/(n*n*n)*(n>m?0:(n-m)*(n-m)),l=(e-l)/(n*n*n)*(n>m?0:(n-m)*(n-m))):1===a.ballInteractionBoosting?(k=(d-k)/(n*n*n*n)*(n>m?0:(n-m)*(n-m)),l=(e-l)/(n*n*n*n)*(n>m?0:(n-m)*
-(n-m))):(k=(d-k)/(n*n*n*n*n)*(n>m?0:(n-m)*(n-m)),l=(e-l)/(n*n*n*n*n)*(n>m?0:(n-m)*(n-m))),c.behavior.fx+=k,c.behavior.fy+=l,h.behavior.fx-=k,h.behavior.fy-=l);for(b=0;b<ca.length;b++)c=ca[b],c.behavior.fx+=0,c.behavior.fy+=-a.gravity*c.behavior.mass,c.behavior.fz+=0},calculateDelta:function(a,b){},savePos:function(a,b){},restorePos:function(a,b){},sqDist:function(a,b,c){return 0},kineticEnergy:function(a){},storePosition:function(a){},recallPosition:function(a){},doCollisions:function(a){}}};return qa};
-return H}(),createCindy=CindyJS;"undefined"!==typeof process&&"undefined"!==typeof module&&"undefined"!==typeof module.exports&&"undefined"===typeof window&&(module.exports=CindyJS);
-//# sourceMappingURL=Cindy.js.map
-
diff --git a/texmf-dist/scripts/ketpic/data/js/CindyJS.css b/texmf-dist/scripts/ketpic/data/js/CindyJS.css
deleted file mode 100644
index 2fdefb34..00000000
--- a/texmf-dist/scripts/ketpic/data/js/CindyJS.css
+++ /dev/null
@@ -1,121 +0,0 @@
-.CindyJS-toolbar button, .CindyJS-animbuttons button, .CindyJS-button button, .CindyJS-button label {
- background-color: #bfc4d0;
- border: 1px solid #d0d0d0;
- box-shadow: inset 1px 1px 2px #fff, inset -1px -1px 2px #aaa;
- outline: none; }
-
-.CindyJS-toolbar button:active, .CindyJS-animbuttons button:active, .CindyJS-toolbar button.CindyJS-active, .CindyJS-animbuttons button.CindyJS-active, .CindyJS-button button:active, .CindyJS-button label:active, .CindyJS-button input[type=checkbox]:checked + label {
- background-color: #aaafbb;
- box-shadow: inset 1px 1px 2px #999, inset -1px -1px 2px #ccc; }
-
-.CindyJS-toolbar, .CindyJS-animbuttons {
- line-height: 0px; }
- .CindyJS-toolbar button, .CindyJS-animbuttons button {
- display: inline-block;
- margin: 0px;
- padding: 0px; }
- .CindyJS-toolbar button:focus, .CindyJS-animbuttons button:focus {
- border-color: #06f; }
- .CindyJS-toolbar img, .CindyJS-animbuttons img {
- margin: 0px;
- border: none;
- display: block; }
-
-.CindyJS-widget {
- overflow: hidden;
- z-index: 0; }
- .CindyJS-widget canvas {
- z-index: 1; }
- .CindyJS-widget .CindyJS-baseline {
- margin: 0px;
- padding: 0px;
- border: none;
- position: absolute;
- white-space: nowrap;
- margin-top: -1000px; }
- .CindyJS-widget .CindyJS-baseline > img {
- margin: 0px;
- padding: 0px;
- border: none;
- display: inline;
- position: static;
- vertical-align: baseline;
- visibility: hidden;
- margin-right: -1px; }
- .CindyJS-widget .CindyJS-baseline .CindyJS-button {
- display: inline-block; }
- .CindyJS-widget .CindyJS-button {
- position: relative;
- z-index: 2; }
- .CindyJS-widget .CindyJS-toolbar, .CindyJS-widget .CindyJS-animbuttons {
- position: absolute; }
- .CindyJS-widget .CindyJS-toolbar button, .CindyJS-widget .CindyJS-animbuttons button {
- position: relative;
- z-index: 3; }
- .CindyJS-widget .CindyJS-animspeed {
- position: relative;
- z-index: 3; }
- .CindyJS-widget .CindyJS-animcontrols {
- bottom: 5px;
- left: 5px; }
-
-.CindyJS-button input[type=checkbox] {
- position: absolute;
- left: -10000px; }
-
-.CindyJS-button button, .CindyJS-button label {
- margin: -6px -7px;
- padding: 5px 6px;
- border-radius: 4px; }
-
-.CindyJS-button button:focus, .CindyJS-button input[type=checkbox]:focus + label {
- box-shadow: 0px 0px 3px #06f, inset 1px 1px 2px #fff, inset -1px -1px 2px #aaa; }
-
-.CindyJS-button button:focus:active, .CindyJS-button input[type=checkbox]:focus:checked + label {
- background-color: #aaafbb;
- box-shadow: 0px 0px 3px #06f, inset 1px 1px 2px #999, inset -1px -1px 2px #ccc; }
-
-.CindyJS-editabletext {
- border: 1px solid #000;
- margin: -4px -4px -1px;
- padding: 4px 4px 1px; }
- .CindyJS-editabletext:focus {
- box-shadow: 0px 0px 3px #06f; }
-
-.CindyJS-toolbar div {
- line-height: 0px; }
-
-.CindyJS-toolbar span.CindyJS-spacer {
- display: inline-block;
- margin: 0px;
- padding: 1px;
- width: 32px;
- height: 24px; }
-
-.CindyJS-animcontrols {
- position: absolute;
- background-color: #00f;
- height: 36px;
- width: 102px; }
- .CindyJS-animcontrols .CindyJS-animspeed {
- height: 10px;
- width: 100%;
- border-radius: 4px;
- background-color: #ff7f7f;
- box-shadow: inset 1px 1px 2px #999, inset -1px -1px 2px #ccc; }
- .CindyJS-animcontrols .CindyJS-animspeed div {
- width: 50%;
- height: 100%;
- border-radius: 4px;
- background-color: #cc0000;
- box-shadow: inset 1px 1px 2px #fff, inset -1px -1px 2px #aaa; }
- .CindyJS-animcontrols .CindyJS-animbuttons {
- white-space: nowrap; }
-
-.CindyJS-animbuttons button {
- border-radius: 4px;
- width: 34px;
- height: 26px;
- box-sizing: border-box; }
-
-/*# sourceMappingURL=CindyJS.css.map */ \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/dirhead.txt b/texmf-dist/scripts/ketpic/dirhead.txt
deleted file mode 100644
index 9e41b8c2..00000000
--- a/texmf-dist/scripts/ketpic/dirhead.txt
+++ /dev/null
@@ -1 +0,0 @@
-Dirhead=gethome()+"/ketcindy";
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata b/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata
deleted file mode 100644
index 0f1f1fd8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf b/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf
deleted file mode 100644
index d3d06401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/setketcindy.txt b/texmf-dist/scripts/ketpic/setketcindy.txt
deleted file mode 100644
index 0ccc37e1..00000000
--- a/texmf-dist/scripts/ketpic/setketcindy.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-// e:2017.05.15
-//Dirhead=getdirhead();
-if(iswindows(),
- Dirlib=Dirhead+"\ketlib";
- DirlibC=Dirhead+"\ketlibC";
- Dirbin=Dirhead+"\ketbin";
- Dirwork=Dirhead+"\ketwork";
- Dirwork=replace(Dirwork,"/","\");
- Libname=Dirlib+"\ketpicsciL5";
- Batparent="\kc.bat";
- if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".bat");
- if(indexof(Shellfile,"/")+indexof(Shellfile,"\")==0 ,
- Batchild=Dirbin+"\"+Shellfile;
- ,
- Batchild=Shellfile;
- );
-);
-if(ismacosx(),
- Dirlib=Dirhead+"/ketlib";
- DirlibC=Dirhead+"/ketlibC";
- Dirbin=Dirhead+"/ketbin";
- Dirwork=Dirhead+"/ketwork";
- Dirwork=replace(Dirwork,"\","/");
- Libname=Dirlib+"/ketpicsciL5";
- Shellparent="/kc.sh";
- if(isstring(Shellfile),
- if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".sh");
- if(indexof(Shellfile,"/")==0,
- Shellchild=Dirbin+"/"+Shellfile;
- ,
- Shellchild=Shellfile;
- );
- ,
- Shellfile="";
- );
- if(!isexists(Dirwork,""),
- println(Dirwork+" not exist");
- ,
- if(!iskcexists(Dirwork),
- setdirectory(Dirwork);
- SCEOUTPUT = openfile(Shellparent);
- closefile(SCEOUTPUT);
- println(Shellparent+" generated");
- );
- println(setexec(Dirwork,Shellparent));
- );
- Mackc="sh";
-// Mackc="open";
-);
-if(islinux(),
- Dirlib=Dirhead+"/ketlib";
- DirlibC=Dirhead+"/ketlibC";
- Dirbin=Dirhead+"/ketbin";
- Dirwork=Dirhead+"/ketwork";
- Dirwork=replace(Dirwork,"\","/");
- Libname=Dirlib+"/ketpicsciL5";
- Shellparent="/kc.sh";
- if(indexof(Shellfile,".")==0,Shellfile=Shellfile+".sh");
- if(indexof(Shellfile,"/")==0,
- Shellchild=Dirbin+"/"+Shellfile;
- ,
- Shellchild=Shellfile;
- );
-);
-
-setdirectory(Dirlib);
-import("ketcindylibbasic1.cs");
-import("ketcindylibbasic2.cs");
-import("ketcindylibout.cs");
-import("ketcindylib3d.cs");
-import("ketcindylibmv.cs");
-
-setdirectory(Dirhead);
-
diff --git a/texmf-dist/scripts/ketpic/template.cdy b/texmf-dist/scripts/ketpic/template.cdy
deleted file mode 100755
index dccfc7de..00000000
--- a/texmf-dist/scripts/ketpic/template.cdy
+++ /dev/null
Binary files differ