From 8c3c49fd56de185396400a0e8a636ac03d8239ab Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Feb 2018 14:52:54 +0900 Subject: update ketcindy --- .../ketlib/ketpic2escifiles6/Addcounter.bin | Bin 922 -> 0 bytes .../ketlib/ketpic2escifiles6/Addcounter.sci | 12 - .../ketlib/ketpic2escifiles6/Anglemark.bin | Bin 5238 -> 0 bytes .../ketlib/ketpic2escifiles6/Anglemark.sci | 33 -- .../ketlib/ketpic2escifiles6/Arrowdata.bin | Bin 6737 -> 0 bytes .../ketlib/ketpic2escifiles6/Arrowdata.sci | 58 ---- .../ketlib/ketpic2escifiles6/Arrowhead.bin | Bin 16618 -> 0 bytes .../ketlib/ketpic2escifiles6/Arrowhead.sci | 107 ------- .../ketlib/ketpic2escifiles6/Arrowheaddata.bin | Bin 13269 -> 0 bytes .../ketlib/ketpic2escifiles6/Arrowheaddata.sci | 89 ------ .../ketlib/ketpic2escifiles6/Arrowline.bin | Bin 7643 -> 0 bytes .../ketlib/ketpic2escifiles6/Arrowline.sci | 57 ---- .../ketcindy/ketlib/ketpic2escifiles6/Assign.bin | Bin 27459 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Assign.sci | 202 ------------ .../ketlib/ketpic2escifiles6/Assignadd.bin | Bin 1449 -> 0 bytes .../ketlib/ketpic2escifiles6/Assignadd.sci | 14 - .../ketlib/ketpic2escifiles6/Assignrep.bin | Bin 2609 -> 0 bytes .../ketlib/ketpic2escifiles6/Assignrep.sci | 22 -- .../ketlib/ketpic2escifiles6/Assignset.bin | Bin 703 -> 0 bytes .../ketlib/ketpic2escifiles6/Assignset.sci | 7 - .../ketlib/ketpic2escifiles6/Beginpicture.bin | Bin 324 -> 0 bytes .../ketlib/ketpic2escifiles6/Beginpicture.sci | 6 - .../ketcindy/ketlib/ketpic2escifiles6/Bezier.bin | Bin 5272 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Bezier.sci | 35 --- .../ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin | Bin 6060 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci | 39 --- .../ketlib/ketpic2escifiles6/BorderHiddenData.bin | Bin 443 -> 0 bytes .../ketlib/ketpic2escifiles6/BorderHiddenData.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin | Bin 419 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci | 7 - .../ketlib/ketpic2escifiles6/Borderparadata.bin | Bin 22449 -> 0 bytes .../ketlib/ketpic2escifiles6/Borderparadata.sci | 121 -------- .../ketlib/ketpic2escifiles6/Borderpersdata.bin | Bin 22411 -> 0 bytes .../ketlib/ketpic2escifiles6/Borderpersdata.sci | 120 ------- .../ketlib/ketpic2escifiles6/Borderrawdata.bin | Bin 13046 -> 0 bytes .../ketlib/ketpic2escifiles6/Borderrawdata.sci | 64 ---- .../ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin | Bin 8338 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci | 45 --- .../ketlib/ketpic2escifiles6/Bowmiddle.bin | Bin 10457 -> 0 bytes .../ketlib/ketpic2escifiles6/Bowmiddle.sci | 53 ---- .../ketcindy/ketlib/ketpic2escifiles6/Bowname.bin | Bin 5225 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Bowname.sci | 40 --- .../ketlib/ketpic2escifiles6/Bownamerot.bin | Bin 7824 -> 0 bytes .../ketlib/ketpic2escifiles6/Bownamerot.sci | 77 ----- .../ketlib/ketpic2escifiles6/CalcHeight.bin | Bin 4360 -> 0 bytes .../ketlib/ketpic2escifiles6/CalcHeight.sci | 31 -- .../ketlib/ketpic2escifiles6/CalcWidth.bin | Bin 3001 -> 0 bytes .../ketlib/ketpic2escifiles6/CalcWidth.sci | 26 -- .../ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin | Bin 1090 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci | 9 - .../ketlib/ketpic2escifiles6/CameraCurve.bin | Bin 3257 -> 0 bytes .../ketlib/ketpic2escifiles6/CameraCurve.sci | 24 -- .../ketlib/ketpic2escifiles6/CameracoordCurve.bin | Bin 7543 -> 0 bytes .../ketlib/ketpic2escifiles6/CameracoordCurve.sci | 28 -- .../ketlib/ketpic2escifiles6/Cancoordpara.bin | Bin 3159 -> 0 bytes .../ketlib/ketpic2escifiles6/Cancoordpara.sci | 11 - .../ketlib/ketpic2escifiles6/Cancoordpers.bin | Bin 7165 -> 0 bytes .../ketlib/ketpic2escifiles6/Cancoordpers.sci | 22 -- .../ketlib/ketpic2escifiles6/Circledata.bin | Bin 5752 -> 0 bytes .../ketlib/ketpic2escifiles6/Circledata.sci | 32 -- .../ketlib/ketpic2escifiles6/Clipindomain.bin | Bin 9264 -> 0 bytes .../ketlib/ketpic2escifiles6/Clipindomain.sci | 58 ---- .../ketlib/ketpic2escifiles6/Closefile.bin | Bin 2182 -> 0 bytes .../ketlib/ketpic2escifiles6/Closefile.sci | 24 -- .../ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin | Bin 767 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci | 10 - .../ketcindy/ketlib/ketpic2escifiles6/Closepar.bin | Bin 1266 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Closepar.sci | 15 - .../ketcindy/ketlib/ketpic2escifiles6/Closephr.bin | Bin 1103 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Closephr.sci | 13 - .../ketlib/ketpic2escifiles6/Closepicture.bin | Bin 1991 -> 0 bytes .../ketlib/ketpic2escifiles6/Closepicture.sci | 22 -- .../ketlib/ketpic2escifiles6/Connectseg.bin | Bin 14179 -> 0 bytes .../ketlib/ketpic2escifiles6/Connectseg.sci | 76 ----- .../ketlib/ketpic2escifiles6/Crossprod.bin | Bin 2819 -> 0 bytes .../ketlib/ketpic2escifiles6/Crossprod.sci | 13 - .../ketpic2escifiles6/Crv3onsfHiddenData.bin | Bin 449 -> 0 bytes .../ketpic2escifiles6/Crv3onsfHiddenData.sci | 7 - .../ketlib/ketpic2escifiles6/Crv3onsfparadata.bin | Bin 7742 -> 0 bytes .../ketlib/ketpic2escifiles6/Crv3onsfparadata.sci | 49 --- .../ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin | Bin 7742 -> 0 bytes .../ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci | 50 --- .../ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin | Bin 446 -> 0 bytes .../ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci | 7 - .../ketlib/ketpic2escifiles6/Crvonsfparadata.bin | Bin 17490 -> 0 bytes .../ketlib/ketpic2escifiles6/Crvonsfparadata.sci | 90 ------ .../ketlib/ketpic2escifiles6/Crvonsfpersdata.bin | Bin 16797 -> 0 bytes .../ketlib/ketpic2escifiles6/Crvonsfpersdata.sci | 86 ----- .../ketlib/ketpic2escifiles6/CrvsfHiddenData.bin | Bin 440 -> 0 bytes .../ketlib/ketpic2escifiles6/CrvsfHiddenData.sci | 7 - .../ketlib/ketpic2escifiles6/Crvsfparadata.bin | Bin 12964 -> 0 bytes .../ketlib/ketpic2escifiles6/Crvsfparadata.sci | 81 ----- .../ketlib/ketpic2escifiles6/Crvsfpersdata.bin | Bin 12924 -> 0 bytes .../ketlib/ketpic2escifiles6/Crvsfpersdata.sci | 80 ----- .../ketcindy/ketlib/ketpic2escifiles6/CuspData.bin | Bin 419 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/CuspData.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin | Bin 413 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci | 7 - .../ketlib/ketpic2escifiles6/CuspSplitPt.bin | Bin 426 -> 0 bytes .../ketlib/ketpic2escifiles6/CuspSplitPt.sci | 7 - .../ketlib/ketpic2escifiles6/Cuspsplitpara.bin | Bin 31919 -> 0 bytes .../ketlib/ketpic2escifiles6/Cuspsplitpara.sci | 179 ----------- .../ketlib/ketpic2escifiles6/Cuspsplitpers.bin | Bin 31845 -> 0 bytes .../ketlib/ketpic2escifiles6/Cuspsplitpers.sci | 176 ----------- .../ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin | Bin 1833 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Dashline.bin | Bin 4784 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Dashline.sci | 31 -- .../ketlib/ketpic2escifiles6/Dataindex.bin | Bin 2593 -> 0 bytes .../ketlib/ketpic2escifiles6/Dataindex.sci | 24 -- .../ketlib/ketpic2escifiles6/Definecolor.bin | Bin 2668 -> 0 bytes .../ketlib/ketpic2escifiles6/Definecolor.sci | 23 -- .../ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin | Bin 37476 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci | 195 ------------ .../ketlib/ketpic2escifiles6/Derivative.bin | Bin 9089 -> 0 bytes .../ketlib/ketpic2escifiles6/Derivative.sci | 64 ---- .../ketlib/ketpic2escifiles6/Diagcelldata.bin | Bin 2752 -> 0 bytes .../ketlib/ketpic2escifiles6/Diagcelldata.sci | 15 - .../ketlib/ketpic2escifiles6/Dividegraphics.bin | Bin 2511 -> 0 bytes .../ketlib/ketpic2escifiles6/Dividegraphics.sci | 20 -- .../ketlib/ketpic2escifiles6/Dividetable.bin | Bin 1280 -> 0 bytes .../ketlib/ketpic2escifiles6/Dividetable.sci | 9 - .../ketlib/ketpic2escifiles6/Doscaling.bin | Bin 2167 -> 0 bytes .../ketlib/ketpic2escifiles6/Doscaling.sci | 14 - .../ketlib/ketpic2escifiles6/Dotfilldata.bin | Bin 33511 -> 0 bytes .../ketlib/ketpic2escifiles6/Dotfilldata.sci | 186 ----------- .../ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin | Bin 454 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci | 6 - .../ketlib/ketpic2escifiles6/Dottedline.bin | Bin 19335 -> 0 bytes .../ketlib/ketpic2escifiles6/Dottedline.sci | 124 -------- .../ketlib/ketpic2escifiles6/Dottedlineold.bin | Bin 17289 -> 0 bytes .../ketlib/ketpic2escifiles6/Dottedlineold.sci | 115 ------- .../ketlib/ketpic2escifiles6/Dropnumlistcrv.bin | Bin 4450 -> 0 bytes .../ketlib/ketpic2escifiles6/Dropnumlistcrv.sci | 34 -- .../ketlib/ketpic2escifiles6/Droppoint.bin | Bin 4030 -> 0 bytes .../ketlib/ketpic2escifiles6/Droppoint.sci | 28 -- .../ketcindy/ketlib/ketpic2escifiles6/Drwline.bin | Bin 8499 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Drwline.sci | 66 ---- .../ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin | Bin 17128 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci | 142 --------- .../ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin | Bin 4108 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Embed.bin | Bin 5585 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Embed.sci | 41 --- .../ketlib/ketpic2escifiles6/Enclosing.bin | Bin 3330 -> 0 bytes .../ketlib/ketpic2escifiles6/Enclosing.sci | 23 -- .../ketlib/ketpic2escifiles6/EnclosingS.bin | Bin 17806 -> 0 bytes .../ketlib/ketpic2escifiles6/EnclosingS.sci | 126 -------- .../ketlib/ketpic2escifiles6/Endpicture.bin | Bin 836 -> 0 bytes .../ketlib/ketpic2escifiles6/Endpicture.sci | 11 - .../ketlib/ketpic2escifiles6/Evlptablepara.bin | Bin 15211 -> 0 bytes .../ketlib/ketpic2escifiles6/Evlptablepara.sci | 79 ----- .../ketlib/ketpic2escifiles6/Evlptablepers.bin | Bin 15184 -> 0 bytes .../ketlib/ketpic2escifiles6/Evlptablepers.sci | 77 ----- .../ketcindy/ketlib/ketpic2escifiles6/Execmd.bin | Bin 721 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Execmd.sci | 8 - .../ketcindy/ketlib/ketpic2escifiles6/Expr.bin | Bin 12554 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Expr.sci | 100 ------ .../ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin | Bin 5757 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci | 36 --- .../ketlib/ketpic2escifiles6/Faceremovaldata.bin | Bin 12460 -> 0 bytes .../ketlib/ketpic2escifiles6/Faceremovaldata.sci | 78 ----- .../ketlib/ketpic2escifiles6/Faceremovaldata0.bin | Bin 12215 -> 0 bytes .../ketlib/ketpic2escifiles6/Faceremovaldata0.sci | 81 ----- .../ketlib/ketpic2escifiles6/Facesdata.bin | Bin 19645 -> 0 bytes .../ketlib/ketpic2escifiles6/Facesdata.sci | 154 --------- .../ketlib/ketpic2escifiles6/Facesdata0.bin | Bin 13219 -> 0 bytes .../ketlib/ketpic2escifiles6/Facesdata0.sci | 88 ------ .../ketcindy/ketlib/ketpic2escifiles6/Findcell.bin | Bin 20630 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Findcell.sci | 127 -------- .../ketlib/ketpic2escifiles6/Flattenlist.bin | Bin 2035 -> 0 bytes .../ketlib/ketpic2escifiles6/Flattenlist.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin | Bin 4895 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci | 54 ---- .../ketlib/ketpic2escifiles6/Fouriercoeff.bin | Bin 2555 -> 0 bytes .../ketlib/ketpic2escifiles6/Fouriercoeff.sci | 21 -- .../ketlib/ketpic2escifiles6/FouriercoeffL.bin | Bin 2655 -> 0 bytes .../ketlib/ketpic2escifiles6/FouriercoeffL.sci | 18 -- .../ketlib/ketpic2escifiles6/Fouriersum.bin | Bin 2809 -> 0 bytes .../ketlib/ketpic2escifiles6/Fouriersum.sci | 15 - .../ketcindy/ketlib/ketpic2escifiles6/Fracform.bin | Bin 2385 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Fracform.sci | 18 -- .../ketlib/ketpic2escifiles6/Framedata.bin | Bin 6802 -> 0 bytes .../ketlib/ketpic2escifiles6/Framedata.sci | 36 --- .../ketlib/ketpic2escifiles6/Fullformfunc.bin | Bin 17186 -> 0 bytes .../ketlib/ketpic2escifiles6/Fullformfunc.sci | 79 ----- .../ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin | Bin 2585 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci | 11 - .../ketlib/ketpic2escifiles6/Getcounter.bin | Bin 421 -> 0 bytes .../ketlib/ketpic2escifiles6/Getcounter.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin | Bin 421 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci | 7 - .../ketlib/ketpic2escifiles6/Hatchdata.bin | Bin 25781 -> 0 bytes .../ketlib/ketpic2escifiles6/Hatchdata.sci | 141 --------- .../ketlib/ketpic2escifiles6/Hexahedrondata.bin | Bin 3973 -> 0 bytes .../ketlib/ketpic2escifiles6/Hexahedrondata.sci | 15 - .../ketlib/ketpic2escifiles6/HiddenWireData.bin | Bin 437 -> 0 bytes .../ketlib/ketpic2escifiles6/HiddenWireData.sci | 7 - .../ketlib/ketpic2escifiles6/Htickmark.bin | Bin 21909 -> 0 bytes .../ketlib/ketpic2escifiles6/Htickmark.sci | 144 --------- .../ketlib/ketpic2escifiles6/ImplicitData.bin | Bin 516 -> 0 bytes .../ketlib/ketpic2escifiles6/ImplicitData.sci | 9 - .../ketlib/ketpic2escifiles6/Implicitplot.bin | Bin 13253 -> 0 bytes .../ketlib/ketpic2escifiles6/Implicitplot.sci | 61 ---- .../ketcindy/ketlib/ketpic2escifiles6/InWindow.bin | Bin 1826 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/InWindow.sci | 11 - .../ketlib/ketpic2escifiles6/Initangle.bin | Bin 750 -> 0 bytes .../ketlib/ketpic2escifiles6/Initangle.sci | 8 - .../ketlib/ketpic2escifiles6/Integrate.bin | Bin 3053 -> 0 bytes .../ketlib/ketpic2escifiles6/Integrate.sci | 25 -- .../ketlib/ketpic2escifiles6/Intersectcrvs.bin | Bin 4302 -> 0 bytes .../ketlib/ketpic2escifiles6/Intersectcrvs.sci | 34 -- .../ketlib/ketpic2escifiles6/IntersectcrvsPp.bin | Bin 15887 -> 0 bytes .../ketlib/ketpic2escifiles6/IntersectcrvsPp.sci | 101 ------ .../ketlib/ketpic2escifiles6/Intersectcrvsf.bin | Bin 6854 -> 0 bytes .../ketlib/ketpic2escifiles6/Intersectcrvsf.sci | 47 --- .../ketlib/ketpic2escifiles6/Intersectlines.bin | Bin 4990 -> 0 bytes .../ketlib/ketpic2escifiles6/Intersectlines.sci | 22 -- .../ketlib/ketpic2escifiles6/IntersectselfPp.bin | Bin 15552 -> 0 bytes .../ketlib/ketpic2escifiles6/IntersectselfPp.sci | 95 ------ .../ketlib/ketpic2escifiles6/Invdashline.bin | Bin 4788 -> 0 bytes .../ketlib/ketpic2escifiles6/Invdashline.sci | 29 -- .../ketcindy/ketlib/ketpic2escifiles6/Invert.bin | Bin 621 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Invert.sci | 6 - .../ketlib/ketpic2escifiles6/Invparapt.bin | Bin 7426 -> 0 bytes .../ketlib/ketpic2escifiles6/Invparapt.sci | 50 --- .../ketlib/ketpic2escifiles6/Invperspt.bin | Bin 10756 -> 0 bytes .../ketlib/ketpic2escifiles6/Invperspt.sci | 65 ---- .../ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin | Bin 7402 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci | 51 --- .../ketlib/ketpic2escifiles6/Joingraphics.bin | Bin 3408 -> 0 bytes .../ketlib/ketpic2escifiles6/Joingraphics.sci | 26 -- .../ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin | Bin 8060 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci | 57 ---- .../ketcindy/ketlib/ketpic2escifiles6/Kouten.bin | Bin 5636 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Kouten.sci | 31 -- .../ketlib/ketpic2escifiles6/KoutenList.bin | Bin 9114 -> 0 bytes .../ketlib/ketpic2escifiles6/KoutenList.sci | 51 --- .../ketlib/ketpic2escifiles6/Koutenseg.bin | Bin 20514 -> 0 bytes .../ketlib/ketpic2escifiles6/Koutenseg.sci | 105 ------- .../ketlib/ketpic2escifiles6/Kukannozoku.bin | Bin 5978 -> 0 bytes .../ketlib/ketpic2escifiles6/Kukannozoku.sci | 45 --- .../ketlib/ketpic2escifiles6/Kukeiwake.bin | Bin 11635 -> 0 bytes .../ketlib/ketpic2escifiles6/Kukeiwake.sci | 62 ---- .../ketlib/ketpic2escifiles6/Kyorihensuu.bin | Bin 2900 -> 0 bytes .../ketlib/ketpic2escifiles6/Kyorihensuu.sci | 30 -- .../ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin | Bin 24740 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci | 144 --------- .../ketcindy/ketlib/ketpic2escifiles6/Letter.bin | Bin 12440 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Letter.sci | 100 ------ .../ketlib/ketpic2escifiles6/Letterrot.bin | Bin 5653 -> 0 bytes .../ketlib/ketpic2escifiles6/Letterrot.sci | 36 --- .../ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin | Bin 5483 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci | 44 --- .../ketcindy/ketlib/ketpic2escifiles6/Listplot.bin | Bin 2824 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Listplot.sci | 24 -- .../ketlib/ketpic2escifiles6/MakeBowdata.bin | Bin 10906 -> 0 bytes .../ketlib/ketpic2escifiles6/MakeBowdata.sci | 49 --- .../ketlib/ketpic2escifiles6/MakeCurves.bin | Bin 8640 -> 0 bytes .../ketlib/ketpic2escifiles6/MakeCurves.sci | 62 ---- .../ketlib/ketpic2escifiles6/MakecutbycrvL.bin | Bin 6014 -> 0 bytes .../ketlib/ketpic2escifiles6/MakecutbycrvL.sci | 45 --- .../ketlib/ketpic2escifiles6/Makehasen.bin | Bin 21601 -> 0 bytes .../ketlib/ketpic2escifiles6/Makehasen.sci | 123 -------- .../ketlib/ketpic2escifiles6/Makeliststr.bin | Bin 4911 -> 0 bytes .../ketlib/ketpic2escifiles6/Makeliststr.sci | 41 --- .../ketlib/ketpic2escifiles6/Makesfcutoffdata.bin | Bin 68349 -> 0 bytes .../ketlib/ketpic2escifiles6/Makesfcutoffdata.sci | 345 --------------------- .../ketlib/ketpic2escifiles6/Makeshasen.bin | Bin 6211 -> 0 bytes .../ketlib/ketpic2escifiles6/Makeshasen.sci | 41 --- .../ketlib/ketpic2escifiles6/Makeskeletondata.bin | Bin 27821 -> 0 bytes .../ketlib/ketpic2escifiles6/Makeskeletondata.sci | 171 ---------- .../ketpic2escifiles6/Makeskeletonpersdata.bin | Bin 31439 -> 0 bytes .../ketpic2escifiles6/Makeskeletonpersdata.sci | 188 ----------- .../ketlib/ketpic2escifiles6/Makevaltable.bin | Bin 10699 -> 0 bytes .../ketlib/ketpic2escifiles6/Makevaltable.sci | 79 ----- .../ketlib/ketpic2escifiles6/MakeveLfaceL.bin | Bin 10368 -> 0 bytes .../ketlib/ketpic2escifiles6/MakeveLfaceL.sci | 68 ---- .../ketlib/ketpic2escifiles6/Makexybdy.bin | Bin 21856 -> 0 bytes .../ketlib/ketpic2escifiles6/Makexybdy.sci | 111 ------- .../ketlib/ketpic2escifiles6/Mawarikomi.bin | Bin 3637 -> 0 bytes .../ketlib/ketpic2escifiles6/Mawarikomi.sci | 39 --- .../ketlib/ketpic2escifiles6/MeetWindow.bin | Bin 15057 -> 0 bytes .../ketlib/ketpic2escifiles6/MeetWindow.sci | 91 ------ .../ketlib/ketpic2escifiles6/Meetpoints.bin | Bin 40156 -> 0 bytes .../ketlib/ketpic2escifiles6/Meetpoints.sci | 169 ---------- .../ketcindy/ketlib/ketpic2escifiles6/Member.bin | Bin 1651 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Member.sci | 21 -- .../ketlib/ketpic2escifiles6/Menkakusi.bin | Bin 34512 -> 0 bytes .../ketlib/ketpic2escifiles6/Menkakusi.sci | 206 ------------ .../ketlib/ketpic2escifiles6/Menkakusi2.bin | Bin 28313 -> 0 bytes .../ketlib/ketpic2escifiles6/Menkakusi2.sci | 186 ----------- .../ketcindy/ketlib/ketpic2escifiles6/Mix.bin | Bin 1174 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mix.sci | 15 - .../ketcindy/ketlib/ketpic2escifiles6/MixL.bin | Bin 1136 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/MixL.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/MixS.bin | Bin 1135 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/MixS.sci | 15 - .../ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin | Bin 2264 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci | 23 -- .../ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin | Bin 937 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin | Bin 2517 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci | 29 -- .../ketlib/ketpic2escifiles6/Mixlength.bin | Bin 1260 -> 0 bytes .../ketlib/ketpic2escifiles6/Mixlength.sci | 18 -- .../ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin | Bin 1085 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Mixop.bin | Bin 1799 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixop.sci | 22 -- .../ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin | Bin 1280 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci | 18 -- .../ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin | Bin 1415 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci | 19 -- .../ketcindy/ketlib/ketpic2escifiles6/Naigai.bin | Bin 2552 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Naigai.sci | 18 -- .../ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin | Bin 411 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci | 4 - .../ketlib/ketpic2escifiles6/Nearestpt.bin | Bin 9290 -> 0 bytes .../ketlib/ketpic2escifiles6/Nearestpt.sci | 53 ---- .../ketlib/ketpic2escifiles6/Newlength.bin | Bin 771 -> 0 bytes .../ketlib/ketpic2escifiles6/Newlength.sci | 9 - .../ketlib/ketpic2escifiles6/Nohiddenpara.bin | Bin 42226 -> 0 bytes .../ketlib/ketpic2escifiles6/Nohiddenpara.sci | 254 --------------- .../ketlib/ketpic2escifiles6/Nohiddenpara2.bin | Bin 23811 -> 0 bytes .../ketlib/ketpic2escifiles6/Nohiddenpara2.sci | 131 -------- .../ketlib/ketpic2escifiles6/Nohiddenpers.bin | Bin 41591 -> 0 bytes .../ketlib/ketpic2escifiles6/Nohiddenpers.sci | 253 --------------- .../ketlib/ketpic2escifiles6/Nohiddenpers2.bin | Bin 23608 -> 0 bytes .../ketlib/ketpic2escifiles6/Nohiddenpers2.sci | 134 -------- .../ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin | Bin 398 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci | 4 - .../ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin | Bin 17718 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci | 115 ------- .../ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin | Bin 973 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci | 9 - .../ketcindy/ketlib/ketpic2escifiles6/Objname.bin | Bin 1206 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objname.sci | 11 - .../ketlib/ketpic2escifiles6/Objpolygon.bin | Bin 10238 -> 0 bytes .../ketlib/ketpic2escifiles6/Objpolygon.sci | 65 ---- .../ketlib/ketpic2escifiles6/Objpolyhedron.bin | Bin 3588 -> 0 bytes .../ketlib/ketpic2escifiles6/Objpolyhedron.sci | 25 -- .../ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin | Bin 16478 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci | 87 ------ .../ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin | Bin 22731 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci | 114 ------- .../ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin | Bin 862 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci | 7 - .../ketlib/ketpic2escifiles6/Objthicksurf.bin | Bin 22172 -> 0 bytes .../ketlib/ketpic2escifiles6/Objthicksurf.sci | 123 -------- .../ketcindy/ketlib/ketpic2escifiles6/Op.bin | Bin 3732 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Op.sci | 35 --- .../ketcindy/ketlib/ketpic2escifiles6/Openfile.bin | Bin 13035 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Openfile.sci | 106 ------- .../ketcindy/ketlib/ketpic2escifiles6/Openobj.bin | Bin 2939 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Openobj.sci | 33 -- .../ketcindy/ketlib/ketpic2escifiles6/Openpar.bin | Bin 3258 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Openpar.sci | 29 -- .../ketcindy/ketlib/ketpic2escifiles6/Openphr.bin | Bin 1045 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Openphr.sci | 12 - .../ketlib/ketpic2escifiles6/Openpicture.bin | Bin 13672 -> 0 bytes .../ketlib/ketpic2escifiles6/Openpicture.sci | 92 ------ .../ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin | Bin 6676 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci | 42 --- .../ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin | Bin 6365 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci | 31 -- .../ketcindy/ketlib/ketpic2escifiles6/Paramark.bin | Bin 3079 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Paramark.sci | 20 -- .../ketlib/ketpic2escifiles6/ParamonCurve.bin | Bin 2839 -> 0 bytes .../ketlib/ketpic2escifiles6/ParamonCurve.sci | 18 -- .../ketlib/ketpic2escifiles6/Paramoncrv.bin | Bin 4477 -> 0 bytes .../ketlib/ketpic2escifiles6/Paramoncrv.sci | 35 --- .../ketlib/ketpic2escifiles6/Paramplot.bin | Bin 20071 -> 0 bytes .../ketlib/ketpic2escifiles6/Paramplot.sci | 140 --------- .../ketcindy/ketlib/ketpic2escifiles6/Parapt.bin | Bin 2390 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Parapt.sci | 12 - .../ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin | Bin 6865 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci | 42 --- .../ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin | Bin 5346 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci | 34 -- .../ketlib/ketpic2escifiles6/Partframe.bin | Bin 5465 -> 0 bytes .../ketlib/ketpic2escifiles6/Partframe.sci | 27 -- .../ketlib/ketpic2escifiles6/PartitionPt.bin | Bin 428 -> 0 bytes .../ketlib/ketpic2escifiles6/PartitionPt.sci | 7 - .../ketlib/ketpic2escifiles6/Partitionseg.bin | Bin 15744 -> 0 bytes .../ketlib/ketpic2escifiles6/Partitionseg.sci | 100 ------ .../ketcindy/ketlib/ketpic2escifiles6/Perspt.bin | Bin 6665 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Perspt.sci | 21 -- .../ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin | Bin 496 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci | 7 - .../ketlib/ketpic2escifiles6/PhHiddenData.bin | Bin 431 -> 0 bytes .../ketlib/ketpic2escifiles6/PhHiddenData.sci | 7 - .../ketlib/ketpic2escifiles6/PhVertexL.bin | Bin 500 -> 0 bytes .../ketlib/ketpic2escifiles6/PhVertexL.sci | 7 - .../ketlib/ketpic2escifiles6/Phcutdata.bin | Bin 29830 -> 0 bytes .../ketlib/ketpic2escifiles6/Phcutdata.sci | 173 ----------- .../ketlib/ketpic2escifiles6/Phcutoffdata.bin | Bin 30095 -> 0 bytes .../ketlib/ketpic2escifiles6/Phcutoffdata.sci | 184 ----------- .../ketlib/ketpic2escifiles6/Phidegree.bin | Bin 531 -> 0 bytes .../ketlib/ketpic2escifiles6/Phidegree.sci | 7 - .../ketlib/ketpic2escifiles6/Phparadata.bin | Bin 619 -> 0 bytes .../ketlib/ketpic2escifiles6/Phparadata.sci | 7 - .../ketlib/ketpic2escifiles6/Phpersdata.bin | Bin 619 -> 0 bytes .../ketlib/ketpic2escifiles6/Phpersdata.sci | 7 - .../ketlib/ketpic2escifiles6/Phrawparadata.bin | Bin 625 -> 0 bytes .../ketlib/ketpic2escifiles6/Phrawparadata.sci | 7 - .../ketlib/ketpic2escifiles6/Phrawpersdata.bin | Bin 592 -> 0 bytes .../ketlib/ketpic2escifiles6/Phrawpersdata.sci | 7 - .../ketlib/ketpic2escifiles6/Phsparadata.bin | Bin 492 -> 0 bytes .../ketlib/ketpic2escifiles6/Phsparadata.sci | 7 - .../ketlib/ketpic2escifiles6/Phspersdata.bin | Bin 492 -> 0 bytes .../ketlib/ketpic2escifiles6/Phspersdata.sci | 7 - .../ketlib/ketpic2escifiles6/Phsrawparadata.bin | Bin 498 -> 0 bytes .../ketlib/ketpic2escifiles6/Phsrawparadata.sci | 7 - .../ketlib/ketpic2escifiles6/Phsrawpersdata.bin | Bin 465 -> 0 bytes .../ketlib/ketpic2escifiles6/Phsrawpersdata.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin | Bin 19408 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci | 138 --------- .../ketlib/ketpic2escifiles6/Pointdata.bin | Bin 2896 -> 0 bytes .../ketlib/ketpic2escifiles6/Pointdata.sci | 25 -- .../ketlib/ketpic2escifiles6/PointonCurve.bin | Bin 2135 -> 0 bytes .../ketlib/ketpic2escifiles6/PointonCurve.sci | 15 - .../ketlib/ketpic2escifiles6/Pointoncrv.bin | Bin 3006 -> 0 bytes .../ketlib/ketpic2escifiles6/Pointoncrv.sci | 21 -- .../ketcindy/ketlib/ketpic2escifiles6/Powersum.bin | Bin 2642 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Powersum.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Prime.bin | Bin 948 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Prime.sci | 10 - .../ketlib/ketpic2escifiles6/Printobjstr.bin | Bin 849 -> 0 bytes .../ketlib/ketpic2escifiles6/Printobjstr.sci | 10 - .../ketlib/ketpic2escifiles6/ProjCurve.bin | Bin 5078 -> 0 bytes .../ketlib/ketpic2escifiles6/ProjCurve.sci | 32 -- .../ketlib/ketpic2escifiles6/ProjcoordCurve.bin | Bin 3725 -> 0 bytes .../ketlib/ketpic2escifiles6/ProjcoordCurve.sci | 18 -- .../ketcindy/ketlib/ketpic2escifiles6/Projpara.bin | Bin 4932 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Projpara.sci | 41 --- .../ketcindy/ketlib/ketpic2escifiles6/Projpers.bin | Bin 4858 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Projpers.sci | 39 --- .../ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin | Bin 415 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci | 4 - .../ketcindy/ketlib/ketpic2escifiles6/Ptend.bin | Bin 484 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptend.sci | 4 - .../ketlib/ketpic2escifiles6/PthiddenQ.bin | Bin 51975 -> 0 bytes .../ketlib/ketpic2escifiles6/PthiddenQ.sci | 250 --------------- .../ketcindy/ketlib/ketpic2escifiles6/Ptne.bin | Bin 1729 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptne.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin | Bin 1729 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Ptse.bin | Bin 1730 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptse.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin | Bin 389 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci | 4 - .../ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin | Bin 1699 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci | 13 - .../ketcindy/ketlib/ketpic2escifiles6/Putcell.bin | Bin 9367 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Putcell.sci | 72 ----- .../ketlib/ketpic2escifiles6/Putcirmark.bin | Bin 2231 -> 0 bytes .../ketlib/ketpic2escifiles6/Putcirmark.sci | 18 -- .../ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin | Bin 8400 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci | 65 ---- .../ketlib/ketpic2escifiles6/PutcoLexpr.bin | Bin 8687 -> 0 bytes .../ketlib/ketpic2escifiles6/PutcoLexpr.sci | 65 ---- .../ketlib/ketpic2escifiles6/PutcoLstr.bin | Bin 4017 -> 0 bytes .../ketlib/ketpic2escifiles6/PutcoLstr.sci | 34 -- .../ketlib/ketpic2escifiles6/Putdashmark.bin | Bin 2122 -> 0 bytes .../ketlib/ketpic2escifiles6/Putdashmark.sci | 18 -- .../ketlib/ketpic2escifiles6/Putrecmark.bin | Bin 2078 -> 0 bytes .../ketlib/ketpic2escifiles6/Putrecmark.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Putrow.bin | Bin 5045 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Putrow.sci | 41 --- .../ketlib/ketpic2escifiles6/Putrowexpr.bin | Bin 5332 -> 0 bytes .../ketlib/ketpic2escifiles6/Putrowexpr.sci | 41 --- .../ketlib/ketpic2escifiles6/Putrowstr.bin | Bin 4017 -> 0 bytes .../ketlib/ketpic2escifiles6/Putrowstr.sci | 34 -- .../ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin | Bin 419 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci | 7 - .../ketlib/ketpic2escifiles6/Ratiocmyk.bin | Bin 23174 -> 0 bytes .../ketlib/ketpic2escifiles6/Ratiocmyk.sci | 87 ------ .../ketlib/ketpic2escifiles6/ReadOutData.bin | Bin 11262 -> 0 bytes .../ketlib/ketpic2escifiles6/ReadOutData.sci | 92 ------ .../ketlib/ketpic2escifiles6/ReadfromCindy.bin | Bin 3831 -> 0 bytes .../ketlib/ketpic2escifiles6/ReadfromCindy.sci | 38 --- .../ketlib/ketpic2escifiles6/Readtextdata.bin | Bin 21821 -> 0 bytes .../ketlib/ketpic2escifiles6/Readtextdata.sci | 160 ---------- .../ketlib/ketpic2escifiles6/Reflectdata.bin | Bin 9990 -> 0 bytes .../ketlib/ketpic2escifiles6/Reflectdata.sci | 51 --- .../ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin | Bin 2316 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci | 20 -- .../ketlib/ketpic2escifiles6/Rotate3data.bin | Bin 4411 -> 0 bytes .../ketlib/ketpic2escifiles6/Rotate3data.sci | 40 --- .../ketlib/ketpic2escifiles6/Rotate3pt.bin | Bin 25211 -> 0 bytes .../ketlib/ketpic2escifiles6/Rotate3pt.sci | 75 ----- .../ketlib/ketpic2escifiles6/Rotatedata.bin | Bin 5669 -> 0 bytes .../ketlib/ketpic2escifiles6/Rotatedata.sci | 39 --- .../ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin | Bin 1170 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci | 7 - .../ketlib/ketpic2escifiles6/Scaledata.bin | Bin 5149 -> 0 bytes .../ketlib/ketpic2escifiles6/Scaledata.sci | 39 --- .../ketlib/ketpic2escifiles6/Sectionview.bin | Bin 2344 -> 0 bytes .../ketlib/ketpic2escifiles6/Sectionview.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Setangle.bin | Bin 2016 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setangle.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin | Bin 4137 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci | 35 --- .../ketcindy/ketlib/ketpic2escifiles6/Setax.bin | Bin 13034 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setax.sci | 102 ------ .../ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin | Bin 4119 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci | 36 --- .../ketlib/ketpic2escifiles6/Setcounter.bin | Bin 1023 -> 0 bytes .../ketlib/ketpic2escifiles6/Setcounter.sci | 13 - .../ketcindy/ketlib/ketpic2escifiles6/Setmark.bin | Bin 4968 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setmark.sci | 43 --- .../ketlib/ketpic2escifiles6/Setmarklen.bin | Bin 1802 -> 0 bytes .../ketlib/ketpic2escifiles6/Setmarklen.sci | 17 - .../ketlib/ketpic2escifiles6/Setobjdecimals.bin | Bin 1028 -> 0 bytes .../ketlib/ketpic2escifiles6/Setobjdecimals.sci | 8 - .../ketlib/ketpic2escifiles6/Setobjscale.bin | Bin 432 -> 0 bytes .../ketlib/ketpic2escifiles6/Setobjscale.sci | 6 - .../ketlib/ketpic2escifiles6/Setorigin.bin | Bin 1056 -> 0 bytes .../ketlib/ketpic2escifiles6/Setorigin.sci | 14 - .../ketcindy/ketlib/ketpic2escifiles6/Setpen.bin | Bin 1471 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setpen.sci | 11 - .../ketcindy/ketlib/ketpic2escifiles6/Setpers.bin | Bin 1533 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setpers.sci | 16 - .../ketcindy/ketlib/ketpic2escifiles6/Setpt.bin | Bin 1607 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Setpt.sci | 16 - .../ketlib/ketpic2escifiles6/Setscaling.bin | Bin 3006 -> 0 bytes .../ketlib/ketpic2escifiles6/Setscaling.sci | 28 -- .../ketlib/ketpic2escifiles6/SetstereoL.bin | Bin 3147 -> 0 bytes .../ketlib/ketpic2escifiles6/SetstereoL.sci | 12 - .../ketlib/ketpic2escifiles6/SetstereoR.bin | Bin 3069 -> 0 bytes .../ketlib/ketpic2escifiles6/SetstereoR.sci | 10 - .../ketlib/ketpic2escifiles6/Setunitlen.bin | Bin 10271 -> 0 bytes .../ketlib/ketpic2escifiles6/Setunitlen.sci | 78 ----- .../ketlib/ketpic2escifiles6/Setversion.bin | Bin 11998 -> 0 bytes .../ketlib/ketpic2escifiles6/Setversion.sci | 182 ----------- .../ketlib/ketpic2escifiles6/Setwindow.bin | Bin 7533 -> 0 bytes .../ketlib/ketpic2escifiles6/Setwindow.sci | 44 --- .../ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin | Bin 13224 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci | 62 ---- .../ketlib/ketpic2escifiles6/Sfbdparadata.bin | Bin 5885 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfbdparadata.sci | 39 --- .../ketlib/ketpic2escifiles6/Sfbdpersdata.bin | Bin 5938 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfbdpersdata.sci | 42 --- .../ketlib/ketpic2escifiles6/Sfbdrawparadata.bin | Bin 4537 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfbdrawparadata.sci | 33 -- .../ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin | Bin 4498 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci | 31 -- .../ketlib/ketpic2escifiles6/Sfcutdata.bin | Bin 22872 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfcutdata.sci | 105 ------- .../ketlib/ketpic2escifiles6/Sfcutoffparadata.bin | Bin 1348 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfcutoffparadata.sci | 12 - .../ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin | Bin 1349 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci | 12 - .../ketpic2escifiles6/Sfcutoffrawparadata.bin | Bin 1349 -> 0 bytes .../ketpic2escifiles6/Sfcutoffrawparadata.sci | 12 - .../ketpic2escifiles6/Sfcutoffrawpersdata.bin | Bin 1349 -> 0 bytes .../ketpic2escifiles6/Sfcutoffrawpersdata.sci | 12 - .../ketlib/ketpic2escifiles6/Sfparadata.bin | Bin 2149 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfparadata.sci | 17 - .../ketlib/ketpic2escifiles6/Sfpersdata.bin | Bin 2149 -> 0 bytes .../ketlib/ketpic2escifiles6/Sfpersdata.sci | 17 - .../ketcindy/ketlib/ketpic2escifiles6/Shade.bin | Bin 9556 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Shade.sci | 84 ----- .../ketlib/ketpic2escifiles6/Skeleton2data.bin | Bin 9324 -> 0 bytes .../ketlib/ketpic2escifiles6/Skeleton2data.sci | 71 ----- .../ketlib/ketpic2escifiles6/Skeletonpara3data.bin | Bin 6935 -> 0 bytes .../ketlib/ketpic2escifiles6/Skeletonpara3data.sci | 48 --- .../ketlib/ketpic2escifiles6/Skeletonparadata.bin | Bin 4084 -> 0 bytes .../ketlib/ketpic2escifiles6/Skeletonparadata.sci | 29 -- .../ketlib/ketpic2escifiles6/Skeletonpers3data.bin | Bin 5901 -> 0 bytes .../ketlib/ketpic2escifiles6/Skeletonpers3data.sci | 41 --- .../ketlib/ketpic2escifiles6/Skeletonpersdata.bin | Bin 4038 -> 0 bytes .../ketlib/ketpic2escifiles6/Skeletonpersdata.sci | 29 -- .../ketlib/ketpic2escifiles6/Spacecurve.bin | Bin 12729 -> 0 bytes .../ketlib/ketpic2escifiles6/Spacecurve.sci | 83 ----- .../ketlib/ketpic2escifiles6/Spaceline.bin | Bin 3439 -> 0 bytes .../ketlib/ketpic2escifiles6/Spaceline.sci | 27 -- .../ketlib/ketpic2escifiles6/Splinedata.bin | Bin 16665 -> 0 bytes .../ketlib/ketpic2escifiles6/Splinedata.sci | 108 ------- .../ketcindy/ketlib/ketpic2escifiles6/Strop.bin | Bin 1354 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Strop.sci | 11 - .../ketcindy/ketlib/ketpic2escifiles6/Subs.bin | Bin 2852 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Subs.sci | 21 -- .../ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin | Bin 9947 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci | 65 ---- .../ketlib/ketpic2escifiles6/Symb3data.bin | Bin 5491 -> 0 bytes .../ketlib/ketpic2escifiles6/Symb3data.sci | 30 -- .../ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin | Bin 10750 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci | 67 ---- .../ketlib/ketpic2escifiles6/Tabledata.bin | Bin 25828 -> 0 bytes .../ketlib/ketpic2escifiles6/Tabledata.sci | 130 -------- .../ketcindy/ketlib/ketpic2escifiles6/Texcom.bin | Bin 3162 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texcom.sci | 41 --- .../ketcindy/ketlib/ketpic2escifiles6/Texctr.bin | Bin 1603 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texctr.sci | 15 - .../ketcindy/ketlib/ketpic2escifiles6/Texelse.bin | Bin 420 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texelse.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/Texend.bin | Bin 251 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texend.sci | 5 - .../ketlib/ketpic2escifiles6/Texendfor.bin | Bin 1781 -> 0 bytes .../ketlib/ketpic2escifiles6/Texendfor.sci | 12 - .../ketcindy/ketlib/ketpic2escifiles6/Texendif.bin | Bin 546 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texendif.sci | 8 - .../ketcindy/ketlib/ketpic2escifiles6/Texfor.bin | Bin 1806 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texfor.sci | 15 - .../ketlib/ketpic2escifiles6/Texforinit.bin | Bin 565 -> 0 bytes .../ketlib/ketpic2escifiles6/Texforinit.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/Texif.bin | Bin 1677 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texif.sci | 19 -- .../ketlib/ketpic2escifiles6/Texletter.bin | Bin 5621 -> 0 bytes .../ketlib/ketpic2escifiles6/Texletter.sci | 44 --- .../ketlib/ketpic2escifiles6/Texnewcmd.bin | Bin 2605 -> 0 bytes .../ketlib/ketpic2escifiles6/Texnewcmd.sci | 20 -- .../ketlib/ketpic2escifiles6/Texnewctr.bin | Bin 1266 -> 0 bytes .../ketlib/ketpic2escifiles6/Texnewctr.sci | 13 - .../ketlib/ketpic2escifiles6/Texrenewcmd.bin | Bin 2609 -> 0 bytes .../ketlib/ketpic2escifiles6/Texrenewcmd.sci | 20 -- .../ketlib/ketpic2escifiles6/Texsetctr.bin | Bin 8313 -> 0 bytes .../ketlib/ketpic2escifiles6/Texsetctr.sci | 70 ----- .../ketlib/ketpic2escifiles6/Texthectr.bin | Bin 469 -> 0 bytes .../ketlib/ketpic2escifiles6/Texthectr.sci | 5 - .../ketlib/ketpic2escifiles6/Texvalctr.bin | Bin 531 -> 0 bytes .../ketlib/ketpic2escifiles6/Texvalctr.sci | 5 - .../ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin | Bin 526 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci | 6 - .../ketlib/ketpic2escifiles6/Thetadegree.bin | Bin 537 -> 0 bytes .../ketlib/ketpic2escifiles6/Thetadegree.sci | 7 - .../ketlib/ketpic2escifiles6/ThisVersion.bin | Bin 385 -> 0 bytes .../ketlib/ketpic2escifiles6/ThisVersion.sci | 5 - .../ketcindy/ketlib/ketpic2escifiles6/Tolist.bin | Bin 909 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Tolist.sci | 8 - .../ketlib/ketpic2escifiles6/Translate3data.bin | Bin 4301 -> 0 bytes .../ketlib/ketpic2escifiles6/Translate3data.sci | 36 --- .../ketlib/ketpic2escifiles6/Translatedata.bin | Bin 5248 -> 0 bytes .../ketlib/ketpic2escifiles6/Translatedata.sci | 42 --- .../ketcindy/ketlib/ketpic2escifiles6/Trunc.bin | Bin 728 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Trunc.sci | 10 - .../ketlib/ketpic2escifiles6/Unscaling.bin | Bin 2122 -> 0 bytes .../ketlib/ketpic2escifiles6/Unscaling.sci | 12 - .../ketlib/ketpic2escifiles6/Vecnagasa.bin | Bin 1434 -> 0 bytes .../ketlib/ketpic2escifiles6/Vecnagasa.sci | 11 - .../ketlib/ketpic2escifiles6/Vecnagasa2.bin | Bin 1292 -> 0 bytes .../ketlib/ketpic2escifiles6/Vecnagasa2.sci | 11 - .../ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin | Bin 2667 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci | 21 -- .../ketlib/ketpic2escifiles6/Vtickmark.bin | Bin 21938 -> 0 bytes .../ketlib/ketpic2escifiles6/Vtickmark.sci | 144 --------- .../ketcindy/ketlib/ketpic2escifiles6/Windisp.bin | Bin 17429 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Windisp.sci | 110 ------- .../ketlib/ketpic2escifiles6/WireHiddenData.bin | Bin 437 -> 0 bytes .../ketlib/ketpic2escifiles6/WireHiddenData.sci | 7 - .../ketcindy/ketlib/ketpic2escifiles6/WirePt.bin | Bin 463 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/WirePt.sci | 8 - .../ketlib/ketpic2escifiles6/Wireparadata.bin | Bin 21470 -> 0 bytes .../ketlib/ketpic2escifiles6/Wireparadata.sci | 120 ------- .../ketlib/ketpic2escifiles6/Wirepersdata.bin | Bin 21438 -> 0 bytes .../ketlib/ketpic2escifiles6/Wirepersdata.sci | 120 ------- .../ketlib/ketpic2escifiles6/Wirerawparadata.bin | Bin 15066 -> 0 bytes .../ketlib/ketpic2escifiles6/Wirerawparadata.sci | 86 ----- .../ketlib/ketpic2escifiles6/Wirerawpersdata.bin | Bin 15066 -> 0 bytes .../ketlib/ketpic2escifiles6/Wirerawpersdata.sci | 86 ----- .../ketlib/ketpic2escifiles6/WriteOutData.bin | Bin 8150 -> 0 bytes .../ketlib/ketpic2escifiles6/WriteOutData.sci | 55 ---- .../ketlib/ketpic2escifiles6/Writeobjpoint.bin | Bin 2135 -> 0 bytes .../ketlib/ketpic2escifiles6/Writeobjpoint.sci | 12 - .../ketlib/ketpic2escifiles6/Writetextdata.bin | Bin 5610 -> 0 bytes .../ketlib/ketpic2escifiles6/Writetextdata.sci | 47 --- .../ketlib/ketpic2escifiles6/WritetoCindy.bin | Bin 6440 -> 0 bytes .../ketlib/ketpic2escifiles6/WritetoCindy.sci | 42 --- .../ketcindy/ketlib/ketpic2escifiles6/Xmax.bin | Bin 364 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Xmax.sci | 5 - .../ketcindy/ketlib/ketpic2escifiles6/Xmin.bin | Bin 364 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Xmin.sci | 5 - .../ketlib/ketpic2escifiles6/Xyzax3data.bin | Bin 4660 -> 0 bytes .../ketlib/ketpic2escifiles6/Xyzax3data.sci | 14 - .../ketlib/ketpic2escifiles6/Xyzaxparaname.bin | Bin 14997 -> 0 bytes .../ketlib/ketpic2escifiles6/Xyzaxparaname.sci | 71 ----- .../ketlib/ketpic2escifiles6/Xyzaxpersname.bin | Bin 15036 -> 0 bytes .../ketlib/ketpic2escifiles6/Xyzaxpersname.sci | 72 ----- .../ketcindy/ketlib/ketpic2escifiles6/Ymax.bin | Bin 364 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ymax.sci | 5 - .../ketcindy/ketlib/ketpic2escifiles6/Ymin.bin | Bin 364 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Ymin.sci | 5 - .../ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin | Bin 1665 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci | 8 - .../ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin | Bin 4894 -> 0 bytes .../ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci | 20 -- .../scripts/ketcindy/ketlib/ketpic2escifiles6/lib | 344 -------------------- .../ketcindy/ketlib/ketpic2escifiles6/names | 335 -------------------- 690 files changed, 17385 deletions(-) delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib delete mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6') diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin deleted file mode 100644 index 04ec361b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci deleted file mode 100644 index c940a543..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 09.09.10 - -function Addcounter(varargin) - global GCOUNTER; - if Nargs==0 - N=1; - else - N=varargin(1); - GCOUNTER=GCOUNTER+N; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin deleted file mode 100644 index 9e505d61..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci deleted file mode 100644 index 6deb302c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.06.05 -// 16.12.29 ( for too short segment ) - -function Out=Anglemark(varargin) - 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; - end - Out=[]; // 16.12.29 - if r>min(norm(PA-PB),norm(PC-PB)) then - return; - end; - 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,Mixop(1,Tmp)); - if abs(P1-P2)1 - R=Tmp - else - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - R=P+Tmp*(Q-P); - else - R=P+Yapos*(Q-P); - end - if Flg==3 - Futosa=Tmp - end - Flg=Flg+1; - end - end - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Futosa*Thickness; - R=P+Position*(Q-P); - else - Str=Tmp - end - end - end - Tmp1=Listplot([P,Q]); - Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str); - Out=Joingraphics(Tmp1,Tmp2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin deleted file mode 100644 index bbd95348..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci deleted file mode 100644 index 9073ca6e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci +++ /dev/null @@ -1,107 +0,0 @@ -// -// 08.06.01 -// 09.12.25 -// 12.01.07 kirikomi(Cut) -// 12.04.16 debugged -// 13.05.17 debugged -// 13.11.13 debugged -// 15.06.11 debugged -// 15.06.14 debugged -// 15.06.15 improved - -function Arrowhead(varargin) - global Wfile FID MilliIn YaSize - global YaAngle YaPosition YaThick YaStyle; - 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=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if Tmp2(1)=="Cut" | Tmp2(1)=="cut" - Tmp="Cut"+Tmp2(2); - execstr(Tmp); - end; - else - Str=Tmp; - end; // 12.01.07 upto - end; - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki - else - Hiraki=Tmp - end - end - if Flg==2 - Futosa=Tmp - end - Flg=Flg+1; - end - end; - Ookisa=1000/2.54/MilliIn*Ookisa; - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - G=Circledata(P,Ookisa*cos(Theta),'N=10'); - Flg=0; // 13.11.13 - for J=I:-1:1 - B=Ptcrv(J,Houkou); - Tmp=IntersectcrvsPp(Listplot([A,B]),G); - if Mixlength(Tmp)>0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end; - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Ev=-1/Vecnagasa(Houkou)*Houkou; - Nv=[-Ev(2),Ev(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*Ev - end; - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*Ev - end; - A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv; - B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv; - if mtlb_findstr(Str,'l')~=[] - Tmp=Listplot([A,P,B]); - Tmp1=Unscaling(Tmp); // 13.05.17 - Drwline(Tmp1,Futosa); - else - C=P+(1-Cut)*((A+B)/2-P); // 12.01.05 - Tmp=Listplot([A,P,B,C,A]); // 12.01.05 - Tmp1=Unscaling(Tmp); - Shade(Tmp1); - Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20 - Tmp1=Unscaling(Tmp); - Drwline(Tmp1,0.1); // 15.06.11, 15.06.14 - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin deleted file mode 100644 index 99f58621..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci deleted file mode 100644 index 68dfe27c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci +++ /dev/null @@ -1,89 +0,0 @@ -// 08.05.31 -// 09.12.25 -// 13.11.13 debugged -// 14.11.02 debugged - -function Out=Arrowheaddata(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle; - Eps=10^(-3); - Nargs=length(varargin); - Out=[]; - P=varargin(1); - Houkou=varargin(2); - Ookisa=0.2*YaSize; - Hiraki=YaAngle; - Futosa=0; - Thickness=1; - Str=YaStyle; - Flg=0; - for I=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - Futosa=Thickness; - else - Str=Tmp; - end - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - Flg=Flg+1; - end - end - Theta=Hiraki*%pi/180; - if size(Houkou,1)>1 - P=Doscaling(P); - Houkou=Doscaling(Houkou); - Tmp=Nearestpt(P,Houkou); - A=Op(1,Tmp); - I=floor(Op(2,Tmp)); - if I==1 // 14.11.02 - if norm(Ptend(Houkou)-Ptstart(Houkou))0 - Flg=1; - break - end - A=B - end - if Flg==0 // 13.11.13 - disp('Arrowhead may be too large (no intersect)'); - return - end - Houkou=P-Op(1,Op(1,Tmp)); - Houkou=Unscaling(Houkou); - P=Unscaling(P); - end - P=Doscaling(P); - Houkou=Doscaling(Houkou); - E=-1/Vecnagasa(Houkou)*Houkou; - N=[-E(2),E(1)]; - if mtlb_findstr(Str,'c')~=[] - P=P-0.5*Ookisa*cos(Theta)*E; - end - if mtlb_findstr(Str,'b')~=[] - P=P-Ookisa*cos(Theta)*E - end - A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N; - B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N; - Out=Listplot([A,P,B]); - Out=Unscaling(Out); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin deleted file mode 100644 index dec6b519..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci deleted file mode 100644 index 881662b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci +++ /dev/null @@ -1,57 +0,0 @@ -// -// 12.01.07 kirikomi(Cut) -// 12.08.26 debugged -// 15.06.11 debugged -// 15.10.24 debugged - -function Arrowline(varargin) - global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi; - 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=3:Nargs - Tmp=varargin(I); - if type(Tmp)==10 - Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from - if length(Equal)>0 - Tmp2=strsplit(Tmp,Equal-1); - if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut") - Tmp="Cut"+Tmp2(2); - Cutstr=Tmp; - end - else - Str=Tmp; // 12.01.07 upto (debugged on 12.08.26) - end; - end; - if (type(Tmp)==1) & (length(Tmp)==1) - if Flg==0 - Ookisa=Ookisa*Tmp; - end - if Flg==1 - if Tmp<5 - Hiraki=Tmp*Hiraki; - else - Hiraki=Tmp; - end - end - if Flg==2 - Yapos=Tmp; - end - if Flg==3 - Futosa=Tmp; - end - Flg=Flg+1; - end - end - R=P+Yapos*(Q-P); - Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24 - Drwline(Listplot([P,Tmp]),Futosa); - Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin deleted file mode 100644 index a4ad2b27..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci deleted file mode 100644 index 8d9201cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci +++ /dev/null @@ -1,202 +0,0 @@ -// 08.09.26 -// 09.09.21 -// 09.09.26 -// 09.10.01 -// 09.10.03 -// 09.10.05 -// 09.10.08 -// 09.10.09 ( format=20) -// 09.10.15 ( added Assign('') : reset -// 09.10.17 ( Matrix added, ? -> number returned) -// 09.10.21 ( list supported with Makeliststr ) -// 14.10.04 format=12 -// 14.12.11 only replaced when variable name -// 14.12.28 debugged ( tmp2, ` ) -// 15.02.18 debugged ( for list of string ) -// 15.02.19 debugged -// 15.04.18 debugged - -function Out=Assign(varargin) - global ASSIGNLIST; - Curfmt=format(); - format(12); // 14.10.04 - Nargs=length(varargin); - if Nargs==0 - ASSIGNLIST=list('`',Prime()); - Out=ASSIGNLIST; - format(Curfmt(2)); - return; - end; - L=list('`',char(39)); - NL=length(L); - if modulo(Nargs,2)==0 - for I=1:Nargs - L(I+NL)=varargin(I); - end; - ASSIGNLIST=L; - Out=L; - format(Curfmt(2)); - return; - end; - if Nargs==1 - Fnstr=varargin(1); - if Fnstr=='' - L=ASSIGNLIST; - Out=[]; - for I=1:2:length(L) - Tmp1=L(I); - Tmp2=L(I+1); - if length(Tmp2)==1 - Tmp3=string(Tmp2); - else - Tmp3='['; - for J=1:length(Tmp2) - Tmp3=Tmp3+string(Tmp2(J)); - if J1 // 15.04.18 - for K=1:length(Val) - Tmp=Vname+'('+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(K))==1 - Tmp1='('+string(Val(K))+')'; - else - Tmp1=Val(K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - else - for J=1:size(Val,1) - for K=1:size(Val,2) - Tmp=Vname+'('+string(J)+','+string(K)+')'; - if mtlb_findstr(Tmp3,Tmp)~=[] - if type(Val(J,K))==1 - Tmp1='('+string(Val(J,K))+')'; - else - Tmp1=Val(J,K); - end; - Tmp3=strsubst(Tmp3,Tmp,Tmp1); - end; - end; - end; - end; - if length(Val)==1 - Rep=string(Val); - else - Rep='['; - for J=1:size(Val,1) - for K=1:size(Val,2) - Rep=Rep+string(Val(J,K)); - if K0 then - Flist=mtlb_findstr(Tmp2,Vname); - else - Flist=[]; - end - if length(Flist)==0 then - Tmp3(K)=Tmp2; // 15.04.18 - continue - end - Str=part(Tmp2,1:(Flist(1)-1)); - for I=1:length(Flist) - Flg=0; - J=Flist(I); - if J>1 then - Tmp=ascii(part(Tmp2,J-1)); - if Member(Tmp,Notvar) then - Flg=1; - end; - end - if J+length(Vname)-1 [Eps, Epsmg] -// 13.10.21 ( __ added to varibles ) - -function FsL__=Borderparadata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N__=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N__=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ Eps__=varargin(N__); end; - Eps__2=0.2; - if Nargs__>=N__+1 Eps__2=varargin(N__+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpara(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__) - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpara(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); // - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin deleted file mode 100644 index 2a4cc650..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci deleted file mode 100644 index f86ddfa0..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.28 -// 09.03.09 -// 09.05.27 -// 09.06.03 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) - -function FsL__=Borderpersdata(varargin) - global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA - global PARTITIONPT - Nargs__=length(varargin); - FkL__=varargin(1); - Fd__=varargin(2); N=3; - FdL__=Fullformfunc(Fd__); - Fxy__=Mixop(1,FdL__); - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - DrwS__=Mixop(7,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Np__=[50,50]; - if Nargs__>=3 - Np__=varargin(3); N=4; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=0.05; - Eps__=[0.05,1]; // - if Nargs__>=N Eps__=varargin(N); end; - Eps__2=0.2; - if Nargs__>=N+1 Eps__2=varargin(N+1); end; - Umin__=Urg__(1); Umax__=Urg__(2); - Vmin__=Vrg__(1); Vmax__=Vrg__(2); - EkL__=[]; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')'); - Tmp__2=Mixop(6,FdL__); - Tmp__3='N='+string(Np__(2)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')'); - Tmp__2=Mixop(5,FdL__); - Tmp__3='N='+string(Np__(1)); - Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3); - EkL__=Mixadd(EkL__,Tmp__); - end; - if Mixlength(EkL__)>0 - FkL__=Mixjoin(FkL__,EkL__); - end; - Fall__=Projpers(FkL__); - if Mixtype(Fall__)==1 - Fall__=Mix(Fall__); - end; - Fbdxy__=Makexybdy(Fd__,Np__); - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - BORDERPT=[]; - Tmp__=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixadd(Tmp__,[]); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:Mixlength(Fall__) - Tmp__=Mixop(I__,FkL__); - Tmp__=Projpers(Tmp__); - Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if Mixlength(PARTITIONPT)>2 - Tmp__=Mixlength(PARTITIONPT)-1; - Tmp__1=Mixsub(2:Tmp__,PARTITIONPT); - BORDERPT=Mixjoin(BORDERPT,Tmp__1); - end; - Tmp__1=Mixop(I__,FkL__); - Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__); - if Mixlength(HIDDENDATA)>0 - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - end; - if Mixlength(Tmp__)>0 - FsL__=Mixjoin(FsL__,Tmp__); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin deleted file mode 100644 index fb44560f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci deleted file mode 100644 index 657efc23..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 08.09.10 - -function FkL=Borderrawdata(varargin) - Nall=length(varargin); - FkL=varargin(1); - FdL=Fullformfunc(varargin(2)); - Tmp1=Mixop(2,FdL); - Tmp2=Mixop(3,FdL); - Tmp3=Mixop(4,FdL); - Xyzstr=[Tmp1,Tmp2,Tmp3]; - DrwS=Mixop(7,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Np=[50,50]; - if Nall>=3 - Np=varargin(3); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Um=Urg(1); UM=Urg(2); - Vm=Vrg(1); VM=Vrg(2); - EkL=[]; - Tmp=mtlb_findstr(DrwS,'e'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'n'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'w'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')'); - Tmp2=Mixop(6,FdL); - Tmp3='N='+string(Np(2)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - Tmp=mtlb_findstr(DrwS,'s'); - if length(Tmp)~=0 - Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')'); - Tmp2=Mixop(5,FdL); - Tmp3='N='+string(Np(1)); - Tmp=Spacecurve(Tmp1,Tmp2,Tmp3); - EkL=Mixadd(EkL,Tmp); - end; - FkL=Mixjoin(FkL,EkL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin deleted file mode 100644 index a5819013..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci deleted file mode 100644 index 48154cf1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci +++ /dev/null @@ -1,45 +0,0 @@ -// -// 08.05.22 -// 08.08.24 - -function Pd=Bowdata(varargin) - global BOWMIDDLE BOWSTART BOWEND - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - Cut=0; - D=1/2*Vecnagasa(PB-PA); - if Nargs>=3 - H=varargin(3)*D*0.2; - else - H=D*0.2; - end - H=min(H,D); - if Nargs>=4 - Cut=varargin(4); - end - Ydata=MakeBowdata(PA,PB,H); - C=Mixop(1,Ydata); - r=Mixop(2,Ydata); - R1=Mixop(3,Ydata); - R2=Mixop(4,Ydata); - Rng='R=['+string(R1)+','+string(R2)+']'; - Theta=(R1+R2)*0.5; - BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta); - M=Mixop(1,BOWMIDDLE); - ThetaM=Mixop(2,BOWMIDDLE); - BOWSTART=PA; - BOWEND=PB; - if Cut==0 - Pd=Circledata(C,r,Rng); - else - Alpha=R1; Beta=ThetaM-Cut/(2*r); - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Pd=Circledata(C,r,Rng); - Alpha=ThetaM+Cut/(2*r); Beta=R2; - Rng='R=['+string(Alpha)+','+string(Beta)+']'; - Tmp=Circledata(C,r,Rng); - Pd=[Pd;%inf,%inf;Tmp]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin deleted file mode 100644 index b212c380..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci deleted file mode 100644 index 5157c111..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci +++ /dev/null @@ -1,53 +0,0 @@ -// -// 08.05.22 -// 08.05.31 -// 09.08.12 - -function M=Bowmiddle(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - if Nargs==0 - M=BOWMIDDLE; - return; - end; - if Nargs==1 - Bdata=varargin(1); - A=Bdata(1,:); - Dind=Dataindex(Bdata); - Dc=size(Dind,1); - Tmp=Dind(Dc,2); - B=Bdata(Tmp,:); - if Dc==1 - Tmp1=round(Tmp/2); - else - Tmp1=Dind(1,2); - end; - D=Bdata(Tmp1,:); - B=B-A; - D=D-A; - Tmp1=B(1)*D(2)-D(1)*B(2); - Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2; - Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2; - 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*Vecnagasa(B-A); - H=0.2*D; - if length(varargin)>=3 - Tmp=varargin(3); - H=Tmp*D*0.2; - end - 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*[cos(T),sin(T)]; - M=MixS(P,T); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin deleted file mode 100644 index 7286b547..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci deleted file mode 100644 index f57c4961..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci +++ /dev/null @@ -1,40 +0,0 @@ -// -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.11.30 Directon supported - -function Bowname(varargin) - global BOWMIDDLE; - Nargs=length(varargin); - Siki=varargin(Nargs); - Nargs=Nargs-1; // 13.11.30 - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 // 13.11.30 - P=Mixop(1,BOWMIDDLE); - elseif Nargs==1 // 13.11.30 - Bdata=varargin(1); - P=Bowmiddle(Bdata); - else - A=varargin(1); B=varargin(2); - D=1/2*Vecnagasa(B-A); - Tmp=varargin(3); - if type(Tmp)==10 - H=D*0.2; - else - H=Tmp*D*0.2; - end; - H=min(H,D); - Ydata=MakeBowdata(A,B,H); - Tmp=Bowmiddle(Ydata); - P=Mixop(1,Tmp); - end - Expr(P,Dr,Siki); //13.11.30 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin deleted file mode 100644 index b66d56a9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci deleted file mode 100644 index 8d1edf78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.08.12 -// 09.08.13 -// 13.12.15 tiny move supported -// A,B type no longer supported - -function Bownamerot(varargin) - global Wfile FID BOWMIDDLE BOWSTART BOWEND; - Nargs=length(varargin); - Eps=10^(-6); - Flg=1; - Tmp=varargin(Nargs); - if type(Tmp)==1 & length(Tmp)==1 & Tmp<0 - Flg=Tmp; - Nargs=Nargs-1; - end; - Siki=varargin(Nargs); - Nargs=Nargs-1; - Dr="c"; - if Nargs>=1 then - Tmp=varargin(Nargs); - if type(Tmp)==10 - Dr=Tmp; - Nargs=Nargs-1; - end - end - if Nargs==0 - P=Mixop(1,BOWMIDDLE); - A=BOWSTART; - B=BOWEND; - else - Bdata=varargin(1); - P=Bowmiddle(Bdata); - A=Bdata(1,:); - B=Bdata(size(Bdata,1),:); - Tm=0; Tv=0; - if Nargs>1 then // 13.12.15 - Tm=varargin(2); - if Nargs>2 then - Tv=varargin(3); - end - end - end; -// elseif Nargs==1 -// Bdata=varargin(1); -// P=Bowmiddle(Bdata); -// A=Bdata(1,:); -// B=Bdata(size(Bdata,1),:); -// else -// A=varargin(1); B=varargin(2); -// D=1/2*Vecnagasa(B-A); -// Tmp=varargin(3); -// if type(Tmp)==10 -// H=0.2*D; Siki=Tmp; -// else -// H=Tmp*D*0.2; Siki=varargin(4); -// end -// 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*[cos(T),sin(T)]; -// end; - if A(1)>B(1)+Eps - Tmp=A; - A=B; - B=Tmp; - end; - if Flg>0 - Tmp=B-A; - else - Tmp=A-B; - end; - Exprrot(P,Tmp,Tm,Tv,Siki); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin deleted file mode 100644 index dd6d1a9c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci deleted file mode 100644 index aa1216dd..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci +++ /dev/null @@ -1,31 +0,0 @@ -function CalcHeight(Hoko,Moji) - global Wfile FID; - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(1)); - Str=['\settoheight{\Height}{'+Moji+'}']; - Str=[Str,'\settodepth{\Depth}{'+Moji+'}']; - if H=='n' - Str=[Str,'\setlength{\Height}{\Depth}']; - end - if H=='s' - Str=[Str,'\setlength{\Height}{-\Height}']; - end - if H=='c' - Str=[Str,'\setlength{\Height}{-0.5\Height}']; - Str=[Str,'\setlength{\Depth}{0.5\Depth}']; - Str=[Str,'\addtolength{\Height}{\Depth}']; - end - if Wfile=='default' - for I=1:size(Str,2) - mprintf('%s',Str(I)); - end - mprintf('%s\n','%'); - else - for I=1:size(Str,2) - mfprintf(FID,'%s',Str(I)); - end - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin deleted file mode 100644 index cba76bac..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci deleted file mode 100644 index 111e9b3b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci +++ /dev/null @@ -1,26 +0,0 @@ -function CalcWidth(Hoko,Moji) - global Wfile FID - D=0; - Tmp=ascii(Hoko); - H=char(Tmp(2)); - if H=='e' - D=0; - end - if H=='w' - D=-1.0; - end - if H=='c' - D=-0.5; - end - Str1='\settowidth{\Width}{'+Moji+'}'; - Tmp=string(D); - Str2='\setlength{\Width}{'+Tmp+'\Width}'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s%s\n',Str2,'%'); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s%s\n',Str2,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin deleted file mode 100644 index 4fdb507e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci deleted file mode 100644 index 30c646a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.05.30 - -function PL=Calcfun(Siki,Namae,Atai) - execstr(Namae+'=Atai'); - Tmp='XY='+Siki; - execstr(Tmp); - PL=[Atai(:,1),XY(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin deleted file mode 100644 index 5227aec7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci deleted file mode 100644 index fcc7687c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci +++ /dev/null @@ -1,24 +0,0 @@ -// 08.08.12 -// 08.10.07 -// 09.06.02 - -function AnsL=CameraCurve(Curve) - Eps=10^(-6); - for I=1:size(Curve,1) - P=Curve(I,:); - x=P(1); y=P(2); z=P(3); - if x~=%inf - Tmp=Perspt(P); - if I==1 - AnsL=[Tmp]; - else - Tmp1=AnsL(size(AnsL,1),:); - if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps - AnsL=[AnsL;Tmp]; - end; - end; - else - AnsL=[AnsL;%inf,%inf]; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin deleted file mode 100644 index dfe76941..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci deleted file mode 100644 index 310ac166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.09.25 - -function Out=CameracoordCurve(Curve) - global FocusPoint EyePoint; - Out=[]; // 09.09.25 - for J=1:size(Curve,1) - 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=[Out;Yz,Zz,Xz]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin deleted file mode 100644 index 58fd0152..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci deleted file mode 100644 index 1574d812..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci +++ /dev/null @@ -1,11 +0,0 @@ -// 13.08.13 - -function Out=Cancoordpara(P) - global PHI THETA; - 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=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin deleted file mode 100644 index 57e2e49c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci deleted file mode 100644 index b63aba5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.08.12 - -function Out=Cancoordpers(P) - global EyePoint FocusPoint; - 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=[X,Y,Z]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin deleted file mode 100644 index 0b9ca934..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci deleted file mode 100644 index 2148c061..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci +++ /dev/null @@ -1,32 +0,0 @@ -// s:2008,05.12 -// e:2014.09.08 [A,B] supported -// e:2014.10.24 N,R => N__, ... - -function P=Circledata(varargin) - Nargs=length(varargin); - C=varargin(1); - if length(C)==4 then - ra=norm(C(1:2)-C(3:4)); - C=C(1:2); - Nop=2; - else - ra=varargin(2); - Nop=3; - end; - R__=[0,2*%pi]; - N__=50; // Numpoints - for I=Nop:Nargs - Tmp=varargin(I); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - Str=Lhs+'__='+Tmp1(3,1); - execstr(Str); - end; - Dt=(R__(2)-R__(1))/N__; - T=R__(1):Dt:R__(2); - X=C(1)+ra*cos(T); - Y=C(2)+ra*sin(T); - P=[X',Y']; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin deleted file mode 100644 index 374f6316..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci deleted file mode 100644 index bf9572c5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 09.12.31 (gsort) - -function OutL=Clipindomain(ObjL,FigL) - EEps=10^(-4); - Eps=0.01; - Eps2=0.2; - Bdy=Kyoukai(FigL); - if Mixlength(Bdy)>=2 - Fbdy=Joincrvs(FigL) - else - Fbdy=Mixop(1,FigL); - end; - if Mixtype(ObjL)==1 - ObjL=Mix(ObjL) - end; - if Mixtype(FigL)==1 - FigL=Mix(FigL) - end; - OutL=[]; - for Nobj=1:Mixlength(ObjL); - Obj=Mixop(Nobj,ObjL); - ParL=[1,Numptcrv(Obj)]; - Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2); - for J=1:Mixlength(Tmp) - Tmp1=Mixop(J,Tmp); - ParL=[ParL,Mixop(2,Tmp1)]; - end; - ParL=gsort(ParL); - ParL=ParL(length(ParL):-1:1); - Tmp=[1]; - for I=1:length(ParL) - Tmp1=Tmp(length(Tmp)); - Tmp2=ParL(I); - if Tmp2-Tmp1>EEps - Tmp=[Tmp,Tmp2]; - end; - end; - ParL=Tmp; - Tmp1=ParL(length(ParL)); - Tmp2=Numptcrv(Obj); - if abs(Tmp1-Tmp2)=1 then - Pa=varargin(1); - if type(Pa)==10 then - if Pa=="1" then // 2013.11.05 - Endpicture(1) - end; - if Pa=="0" then - Endpicture(0) - end // - end - end - if Wfile~='default' then - mclose(FID); - FID=[]; // 2013.05.19 - end - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin deleted file mode 100644 index d8f4d64d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci deleted file mode 100644 index da7c3850..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Closeobj() - global Wfile FID; - if Wfile~='default' then - mclose(FID); - FID=[]; - end; - Wfile='default'; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin deleted file mode 100644 index 0e0991c3..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci deleted file mode 100644 index 64b93e1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.31 - -function Closepar() - global Wfile FID - S='\end{minipage}' - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s',S); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s',S); - end - Closephr(); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin deleted file mode 100644 index 6bffbf74..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci deleted file mode 100644 index 39b363f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 08.05.31 - -function Closephr() - global Wfile FID; - if Wfile=='default' - mprintf('%s\n','%'); - mprintf('%s\n','}%'); - else - mfprintf(FID,'%s\n','%'); - mfprintf(FID,'%s\n','}%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin deleted file mode 100644 index c0c13ad5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci deleted file mode 100644 index a3f345cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci +++ /dev/null @@ -1,22 +0,0 @@ -// -// 08.12.17 -// 09.02.20 -// 10.04.12 - -function Closepicture(varargin) - global Wfile FID MEMORI MEMORINow ULEN MilliIn; - Nargs=length(varargin); - if Nargs==0 - Drwxy(); - elseif varargin(1)==1 - Drwxy(); - end - if Wfile=='default' - mprintf('%s','\end{picture}}%'); - else - mfprintf(FID,'%s','\end{picture}}%'); - end -// MEMORI=MEMORINow*1000/2.54/MilliIn; - Setunitlen('1cm'); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin deleted file mode 100644 index 7504d934..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci deleted file mode 100644 index 2abe8c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci +++ /dev/null @@ -1,76 +0,0 @@ -// 08.09.09 -// 08.09.10 -// 08.09.24 - -function PlotL=Connectseg(varargin) - Nargs=length(varargin); - Pdata=varargin(1); - Eps=10^(-5); - if Nargs>=2 - Eps=varargin(2) - end; - if Mixtype(Pdata)~=1 - Tmp=Mixop(1,Pdata); - Tmp=size(Tmp,2); - Sep=%inf*ones(1,Tmp); - Tmp=[]; - for I=1:Mixlength(Pdata) - Tmp1=Mixop(I,Pdata); - Tmp=[Tmp;Sep;Tmp1]; - end; - Pdata=Tmp(2:size(Tmp,1),:); - end; - Din=Dataindex(Pdata); - PlotL=[]; - Qd=Pdata(Din(1,1):Din(1,2),:); - Din=Din(2:size(Din,1),:); - N=size(Din,1); - while N>0 - Ah=Qd(1,:);Ao=Qd(size(Qd,1),:); - Flg=0; - for J=1:N - St=Din(J,1); - En=Din(J,2); - P=Pdata(St,:); - Q=Pdata(En,:); - if norm(P-Ao)0 - PlotL=Mixadd(PlotL,Qd); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin deleted file mode 100644 index c22f1e9e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci deleted file mode 100644 index ab4d55b5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 09.10.0 - -function Out=Crossprod(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=[Tmp1,Tmp2,Tmp3]; - else - Out=a(1)*b(2)-a(2)*b(1); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin deleted file mode 100644 index 9de876b4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci deleted file mode 100644 index 07c17303..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=Crv3onsfHiddenData() - global CRV3ONSFHIDDENDATA - Out=CRV3ONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin deleted file mode 100644 index b2cafb90..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci deleted file mode 100644 index ba168b71..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpara(Par,Fk,Tmp); - end; - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin deleted file mode 100644 index 55aa8c1f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci deleted file mode 100644 index 5fc40737..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function Out=Crv3onsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA - Nargs=length(varargin); - Fk=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Fbdxy=Makexybdy(Fd,Np); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp=Mix(Fxy,Fbdxy,Xname,Yname); - Out=Nohiddenpers(Par,Fk,Tmp); - end; - - CRV3ONSFHIDDENDATA=HIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin deleted file mode 100644 index 5269bbf1..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci deleted file mode 100644 index 9d97b3ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.19 - -function Out=CrvonsfHiddenData() - global CRVONSFHIDDENDATA - Out=CRVONSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin deleted file mode 100644 index 69551af4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci deleted file mode 100644 index a530284b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci +++ /dev/null @@ -1,90 +0,0 @@ -// 08.09.16 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps -// 13.10.22 ( __ added to varibles ) - -function OutL__=Crvonsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs__=length(varargin); - Eps__0=10^(-4); - Figuv__=varargin(1); - Fbdy__=Projpara(varargin(2)); - Fd__=varargin(3); N__=4; - Fd__L=Fullformfunc(Fd__); - Fxy__=Mixop(1,Fd__L); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Np__=[50,50]; - if Nargs__>=N__ - Np__=varargin(N__); N__=N__+1; - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Eps__=[0.05,1]; // - if Nargs__>=N__ - Eps__=varargin(N__); - end; - if length(Eps__)==1 - Eps__=[Eps__,1]; - end; - Eps__2=0.2; - if Nargs__>=N__+1 - Eps__2=varargin(N__+1); - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Fbdxy__=Makexybdy(Fd__,Np__); - Fbdy__uv=Mixop(8,Fd__L); - if Fbdy__uv==[] - Fbdy__uv=Mix(Framedata(Urg__,Vrg__)); - end; - FigL__=Clipindomain(Figuv__,Fbdy__uv); - CRVONSFHIDDENDATA=[]; - OutL__=[]; - for N__=1:Mixlength(FigL__) - PtL__=Mixop(N__,FigL__); - Tmp__=[]; - for I__=1:size(PtL__,1) - P__=PtL__(I__,:); - Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')'); - Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')'); - Tmp__1=evstr(Tmp__1); - Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')'); - Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')'); - Tmp__2=evstr(Tmp__2); - Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')'); - Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')'); - Tmp__3=evstr(Tmp__3); - Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]]; - end; - Fk__=Spaceline(Tmp__); - Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); // - if Fxy__=='p' - Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__); - else - Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__); - Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1); - end; - if Tmp__~=[] - OutL__=Mixjoin(OutL__,Tmp__); - end; - if HIDDENDATA~=[] - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin deleted file mode 100644 index 48451c6b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci deleted file mode 100644 index f3bdf700..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.11 -// 08.10.15 -// 10.02.16 Eps - -function OutL=Crvonsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA - Nargs=length(varargin); - Eps0=10^(-4); - Figuv=varargin(1); - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Xf=Mixop(2,FdL); - Yf=Mixop(3,FdL); - Zf=Mixop(4,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 - Eps=[Eps,1]; - end; - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - Fbdxy=Makexybdy(Fd,Np); - Fbdyuv=Mixop(8,FdL); - if Fbdyuv==[] - Fbdyuv=Mix(Framedata(Urg,Vrg)); - end; - FigL=Clipindomain(Figuv,Fbdyuv); - CRVONSFHIDDENDATA=[]; - OutL=[]; - for N=1:Mixlength(FigL) - PtL=Mixop(N,FigL); - Tmp=[]; - for I=1:size(PtL,1) - P=PtL(I,:); - Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')'); - Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')'); - Tmp1=evstr(Tmp1); - Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')'); - Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')'); - Tmp2=evstr(Tmp2); - Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')'); - Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')'); - Tmp3=evstr(Tmp3); - Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]]; - end; - Fk=Spaceline(Tmp); - Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); // - if Fxy=='p' - Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - else - Tmp1=Mix(Fxy,Fbdxy,Xname,Yname); - Tmp=Nohiddenpers(Par,Fk,Tmp1); - end; - OutL=Mixjoin(OutL,Tmp); - CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin deleted file mode 100644 index 110cf0de..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci deleted file mode 100644 index 0081b20c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.10.24 - -function Out=CrvsfHiddenData() - global CRVSFHIDDENDATA - Out=CRVSFHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin deleted file mode 100644 index b759eff5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci deleted file mode 100644 index a87506d2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci +++ /dev/null @@ -1,81 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) -// 10.02.16 - -function Out=Crvsfparadata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpara(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Parapt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpara(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin deleted file mode 100644 index af00090e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci deleted file mode 100644 index 7e24efcb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci +++ /dev/null @@ -1,80 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 08.10.27 -// 09.06.02 -// 09.12.31 (gsort) - -function Out=Crvsfpersdata(varargin) - global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA - Nargs=length(varargin); - Sepflg=0; - Tmp=varargin(Nargs); - if type(Tmp)==1 & Tmp<=0 - Sepflg=1; - Nargs=Nargs-1; - end; - Fk=varargin(1); - if Mixtype(Fk)==1 - FkL=Mix(Fk); - else - FkL=Fk; - end; - Fbdy=Projpers(varargin(2)); - Fd=varargin(3); N=4; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Np=[50,50]; - if Nargs>=N - Np=varargin(N); N=N+1; - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N - Eps=varargin(N); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=N+1 - Eps2=varargin(N+1); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Out=[]; - CRVSFHIDDENDATA=[]; - for Nn=1:Mixlength(FkL) - Fk=Mixop(Nn,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Sepflg==0 - for I=1:Numptcrv(Fk)-1 - Pa=Ptcrv(I,Fk); - Pb=Ptcrv(I+1,Fk); - PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); // - for J=1:Mixlength(PtL) - Tmp=Mixop(J,PtL); - Tmp=Perspt(Tmp); - Tmp1=ParamonCurve(Tmp,I,Projpers(Fk)); - Tmp2=min(abs(Par-Tmp1)); - if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) // - Par=[Par,Tmp1]; - end; - end; - Par=gsort(Par); - Par=Par(length(Par):-1:1); - end; - end; - Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - Out=Mixjoin(Out,Tmp1); - CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin deleted file mode 100644 index e6820112..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci deleted file mode 100644 index 8c2b6eee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspData() - global CUSPDATA - Out=CUSPDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin deleted file mode 100644 index a31b8fa0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci deleted file mode 100644 index 33f1d807..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function Out=CuspPt() - global CUSPPT - Out=CUSPPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin deleted file mode 100644 index 040b5f3e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci deleted file mode 100644 index 07cbb09b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.09.10 - -function PL=CuspSplitPt() - global CUSPSPLITPT - PL=CUSPSPLITPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin deleted file mode 100644 index 333137e7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci deleted file mode 100644 index 0ea935b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci +++ /dev/null @@ -1,179 +0,0 @@ -// 08.09.10 -// 08.09.13 -// 08.09.15 -// 08.10.10 -// 10.02.16 Eps -// 13.10.21 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpara(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps0__=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N__=2; - Tmp1__=Mixop(2,FdL__); - Tmp2__=Mixop(3,FdL__); - Tmp3__=Mixop(4,FdL__); - Xyzstr__=[Tmp1__,Tmp2__,Tmp3__]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp1__=Uname__+'='+string(Tmp__(1)); - execstr(Tmp1__); - Tmp1__=Vname__+'='+string(Tmp__(2)) - execstr(Tmp1__); - Tmp2__=evstr(Xyzstr__); - Tmp3__=Parapt(Tmp2__); - if I__==1 - PtkL__=[Tmp2__]; - PthL__=[Tmp3__]; - else - Tmp4__=PthL__(size(PthL__,1),:); - if norm(Tmp3__-Tmp4__)>Eps0__ - PtkL__=[PtkL__;Tmp2__]; - PthL__=[PthL__;Tmp3__] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe__)90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp3__=Tmp3__/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp3__)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp1__=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh=[plot(PthL__)]; - Tmp4__=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1); - Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:); - if norm(Tmp3__-Tmp4__)>Eps__ - //Tmph__=[op(Tmp1__..Tmp2__,PthL__)]; - Tmpk__=PtkL__(Tmp1__:Tmp2__,:); - //Outh=[op(Outh),plot(Tmph__)]; - Outk__=Mixadd(Outk__,Tmpk__); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp2__=Mixop(I__,OutkL__); - Tmp3__=Mixop(I__,Tmp1__); - Tmp4__=[]; - for J__=1:length(Tmp3__) - Tmp5__=Tmp2__(Tmp3__(J__),:); - Tmp4__=[Tmp4__;Tmp5__]; - end; - if Tmp4__~=[] - Tmp__=Mixadd(Tmp__,Tmp4__); - end; - end; - OutkL__=Tmp__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin deleted file mode 100644 index d5f47f89..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci deleted file mode 100644 index a8221f5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci +++ /dev/null @@ -1,176 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 10.02.16 Eps__ -// 13.11.01 ( __ added to varibles ) -// 14.06.28 debug in the case of no cusp - -function OutkL__=Cuspsplitpers(varargin); - global CUSPSPLITPT; - Nargs__=length(varargin); - Gdxy__=varargin(1); - if Mixtype(Gdxy__)==1 - Gdxy__=Mix(Gdxy__); - end; - Fd__=varargin(2); - FdL__=Fullformfunc(Fd__); - Eps__0=10^(-5); - Eps__=0.05; - if Nargs__>2 Eps__=varargin(3); end; - if length(Eps__)>1 // - Eps__=Eps__(1); - end; // - Fxy__=Mixop(1,FdL__); N=2; - Tmp__1=Mixop(2,FdL__); - Tmp__2=Mixop(3,FdL__); - Tmp__3=Mixop(4,FdL__); - Xyzstr__=[Tmp__1,Tmp__2,Tmp__3]; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - CUSPSPLITPT=[]; - OutkL__=[]; - for Ng__=1:Mixlength(Gdxy__) - PtxyL__=Mixop(Ng__,Gdxy__); - PtkL__=[]; - PthL__=[]; - for I__=1:size(PtxyL__,1) - Tmp__=PtxyL__(I__,:); - Tmp__1=Uname__+'='+string(Tmp__(1)); - execstr(Tmp__1); - Tmp__1=Vname__+'='+string(Tmp__(2)) - execstr(Tmp__1); - Tmp__2=evstr(Xyzstr__); - Tmp__3=Perspt(Tmp__2); - if I__==1 - PtkL__=[Tmp__2]; - PthL__=[Tmp__3]; - else - Tmp__4=PthL__(size(PthL__,1),:); - if norm(Tmp__3-Tmp__4)>Eps__0 - PtkL__=[PtkL__;Tmp__2]; - PthL__=[PthL__;Tmp__3] - end; - end; - end; - if size(PthL__,1)==0 then // from 20140628 - OutkL__=[]; - return; - end; // upto 20140628 - Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:); - Cflg__=0; - if norm(Ps__-Pe)90 - Cuspflg__=1; - break - end; - Q__=PthL__(J__,:); - if norm(P__-Q__)>Eps__ - break - end; - V1__=Q__-PthL__(J__-1,:); - V2__=PthL__(J__+1,:)-Q__; - Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2); - Tmp__3=Tmp__3/(norm(V1__)*norm(V2__)); - Tmp__=acos(Tmp__3)*180/%pi; - if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0 - Tmp__=-Tmp__ - end; - Kaku__=Kaku__+Tmp__ - end; - if Cuspflg__==1 - Tmp__=Trunc((I__+J__)*0.5); - I__=J__; - if length(CuspL__)==0 - CuspL__=[Tmp__] - else - CuspL__=[CuspL__,Tmp__]; - end; - end; - end; - end; - if Cflg__==0 - CuspL__=[1,CuspL__,size(PthL__,1)]; - elseif length(CuspL__)==0 - CuspL__=[1,size(PthL__,1)]; - elseif CuspL__(1)==1 - CuspL__=[CuspL__,size(PthL__,1)]; - else - Tmp__=CuspL__(1); - Tmp__1=size(PthL__,1); - PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)]; - PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)]; - CuspL__=CuspL__-Tmp__+1; - CuspL__=[CuspL__,size(PthL__,1)]; - end; - if length(CuspL__)==2 - //Outh__=[plot(PthL__)]; - Tmp__4=PthL__(size(PthL__,1),:); - if size(PtkL__,1)>=2 - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - OutkL__=Mixadd(OutkL__,PtkL__); - end; - continue - end; - //Outh__=[]; - Outk__=[]; - Is__=1; - for I__=1:length(CuspL__)-1 - Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1); - Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:); - if norm(Tmp__3-Tmp__4)>Eps__ - //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)]; - Tmp__k=PtkL__(Tmp__1:Tmp__2,:); - //Outh__=[op(Outh__),plot(Tmp__h)]; - Outk__=Mixadd(Outk__,Tmp__k); - CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4); - Is__=I__+1; - end; - end; - OutkL__=Mixjoin(OutkL__,Outk__); - end; - Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5); - Tmp__=[]; - for I__=1:Mixlength(OutkL__) - Tmp__2=Mixop(I__,OutkL__); - Tmp__3=Mixop(I__,Tmp__1); - Tmp__4=[]; - for J__=1:length(Tmp__3) - Tmp__5=Tmp__2(Tmp__3(J__),:); - Tmp__4=[Tmp__4;Tmp__5]; - end; - if Tmp__4~=[] - Tmp__=Mixadd(Tmp__,Tmp__4); - end; - end; - OutkL__=Tmp__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin deleted file mode 100644 index d9fb0edd..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci deleted file mode 100644 index fa26b319..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.10.15 - -function Out=Cutsf2d(Nvec,GL,Flg) - global THETA PHI - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin deleted file mode 100644 index dc144378..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci deleted file mode 100644 index 1df8e5e3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.21 -// 08.07.14 -// 10.01.02 bin remade -// 10.11.13 Flattenlist used - -function Dashline(varargin) - global MilliIn - Nargs=length(varargin); - Nall=Nargs; Sen=1 ; Gap=1; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,0); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin deleted file mode 100644 index b64a96c8..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci deleted file mode 100644 index 82e9ac48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.05.31 - -function Ndm=Dataindex(P) - // %inf;%inf -> end - Ndm=[]; - if P==[] return; end - N1=1; - Flg=0; - for J=1:size(P,1) - if P(J,1)==%inf - Ndm=[Ndm;N1,J-1]; - N1=J+1; - if P(N1,1)==%inf - Flg=1; - break; - end - end - end - if Flg==0 - Ndm=[Ndm;N1,size(P,1)]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin deleted file mode 100644 index 7ffb898a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci deleted file mode 100644 index b06ac44b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 15.05.04 - -function Definecolor(Name,Data) - Tmp1=size(Data,2); - if Tmp1<3 | Tmp1>4 - disp("Size of data should be 3 or 4."); - return; - end; - if Tmp1==4 - Tp="cmyk" - else - Tp="rgb" - end; - Tmp=""; - for J=1:Tmp1 - Tmp=Tmp+string(Data(J)); - if J0 - Dim__=length(Tmp__)+1; - Order__=1; - Fnstr__=strsubst(Fnstr__,',',';'); - else - Dim__=1; - Order__=length(JL__); - end; - Rgstr__=varargin(2); - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Xname__=part(Rgstr__,1:K__-1); - Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__))); - else - Xname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - X0__=varargin(3); - Y0__=varargin(4); - if size(Y0__,2)>1 - Y0__=Y0__'; - end; - N__=50; - if Nargs__>=5 - Tmp__=varargin(5); - Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08 - Tmp__=strsubst(Tmp__,"____","__"); - execstr(Tmp__); - end; - X1__=Rng__(1); X2__=Rng__(2); - dX__=(X2__-X1__)/(N__-1); - dX__=(X2__-X1__)/(N__); // 15.11.16 - if Dim__>1 - Tmp__=mtlb_findstr(Yname__,'['); - Data__=part(Yname__,Tmp__+1:length(Yname__)); - Tmp__=mtlb_findstr(Data__,']'); - Data__=part(Data__,1:Tmp__-1); - Data__=';'+Data__+';'; - NL__=mtlb_findstr(Data__,';'); - NameL__=list(); - for I__=1:length(NL__)-1 - Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1); - NameL__(I__)=Tmp__; - end; - Fnrep__=Fnstr__; - for I__=1:length(NameL__) - Tmp__=NameL__(I__); - Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')'); - end; - Tmp1__='Outf=Dfp__('+Xname__+',Pt)'; - Tmp2__='Outf='+Fnrep__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - Tmp1__='Outf=Dfn__('+Xname__+',Pt)'; - Tmp2__='Outf=-('+Fnrep__+')'; - deff(Tmp1__,Tmp2__); - Y0n__=Y0__; - else - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0p__=Y0__; - YL__=mtlb_findstr(Fnstr__,Yname__); - Fnrep__=part(Fnstr__,1:YL__(1)-1); - for I__=1:length(YL__) - Py__=YL__(I__); - J__=1; - K__=Py__+1; - while part(Fnstr__,K__:K__)=='`' - J__=J__+1; K__=K__+1; - end; - if modulo(J__,2)==1 - Fnrep__=Fnrep__+Yname__+'('+string(J__)+')'; - else - Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))'; - end; - if I__==length(YL__) - Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__)); - else - J__=YL__(I__+1)-1; - if J__>=K__ - Fnrep__=Fnrep__+part(Fnstr__,K__:J__); - end; - end; - end; - if modulo(Order__,2)==1 - Fnrep__='-('+Fnrep__+')'; - end; - Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12 - Eqvec__='['; - for I__=1:Order__-1 - Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');'; - end; - Eqvec__=Eqvec__+Fnrep__+']'; - Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')'; - Tmp2__='Outf='+Eqvec__; - deff(Tmp1__,Tmp2__); - Y0n__=[]; - for I__=1:size(Y0__,1) - Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)]; - end; - end; - if X0__<=X1__ - X__=X1__:dX__:X2__; - Y__=ode(Y0p__,X0__,X__,Dfp__); - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - if X2__<=X0__ - X__=(-X2__):dX__:(-X1__); - Y__=ode(Y0n__,-X0__,X__,Dfn__); - X__=-X__; - M__=min(size(X__,2),size(Y__,2)); - if Dim__>1 - PL__=Y__'; - P__=PL__(1:M__,:); - else - P__=[X__(:,1:M__);Y__(1,1:M__)]'; - end; - return; - end; - XP__=X0__:dX__:X2__; - YP__=ode(Y0p__,X0__,XP__,Dfp__); - M__=min(size(XP__,2),size(YP__,2)); - XP__=XP__(:,1:M__); - YP__=YP__(:,1:M__); - XN__=(-X0__)+dX__:dX__:(-X1__); - YN__=ode(Y0n__,-X0__,XN__,Dfn__); - M__=min(size(XN__,2),size(YN__,2)); - XN__=XN__(:,1:M__); - YN__=YN__(:,1:M__); - XN__=-XN__; - XN__=XN__(length(XN__):-1:1); - YN__=YN__(:,size(YN__,2):-1:1); - if Dim__>1 - P__=[YN__';YP__'] - else - X__=[XN__,XP__]; - Y__=[YN__(1,:),YP__(1,:)]; - P__=[X__;Y__]'; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin deleted file mode 100644 index c30c8ae4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci deleted file mode 100644 index cbffc3d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci +++ /dev/null @@ -1,64 +0,0 @@ -// 09.10.04 -// 09.10.05 -// 09.10.06 -// 14.10.24 numderivative used after 5.5 - -function Out=Derivative(varargin) - Nargs=length(varargin); - Out=[]; - Fs=varargin(1); - Vv=varargin(2); - Np=3; - if type(Vv)==10 - Prstr=strsubst(Vv,'[','('); - Prstr=strsubst(Prstr,']',')'); - Tmp=part(Prstr,1); - if Tmp~='(' - Prstr='('+Prstr+')'; - end; - deff('Out=Tmpfun'+Prstr,'Out='+Fs); - Fs='Tmpfun'+Prstr; - Vv=varargin(Np); - Np=Np+1; - end; - Nd=[]; - if Np<=Nargs - Nd=varargin(Np); - end; - Js=mtlb_findstr(Fs,'('); - JL=mtlb_findstr(Fs,','); - Je=mtlb_findstr(Fs,')'); - Sep=[Js(1),JL,Je]; - Fse=Fs; - for I=1:length(Vv) - J1=Sep(I)+1; - J2=Sep(I+1)-1; - Tmp1=part(Fs,J1:J2); - Tmp2='X_'+string(I); - Fse=strsubst(Fse,Tmp1,Tmp2); - end; - function Ans=Tmpf(W) - X1=W(1); - if length(W)>1 - X2=W(2); - else; - X2=%inf; - end; - if length(W)>2 - X3=W(3); - else - X3=%inf; - end; - Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3); - Ans=evstr(Tmp)'; - endfunction; - Tmp1=getversion("scilab"); - if Tmp1(1)*10+Tmp1(2)>=55 then - Out=numderivative(Tmpf,Vv')'; - else - Out=derivative(Tmpf,Vv')'; - end - if Nd~=[] - Out=Out(Nd,:) - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin deleted file mode 100644 index 6f9d2eaf..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci deleted file mode 100644 index b6a53b62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.03.28 - -function Out=Diagcelldata(Tb,Nc,Nr) - Tmp=Findcell(Tb,Nc,Nr); - C=Tmp(1); - Dx=Tmp(2); - Dy=Tmp(3); - Pne=C+[Dx,Dy]; - Pnw=C+[-Dx,Dy]; - Psw=C+[-Dx,-Dy]; - Pse=C+[Dx,-Dy]; - Tmp1=Listplot(Pnw,Pse); - Tmp2=Listplot(Pne,Psw); - Out=list(Tmp1,Tmp2); -endfunction; \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin deleted file mode 100644 index 76090b77..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci deleted file mode 100644 index be16b473..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 11.01.07 - -function OutL=Dividegraphics(Pd) - if length(Pd)==0 - OutL=Pd; - return; - end; - DtL=Flattenlist(Pd); - OutL=list(); - for J=1:length(DtL) - Dt= DtL(J); - Ndm=Dataindex(Dt); - for I=1:size(Ndm,1) - Fd=Dt(Ndm(I,1):Ndm(I,2),:); - OutL($+1)=Fd; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin deleted file mode 100644 index f65a407d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci deleted file mode 100644 index 36531da2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 13.05.03 - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin deleted file mode 100644 index 921b0546..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci deleted file mode 100644 index 5054faf2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 09.12.25 - -function Out=Doscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=G; - if LOGX==1 - GLg=[log10(G(:,1)),GLg(:,2)]; - end; - if LOGY==1 - GLg=[GLg(:,1),log10(G(:,2))]; - end; - Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin deleted file mode 100644 index 9b3d417e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci deleted file mode 100644 index fc2847c7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 08.05.31 -// 10.01.01 -// 10.03.07 (Kosa ) - -function ShaL=Dotfilldata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - Nargs=length(varargin); - ShaL=[]; - Eps=0.01; - Kakudo=45; - Kosa=0.5; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N1 - 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=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)0 - for J=1:length(Sha) - Tmp=Op(J,Sha); - Q=Tmp(1,:); - R=Tmp(2,:); - Tmp=Dotprod(Q-P,V)/Kankaku; - K1=ceil(Tmp); - if abs(K1-Tmp)1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - PPd=[]; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - PPd=[PPd;P]; - if I==Nten-1 - if norm(P-Data(1,:))80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - end - end; - if Mojisu>0 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin deleted file mode 100644 index 5576b57e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci deleted file mode 100644 index c4d9b86a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci +++ /dev/null @@ -1,115 +0,0 @@ -// 08.05.21 -// 08.11.26 - -function Dottedline(varargin) - global Wfile FID MilliIn; - Nall=length(varargin); - Nagasa=0.1; - Ookisa=0.02*0.5; - I=Nall; - Tmp=varargin(I); - while type(Tmp)==1 & length(Tmp)==1 - I=I-1; - Tmp=varargin(I); - end - if I==Nall-1 - Nagasa=Nagasa*varargin(Nall); - Nall=Nall-1; - end - if I==Nall-2 - Nagasa=Nagasa*varargin(Nall-1); - Ookisa=Ookisa*varargin(Nall); - Nall=Nall-2; - end - Nagasa=1000/2.54/MilliIn*Nagasa; - Ookisa=1000/2.54/MilliIn*Ookisa; - CL=[]; - Nk=4; - Tmp=Framedata([0,0],Ookisa/2); - CL=Tmp; - for N=1:Nall - Pdata=varargin(N); - if Mixtype(Pdata)==1 - Pdata=MixS(Pdata); - end - for II=1:Mixlength(Pdata) - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Len=0; - Lenlist=[0]; - for I=2:size(Data,1) - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(length(Lenlist)); - if Lenall==0 - continue - end - Naga=Nagasa; - Nten=round(Lenall/Naga)+1; - if Nten>1 - Seg=Lenall/(Nten-1); - else - Seg=Lenall; - end - Eps=10^(-6)*Seg; - Hajime=1; - for I=0:Nten-1 - Len=Seg*I; - if I>0 - J=Hajime; - while Len>=Lenlist(J)+Eps - J=J+1; - end - Hajime=J-1; - end - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)... - -Data(Hajime,:)); - if I==Nten-1 - if Vecnagasa(P-Data(1,:))80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - Str='\special{sh 1}'+'\special{fp}%' - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end - end - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin deleted file mode 100644 index 14cf5d76..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci deleted file mode 100644 index 3a06be00..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.10 -// 08.09.15 -// 08.10.10 -// 10.09.03 - -function OutL=Dropnumlistcrv(QdL,Eps) - Eps0=10^(-6); // - if Mixtype(QdL)==1 - PdL=list(QdL); - else - PdL=QdL; - end; - OutL=[]; - for I=1:Mixlength(PdL) - Pd=Op(I,PdL); - PtL=[1]; - P=Pd(1,:); - for K=2:size(Pd,1)-1 // - if norm(P-Pd(K,:))>Eps - PtL=[PtL,K]; - P=Pd(K,:); - end; - end; - // PtL=[PtL,size(Pd,1)]; - K=size(Pd,1) // - if norm(P-Pd(K,:))>Eps0 // - PtL=[PtL,K]; // - end; // - if length(PtL)==1 - PtL=[]; - end; - OutL=Mixadd(OutL,PtL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin deleted file mode 100644 index 155b2072..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci deleted file mode 100644 index 84fd6daa..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci +++ /dev/null @@ -1,28 +0,0 @@ -// 08.10.07 -// 08.10.27 -// 09.06.02 - -function AnsL=Droppoint(varargin) - Nargs=length(varargin); - Curve=varargin(1); - Eps=0.02; - if Nargs>=2 - Eps=varargin(2); - end; - AnsL=[%inf,%inf]; - for I=1:size(Curve,1) - P=Curve(I,:); - if P(1)~=%inf - Tmp=AnsL(size(AnsL,1),:); - if norm(P-Tmp)>Eps - AnsL=[AnsL;P]; - end; - else - AnsL=[AnsL;%inf,%inf]; - end; - end; - AnsL=AnsL(2:size(AnsL,1),:); - Tmp=Ptend(Curve); - AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp]; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin deleted file mode 100644 index 86d3110c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci deleted file mode 100644 index 60f0da1a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci +++ /dev/null @@ -1,66 +0,0 @@ -// 08.05.21 -// 11.05.25 - -function Drwline(varargin) - global Wfile FID MilliIn PenThick PenThickInit; - Nall=length(varargin); - Thick=PenThick; - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Setpen(Tmp); - Nall=Nall-1; - end; - for N=1:Nall - Tmp=varargin(N); - Pdata=Flattenlist(Tmp); - for II=1:length(Pdata) //11.05.25 - Clist=MakeCurves(Op(II,Pdata)); - DinM=Dataindex(Clist); - for n=1:size(DinM,1) - Tmp=DinM(n,:); - Data=Clist(Tmp(1):Tmp(2),:); - Mojisu=0; - Tmp=Data(1,:); - for I=1:size(Data,1) - Tmp=Data(I,:); - X=sprintf('%5.5f',Tmp(1)); - Y=sprintf('%5.5f',Tmp(2)); - Pt='('+X+','+Y+')'; - if I==1 then - Str='\polyline'+Pt; - else - Str=Pt; - end - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end - Mojisu=0; - end - end - if Mojisu~=0 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end; - end; - end; - if Wfile=='default' - mprintf('%c\n','%'); - else - mfprintf(FID,'%c\n','%'); - end; - end; - Setpen(Thick/PenThickInit); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin deleted file mode 100644 index 02e88bd7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci deleted file mode 100644 index 5df4a877..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci +++ /dev/null @@ -1,142 +0,0 @@ -// -// 08.05.31 -// 09.12.25 -// 10.01.01 -// 11.05.26 (for pdflatex) - -function Drwpt(varargin) - global Wfile FID TenSize TenSizeInit MilliIn; - Nargs=length(varargin); - All=Nargs; - Tmp=varargin(All); - Iro=[0,0,0,1]; - Iroflg=0; - if type(Tmp)==10 then - Iro=Ratiocmyk(Tmp); - Iroflg=1; - All=All-1; - end - Tmp=varargin(All); - Kosa=1; - if type(Tmp)==1 & length(Tmp)==1 - Kosa=Tmp; All=All-1; - end; - Ra=TenSize*1000/2.54/MilliIn; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Kosa*Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end; - Mojisu=0; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end - end; - Str=""; - if Iroflg>0 - Str='}'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - Mojisu=0; - if Iroflg>0 - Str='{\color[cmyk]{'; - for J=1:4 - Str=Str+string(Iro(J)); - if J<4 then - Str=Str+','; - end - end - Str=Str+'}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end; - Mojisu=0; - end; - for II=1:All - Tmp=varargin(II); - MS=Flattenlist(Tmp); // 11.05.29 - for I=1:length(MS); - P=Op(I,MS); - if InWindow(P)~='i' - continue - end - P=Doscaling(P); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end - end - end - Str="%"; - if Iroflg>0 - Str='}%'; - end; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin deleted file mode 100644 index 6d275fab..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci deleted file mode 100644 index b091754f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci +++ /dev/null @@ -1,17 +0,0 @@ -function Drwxy(varargin) - global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE - global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN; - Nargs=length(varargin) - Tmp=mtlb_findstr(ZIKU,'arrow'); - if Tmp~=[] - Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE); - Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE); - else - Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)])); - Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX])); - end; - Letter([XMAX,GENTEN(2)],XPOS,XNAME); - Letter([GENTEN(1),YMAX],YPOS,YNAME); - Letter(GENTEN,OPOS,ONAME); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin deleted file mode 100644 index e3e99cfd..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci deleted file mode 100644 index 9b67e366..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 09.11.21 -// 09.11.26 - -function Out=Embed(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - if Mixtype(Pd3)==1 - Pd3=list(Pd3); - elseif Mixtype(Pd3)==3 - Tmp=list(); - for I=1:length(Pd3) - Tmp=Mixjoin(Tmp,Pd3(I)); - end; - Pd3=Tmp; - end; - Tmpf=varargin(2); - if type(Tmpf)==10 - Tmp=varargin(3); - Tmp1=strsubst(Tmp,'[','('); - Vstr=strsubst(Tmp1,']',')'); - deff('Z=Tmpfn'+Vstr,'Z='+Tmpf); - else - Tmpfn=Tmpf; - end; - Out=list(); - for I=1:length(Pd3) - PD=Pd3(I); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Tmpfn(P(1),P(2)); - Ans=[Ans;Tmp]; - end; - Out($+1)=Ans; - end; - if length(Out)==1 - Out=Out(1); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin deleted file mode 100644 index 6a5a9096..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci deleted file mode 100644 index bfc191b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 08.05.31 -// 10.12.04 -// 16.12.05 to make it a closed curve - -function AnsL=Enclosing(varargin) - global MilliIn; - Eps=10^(-7); // 12.05 - Nargs=length(varargin); - P=varargin(1); - if Mixtype(P)==2 - Tmp=Op(1,P); - if type(Tmp)~=1 | length(Tmp)~=1 - AnsL=EnclosingS(P,varargin(2:Nargs)); - AnsL=Joincrvs(AnsL) // 10.12.04 - end - end; - Tmp1=Op(1,AnsL); - Tmp2=Op(size(AnsL,1),AnsL); - if norm(Tmp2-Tmp1)>Eps then // 12.05 - AnsL=[AnsL;Tmp1]; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin deleted file mode 100644 index a5f0596e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci deleted file mode 100644 index cded7ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci +++ /dev/null @@ -1,126 +0,0 @@ -// 08.05.31 -// 08.11.12 -// 09.10.12 -// 09.10.14 -// 15.04.10 - -function AnsL=EnclosingS(varargin) - global MilliIn; - Nargs=length(varargin); - AnsL=[]; - PdataL=varargin(1); - Nall=length(PdataL); - Eps=10^(-3); - EEps=0.1; - S=[]; - Flg=0; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - S=Tmp; - end - if type(Tmp)==1 & length(Tmp)==1 - if Flg==0 - Eps=Tmp; - Flg=Flg+1 - else - EEps=Tmp - end - end - end - 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); - end - 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); - end - end - if length(KL)>1 // 15.04.10 - if S==[] - disp('No Start Point'); - return - end; - Tmp=Op(1,KL); - P=Op(1,Tmp); - T1=Op(2,Tmp); - Tmp=norm(P-S); - for I=2:length(KL) - Tmp1=Op(1,Op(I,KL)); - Tmp2=norm(Tmp1-S); - if Tmp21 P=Q;end - 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; - end - if length(KL)==0 Flg=1; end - if length(KL)>=2 // Maple bug? - Tmp1=Op(1,Op(1,KL)); - Tmp2=Op(1,Op(2,KL)); - Tmp=norm(Tmp1-Tmp2); - if TmpNumptcrv(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; - end - end - if Flg<10 - T2=%inf; - for I=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=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp1__=Mixop(3,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__); //17.05.21 - Dv__=(V2__-V1__)/(Ndv__); //17.05.21 - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v1__=v__-Eps__/2; v2__=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpv__=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmpv__,Uname__,'u1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpv__,Uname__,'u2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__; - u1__=u__-Eps__/2; u2__=u__+Eps__/2; - Tmpu__=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmpu__,Vname__,'v1__'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmpu__,Vname__,'v2__'); - P2__=evstr(Tmp__); - Tmp1__=Parapt(P1__); - Tmp2__=Parapt(P2__); - Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__; - Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin deleted file mode 100644 index 775dd55e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci deleted file mode 100644 index 15ddd0a8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci +++ /dev/null @@ -1,77 +0,0 @@ -// 08.09.21 -// 13.11.01 ( __ added to varibles ) - -function [Zval__,Xval__,Yval__]=Evlptablepers(MS__) - Nargs__=Mixlength(MS__); - Eps__=10^(-3); - Tmp__=Mixop(1,MS__); - FdL__=Fullformfunc(Tmp__); - Mdv__=50; - Ndv__=50; - if Nargs__>=2 - Tmp__=Mixop(2,MS__); - if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end; - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==2 - Ndv__=Mdv__ - else - Tmp__1=Mixop(3,MS__); - if type(Tmp__1)==1 & length(Tmp__1)==1 - Ndv__=Tmp__1; - else - Ndv__=Mdv__; - end - end - end - end; - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__))); - U1__=Urange__(1); U2__=Urange__(2); - V1__=Vrange__(1); V2__=Vrange__(2); - Du__=(U2__-U1__)/(Mdv__-1); - Dv__=(V2__-V1__)/(Ndv__-1); - Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)]; - I__=1; - Zval__=[]; - for v__=V1__:Dv__:V2__ - v__1=v__-Eps__/2; v__2=v__+Eps__/2; - ZuL__=[]; - for u__=U1__:Du__:U2__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__v=strsubst(Xyzstr__,Vname__,'v__'); - Tmp__=strsubst(Tmp__v,Uname__,'u__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__v,Uname__,'u__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__; - u__1=u__-Eps__/2; u__2=u__+Eps__/2; - Tmp__u=strsubst(Xyzstr__,Uname__,'u__'); - Tmp__=strsubst(Tmp__u,Vname__,'v__1'); - P1__=evstr(Tmp__); - Tmp__=strsubst(Tmp__u,Vname__,'v__2'); - P2__=evstr(Tmp__); - Tmp__1=Perspt(P1__); - Tmp__2=Perspt(P2__); - Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__; - Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__; - Tmp__=Dxu__*Dyv__-Dxv__*Dyu__; - ZuL__=[ZuL__,Tmp__]; - end; - Zval__=[Zval__;ZuL__]; - end; - Yval__=V1__:Dv__:V2__; - Xval__=U1__:Du__:U2__; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin deleted file mode 100644 index 44e39527..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci deleted file mode 100644 index 2a4d1491..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.16 -// 10.02.24 - -function Execmd(StrL) - for I=1:length(StrL) - execstr(Op(I,StrL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin deleted file mode 100644 index b58e53fd..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci deleted file mode 100644 index 5b9df24b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Expr(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - 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 mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin deleted file mode 100644 index 17904d7a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci deleted file mode 100644 index d51dfa91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Exprrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu='$'+varargin(N)+'$'; - Tv=1/norm(V)*V; - Nv=[-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,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin deleted file mode 100644 index 5095cc06..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci deleted file mode 100644 index ae0bea54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci +++ /dev/null @@ -1,78 +0,0 @@ -// 09.10.29 -// 10.02.07 debugged - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CLadd)// - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin deleted file mode 100644 index ea9738c8..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci deleted file mode 100644 index 7dc8bef1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci +++ /dev/null @@ -1,81 +0,0 @@ -// NEW -// Faceremovaldata -// 09.10.24 -// 09.10.26 -// 09.10.27 - -function NohiddenL=Faceremovaldata(FL,CLadd,PT) - global PHHIDDENDATA VELNO VELHI; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - VELNO=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - VELHI=list(); - Out=MakeveLfaceL(FL); - FaceL=Out(2); - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin deleted file mode 100644 index 84ab9833..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci deleted file mode 100644 index 0ed2f249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci +++ /dev/null @@ -1,154 +0,0 @@ -///////// -// 09.10.29 -// 11.01.13 (HiddenL) remodified 110122 -// 13.03.30 (HiddenL) debugged 140330 - -function NohiddenL=Facesdata(varargin) - global PHHIDDENDATA VELNO VELHI; - Nargs=length(varargin); - FL=varargin(1); - PT=varargin($); - if mtlb_findstr(PT,'para')~=[] - Ptype=1; //para - else - Ptype=-1; //pers - end; - if Nargs==2 - CLadd=list(); - else - CLadd=varargin(2); - end; - NohiddenL=list(); - HiddenL=list(); - Eps=10^(-4); - if length(CLadd)>0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - Ntmp=length(VELNO); // - VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); // - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi2(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - EdgeL=list(); // from 13.03.30 - for K=1:length(VELHI) - Edge=Op(1,VELHI(K)); - P=Edge(1); Q=Edge(2); - if norm(P-Q)>Eps then - EdgeL($+1)=Edge; - end - end - for K=1:length(EdgeL) - Edge=EdgeL(K); // - P=Edge(1); Q=Edge(2); - Cflg=0; - for J=K+1:length(EdgeL) - Ej=EdgeL(J); // - Pj=Ej(1); Qj=Ej(2); - if norm(Crossprod(Q-P,Qj-Pj))>Eps then - continue - end - if norm(Q-Pj)0 -// Lr=[]; -// Edge=Op(1,VELHI(L(1))); // -// P=Edge(1); -// Q=Edge(2); -// -// disp([293,P,Q]) -// -// if norm(P-Q)>Eps -// for J=2:length(L) -// Rflg=0; -// Ej=Op(1,VELHI(L(J))); // -// Pj=Ej(1); -// Qj=Ej(2); -// if norm(Crossprod(Q-P,Qj-Pj))>Eps -// Lr=[Lr,J]; -// continue; -// end; -// if norm(Q-Pj)0 - if type(CLadd)==1 - C=list(); - if size(CLadd,1)>1 - for I=1:size(CLadd,1) - C($+1)=CLadd(I,:); - end; - else - for I=1:3:size(CLadd,2) - C($+1)=CLadd(1,I:I+2); - end; - end; - CrvL=list(C); - elseif type(CLadd(1))==1 - CrvL=list(); - for J=1:length(CL) - Ctmp=CLadd(J); - C=list(); - if size(Ctmp,1)>1 - for I=1:size(Ctmp,1) - C($+1)=Ctmp(I,:); - end; - else - for I=1:3:size(Ctmp,2) - C($+1)=Ctmp(1,I:I+2); - end; - end; - CrvL($+1)=C; - end; - else - CrvL=CLadd; - end; - else - CrvL=list(); - end; - Out=MakeveLfaceL(FL); - VELNO=Out(1); - VELHI=list(); - for I=1:length(CrvL) - Tmp=CrvL(I); - for J=1:length(Tmp)-1 - Edge=list(Tmp(J),Tmp(J+1)); - VELNO($+1)=list(Edge,0); - end; - end; - FaceL=Out(2); - if mtlb_findstr(PT,'raw')==[] - for Nf=1:length(FaceL) - Face=FaceL(Nf); - Menkakusi(Face,Nf,Ptype); - end; - end; - for I=1:length(VELNO) - Edge=Op(1,VELNO(I)); - if norm(Edge(1)-Edge(2))>Eps - NohiddenL($+1)=Spaceline(Edge); - end; - end; - for I=1:length(VELHI) - Edge=Op(1,VELHI(I)); - if norm(Edge(1)-Edge(2))>Eps - HiddenL($+1)=Spaceline(Edge); - end; - end; - PHHIDDENDATA=HiddenL; -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin deleted file mode 100644 index ade40fbf..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci deleted file mode 100644 index 062fcc5c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci +++ /dev/null @@ -1,127 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.14 -// 10.01.12 -// 10.01.13 -// 10.01.14 - -function Out=Findcell(varargin)//TbL,Nrg,Mrg - Nargs=length(varargin); - TbL=varargin(1); - Ag=varargin(2); - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - if type(Ag)==10 - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - else - Rstr=Rstr+C; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - Mrg=eval(Rstr); - if Nargs>=3 - Ag=varargin(3); - Clm=[]; - Rstr=''; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp]; - else - Rstr=Rstr+C; - end; - end; - Nrg2=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg2=Nrg2+Tmp*26^Tmp1; - end; - Nrg=[Nrg,Nrg2]; - Mrg=[Mrg,eval(Rstr)]; - end; - else - Nrg=varargin(2); - Mrg=varargin(3); - end; - if length(Mrg)==1 - m1=Mrg; m2=m1+1; - else - m1=Mrg(1); m2=Mrg(2); - end; - if length(Nrg)==1 - n1=Nrg; n2=n1+1; - else - n1=Nrg(1); n2=Nrg(2); - end; - n1=n1+1; n2=n2+1; - m1=m1+1; m2=m2+1; - Hind=TbL(2); - Vind=TbL(3); - HL=Mixsub(TbL(2),TbL(1)); - Tmp1=Op(1,TbL(4)); - Tmp2=Op(2,TbL(4)); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - VL=Mixsub(TbL(3),TbL(1)); - Tmp1=Op(1,TbL(5)); - Tmp2=Op(2,TbL(5)); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=TbL(6); - Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]); - Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]); - HL=Mixjoin(list(Tmp1),HL,list(Tmp2)); - Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]); - Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]); - VL=Mixjoin(list(Tmp1),VL,list(Tmp2)); - Tmp=HL(n1); - if type(Tmp)==1 - H1=Tmp(1,1); - else - Tmp1=Tmp(1); - H1=Tmp1(1,1); - end; - Tmp=HL(n2); - if type(Tmp)==1 - H2=Tmp(1,1); - else - Tmp1=Tmp(1); - H2=Tmp1(1,1); - end; - Tmp=VL(m1); - if type(Tmp)==1 - V1=Tmp(1,2); - else - Tmp1=Tmp(1); - V1=Tmp1(1,2); - end; - Tmp=VL(m2); - if type(Tmp)==1 - V2=Tmp(1,2); - else - Tmp1=Tmp(1); - V2=Tmp1(1,2); - end; - Pt=[(H1+H2)/2,(V1+V2)/2]; - High=(V1-V2)/2; - Wide=(H2-H1)/2; - Out=list(Pt,Wide,High); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin deleted file mode 100644 index 31e5d594..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci deleted file mode 100644 index 903679ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 10.11.13 - -function Out=Flattenlist(varargin) - Out=list(); - for N=1:length(varargin) - D=varargin(N); - if type(D)~=15 - Out($+1)=D; - else - for I=1:length(D) - Ds=D(I); - Tmp=Flattenlist(Ds); - Out=lstcat(Out,Tmp); - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin deleted file mode 100644 index 10387e38..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci deleted file mode 100644 index 218b599f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci +++ /dev/null @@ -1,54 +0,0 @@ -function Fontsize(Ookisa) - global Wfile FID; - Str='%'; - Ucode=ascii(Ookisa); - S=char(Ucode(1)); - if S=='n' - Str='\normalsize%'; - end - if S=='s' - if length(Ucode)==1 - Tmp=''; - else - Tmp=char(Ucode(2)); - end - if Tmp=='s' - Str='\scriptsize%'; - else - Str='\small%'; - end - end - if S=='f' - Str='\footnotesize%'; - end - if S=='t' - Str='\tiny%'; - end - if S=='l' - Str='\large%'; - end - if S=='L' - if length(Ucode)==1 - Tmp='a'; - else - Tmp=char(Ucode(2)); - end - if Tmp=='a' - Str='\Large%'; - else - Str='\LARGE%'; - end - end - if S=='h' - Str='\huge%'; - end - if S=='H' - Str='\Huge%'; - end - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin deleted file mode 100644 index e718a4ba..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci deleted file mode 100644 index af259244..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 09.03.13 - -function Out=Fouriercoeff(Fn,T,Ch,K) - Eps=10^(-5); - L=T/2; - Tmp1='Out=FUNC(x)'; - if Ch=='c' - Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)'; - else - Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)'; - end; - deff(Tmp1,Tmp2); - Out=10*intg(-0.1,0.1,FUNC); - if K==0 - Out=Out/2; - end; - if abs(Out)1 - BdyL__=Tmp__; - end; - end; - Tmp__=MixS(DrwS__,BdyL__); - Out__=Mixjoin(Out__,Tmp__); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin deleted file mode 100644 index 5ada2529..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci deleted file mode 100644 index 3d17995e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci +++ /dev/null @@ -1,11 +0,0 @@ -function G=Gaiseki(a,b) - if length(a)==3 - Tmp=[a(2)*b(3)-a(3)*b(2),... - a(3)*b(1)-a(1)*b(3),... - a(1)*b(2)-a(2)*b(1)]; - else - Tmp=a(1)*b(2)-a(2)*b(1); - end; - G=Tmp; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin deleted file mode 100644 index 9dbd0923..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci deleted file mode 100644 index ca4e0d2a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Getcounter() - global GCOUNTER; - Out=GCOUNTER; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin deleted file mode 100644 index b99800fe..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci deleted file mode 100644 index 5395d885..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Out=Gettrace(); - global TRACEDATA; - Out=TRACEDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin deleted file mode 100644 index d688039f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci deleted file mode 100644 index 236287ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci +++ /dev/null @@ -1,141 +0,0 @@ -// 08.05.21 -// 09.10.05 -// 09.12.25 -// 10.01.20 -// 10.02.01 -// 10.11.04 ( debugged 83 ) - -function ShaLs=Hatchdata(varargin) - global XMIN XMAX YMIN YMAX MilliIn; - ShaL=[]; - Nargs=length(varargin); - Kakudo=45; - Kankaku=0.125*1000/2.54/MilliIn; - Tmp=Doscaling([XMIN,YMIN]); - Xmn=Tmp(1); Ymn=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - Xmx=Tmp(1); Ymx=Tmp(2); - for N=Nargs:-1:1 - Tmp=varargin(N); - if Mixtype(Tmp)~=1 - break - end - end - if N0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((XMAX-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=ArgsL(N); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt,GENTEN(2)); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X,Y+MARKLEN]); - Tmp2=Unscaling([X,Y-MARKLEN]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,'s',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'s')~=[] - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X,Y+MARKLEN]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin deleted file mode 100644 index 6334287e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci deleted file mode 100644 index ae02fee1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci +++ /dev/null @@ -1,9 +0,0 @@ -// 08.09.10 -// 08.09.16 -// 08.10.10 (Name) - -function Out=ImplicitData() - global IMPLICITDATA - Out=IMPLICITDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin deleted file mode 100644 index 6336bf4c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci deleted file mode 100644 index b0715484..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci +++ /dev/null @@ -1,61 +0,0 @@ -// 08.09.09 -// 08.09.20 -// 13.10.19 ( __ added to variables ) - -function Out__=Implicitplot(varargin) - Eps__=10^(-4); - Nargs__=length(varargin); - Fstr__=varargin(1); - if Mixtype(Fstr__)~=1 - MS__=Fstr__; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - elseif type(Fstr__)==10 - MS__=[]; - for I__=1:Nargs__ - MS__=Mixadd(MS__,varargin(I__)); - end; - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - else - Zval__=varargin(1); - Xval__=varargin(2); - Yval__=varargin(3); - end; - Out__=[]; - for J__=1:length(Yval__)-1 - for I__=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__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - if abs(VL__(K__))<=Eps__ - QL__=[QL__;PL__(K__,:)]; - elseif 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__=[QL__;Tmp__]; - end - else - if VL__(K__+1)>Eps__ - Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)... - - VL__(K__)*PL__(K__+1,:)); - QL__=[QL__;Tmp__]; - end; - end; - end; - if size(QL__,1)==2 - Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)]; - end; - end; - end; - Out__=Out__(2:size(Out__,1),:); - if size(Out__,1)>0 - Out__=Connectseg(Out__); - else - Out__=[]; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin deleted file mode 100644 index da2db1f4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci deleted file mode 100644 index 9dacd30c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci +++ /dev/null @@ -1,11 +0,0 @@ -function Rx=InWindow(PA) - global XMIN XMAX YMIN YMAX - Eps=10.0^(-6); - X=PA(1); Y=PA(2); - if X>XMIN-Eps & XYMIN-Eps & Y3 - Es=varargin(4); - end; - Er=1d-8; - if Nargs>4 - Er=varargin(5); - end; - Out=0; - Na=1; - while Na2 - Eps=varargin(3) - end - SqEps=10.0^(-10); - Eps2=0.1; - if Nargs>3 - Eps2=varargin(4) - end - Data1=G1; - Data2=G2; - if size(Data1,1)==size(Data2,1) - Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07 - Eps0=10^(-6); - Tmp2=norm(Data1-Data2); - Tmp3=norm(Data1-Tmp1); - if Tmp20 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - Tmp=MixS(P,I+T,J); - KL=MixL(Tmp); - end - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if Vecnagasa2(P-Op(1,Tmp))=3 - Tmp=varargin(3); - if type(Tmp)==10 - Uveq=Tmp; - N=4; - end; - end; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Out=[]; - for I=1:Numptcrv(Crv)-1 - PtA=Ptcrv(I,Crv); - PtB=Ptcrv(I+1,Crv); - if norm(PtB-PtA)1 - Eps=varargin(2) - end - Eps0=10.0^(-5); - Eps2=0.01; -// if Nargs>2 -// Eps2=varargin(3) -// end; - Data1=G1; - KL1=[]; - KL2=[]; - for I=1:size(Data1,1)-2 - A=Data1(I,:); - B=Data1(I+1,:); - Is=I+2; - Tmp=Data1(Is,:); - while norm(Tmp-B)0 - Tmp=Op(1,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp2=MixS(P,S,I); - KL=MixL(Tmp); - KL=Mixadd(KL,Tmp2); - end; - for N=2:Mixlength(KL1) - Tmp=Op(N,KL1); - P=Op(1,Tmp); - T=Op(2,Tmp); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Tmp=MixS(P,I+T,J); - Tmp1=MixS(P,S,I); - KL=Mixadd(KL,Tmp); - KL=Mixadd(KL,Tmp1); - end - for N=1:Mixlength(KL2) - Tmp=Op(N,KL2); - P=Op(1,Tmp); - T=Op(2,Tmp); - T=min(max(T,0),1); - I=Op(3,Tmp); - J=Op(4,Tmp); - S=ParamonCurve(P,J,Data1); - Flg=0; - for K=1:Mixlength(KL) - Tmp=Op(K,KL); - if norm(P-Op(1,Tmp))0 // 2013.10.19 - Tmp1=varargin(Nall-1); - if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19 - Sen=Tmp1; Gap=Tmp; - Nall=Nall-2; - else - Sen=Tmp; Gap=Sen; - Nall=Nall-1; - end - end - Sen=1000/2.54/MilliIn*Sen; - Gap=1000/2.54/MilliIn*Gap; - for N=1:Nall - Tmp=varargin(N); - Fdata=Flattenlist(Tmp); - for I=1:length(Fdata); - Figdata=Fdata(I); - Makehasen(Figdata,Sen,Gap,1); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin deleted file mode 100644 index 2e870385..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci deleted file mode 100644 index 9f9f9d95..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 08.05.31 - -function OutL=Invert(Pd) - OutL=Pd(size(Pd,1):-1:1,:); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin deleted file mode 100644 index c92f5024..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci deleted file mode 100644 index 4d7863b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci +++ /dev/null @@ -1,50 +0,0 @@ -// 08.07.11 -// 08.08.17 -// 09.10.31 -// 09.11.12 - -function Out=Invparapt(varargin) - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & size(Tmp)==1 - 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 - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - 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); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin deleted file mode 100644 index 073bbdca..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci deleted file mode 100644 index c2c35355..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.08.12 -// 09.10.31 -// 09.11.12 - -function Out=Invperspt(varargin) - global FocusPoint EyePoint; - Eps=10^(-4); - Fk=varargin($); - NFk=Numptcrv(Fk) - Tmp=varargin(1); - if type(Tmp)==1 & 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 - disp('Not on the line'); - Out=[]; - return; - else - Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12 - end; - end; - end; - if NFk>2 - N=Trunc(Ph); - S0=Ph-N; - if Ph>Numptcrv(Fh)-Eps - Out=list(Ptend(Fk),Numptcrv(Fh)); - return; - end; - else - N=1; - S0=Ph-1; // 09.11.12 - end; - 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([Ph,0]); - Ahc=Cancoordpers([Ah,0]); - Bhc=Cancoordpers([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); - elseif abs(Cp(2))==Mx - T2=Nmr(2)/Cp(2); - else - T2=Nmr(3)/Cp(3); - end; - Pk=(1-T2)*Ak+T2*Bk; - Out=list(Pk,N+T2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin deleted file mode 100644 index b44d17eb..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci deleted file mode 100644 index 04aaf4eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.31 -// 08.08.22 -// 08.09.14 -// 08.09.20 -// 08.10.27 -// 11.06.25 - -function PtL=Joincrvs(varargin) - Nall=length(varargin); - Eps=10^(-4); - Tmp=varargin(Nall); - if type(Tmp)==1 & length(Tmp)==1 - Eps=Tmp; - Nall=Nall-1; - end; - QdL=list(); - for I=1:Nall - QdL($+1)=varargin(I); // 11.06.25 - end; - QdL=Flattenlist(QdL); // 11.06.25 - if length(QdL)==0 - PtL=[]; - return; - end; - PtL=[Mixop(1,QdL)]; - for I=2:Mixlength(QdL) - Qd=QdL(I); - if Numptcrv(Qd)<=1 // 11.06.25 - continue; - end; - 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); - elseif MN==norm(S-Q) - PtL=Invert(PtL); - elseif MN==norm(S-R); - PtL=Invert(PtL); - Qd=Invert(Qd); - end; - if MN>Eps - PtL=[PtL;Qd]; - else - PtL=[PtL;Qd(2:size(Qd,1),:)]; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin deleted file mode 100644 index c7b88175..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci deleted file mode 100644 index 78cd46e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci +++ /dev/null @@ -1,26 +0,0 @@ -// 11.11.02 (for list structure) - -function P=Joingraphics(varargin) - Ls=Flattenlist(varargin); - N=length(Ls); - Tp=Ls(N); - Listflg=0; - if type(Tp)==10 - Tmp=part(Tp,1); - if Tmp=="L"|Tmp=="l" - Listflg=1 - end; - N=N-1; - Ls=Mixsub(1:N,Ls); - end; - if Listflg==1 - P=Ls - else - P=[]; - for I=1:N - Tmp=Ls(I); - P=[P;%inf,%inf;Tmp]; - end; - P=P(2:size(P,1),:) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin deleted file mode 100644 index 140d9028..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci deleted file mode 100644 index bbe02e62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci +++ /dev/null @@ -1,57 +0,0 @@ -// 08.07.08 PHI,THETA,FocusPoint,EyePoint; -// 08.08.08 -// 08.08.31 -// 08.09.18 -// 09.10.09 ASSIGNLIST -// 09.12.25 SCALING -// 10.04.16 TEXFOR -// 13.05.19 funcprot(0) -// 13.03.05 MARKLEN instead of MEMORI - -function Ketinit() - global THISVERSION - global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX - global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE - global ULEN MilliIn PenThick PenThickInit ZIKU - global MEMORI MEMORIInit MEMORINow GENTEN - global MARKLEN MARKLENInit MARKLENNow - global YaSize YaAngle YaPosition YaThick YaStyle - global PHI THETA FocusPoint EyePoint ASSIGNLIST - global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST - funcprot(0); // 2013.05.19 - Setversion(); - 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; - TenSize=TenSizeInit; - Wfile='default'; - MEMORI=0.05; - MEMORIInit=MEMORI; - MEMORINow=MEMORI; - MARKLEN=0.05; - MARKLENInit=MARKLEN; - MARKLENNow=MARKLEN; - GENTEN=[0,0]; - YaSize=1; YaAngle=18; YaPosition=1; - YaThick=1; YaStyle='tf'; - PHI=30*%pi/180; - THETA=60*%pi/180; - FocusPoint=[0,0,0]; - EyePoint=[5,5,5]; - ASSIGNLIST=list('`',char(39)); - SCALEX=1; - SCALEY=1; - LOGX=0; - LOGY=0; - TEXFORLEVEL=0; - TEXFORLAST=list(); - endfunction; - \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin deleted file mode 100644 index f5871542..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci deleted file mode 100644 index c12b721e..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 09.06.01 (same as 05.19) - -function Out=Kouten(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=[%inf,-%inf]; - return - end - D=U1*V2-U2*V1; - if abs(D)/Tmp1+Eps | S<-Eps - Out=[%inf,-%inf]; - return - end - T=((-A2+P2)*U1+(A1-P1)*U2)/D; - Tmp=PA+T*V; - Out=MixS(T,Tmp,sign(D)); -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin deleted file mode 100644 index f5b67546..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci deleted file mode 100644 index 82cf1e2c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.18 -// 08.05.20 -// 08.06.02 - -function TenL=KoutenList(PA,V,Bdy) - Eps=10.0^(-6); - TenL=[]; - for N=1:Mixlength(Bdy) - KL=Op(N,Bdy); - for K=1:size(KL,1)-1 - P=KL(K,:); Q=KL(K+1,:); - if P~='/' & Q~='/' - Tmp=Kouten(PA,V,P,Q); - if Tmp~=[%inf,-%inf] - Ten=Mixadd(Tmp,N); - Flg=0; - NN=Mixlength(TenL); - I=1; - while Flg==0 & I<=NN - Tmp=Op(I,TenL); - if Op(1,Ten)=5 - Eps=varargin(5); - end - Eps2=0.2; - if Nargs>=6 - Eps2=varargin(6); - end - 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) - Out=[%inf,-%inf]; - return - end - if (max(P2,Q2)M2) - Out=[%inf,-%inf]; - return - end - if P2*Q2<0 - T=P1-(Q1-P1)/(Q2-P2)*P2; - if (T>m1) & (T-Eps0) & (T<1+Eps0) - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,0); - else - Tmp1=A+T*V; - Tmp2=min(max(T,0),1); - Out=MixS(Tmp1,Tmp2,1); - end - return - end - if P1M1 | P2M2 - if Q1M1 | Q2M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0 - T= P1; - Tmp=A+T*V; - Out= MixS(Tmp, T, 0); - return - end - if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0 - T= Q1; - Tmp=A+T*V; - Out=MixS(Tmp,T,0); - return - end - if P1M1 | P2M2 - if Q1M1 | Q2M2 - Out=[%inf,-%inf]; - return - end - T=min(max(Q1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if Q1M1 | Q2M2 - T=min(max(P1,0),1); - Tmp=A+T*V; - Out=MixS(Tmp,T,1); - return - end - if abs(P2)T2+Eps - Tmp=[T2,Ku(2)]; - Res=[Res;Tmp]; - end; - end; - elseif Flg==1 - if Ku(2)Eps - QL=[Pt1]; - end - QL=[QL;PL(N1+1:N2,:)]; - if Vecnagasa(Pt2,PL(N2,:))>Eps - QL=[QL;Pt2]; - end - HidariL=QL; - Ms=M2+1; Me=M1; - if T1Eps - HidariL=[HidariL;P]; - end - end - Tmp=HidariL(size(HidariL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - HidariL=[HidariL;Pt1]; - end - MigiL=QL; - Ms=M2; Me=M1+1; - if T1>T2-Eps Me=Me-4; end; - for M=Ms:-1:Me - Tmp=MigiL(size(MigiL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - MigiL=[MigiL;P] - end - end - Tmp=MigiL(size(MigiL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - MigiL=[MigiL;Pt1]; - end - Out=MixS(HidariL,MigiL); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin deleted file mode 100644 index a45aa2e3..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci deleted file mode 100644 index a07a89d1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci +++ /dev/null @@ -1,30 +0,0 @@ -function Kyorihensuu(varargin) - if length(varargin)==0 - FL='default'; - else - FL=varargin(1); - if FL=='' - FL='tmp.tex' - end - end - StrM=[... - '\newlength{\Width}%',... - '\newlength{\Height}%',... - '\newlength{\Depth}%'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin deleted file mode 100644 index 07c938a3..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci deleted file mode 100644 index 4090c2da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.18 -// 08.05.19 -// 08.05.20 -// 08.05.30 -// 08.09.19 -// 08.10.26 -// 09.01.15 "e" -// 09.05.18 -// 09.12.05 -// 16.11.03 Eps=10^(-5) -// 16.12.05 Eps=10^(-7) - -function PLall=Kyoukai(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Eps0=10^(-7); - DataL=[]; - for I=1:Nargs - Tmp=varargin(I); - if Mixtype(Tmp)==1 - Tmp1=MixS(Tmp); - DataL=Mixadd(DataL,Tmp1); - end - if Mixtype(Tmp)==2 - DataL=Mixadd(DataL,Tmp); - end - if Mixtype(Tmp)==3 - DataL=Mixjoin(DataL,Tmp); - end - end; - Eps=10.0^(-4); - PLall=[]; - Sflg=0; - N=Mixlength(DataL); - for I=1:N - Data=Op(I,DataL); - Tmp=Op(Mixlength(Data),Data); - if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1 - Rg=Tmp ; Nd=Mixlength(Data)-1; - elseif type(Tmp)==10 - Rg=Tmp ; Nd=Mixlength(Data)-1; - else - Rg='c' ; Nd=Mixlength(Data); - end; - for J=1:Nd - Tmp=Op(J,Data); - if type(Tmp)==10 - Rg=Tmp; - continue - end - Points=Tmp; - P1=Ptstart(Points); - P2=Ptend(Points); - if J==1 - PL=Points; - Pfirst=P1; - Plast=P2; - if Nd>=2 - Tmp=Op(2,Data); - P=Ptstart(Tmp); - Q=Ptend(Tmp); - if norm(P2-P)>Eps & norm(P2-Q)>Eps - Tmp=size(PL,1); - PL=PL(Tmp:-1:1,:); - Pfirst=Ptstart(PL); - Plast=Ptend(PL); - end; - end - else - if norm(P1-Plast)Eps - Np=size(PL,1); - if Rg=='c' - PL=[PL;Pfirst]; - elseif Rg=='s' - Tmp=[PL(1:Np,2);YMIN]; - Y=min(Tmp)-1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='n' - Tmp=[PL(1:Np,2);YMAX]; - Y=max(Tmp)+1; - P=[Plast(1),Y]; Q=[Pfirst(1),Y]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='w' - Tmp=[PL(1:Np,1);XMIN]; - X=min(Tmp)-1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif Rg=='e' - Tmp=[PL(1:Np,1);XMAX]; - X=max(Tmp)+1; - P=[X,Plast(2)]; Q=[X,Pfirst(2)]; - PL=[PL;P;Q;Pfirst]; - elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1 - Tmp=Kukeiwake(PL); //Modified from here - Tmp1=Op(1,Tmp); - Tmp2=Naigai(Rg,Mix(Tmp1)); - if Tmp2==[1] - PL=Op(1,Tmp); - else - PL=Op(2,Tmp); // to here - end - end - end - Tmp=[Ptstart(PL)]; - for J=2:size(PL,1) - P=PL(J,:); - Q=Tmp(size(Tmp,1),:); - if norm(P-Q)>Eps then - Tmp=[Tmp;P]; - end - end - PL=Tmp; - PLall=Mixadd(PLall,PL); - end - if Mixlength(PLall)==1 & Sflg==0 - Tmp=Op(1,PLall); -// Tmp=Op(1,Tmp); - if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0 - Tmp=[Tmp;Ptstart(Tmp)]; - PLall=MixS(Tmp); - end - end; -endfunction; - - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin deleted file mode 100644 index 41551ef5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci deleted file mode 100644 index 7a7a4b78..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci +++ /dev/null @@ -1,100 +0,0 @@ -// -// 09.12.25 - -function Letter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - 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 mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; Y=Y+MEMORI; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; Y=Y-MEMORI; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; X=X+MEMORI; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; X=X-MEMORI; - end - Hoko=Vhoko+Hhoko; - Suu='+-.0123456789'; - SuuL=Suu; - Hcode=ascii(Houkou); - J=1; Dstr=''; - while J<=length(Houkou) - Tmp=char(Hcode(J)); - if mtlb_findstr(SuuL,Tmp)~=[] - if Dstr=='' - Hk=char(Hcode(J-1)); - end - Dstr=Dstr+Tmp; - else - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - Dstr=''; - end - end - J=J+1; - end - if Dstr~='' - Nmbr=msscanf(Dstr,'%f'); - D=Nmbr*MEMORI; - if Hk=='n' - Y=Y+D; - end - if Hk=='s' - Y=Y-D; - end - if Hk=='e' - X=X+D; - end - if Hk=='w' - X=X-D; - end - end - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}'; - if Wfile=='default' - mprintf('%s','\put('); - mprintf('%6.4f%s%6.4f',X,',',Y); - mprintf('%s%s\n',Str,'%'); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s','\put('); - mfprintf(FID,'%6.4f%s%6.4f',X,',',Y); - mfprintf(FID,'%s%s\n',Str,'%'); - mfprintf(FID,'%s\n','%'); - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin deleted file mode 100644 index 53dcb238..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci deleted file mode 100644 index f99917cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.05.31 -// 08.08.24 -// 09.12.25 - -function Letterrot(varargin) - global MEMORI; - P=varargin(1); - V=varargin(2); N=3; - P=Doscaling(P); - V=Doscaling(V); - Tmov=0; - Tmp=varargin(N); - if type(Tmp)==1 - Tmov=Tmp; N=N+1; - end - Nmov=0; - Tmp=varargin(N); - if type(Tmp)==1 then - Nmov=Tmp; N=N+1; - end - Mojiretu=varargin(N); - Tv=1/Vecnagasa(V)*V; - Nv=[-Tv(2),Tv(1)]; - P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv; - Tmp=acos(V(1)/Vecnagasa(V)); - Theta=round(Tmp*180/%pi); - if V(2)>=0 - Units=''; - else - Units='units=-360,'; - end - Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta); - Tmp=Tmp+'}{'+Mojiretu+'}'; - Letter(P,"c",Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin deleted file mode 100644 index 3acfa7aa..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci deleted file mode 100644 index bc44c2e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 09.10.09 -// 09.10.12 -// 09.11.01 -// 09.11.12 -// 09.12.06 -// 10.12.04 - -function Out=Lineplot(varargin) - Nargs=length(varargin); - A=varargin(1); - if type(A)==1 // 09.11.12 from - 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; - end; - else - B=A(2); - A=A(1); - Is=2; - end; // upto - Mag=100; Semi=''; - for I=Is:Nargs - Tmp=varargin(I); - select type(Tmp) - case 1 - Mag=Tmp; - case 10 - Semi=Tmp; - end; - end; - V= Mag/norm(B-A)*(B-A) // 10.12.04 from here - if Semi=="" - Out=Listplot(A-V,A+V) - elseif Semi=="+" - Out=Listplot(A,A+V) - else - Out=Listplot(A-V,A) - end // 10.12.04 to here -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin deleted file mode 100644 index e2ea3688..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci deleted file mode 100644 index 0bc9f736..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci +++ /dev/null @@ -1,24 +0,0 @@ -// -// 08.07.13 -// 09.06.13 - -function Z=Listplot(varargin) - Z=[]; - for I=1:length(varargin) - Data=varargin(I); - if Mixtype(Data)==1 - if size(Data,1)==1 - Tmp=matrix(Data,2,size(Data,2)/2); - Z=[Z;Tmp']; - else - Z=[Z;Data]; - end; - else - for J=1:Mixlength(Data) - Tmp=Mixop(J,Data); - Z=[Z;Tmp]; - end - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin deleted file mode 100644 index 10970e3d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci deleted file mode 100644 index 27e70d48..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci +++ /dev/null @@ -1,49 +0,0 @@ -// -// 08.08.24 -// 10.01.02 - -function Out=MakeBowdata(PA,PB,H) - global BOWSTART BOWEND - BOWSTART=PA; - BOWEND=PB; - Eps=10^(-5); - D=1/2*Vecnagasa(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=Tmp(2); C2=Tmp(3); - Det=sqrt(C1^2-4*C0*C2); - Ansx1=(-C1+Det)/(2*C2); - Ansx2=(-C1-Det)/(2*C2); - Tmp=horner(y,Ansx1); - PC=[Ansx1,Tmp]; - Tmp=horner(y,Ansx2); - PC2=[Ansx2,Tmp]; - else - Tmp=0.5*(PA+PB); - PC=Tmp+[0,R-H]; - PC2=Tmp-[0,R-H]; - end; - VA=PA-PC; - VB=PB-PC; - if VA(1)*VB(2)-VA(2)*VB(1)<0 - PC=PC2; - end - AngA=acos((PA(1)-PC(1))/R); - if PA(2)-PC(2)<0 - AngA=-AngA; - end - AngB=acos((PB(1)-PC(1))/R); - if PB(2)-PC(2)<0 - AngB=-AngB; - end - if AngA>AngB - AngB=AngB+2*%pi; - end - Out=Mixmake(PC,R,AngA,AngB); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin deleted file mode 100644 index 1e4a9df1..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci deleted file mode 100644 index f3bbd3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci +++ /dev/null @@ -1,62 +0,0 @@ -// -// 09.12.25 -// 10.01.01 -// 10.12.02 ( debugged for norm()==0 ) - -function Outdata=MakeCurves(varargin) - Figdata=varargin(1); - Ptout=1; - if length(varargin)>=2 - Ptout=varargin(2); - end - Eps=10.0^(-6); - IndM=Dataindex(Figdata); - Atos=[]; - for Nd=1:size(IndM,1) - Tmp=IndM(Nd,:); - Motos=Figdata(Tmp(1):Tmp(2),:); - All=size(Motos,1); - if size(Motos,1)==1 - if InWindow(Motos)=='o' - continue; - end; - if Ptout==1 - Drwpt(Motos(1,:)); - else - Atos=[Atos;%inf,%inf;Doscaling(Motos)]; - end - continue - end - Crv=[]; - for I=2:All - P=Motos(I-1,:); - Q=Motos(I,:); - Snbn=MeetWindow(P,Q); - if Snbn==[] - if Crv~=[] - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - Crv=[]; - end - else - if norm(Snbn(1,:)-Snbn(2,:))=2 - Atos=[Atos;%inf,%inf;Doscaling(Crv)]; - end - end - Outdata=Atos(2:size(Atos,1),:); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin deleted file mode 100644 index 8d2516c2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci deleted file mode 100644 index 81b0492f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.09.19 -// 08.10.15 -// 08.12.21 - -function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) - if CutuvL==[] - if Mixtype(Out1)==1 - AnsL=Mix(Out1); - else - AnsL=Out1; - end; - return; - end; - AnsL=[]; - ParL=Partitionseg(Out1,CutuvL,Eps); - Flg=0; - for J=1:length(ParL)-1 - Tmp=(ParL(J)+ParL(J+1))*0.5; - Tmp=PointonCurve(Tmp,Out1); - Tmp1='('+string(Tmp(1))+')'; - Tmp2='('+string(Tmp(2))+')'; - Tmp=strsubst(Uveqstr,Uname,Tmp1); - Tmp=strsubst(Tmp,Vname,Tmp2); - Tmp=evstr(Tmp); - if Tmp>0 - if Flg==0 - P1=ParL(J); - end; - Flg=1 - else - if Flg==1 - P2=ParL(J); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; - Flg=0 - end; - end; - if Flg==1 - P2=ParL(length(ParL)); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin deleted file mode 100644 index b2f34062..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci deleted file mode 100644 index 3f768e87..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci +++ /dev/null @@ -1,123 +0,0 @@ -// -// 11.05.26 (for pdflatex) - -function Makehasen(Figdata,Sen,Gap,Ptn) - global Wfile FID; - Eps=10.0^(-6); - Clist=MakeCurves(Figdata); - DinM=Dataindex(Clist); - for N=1:size(DinM,1) - Tmp=DinM(N,:); - Data=Clist(Tmp(1):Tmp(2),:); - Dtall=size(Data,1); - Len=0; - Lenlist=[0]; - for I=2:Dtall - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(Dtall); - if Lenall==0 - continue - end - Kari=(Sen+Gap)*0.1; - Naga=Sen*0.1; - Tobi=Gap*0.1; - if Vecnagasa(Data(1,:)-Data(Dtall,:))=Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1; - end - Hajime=J-1; - J=Hajime; - while Len+Naga>Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1 - end - Owari=J-1; - T=(Len-Lenlist(Hajime))... - /(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='('+X0+','+Y0+')'; - Str='\polyline'+Pt0; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - for J=Hajime+1:Owari - P=Data(J,:); - X=sprintf('%5.5f',P(1)); - Y=sprintf('%5.5f',P(2)); - Pt='('+X+','+Y+')'; - Str=Pt; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Pt0=Pt; - Mojisu=Mojisu+length(Str); - end; - T=(Len+Naga-Lenlist(Owari))... - /(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='('+string(X)+','+string(Y)+')'; - Str=Pt; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end; - Mojisu=0; - end - end - end - if Wfile=='default' - mprintf('%s\n%s\n','%','%'); - else - mfprintf(FID,'%s\n%s\n','%','%'); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin deleted file mode 100644 index 1c9d8f4d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci deleted file mode 100644 index e9915e1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.10.21 - -function Out=Makeliststr(L) - Out='list('; - for I=1:length(L) - Dt=L(I); - if type(Dt)==1 - if length(Dt)==1 - Dts=string(Dt); - else - Dts='['; - for J=1:size(Dt,1) - for K=1:size(Dt,2) - Dts=Dts+string(Dt(J,K)); - if K1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Eq__='('+string(Fugou__)+')*('+Eq__+')'; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Op(5,Fd__L); - Tmp__2=Op(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:length(CutuvL__) - Out__1=Op(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end; - Tmp__=mtlb_findstr(DrwS__,'e'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'n'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'w'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Tmp__=mtlb_findstr(DrwS__,'s'); - if length(Tmp__)~=0 - Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1))); - Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for I__=1:length(Tmp__L) - Out__1=Op(I__,Tmp__L); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixjoin(EkL__,list(Tmp__)); - end - end; - Fbdxy__=[]; - for I__=1:length(EkL__) - Out__1=Op(I__,EkL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__=Out__1(J__,1:2); - Out__2=[Out__2,Tmp__]; - end; - Tmp__=Listplot(Out__2); - Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__)); - end; - if PT__=='pers' - [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__)); - end; - if PT__=='para' - [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__)); - end; - Mixdisp(Mix('Ridge Equation obtained ',timer())); - Out__2=Implicitplot(Zval__,Xval__,Yval__); - IMPLICITDATA=Out__2; - Tmp__L=[]; - for I__=1:length(Out__2) - Tmp__1=Op(I__,Out__2); - Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1)); - for J__=1:length(Tmp__) - Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__)); - end; - end; - Out__3=Tmp__L; - IMPLICITDATA=Out__3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - if PT__=='pers' - Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1)); - end; - if PT__=='para' - Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1)); - end; - CUSPDATA=Out__4; - CUSPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - FkL__=Mixjoin(EkL__,Out__4); - if PT__=='pers' - Fall__=Projpers(FkL__); - end; - if PT__=='para' - Fall__=Projpara(FkL__); - end; - if HT__=='raw' - Mixdisp(Mix('BorderData obtained ',timer())); - FsL__=FkL__; - return; - end; - BORDERPT=[]; - Tmp__=[]; - for I__=1:length(Fall__) - Tmp__=Mixjoin(Tmp__,list([])); - end; - OTHERPARTITION=Tmp__; - FsL__=[]; - BORDERHIDDENDATA=[]; - for I__=1:length(Fall__) - if PT__=='pers' - Tmp__=Projpers(Op(I__,FkL__)); - end; - if PT__=='para' - Tmp__=Projpara(Op(I__,FkL__)); - end; - ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); - if length(PARTITIONPT)>2 - Tmp__=length(PARTITIONPT)-1; - Tmp__1=BORDERPT; - for J__=2:Tmp__ - Tmp__2=Op(J__,PARTITIONPT); - Tmp__1=Mixjoin(Tmp__1,list(Tmp__2)); - end; - BORDERPT=Tmp__1; - end; - if PT__=='pers' - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2); - end; - else - if Fxy__=='p' - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); - else - Tmp__1=Op(I__,FkL__); - Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__); -// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__); -// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2); - end; - end; - BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA); - FsL__=Mixjoin(FsL__,Tmp__); - end; - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin deleted file mode 100644 index c4f4d4c5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci deleted file mode 100644 index 443751be..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.05.20 -// 09.10.05 -// 10.01.20 -// 10.02.01 - -function Out=Makeshasen(PtnL,PA,V,Bdy) - Eps=10.0^(-6); - TenL=KoutenList(PA,V,Bdy); - Nten=length(TenL); - Call=length(Bdy); - Ptn=zeros(1,Call); - Out=list(); - GL=[] - Te=-10.0^6; - for I=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=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - if Op(1,TenQ)-Ts>Eps - if Member(Ptn,PtnL) - if abs(Te-Ts)>Eps - if GL~=[] - J=length(Out); - Out(J+1)=GL; - end; - Tmp=Listplot(P,Q); - GL=Tmp; - else - GL=[GL;Q]; - end - Te=Op(1,TenQ); - end - end - end - if size(GL,1)>0 - Out=Mixjoin(Out,list(GL)) - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin deleted file mode 100644 index 102b44b6..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci deleted file mode 100644 index 99ad5910..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci +++ /dev/null @@ -1,171 +0,0 @@ -// 08.07.13 -// 08.10.16 -// 09.03.05 -// 09.05.12 -// 10.05.09 -// 14.07.05 -// 16.12.24 ( when kukanL=[] ) - -function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(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^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R=ClipL(I,5); - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin deleted file mode 100644 index 0082bcd5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci deleted file mode 100644 index 4838d658..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci +++ /dev/null @@ -1,188 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.05.12 -// 09.09.25 -// 10.05.09 -// 10.08.17 -// 14.07.05 - -function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2) - Eps=10.0^(-3); - Dmat=[]; - Dind=[]; - for I=1:Mixlength(Plt2L) - Dt=Mixop(I,Plt2L); - N1=size(Dmat,1)+1; - Dmat=[Dmat;Dt]; - N2=size(Dmat,1); - Dind=[Dind;N1,N2]; - end; - Nind=size(Dind,1); - Allres=[]; - for Nobj=1:Mixlength(Obj2L) - Plt2=Mixop(Nobj,Obj2L); - PhL=Plt2(:,1:2); - ClipL=[]; - for Ns=1:size(PhL,1)-1 - P1=PhL(Ns:Ns+1,:); - for I=1:size(Dind,1) - Tmp=Dmat(Dind(I,1):Dind(I,2),:); - P2=Tmp(:,1:2); - KC=IntersectcrvsPp(P1,P2,Eps); - if Mixlength(KC)>0 - for J=1:Mixlength(KC) - P=Mixop(1,Mixop(J,KC)); - Tmp=Mixop(2,Mixop(J,KC)); - if Tmp<1+Eps & Ns==1 // 2010.05.09 - continue; - end; - if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1 - continue; - end; // - N1=Ns; - N2=Mixop(3,Mixop(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)1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T1,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end; - 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)1-Eps - Pk=Pkb; - else - Tmp1=Listplot([Pa,Pb]); - Tmp2=Spaceline([Pka,Pkb]); - Tmp=Invperspt(1+T2,Tmp1,Tmp2); - Pk=Mixop(1,Tmp); - end - Z2=Zperspt(Pk); - if Z1Eps^2 - Tmp1=P1(2,:)-P1(1,:); - Tmp2=Pb-Pa; - Tmp3=Naiseki(Tmp1,Tmp2); - Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2); - Tmp=1-0.5*Tmp3^2; - ClipL=[ClipL;P,N1,T1,R0/Tmp]; - end; - end; - end; - end; - end; - end; - Te=size(Plt2,1); - KukanL=[1.0,Te]; - P1=PhL; - if size(ClipL,1)>0 - for I=1:size(ClipL,1) - P=ClipL(I,1:2); - NN=ClipL(I,3); - T=NN+ClipL(I,4); - R= ClipL(I,5); // 10.08.17 - Flg=0; - for J=NN:-1:1 - Q=PointonCurve(J,P1); - if norm(P-Q)Eps - Tmp=PointonCurve(T2,P1); - PtL=Mixadd(PtL,Tmp); - end; - Res=Mixadd(Res,Listplot(PtL)); - end; - Allres=Mixjoin(Allres,Res); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin deleted file mode 100644 index 37e149ff..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci deleted file mode 100644 index dc917f30..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci +++ /dev/null @@ -1,79 +0,0 @@ -// 08.09.09 -// 08.10.08 -// 08.12.06 -// 08.12.30 -// 09.06.03 -// 13.10.19 ( __ added to variables ) - -function [Zval__,Xval__,Yval__]=Makevaltable(MS__) - Eps__=10^(-6); - Nargs__=Mixlength(MS__); - Fstr__=Mixop(1,MS__); - Tmp__=Mixop(2,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,Tmp1__-1); - Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=Mixop(3,MS__); - Tmp1__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,Tmp1__-1); - Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__))); - Tmp__=strsubst(Fstr__,Xname__,'x'); - Fstr__=strsubst(Tmp__,Yname__,'y'); - Tmp__=mtlb_findstr(Fstr__,Xname__); - if length(Tmp__)==0 - Fstr__=Fstr__+'+0*x'; - end; - Mdv__=50; - Ndv__=50; - if Nargs__>=4 - Tmp__=Mixop(4,MS__); - if length(Tmp__)>1 - Mdv__=Tmp__(1,1); - Ndv__=Tmp__(1,2); - else - Mdv__=Tmp__ - if Nargs__==4 - Ndv__=Mdv__ - else - Tmp1__=Mixop(5,MS__); - if type(Tmp1__)==1 & length(Tmp1__)==1 - Ndv__=Tmp1__; - else - Ndv__=Mdv__; - end - end - end - end - X1__=Xrange__(1); X2__=Xrange__(2); - Y1__=Yrange__(1); Y2__=Yrange__(2); - Dx__=(X2__-X1__)/(Mdv__-1); - Dy__=(Y2__-Y1__)/(Ndv__-1); - Xval__=[]; - Tmp__=X1__; - while Tmp__0 - FnL=Tmp(2); - FaceL=list(); - for I=1:length(FnL) - Tmp1=FnL(I); - PtL=list(); - for J=1:length(Tmp1) - Tmp2=Tmp1(J); - PtL(J)=VL(Tmp2); - end; - FaceL(I)=PtL; - end; - else - FaceL=list(Tmp(2)); - end; - for I=1:length(FaceL) - Face=FaceL(I); - Face($+1)=Face(1); - FL($+1)=Face; - for J=1:length(Face)-1 - Edge=list(Face(J),Face(J+1)); - Flg=0; - for K=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 Tmp20 - haba=varargin(1); - if Nargs>=2 - FL=varargin(2); - if FL=='' - FL='tmp.tex' - end - end - end - StrM=[ - '\begin{mawarikomi}%',... - '%<1>[5](0,0)%',... - '{'+haba+'}{%',... - '',... - '}',... - '',... - '',... - '\end{mawarikomi}'... - ]; - if FL~='default' - Fid=mopen(FL,'w'); - mprintf('%s\n\n','Writing to '+FL); - end; - for I=1:size(StrM,2) - Str=StrM(I); - mprintf('%s\n',Str); - if FL~='default' - mfprintf(Fid,'%s\n',Str); - end - end - if FL~='default' - mclose(Fid); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin deleted file mode 100644 index 78d328fc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci deleted file mode 100644 index 65f543ea..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci +++ /dev/null @@ -1,91 +0,0 @@ -// -// 08.05.30 debugged -// 08.08.14 (horner) -// 09.12.31 (gsort) -// 15.10.23 ( horner not used ) -// 16.12.29 (msprintf("%3.10f",..) used ) - -function R=MeetWindow(PA,PB) - global XMIN XMAX YMIN YMAX - if InWindow(PA)=='i' & InWindow(PB)=='i' - R=[PA;PB]; - return - end; - Eps=10.0^(-6); - t=poly(0,'T'); - PT="(1-(t))*PA+(t)*PB"; - 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)); - end - if PA(2)~=PB(2) - Tym=(YMIN-PA(2))/(PB(2)-PA(2)); - TyM=(YMAX-PA(2))/(PB(2)-PA(2)); - end; -// Tmp=horner(PT(2),Txm); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if TmpYMAX+Eps - Txm=-1; - end -// Tmp=horner(PT(2),TxM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(2); - if TmpYMAX+Eps - TxM=-1 - end -// Tmp=horner(PT(1),Tym); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if TmpXMAX+Eps - Tym=-1 - end -// Tmp=horner(PT(1),TyM); - Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM)); - Tmp1=evstr(Tmp1) - Tmp=Tmp1(1); - if TmpXMAX+Eps - TyM=-1 - end - Tmp=gsort([Txm,TxM,Tym,TyM]); - Tans=Tmp(length(Tmp):-1:1); - Tmp=[]; - for I=1:length(Tans) - Tmp1=Tans(I); - if Tmp1>-Eps & Tmp1<1+Eps - if length(Tmp)==0 - Tmp=[Tmp1]; - elseif abs(Tmp(length(Tmp))-Tmp1)>Eps - Tmp=[Tmp,Tmp1] - end - end - end - Tans=Tmp; - if length(Tans)==0 - R=[]; - return; - end - if length(Tans)==1 -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) - if InWindow(PA)=='i' - R=[PA;Ten1]; - return; - else - R=[Ten1;PB]; - return - end - end -// Ten1=horner(PT,Tans(1)); - Tmp1=strsubst(PT,"t",string(Tans(1))); - Ten1=evstr(Tmp1) -// Ten2=horner(PT,Tans(2)); - Tmp1=strsubst(PT,"t",string(Tans(2))); - Ten2=evstr(Tmp1) - R=[Ten1;Ten2]; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin deleted file mode 100644 index ebe3ead9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci deleted file mode 100644 index 65ba1166..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci +++ /dev/null @@ -1,169 +0,0 @@ -// 08.10.24 -// 08.10.25 -// 08.10.26 -// 09.12.31 (gsort) -// 13.10.22 ( __ added to varibles ) -// 13.12.02 debugged - -function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__) - Eps__0=10^(-4); - Vec__=PtB__-PtA__; - Out__=[]; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,Fd__L); - Vrg__str=Mixop(6,Fd__L); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - for J=1:length(Yval__)-1 - for I=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__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv__1; - else - Pt__=P2__; Ptuv__=Puv__2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Naiseki(Pt__-PtA__,Vec__); - Tmp__1=Tmp__1/norm(Vec__)^2; - if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0 - Out__=[Out__,Tmp__1]; - end; - end; - end; - end; - if length(Out__)>0 - Out__=gsort(Out__); - Out__=Out__(length(Out__):-1:1); - Tmp__=[Out__(1)]; - for I__=2:length(Out__) - Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__; - Tmp__1=norm(Tmp__1); - if Tmp__1>Eps__ - Tmp__=[Tmp__,Out__(I__)]; - end; - end; - Out__=Tmp__; - for I__=1:length(Out__) - Tmp__=PtA__+Out__(I__)*Vec__; - PtL__=Mixadd(PtL__,Tmp__); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin deleted file mode 100644 index 711c4fc4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci deleted file mode 100644 index 79826f90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.05.18 - -// Structure changed -// 09.10.11 - -function TF=Member(A,L) - if Mixtype(L)>1 - N=Mixlength(L); - else - N=length(L); - end - for I=1:N - Tmp=Op(I,L); - if A==Tmp - TF=%t - return - end - end - TF=%f -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin deleted file mode 100644 index 9cb3477e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci deleted file mode 100644 index de8d4b0d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci +++ /dev/null @@ -1,206 +0,0 @@ -// 08.08.21 -// 09.10.24 -// 09.10.26 - -function Menkakusi(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 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - Flg=0; - for I=1:Mixlength(VL)-1 - Tmp=VL(I+1)-VL(I); - if norm(Tmp)-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Tmp>1-Eps - if Ng1==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out2L($+1)=list(Edge,Ne,Nenm); - end; - end; - continue; - end; - if Ng1==0 & Ng2==0 - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp1=KL(1); - Tmp1=Tmp1(1); - if Ptype==-1 - Tmp=Invperspt(Tmp1,Spaceline(Edge)); - else - Tmp=Invparapt(Tmp1,Spaceline(Edge)) - end; - Ak=Tmp(1); - if Ng1==1 - Tmp1=Edge(1)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Ak,Edge(2)); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Edge(1),Ak); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - if Ng2==1 - Tmp1=Edge(2)-Face(1); - Tmp1=Dotprod(Tmp1,Vec); - if Tmp1>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Tmp2=list(Edge(1),Ak); - Out1L($+1)=list(Tmp2,Ne,Nenm); - Tmp2=list(Ak,Edge(2)); - Out2L($+1)=list(Tmp2,Ne,Nenm); - end; - end; - end; - end; - if Mixlength(KL)==2 - Tmp1=KL(1); - Tmp1=Tmp1(2); - Tmp2=KL(2); - Tmp2=Tmp2(2); - if Tmp1>Tmp2 - KL=list(KL(2),KL(1)); - end; - Tmp=Spaceline(Edge); - Tmp1=KL(1); - Tmp1=Tmp1(1); - Tmp2=KL(2); - Tmp2=Tmp2(1); - if Ptype==-1 - Ak=Mixop(1,Invperspt(Tmp1,Tmp)); - Bk=Mixop(1,Invperspt(Tmp2,Tmp)) - else - Ak=Mixop(1,Invparapt(Tmp1,Tmp)); - Bk=Mixop(1,Invparapt(Tmp2,Tmp)) - end; - Tmp1=(Ak+Bk)*0.5-Face(1); - Tmp=Dotprod(Tmp1,Vec); - if Tmp>-Eps - Out1L($+1)=list(Edge,Ne,Nenm); - else - Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm); - Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm); - Out2L($+1)=list(list(Ak,Bk),Ne,Nenm); - end; - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin deleted file mode 100644 index e8361324..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci deleted file mode 100644 index 43eab74b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci +++ /dev/null @@ -1,186 +0,0 @@ -// 09.10.29 -// 09.11.15 -// 10.08.17 debug (line 66) - -function Menkakusi2(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)1-Eps // P3, Q3 are necessary - Flg=I; - break; - end; - if abs(Te-Ts)>Eps0 // - if modulo(I,2)==1 - Out1($+1)=list(Pe3,P3); - else - if Qe3==[] - Tmp=Op(2,TenL(I-1)); - if Ptype==-1 - Tmp1=Invperspt(Tmp,Spaceline(Face)); - else - Tmp1=Invparapt(Tmp,Spaceline(Face)); - end; - Qe3=Tmp1(1); - end; - 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); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,P3); - else - Out2($+1)=list(Pe3,P3); - end; - end; - end; - Te=Ts; Pe3=P3; Qe3=Q3; - end; - if Flg==0 - if norm(Pe3-Edge(2))>Eps0 - Out1($+1)=list(Pe3,Edge(2)); - end; - else - if modulo(Flg,2)==1 - Out1($+1)=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); - end; - if Z1>Z2 - Out1($+1)=list(Pe3,Edge(2)); - else - Out2($+1)=list(Pe3,Edge(2)); - end; - end; - end; - for I=1:length(Out1) - Tmp=Out1(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))0 - Out1L($+1)=list(SeL,Ne,NNe); - end; - for I=1:length(Out2) - Tmp=Out2(I); - if I==1 - SeL=Tmp; - else - if norm(SeL(2)-Tmp(1))0 - Out2L($+1)=list(SeL,Ne,NNe); - end; - end; - VELNO=Out1L; - VELHI=Out2L; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin deleted file mode 100644 index acc02ec0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci deleted file mode 100644 index 4f06c437..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.20 -// 08.08.08 - -// Structure changed -// 09.10.11 - -function M=Mix(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin deleted file mode 100644 index 50f6189c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci deleted file mode 100644 index daf5a2d9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function M=MixL(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin deleted file mode 100644 index 2372bb1f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci deleted file mode 100644 index 623af493..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 08.05.19 - -//Structure Changed - -// 09.10.11 - -function M=MixS(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Da=varargin(I); - M(I)=Da; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin deleted file mode 100644 index 0dbd5427..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci deleted file mode 100644 index 8d45fea1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci +++ /dev/null @@ -1,23 +0,0 @@ -// 05.14 Data Structure -// 05.16 List of MixList -// 05.19 use:MixS, MixL, Mixtype -// 08.08.17 - -// Structure changed -// 09.10.11 - -function M=Mixadd(varargin) - Nargs=length(varargin); - M=list(); - Tmp=varargin(1); - if length(Tmp)==0 - M(1)=varargin(2); - else - M=Tmp; - M($+1)=varargin(2); - end; - for I=3:Nargs - M($+1)=varargin(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin deleted file mode 100644 index 45325b78..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci deleted file mode 100644 index 2fed1197..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.02 - -function Mixdisp(L) - if Mixtype(L)==1 - disp(L) - return; - end; - Str=Makeliststr(L); - disp(Str) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin deleted file mode 100644 index 6ed0a2a6..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci deleted file mode 100644 index d6e49c14..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.18 -// 08.05.19 Changed -// 08.08.15 - -// Structure changed -// 09.10.11 - -function M=Mixjoin(varargin) - Nargs=length(varargin); - M=list(); - for I=1:Nargs - Tmp=varargin(I); - if length(Tmp)==0 - continue; - end; - if Mixtype(Tmp)==1 - Tmp=list(Tmp); - end; - if length(M)==0 - M=Tmp; - else - M=lstcat(M,Tmp); - end; - end; - if length(M)==0 - M=[]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin deleted file mode 100644 index b601884d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci deleted file mode 100644 index 6fd31749..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.14 Data Structure -// 08.05.23 Debugged - -// Structure changed -// 09.10.11 - -function Out=Mixlength(PL) - if PL==[] - Out=0; - return - end - if Mixtype(PL)==1 - Out=size(PL,1); - else - Out=length(PL); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin deleted file mode 100644 index c607a109..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci deleted file mode 100644 index 7f05a2ab..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function PL=Mixmake(varargin) - PL=list(); - for I=1:length(varargin) - Tmp=varargin(I); - PL=Mixadd(PL,Tmp); - end -endfunction - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin deleted file mode 100644 index 9aa1f9f1..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci deleted file mode 100644 index 10c846dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci +++ /dev/null @@ -1,22 +0,0 @@ -// 08.05.14 Data Structure -// 08.04.15 List ex N=1:3 -// 08.05.16 List of MixL -// 08.05.18 Debugged -// 08.05.19 Changed -// 08.08.17 - -// Structure changed -// 09.10.11 - -function D=Mixop(N,PL) - D=[]; - if Mixtype(PL)==1 - D=PL; - return; - end; - if type(N)~=1 | length(N)>1 | N>Mixlength(PL) - return - end; - D=PL(N); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin deleted file mode 100644 index e2b2ba6a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci deleted file mode 100644 index e3e281f3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.19 -// 08.05.20 debugged -// 08.06.02 - -// Structure changed -// 09.10.11 - -function M=Mixsub(Rg,PL) - M=list(); - N=Mixlength(PL); - for I=Rg - if I>N - return; - end; - M($+1)=PL(I); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin deleted file mode 100644 index 4d786a5d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci deleted file mode 100644 index b336c763..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 - -function T=Mixtype(D) - if type(D)~=15 - T=1; - return; - end; - for I=1:length(D) - if type(D(I))==15 - T=3; - return; - end; - end; - T=2; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin deleted file mode 100644 index aa1e8c72..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci deleted file mode 100644 index 8a4f0557..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.18 -// 08.05.20 - -function Ptn=Naigai(A,Bdy) - V=[1,1]; - Call=Mixlength(Bdy); - KL=KoutenList(A,V,Bdy); - Ptn=zeros(1,Call); - for K=1:Mixlength(KL) - Ten=Op(K,KL); - T=Op(1,Ten); NC=Op(4,Ten); - if T<0 - Tmp=modulo(Ptn(NC)+1,2); - Ptn(1,NC)=Tmp; - end - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin deleted file mode 100644 index 0c5dc7b1..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci deleted file mode 100644 index 193ad384..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Naiseki(a,b) - N=a*b'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin deleted file mode 100644 index 59d31369..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci deleted file mode 100644 index a404370a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci +++ /dev/null @@ -1,53 +0,0 @@ -// 08.05.31 -// 08.06.03 -// 08.10.07 - -function Ans=Nearestpt(varargin) - Nargs=length(varargin); - PL1=varargin(1); - if size(PL1,1)==1 - Flg=0; - else - Flg=1 - end - Eps=10.0^(-6); -// Fig=varargin(2); - PL=varargin(2); - Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:))); - for N=1:size(PL1,1) - PA=PL1(N,:); - Pm=PL(1,:); - Im=1; - Sm=norm(Pm-PA); - for I=1:size(PL,1)-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)1+Eps - P=[B1,B2]; - else - P=[A1+T*V1,A2+T*V2]; - end - S=norm(P-PA); - if S0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin deleted file mode 100644 index cbc317ca..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci deleted file mode 100644 index 996559db..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci +++ /dev/null @@ -1,131 +0,0 @@ -// 08.10.10 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps - -function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps) - global HIDDENDATA THETA PHI TMP; - Eps0=10^(-5); - Fh=Projpara(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invparapt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invparapt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin deleted file mode 100644 index 1ad435a7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci deleted file mode 100644 index 140516b1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci +++ /dev/null @@ -1,253 +0,0 @@ -// 08.09.21 -// 09.12.31 (gsort) - -function FigkL=Nohiddenpers(varargin) - global EyePoint FocusPoint HIDDENDATA; - Eps=0.001; - PaL=varargin(1); - Fk=varargin(2); - FuncdL=varargin(3); - Tmp=Mixop(1,FuncdL); - Fxy=Mixop(1,Tmp); - K=mtlb_findstr(Fxy,'='); - Fxy=part(Fxy,K+1:length(Fxy)); - Fbdxy=Mixop(2,FuncdL); - Tmp=Mixop(3,FuncdL); - Xname=Mixop(1,Tmp); - Tmp=Mixop(4,FuncdL); - Yname=Mixop(1,Tmp); - FigkL=[]; - if Fbdxy==[] - return; - end; - Bdy=Kyoukai(Fbdxy); - Ptn=0; - Fh=Projpers(Fk); - SeL=[]; - for N=1:length(PaL)-1 - S=(PaL(N)+PaL(N+1))/2; - P=PointonCurve(S,Fh); - Tmp=Invperspt(S,Fh,Fk) - Pk=Mixop(1,Tmp); - Flg=zeros(1,Mixlength(Fbdxy)); - for I=1:1000 - Tmp=Pk+I*(EyePoint-Pk); - Tmp1=Naigai(Tmp(1:2),Bdy); - if Tmp1==Flg - Flg=1; - Qk=Tmp; - break; - end; - end; - if Flg~=1 - disp('Bad EyePoint'); - return; - end; - T=poly(0,'t'); - P0=(1-T)*Pk+T*Qk; - X0str='('+pol2str(P0(1))+')'; - Y0str='('+pol2str(P0(2))+')'; - Z0str='('+pol2str(P0(3))+')'; - Tmp=strsubst(Fxy,Xname,X0str); - Tmp=strsubst(Tmp,Yname,Y0str); - Efn=Z0str+'-('+Tmp+')'; - t=0; - Tmp=evstr(Efn); - Eps=max(Eps,abs(Tmp)); - Tmp1=evstr([X0str,Y0str]); - t=1; - Tmp2=evstr([X0str,Y0str]); - Seg=Listplot([Tmp1,Tmp2]); - Tmp=[]; - for I=1:Mixlength(Fbdxy) - Tmp2=Mixop(I,Fbdxy); - Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps); - if Mixlength(Tmp1)>0 - Tmp2=[]; - for J=1:Mixlength(Tmp1) - Tmp3=Mixop(J,Tmp1); - Tmp3=Mixop(2,Tmp3)-1; - Tmp2=[Tmp2,Tmp3]; - end; - Tmp=[Tmp,Tmp2]; - else - Tmp2=Mixop(I,Fbdxy); - Tmp1=Nearestpt(Tmp2,Seg); - Tmp3=Mixop(5,Tmp1); - if Tmp3Eps - ParamL=[ParamL,Tmp1]; - end; - end; - Nhdflg=0; - for M=1:length(ParamL)-1 - TL=[ParamL(M),ParamL(M+1)]; - t=TL(1); - Tmp1=evstr([X0str,Y0str]); - t=TL(2); - Tmp2=evstr([X0str,Y0str]); - Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy); - Tmp=modulo(sum(Tmp),2); - if Tmp==Ptn continue; end; - Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6); - t=TL(1); - Tmp1=evstr(Efn); - t=TL(2); - Tmp2=evstr(Efn); - if abs(Tmp1)<=Eps - if M>1 - Nhdflg=-10; - break; - end; - end; - if abs(Tmp2)<=Eps - Nhdflg=-10; - break; - end; - if Tmp2>Eps - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=min(VL); - if Tmp1<=-Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - else - if Tmp1<-Eps - Nhdflg=-10; - break; - end; - for I=1:Ik - AddL=[]; - VL=[]; - for J=1:length(TL)-1 - Tmp=(TL(J)+TL(J+1))*0.5; - AddL=[AddL,Tmp]; - t=Tmp; - Tmp1=evstr(Efn); - VL=[VL,Tmp1]; - end; - Tmp1=max(VL); - if Tmp1>Eps*2 - Nhdflg=-10; - break; - end; - TL=gsort([TL,AddL]); - end; - if Nhdflg~=0 break; end; - end; - end; - if Nhdflg==0 - SeL=[SeL,N]; - end; - end; - FigL=[]; - FigkL=[]; - for I=1:length(SeL) - Tmp1=PointonCurve(PaL(SeL(I)),Fh); - Tmp2=PointonCurve(PaL(SeL(I)+1),Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - Tmp4=Partcrv3(TP,TQ,Fk) - FigkL=Mixadd(FigkL,Tmp4); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin deleted file mode 100644 index 7de094a4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci deleted file mode 100644 index d49bce91..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci +++ /dev/null @@ -1,134 +0,0 @@ -// 08.10.11 -// 08.10.12 -// 08.10.15 -// 09.06.24 -// 10.02.16 Eps -// 11.04.12 Eps0 (bug) -// 13.11.02 bug - -function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps) - global EyePoint FocusPoint HIDDENDATA; - Eps0=10^(-5); // 11.04.12 - Fh=Projpers(Fk); - P1=Ptstart(Fh); - P2=Ptend(Fh); - Csp=CuspPt(); - Cspflg=1; - for I=1:Mixlength(Csp) - Tmp=Mixop(I,Csp); - if norm(Tmp-P1)0 - if norm(P-Q)>Eps(1) // - FigL=Mixadd(FigL,Partcrv(P,Q,Fh)); - Tmp3=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp3); - Tmp3=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp3); - FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk)); - else - FigL=Mixadd(FigL,Fh); - FigkL=Mixadd(FigkL,Fk); - end; - end; - Tmp=[]; - for I=1:length(PaL)-1 - if ~Member(I,SeL) - Tmp=[Tmp,I]; - end; - end; - SeL=Tmp; - HIDDENDATA=[]; - for I=1:length(SeL) - Tmp=PaL(SeL(I)); - Tmp1=PointonCurve(Tmp,Fh); - Tmp=PaL(SeL(I)+1); - Tmp2=PointonCurve(Tmp,Fh); - if I==1 - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - if Member(SeL(I)-1,SeL) - Q=Tmp2; SQ=PaL(SeL(I)+1); - else - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - P=Tmp1; SP=PaL(SeL(I)); - Q=Tmp2; SQ=PaL(SeL(I)+1); - end; - end; - end; - if length(SeL)>0 - if norm(P-Q)>Eps(1) // - Tmp=Invperspt(SP,Fh,Fk); - TP=Mixop(2,Tmp); - Tmp=Invperspt(SQ,Fh,Fk); - TQ=Mixop(2,Tmp); - HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk)); - else - HIDDENDATA=Mixadd(HIDDENDATA,Fk); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin deleted file mode 100644 index dff5f719..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci deleted file mode 100644 index dad4f4ef..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function N=Numptcrv(Fig) - N=size(Fig,1) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin deleted file mode 100644 index 544abced..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci deleted file mode 100644 index 20a86640..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci +++ /dev/null @@ -1,115 +0,0 @@ -// s : 2014.06.22 -// 2014.08.26 debugged 1,-1 => "+","-" -// 2014.09.07 Objjoin added -// 2016.10.09 Np in Spacecurve changed - -function Out=Objcurve(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args) - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Closed=norm(PL(length(PL))-PL(1))=2 then - Sz=Args(2) - end; - if Nargs>=3 then - Np=Args(3) - end; - Assign("Sz",Sz) - if Pstr=="xy" then - Vz=[0,0,1]; - Fs=Assign("[Sz*cos(t),Sz*sin(t),0]") - end; - if Pstr=="yz" then - Vz=[1,0,0]; - Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]") - end; - if Pstr=="zx" then - Vz=[0,1,0]; - Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]") - end; - Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09 - P=PL(1); Q=PL(2); R=PL(length(PL)-1); - PQ1=Q-P; - if ~Closed then - PQ2=PQ1 - else - PQ2=P-R - end; - Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2); - Vp1=Vp/norm(Vp); - Theta=acos(min(Dotprod(Vz,Vp1),1)); - Vj=Crossprod(Vz,Vp1); - if norm(Vj)0 - OBJJOIN=abs(sign(varargin(1))) - end; - Out=OBJJOIN -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin deleted file mode 100644 index c1e415ab..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci deleted file mode 100644 index 6c523fc2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci +++ /dev/null @@ -1,11 +0,0 @@ -// s: 2014.09.07 - -function Objname() - global OBJFIGNO OBJJOIN - if OBJJOIN==0 then - OBJFIGNO=OBJFIGNO+1; - Gname="ketfig"+string(OBJFIGNO); - Printobjstr("# "+Gname); - Printobjstr("g "+Gname); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin deleted file mode 100644 index ad6e0eba..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci deleted file mode 100644 index ba5b346a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci +++ /dev/null @@ -1,65 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolygon(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // 140907 - for J=1:length(PL) - P=PL(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL(J)=[P(1:3),Np] - end; - end; - if Nargs==1 then - Tmp=PL(1); - Cen=Tmp(1:3); - Nc=Tmp(4) - else - Tmp=Args(2); - if length(Tmp)==1 then - Tmp1=PL(Tmp); - Cen=Tmp1(1:3); - Nc=Tmp(4) - else - Cen=Tmp; - Nc=Writeobjpoint(Cen) - end; - end; - for J=1:length(PL) - if JEps then - Tmp1=Crossprod(Drv,Vec); - Tmp2=Crossprod(Tmp1,Vec); - Tmp3=Dotprod(Tmp2,Drv); - if Tmp3<-Eps then - Tmp2=-Tmp2 - end; - Drv=Len/norm(Tmp2)*Tmp2 - end - end - end - else - PtL=Flattenlist(Tmp); - PL2=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL2=lstcat(PL2,list(Tmp(K,:))) - end; - end; - for J=1:length(PL2) - P=PL2(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL2(J)=[P(1:3),Np] - end; - end; - end; - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=2:length(PL1) - P1=sprintf("%1d",Op(4,PL1(J-1))); - P2=sprintf("%1d",Op(4,PL2(J-1))); - P3=sprintf("%1d",Op(4,PL2(J))); - P4=sprintf("%1d",Op(4,PL1(J))); - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2; - end; - Printobjstr(Str) - end; - Out=list(PL1,PL2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin deleted file mode 100644 index 122e0986..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci deleted file mode 100644 index 15543b8a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci +++ /dev/null @@ -1,114 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 2014.09.07 Objjoin added - -function Out=Objsurf(varargin) - global OBJFIGNO OBJJOIN - Args=varargin; - Nargs=length(Args); - Sel=Args(Nargs); Nargs=Nargs-1; - Rf=Args(1); - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // // 140907 - PL=list(); - for J=1:(Mg+1) - for K=1:(Ng+1) - P=Rf(U(J),V(K)); - Np=Writeobjpoint(P) - PL=lstcat(PL,list([P,Np])); - end; - end; - Idx=1:(Ng+1):(Ng+1)*Mg+1; - Pus=Mixsub(Idx,PL); - Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1); - Pue=Mixsub(Idx,PL); - Idx=1:1:Ng+1; - Pvs=Mixsub(Idx,PL); - Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1); - Pve=Mixsub(Idx,PL); - Printobjstr("vt 0 0"); - Printobjstr("vt 1 0"); - Printobjstr("vt 1 1"); - Printobjstr("vt 0 1"); - for J=1:Mg - for K=1:Ng - P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K))) - P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K))) - P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1))) - P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1))) - N1=""; N2=""; N3=""; N4=""; - if Sel=="+" then // 6.22 - Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" "; - Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4; - else - Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" "; - Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2; - end; - Printobjstr(Str) - end; - end; - Out=list(U,V,Pus,Pue,Pvs,Pve) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin deleted file mode 100644 index 733ab14d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci deleted file mode 100644 index 808924a4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci +++ /dev/null @@ -1,7 +0,0 @@ -// s : 2014.08.25 - -function Objsymb(Symb,Thick,Face,Dir) - for J=1:length(Symb) - Objcurve(Symb(J),Thick,Face,Dir); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin deleted file mode 100644 index 6c85bcca..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci deleted file mode 100644 index 42fde6a5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci +++ /dev/null @@ -1,123 +0,0 @@ -// s : 2014.06.22 -// e : 2014.07.18 -// Objsurf, Objthicksurf : Range argments changed -// 14.09.07 Objjoin added - -function Out=Objthicksurf(varargin) - global OBJJOIN - Args=varargin; - Nargs=length(Args) - Sel=Args(Nargs); Nargs=Nargs-1; - Selsurf=part(Sel,1); // from 6.22 - Selside=["0","0","0","0"]; // wesn - Tmp=mtlb_findstr(Sel,"w"); - if length(Tmp)>0 then - Selside(1)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"e"); - if length(Tmp)>0 then - Selside(2)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"s"); - if length(Tmp)>0 then - Selside(3)=part(Sel,Tmp+1) - end; - Tmp=mtlb_findstr(Sel,"n"); - if length(Tmp)>0 then - Selside(4)=part(Sel,Tmp+1) - end; - Nfth=Args(Nargs-2); - Thick1=Args(Nargs-1); - Thick2=Args(Nargs); - Nargs=Nargs-3; // upto 6.22 - Rfth=Args(1); // 6.22 - N=2; - Mg=0; Ng=0; - if type(Args(N))==1 then - if length(Args(N))>2 then - U=Args(N); - Mg=length(U)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - else - Ag=Args(N); Bg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Ag=Intab(1); Bg=Intab(2); - N=N+1; - end; - if type(Args(N))==1 then - if length(Args(N))>2 then - V=Args(N); - Ng=length(V)-1; - N=N+1; - elseif length(Args(N))==2 then - Intab=Args(N); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - else - Cg=Args(N); Dg=Args(N+1); - N=N+2; - end; - else // when type(Args(N))==10 - Tmp0=Args(N); - Tmp=mtlb_findstr("=",Tmp0); - if length(Tmp)>0 then - Tmp0=part(Tmp0,(Tmp+1):length(Tmp0)); - end; - Intab=evstr(Tmp0); - Cg=Intab(1); Dg=Intab(2); - N=N+1; - end; - if Mg==0 then - Mg=Args(N); - N=N+1; - U=[]; - for J=1:(Mg+1) - U=[U,Ag+(J-1)/Mg*(Bg-Ag)]; - end; - end; - if Ng==0 then - Ng=Args(N); - V=[]; - for K=1:(Ng+1) - V=[V,Cg+(K-1)/Ng*(Dg-Cg)]; - end; - end; - Objname(); // 140907 from - Join=OBJJOIN; - OBJJOIN=1; // upto - deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)"); - deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)"); - Dt1=Objsurf(F1,U,V,Selsurf); - if Selsurf=="+" then Tmp="-"; else Tmp="+"; end; - Dt2=Objsurf(F2,U,V,Tmp); - Out=list(Dt1,Dt2); //from 06.22 - if Selside(1)~="0" then - Dt=Objrecs(Dt1(3),Dt2(3),Selside(1)); - Out=lstcat(Out,list(Dt)); - end - if Selside(2)~="0" then - Dt=Objrecs(Dt1(4),Dt2(4),Selside(2)); - Out=lstcat(Out,list(Dt)); - end - if Selside(3)~="0" then - Dt=Objrecs(Dt1(5),Dt2(5),Selside(3)); - Out=lstcat(Out,list(Dt)); - end - if Selside(4)~="0" then - Dt=Objrecs(Dt1(6),Dt2(6),Selside(4)); - Out=lstcat(Out,list(Dt)); - end; // upto 6.22 - OBJJOIN=Join // 140907 -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin deleted file mode 100644 index e90f633d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci deleted file mode 100644 index 519bc9da..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 08.05.19 - -// Structure changed -// 09.10.11 -// 10.01.10 available for plotdata -// 10.01.12 available for Dataindexed -// 10.01.16 - -function C=Op(N,Data) - C=[]; - if Mixtype(Data)>1 - C=Mixop(N,Data); - return; - end; - if type(Data)==10 - if size(Data,2)==1 - C=part(Data,N:N); - else - C=Data(N) - end; - return; - end; - if type(Data)==1 - if size(Data,1)==1 - C=Data(N); - else - Din=Dataindex(Data); - if size(Din,1)==1 - C=Data(N,:); - else - C=Data(Din(N,1):Din(N,2),:); - end; - end; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin deleted file mode 100644 index 3935c2e7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci deleted file mode 100644 index 4007e1b3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci +++ /dev/null @@ -1,106 +0,0 @@ - -// -// 10.01.10 filename written -// 13.05.20 openfile error tackled -// creator and date recorded -// 13.11.01 Beginpicture joined optionally - -function Openfile(varargin) - global Wfile FID; - - function Out=Datecount(F) - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - Year=Tmp(1); - Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9); - Out=[Year,Sec]; - endfunction - - function Out=Datestr(F) - if F~="" then - Tmp1=fileinfo(F); - Tmp=getdate(Tmp1(7)); - else - Tmp=getdate(); - end; - Year=Tmp(1); - Month=Tmp(2); - Day=Tmp(6); - Hour=Tmp(7); - Min=Tmp(8); - D=string(Year)+"-"+string(Month)+"-"+string(Day); - T=string(Hour)+":"+string(Min); - Out=D+" "+T; - endfunction - - File=varargin(1); - Bflg=0; - Creator=''; - Cflg=0; - Nargs=length(varargin); - for N=2:Nargs - Tmp=varargin(N); - K=mtlb_findstr(Tmp,"="); - if length(K)>0 then - Creator=part(Tmp,(K+1):length(Tmp)); - Cflg=1; - else - Bflg=1; - Unitstr=Tmp - end - end; - Recentf=''; - Tmp1=dir("*.sce"); - Files=Tmp1(2); - if size(Files,1)>0 then - Recentf=Files(1,:); - Dt=Datecount(Recentf); - for J=2:size(Files,1) - F=Files(J,:); - D=Datecount(F); - if D(1)~=Dt(1) then - if D(1)>Dt(1) then - Recentf=F; - Dt=D; - end - continue - end - if D(2)>Dt(2) then - Recentf=F; - Dt=D; - end - end; - end; - StrW="%%% "+File+" "+Datestr("") - StrC="%%% "+Creator; - if Cflg==0 then - if Recentf~="" then - StrC=StrC+Recentf+" "+Datestr(Recentf); - end - end - if File =='' then - Wfile='default'; - else -// errcatch(4,"continue"); // 2017.02.18 from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); // 2017.02.18 upto - FID=mopen(File,'w'); - Wfile=File; - end - if Wfile=='default' - mprintf('%s\n%s\n',StrW,StrC); - else - mfprintf(FID,'%s\n%s\n',StrW,StrC); - end - if Bflg==1 then - Beginpicture(Unitstr) - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin deleted file mode 100644 index e72281c1..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci deleted file mode 100644 index e902ce5d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci +++ /dev/null @@ -1,33 +0,0 @@ -// s : 2014.06.22 -// e : 14.09.07 - -function Out=Openobj(Fnm) - global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN - OBJFMT= "%7.4f"; - NPOINT= 0; - NNORM=0; - OBJSCALE=1; - OBJFIGNO=0; - OBJJOIN=0; // 140906 - if Fnm =='' then - Wfile='default'; - else -// errcatch(4,"continue"); //17.02.18from -// Tmp=FID; -// if iserror(4) then -// FID=[]; -// errclear(4); -// end; -// if FID~=[] then -// mclose(FID); -// FID=[]; -// end -// errcatch(4,"kill"); //17.02.18upto - if length(mtlb_findstr(Fnm,".obj"))==0 - Fnm=Fnm+".obj"; - end; - FID=mopen(Fnm,'w'); - Wfile=Fnm; - Out=Wfile; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin deleted file mode 100644 index a8d4c7fc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci deleted file mode 100644 index a3056f66..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.05.31 - -function Openpar(varargin) - global Wfile FID; - Nargs=length(varargin); - Tmp=varargin(1); - Tmp1=Strop(1,Tmp); - if Tmp1=='\' | Tmp1=='¥' - Namestr=Tmp; - N=2; - else - Namestr='\tmp'; - N=1; - end - Habastr=varargin(N); - if Nargs>N - Posstr='['+varargin(N+1)+']'; - else - Posstr='[c]' - end - Openphr(Namestr); - S='\begin{minipage}'+Posstr+'{'+Habastr+'}%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin deleted file mode 100644 index f9d281d0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci deleted file mode 100644 index 461549e9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.05.31 - -function Openphr(Str) - global Wfile FID - S='\def'+Str+'{%'; - if Wfile=='default' - mprintf('%s\n',S); - else - mfprintf(FID,'%s\n',S); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin deleted file mode 100644 index 877c0a04..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci deleted file mode 100644 index edf043ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci +++ /dev/null @@ -1,92 +0,0 @@ -// -// 09.12.25 -// 11.05.25 -// 14.03.05 MARKLEN -// 17.03.19 VL=[] => VL=""; - -function Openpicture(ul) - global Wfile FID XMIN XMAX YMIN YMAX ULEN - global MilliIn MARKLEN MARKLENNow PenThickInit; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); - Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); - YM=Tmp(2); - Dx=XM-Xm; - Dy=YM-Ym; - Sym='.0123456789 +-*/'; - Tmp=ascii(Sym); - SL=Sym; - OL='+-*/'; - if ul~='' - ULEN=ul; - end - Is=1; - VL=""; // 17.03.19 - Ucode=ascii(ULEN); - for I=1:length(Ucode) - C=char(Ucode(I)); - if mtlb_findstr(SL,C)~=[] - if mtlb_findstr(OL,C)~=[] - Str=char(Ucode(Is:(I-1))); - VL=VL+Str+C; - Is=I+1; - end - else - Unit=char(Ucode(I:(I+1))); - Str=char(Ucode(Is:(I-1))); - VL=VL+Str; - break; - end; - end; - Valu=evstr(VL); - Str=string(Valu); - ULEN=Str+Unit; - if Unit=='cm' - MilliIn=1000/2.54*Valu; - end - if Unit=='mm' - MilliIn=1000/2.54*Valu/10; - end - if Unit=='in' - MilliIn=1000*Valu; - end - if Unit=='pt' - MilliIn=1000/72.27*Valu; - end - if Unit=='pc' - MilliIn=1000/6.022*Valu; - end - if Unit=='bp' - MilliIn=1000/72*Valu; - end - if Unit=='dd' - MilliIn=1000/1238/1157/72.27*Valu; - end - if Unit=='cc' - MilliIn=1000/1238/1157/72.27*12*Valu;p - end - if Unit=='sp' - MilliIn=1000/72.27/65536*Valu/10; - end - MARKLEN=MARKLENNow*1000/2.54/MilliIn; - if Wfile=='default' - mprintf('%s%s%s\n','{\unitlength=',ULEN,'%'); - mprintf('%s\n','\begin{picture}%'); - mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); - Str='\special{pn '+string(PenThickInit)+'}%'; - mprintf('%s\n',Str); - mprintf('%s\n','%'); - else - mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%'); - mfprintf(FID,'%s\n','\begin{picture}%'); - mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',... - '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25 - Str='\special{pn '+string(PenThickInit)+'}%'; - mfprintf(FID,'%s\n',Str); - mfprintf(FID,'%s\n','%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin deleted file mode 100644 index eca8a277..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci deleted file mode 100644 index 8889de32..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci +++ /dev/null @@ -1,42 +0,0 @@ -function Ovalbox(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - Pos=varargin(1); - Dr=varargin(2); - StrV=varargin(3); - R=0.2; - NDflg=0; - for I=4:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - R=Tmp; - else - if part(Tmp,1)=='-' - NDflg=1; - Tmp1=part(Tmp,2:length(Tmp)); - Cmdstr=strsubst(Tmp1,'*','G1'); - end; - end; - end; - Xr=[XMIN,XMAX]; - Yr=[YMIN,YMAX]; - Uv=0.6; Uh=0.8; - N=length(StrV); - W=Uh; H=Uv*N; - Setwindow([-W/2,W/2],[-H,0]); - G1=Ovaldata([0,-H/2],W/2,H/2,R); - Openphr('\ketpictmp'); - Beginpicture('1cm'); - if NDflg==0 - Drwline(G1); - else - execstr(Cmdstr); - end; - for I=1:N - Letter([0,Uv/2-Uv*I],'c',Op(I,StrV)) - end; - Endpicture(0); - Closephr(); - Setwindow(Xr,Yr); - Letter(Pos,Dr,'\ketpictmp'); -endfunction; \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin deleted file mode 100644 index a33c17e9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci deleted file mode 100644 index 823fc8c4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// e : 2015.11.15 -function Out=Ovaldata(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs<=1 - Eps=1.0*10^(-4); - 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; - end; - Rc=0.2; - if N<=Nargs - Rc=varargin(N)*Rc; // 15.11.15 - end; - Out=[]; - P=C+[Dx-Rc,Dy-Rc]; - Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10'); - Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]); - Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]); - G=Joincrvs(Tmp3,Tmp1,Tmp2); - Tmp=Reflectdata(G,[C,C+[0,1]]); - G=Joincrvs(G,Tmp); - Tmp=Reflectdata(G,[C,C+[1,0]]); - Out=Joincrvs(G,Tmp); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin deleted file mode 100644 index e86a5592..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci deleted file mode 100644 index 82ac7c4f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.06.18 - -function P=Paramark(varargin) - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - PC=varargin(3); - R=0.5; - if Nargs>=4 - R=varargin(4)*R; - end - U=R*(PA-PB)/Vecnagasa(PA,PB); - V=R*(PC-PB)/Vecnagasa(PC,PB); - if Gaiseki(PA-PB,PC-PB)~=0 - P=Listplot([PB+U,PB+U+V,PB+V]); - else - P=[]; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin deleted file mode 100644 index 3479482b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci deleted file mode 100644 index ce7e0d76..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.05.30 - -function Out=ParamonCurve(P,N,PtL) -// PtL=Plt; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=V(1)^2+V(2)^2; - S=(V(1)*W(1)+V(2)*W(2))/D2; - S=min(max(S,0),1); - Out=N+S; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin deleted file mode 100644 index d3aeafcc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci deleted file mode 100644 index 83661787..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 09.10.03 - -function Out=Paramoncrv(varargin) - Eps=10^(-8); - Nargs=length(varargin); - P=varargin(1); - Gdata=varargin(Nargs); - if size(P,1)>1 - Tmp=P; P=Gdata; Gdata=Tmp; - end; - if Nargs==2 - Tmp=Nearestpt(P,Gdata); - Out=Mixop(2,Tmp); - return; - end; - N=varargin(2); - PtL=Gdata; - if N==size(PtL,1) - Out=N; - else - Pa=PtL(N,:); - Pb=PtL(N+1,:); - V=Pb-Pa; - W=P-Pa; - D2=norm(V)^2; - if D2 N__, etc -// 14.12.11 Assign used -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of T1=T2 - -function P__=Paramplot(varargin) - 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__=[0,2*%pi]; - N__=50; // Numpoints - E__=[]; // Exclusions - D__=%inf; // Discont - for I__=Is__:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'__='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); -// Dt__=(T2__-T1__)/(N__-1); - Dt__=(T2__-T1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'t__'); - end; - if abs(Dt__)Eps__ - if Fnflg__==0 - Pa__=evstr(Str__); - else - if Fnflg__==1 - Pa__=[Fnx__(t__),Fny__(t__)]; - else - if type(Fnargx__)==1 - Tmp1__=Fnx__(t__); - else - Tmp1__=Fnx__(Fnargx__,t__); - end; - if type(Fnargy__)==1 - Tmp2__=Fny__(t__); - else - Tmp2__=Fny__(Fnargy__,t__); - end; - Pa__=[Tmp1__,Tmp2__]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__; Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)B+Eps - Npt=Numptcrv(PkL); - Out1=Partcrv(A,Npt,PkL); - Out2=Partcrv(1,B,PkL); - Tmp=Ptstart(PkL)-Ptend(PkL); - if norm(Tmp)Ie+Eps - P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:); - PL=[PL;P] - end - Ans=PL; - return - end; - Tmp=Nearestpt(A,PkL);// - Ta=Op(2,Tmp);// - Tmp=Nearestpt(B,PkL);// - Tb=Op(2,Tmp);// - Ans=Partcrv(Ta,Tb,PkL);// -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin deleted file mode 100644 index 5b652d87..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci deleted file mode 100644 index 5b3cd178..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 08.09.13 -// 09.03.06 - -function PL=Partcrv3(T1,T2,Fk) - Eps=10^(-4); -// Tmp=Mixop(1,Fk); - // new part from - if T1>T2+Eps - Npt=size(Fk,1); - Out1=Partcrv3(T1,Npt,Fk); - Out2=Partcrv3(1,T2,Fk); - Tmp=Fk(1,:)-Fk(Npt,:); - if norm(Tmp)Ie+Eps - P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:); - PL=[PL;P] - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin deleted file mode 100644 index 1678ce6b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci deleted file mode 100644 index a8581b1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 13.05.03 - -function Out=Partframe(Tb,St,Ed) - G=Dividetable(Tb); - Gw=G(1); - Gt=G(2); - Gy=G(3); - Gwt=Tb(4); - Gwy=Tb(5); - Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2))); - Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2))); - Tmp1=Ptstart(Gat(St(1))); - Tmp2=Ptstart(Gay(St(2))); - Ps=[Tmp1(1),Tmp2(2)]; - Tmp1=Ptstart(Gat(Ed(1))); - Tmp2=Ptstart(Gay(Ed(2))); - Pe=[Tmp1(1),Tmp2(2)]; - Pars=Paramoncrv(Ps,Gw); - Pare=Paramoncrv(Pe,Gw); - if Pars2 - Eps=varargin(3); - end; - Eps2=0.2; - if Nargs>3 - Eps2=varargin(4); - end; - if Nargs>4 - Ns=varargin(5); - Other=Mixop(Ns,OTHERPARTITION); - else - Ns=1; - Other=[]; - OTHERPARTITION=[]; - for N=1:Mixlength(GL) - OTHERPARTITION=Mixadd(OTHERPARTITION,[]); - end; - end; - Npt=size(Fig,1); - ParL=[1,Npt,Other]; - for N=Ns:Mixlength(GL) - G=Mixop(N,GL); - if Fig==G - KouL=IntersectselfPp(Fig,Eps,Eps2); - else - KouL=IntersectcrvsPp(Fig,G,Eps,Eps2); - Tmp=Nearestpt(Ptstart(Fig),G); - Tmp1=Mixop(1,Tmp); - Tmp2=Mixop(2,Tmp); - Tmp3=Mixop(3,Tmp); - if Tmp3>Eps0 & Tmp3Eps0 & Tmp3Eps - Out=[Out,Tmp]; -// P=PointonCurve(Tmp,Fig); - PARTITIONPT=Mixadd(PARTITIONPT,P); - end; - end; - if Out(length(Out))~=Npt - Out=[Out(1:length(Out)-1),Npt]; - end; - if length(Out)==1 Out=[1,Npt]; end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin deleted file mode 100644 index e07e8ade..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci deleted file mode 100644 index eb689ffe..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.08.12 - -function Out=Perspt(P) - global FocusPoint EyePoint; - 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=[Yz,Zz]; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin deleted file mode 100644 index c7fb3404..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci deleted file mode 100644 index ea2c8e28..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhFaceL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHFACEL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin deleted file mode 100644 index 162ba3f6..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci deleted file mode 100644 index d5333cd1..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.22 - -function Out=PhHiddenData() - global PHHIDDENDATA; - Out=PHHIDDENDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin deleted file mode 100644 index 7c4526ca..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci deleted file mode 100644 index 1eae4bc9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.08.17 - -function Out=PhVertexL() - global PHCUTPOINTL PHVERTEXL PHFACEL; - Out=PHVERTEXL; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin deleted file mode 100644 index 767e453e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci deleted file mode 100644 index 9c7806f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci +++ /dev/null @@ -1,173 +0,0 @@ -// 08.08.17 -// 08.09.16 -// 10.01.02 -// 13.10.21 ( __ added to varibles ) -// 14.06.09 ( debugged -- the cause unknown ) - -function Out__=Phcutdata(VL__,FaceL__,PlaneD__) - global PHCUTPOINTL - Out__=[]; - EL__=[]; - Eps__=10^(-4); - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - for J__=1:length(Face__) - Nj__=J__+1; - if J__==length(Face__) - Nj__=1; - end; - N1__=Face__(J__); N2__=Face__(Nj__); - Tmp__=[N1__,N2__]; - Flg__=0; - for K__=1:Mixlength(EL__) - Tmp1__=Mixop(K__,EL__); - Tmp2__=[Tmp1__(2),Tmp1__(1)]; - if Tmp__==Tmp1__ | Tmp__==Tmp2__ - Flg__=1; - break; - end - end; - if Flg__==0 - EL__=Mixadd(EL__,Tmp__); - end; - end; - end; - Out0__=[]; - for I__=1:Mixlength(EL__) - Tmp__=Mixop(I__,EL__); - Tmp1__=Mixop(Tmp__(1),VL__); - Tmp2__=Mixop(Tmp__(2),VL__); - Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__])); - end; - if Mixtype(PlaneD__)~=1 - V1__=Mixop(1,PlaneD__); - Tmp__=Mixop(2,PlaneD__); - if length(Tmp__)>1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - if V1__==[0,0,0] - Out__=Out0__; - return; - end; - V3__=[1,0,0]; - Out1__=Rotate3data(Out0__,V1__,V3__); -// x=poly(0,'X'); - Tmp2__=Rotate3pt([1,0,0],V3__,V1__); - Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3); - x0__=d__/Tmp__; - t__=poly(0,'T'); - PtL__ =[]; - for I__=1:Mixlength(Out1__) - Tmp__=Mixop(I__,Out1__); - Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:); - P__=Tmp1__+t__*(Tmp2__-Tmp1__); - Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1)); - if abs(coeff(Tmp__,1))0 - Tmp__=Tmp__(1); - if (Tmp__>-Eps__) & (Tmp__<1+Eps__) - Tmp3__=horner(P__,Tmp__); - Tmp3__=Rotate3pt(Tmp3__,V3__,V1__); - if Tmp__1-Eps__ then - Tmp1__=Mixop(I__,EL__); - Tmp1__=Tmp1__(2); - Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__); - else - Tmp4__=MixS(Mixop(I__,EL__),Tmp3__); - end; - end; - Flg__=0; - for J__=1:Mixlength(PtL__) - Tmp__=Mixop(J__,PtL__); - Tmp__=Mixop(2,Tmp__); - if norm(Tmp3__-Tmp__)1 - d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - d__=Tmp__; - end; - elseif type(PlaneD__)==1 - V1__=PlaneD__(1:3); - d__=PlaneD__(4); - else - K__=mtlb_findstr(PlaneD__,'='); - if K__>0 - Tmp1__=part(PlaneD__,1:K__-1); - Tmp2__=part(PlaneD__,K__+1:length(PlaneD__)); - PlaneD__=Tmp1__+'-('+Tmp2__+')'; - end; - x=0; y=0; z=0; - d__=-evstr(PlaneD__); - x=1; y=0; z=0; - Tmp1__=evstr(PlaneD__)+d__; - x=0; y=1; z=0; - Tmp2__=evstr(PlaneD__)+d__; - x=0; y=0; z=1; - Tmp3__=evstr(PlaneD__)+d__; - V1__=[Tmp1__,Tmp2__,Tmp3__]; - end; - for I__=1:Mixlength(FaceL__) - Face__=Mixop(I__,FaceL__); - TmpL__=[]; - for J__=1:length(Face__) - N1__=Face__(J__); - if J__==length(Face__) - N2__=Face__(1); - else - N2__=Face__(J__+1); - end; - for K__=1:Mixlength(PtL__) - Pd__=Mixop(K__,PtL__); - Tmp__=Mixop(1,Pd__); - if Tmp__(1)==Tmp__(2) - if Tmp__(1)==N1__ - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end - else - if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__] - TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__))); - end; - end; - end; - end; - if Mixlength(TmpL__)<2 - Flg__=0; - for J__=1:length(Face__) - Tmp__=Mixop(Face__(J__),VL__); - Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__); - if Tmp1__<-Eps__ - Flg__=1; - break; - end; - end; - if Flg__==0 - OutfL__=Mixadd(OutfL__,Face__); - end; - continue; - end; - Pd__=Mixop(1,TmpL__); - Qd__=Mixop(2,TmpL__); - Outf1__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__)+1; - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(2); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__+1; - if Nf__>length(Face__) Nf__=1; end; - Tmp__=[Tmp__,Face__(Nf__)]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf1__(length(Outf1__))~=Tmp1__ - Outf1__=[Outf1__,Tmp1__]; - end; - Outf2__=[Mixop(3,Pd__)]; - Nf__=Mixop(1,Pd__); - Tmp__=Mixop(2,Pd__); - JJ__=0; - while Tmp__~=Mixop(2,Qd__) - JJ__=JJ__+1; - if JJ__>20 - disp('bug'); - return; - end; - Tmp1__=Tmp__(1); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - Tmp__=[Face__(Nf__)]; - Nf__=Nf__-1; - if Nf__<1 Nf__=length(Face__); end; - Tmp__=[Face__(Nf__),Tmp__]; - end; - Tmp1__=Mixop(3,Qd__); - if Outf2__(length(Outf2__))~=Tmp1__ - Outf2__=[Outf2__,Tmp1__] - end; - if length(Outf1__)<3 | length(Outf2__)<3 - Face__=Outf1__; - if length(Outf1__) N__ ,... -// 14.12.11 Assign used, and debugged (Exfun ) -// 15.11.16 N changed to number of intervals -// 16.12.13 in case of X1=X2 - -function P__=Plotdata(varargin) - global XMIN XMAX YMIN YMAX - Eps__=10^(-5); - Fnstr__=varargin(1); Is__=2; - if type(Fnstr__)==13 - Fnflg__=1; - Fnarg__=varargin(Is__); - if type(Fnarg__)==13 - Fnflg__=Fnflg__+1; - Is__=Is__+1; - end; - else - Fnflg__=0; - end; - Rgstr__=varargin(Is__); Is__=Is__+1; - K__=mtlb_findstr(Rgstr__,'='); - if length(K__)>0 - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end; - N__=50; // Numpoints - E__=[]; // Exclusions - Exfun__=''; // Exclusion function - D__=%inf; // Discont - for I__=Is__:length(varargin) - Tmp__=varargin(I__); - Lhs__=part(Tmp__,1); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=part(Tmp__,K__+1:length(Tmp__)); - if mtlb_findstr(Tmp__,Vname__)==[] - Str__=Lhs__+'__='+Tmp1__; - execstr(Str__); - else - Exfun__=Tmp1__; - end; - end; - X1__=Rng__(1); X2__=Rng__(2); -// dx__=(X2__-X1__)/(N__-1); - dx__=(X2__-X1__)/(N__); // 15.11.16 - if Fnflg__==0 - Str__=Assign(Fnstr__,Vname__,'x__'); - end; - if abs(dx__)0 then // 14.12.11 - Tmp__=mtlb_findstr(Exfun__,"x__"); - if length(Tmp__)==0 then - E__=evstr(Exfun__); - Exfun__=""; - end - end - P__=[]; - E__=gsort(E__); - E__=E__(length(E__):-1:1); - E__=[E__,%inf]; - Tmp__=gsort(E__); - E__=Tmp__(length(Tmp__):-1:1); - Ke__=1; - for x__=X1__:dx__:X2__ - if Exfun__~='' - Tmp__=evstr(Exfun__); - if abs(Tmp__)Eps__ - if Fnflg__==0 - Pa__=[x__,evstr(Str__)]; - else - if Fnflg__==1 - Pa__=[x__,Fnstr(x__)]; - else - Pa__=[x__,Fnstr__(Fnarg__,x__)]; - end; - end; - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)1 - Tmp=T; T=Gdata; Gdata=Tmp; - end; - PtL=Gdata; - N=Trunc(T+Eps); - S=max(T-N,0); - if N==size(PtL,1) - Out=PtL(N,:); - else - Pa=PtL(N,:);; - Pb=PtL(N+1,:); - Out=(1-S)*Pa+S*Pb; - end -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin deleted file mode 100644 index f85dfeb2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci deleted file mode 100644 index b23dfdc8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 09.03.12 - -function Out=Powersum(varargin) - Nargs=length(varargin); - COEFF=varargin(1); - x=varargin(2); - if Nargs>2 - x=x-varargin(3); - end; - NL=Mixop(1,COEFF); - A=Mixop(2,COEFF); - Upto=min(size(NL,2),size(A,2)); - NL=NL(1:Upto); - A=A(1:Upto); - Out=sum(A.*x^NL); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin deleted file mode 100644 index 54fceb67..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci deleted file mode 100644 index bc866928..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 09.08.23 - -function Out=Prime(varargin) - if length(varargin)==0 - Out=char(39); - else - Out=varargin(1)+char(39); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin deleted file mode 100644 index 3e8d6ca7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci deleted file mode 100644 index bf137751..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci +++ /dev/null @@ -1,10 +0,0 @@ -// s : 2014.06.22 - -function Printobjstr(Str) - global Wfile FID; - if Wfile=='default' then - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin deleted file mode 100644 index 22cf9f20..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci deleted file mode 100644 index bbe28c12..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci +++ /dev/null @@ -1,32 +0,0 @@ -// 08.07.11 -// 08.10.07 -// 09.06.02 -// 09.08.23 - -function AnsL=ProjCurve(Curve) - global PHI THETA; - Eps=10^(-6); - AnsL=[]; // Added - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - for I=1:size(Curve,1) - 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=[Xz,Yz]; - if I==1 - AnsL=[Tmp]; - else - Tmp1=AnsL(size(AnsL,1),:); - if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps - AnsL=[AnsL;Tmp]; - end; - end; - else - AnsL=[AnsL;%inf,%inf]; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin deleted file mode 100644 index 1a815b50..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci deleted file mode 100644 index 74c552a6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 08.07.11 -// 08.10.16 - -function Out=ProjcoordCurve(Curve) - global PHI THETA; - SP=sin(PHI); CP=cos(PHI); - ST=sin(THETA); CT=cos(THETA); - Out=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - 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=[Out;Xz,Yz,Zz]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin deleted file mode 100644 index c78a60ff..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci deleted file mode 100644 index 82feeff2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 08.07.11 -// 08.07.15 -// 08.08.12 -// 08.10.28 - -function CL=Projpara(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=ProjCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=ProjCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin deleted file mode 100644 index fe160426..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci deleted file mode 100644 index b43451a9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.08.12 -// 08.10.28 - -function CL=Projpers(varargin) - Nargs=length(varargin); - Flg=0; - if Nargs==1 & Mixtype(varargin(1))==1 - Flg=1; - end; - CL=[]; - for N=1:Nargs - Crv=varargin(N); - if Mixtype(Crv)==1 - Tmp=CameraCurve(Crv); - CL=Mixadd(CL,Tmp); - else - if Mixtype(Crv)==3 - ObjL=[]; - for I=1:Mixlength(Crv) - Tmp1=Mixop(I,Crv); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - Crv=ObjL; - end; - for J=1:Mixlength(Crv) - Tmp=CameraCurve(Mixop(J,Crv)); - CL=Mixadd(CL,Tmp); - end - end - end - if Mixlength(CL)==1 & Flg==1 - CL=Mixop(1,CL); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin deleted file mode 100644 index 6ba89403..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci deleted file mode 100644 index 78776d7b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptcrv(N,Fig) - P=Fig(N,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin deleted file mode 100644 index 9cc74d07..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci deleted file mode 100644 index d16ebf80..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptend(Fig) - P=Fig(size(Fig,1),:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin deleted file mode 100644 index f195927d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci deleted file mode 100644 index 98f2ca94..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci +++ /dev/null @@ -1,250 +0,0 @@ -// 08.10.10 -// 08.10.12 -// 08.10.15 -// 08.10.26 -// 09.06.05 -// 09.09.10 -// 09.10.12 debug -// 09.11.07 debugged -// 10.02.16 Eps__ -// 13.10.22 ( __ added to variables ) - -function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__) -// Out__=1 : hidden -// SL__ : List of segments near PtA__+Vec__ - Eps__0=10^(-4)*(Xmax()-Xmin())/10; - Eps__=EPS__(1)*(Xmax()-Xmin())/10; // - Out__=0; - Vec__1=1/norm(Vec__)*Vec__; - PtL__=[]; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - FdL__=Fullformfunc(Fd__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Tmp__=Mixop(5,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,FdL__); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); UMax__=Urg__(2); - Vmin__=Vrg__(1); VMax__=Vrg__(2); - V1__='('+string(Vec__(1))+')'; - V2__='('+string(Vec__(2))+')'; - V3__='('+string(Vec__(3))+')'; - Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))'; - Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))'; - Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))'; - Urg__str=Mixop(5,FdL__); - Vrg__str=Mixop(6,FdL__); - if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0 - Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__; - else - Eq__=Xstr__; - end; - MS__=Mix(Eq__,Urg__str,Vrg__str,Np__); - [Zval__,Xval__,Yval__]=Makevaltable(MS__); - SL__=[]; - for J__=1:length(Yval__)-1 - for I__=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__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__]; - VL__=[c1__,c2__,c3__,c4__,c1__]; - QL__=[]; - for K__=1:4 - P1__=PL__(K__,:); P2__=PL__(K__+1,:); - M1__=VL__(K__); M2__=VL__(K__+1); - if M1__>=Eps__0 & M2__>=Eps__0 - continue; - end; - if M1__<=-Eps__0 & M2__<=-Eps__0 - continue; - end; - if abs(M1__)-Eps__0 - if Tmp__5<-Eps__0 - SL__=[SL__;P1__,P2__,-1]; - else - SL__=[SL__;P1__,P2__,1]; - end; - end; - end; - V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3); - if abs(V1__)>Eps__0 - M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3); - M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3); - elseif abs(V2__)>Eps__0 - M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3); - M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3); - else - M1__=PtA__(2)-P1__(2); - M2__=PtA__(2)-P2__(2); - end; - if M1__*M2__>=0 - if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0) - continue; - end; - if abs(M1__)<=Eps__0 - Pt__=P1__; Ptuv__=Puv1__; - else - Pt__=P2__; Ptuv__=Puv2; - end; - else - Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__); - Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2); - end; - if type(Uveq__)==10 - Tmp__1='('+string(Ptuv__(1))+')'; - Tmp__2='('+string(Ptuv__(2))+')'; - Tmp__=strsubst(Uveq__,Uname__,Tmp__1); - Tmp__=strsubst(Tmp__,Vname__,Tmp__2); - Tmp__=evstr(Tmp__); - if Tmp__<-Eps__0 - continue; - end; - end; - Tmp__1=Dotprod(Pt__-PtA__,Vec__1); - Tmp__2=abs(Tmp__1); - Tmp__3=Dotprod(P1__-P2__,Vec__1); - Tmp__4=norm(P1__-P2__); - Tmp__6=Tmp__3/Tmp__4; - if Tmp__1>Eps__0 - if abs(Tmp__6)>0.75 // from - PtL__=[PtL__;Pt__,P2__]; - continue; - end; // upto - if Tmp__2>Eps__ - Out__=1; - return - end; - if Tmp__2<2*Eps__ - continue; - end; - end; - end; - end; - end; - if PtL__==[] - return; - end; - for I__=1:size(SL__,1) - P2__=SL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P=SL__(J__,1:3); - if norm(P-P2__)0 - SL__(I__,7)=-2; - end; - end; - for I__=1:size(PtL__,1) - P__=PtL__(I__,4:6); - Flg__=0; - for J__=1:size(SL__,1) - P1__=SL__(J__,1:3); - if norm(P1__-P__)Eps__/5 - Out__=1; - return; - else - continue; - end; // upto - end; - Nxt__=SL__(J__,7); - while Nxt__>0 - P__=SL__(Nxt__,4:6); - Nxt__=SL__(Nxt__,7); - end; - if Nxt__==-2 - Out__=1; - return; - else - Out__=0; - end; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin deleted file mode 100644 index 00ce8734..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci deleted file mode 100644 index f6452897..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptne(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMAX]; - else - G=varargin(1); - XM=max(G(:,1)); - YM=max(G(:,2)); - Out=[XM,YM]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin deleted file mode 100644 index d8c23898..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci deleted file mode 100644 index e3cd5ebc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptnw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMAX]; - else - G=varargin(1); - Xm=min(G(:,1)); - YM=max(G(:,2)); - Out=[Xm,YM]; - end; - endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin deleted file mode 100644 index 19bd2ccc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci deleted file mode 100644 index fe5e52b9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci +++ /dev/null @@ -1,14 +0,0 @@ -// -// 10.01.13 - -function Out=Ptse(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMAX,YMIN]; - else - G=varargin(1); - XM=max(G(:,1)); - Ym=min(G(:,2)); - Out=[XM,Ym]; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin deleted file mode 100644 index c87076aa..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci deleted file mode 100644 index f94437cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci +++ /dev/null @@ -1,4 +0,0 @@ -function P=Ptstart(Fig) - P=Fig(1,:) -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin deleted file mode 100644 index df35b82c..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci deleted file mode 100644 index 5b0a3474..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.13 - -function Out=Ptsw(varargin) - global XMIN XMAX YMIN YMAX - if length(varargin)==0 - Out=[XMIN,YMIN]; - else - G=varargin(1); - Xm=min(G(:,1)); - Ym=min(G(:,2)); - Out=[Xm,Ym]; - end; -endfunction \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin deleted file mode 100644 index baf3e29f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci deleted file mode 100644 index e0020f0b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 09.12.29 - -function Putcell(varargin) - Nargs=length(varargin); - TbL=varargin(1); - Str=varargin(Nargs); - if type(Str)==1 - Str=string(Str); - end; - Pos=varargin(Nargs-1); - Nrg=varargin(2); - if type(Nrg)==10 - if Nargs==4 - Cell=Findcell(TbL,Nrg); - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - else - Mrg=varargin(3); - Cell=Findcell(TbL,Nrg,Mrg); - end; - Pt=Cell(1); Dr='c'; - Posh=part(Pos,1); - Post=part(Pos,2:length(Pos)); - if (Posh=='r')|(Posh=='R') - Pt=Pt+[Cell(2),0]; - if length(Post)==0 - Dr='w1'; - else - Dr='w'+Post; - end; - end; - if (Posh=='l')|(Posh=='L') - Pt=Pt-[Cell(2),0]; - if length(Post)==0 - Dr='e1'; - else - Dr='e'+Post; - end; - end; - if (Posh=='u')|(Posh=='U') - Pt=Pt+[0,Cell(3)]; - if length(Post)==0 - Dr='s1'; - else - Dr='s'+Post; - end; - end; - if (Posh=='d')|(Posh=='D') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - end; - if (Posh=='b')|(Posh=='B') - Pt=Pt-[0,Cell(3)]; - if length(Post)==0 - Dr='n1'; - else - Dr='n'+Post; - end; - Str='$\mathstrut$'+Str; - end; - Letter(Pt,Dr,Str); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin deleted file mode 100644 index 3a9d0634..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci deleted file mode 100644 index 63bc151f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putcirmark(TbL,Nrg,Mrg,Dt) - if type(Dt)==10 - N=1; Pos=Dt; Str=''; - else - N=length(Dt); Pos='l'; Str='\hspace*{2mm}'; - end; - for I=1:N - Tmp1=Dt(I); - Str=Str+'\cirmark'; - if I=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin deleted file mode 100644 index 304768e4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci deleted file mode 100644 index 0e2f9d0a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 10.04.01 - -function PutcoLexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin deleted file mode 100644 index 153f9afd..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci deleted file mode 100644 index b993ffa9..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function PutcoLstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,Nr,I,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,Nr,K,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,Nr,K,Pos,Ltr); - end; - end; -endfunction; \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin deleted file mode 100644 index f48d783b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci deleted file mode 100644 index 8d732a9d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci +++ /dev/null @@ -1,18 +0,0 @@ -// 09.11.26 - -function Putdashmark(TbL,Nrg,Mrg,Dt) - N=length(Dt); - Str='\hspace*{2mm}'; - for I=1:N - Tmp1=Dt(I); - if type(Tmp1)==1 - Tmp1=string(Tmp1); - end; - Str=Str+'\dashmark{'+Tmp1+'}'; - if INr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin deleted file mode 100644 index f29ca390..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci deleted file mode 100644 index 0a3158cc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 10.04.01 - -function Putrowexpr(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Dt='$'+Dt+'$'; - Putcell(TbL,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str='$'+Dt(N)+'$'; - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin deleted file mode 100644 index 32f9675d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci deleted file mode 100644 index d006f3ec..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 10.01.02 for v5 - -function Putrowstr(varargin) - Tb=varargin(1); - Nr=varargin(2); - Pos=varargin(3); - Str=varargin(4); - Sep=''; - if length(varargin)>4 - Sep=varargin(5); - end; - if Sep=='' - for I=1:length(Str) - Tmp=part(Str,I); - Putcell(Tb,I,Nr,Pos,Tmp); - end; - else - Ltr=''; - K=1; - for I=1:length(Str) - Tmp=part(Str,I); - if Tmp==Sep - Putcell(Tb,K,Nr,Pos,Ltr); - K=K+1; - Ltr=''; - else - Ltr=Ltr+Tmp; - end; - end; - if Ltr~='' - Putcell(Tb,K,Nr,Pos,Ltr); - end; - end; -endfunction; \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin deleted file mode 100644 index 30dda6f7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci deleted file mode 100644 index a4f1ad89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 09.09.10 - -function Puttrace(Dt); - global TRACEDATA; - TRACEDATA=Dt; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin deleted file mode 100644 index aa4a60ac..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci deleted file mode 100644 index 839452f6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci +++ /dev/null @@ -1,87 +0,0 @@ -// 11.05.28 -// 15.05.03 - -function R=Ratiocmyk(Color) - if type(Color)==1 then - R=Color; - return; - end; - Tmp=grep(Color,','); - if length(Tmp)>0 - R=evstr(Tmp); - return; - end; - select Color - case 'greenyellow' then R=[0.15,0,0.69,0], - case 'yellow' then R=[0,0,1,0], - case 'goldenrod' then R=[0,0.1,0.84,0], - case 'dandelion' then R=[0,0.29,0.84,0], - case 'apricot' then R=[0,0.32,0.52,0], - case 'peach' then R=[0,0.5,0.7,0], - case 'melon' then R=[0,0.46,0.5,0], - case 'yelloworange' then R=[0,0.42,1,0], - case 'orange' then R=[0,0.61,0.87,0], - case 'burntorange' then R=[0,0.51,1,0], - case 'bittersweet' then R=[0,0.75,1,0.24], - case 'redorange' then R=[0,0.77,0.87,0], - case 'mahogany' then R=[0,0.85,0.87,0.35], - case 'maroon' then R=[0,0.87,0.68,0.32], - case 'brickred' then R=[0,0.89,0.94,0.28], - case 'red' then R=[0,1,1,0], - case 'orangered' then R=[0,1,0.5,0], - case 'rubinered' then R=[0,1,0.13,0], - case 'wildstrawberry' then R=[0,0.96,0.39,0], - case 'salmon' then R=[0,0.53,0.38,0], - case 'carnationpink' then R=[0,0.63,0,0], - case 'magenta' then R=[0,1,0,0], - case 'violetred' then R=[0,0.81,0,0], - case 'rhodamine' then R=[0,0.82,0,0], - case 'mulberry' then R=[0.34,0.9,0,0.02], - case 'redviolet' then R=[0.07,0.9,0,0.34], - case 'fuchsia' then R=[0.47,0.91,0,0.08], - case 'lavender' then R=[0,0.48,0,0], - case 'thistle' then R=[0.12,0.59,0,0], - case 'orchid' then R=[0.32,0.64,0,0], - case 'darkorchid' then R=[0.4,0.8,0.2,0], - case 'purple' then R=[0.45,0.86,0,0], - case 'plum' then R=[0.5,1,0,0], - case 'violet' then R=[0.79,0.88,0,0], - case 'royalpurple' then R=[0.75,0.9,0,0], - case 'blueviolet' then R=[0.86,0.91,0,0.04], - case 'periwinkle' then R=[0.57,0.55,0,0], - case 'cadetblue' then R=[0.62,0.57,0.23,0], - case 'cornflowerblue' then R=[0.65,0.13,0,0], - case 'midnightblue' then R=[0.98,0.13,0,0.43], - case 'navyblue' then R=[0.94,0.54,0,0], - case 'royalblue' then R=[1,0.5,0,0], - case 'blue' then R=[1,1,0,0], - case 'cerulean' then R=[0.94,0.11,0,0], - case 'cyan' then R=[1,0,0,0], - case 'processblue' then R=[0.96,0,0,0], - case 'skyblue' then R=[0.62,0,0.12,0], - case 'turquoise' then R=[0.85,0,0.2,0], - case 'tealblue' then R=[0.86,0,0.34,0.02], - case 'aquamarine' then R=[0.82,0,0.3,0], - case 'bluegreen' then R=[0.85,0,0.33,0], - case 'emerald' then R=[1,0,0.5,0], - case 'junglegreen' then R=[0.99,0,0.52,0], - case 'seagreen' then R=[0.69,0,0.5,0], - case 'green' then R=[1,0,1,0], - case 'forestgreen' then R=[0.91,0,0.88,0.12], - case 'pinegreen' then R=[0.92,0,0.59,0.25], - case 'limegreen' then R=[0.5,0,1,0], - case 'yellowgreen' then R=[0.44,0,0.74,0], - case 'springgreen' then R=[0.26,0,0.76,0], - case 'olivegreen' then R=[0.64,0,0.95,0.4], - case 'rawsienna' then R=[0,0.72,1,0.45], - case 'sepia' then R=[0,0.83,1,0.7], - case 'brown' then R=[0,0.81,1,0.6], - case 'tan' then R=[0.14,0.42,0.56,0], - case 'gray' then R=[0,0,0,0.5], - case 'black' then R=[0,0,0,1], - case 'white' then R=[0,0,0,0], - else - disp(Color+' may be user-defined'); - R=Color; // 15.05.03 - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin deleted file mode 100644 index 0b858b05..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci deleted file mode 100644 index c1656b15..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci +++ /dev/null @@ -1,92 +0,0 @@ -// 14.10.10 -// 14.12.14 for 3d -// 15.01.03 changed ("start","end") -// 15.10.24 in case of list-length==1 - -function Out=ReadOutData(varargin) - global Fnameout - if length(varargin)==0 then - Fname=Rnameout; - else - Fname=varargin(1); - end - Fid=mopen(Fname,"rb"); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - break; - end; - C=ascii(Tmp); - if Tmp=="/"|C==13|C==10 then// / CR,LF - if Flg==1 then - if part(Str,1:5)=="start" then - Str="Tmp=[];"; - else - if part(Str,1:3)=="end" then - if Flg3d==0 then // 2014.12.14 - Str=Varname+"($+1)=Listplot(Tmp);"; - else - Str=Varname+"($+1)=Spaceline(Tmp);"; - end - else - if part(Str,1:2)=="[[" then - Str="Tmp=[Tmp,"+Str+"];"; - else - Varname=Str; - Str=Varname+"=list();" - Flg3d=-1; - end; - end; - end; - if Flg3d==-1 then // 2014.12.14 - Tmp1=mtlb_findstr(Str,"[["); - if length(Tmp1)>0 then - Tmp2=mtlb_findstr(Str,"]"); - Tmp3=part(Str,Tmp1:Tmp2(1)); - Tmp4=mtlb_findstr(Tmp3,",") - if length(Tmp4)==2 then - Flg3d=1; - else - Flg3d=0; - end - end - end - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=[]; // 15.10.24 from - Var=""; - Ctr=0; - for J=1:size(Gstr,1) - St=Gstr(J,1); - Out=[Out;St]; - Tmp=strsplit(St,"="); - Tmp1=Tmp(1,1); - Tmp2=Tmp(2,1); - if grep(Tmp2,"list()") then - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; - Var=Tmp1; - Ctr=0; - end; - if grep(Tmp1,"$") then - Ctr=Ctr+1; - end; - end - if Ctr==1 then - Out=[Out;Var+"="+Var+"(1)"]; - end; // 15.10.24 upto - Out; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin deleted file mode 100644 index e078ba2f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci deleted file mode 100644 index eaf9f6df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci +++ /dev/null @@ -1,38 +0,0 @@ -// s:2014,09.08 -// e:2014.09.26 -// e:2014.10.07 debugged, code changed -// e:2014.10.08 CR | LF - -function Out=ReadfromCindy(Fname) - Fid=mopen(Fname,"rb"); - Gline=list(); - Gpt=list(); - Gstr=[]; - Str=""; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 - if Tmp=="" then - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=1; - end; - break; - end - C=ascii(Tmp); - if C==13|C==10 then// CR,LF - if Flg==1 then - Gstr=[Gstr;Str]; - Str=""; - Flg=0; - end; - else - Str=Str+Tmp; - Flg=1; - end; - Tmp=mgetstr(1,Fid); - end; - mclose(Fid); - Out=Gstr; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin deleted file mode 100644 index 05df3aa2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci deleted file mode 100644 index 7109f789..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci +++ /dev/null @@ -1,160 +0,0 @@ -// 08.05.22 -// 08.05.23 -// 08.05.26 -// 08.05.28 -// 10.04.25 -// 11.01.05 -// 13.10.06 format, debug -// 14.01.20 debugged (Big data) - -function OutL=Readtextdata(varargin) - OutL=[]; - Nargs=length(varargin); - Fname=varargin(1); - Suuji='0123456789.+-'; - Sep=''; - Hajime=[1,1]; - N=%inf; - R=%inf; - D=-%inf; // 11.01.04 - Fmt="%lf"; // 13.10.06 - Flg=0; - for I=2:Nargs - Tmp=varargin(I); - if type(Tmp)==1 - if Flg==0 - Hajime=Tmp; - Flg=1 - else - Owari=Tmp; - end - elseif mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - else - if part(Tmp,1)=="%" // 13.10.06 - Fmt=Tmp - else - Sep=Tmp; - if Tmp=='s' Sep=' '; end - if Tmp==',' Sep=','; end - if Tmp=='t' Sep=char(9); end - end - end - end - Owari=Hajime+[N-1,R-1]; - Fid=mopen(Fname,'rb'); - SL=[]; - S=''; - Lsp=0; - Flg=1; - Tmp=mgetstr(1,Fid); - while 1==1 // 2014.01.20 - if Tmp=='' break; end - C=ascii(Tmp); - if C>=32 | C==9 - if C==32 - if Flg==1 - Tmp=''; - end - Flg=1 - else - Flg=0; - end - S=S+Tmp; - Tmp=mgetstr(1,Fid); - else - SL=[SL;S]; - S=''; - Flg=1; - Tmp=mgetstr(1,Fid); - if Lsp==0 - if C==10 // LF - Lsp=1; - elseif C==13 - if ascii(Tmp)==10 - Lsp=3; // CR LF - Tmp=mgetstr(1,Fid); - else - Lsp=2; // CR - end - else - break; - end - else - if C==10 | C==13 - if Lsp==3 - Tmp=mgetstr(1,Fid); - end - else - break - end - end - end - end - mclose(Fid); - if length(S)>0 then // 2013.10.06 - SL=[SL;S] - end - for I=1:size(SL,1) - S=SL(I,1); - if S=='' continue; end - if mtlb_findstr(Suuji,Strop(1,S))~=[] - break - end - end - Hajime(1,1)=max(Hajime(1,1),I); - S=SL(Hajime(1),1); - if Sep=='' - if length(mtlb_findstr(S,char(9)))~=0 - Sep=char(9); - elseif length(mtlb_findstr(S,','))~=0 - Sep=','; - else - Sep=' '; - end - end - Tmp=mtlb_findstr(S,Sep); - J=length(Tmp); - if Tmp(J)~=length(S) - J=J+1; - end - Owari(1,1)=min(size(SL,1),Owari(1)); - Owari(1,2)=min(J,Owari(2)); - S=SL(Owari(1),1); - while S=='' - Owari(1,1)=Owari(1,1)-1; - S=SL(Owari(1),1); - end - OutL=[]; - for J=Hajime(1):Owari(1) - S=SL(J,1); - if S=='' - Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1); - OutL=[OutL;Tmp]; - continue - end - Tmp=Strop(1,S); - if mtlb_findstr(Suuji+Sep,Tmp)==[] - continue - end - SpL=[0,mtlb_findstr(S,Sep),length(S)+1]; - Data=[]; - for K=Hajime(2):Owari(2) - Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S); - Tmp1=msscanf(Tmp,Fmt); // 13.10.06 - Data=[Data,Tmp1]; - end - OutL=[OutL;Data]; - end; - if D~=-%inf // 11.01.04 - Data=[]; - for I=1:size(OutL,1) - Tmp=OutL(I,:); - if Tmp(1)<=D // 11.01.04 - Tmp=[%inf,%inf]; - end; - Data=[Data;Tmp]; - end; - OutL=Data; - end; // -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin deleted file mode 100644 index 2269d9ad..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci deleted file mode 100644 index 837a5727..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci +++ /dev/null @@ -1,51 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Reflectdata(varargin) - Nargs=length(varargin) - ML=varargin(1); - ML=Flattenlist(ML); - if Nargs==1 - PtA=[0,0];PtB=PtA; - else - Pts=varargin(2); - if length(Pts)==2 - PtA=Pts; PtB=PtA; - else - PtA=Pts(1,1:2); PtB=Pts(1,3:4); - end - end - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - if PtA==PtB - 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-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+2*U*(U*B-V*A)/(U^2+V^2); - end - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin deleted file mode 100644 index 1a99c6ca..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci deleted file mode 100644 index facea4d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 11.01.14 New - -function Out=Rmmember(L,Rm) - if type(L)==1 - Out=[]; - end; - if type(L)==15 - Out=list(); - end; - for J=1:length(L) - Tmp=L(J); - if ~Member(Tmp,Rm) - Out($+1)=Tmp; - end; - end; - if type(L)==1 & size(L,1)==1 - Out=Out'; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin deleted file mode 100644 index c9391ec5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci deleted file mode 100644 index 9082290d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci +++ /dev/null @@ -1,40 +0,0 @@ -// 08.08.15 -// 14.03.23 debugged "center" -// 15.04.12 - -function Out=Rotate3data(varargin) -// Eps=10^(-4); - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23 - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin deleted file mode 100644 index 35da0ed9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci deleted file mode 100644 index 910aa734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci +++ /dev/null @@ -1,75 +0,0 @@ -// 08.08.15 - -function Ans=Rotate3pt(varargin) - Eps=10^(-4); - Nargs=length(varargin); - P=varargin(1); - W1=varargin(2); - W2=varargin(3); - C=[0,0,0]; - if Nargs>=4 - C=varargin(4); - end; - if type(W2)==1 & length(W2)==1 - Ct=cos(W2); - St=sin(W2); - V3=1/norm(W1)*W1; - if V3(1)==0 - Tmp=[1,0,0]; - else - Tmp=[0,1,0]; - end; - 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/norm(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)]; - else - 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 norm(Tmp)1 // modified at 080807 - ARROWSIZE=ZL(2); - end - end - Xn=ArgL(2); Xp=ArgL(3); - Yn=ArgL(4); Yp=ArgL(5); - Genn=ArgL(6); Genp=ArgL(7); - if Zk~='' - C=Zk; - if C=='a' - ZIKU='arrow'; - else - ZIKU='line'; - end - end - if Xn~='' - XNAME='$'+Xn+'$' - end - if Xp~='' - XPOS=Xp - end - if Yn~='' - YNAME='$'+Yn+'$' - end - if Yp~='' - YPOS=Yp - end - if Genn~='' - ONAME=Genn - end - if Genp~='' - OPOS=Genp - end - if ZIKU=='line' - Tmp=',' - else - Tmp='(Arrowsize='+string(ARROWSIZE)+'),' - end; - Str=... - ZIKU+Tmp+... - XNAME+','+XPOS+','+YNAME+','+... - YPOS+','+ONAME+','+OPOS; - Out=Str; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin deleted file mode 100644 index a6d15d9d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci deleted file mode 100644 index 51b8e0c3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 11.05.28 -// 11.08.24 -// 15.05.03 - -function Setcolor(varargin) - global Wfile FID; - Nargs=length(varargin); - Color='black'; - Kosa=1; - Color=varargin(1); - if length(varargin)>1 - Kosa=varargin(2); - end; - Iro=Ratiocmyk(Color); - if type(Iro)==10 - Str='\color{'+Iro+"}%"; - else - if size(Iro,2)>3 - Str='\color[cmyk]{'; - else - Str='\color[rgb]{'; - end; - for J=1:size(Iro,2) - Str=Str+string(Kosa*Iro(J)); - if J N__, ... ) -// 14.12.11 v5_1_3a Assign changed (replaced only variable name ) -// Plotdata changed (and debugged ), Paramplot changed -// 12.14 WriteOutData,ReadOutData changed ( for 3d ) -// 14.12.28 v5_1_3b Assign debugged -// 15.01.01 v5_1_4a Bezierpt,Bezier added -// 15.01.03 v5_1_4b ReadOutData changed ("start","end") -// 15.02.08 v5_1_5a Bezier pt changed (available for 3d) -// 15.02.18 v5_1_5b Assign debugged -// 15.02.19 v5_1_5c Assign again debugged -// 15.04.10 v5_1_5d EnclosingS debugged -// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist) -// 15.04.18 v5_1_5e Assign debugged -// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor ) -// 15.05.04 Definecolor added -// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged -// 15.06.14 v5_1_6c Skeletonpara3data debugged -// Arrowhead changed (0.2 -> 0.1 ) -// 15.10.19 v5_1_6d Skeletonpara3data debugged -// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 ) -// 15.10.23 Meetwindow changed ( horner non used ) -// 15.10.24 Arrowline debugged -// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// ) -// 15.11.05 v5_1_6g WriteOutData changed -// 15.11.16 v5_2_1 Ovaldata changed ( Rc ) -// Plotdata, Paramplot, Deqplot -// number of points changed to number of intervals -// 15.12.08 v5_2_2 Deqplot debugged ( option __) -// 16.08.20 v5_2_3 Spacecurve debugged ( N ) -// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve) -// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4)) -// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve)) -// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point) -// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval) -// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval) -// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode) -// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 ) -// 17.05.21 v5_2_3i Evlptablepara changed (division number) - - -function Setversion() - global THISVERSION; - THISVERSION='v5_2_3i'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin deleted file mode 100644 index 0fdd661f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci deleted file mode 100644 index fb72097b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci +++ /dev/null @@ -1,44 +0,0 @@ -// -// 09.02.27 -// 10.04.25 - -function Out=Setwindow(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs==0 - Out=[XMIN,XMAX,YMIN,YMAX]; - disp(Out); - return; - end; - if Nargs==1 - Dt=varargin(1); - if type(Dt)==1 - Dt=list(Dt); - end; - Xm=%inf; XM=-%inf; - Ym=%inf; YM=-%inf; - for I=1:length(Dt) - GL=Dividegraphics(Dt(I)); - for J=1:length(GL) - G=GL(J); - Tmp=min(G(:,1)); Xm=min(Xm,Tmp); - Tmp=max(G(:,1)); XM=max(XM,Tmp); - Tmp=min(G(:,2)); Ym=min(Ym,Tmp); - Tmp=max(G(:,2)); YM=max(YM,Tmp); - end; - end; - XMIN=Xm; XMAX=XM; - YMIN=Ym; YMAX=YM; - end; - if Nargs==2 - RgX=varargin(1); - RgY=varargin(2); - XMIN=RgX(1); XMAX=RgX(2); - YMIN=RgY(1); YMAX=RgY(2); - end - if Nargs==4 - XMIN=varargin(1); XMAX=varargin(2); - YMIN=varargin(3); YMAX=varargin(4); - end; - Out=[XMIN,XMAX,YMIN,YMAX]; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin deleted file mode 100644 index df965eb7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci deleted file mode 100644 index 9c20a13b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.08.16 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function PL__=Sf3data(varargin) - Nargs__=length(varargin); - FdL__=Fullformfunc(varargin(1)); - F__=Mixop(1,FdL__); - Xf__=Mixop(2,FdL__); - Yf__=Mixop(3,FdL__); - Zf__=Mixop(4,FdL__); - Urg__=Mixop(5,FdL__); - Vrg__=Mixop(6,FdL__); - K__=mtlb_findstr(Urg__,'='); - U__=part(Urg__,1:K__-1); - Tmp__=part(Urg__,K__+1:length(Urg__)); - Tmp__=evstr(Tmp__); - Umin__=Tmp__(1); Umax__=Tmp__(2); - K__=mtlb_findstr(Vrg__,'='); - V__=part(Vrg__,1:K__-1); - Tmp__=part(Vrg__,K__+1:length(Vrg__)); - Tmp__=evstr(Tmp__); - Vmin__=Tmp__(1); Vmax__=Tmp__(2); - Ndu__=25 ; Ndv__=25; Np__=[50,50]; - if Nargs__>=3 - Ndu__=varargin(2); - Ndv__=varargin(3); - end; - if Nargs__>=4 - Np__=varargin(4); - if type(Np__)==1 & length(Np__)==1 - Np__=[Np__,Np__]; - end; - end; - Du__=(Umax__-Umin__)/Ndu__; - Dv__=(Vmax__-Vmin__)/Ndv__; - PL__ = []; - for I__=0:Ndu__ - U0__ ='('+string(Umin__+I__*Du__)+')'; - Tmp__=strsubst(Xf__,U__,U0__); - Tmp1__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Yf__,U__,U0__); - Tmp2__=strsubst(Tmp__,V__,'t'); - Tmp__=strsubst(Zf__,U__,U0__); - Tmp3__=strsubst(Tmp__,V__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2))); - PL__=Mixadd(PL__,PD__); - end; - for J__=0:Ndv__ - V0__='('+string(Vmin__+J__*Dv__)+')'; - Tmp__=strsubst(Xf__,V__,V0__); - Tmp1__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Yf__,V__,V0__); - Tmp2__=strsubst(Tmp__,U__,'t'); - Tmp__=strsubst(Zf__,V__,V0__); - Tmp3__=strsubst(Tmp__,U__,'t'); - Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']'; - PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1))); - PL__=Mixadd(PL__,PD__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin deleted file mode 100644 index a86220d5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci deleted file mode 100644 index 7a759f69..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 08.09.13 -// 10.02.16 Eps => [Eps, Epsmag] - -function Out5=Sfbdparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpara(Out3,Fd,Eps(1)); // - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin deleted file mode 100644 index 304be9f0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci deleted file mode 100644 index 9833a7f4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci +++ /dev/null @@ -1,42 +0,0 @@ - -// 08.09.21 -// 10.02.16 Eps => [Eps, Epsmag] -// 13.11.02 bug - -function Out5=Sfbdpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=[0.05,1]; // - if Nargs>=3 - Eps=varargin(3); - end; - if length(Eps)==1 // - Eps=[Eps,1]; // - end; // - Eps2=0.2; - if Nargs>=4 - Eps2=varargin(4); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - IMPLICITDATA=Out3; - Mixdisp(Mix('ImplicitData obtained ',timer())); - Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02 - CUSPDATA=Out4; - CUSPPT=CUSPSPLITPT; - Mixdisp(Mix('CuspData obtained ',timer())); - Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2); - Mixdisp(Mix('BorderData obtained ',timer())); -endfunction; - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin deleted file mode 100644 index cb2d0f7a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci deleted file mode 100644 index 082ccec3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.09.10 -// 08.09.13 - -function Out5=Sfbdrawparadata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpara(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin deleted file mode 100644 index 5731c723..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci deleted file mode 100644 index cde6870f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// 08.09.21 - -function Out5=Sfbdrawpersdata(varargin) - global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT; - Nargs=length(varargin); - Fd=varargin(1); - FdL=Fullformfunc(Fd); - Np=[50,50]; - if Nargs>=2 - Np=varargin(2); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end; - Eps=0.05; - if Nargs>=3 - Eps=varargin(3); - end; - Ts=timer(); - [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np)); - Out3=Implicitplot(Zval,Xval,Yval); - BdyL=Mixop(8,FdL); - if BdyL~=[] - Out3=Clipindomain(Out3,BdyL) - end; - IMPLICITDATA=Out3; - Out4=Cuspsplitpers(Out3,Fd,Eps); - CUSPDATA=Out4; - CCUSPPT=CUSPSPLITPT; - Out5=Borderrawdata(Out4,Fd,Np,Eps); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin deleted file mode 100644 index a7dae3c3..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci deleted file mode 100644 index 5a15d61c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci +++ /dev/null @@ -1,105 +0,0 @@ -// 08.09.09 -// 08.09.19 -// 08.09.20 -// 08.09.24 -// 08.10.09 -// 08.10.10 -// 13.10.21 ( __ added to varibles ) - -function EkL__=Sfcutdata(varargin) - Nargs__=length(varargin); - Fd__=varargin(1); - CutD__=varargin(2); - Np__=[50,50]; - if Nargs__>=3 - Tmp__=varargin(3); - if type(Tmp__)==1 & length(Tmp__)==1 - Np__=[Tmp__,Tmp__]; - end; - end; - Tmp__=Mixop(2,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Xname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(3,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Yname__=part(Tmp__,1:K__-1); - Tmp__=Mixop(1,Fd__); - K__=mtlb_findstr(Tmp__,'='); - if K__~=[] - Zname__=part(Tmp__,1:K__-1); - else - Tmp__=Mixop(4,Fd__); - K__=mtlb_findstr(Tmp__,'='); - Zname__=part(Tmp__,1:K__-1); - end; - Fd__L=Fullformfunc(Fd__); - Xf__=Mixop(2,Fd__L); - Yf__=Mixop(3,Fd__L); - Zf__=Mixop(4,Fd__L); - Tmp__=Mixop(5,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Uname__=part(Tmp__,1:K__-1); - Urg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Tmp__=Mixop(6,Fd__L); - K__=mtlb_findstr(Tmp__,'='); - Vname__=part(Tmp__,1:K__-1); - Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__))); - Umin__=Urg__(1); Umax=Urg__(2); - Vmin__=Vrg__(1); Vmax=Vrg__(2); - if Mixtype(CutD__)~=1 - V1__=Mixop(1,CutD__); - Tmp__=Mixop(2,CutD__); - if length(Tmp__)>1 - D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3); - else - D__=Tmp__; - end; - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-'; - Eq__=Tmp__+string(D__); - elseif type(CutD__)==1 - V1__=CutD__(1:3); - D__=CutD__(4); - Tmp__=string(V1__(1))+'*'+Xname__+'+'; - Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+'; - Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+'; - Eq__=Tmp__+string(D__); - else - K__=mtlb_findstr(CutD__,'='); - if K__>0 - Tmp__1=part(CutD__,1:K__-1); - Tmp__2=part(CutD__,K__+1:length(CutD__)); - Eq__=Tmp__1+'-('+Tmp__2+')'; - else - Eq__=CutD__; - end; - end; - Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')'); - Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')'); - Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')'); - Tmp__1=Mixop(5,Fd__L); - Tmp__2=Mixop(6,Fd__L); - CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__); - EkL__=[]; - for I__=1:Mixlength(CutuvL__) - Out__1=Mixop(I__,CutuvL__); - Out__2=[]; - for J__=1:size(Out__1,1) - Tmp__1=Out__1(J__,1); - Tmp__2=Out__1(J__,2); - Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Xv__=evstr(Tmp__); - Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Yv__=evstr(Tmp__); - Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')'); - Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')'); - Zv__=evstr(Tmp__); - Out__2=[Out__2,[Xv__,Yv__,Zv__]]; - end; - Tmp__=Spaceline(Out__2); - EkL__=Mixadd(EkL__,Tmp__); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin deleted file mode 100644 index 07cfe7f8..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci deleted file mode 100644 index 0e4c6a5b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.1 -// 10.02.17 - -function Out=Sfcutoffparadata(varargin) - Ms=list('hidden','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin deleted file mode 100644 index aaf088b5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci deleted file mode 100644 index c10cdb8d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffpersdata(varargin) - Ms=list('hidden','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin deleted file mode 100644 index b2d998a7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci deleted file mode 100644 index 546f66d8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.19 -// 10.02.17 - -function Out=Sfcutoffrawparadata(varargin) - Ms=list('raw','para'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin deleted file mode 100644 index 8c08c1b7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci deleted file mode 100644 index e5a387f5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.09.21 -// 10.02.17 - -function Out=Sfcutoffrawpersdata(varargin) - Ms=list('raw','pers'); - for I=1:length(varargin) - Tmp=varargin(I); - Ms=Mixjoin(Ms,list(Tmp)); - end; - Out=Makesfcutoffdata(Ms); -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin deleted file mode 100644 index 45df29ba..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci deleted file mode 100644 index 5aa4e5e5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.16 - -function Out=Sfparadata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpara(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin deleted file mode 100644 index 3350f9b9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci deleted file mode 100644 index ecc63e41..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci +++ /dev/null @@ -1,17 +0,0 @@ -// 08.08.15 - -function Out=Sfpersdata(varargin) - Nargs=length(varargin); - Fd=varargin(1); - Ndu=25 ; Ndv=25; Np=[50,50]; - if Nargs>=3 - Ndu=varargin(2); - Ndv=varargin(3); - end; - if Nargs>=4 - Np=varargin(4); - end; - Tmp=Sf3data(Fd,Ndu,Ndv,Np); - Out=Projpers(Tmp); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin deleted file mode 100644 index 130e2b32..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci deleted file mode 100644 index ff22a933..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci +++ /dev/null @@ -1,84 +0,0 @@ -// 08.05.22 -// 09.12.25 -// 11.05.27 (for pdflatex ) -// 17.01.09 (shade, thickness ) - -function Shade(varargin) - global Wfile FID MilliIn; - // 2nd arg is a color name or '[..]{ }' - Nargs=length(varargin); - Iroflg=0; - if Nargs>1 - Iroflg=1; - Iro=varargin(Nargs); - if type(Iro)==10 then - if length(strchr(Iro,"{"))>0 - Str="{\color"+Iro; - else - Str="{\color{"+Iro+"}"; - end; - else - if length(Iro)==4 - Str='{\color[cmyk]{'; - else - Str='{\color[rgb]{'; - end; - for J=1:length(Iro) - Str=Str+string(Iro(J)); - if J80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - Mojisu=0; - end; - end; - end; - if Iroflg==1 - Str='}%'; - if Mojisu>0 - Fmt='\n%s\n'; - else - Fmt='%s\n'; - end; - if Wfile=='default' - mprintf(Fmt,Str); - else - mfprintf(FID,Fmt,Str); - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin deleted file mode 100644 index 89d8b459..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci deleted file mode 100644 index 4eec31cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 09.06.13 - -function Out=Skeleton2data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - Tmp=varargin(1); - if Mixtype(Tmp)==1 - ObjL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - ObjL=Tmp; - else - ObjL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - ObjL=Mixadd(ObjL,Tmp1); - else - ObjL=Mixjoin(ObjL,Tmp1); - end; - end; - end; - Tmp=varargin(2); - if Mixtype(Tmp)==1 - PltL=MixS(Tmp); - elseif Mixtype(Tmp)==2 - PltL=Tmp - else - PltL=[]; - for I=1:Mixlength(Tmp) - Tmp1=Mixop(I,Tmp); - if Mixtype(Tmp1)==1 - PltL=Mixadd(PltL,Tmp1); - else - PltL=Mixjoin(PltL,Tmp1); - end; - end; - end; - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.01; - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=[]; - for I=1:Mixlength(ObjL) - Curve=Mixop(I,ObjL); - Obj2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Obj2=[Obj2;P,-1]; - end; - Obj2L=Mixadd(Obj2L,Obj2); - end; - Plt2L=[] - for I=1:Mixlength(PltL) - Curve=Mixop(I,PltL); - Plt2=[]; - for J=1:size(Curve,1) - P=Curve(J,:); - Plt2=[Plt2;P,0]; - end; - Plt2L=Mixadd(Plt2L,Plt2); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin deleted file mode 100644 index 03fcdda2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci deleted file mode 100644 index 5914d47a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci +++ /dev/null @@ -1,48 +0,0 @@ -// 09.09.25 -// 11.12.12 -// 15.06.14 -// 15.10.19 - -function Out=Skeletonpara3data(varargin) - global MilliIn; - Eps=10^(-4); // 15.06.14 - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=list(); - for I=1:Mixlength(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=ProjcoordCurve(Obj3); - Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - if size(Gd,1)==1 // 15.10.19 - continue; - end; - if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=ProjcoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=ProjcoordCurve(Plt3L(I)); - end; - Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin deleted file mode 100644 index ec2a9bad..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci deleted file mode 100644 index 57dde938..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.09.25 -// 11.12.12 - -function Out=Skeletonpers3data(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Plt2L=[]; - for I=1:Mixlength(Plt3L) - Tmp=CameracoordCurve(Mixop(I,Plt3L)); - Plt2L=Mixadd(Plt2L,Tmp); - end; - Out=list(); - for I=1:length(ObjL) - Obj3=ObjL(I); - Tmp=CameracoordCurve(Obj3); - Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2); - for J=1:length(Data) - Gd=Data(J); - PtD=[]; - for J=1:size(Gd,1) - Tmp=Gd(J,:); - Tmp1=Invperspt(Tmp,Obj3); - Tmp1=Mixop(1,Tmp1); - PtD=[PtD;Tmp1]; - end; - Out($+1)=PtD; - end; - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin deleted file mode 100644 index 7d2c1a07..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci deleted file mode 100644 index c91e73cf..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci +++ /dev/null @@ -1,29 +0,0 @@ -// 08.08.14 -// 08.10.16 -// 11.12.12 - -function Out=Skeletonpersdata(varargin) - global MilliIn; - Nargs=length(varargin); - Out=[]; - ObjL=Flattenlist(varargin(1)); - Plt3L=Flattenlist(varargin(2)); - R=0.075*1000/2.54/MilliIn; - if Nargs>2 - R=R*varargin(3); - end; - Eps2=0.05; // changed at 08.10.16 - if Nargs>3 - Eps2=varargin(4); - end; - Obj2L=list(); - for I=1:length(ObjL) - Obj2L($+1)=CameracoordCurve(ObjL(I)); - end; - Plt2L=list(); - for I=1:length(Plt3L) - Plt2L($+1)=CameracoordCurve(Plt3L(I)); - end; - Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin deleted file mode 100644 index 880f8540..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci deleted file mode 100644 index 077a88cb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci +++ /dev/null @@ -1,83 +0,0 @@ -// 08.07.11 -// 09.05.27 -// 09.06.02 -// 09.12.31 (gsort) -// 13.10.21 ( __ added to varibles ) -// 16.08.20 (N changed to devided number ) -// 16.12.13 ( in case of T1=T2) - -function P__=Spacecurve(varargin) - Eps__=10^(-5); - Nargs__=length(varargin); - Fnstr__=varargin(1); - Rgstr__=varargin(2); - Range__=[0,2*%pi]; - N=50; // Numpoints - E=[]; // Exclusions - D=%inf; // Discont (Changed) - for I__=3:Nargs__ - Tmp__=varargin(I__); - K__=mtlb_findstr(Tmp__,'='); - Tmp1__=strsplit(Tmp__,[K__-1,K__]); - Tmp2__=ascii(Tmp1__(1,1)); - Lhs__=char(Tmp2__(1)); - Str__=Lhs__+'='+Tmp1__(3,1); - execstr(Str__); - end; - K__=mtlb_findstr(Rgstr__,'='); - if K__~=[] - Tmp__=strsplit(Rgstr__,[K__-1,K__]); - Vname__=Tmp__(1,1); - Rng__=evstr(Tmp__(3,1)); - else - Vname__=Rgstr__; - Rng__=[XMIN,XMAX]; - end - T1__=Rng__(1); T2__=Rng__(2); - Dt__=(T2__-T1__)/N; // 16.08.20 - Str__=mtlb_strrep(Fnstr__,Vname__,'t__'); - if abs(Dt__)Eps__ - Pa__=evstr(Str__); - Ke__=Ke__+1; - end - if Pa__~=[] - if Pa__(1)==%inf - P__=[P__;Pa__] - elseif P__==[] - P__=[Pa__]; - else - Tmp__=P__(size(P__,1),:); - if Tmp__(1)==%inf - P__=[P__;Pa__]; - elseif norm(Tmp__-Pa__)1 - if type(Nj)==1 - Nj=N; - else - Nj=[]; - for J=1:length(N) - Nj(J)=N(J); - end; - end; - else - Tmp1=[]; - for J=1:length(PLL) - Tmp1(J)=size(PLL(J),1); - end; - MxP=max(Tmp1); - Nj=[]; - for J=1:length(PLL) - Tmp=size(PLL(J),1); - Tmp1=round(N/MxP*(Tmp-1)); - Nj(J)=Tmp1; - end; - end; - OutL=list(); - for J=1:length(PLL) // - PL=PLL(J); - if Cflg(J)==1 - if norm(PL(1,:)-PL(size(PL,1),:))>Eps - PL=[PL;PL(1,:)]; - Nj(J)=round(N/MxP*size(PL,1)); - else - PL(size(PL,1),:)=PL(1,:); - end - end; - SplinePt=PL; - Tn=1:size(PL,1); - Xn=PL(:,1)'; - Yn=PL(:,2)'; - if Flg3==1 Zn=PL(:,3)';end; - if Cflg(J)==0 - Dxn=splin(Tn,Xn); - Dyn=splin(Tn,Yn); - if Flg3==1 Dzn=splin(Tn,Zn); end; - else - Dxn=splin(Tn,Xn,'periodic'); - Dyn=splin(Tn,Yn,'periodic'); - if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end; - end - T=linspace(1,size(PL,1),Nj(J)); - X=interp(T,Tn,Xn,Dxn); - Y=interp(T,Tn,Yn,Dyn); - if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end; - if Flg3==1 - Out=[X',Y',Z']; - else - Out=[X',Y']; - end; - OutL($+1)=Out; - end; - if length(OutL)==1 - OutL=OutL(1); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin deleted file mode 100644 index de695ff2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci deleted file mode 100644 index 8f4da94d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci +++ /dev/null @@ -1,11 +0,0 @@ -function C=Strop(Num,Str) - N=length(Num); - L=ascii(Str); - C=''; - for I=1:N - K=Num(I); - Tmp=char(L(K)); - C=C+Tmp; - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin deleted file mode 100644 index 2ca7ae03..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci deleted file mode 100644 index 785b605c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci +++ /dev/null @@ -1,21 +0,0 @@ -// -// 08.06.04 - -function V=Subs(SbstrL,StrF) - Str=StrF; - if type(StrF)==2 - Str=pol2str(StrF); - end - V=StrF; - for N=1:size(SbstrL,2) - Sbstr=SbstrL(1,N); - I=mtlb_findstr(Sbstr,'='); - Tmp=strsplit(Sbstr,I); - SbA=Tmp(1); - SbA=Op(1:length(SbA)-1,SbA); - SbB=Tmp(2); - V=strsubst(V,SbA,SbB); - end - V=evstr(V); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin deleted file mode 100644 index 0e796d65..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci deleted file mode 100644 index 55fdfd0f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 08.05.30 -// 08.05.31 -// 08.06.03 -// 13.10.21 (__ added to variables ) - -function PL__=Sumfun(varargin) - global XMIN XMAX YMIN YMAX - Nargs__=length(varargin); - Const__=0; - Addstr__='A__=0'; - J__=1; - Tmp__=varargin(1); - if type(Tmp__)==1 - Const__=Tmp__; - J__=J__+1; - end - if type(Tmp__)==10 - Tmp1__=Strop(length(Tmp__),Tmp__); - if Tmp1__=='+' - Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__); - J__=J__+1 - end - end - Fnstr__=varargin(J__); - Krange__=varargin(J__+1); - Xrange__=varargin(J__+2); - N=50; - for I__=J__+3:Nargs__ - Tmp__=varargin(I__); - execstr(Tmp__); - end - Tmp__=mtlb_findstr(Krange__,'='); - Kname__=Strop(1:Tmp__-1,Krange__); - Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__); - Tmp1__='Krg__='+Tmp1__; - execstr(Tmp1__); - Tmp__=mtlb_findstr(Xrange__,'='); - if Tmp__==[] - Xname__=Xrange__; - Xrg__=[XMIN,XMAX]; - else - Xname__=Strop(1:Tmp__-1,Xrange__); - Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__); - Tmp1__='Xrg__='+Tmp1__; - execstr(Tmp1__); - end - Dx__=(Xrg__(2)-Xrg__(1))/N; - PL__=[]; - I__=0; - while I__<=N - Tmp__=Xname__+'=Xrg__(1)+I__*Dx__'; - execstr(Tmp__); - J__=Krg__(1); - execstr(Addstr__); - Y__=Const__+A__; - while J__<=Krg__(length(Krg__)) - Tmp__=Kname__+'=J__'; - execstr(Tmp__); - execstr('Y__=Y__+'+Fnstr__); - J__=J__+1; - end - PL__=[PL__;Xrg__(1)+I__*Dx__,Y__]; - I__=I__+1; - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin deleted file mode 100644 index c5c00977..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci deleted file mode 100644 index 0d649872..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci +++ /dev/null @@ -1,30 +0,0 @@ -// s : 2014.08.25 - -function Out=Symb3data(Moji,Size,Kaiten,NV,Pos) - if type(Moji)==10 then - Tmp=Symbdata(Moji); - GY1=Tmp(2) - else - GY1=Moji - end - GY1=Scaledata(GY1,Size,Size); - GY1=Rotatedata(GY1,Kaiten*%pi/180); - A=NV(1); B=NV(2); C=NV(3); - if A^2+B^2==0 then - E1=[1,0,0]; - E2=[0,1,0]; - else - E1=[B,-A,0]; - E2=[-A*C,-B*C,A^2+B^2]; - D=det([E1;E2;NV]); - if D<0 then - E1=-E1 - end - E1=E1/norm(E1); - E2=E2/norm(E2); - end - deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]"); - GY1=Embed(GY1,Em); - GY1=Translate3data(GY1,Pos); - Out=Flattenlist(GY1); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin deleted file mode 100644 index 2fb81c8f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci deleted file mode 100644 index d63a3470..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci +++ /dev/null @@ -1,67 +0,0 @@ -// s : 2014.08.25 -// 14.09.07 - -function Out=Symbdata(Moji) - ML=list(); Sp=[]; CC=[]; - if Moji=="x" then - M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;... - -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035]; - M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;... - -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end; - if Moji=="y" then - M1=[-0.06,0.06;... - -0.045,0.080;... - -0.03,0.080;... - -0.022,0.065;... - -0.032,0.035;... - -0.035,-0.01;... - 0.007,-0.008;... - 0.037,0.04;... - 0.05,0.09]; - M2=[0.05,0.09;... - 0.037,0.04;... - 0.025,-0.00;... - 0.015,-0.035;... - -0.000,-0.055;... - -0.025,-0.062;... - -0.05,-0.045]; - ML=list(M1,M2); - Sp=[100,100]; - CC=[0,0]; - end - if Moji=="z" then - M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;... - 0.01,0.04;0.035,0.04;0.042,0.045]; - M2=[0.042,0.045;0.00,0.00;-0.042,-0.045]; - M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;... - 0.01,-0.045;0.023,-0.045;0.035,-0.035]; - ML=list(M1,M2,M3); - Sp=[100,0,100]; - CC=[0,0,0]; - end - Out1=list() - Out2=list() - for J=1:length(ML) - M=ML(J); - N=Sp(J); - for K=1:size(M,1) - P=M(K,:) - Out1($+1)=P - end - if N>0 then - if CC(J)==0 then - S=Splinedata(M,"N="+string(N)) - else - S=Splinedata(M,"N="+string(N),"C") - end - else - S=M - end; - Out2($+1)=S - end - Out=list(Out1,Out2) -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin deleted file mode 100644 index 774b416f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci deleted file mode 100644 index 621f6256..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci +++ /dev/null @@ -1,130 +0,0 @@ -// 09.11.26 -// 09.12.06 -// 09.12.25 -// 10.01.12 -// 10.01.13 -// 10.03.28 -// 10.03.30 -// 13.05.03 Domain can be omitted - -function Out=Tabledata(varargin) -// 2013.05.01 Domain is optional. - Eps=0.001; - Tmp=varargin(1); // 130502 from - if type(Tmp)==1 - Domain=varargin(1); - VL=varargin(2); - HL=varargin(3); - else - Domain=[-1,-1]; - VL=varargin(1); - HL=varargin(2); - end; // 130502 upto - Hsize=Domain(1); - SvL=list(0); - S=0; - for I=1:length(VL) - Tmp=VL(I); - S=S+Tmp(1); - Tmp(1)=S; - SvL($+1)=Tmp; - end; - if Hsize>S - SvL($+1)=Hsize; - end; - Hsize=Op(1,SvL(length(SvL))); - Vsize=Domain(2); - ShL=list(0); - S=0; - for I=1:length(HL) - Tmp=HL(I); - S=S+Tmp(1); - Tmp(1)=S; - ShL($+1)=Tmp; - end; - if Vsize>S - ShL($+1)=Vsize; - end; - Vsize=Op(1,ShL(length(ShL))); - Marw=0; Mare=0; Mars=0; Marn=0; - if length(Domain)>2 - Marw=Domain(3); - Mare=Domain(4); - end; - if length(Domain)>4 - Marn=Domain(5); - Mars=Domain(6); - end; - Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]); - Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]); - Gdata=list(Tmp); - Tmp=-Marw; - Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]])); - for I=1:length(SvL) // 10.03.30 - Data=SvL(I); - X=Data(1); - if length(Data)==1 - Y1=0; - Y2=Vsize; - G=Listplot([X,Y1],[X,Y2]); - else - G=[]; - for J=2:2:length(Data) - Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30 - Y2=Vsize-Op(1,ShL(Data(J+1))); - Tmp=Listplot([[X,Y1],[X,Y2]]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Hdata($+1)=G; - end; - Tmp=Hsize+Mare; - Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]); - Hdata($+1)=Tmp1; - Tmp=Vsize+Marn; - Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]])); - for I=1:length(ShL) - Data=ShL(I); - Y=Vsize-Data(1); - if length(Data)==1 - X1=0; - X2=Hsize; - G=Listplot([X1,Y],[X2,Y]); - else - G=[]; - for J=2:2:length(Data) - X1=Op(1,SvL(Data(J))); // 10.03.30 - X2=Op(1,SvL(Data(J+1))); - Tmp=Listplot([X1,Y],[X2,Y]); - G=[G;%inf,%inf;Tmp]; - end; - G=G(2:size(G,1),:); - end; - Vdata($+1)=G; - end; - Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]); - Vdata($+1)=Tmp; - Tmp1=Mixsub(3:(length(Hdata)-2),Hdata); - Tmp2=Mixsub(3:(length(Vdata)-2),Vdata); - Gdata=Mixjoin(Gdata,Tmp1,Tmp2); - Hind=2:(1+length(Tmp1)); - Vind=(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([P1,P2]),Listplot([Q1,Q2])); - P1=Ptnw(G); P2=Ptne(G); - Q1=Ptsw(G); Q2=Ptse(G); - Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2])); - Tmp3=Framedata(); - Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3); -endfunction; - -function Out=Dividetable(Tb) - G=Tb(1); - Gw=G(1); - Gt=Mixsub(Tb(2),G); - Gy=Mixsub(Tb(3),G); - Out=list(Gw,Gt,Gy) -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin deleted file mode 100644 index 97832ff7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci deleted file mode 100644 index 9b848315..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci +++ /dev/null @@ -1,41 +0,0 @@ -// -// 09,12.05 -// 09.12.06 -// 09.12.07 -// 09.12.20 - -function Texcom(Meirei) - global Wfile FID; - if Meirei=='\thinlines' - Setpen(1); - return - end - if Meirei=='\thicklines' - Setpen(2); - return - end - if Meirei=='\Thicklines' - Setpen(3); - return - end; - - if Meirei=='' // 09.12.07 - Tmp=[]; - else - Tmp=mtlb_findstr(Meirei,'newline'); - end; - if length(Tmp)>0 - if Wfile=='default' - mprintf('%s\n',''); - else - mfprintf(FID,'%s\n',''); - end; - return; - end; - if Wfile=='default' - mprintf('%s%s\n',Meirei,'%'); - else - mfprintf(FID,'%s%s\n',Meirei,'%'); - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin deleted file mode 100644 index e04419ed..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci deleted file mode 100644 index 2a8b08ca..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci +++ /dev/null @@ -1,15 +0,0 @@ -// -// 2010.05.15 - -function Out=Texctr(N) - if type(N)==1 - Alpha='abcdefghijklmnopqrstuvwxyz'; - Out='ketpicctr'+part(Alpha,N); - else - if part(N,1)=='\' - Out=part(N,2:length(N)); - else - Out=N; - end; - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin deleted file mode 100644 index 30d0e388..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci deleted file mode 100644 index 8ef93556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texelse() - Texcom(''); - Texcom('\else'); -endfunction; \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin deleted file mode 100644 index 89cf7657..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci deleted file mode 100644 index a3139873..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 01.10.21 - -function Texend() - Closephr(); -endfunction \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin deleted file mode 100644 index 72f260ac..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci deleted file mode 100644 index ecb7b788..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 10.04.16 - -function Texendfor(I) - global TEXFORLEVEL TEXFORLAST - Last=TEXFORLAST(TEXFORLEVEL); - Texcom(''); - Texcom('\ifnum'+Texthectr(I)+'<'+Last); - Texcom('\repeat'); - Texcom('}'); - TEXFORLEVEL=TEXFORLEVEL-1; - TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin deleted file mode 100644 index bd069613..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci deleted file mode 100644 index 97d32d85..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.04.16 -// 10.04.18 - -function Texendif() - Texcom(''); // - Texcom('\fi'); - Texcom('}'); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin deleted file mode 100644 index b9861fc7..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci deleted file mode 100644 index 0c239842..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 10.04.16 -// 10.05.12 -// 10.10.20 ( available for numeric ) - -function Texfor(I,First,Last) - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=TEXFORLEVEL+1; - Texsetctr(I,'0'); - Texsetctr(I,string(First)+'-1'); - Texcom(''); - Texcom('{'); - Texcom('\loop'); - Texsetctr(I,'+1'); - TEXFORLAST($+1)=string(Last); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin deleted file mode 100644 index 3d33948a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci deleted file mode 100644 index f661c649..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 10.04.18 - -function Texforinit() - global TEXFORLEVEL TEXFORLAST - TEXFORLEVEL=0; - TEXFORLAST=list(); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin deleted file mode 100644 index 6f53de74..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci deleted file mode 100644 index 8cbae5dc..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci +++ /dev/null @@ -1,19 +0,0 @@ -// 10.04.16 -// 10.04.18 -// 10.05.03 - -function Texif(varargin) - Condstr=varargin(1); - Tp=0; - if length(varargin)>1 - Tp=varargin(2); - end; - Texcom(''); - Texcom('{'); - if Tp==0 - Texcom('\ifnum '); - else - Texcom('\ifdim '); - end; - Texcom(Condstr+' '); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin deleted file mode 100644 index 4dea33e2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci deleted file mode 100644 index f83cc8c8..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci +++ /dev/null @@ -1,44 +0,0 @@ -// 10.01.07 - -function Texletter(varargin) - global Wfile FID MEMORI; - Nargs=length(varargin); - for I=1:3:Nargs - P=varargin(I); - X=P(1); - if type(X)==1 - X=string(X); - end; - Y=P(2); - if type(Y)==1 - Y=string(Y); - end; - Houkou=varargin(I+1); - Mojiretu=varargin(I+2); - Hset=Houkou; - Vhoko='c'; - if mtlb_findstr(Hset,'n')~=[] - Vhoko='n'; - end - if mtlb_findstr(Hset,'s')~=[] - Vhoko='s'; - end - Hhoko='c'; - if mtlb_findstr(Hset,'e')~=[] - Hhoko='e'; - end - if mtlb_findstr(Hset,'w')~=[] - Hhoko='w'; - end - Hoko=Vhoko+Hhoko; - CalcWidth(Hoko,Mojiretu); - CalcHeight(Hoko,Mojiretu); - Tmp='\put('+X+','+Y+'){\hspace*{\Width}'; - Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%'; - if Wfile=='default' - mprintf('%s\n',Str); - else - mfprintf(FID,'%s\n',Str); - end - end -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin deleted file mode 100644 index a44b7156..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci deleted file mode 100644 index b3b9a417..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texnewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\newcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction \ No newline at end of file diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin deleted file mode 100644 index c0acb00b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci deleted file mode 100644 index 03cabf81..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci +++ /dev/null @@ -1,13 +0,0 @@ -// 10.01.21 - -function Texnewctr(N) - if type(N)==10 - Str='\newcounter{'+N+'}'; - Texcom(Str); - else - for I=N - Str='\newcounter{'+Texctr(I)+'}'; - Texcom(Str); - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin deleted file mode 100644 index 507705b2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci deleted file mode 100644 index b8926589..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 10.01.21 - -function Texrenewcmd(varargin) - Nargs=length(varargin); - Str=varargin(1); - S='\renewcommand{'+Str+'}'; - if Nargs>1 - Tmp=string(varargin(2)); - S=S+'['+Tmp+']'; - end; - if Nargs>2 - Tmp=varargin(3); - if type(Tmp)==1 - Tmp=string(Tmp); - end; - S=S+'['+Tmp+']'; - end; - S=S+'{'; - Texcom(S); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin deleted file mode 100644 index d9c2bcae..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci deleted file mode 100644 index 166af676..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci +++ /dev/null @@ -1,70 +0,0 @@ -// 10.01.21 - -function Texsetctr(Nctr,Opstr) - Ctr=Texctr(Nctr); - Opstr=Opstr+'%'; - OperL='+-*/%'; - Oper=''; - Va=''; - Evflg=0; - Paflg=0; - for I=1:length(Opstr) - Tmp=part(Opstr,I); - if Tmp=='(' - Paflg=1; - if length(Va)>0 - Evflg=1; - Va=Va+Tmp; - end; - continue; - end; - if Tmp==')' - Paflg=0; - if Evflg>0 - Va=Va+Tmp; - end; - continue; - end; - if Paflg>0 - Va=Va+Tmp; - continue; - end; - if length(mtlb_findstr(Tmp,OperL))==0 - Va=Va+Tmp; - else - if Evflg>0 - Tmp1=evstr(Va); - Va='\value{'+Tmp1+'}'; - Evflg=0; - end; - if Oper=='' - if length(Va)>0 - Str='\setcounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - end; - Oper=Tmp; - Va=''; - elseif Oper=='+' - Str='\addtocounter{'+Ctr+'}{'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='-' - Str='\addtocounter{'+Ctr+'}{-'+Va+'}'; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='*' - Str='\multiply\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va=''; - elseif Oper=='/' - Str='\divide\value{'+Ctr+'} by '+Va; - Texcom(Str); - Oper=Tmp; - Va='' - end; - end; - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin deleted file mode 100644 index 26d4e8ef..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci deleted file mode 100644 index 469da91a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texthectr(N) - Out='\the'+Texctr(N); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin deleted file mode 100644 index fd208b4a..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci deleted file mode 100644 index 96d1c734..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci +++ /dev/null @@ -1,5 +0,0 @@ -// 2010.02.12 - -function Out=Texvalctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin deleted file mode 100644 index 74890021..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci deleted file mode 100644 index fc443411..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci +++ /dev/null @@ -1,6 +0,0 @@ -// 10.01.21 - -function Out=Texvctr(N) - Out='\value{'+Texctr(N)+'}'; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin deleted file mode 100644 index 67df224b..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci deleted file mode 100644 index c6ceff89..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.07.11 - -function Ang=Thetadegree() - global THETA; - Ang=THETA*180/%pi; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin deleted file mode 100644 index 3cbb70be..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci deleted file mode 100644 index a7a3fc2d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=ThisVersion() - global THISVERSION - Y=THISVERSION -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin deleted file mode 100644 index a0704ffc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci deleted file mode 100644 index 8ef53bd5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 10.01.02 - -function Out=Tolist(LG) - Out=list(); - for I=1:length(LG) - Out($+1)=LG(I); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin deleted file mode 100644 index 55b89eee..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci deleted file mode 100644 index 98d69544..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci +++ /dev/null @@ -1,36 +0,0 @@ -// 08.08.15 -// 15.04.12 - -function Out=Translate3data(varargin) - Nargs=length(varargin); - Pd3=varargin(1); - Pd3=Flattenlist(Pd3); // 15.04.12 - Mv=varargin(2); - if type(Mv)==1 & length(Mv)==1 - Mv=[varargin(2),varargin(3),varargin(4)]; - end; -// if Mixtype(Pd3)==1 // 15.04.12 from -// Pd3=MixS(Pd3); -// elseif Mixtype(Pd3)==3 -// Tmp=[]; -// for I=1:Mixlength(Pd3) -// Tmp=Mixjoin(Tmp,Mixop(I,Pd3)); -// end; -// Pd3=Tmp; -// end; - Out=[]; - for I=1:length(Pd3) - PD=Op(I,Pd3); - Ans=[]; - for J=1:size(PD,1) - P=PD(J,:); - Tmp=P+Mv;; - Ans=[Ans;Tmp]; - end; - Out=Mixadd(Out,Ans); - end; - if length(Out)==1 - Out=Op(1,Out); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin deleted file mode 100644 index 2239d9d6..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci deleted file mode 100644 index a2e31085..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci +++ /dev/null @@ -1,42 +0,0 @@ -// 08.05.25 Koshikawa -// 08.09.20 -// 15.04.12 - -function OutL=Translatedata(varargin) - Nargs=length(varargin); - ML=varargin(1); - ML=Flattenlist(ML); - Tmp=varargin(2); - if type(Tmp)==1 & length(Tmp)>1 - A=Tmp(1); B=Tmp(2); - else - A=Tmp; - if Nargs>=3 - B=varargin(3); - else - B=0; - end; - end; - OutL=[]; - for N=1:length(ML) - GL=Op(N,ML); - Out=[]; - for I=1:size(GL,1) - Tmp=GL(I,:); - X1=Tmp(1); - Y1=Tmp(2); - if Tmp==[%inf,%inf] - X2=X1; - Y2=Y1; - else - X2=X1+A; - Y2=Y1+B; - end - Out=[Out;X2,Y2]; - end; - OutL=Mixadd(OutL,Out); - end; - if length(OutL)==1 - OutL=Op(1,OutL); - end; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin deleted file mode 100644 index 4d0816a4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci deleted file mode 100644 index b4705593..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci +++ /dev/null @@ -1,10 +0,0 @@ -// 08.05.20 - -function N=Trunc(X) - if X>=0 - N=floor(X) - else - N=ceil(X) - end -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin deleted file mode 100644 index c9d8edf5..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci deleted file mode 100644 index 74910ceb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci +++ /dev/null @@ -1,12 +0,0 @@ -function Out=Unscaling(G) - global LOGX LOGY SCALEX SCALEY; - GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY]; - Out=GLg; - if LOGX==1 - Out=[10^(GLg(:,1)),GLg(:,2)]; - end; - if LOGY==1 - Out=[GLg(:,1),10^(GLg(:,2))]; - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin deleted file mode 100644 index ba124a81..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci deleted file mode 100644 index 4bc7684c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=zeros(1,length(PA)); - end - Tmp=PB-PA; - L=sqrt(Tmp*Tmp'); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin deleted file mode 100644 index b524d528..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci deleted file mode 100644 index 527d3834..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci +++ /dev/null @@ -1,11 +0,0 @@ -function L=Vecnagasa2(varargin) - PA=varargin(1); - if length(varargin)>1 - PB=varargin(2); - else - PB=[0,0]; - end - Tmp=PB-PA; - L=Tmp*Tmp'; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin deleted file mode 100644 index cef98adc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci deleted file mode 100644 index 44bde517..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci +++ /dev/null @@ -1,21 +0,0 @@ -// 08.10.26 - -function Out=Viewfrom(varargin) - global THETA PHI - Nargs=length(varargin); - Nvec=varargin(1); - GL=varargin(2); - Flg=1; - if Nargs>=3 - Flg=varargin(3); - end; - Theta=THETA; Phi=PHI; - Tmp=Rotate3data(GL,Nvec,[-1,0,0]); - THETA=%pi/2; PHI=0; - Out=Projpara(Tmp); - if Flg==1 - Windisp(Out); - end; - THETA=Theta; PHI=Phi; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin deleted file mode 100644 index 278e7845..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci deleted file mode 100644 index de320918..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.26 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Vtickmark(varargin) - global Wfile FID MARKLEN GENTEN YMIN YMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((YMAX-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=Op(N,ArgsL); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(GENTEN(1),Dt); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X+MARKLEN,Y]); - Tmp2=Unscaling([X-MARKLEN,Y]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,'w',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'w')~=[] - Tmp=Unscaling([X-MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X+MARKLEN,Y]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin deleted file mode 100644 index 6b3e87e9..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci deleted file mode 100644 index baa03e73..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci +++ /dev/null @@ -1,110 +0,0 @@ -// 08.05.16 Point style -// 08.05.17 MixL -// 08.05.19 Changed -// 08.05.21 Eps=0.1 -// 08.08.16 square -// 09.11.04 window option -// 09.11.07 gcf used -// 09.12.25 -// 10.01.01 -// 10.01.09 ' ' -// 10.01.10 drw one by one -// 10.02.08 revised for the case "a" -// 10.02.13 square debugged -// 10.02.21 square debugged (2) -// 10.02.23 case of mixlength=3 -// 10.04.10 Origin bug -// 11.05.29 Flattenlist used - -function Windisp(varargin) - global XMIN XMAX YMIN YMAX GENTEN - Nargs=length(varargin); - Tp=varargin(Nargs); - Ch=''; - if type(Tp)~=10 - scf(); - else - Ch=part(Tp,1); - Nargs=Nargs-1; - select Ch; - case 'N' then scf(); - case 'n' then scf(); - case 'C' then Tmp=gcf();clf('clear'); - case 'c' then Tmp=gcf();clf('clear'); - case 'A' then Tmp=gcf(); - case 'a' then Tmp=gcf(); - else - Tmp1=part(Tp,length(Tp)); - Tmp2=part(Tp,1:length(Tp)-1); - Tmp3=evstr(Tmp2); - scf(Tmp3); - if Tmp1=='C'|Tmp1=='c' - clf('clear'); - end; - end; - end; - Eps=0.1; - Tmp=Doscaling([XMIN,YMIN]); - Xm=Tmp(1); Ym=Tmp(2); - Tmp=Doscaling([XMAX,YMAX]); - XM=Tmp(1); YM=Tmp(2); - C=[(Xm+XM)/2,(Ym+YM)/2]; - H=max(XM-Xm,YM-Ym)/2; - R1=C-H; R2=C+H; - R1=Unscaling(R1); - R2=Unscaling(R2); - if (Ch~='A')&(Ch~='a') - Tmp1=R1(1); - Tmp2=R2(1); - Tmp3=R1(2); - Tmp4=R2(2); - square(Tmp1,Tmp3,Tmp2,Tmp4);// - P=Framedata([XMIN,XMAX],[YMIN,YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2); - PtO=GENTEN; // 10.04.10 - if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) // - P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - if (PtO(1)>=XMIN) & (PtO(1)<=XMAX) - P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]); - Tmp1=P(:,1)'; - Tmp2=P(:,2)'; - plot2d(Tmp1,Tmp2,style=[3]); - end; - end; - for I=1:Nargs - Tmp=varargin(I); - Pdata=Flattenlist(Tmp); // - for II=1:length(Pdata) - Tmp=Op(II,Pdata); - P=MakeCurves(Tmp,0); - P=Unscaling(P); - Ndm=Dataindex(P); - for J=1:size(Ndm,1) - Q=P(Ndm(J,1):Ndm(J,2),:) - if size(Q,1)==1 - for K=1:2:length(Q) - plot2d(Q(K),Q(K+1),style=[-3]); - end - else - Tmp1=Q(:,1)'; - Tmp2=Q(:,2)'; - plot2d(Tmp1,Tmp2); - end - end - end -// for II=2:length(Pdata) -// Tmp=Op(II,Pdata); -// Windisp(Tmp,'a'); -// end; - end - for I=2:Nargs - Pdata=varargin(I); - Windisp(Pdata,'a'); - end; -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin deleted file mode 100644 index 68abd1d4..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci deleted file mode 100644 index 24920661..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci +++ /dev/null @@ -1,7 +0,0 @@ -// 08.12.11 - -function Out=WireHiddenData() - global HIDDENWIREDATA - Out=HIDDENWIREDATA; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin deleted file mode 100644 index 085de36e..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci deleted file mode 100644 index d62acaf3..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.09.15 -// 09.09.10 registered - -function Out=WirePt() - global WIREPT - Out=WIREPT; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin deleted file mode 100644 index d84e23dc..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci deleted file mode 100644 index b46e359c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wireparadata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07 - FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpara(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin deleted file mode 100644 index 01266c62..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci deleted file mode 100644 index 11def80c..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci +++ /dev/null @@ -1,120 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.11 -// 08.10.15 -// 08.10.21 -// 08.10.25 -// 09.09.10 -// 10.02.16 Eps -// 17.05.07 Eps changed - -function FsL=Wirepersdata(varargin) - global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=[0.05,1]; // - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Tmp=Mixop(2,Fd); - K=mtlb_findstr(Tmp,'='); - Xname=part(Tmp,1:K-1); - Tmp=Mixop(3,Fd); - K=mtlb_findstr(Tmp,'='); - Yname=part(Tmp,1:K-1); - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - WIREPT=[]; - HIDDENWIREDATA=[]; - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07 - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); // - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); // - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - Tmp=Projpers(Fk); - Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07 - if Mixlength(PARTITIONPT)>2 - for K=2:Mixlength(PARTITIONPT) - Tmp1=Mixop(K,PARTITIONPT); - WIREPT=Mixadd(WIREPT,Tmp1); - end; - end; - Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps); - HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA); - FsL=Mixjoin(FsL,Fs); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin deleted file mode 100644 index 4e6ca980..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci deleted file mode 100644 index 59c5ba54..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.15 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawparadata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpara(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DuL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpara(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin deleted file mode 100644 index 2718cfd0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci deleted file mode 100644 index d168b4f7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci +++ /dev/null @@ -1,86 +0,0 @@ -// 08.09.21 -// 08.10.10 -// 08.10.21 -// 09.09.10 - -function FsL=Wirerawpersdata(varargin) - timer(); - Nargs=length(varargin); - Fbdy=Projpers(varargin(1)); - Fd=varargin(2); N=3; - FdL=Fullformfunc(Fd); - Fxy=Mixop(1,FdL); - Tmp=Mixop(5,FdL); - K=mtlb_findstr(Tmp,'='); - Uname=part(Tmp,1:K-1); - Urg=evstr(part(Tmp,K+1:length(Tmp))); - Tmp=Mixop(6,FdL); - K=mtlb_findstr(Tmp,'='); - Vname=part(Tmp,1:K-1); - Vrg=evstr(part(Tmp,K+1:length(Tmp))); - DuL=varargin(N); - DvL=varargin(N+1); - N=N+2; - Np=[50,50]; - if Nargs>=N - Np=varargin(N); - if type(Np)==1 & length(Np)==1 - Np=[Np,Np]; - end; - end - Eps=0.05; - if Nargs>=N+1 - Eps=varargin(N+1); - end; - Eps2=0.2; - if Nargs>=N+2 - Eps2=varargin(N+2); - end; - Umin=Urg(1); Umax=Urg(2); - Vmin=Vrg(1); Vmax=Vrg(2); - if type(DuL)==10 - DuL=evstr(DuL); - elseif length(DvL)==1 - Tmp=(Umax-Umin)/(DuL+1); - Tmp1=Umin+Tmp; - Tmp2=Umin+DuL*Tmp - DuL=[Tmp1:Tmp:Tmp2]; - end; - if type(DvL)==10 - DvL=evstr(DvL); - elseif length(DvL)==1 - Tmp=(Vmax-Vmin)/(DvL+1); - Tmp1=Vmin+Tmp; - Tmp2=Vmin+DvL*Tmp - DvL=[Tmp1:Tmp:Tmp2]; - end; - Fbdxy=Makexybdy(Fd,Np); - FsL=[]; - for I=1:length(DuL) - U=DuL(I); - Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Nx=Mixlength(FsL); - if Nx>0 - Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer())); - end; - for I=1:length(DvL) - V=DvL(I); - Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)'); - FkL=Cuspsplitpers(Tmp,Fd,Eps); - for J=1:Mixlength(FkL) - Fk=Mixop(J,FkL); - FsL=Mixadd(FsL,Fk); - end; - end; - Ny=Mixlength(FsL)-Nx; - if Ny>0 - Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer())); - end; -endfunction; - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin deleted file mode 100644 index 3016dd47..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci deleted file mode 100644 index 059ac6d5..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci +++ /dev/null @@ -1,55 +0,0 @@ -// s:2014.10.10 -// e:2014.12.14 ( for 3d ) -// e:2015.10.29 ( endmark //// ) - -function WriteOutData(varargin) - global Fnameout - Nargs=length(varargin); - if modulo(Nargs,2)==0 then - Fname=Fnameout; - Nst=1; - else - Fname=varargin(1); - Nst=2; - end; - Fid=mopen(Fname,'w'); - for N=Nst:2:Nargs - Gname=varargin(N); - mfprintf(Fid,'%s\n',Gname+"//"); - Gdata=varargin(N+1); - Gdata=Flattenlist(Gdata); - for K=1:length(Gdata) - GL=Dividegraphics(Gdata(K)); - for J=1:length(GL) - mfprintf(Fid,'%s\n',"start//"); - Str=""; - for I=1:Numptcrv(GL(J)) - Pt=Ptcrv(I,GL(J)); - if length(Str)>0 then - Str=Str+"," - end; - if length(Pt)<3 // 2014.12.14 - Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2)); - else - Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3)); - end; - if length(Str)>80 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - Str=""; - end - end - if length(Str)>0 then - mfprintf(Fid,'%s\n',"["+Str+"]//"); - end - if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29 -// mfprintf(Fid,'%s\n',"end////"); - mfprintf(Fid,'%s\n',"end//"); - else - mfprintf(Fid,'%s\n',"end//"); - end; - end - end - end - mfprintf(Fid,'%s\n',"//"); - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin deleted file mode 100644 index e53ba463..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci deleted file mode 100644 index ae51bf8b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci +++ /dev/null @@ -1,12 +0,0 @@ -// s : 2014.06.22 - -function Out=Writeobjpoint(P) - global OBJFMT OBJSCALE NPOINT; - X=sprintf(OBJFMT,P(1)*OBJSCALE); - Y=sprintf(OBJFMT,P(2)*OBJSCALE); - Z=sprintf(OBJFMT,P(3)*OBJSCALE); - Str="v "+X+" "+Y+" "+Z; - Printobjstr(Str) - NPOINT=NPOINT+1 - Out=NPOINT; -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin deleted file mode 100644 index c3f3d522..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci deleted file mode 100644 index 51a13884..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci +++ /dev/null @@ -1,47 +0,0 @@ -// 2010.04.27 - -function Writetextdata(varargin) - Fname=varargin(1); - Mt=varargin(2); - D=-1; - for I=3:length(varargin) - Tmp=varargin(I); - if mtlb_findstr(Tmp,'=')~=[] - execstr(Tmp); - end; - end; - Str=''; - for J=1:size(Mt,2) - Str=Str+'x'+string(J); - if J80 | K==Numptcrv(G) - Lnst=Lnst+"]);//"; - mfprintf(Fid,'%s\n',Lnst); - Lnst=""; - else - Lnst=Lnst+","; - end; - end; - Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//"; - mfprintf(Fid,'%s\n',Str); - end; - end; - mclose(Fid); -endfunction; diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin deleted file mode 100644 index ba00f67f..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci deleted file mode 100644 index 28ab28ce..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmax() - global XMAX - Y=XMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin deleted file mode 100644 index 7e8c9e46..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci deleted file mode 100644 index e18e83d7..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Xmin() - global XMIN - Y=XMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin deleted file mode 100644 index fc0a8807..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci deleted file mode 100644 index b2118c90..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci +++ /dev/null @@ -1,14 +0,0 @@ -// 08.07.11 - -function Out=Xyzax3data(Xrange,Yrange,Zrange) - J=mtlb_findstr(Xrange,'='); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz])); -endfunction diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin deleted file mode 100644 index 04b8bdce..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci deleted file mode 100644 index b833802d..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci +++ /dev/null @@ -1,71 +0,0 @@ -// 08.07.11 -// 09.09.18 - -function Kekka=Xyzaxparaname(varargin) - global MilliIn; - Nargs=length(varargin); - Eps=10.0^(-6); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin deleted file mode 100644 index 3940b5b0..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci deleted file mode 100644 index d9c1c7df..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci +++ /dev/null @@ -1,72 +0,0 @@ -// 08.08.14 -// 08.08.15 -// 09.09.18 - -function Kekka=Xyzaxpersname(varargin) - global MilliIn; - Eps=10.0^(-6); - Nargs=length(varargin); - Dr=0.19*1000/2.54/MilliIn; - Tmp=varargin(Nargs); - if Nargs>1 & type(Tmp)==1 - Dr=Dr*Tmp; - Nargs=Nargs-1; - end; - if type(varargin(1))==10 - Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3); - J=mtlb_findstr(Xrange,'='); - Xname=part(Xrange,1:J-1); - Tmp=evstr(part(Xrange,J+1:length(Xrange))); - Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0]; - J=mtlb_findstr(Yrange,'='); - Yname=part(Yrange,1:J-1); - Tmp=evstr(part(Yrange,J+1:length(Yrange))); - Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0]; - J=mtlb_findstr(Zrange,'='); - Zname=part(Zrange,1:J-1); - Tmp=evstr(part(Zrange,J+1:length(Zrange))); - Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)]; - else - Data=varargin(1); - Xname='x'; Yname='y'; Zname='z'; - if Nargs>1 - if varargin(2)~='' - Xname=varargin(2); - end; - if varargin(3)~='' - Yname=varargin(3); - end; - if varargin(4)~='' - Zname=varargin(4); - end; - end; - Tmp=Mixop(1,Data); - Px=Tmp(1,:); Qx=Tmp(2,:); - Tmp=Mixop(2,Data); - Py=Tmp(1,:) ; - Qy=Tmp(2,:); - Tmp=Mixop(3,Data); - Pz=Tmp(1,:); - Qz=Tmp(2,:); - end; - Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh); - Kekka=[]; - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Xname); - end - Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Yname); - end; - Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh); - if R>Eps - Ch=Qh+Dr/R*(Qh-Ph); - Kekka=Mixadd(Kekka,Pointdata(Ch)); - Expr(Ch,'c',Zname); - end; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin deleted file mode 100644 index 93cbf4e2..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci deleted file mode 100644 index 0a835534..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymax() - global YMAX - Y=YMAX; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin deleted file mode 100644 index 79ab6600..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci deleted file mode 100644 index 73d0d261..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci +++ /dev/null @@ -1,5 +0,0 @@ -function Y=Ymin() - global YMIN - Y=YMIN; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin deleted file mode 100644 index d870458d..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci deleted file mode 100644 index 5c237179..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci +++ /dev/null @@ -1,8 +0,0 @@ -// 08.07.11 - -function Out=Zparapt(P) - global PHI THETA; - x=P(1); y=P(2); z=P(3); - Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA); -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin deleted file mode 100644 index 0af89330..00000000 Binary files a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin and /dev/null differ diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci deleted file mode 100644 index 13601556..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.08.12 -// 10.01.02 - -function X3=Zperspt(P) - - global FocusPoint EyePoint - - 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; -endfunction - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib deleted file mode 100644 index 24864cee..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib +++ /dev/null @@ -1,344 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names deleted file mode 100644 index cef9f19b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names +++ /dev/null @@ -1,335 +0,0 @@ -Addcounter -Anglemark -Arrowdata -Arrowhead -Arrowheaddata -Arrowline -Assign -Assignadd -Assignrep -Assignset -Beginpicture -BorderHiddenData -Borderparadata -Borderpersdata -BorderPt -Borderrawdata -Bowdata -Bowmiddle -Bowname -Bownamerot -Calcfun -CalcHeight -CalcWidth -CameracoordCurve -CameraCurve -Cancoordpara -Cancoordpers -Circledata -Clipindomain -Closefile -Closepar -Closephr -Closepicture -Closeobj -Connectseg -Crossprod -Crv3onsfHiddenData -Crv3onsfparadata -Crv3onsfpersdata -CrvonsfHiddenData -Crvonsfparadata -Crvonsfpersdata -CrvsfHiddenData -Crvsfparadata -Crvsfpersdata -CuspData -CuspPt -Cuspsplitpara -Cuspsplitpers -CuspSplitPt -Cutsf2d -Dashline -Dataindex -Deqplot -Derivative -Diagcelldata -Dividegraphics -Dividetable -Doscaling -Dotfilldata -Dotprod -Dottedline -Dropnumlistcrv -Droppoint -Drwline -Drwpt -Drwxy -Embed -Enclosing -EnclosingS -Endpicture -Evlptablepara -Evlptablepers -Execmd -Expr -Exprrot -Faceremovaldata -Facesdata -Findcell -Flattenlist -Fontsize -Fouriercoeff -FouriercoeffL -Fouriersum -Fracform -Framedata -Fullformfunc -Gaiseki -Getcounter -Gettrace -Hatchdata -Hexahedrondata -HiddenWireData -Htickmark -Implicitplot -ImplicitData -Initangle -Integrate -Intersectcrvs -Intersectcrvsf -IntersectcrvsPp -Intersectlines -IntersectselfPp -Invdashline -Invert -Invparapt -Invperspt -InWindow -Joincrvs -Joingraphics -Ketinit -Kouten -KoutenList -Koutenseg -Kukannozoku -Kukeiwake -Kyorihensuu -Kyoukai -Letter -Letterrot -Lineplot -Listplot -MakeBowdata -MakecutbycrvL -MakeCurves -Makehasen -Makeliststr -Makesfcutoffdata -Makeshasen -Makeskeletondata -Makeskeletonpersdata -Makevaltable -MakeveLfaceL -Makexybdy -Mawarikomi -Meetpoints -MeetWindow -Member -Menkakusi -Menkakusi2 -Mix -Mixadd -Mixdisp -Mixjoin -MixL -Mixlength -Mixmake -Mixop -MixS -Mixsub -Mixtype -Naigai -Naiseki -Nearestpt -Newlength -Nohiddenpara -Nohiddenpara2 -Nohiddenpers -Nohiddenpers2 -Numptcrv -Objjoin -Objname -Objcurve -Objpolyhedron -Objpolygon -Objrecs -Objsurf -Objsymb -Objthicksurf -Openobj -Op -Openfile -Openpar -Openphr -Openpicture -Ovalbox -Ovaldata -Paramark -Paramoncrv -ParamonCurve -Paramplot -Parapt -Partcrv -Partcrv3 -Partframe -PartitionPt -Partitionseg -Perspt -Phcutdata -Phcutoffdata -Phidegree -PhFaceL -PhHiddenData -Phparadata -Phpersdata -Phsparadata -Phspersdata -Phrawparadata -Phrawpersdata -Phsrawparadata -Phsrawpersdata -PhVertexL -Plotdata -Pointdata -Pointoncrv -PointonCurve -Powersum -Prime -Printobjstr -ProjcoordCurve -ProjCurve -Projpara -Projpers -Ptcrv -Ptend -PthiddenQ -Ptne -Ptnw -Ptse -Ptstart -Ptsw -Putcell -Putcirmark -PutcoL -PutcoLexpr -PutcoLstr -Putdashmark -Putrecmark -Putrow -Putrowexpr -Putrowstr -Puttrace -Ratiocmyk -ReadfromCindy -Readtextdata -Reflectdata -Rmmember -Rotate3data -Rotate3pt -Rotatedata -Roundstr -Scaledata -Sectionview -Setangle -Setarrow -Setax -Setcolor -Setcounter -Setmark -Setmarklen -Setobjdecimals -Setobjscale -Setorigin -Setpen -Setpers -Setpt -Setscaling -SetstereoL -SetstereoR -Setunitlen -Setversion -Setwindow -Sf3data -Sfbdparadata -Sfbdpersdata -Sfbdrawparadata -Sfbdrawpersdata -Sfcutdata -Sfcutoffparadata -Sfcutoffpersdata -Sfcutoffrawparadata -Sfcutoffrawpersdata -Sfparadata -Sfpersdata -Shade -Skeleton2data -Skeletonparadata -Skeletonpara3data -Skeletonpersdata -Skeletonpers3data -Spacecurve -Spaceline -Splinedata -Strop -Subs -Sumfun -Symbdata -Symb3data -Tabledata -Texcom -Texctr -Texelse -Texend -Texendfor -Texendif -Texfor -Texforinit -Texif -Texletter -Texnewcmd -Texnewctr -Texrenewcmd -Texsetctr -Texthectr -Texvalctr -Texvctr -Thetadegree -ThisVersion -Tolist -Translate3data -Translatedata -Trunc -Unscaling -Vecnagasa -Vecnagasa2 -Viewfrom -Vtickmark -Windisp -WireHiddenData -Wireparadata -Wirepersdata -WirePt -Wirerawparadata -Wirerawpersdata -Writetextdata -Writeobjpoint -Xmax -Xmin -Xyzaxparaname -Xyzaxpersname -Xyzax3data -Ymax -Ymin -Zparapt -Zperspt -- cgit v1.2.3