summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory1
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.binbin0 -> 922 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.binbin0 -> 5238 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.binbin0 -> 6737 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.binbin0 -> 16618 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci107
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.binbin0 -> 13269 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci89
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.binbin0 -> 7643 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.binbin0 -> 27459 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci202
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.binbin0 -> 1449 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.binbin0 -> 2609 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.binbin0 -> 703 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.binbin0 -> 324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.binbin0 -> 5272 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.binbin0 -> 6060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.binbin0 -> 443 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.binbin0 -> 419 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.binbin0 -> 22449 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci121
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.binbin0 -> 22411 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.binbin0 -> 13046 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.binbin0 -> 8338 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.binbin0 -> 10457 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.binbin0 -> 5225 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.binbin0 -> 7824 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.binbin0 -> 4360 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.binbin0 -> 3001 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.binbin0 -> 1090 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.binbin0 -> 3257 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.binbin0 -> 7543 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.binbin0 -> 3159 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.binbin0 -> 7165 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.binbin0 -> 5752 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.binbin0 -> 9264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.binbin0 -> 2182 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.binbin0 -> 767 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.binbin0 -> 1266 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.binbin0 -> 1103 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.binbin0 -> 1991 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.binbin0 -> 14179 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci76
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.binbin0 -> 2819 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.binbin0 -> 449 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.binbin0 -> 7742 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.binbin0 -> 7742 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.binbin0 -> 446 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.binbin0 -> 17490 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci90
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.binbin0 -> 16797 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.binbin0 -> 440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.binbin0 -> 12964 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.binbin0 -> 12924 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci80
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.binbin0 -> 419 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.binbin0 -> 413 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.binbin0 -> 426 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.binbin0 -> 31919 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci179
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.binbin0 -> 31845 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci176
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.binbin0 -> 1833 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.binbin0 -> 4784 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.binbin0 -> 2593 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.binbin0 -> 2668 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.binbin0 -> 37476 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci195
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.binbin0 -> 9089 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.binbin0 -> 2752 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.binbin0 -> 2511 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.binbin0 -> 1280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.binbin0 -> 2167 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.binbin0 -> 33511 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.binbin0 -> 454 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.binbin0 -> 22860 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci133
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.binbin0 -> 17289 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.binbin0 -> 4450 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.binbin0 -> 4030 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.binbin0 -> 9618 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.binbin0 -> 11037 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci75
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.binbin0 -> 4108 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.binbin0 -> 5585 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.binbin0 -> 3330 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.binbin0 -> 17806 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci126
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.binbin0 -> 836 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.binbin0 -> 15211 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.binbin0 -> 15184 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.binbin0 -> 721 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.binbin0 -> 12554 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.binbin0 -> 5757 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.binbin0 -> 12460 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.binbin0 -> 12215 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.binbin0 -> 19645 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci154
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.binbin0 -> 13219 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci88
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.binbin0 -> 20630 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci127
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.binbin0 -> 2035 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.binbin0 -> 4895 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci54
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.binbin0 -> 2555 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.binbin0 -> 2655 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.binbin0 -> 2809 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.binbin0 -> 2385 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.binbin0 -> 6802 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.binbin0 -> 17186 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.binbin0 -> 2585 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.binbin0 -> 421 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.binbin0 -> 421 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.binbin0 -> 25781 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci141
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.binbin0 -> 3973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.binbin0 -> 437 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.binbin0 -> 21909 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.binbin0 -> 516 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.binbin0 -> 13253 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci61
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.binbin0 -> 1826 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.binbin0 -> 750 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.binbin0 -> 3053 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.binbin0 -> 4302 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.binbin0 -> 15887 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci101
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.binbin0 -> 6854 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.binbin0 -> 4990 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.binbin0 -> 15552 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci95
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.binbin0 -> 4788 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.binbin0 -> 621 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.binbin0 -> 7426 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.binbin0 -> 10756 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.binbin0 -> 7402 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.binbin0 -> 3408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.binbin0 -> 8060 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.binbin0 -> 5636 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.binbin0 -> 9114 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.binbin0 -> 20514 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.binbin0 -> 5978 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.binbin0 -> 11635 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.binbin0 -> 2900 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.binbin0 -> 24740 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.binbin0 -> 12440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.binbin0 -> 5653 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.binbin0 -> 5483 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.binbin0 -> 2824 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.binbin0 -> 10906 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.binbin0 -> 8640 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.binbin0 -> 6014 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.binbin0 -> 22258 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci119
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.binbin0 -> 4911 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.binbin0 -> 68349 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci345
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.binbin0 -> 6211 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.binbin0 -> 27821 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci171
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.binbin0 -> 31439 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci188
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.binbin0 -> 10699 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.binbin0 -> 10368 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci68
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.binbin0 -> 21856 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci111
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.binbin0 -> 3637 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.binbin0 -> 15057 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci91
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.binbin0 -> 40156 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci169
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.binbin0 -> 1651 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.binbin0 -> 34512 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci206
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.binbin0 -> 28313 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.binbin0 -> 1174 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.binbin0 -> 1136 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.binbin0 -> 1135 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.binbin0 -> 2264 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.binbin0 -> 937 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.binbin0 -> 2517 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.binbin0 -> 1260 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.binbin0 -> 1085 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.binbin0 -> 1799 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.binbin0 -> 1280 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.binbin0 -> 1415 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.binbin0 -> 2552 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.binbin0 -> 411 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.binbin0 -> 9290 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.binbin0 -> 771 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.binbin0 -> 42226 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci254
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.binbin0 -> 23811 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci131
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.binbin0 -> 41591 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci253
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.binbin0 -> 23608 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci134
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.binbin0 -> 398 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.binbin0 -> 17718 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.binbin0 -> 973 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.binbin0 -> 1206 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.binbin0 -> 10238 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.binbin0 -> 3588 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.binbin0 -> 16478 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.binbin0 -> 22731 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci114
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.binbin0 -> 862 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.binbin0 -> 22172 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci123
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.binbin0 -> 3732 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.binbin0 -> 13035 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci106
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.binbin0 -> 2939 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.binbin0 -> 3258 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.binbin0 -> 1045 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.binbin0 -> 13672 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.binbin0 -> 6676 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.binbin0 -> 6365 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.binbin0 -> 3079 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.binbin0 -> 2839 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.binbin0 -> 4477 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.binbin0 -> 20071 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci140
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.binbin0 -> 2390 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.binbin0 -> 6865 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.binbin0 -> 5346 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.binbin0 -> 5465 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.binbin0 -> 428 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.binbin0 -> 15744 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.binbin0 -> 6665 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.binbin0 -> 496 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.binbin0 -> 431 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.binbin0 -> 500 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.binbin0 -> 29830 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci173
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.binbin0 -> 30095 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci184
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.binbin0 -> 531 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.binbin0 -> 619 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.binbin0 -> 619 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.binbin0 -> 625 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.binbin0 -> 592 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.binbin0 -> 492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.binbin0 -> 492 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.binbin0 -> 498 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.binbin0 -> 465 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.binbin0 -> 19408 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci138
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.binbin0 -> 2896 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.binbin0 -> 2135 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.binbin0 -> 3006 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.binbin0 -> 2642 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.binbin0 -> 948 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.binbin0 -> 849 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.binbin0 -> 5078 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.binbin0 -> 3725 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.binbin0 -> 4932 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.binbin0 -> 4858 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.binbin0 -> 415 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.binbin0 -> 484 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.binbin0 -> 51975 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci250
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.binbin0 -> 1729 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.binbin0 -> 1729 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.binbin0 -> 1730 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.binbin0 -> 389 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.binbin0 -> 1699 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.binbin0 -> 9367 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.binbin0 -> 2231 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.binbin0 -> 8400 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.binbin0 -> 8687 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.binbin0 -> 4017 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.binbin0 -> 2122 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.binbin0 -> 2078 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.binbin0 -> 5045 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.binbin0 -> 5332 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.binbin0 -> 4017 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.binbin0 -> 419 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.binbin0 -> 23174 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.binbin0 -> 11262 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.binbin0 -> 3831 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci38
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.binbin0 -> 21821 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci160
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.binbin0 -> 9990 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.binbin0 -> 2316 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.binbin0 -> 4411 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.binbin0 -> 25211 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci75
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.binbin0 -> 5669 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.binbin0 -> 1170 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.binbin0 -> 5149 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.binbin0 -> 2344 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.binbin0 -> 2016 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.binbin0 -> 4137 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.binbin0 -> 13034 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci102
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.binbin0 -> 4119 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.binbin0 -> 1023 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.binbin0 -> 4968 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci43
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.binbin0 -> 1802 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.binbin0 -> 1028 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.binbin0 -> 432 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.binbin0 -> 1056 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.binbin0 -> 1405 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.binbin0 -> 1533 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.binbin0 -> 1607 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.binbin0 -> 3006 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.binbin0 -> 3147 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.binbin0 -> 3069 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.binbin0 -> 10271 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.binbin0 -> 11998 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci182
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.binbin0 -> 7533 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.binbin0 -> 13224 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.binbin0 -> 5885 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.binbin0 -> 5938 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.binbin0 -> 4537 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.binbin0 -> 4498 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.binbin0 -> 22872 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.binbin0 -> 1348 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.binbin0 -> 1349 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.binbin0 -> 1349 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.binbin0 -> 1349 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.binbin0 -> 2149 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.binbin0 -> 2149 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.binbin0 -> 11150 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci93
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.binbin0 -> 9324 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.binbin0 -> 6935 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci48
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.binbin0 -> 4084 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.binbin0 -> 5901 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.binbin0 -> 4038 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.binbin0 -> 12729 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci83
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.binbin0 -> 3439 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.binbin0 -> 16665 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci108
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.binbin0 -> 1354 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.binbin0 -> 2852 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.binbin0 -> 9947 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.binbin0 -> 5491 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.binbin0 -> 10750 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci67
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.binbin0 -> 25828 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci130
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.binbin0 -> 3162 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.binbin0 -> 1603 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.binbin0 -> 420 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.binbin0 -> 251 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.binbin0 -> 1781 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.binbin0 -> 546 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.binbin0 -> 1806 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.binbin0 -> 565 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.binbin0 -> 1677 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.binbin0 -> 5621 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.binbin0 -> 2605 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.binbin0 -> 1266 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.binbin0 -> 2609 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.binbin0 -> 8313 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci70
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.binbin0 -> 469 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.binbin0 -> 531 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.binbin0 -> 526 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.binbin0 -> 537 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.binbin0 -> 385 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.binbin0 -> 909 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.binbin0 -> 4301 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.binbin0 -> 5248 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.binbin0 -> 728 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.binbin0 -> 2122 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.binbin0 -> 1434 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.binbin0 -> 1292 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.binbin0 -> 2667 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.binbin0 -> 21938 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.binbin0 -> 17429 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci110
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.binbin0 -> 437 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.binbin0 -> 463 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.binbin0 -> 21470 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.binbin0 -> 21438 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.binbin0 -> 15066 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.binbin0 -> 15066 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.binbin0 -> 8150 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci55
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.binbin0 -> 2135 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.binbin0 -> 5610 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.binbin0 -> 6440 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.binbin0 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.binbin0 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.binbin0 -> 4660 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.binbin0 -> 14997 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.binbin0 -> 15036 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.binbin0 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.binbin0 -> 364 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.binbin0 -> 1665 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.binbin0 -> 4894 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib344
690 files changed, 17003 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
new file mode 100644
index 00000000..9a32ff18
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
@@ -0,0 +1 @@
+source("/Users/takatoosetsuo/Dropbox/sciF/ketpicscifiles/Setversion.sci")
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin
new file mode 100644
index 00000000..d21df4c3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
new file mode 100644
index 00000000..c940a543
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
new file mode 100644
index 00000000..4a709337
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
new file mode 100644
index 00000000..6deb302c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
@@ -0,0 +1,33 @@
+// 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)<Eps
+ Out=[];
+ return;
+ end
+ if P1<P2-Eps
+ Out=Partcrv(P1,P2,Cir);
+ else
+ Tmp=Numptcrv(Cir);
+ Tmp1=Partcrv(P1,Tmp,Cir);
+ Tmp2=Partcrv(1,P2,Cir);
+ Out=Joincrvs(Tmp1,Tmp2);
+ end
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin
new file mode 100644
index 00000000..4dcd94f2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
new file mode 100644
index 00000000..f6ac6ef2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
@@ -0,0 +1,58 @@
+// 08.05.08
+
+function Out=Arrowdata(varargin)
+ global YaSize YaAngle YaPosition YaThick YaStyle;
+ Nargs=length(varargin);
+ P=varargin(1);
+ Q=varargin(2);
+ R=Q;
+ Futosa=YaThick;
+ Ookisa=YaSize;
+ Thickness=1;
+ Hiraki=YaAngle;
+ Yapos=YaPosition;
+ Position=1;
+ Str=YaStyle;
+ Flg=0;
+ for I=3:Nargs
+ Tmp=varargin(I);
+ if type(Tmp)==1
+ if length(Tmp)>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/ketpicscifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin
new file mode 100644
index 00000000..7c3ca7ca
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
new file mode 100644
index 00000000..9073ca6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
@@ -0,0 +1,107 @@
+//
+// 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/ketpicscifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
new file mode 100644
index 00000000..56e18c45
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
new file mode 100644
index 00000000..68dfe27c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
@@ -0,0 +1,89 @@
+// 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))<Eps
+ l=Numptcrv(Houkou);
+ end;
+ end;
+ 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);
+ 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/ketpicscifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin
new file mode 100644
index 00000000..45527ddc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
new file mode 100644
index 00000000..881662b1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
@@ -0,0 +1,57 @@
+//
+// 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/ketpicscifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
new file mode 100644
index 00000000..b6f33643
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
new file mode 100644
index 00000000..8d9201cc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
@@ -0,0 +1,202 @@
+// 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 J<length(Tmp2)
+ Tmp3=Tmp3+',';
+ end;
+ end;
+ Tmp3=Tmp3+']';
+ end;
+ Out=[Out,Tmp1+'='+Tmp3];
+ end;
+ format(Curfmt(2));
+ return;
+ end;
+ if part(Fnstr,1)=='?'
+ Tmp=strsplit(Fnstr,1);
+ Fnstr=Tmp(2);
+ for I=1:2:length(ASSIGNLIST)
+ Tmp=ASSIGNLIST(I);
+ if Tmp==Fnstr
+ Out=Mixjoin(I,ASSIGNLIST(I+1));
+ format(Curfmt(2));
+ return;
+ end;
+ end;
+ Out='Not found';
+ format(Curfmt(2));
+ return;
+ end; //
+ L=ASSIGNLIST;
+ else
+ if type(varargin(2))==1
+ Fnstr=varargin(Nargs);
+ for I=1:Nargs-1
+ L(I)=varargin(I);
+ end;
+ else
+ Fnstr=varargin(1);
+ for I=2:Nargs
+ L(I-1)=varargin(I);
+ end;
+ end;
+ end;
+ Tmp3=Fnstr; // 15.04.18
+ for I=1:2:length(L)
+ Vname=L(I);
+ Val=L(I+1);
+ if Vname=="`" // 14.12.28
+ Tmp3=strsubst(Tmp3,Vname,Val);
+ continue
+ end;
+ if type(Val)==1
+ if size(Val,1)==1 & size(Val,2)>1 // 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 K<size(Val,2)
+ Rep=Rep+',';
+ end;
+ end;
+ if J<size(Val,1)
+ Rep=Rep+';';
+ else
+ Rep=Rep+']';
+ end;
+ end;
+ end;
+ Tmp1='('+Rep+')';
+ end;
+ if type(Val)==10
+ Tmp1=Val;
+ end;
+ if type(Val)==15
+ Tmp1=Makeliststr(Val);
+ end;
+ Notvar=[48:57,65:90,97:122];
+ for K=1:size(Tmp3,2)
+ Tmp2=Tmp3(K);
+ if length(Tmp2)>0 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<length(Tmp2) then // 15.04.18
+ Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18
+ if Member(Tmp,Notvar) then
+ Flg=1;
+ end;
+ end;
+ if Flg==0 then
+ Str=Str+Tmp1;
+ else
+ Str=Str+Vname;
+ end;
+ if I<length(Flist) then
+ Tmp=Flist(I+1)-1;
+ else
+ Tmp=length(Tmp2);
+ end;
+ Str=Str+part(Tmp2,(J+length(Vname)):Tmp);
+ Tmp3(K)=Str; // 15.04.18
+ end;
+ end;
+ end;
+ Out=Tmp3; // 15.02.18 upto
+ format(Curfmt(2));
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin
new file mode 100644
index 00000000..8c80117b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
new file mode 100644
index 00000000..d8883e6c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
@@ -0,0 +1,14 @@
+// 09.10.03
+
+function Out=Assignadd(varargin)
+ global ASSIGNLIST;
+ Nargs=length(varargin);
+ L=ASSIGNLIST;
+ Is=length(L);
+ for I=1:Nargs
+ L(I+Is)=varargin(I);
+ end;
+ ASSIGNLIST=L;
+ Out=L;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin
new file mode 100644
index 00000000..4ee61642
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
new file mode 100644
index 00000000..0a362b01
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
@@ -0,0 +1,22 @@
+// 09.10.17
+// 09.12.05
+// 09.12.29
+// 14.09.30 addition supported
+
+function Assignrep(varargin)
+ global ASSIGNLIST;
+ Nargs=length(varargin);
+ for I=1:2:Nargs
+ Vname=varargin(I);
+ Val=varargin(I+1);
+ Tmp=Assign('?'+Vname);
+ if Tmp=='Not found'
+ Tmp=length(ASSIGNLIST);
+ ASSIGNLIST(Tmp+1)=Vname;
+ ASSIGNLIST(Tmp+2)=Val;
+ else
+ I=Tmp(1);
+ ASSIGNLIST(I+1)=Val;
+ end;
+ end
+endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin
new file mode 100644
index 00000000..eb9e3072
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
new file mode 100644
index 00000000..bb77c105
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
@@ -0,0 +1,7 @@
+// 09.10.21
+
+function Assignset(varargin)
+ I=1:length(varargin);
+ Tmp=Assign(varargin(I));;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin
new file mode 100644
index 00000000..2f570d6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
new file mode 100644
index 00000000..f93e3200
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
@@ -0,0 +1,6 @@
+// 08.05.22
+
+function Beginpicture(ul)
+ Openpicture(ul)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin
new file mode 100644
index 00000000..bcf1d42b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
new file mode 100644
index 00000000..7d1993eb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
@@ -0,0 +1,35 @@
+// 15.01.01
+
+function Out=Bezier(varargin)
+ Nargs=length(varargin);
+ Ptlist=varargin(1);
+ Ctrlist=varargin(2);
+ Num=10;
+ for J=3:Nargs
+ Tmp=varargin(J);
+ K=mtlb_findstr(Tmp,'=');
+ Tmp1=strsplit(Tmp,[K-1,K]);
+ Tmp2=ascii(Tmp1(1,1));
+ Lhs=char(Tmp2(1));
+ if Lhs=="N" then
+ Num=evstr(Tmp1(3,1));
+ end;
+ end;
+ if length(Num)==1
+ Num=Num*ones(1:length(Ctrlist))
+ end;
+ Out=[];
+ for ii=1:length(Ctrlist)
+ Tmp1=[Ptlist(ii),Ptlist(ii+1)];
+ Tmp2=Ctrlist(ii);
+ if ii==1 then
+ St=0
+ else
+ St=1
+ end;
+ for J=St:Num(ii)
+ Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2);
+ Out=[Out;Tmp];
+ end;
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin
new file mode 100644
index 00000000..51ad025e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
new file mode 100644
index 00000000..ac639249
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
@@ -0,0 +1,39 @@
+// 15.01.01
+// 15.02.08 for 3d
+
+function Out=Bezierpt(t,Ptlist,Ctrlist)
+ if length(Ptlist)==6 then // 3d 15.02.08
+ P0=Ptlist(1:3);
+ P3=Ptlist(4:6);
+ P1=Ctrlist(1:3);
+ if length(Ctrlist)==3 then
+ P2=P3;
+ flg3=0;
+ else
+ P2=Ctrlist(4:6);
+ flg3=1;
+ end;
+ else
+ P0=Ptlist(1:2);
+ P3=Ptlist(3:4);
+ P1=Ctrlist(1:2);
+ if length(Ctrlist)==2 then
+ P2=P3;
+ flg3=0;
+ else
+ P2=Ctrlist(3:4);
+ flg3=1;
+ end;
+ end;
+ P4=(1-t)*P0+t*P1;
+ P5=(1-t)*P1+t*P2;
+ P6=(1-t)*P2+t*P3;
+ P7=(1-t)*P4+t*P5;
+ P8=(1-t)*P5+t*P6;
+ P9=(1-t)*P7+t*P8;
+ if flg3==0 then
+ Out=P7;
+ else
+ Out=P9;
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin
new file mode 100644
index 00000000..e238cbcb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
new file mode 100644
index 00000000..dac12561
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.09.13
+
+function Out=BorderHiddenData()
+ global BORDERHIDDENDATA
+ Out=BORDERHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin
new file mode 100644
index 00000000..40553cd7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
new file mode 100644
index 00000000..12947bcd
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
@@ -0,0 +1,7 @@
+// 08.09.13
+
+function Out=BorderPt()
+ global BORDERPT
+ Out=BORDERPT
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin
new file mode 100644
index 00000000..d5c08e6d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
new file mode 100644
index 00000000..2e944821
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
@@ -0,0 +1,121 @@
+// 08.09.13
+// 08.09.16
+// 08.10.10
+// 08.10.11
+// 08.10.15
+// 08.10.28
+// 09.03.09
+// 09.05.27
+// 09.06.03
+// 10.02.16 Eps=> [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/ketpicscifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin
new file mode 100644
index 00000000..162c473d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
new file mode 100644
index 00000000..f86ddfa0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
@@ -0,0 +1,120 @@
+// 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/ketpicscifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
new file mode 100644
index 00000000..41515f60
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
new file mode 100644
index 00000000..657efc23
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
@@ -0,0 +1,64 @@
+// 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/ketpicscifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
new file mode 100644
index 00000000..00fea499
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
new file mode 100644
index 00000000..48154cf1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
@@ -0,0 +1,45 @@
+//
+// 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/ketpicscifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
new file mode 100644
index 00000000..fe5aa36a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
new file mode 100644
index 00000000..5157c111
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
@@ -0,0 +1,53 @@
+//
+// 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/ketpicscifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
new file mode 100644
index 00000000..320dc759
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
new file mode 100644
index 00000000..f57c4961
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
@@ -0,0 +1,40 @@
+//
+// 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/ketpicscifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
new file mode 100644
index 00000000..e4dd5aa2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
new file mode 100644
index 00000000..8d1edf78
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
@@ -0,0 +1,77 @@
+// 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/ketpicscifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
new file mode 100644
index 00000000..69e9a115
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
new file mode 100644
index 00000000..aa1216dd
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
@@ -0,0 +1,31 @@
+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/ketpicscifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
new file mode 100644
index 00000000..dea083ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
new file mode 100644
index 00000000..111e9b3b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
@@ -0,0 +1,26 @@
+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/ketpicscifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
new file mode 100644
index 00000000..90ba14bb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
new file mode 100644
index 00000000..30c646a6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
@@ -0,0 +1,9 @@
+// 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/ketpicscifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
new file mode 100644
index 00000000..a0f9bec1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
new file mode 100644
index 00000000..fcc7687c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
@@ -0,0 +1,24 @@
+// 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/ketpicscifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
new file mode 100644
index 00000000..1504ef28
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
new file mode 100644
index 00000000..310ac166
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
@@ -0,0 +1,28 @@
+// 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/ketpicscifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
new file mode 100644
index 00000000..09869b72
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
new file mode 100644
index 00000000..1574d812
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
@@ -0,0 +1,11 @@
+// 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/ketpicscifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
new file mode 100644
index 00000000..9b976e9a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
new file mode 100644
index 00000000..b63aba5c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
@@ -0,0 +1,22 @@
+// 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/ketpicscifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
new file mode 100644
index 00000000..479debe4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
new file mode 100644
index 00000000..2148c061
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
@@ -0,0 +1,32 @@
+// 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/ketpicscifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
new file mode 100644
index 00000000..7a4e7e0e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
new file mode 100644
index 00000000..bf9572c5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
@@ -0,0 +1,58 @@
+// 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)<Eps
+ ParL=[ParL(1:length(ParL)-1),Tmp2];
+ end;
+ Fig=[];
+ for N=1:length(ParL)-1
+ Tmp=(ParL(N)+ParL(N+1))*0.5;
+ Tmp=PointonCurve(Tmp,Obj);
+ Tmp=Naigai(Tmp,Bdy);
+ Tmp1=modulo(sum(Tmp),2);
+ if Tmp1==0 continue; end;
+ Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj));
+ end;
+ OutL=Mixjoin(OutL,Fig);
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin
new file mode 100644
index 00000000..ee0c01eb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
new file mode 100644
index 00000000..f2928103
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
@@ -0,0 +1,24 @@
+//
+// 13.05.19 openfile error tackled
+// 13.11.01 Endpicture joined optionally
+// 13.11.05 debugged
+
+function Closefile(varargin)
+ global Wfile FID;
+ if length(varargin)>=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/ketpicscifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin
new file mode 100644
index 00000000..459ad839
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
new file mode 100644
index 00000000..da7c3850
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
@@ -0,0 +1,10 @@
+// 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/ketpicscifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
new file mode 100644
index 00000000..2f0714fe
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
new file mode 100644
index 00000000..64b93e1a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
@@ -0,0 +1,15 @@
+// 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/ketpicscifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
new file mode 100644
index 00000000..6a9af1b5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
new file mode 100644
index 00000000..39b363f6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
@@ -0,0 +1,13 @@
+// 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/ketpicscifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
new file mode 100644
index 00000000..45c1666b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
new file mode 100644
index 00000000..a3f345cb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
@@ -0,0 +1,22 @@
+//
+// 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/ketpicscifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
new file mode 100644
index 00000000..2ae19755
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
new file mode 100644
index 00000000..2abe8c90
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
@@ -0,0 +1,76 @@
+// 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)<Eps
+ Tmp=Pdata(St+1:En,:);
+ Qd=[Qd;Tmp];
+ Din=[Din(1:J-1,:);Din(J+1:N,:)];
+ Flg=1;
+ break;
+ end;
+ if norm(Q-Ao)<Eps
+ Tmp=Pdata(En-1:-1:St,:);
+ Qd=[Qd;Tmp];
+ Din=[Din(1:J-1,:);Din(J+1:N,:)];
+ Flg=1;
+ break;
+ end;
+ if norm(P-Ah)<Eps
+ Tmp=Pdata(En:-1:St+1,:);
+ Qd=[Tmp;Qd];
+ Din=[Din(1:J-1,:);Din(J+1:N,:)];
+ Flg=1;
+ break;
+ end;
+ if norm(Q-Ah)<Eps
+ Tmp=Pdata(St:En-1,:);
+ Qd=[Tmp;Qd];
+ Din=[Din(1:J-1,:);Din(J+1:N,:)];
+ Flg=1;
+ break;
+ end;
+ end;
+ if Flg==0
+ PlotL=Mixadd(PlotL,Qd);
+ Qd=Pdata(Din(1,1):Din(1,2),:);
+ Din=Din(2:N,:);
+ end;
+ N=size(Din,1);
+ end;
+ if size(Qd,1)>0
+ PlotL=Mixadd(PlotL,Qd);
+ end;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin
new file mode 100644
index 00000000..ebbf0250
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
new file mode 100644
index 00000000..ab4d55b5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
@@ -0,0 +1,13 @@
+// 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/ketpicscifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
new file mode 100644
index 00000000..945f328f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
new file mode 100644
index 00000000..07c17303
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.09.19
+
+function Out=Crv3onsfHiddenData()
+ global CRV3ONSFHIDDENDATA
+ Out=CRV3ONSFHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
new file mode 100644
index 00000000..edfc2433
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
new file mode 100644
index 00000000..ba168b71
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
@@ -0,0 +1,49 @@
+// 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/ketpicscifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
new file mode 100644
index 00000000..fcf19f53
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
new file mode 100644
index 00000000..5fc40737
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
@@ -0,0 +1,50 @@
+// 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/ketpicscifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
new file mode 100644
index 00000000..6c2acae3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
new file mode 100644
index 00000000..9d97b3ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.09.19
+
+function Out=CrvonsfHiddenData()
+ global CRVONSFHIDDENDATA
+ Out=CRVONSFHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
new file mode 100644
index 00000000..5a5c9703
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
new file mode 100644
index 00000000..a530284b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
@@ -0,0 +1,90 @@
+// 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/ketpicscifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
new file mode 100644
index 00000000..29f41d3c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
new file mode 100644
index 00000000..f3bdf700
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
@@ -0,0 +1,86 @@
+// 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/ketpicscifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
new file mode 100644
index 00000000..c0c9a068
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
new file mode 100644
index 00000000..0081b20c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.10.24
+
+function Out=CrvsfHiddenData()
+ global CRVSFHIDDENDATA
+ Out=CRVSFHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
new file mode 100644
index 00000000..c4172a33
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
new file mode 100644
index 00000000..a87506d2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
@@ -0,0 +1,81 @@
+// 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/ketpicscifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
new file mode 100644
index 00000000..8efb0eb2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
new file mode 100644
index 00000000..7e24efcb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
@@ -0,0 +1,80 @@
+// 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/ketpicscifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
new file mode 100644
index 00000000..98b1a53c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
new file mode 100644
index 00000000..8c2b6eee
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
@@ -0,0 +1,7 @@
+// 08.09.10
+
+function Out=CuspData()
+ global CUSPDATA
+ Out=CUSPDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
new file mode 100644
index 00000000..8d097887
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
new file mode 100644
index 00000000..33f1d807
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
@@ -0,0 +1,7 @@
+// 08.09.10
+
+function Out=CuspPt()
+ global CUSPPT
+ Out=CUSPPT;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
new file mode 100644
index 00000000..a3855489
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
new file mode 100644
index 00000000..07cbb09b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
@@ -0,0 +1,7 @@
+// 08.09.10
+
+function PL=CuspSplitPt()
+ global CUSPSPLITPT
+ PL=CUSPSPLITPT;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
new file mode 100644
index 00000000..ae85baa1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
new file mode 100644
index 00000000..0ea935b6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
@@ -0,0 +1,179 @@
+// 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__)<Eps__ Cflg__=1; end;
+ CuspL__=[];
+ Cva__=cos(10*%pi/180);
+ for I__=1:size(PthL__,1)-1
+ if size(PthL__,1)==2 break; end;
+ Tmp__=PthL__(I__,:);
+ if I__==1
+ if Cflg__==0 continue; end;
+ Tmp1__=PthL__(size(PthL__,1)-1,:);
+ else
+ Tmp1__=PthL__(I__-1,:);
+ end;
+ Tmp2__=PthL__(I__+1,:);
+ V1__=Tmp__-Tmp1__;
+ V2__=Tmp2__-Tmp__;
+ Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2);
+ Tmp3__=Tmp3__/(norm(V1__)*norm(V2__));
+ Cuspflg__=0;
+ if Tmp3__<Cva__
+ P__=PthL__(I__,:);
+ Kaku__=acos(Tmp3__)*180/%pi;
+ if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
+ Kaku__=-Kaku__
+ end;
+ Cuspflg__=0;
+ for J__=I__+1:size(PthL__,1)-1
+ if abs(Kaku__)>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/ketpicscifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin
new file mode 100644
index 00000000..4f20be30
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
new file mode 100644
index 00000000..a8221f5b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
@@ -0,0 +1,176 @@
+// 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)<Eps__ Cflg__=1; end;
+ CuspL__=[];
+ Cva__=cos(10*%pi/180);
+ for I__=1:size(PthL__,1)-1
+ if size(PthL__,1)==2 break; end;
+ Tmp__=PthL__(I__,:);
+ if I__==1
+ if Cflg__==0 continue; end;
+ Tmp__1=PthL__(size(PthL__,1)-1,:);
+ else
+ Tmp__1=PthL__(I__-1,:);
+ end;
+ Tmp__2=PthL__(I__+1,:);
+ V1__=Tmp__-Tmp__1;
+ V2__=Tmp__2-Tmp__;
+ Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2);
+ Tmp__3=Tmp__3/(norm(V1__)*norm(V2__));
+ Cuspflg__=0;
+ if Tmp__3<Cva__
+ P__=PthL__(I__,:);
+ Kaku__=acos(Tmp__3)*180/%pi;
+ if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
+ Kaku__=-Kaku__
+ end;
+ Cuspflg__=0;
+ for J__=I__+1:size(PthL__,1)-1
+ if abs(Kaku__)>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/ketpicscifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin
new file mode 100644
index 00000000..48b89428
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
new file mode 100644
index 00000000..fa26b319
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
new file mode 100644
index 00000000..b20f8311
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
new file mode 100644
index 00000000..1df8e5e3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
@@ -0,0 +1,31 @@
+// 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/ketpicscifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
new file mode 100644
index 00000000..fc463260
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
new file mode 100644
index 00000000..82e9ac48
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
@@ -0,0 +1,24 @@
+//
+// 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/ketpicscifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
new file mode 100644
index 00000000..5069d551
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
new file mode 100644
index 00000000..b06ac44b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
@@ -0,0 +1,23 @@
+// 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 J<Tmp1
+ Tmp=Tmp+",";
+ end;
+ end
+ Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}";
+ Texcom(Tmp);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin
new file mode 100644
index 00000000..1935267f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
new file mode 100644
index 00000000..43d8ea6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
@@ -0,0 +1,195 @@
+
+// 08.09.22
+// 09.03.10
+// 09.10.09 ( ` and order )
+// 09.10.09b ( system )
+// 09.11.12 ( debug for x<0 )
+// 13.10.19 ( __ added to variables )
+// 15.11.16 N changed to number of intervals
+// 15.12.08 bug of optiion ( __ ) fixed
+
+function P__=Deqplot(varargin)
+ global XMIN XMAX YMIN YMAX
+ Nargs__=length(varargin);
+ Eps__=10^(-5);
+ Fnstr__=varargin(1);
+ Fnstr__=strsubst(Fnstr__,Prime(),'`');
+ K__=mtlb_findstr(Fnstr__,'=');
+ Str__=part(Fnstr__,1:(K__-1));
+ Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__));
+ JL__=mtlb_findstr(Str__,'`');
+ Yname__=part(Str__,1:(JL__(1)-1));
+ Yname__=strsubst(Yname__,',',';');
+ Tmp__=mtlb_findstr(Yname__,';');
+ if length(Tmp__)>0
+ 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/ketpicscifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin
new file mode 100644
index 00000000..b4f3edb7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
new file mode 100644
index 00000000..cbffc3d7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
@@ -0,0 +1,64 @@
+// 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/ketpicscifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
new file mode 100644
index 00000000..8854f5a7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
new file mode 100644
index 00000000..b6a53b62
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
@@ -0,0 +1,15 @@
+// 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/ketpicscifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
new file mode 100644
index 00000000..91415a88
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
new file mode 100644
index 00000000..be16b473
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
new file mode 100644
index 00000000..7b1b6ff3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
new file mode 100644
index 00000000..36531da2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
@@ -0,0 +1,9 @@
+// 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/ketpicscifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
new file mode 100644
index 00000000..c7f08dda
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
new file mode 100644
index 00000000..5054faf2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
new file mode 100644
index 00000000..489764ae
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
new file mode 100644
index 00000000..fc2847c7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
@@ -0,0 +1,186 @@
+// 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 N<Nargs
+ Kosa=varargin(N+1);
+ end
+// Kosa=min(Kosa,1); // 100307
+ Tmp=1/(2*Kosa);
+ Kankaku=Tmp*0.100*1000/2.54/MilliIn;
+ NaitenL=varargin(1);
+ if Mixtype(NaitenL)==1
+ NaitenL=list(NaitenL);
+ end
+ Ns=2;
+ StartP=Op(1,NaitenL);
+ if type(StartP)==10
+ StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
+ else
+ StartP=Doscaling(StartP);
+ end;
+ Tmp=varargin(2);
+ if Mixtype(Tmp)==1
+ StartP=Doscaling(Tmp);
+ Ns=3;
+ end
+ Tmp=[];
+ for I=Ns:N
+ Tmp=Mixjoin(Tmp,list(varargin(I)));
+ end
+ Bdy=Kyoukai(Tmp);
+ Bdys=list();
+ for I=1:length(Bdy)
+ Tmp1=Bdy(I);
+ Tmp2=Doscaling(Tmp1);
+ Bdys=Mixjoin(Bdys,list(Tmp2))
+ end;
+ Bdy=Bdys;
+ PtnL=[];
+ for I=1:length(NaitenL)
+ Tmp=Op(I,NaitenL);
+ if type(Tmp)==1
+ Tmp1=Naigai(Tmp,Bdy)
+ PtnL=Mixjoin(PtnL,list(Tmp1));
+ else
+ if type(Tmp)~=10
+ disp('Type Error');
+ return;
+ end
+ Ptn=[];
+ for J=1:length(Tmp)
+ if Op(J,Tmp)=='i'
+ Ptn=[Ptn,1];
+ else
+ Ptn=[Ptn,0];
+ end
+ end
+ PtnL=Mixjoin(PtnL,list(Ptn));
+ end
+ end
+ Call=length(Bdy);
+ Ptn=zeros(1,Call);
+ if Member(Ptn,PtnL)
+ Wn=Doscaling(Framedata());
+ Bdy=Mixjoin(Bdy,list(Wn));
+ Tmp=[];
+ for I=1:Mixlength(PtnL)
+ Tmp1=[Op(I,PtnL),1];
+ Tmp=Mixjoin(Tmp,list(Tmp1));
+ end
+ PtnL=Tmp;
+ end
+ V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
+ Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
+ Tmp=Op(1,NaitenL);
+ if type(Tmp)==1 & size(Tmp,2)>1
+ 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)<Eps K1=K1+1; end
+ Tmp=Dotprod(R-P,V)/Kankaku;
+ K2=floor(Tmp);
+ if abs(Tmp-K2)<Eps K2=K2-1; end
+ for K=K1:K2
+ Tmp1=Pointdata(P+K*Kankaku*V)
+ ShaL=Mixjoin(ShaL,list(Tmp1));
+ end
+ end
+ P=PA+I*Kankaku*Vm;
+ Sha=Makeshasen(PtnL,P,V,Bdy);
+ Sha=Dividegraphics(Sha);
+ I=I+1;
+ end
+ P=PA-Kankaku*Vm;
+ Sha=Makeshasen(PtnL,P,V,Bdy);
+ I=2;
+ 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)<Eps K1=K1+1; end
+ Tmp=Dotprod(R-P,V)/Kankaku;
+ K2=floor(Tmp);
+ if abs(Tmp-K2)<Eps K2=K2-1; end
+ for K=K1:K2
+ Tmp1=Pointdata(P+K*Kankaku*V)
+ ShaL=Mixjoin(ShaL,list(Tmp1));
+ end
+ end
+ P=PA-I*Kankaku*Vm;
+ Sha=Makeshasen(PtnL,P,V,Bdy);
+ I=I+1;
+ end
+ else
+ Delta=[Xmn,Ymn]-StartP;
+ K1=Trunc(Dotprod(Delta,Vm)/Kankaku);
+ Delta=[Xmx,Ymn]-StartP;
+ K2=Trunc(Dotprod(Delta,Vm)/Kankaku);
+ Delta=[Xmx,Ymx]-StartP;
+ K3=Trunc(Dotprod(Delta,Vm)/Kankaku);
+ Delta=[Xmn,Ymx]-StartP;
+ K4=Trunc(Dotprod(Delta,Vm)/Kankaku);
+ IM=max(K1,K2,K3,K4);
+ Im=min(K1,K2,K3,K4);
+ for I=Im:IM
+ P=StartP+I*Kankaku*Vm;
+ Sha=Makeshasen(PtnL,P,V,Bdy);
+ Sha=Dividegraphics(Sha);
+ if 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)<Eps K1=K1+1; end
+ Tmp=Dotprod(R-P,V)/Kankaku;
+ K2=floor(Tmp);
+ if abs(Tmp-K2)<Eps K2=K2-1; end
+ for K=K1:K2
+ Tmp1=Pointdata(P+K*Kankaku*V)
+ ShaL=Mixjoin(ShaL,list(Tmp1));
+ end
+ end
+ end
+ end
+ end
+ ShaLs=list();
+ for I=1:length(ShaL)
+ Tmp=ShaL(I);
+ Tmp1=Unscaling(Tmp);
+ ShaLs=Mixjoin(ShaLs,Tmp1);
+ end;
+ ShaL=ShaLs
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin
new file mode 100644
index 00000000..fe44d95c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
new file mode 100644
index 00000000..dc35fde5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
@@ -0,0 +1,6 @@
+// 09.10.03
+
+function Out=Dotprod(a,b)
+ Out=a*b';
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin
new file mode 100644
index 00000000..a678c346
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
new file mode 100644
index 00000000..7e4ea8a1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
@@ -0,0 +1,133 @@
+// 08.05.21
+// 08.11.26
+// 09.12.24 (Revised)
+// 09.12.29
+// 10.01.02
+
+function Dottedline(varargin)
+ global Wfile FID MilliIn PenThick PenThickInit
+ Nall=length(varargin);
+ Nagasa=0.1;
+ Ookisa=PenThick;
+ 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=round(Ookisa*varargin(Nall));
+ Nall=Nall-2;
+ end
+ Nagasa=1000/2.54/MilliIn*Nagasa;
+ for N=1:Nall
+ Tmp=varargin(N);
+ Pdata=Flattenlist(Tmp); //
+ 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;
+ 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,:))<Eps
+ continue
+ end
+ end
+ end
+ Str='\special{pn '+string(Ookisa)+'}%';
+ if Wfile=='default'
+ mprintf('%s\n',Str);
+ else
+ mfprintf(FID,'%s\n',Str);
+ end
+ for I=1:size(PPd,1)
+ P=PPd(I,:);
+ if size(PPd,1)==1
+ V=[1,0];
+ elseif I==1
+ Tmp=PPd(I+1,:)-P;
+ V=1/norm(Tmp)*Tmp;
+ elseif I==size(PPd,1)
+ Tmp= P-PPd(I-1,:);
+ V=1/norm(Tmp)*Tmp;
+ else
+ Tmp1=PPd(I+1,:)-P;
+ Tmp2=P-PPd(I-1,:);
+ Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2;
+ V=1/norm(Tmp3)*Tmp3;
+ end;
+ Tmp=round(MilliIn*P(1)-1/2*Ookisa*V(1));
+ X=string(Tmp);
+ Tmp=-round(MilliIn*P(2)-1/2*Ookisa*V(2));
+ Y=string(Tmp);
+ Str='\special{pa '+X+' '+Y+'}';
+ if Wfile=='default'
+ mprintf('%s',Str);
+ else
+ mfprintf(FID,'%s',Str);
+ end
+ Tmp=round(MilliIn*P(1)+1/2*Ookisa*V(1));
+ X=string(Tmp);
+ Tmp=-round(MilliIn*P(2)+1/2*Ookisa*V(2));
+ Y=string(Tmp);
+ Str='\special{pa '+X+' '+Y+'}';
+ if Wfile=='default'
+ mprintf('%s',Str);
+ mprintf('%s','\special{fp}');
+ if modulo(I,2)==0
+ mprintf('%s\n','%');
+ end;
+ else
+ mfprintf(FID,'%s',Str);
+ mfprintf(FID,'%s','\special{fp}');
+ if modulo(I,2)==0
+ mfprintf(FID,'%s\n','%');
+ end;
+ end
+ end
+ end
+ end;
+ end;
+ Tmp=PenThick/PenThickInit;
+ Setpen(Tmp);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin
new file mode 100644
index 00000000..5871fcc7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
new file mode 100644
index 00000000..c4d9b86a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
@@ -0,0 +1,115 @@
+// 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,:))<Eps
+ continue
+ end
+ end
+ PL=[];
+ for J=1:size(CL,1)
+ PL=[PL;P+CL(J,:)];
+ end
+ Mojisu=0;
+ for J=1:size(PL,1)
+ Q=PL(J,:);
+ X=round(MilliIn*Q(1));
+ X=string(X);
+ Y=-round(MilliIn*Q(2));
+ Y=string(Y);
+ Str='\special{pa '+X+" "+Y+'}';
+ 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
+ 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/ketpicscifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
new file mode 100644
index 00000000..9777c32b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
new file mode 100644
index 00000000..3a06be00
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
@@ -0,0 +1,34 @@
+// 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/ketpicscifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
new file mode 100644
index 00000000..cf57e835
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
new file mode 100644
index 00000000..84fd6daa
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
@@ -0,0 +1,28 @@
+// 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/ketpicscifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
new file mode 100644
index 00000000..071b7070
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
new file mode 100644
index 00000000..2ec407ec
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
@@ -0,0 +1,71 @@
+// 08.05.21
+
+function Drwline(varargin)
+ global Wfile FID MilliIn PenThick PenThickInit;
+ Nall=length(varargin);
+ Thick=0;
+ Tmp=varargin(Nall);
+ if type(Tmp)==1 & length(Tmp)==1
+ Thick=round(varargin(Nall)*PenThickInit);
+ Str='\special{pn '+string(Thick)+'}%';
+ if Wfile=='default'
+ mprintf('%s\n',Str);
+ else
+ mfprintf(FID,'%s\n',Str);
+ end
+ Nall=Nall-1;
+ end
+ for N=1:Nall
+ Tmp=varargin(N);
+ Pdata=Flattenlist(Tmp);
+ for II=1:length(Pdata)
+ 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;
+ for I=1:size(Data,1)
+ Tmp=Data(I,:);
+ X=round(MilliIn*Tmp(1));
+ X=string(X);
+ Y=-round(MilliIn*Tmp(2));
+ Y=string(Y);
+ Str='\special{pa '+X+" "+Y+'}';
+ 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;
+ if Wfile=='default'
+ mprintf('%s\n','\special{fp}%');
+ else
+ mfprintf(FID,'%s\n','\special{fp}%');
+ end
+ end
+ end
+ end;
+ Str='%';
+ if Thick>0
+ Tmp=PenThick/PenThickInit; // modified
+ Setpen(Tmp);
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin
new file mode 100644
index 00000000..198c0c88
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
new file mode 100644
index 00000000..5cb45c6f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
@@ -0,0 +1,75 @@
+//
+// 08.05.31
+// 09.12.25
+// 10.01.01
+
+function Drwpt(varargin)
+ global Wfile FID TenSize TenSizeInit MilliIn;
+ Nargs=length(varargin);
+ if TenSize>TenSizeInit
+ N=round(6*sqrt(TenSize/TenSizeInit));
+ else
+ N=4
+ end
+ Tmp=varargin(Nargs);
+ if type(Tmp)==1
+ if length(Tmp)>1
+ Kosa=1; All=Nargs;
+ else
+ Kosa=Tmp; All=Nargs-1;
+ end;
+ elseif type(Tmp)==15
+ Kosa=1; All=Nargs;
+ end;
+ CL=[];
+ for J=0:N
+ Tmp=TenSize*0.5*1000/2.54/MilliIn;
+ Tmp=Tmp*[cos(%pi/4+J*2*%pi/N),sin(%pi/4+J*2*%pi/N)];
+ CL=[CL;Tmp];
+ 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);
+ PL=[];
+ for J=0:N
+ PL=[PL;P+CL(J+1,:)];
+ end;
+ Mojisu=0;
+ for J=1:size(PL,1)
+ Q=PL(J,:);
+ X=string(round(MilliIn*Q(1)));
+ Y=string(-round(MilliIn*Q(2)));
+ Str='\special{pa '+X+' '+Y+'}'
+ 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;
+ Str1='\special{sh '+string(Kosa)+'}';
+ Str2='\special{fp}%';
+ if Wfile=='default'
+ mprintf('%s',Str1);
+ mprintf('%s\n',Str2);
+ else
+ mfprintf(FID,'%s',Str1);
+ mfprintf(FID,'%s\n',Str2);
+ end
+ end
+ end
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin
new file mode 100644
index 00000000..42407401
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
new file mode 100644
index 00000000..b091754f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
@@ -0,0 +1,17 @@
+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/ketpicscifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
new file mode 100644
index 00000000..dd1bf063
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
new file mode 100644
index 00000000..9b67e366
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
@@ -0,0 +1,41 @@
+// 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/ketpicscifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
new file mode 100644
index 00000000..d9d9c1bf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
new file mode 100644
index 00000000..bfc191b9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
@@ -0,0 +1,23 @@
+// 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/ketpicscifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
new file mode 100644
index 00000000..6e120c8d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
new file mode 100644
index 00000000..cded7ef2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
@@ -0,0 +1,126 @@
+// 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 Tmp2<Tmp
+ P=Tmp1;
+ T1=Op(2,Op(I,KL));
+ Tmp=Tmp2;
+ end
+ end
+ end
+ S=P;
+ AnsL=[];
+ for N=1:Nall
+ F=Op(N,PdataL);
+ if N>1 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 Tmp<Eps*10 Flg=1; end
+ end
+ if Flg==1
+ if Numptcrv(F)>Numptcrv(G)
+ Tmp=Nearestpt(F,G);
+ Q=Op(1,Tmp);
+ T3=Op(4,Tmp);
+ Flg=10;
+ else
+ Tmp=Nearestpt(G,F);
+ Q=Op(3,Tmp);
+ T3=Op(2,Tmp);
+ Flg=10;
+ 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<T2+Eps)
+ Q=Tmp1;
+ T2=Tmp2;
+ T3=Tmp3;
+ end
+ end
+ end
+ end
+ Tmp=Partcrv(P,Q,F);
+ T1=T3;
+ AnsL=Mixadd(AnsL,Tmp);
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin
new file mode 100644
index 00000000..36e0755f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
new file mode 100644
index 00000000..ff4a3c43
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
@@ -0,0 +1,11 @@
+// 08.05.22
+
+function Endpicture(varargin)
+ if length(varargin)==0
+ Flg=1
+ else
+ Flg=varargin(1);
+ end
+ Closepicture(Flg)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin
new file mode 100644
index 00000000..027661d5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
new file mode 100644
index 00000000..b9c86eef
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
@@ -0,0 +1,79 @@
+// 08.09.10
+// 13.10.21 ( __ added to varibles )
+// 17.05.21 Mdv, Ndv changed to division number
+
+function [Zval__,Xval__,Yval__]=Evlptablepara(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
+ 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/ketpicscifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin
new file mode 100644
index 00000000..d5745d92
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
new file mode 100644
index 00000000..15ddd0a8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
@@ -0,0 +1,77 @@
+// 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/ketpicscifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
new file mode 100644
index 00000000..a18f4f27
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
new file mode 100644
index 00000000..2a4d1491
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
@@ -0,0 +1,8 @@
+// 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/ketpicscifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
new file mode 100644
index 00000000..b714247e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
new file mode 100644
index 00000000..5b9df24b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
@@ -0,0 +1,100 @@
+//
+// 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/ketpicscifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
new file mode 100644
index 00000000..ea7beb15
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
new file mode 100644
index 00000000..d51dfa91
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
@@ -0,0 +1,36 @@
+// 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/ketpicscifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
new file mode 100644
index 00000000..9c11aaad
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
new file mode 100644
index 00000000..ae0bea54
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
@@ -0,0 +1,78 @@
+// 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/ketpicscifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
new file mode 100644
index 00000000..d32b2b3d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
new file mode 100644
index 00000000..7dc8bef1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
@@ -0,0 +1,81 @@
+// 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/ketpicscifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
new file mode 100644
index 00000000..10b573ba
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
new file mode 100644
index 00000000..0ed2f249
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
@@ -0,0 +1,154 @@
+/////////
+// 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)<Eps then
+ EdgeL(J)=list(P,Qj);
+ Cflg=1;
+ break;
+ end
+ if norm(P-Qj)<Eps then
+ EdgeL(J)=list(Q,Pj)
+ Cflg=1;
+ break;
+ end;
+ end
+ if Cflg==0 then
+ HiddenL($+1)=Spaceline(Edge);
+ end;
+ end; // upto 14.03.30
+
+// L=1:length(VELHI); // from 11.01.13
+// while length(L)>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)<Eps
+// Edge(2)=Qj;
+// Rflg=1;
+// elseif norm(P-Qj)<Eps
+// Edge(1)=Pj;
+// Rflg=1;
+// end;
+// if Rflg==0
+// Lr=[Lr,J];
+// end;
+// end;
+// else
+// Lr=L(2:length(L));
+// end;
+// L=Lr; // upto 11.01.13
+// HiddenL($+1)=Spaceline(Edge);
+// end;
+ PHHIDDENDATA=HiddenL;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin
new file mode 100644
index 00000000..8af8ea49
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
new file mode 100644
index 00000000..c300cf6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
@@ -0,0 +1,88 @@
+// 09.10.27
+
+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));
+ 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/ketpicscifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin
new file mode 100644
index 00000000..513db3d6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
new file mode 100644
index 00000000..062fcc5c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
@@ -0,0 +1,127 @@
+// 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/ketpicscifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
new file mode 100644
index 00000000..54c4fa4b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
new file mode 100644
index 00000000..903679ab
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
@@ -0,0 +1,17 @@
+// 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/ketpicscifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
new file mode 100644
index 00000000..e1a1d3b6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
new file mode 100644
index 00000000..218b599f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
@@ -0,0 +1,54 @@
+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/ketpicscifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
new file mode 100644
index 00000000..de2203fe
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
new file mode 100644
index 00000000..af259244
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
@@ -0,0 +1,21 @@
+// 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)<Eps
+ Out=0;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin
new file mode 100644
index 00000000..cc5d39c4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
new file mode 100644
index 00000000..2d0d840b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
@@ -0,0 +1,18 @@
+// 09.03.12
+
+function Out=FouriercoeffL(Fn,T,Upto)
+ Out=Mix(Fouriercoeff(Fn,T,'c',0));
+ CL=[];
+ for K=1:Upto
+ Tmp=Fouriercoeff(Fn,T,'c',K);
+ CL=[CL,Tmp];
+ end;
+ Out=Mixadd(Out,CL);
+ CL=[];
+ for K=1:Upto
+ Tmp=Fouriercoeff(Fn,T,'s',K);
+ CL=[CL,Tmp];
+ end;
+ Out=Mixadd(Out,CL);
+ Out=Mixadd(Out,T);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin
new file mode 100644
index 00000000..91dee3ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
new file mode 100644
index 00000000..6182f4a7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
@@ -0,0 +1,15 @@
+// 09.03.12
+
+function Out=Fouriersum(COEFF,x)
+ C=Mixop(1,COEFF);
+ A=Mixop(2,COEFF);
+ B=Mixop(3,COEFF);
+ T=Mixop(4,COEFF);
+ Upto=size(A,2);
+ L=T/2;
+ K=1:Upto;
+ Tmp1=sum(A(K).*cos(K*%pi*x/L));
+ Tmp2=sum(B(K).*sin(K*%pi*x/L));
+ Out=C+Tmp1+Tmp2;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin
new file mode 100644
index 00000000..4cc02afc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
new file mode 100644
index 00000000..437ff122
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
@@ -0,0 +1,18 @@
+// 09.08.23
+
+function Out=Fracform(X)
+ [N,D]=rat(X);
+ Out=[];
+ for I=1:size(X,1)
+ for J=1:size(X,2)
+ Tmp1=N(I,J);
+ Tmp2=D(I,J);
+ if Tmp2==1
+ Out(I,J)=string(Tmp1);
+ else
+ Out(I,J)=string(Tmp1)+'/'+string(Tmp2);
+ end;
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin
new file mode 100644
index 00000000..828acf25
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
new file mode 100644
index 00000000..071f7381
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
@@ -0,0 +1,36 @@
+// 2011.12.18 ( available for list )
+
+function P=Framedata(varargin)
+ global XMIN XMAX YMIN YMAX
+ VaL=Flattenlist(varargin);
+ N=length(VaL);
+ if N<=1
+ H=1.0*10^(-4);
+ PA=[XMIN+H,YMIN+H];
+ PB=[XMAX-H,YMIN+H];
+ PC=[XMAX-H,YMAX-H];
+ PD=[XMIN+H,YMAX-H];
+ else
+ Tmp=VaL(N);
+ if type(Tmp)==1 & length(Tmp)==1
+ Dy=Tmp;
+ Dx=Dy;
+ Tmp=VaL(N-1);
+ if type(Tmp)==1 & length(Tmp)==1
+ Dx=Tmp;
+ end;
+ Tmp=VaL(1);
+ X=Tmp(1); Y=Tmp(2);
+ X1=X-Dx; X2=X+Dx;
+ Y1=Y-Dy; Y2=Y+Dy;
+ else
+ Tmp=VaL(1);
+ X1=Tmp(1); X2=Tmp(2);
+ Tmp=VaL(2);
+ Y1=Tmp(1); Y2=Tmp(2);
+ end;
+ PA=[X1,Y1]; PB=[X2,Y1];
+ PC=[X2,Y2]; PD=[X1,Y2];
+ end;
+ P=Listplot(PA,PB,PC,PD,PA)
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin
new file mode 100644
index 00000000..5e765044
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
new file mode 100644
index 00000000..97ddae5b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
@@ -0,0 +1,79 @@
+// 08.08.16
+// 08.09.16
+// 09.11.14
+// 10.08.19
+// 13.10.22 ( __ added to varibles )
+
+function Out__=Fullformfunc(FdL__)
+ Out__=MixS(Mixop(1,FdL__));
+ N__=Mixlength(FdL__);
+ for Jrg__=1:N__
+ Tmp__=Mixop(Jrg__,FdL__);
+ if part(Tmp__,length(Tmp__))==']'
+ break
+ end;
+ end;
+ Urg__=Mixop(Jrg__,FdL__);
+ K__=mtlb_findstr(Urg__,'=');
+ Uname__=stripblanks(part(Urg__,1:K__-1));
+ Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22
+ Tmp1__=evstr(Tmp__);
+ Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]";
+ Vrg__=Mixop(Jrg__+1,FdL__);
+ K__=mtlb_findstr(Vrg__,'=');
+ Vname__=stripblanks(part(Vrg__,1:K__-1));
+ Tmp__=part(Vrg__,K__+1:length(Vrg__));
+ Tmp1__=evstr(Tmp__);
+ Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; //
+ if Jrg__==2
+ Tmp__=Mixop(1,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Zf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__);
+ Out__=Mixjoin(Out__,Tmp__);
+ elseif Jrg__==4
+ Tmp__=Mixop(1,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Zf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=Mixop(2,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Xname__=stripblanks(part(Tmp__,1:K__-1));
+ Xf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=Mixop(3,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Yname__=stripblanks(part(Tmp__,1:K__-1));
+ Yf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')');
+ Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')');
+ Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
+ Out__=Mixjoin(Out__,Tmp__);
+ else
+ Tmp__=Mixop(2,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Xf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=Mixop(3,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Yf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=Mixop(4,FdL__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Zf__=part(Tmp__,K__+1:length(Tmp__));
+ Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
+ Out__=Mixjoin(Out__,Tmp__);
+ end;
+ DrwS__='enws';
+ BdyL__=[];
+ for I__=Jrg__+2:Mixlength(FdL__)
+ Tmp__=Mixop(I__,FdL__);
+ if type(Tmp__)==10
+ if length(Tmp__)==0 //
+ Tmp__=' ';
+ end;
+ DrwS__=Tmp__;
+ end;
+ if type(Tmp__)==1 & size(Tmp__,2)>1
+ BdyL__=Tmp__;
+ end;
+ end;
+ Tmp__=MixS(DrwS__,BdyL__);
+ Out__=Mixjoin(Out__,Tmp__);
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin
new file mode 100644
index 00000000..ba4a0779
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
new file mode 100644
index 00000000..3d17995e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
@@ -0,0 +1,11 @@
+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/ketpicscifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
new file mode 100644
index 00000000..a66e7b20
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
new file mode 100644
index 00000000..ca4e0d2a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
@@ -0,0 +1,7 @@
+// 09.09.10
+
+function Out=Getcounter()
+ global GCOUNTER;
+ Out=GCOUNTER;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
new file mode 100644
index 00000000..d0751e37
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
new file mode 100644
index 00000000..5395d885
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
@@ -0,0 +1,7 @@
+// 09.09.10
+
+function Out=Gettrace();
+ global TRACEDATA;
+ Out=TRACEDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
new file mode 100644
index 00000000..4e13bb0c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
new file mode 100644
index 00000000..236287ef
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
@@ -0,0 +1,141 @@
+// 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 N<Nargs
+ Kakudo=varargin(N+1);
+ if N==Nargs-2
+ Kankaku=0.125*varargin(Nargs);
+ end
+ end
+ NaitenL=varargin(1);
+ if Mixtype(NaitenL)==1
+ NaitenL=list(NaitenL);
+ end
+ Ns=2;
+ StartP=Op(1,NaitenL);
+ if type(StartP)==10
+ StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2];
+ end
+ if Mixtype(varargin(2))==1
+ StartP=varargin(2);
+ StartP=Doscaling(StartP);
+ Ns=3;
+ end
+ Tmp=list();
+ for I=Ns:N
+ Tmp1=list(varargin(I));
+ Tmp=Mixjoin(Tmp,Tmp1);
+ end
+ Bdy=Kyoukai(Tmp);
+ Bdys=list();
+ for I=1:length(Bdy)
+ Tmp1=Bdy(I);
+ Tmp2=Doscaling(Tmp1);
+ Bdys=Mixjoin(Bdys,list(Tmp2));
+ end;
+ Bdy=Bdys;
+ PtnL=list();
+ for I=1:length(NaitenL)
+ Tmp=Op(I,NaitenL);
+ if type(Tmp)==1
+ Tmp1=Naigai(Tmp,Bdy);
+ PtnL=Mixjoin(PtnL,list(Tmp1));
+ else
+ if type(Tmp)~=10
+ disp('Type Error');
+ return
+ end
+ Ptn=[];
+ for J=1:length(Tmp)
+ if Op(J,Tmp)=='i'
+ Ptn=[Ptn,1];
+ else
+ Ptn=[Ptn,0];
+ end
+ end
+ PtnL=Mixjoin(PtnL,list(Ptn));
+ end
+ end
+ Call=length(Bdy);
+ Ptn=zeros(1,Call);
+ if Member(Ptn,PtnL)
+ Wn=Doscaling(Framedata());
+ Bdy=Mixjoin(Bdy,list(Wn));
+ Tmp=list();
+ for I=1:length(PtnL)
+ Tmp1=[Op(I,PtnL),1];
+ Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04
+ end
+ PtnL=Tmp;
+ end
+ V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
+ Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
+ Tmp=Op(1,NaitenL);
+ if type(Tmp)==1 & size(Tmp,2)==2
+ Tmp=Doscaling(Tmp);
+ Delta=Tmp-StartP;
+ K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
+ PA=StartP+K*Kankaku*Vm;
+ Sha=Makeshasen(PtnL,PA,V,Bdy);
+ I=1;
+ while length(Sha)~=0
+ for J=1:length(Sha)
+ ShaL=Mixadd(ShaL,Sha(J));
+ end;
+ Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy);
+ I=I+1;
+ end
+ Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy);
+ I=2;
+ while length(Sha)~=0
+ for J=1:length(Sha)
+ ShaL=Mixjoin(ShaL,list(Sha(J)));
+ end;
+ Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy);
+ I=I+1;
+ end
+ else
+ Delta=[Xmn,Ymn]-StartP;
+ K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
+ Delta=[Xmx,Ymn]-StartP;
+ K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
+ Delta=[Xmx,Ymx]-StartP;
+ K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
+ Delta=[Xmn,Ymx]-StartP;
+ K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
+ IM=max(K1,K2,K3,K4);
+ Im=min(K1,K2,K3,K4);
+ for I=Im:IM
+ Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy);
+ for J=1:length(Sha)
+ ShaL=Mixjoin(ShaL,list(Sha(J)));
+ end
+ end
+ end
+ ShaLs=list();
+ for I=1:length(ShaL)
+ Tmp=ShaL(I);
+ Tmp1=Unscaling(Tmp);
+ ShaLs=Mixjoin(ShaLs,list(Tmp1));
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin
new file mode 100644
index 00000000..b7f91dc9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
new file mode 100644
index 00000000..7bc05ed9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
@@ -0,0 +1,15 @@
+// s : 2014.06.22
+
+function Out=Hexahedrondata(A,V1,V2,V3)
+ Tmp=det([V1;V2;V3]);
+ if Tmp<0 then
+ Tmp1=V1;
+ V1=V2;
+ V2=Tmp1
+ end
+ B=A+V1; C=A+V1+V2; D=A+V2;
+ E=A+V3; F=B+V3; G=C+V3; H=D+V3;
+ VL=list(A,B,C,D,E,F,G,H);
+ FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]);
+ Out=list(VL,FL)
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin
new file mode 100644
index 00000000..d4296e92
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
new file mode 100644
index 00000000..2ead122d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
@@ -0,0 +1,7 @@
+// 08.09.15
+
+function Out=HiddenWireData()
+ global HIDDENWIREDATA
+ Out=HIDDENWIREDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin
new file mode 100644
index 00000000..65df35b0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
new file mode 100644
index 00000000..ab8a54b6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
@@ -0,0 +1,144 @@
+// 08.05.17 Debugged
+// 09.12.25
+// 11.04.13 debugged ( [a,b] )
+// 14.03.05 MARKLEN
+
+function Htickmark(varargin)
+ global Wfile FID MARKLEN GENTEN XMIN XMAX;
+ 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((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/ketpicscifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin
new file mode 100644
index 00000000..39861c63
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
new file mode 100644
index 00000000..ae02fee1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
@@ -0,0 +1,9 @@
+// 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/ketpicscifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
new file mode 100644
index 00000000..875a82b3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
new file mode 100644
index 00000000..b0715484
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
@@ -0,0 +1,61 @@
+// 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/ketpicscifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
new file mode 100644
index 00000000..37882bfa
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
new file mode 100644
index 00000000..9dacd30c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
@@ -0,0 +1,11 @@
+function Rx=InWindow(PA)
+ global XMIN XMAX YMIN YMAX
+ Eps=10.0^(-6);
+ X=PA(1); Y=PA(2);
+ if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps
+ Rx='i'
+ else
+ Rx='o'
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin
new file mode 100644
index 00000000..80050aeb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
new file mode 100644
index 00000000..d5e09ff4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
@@ -0,0 +1,8 @@
+// 08.07.11
+
+function Initangle()
+ global PHI THETA;
+ PHI=30*%pi/180;
+ THETA=60*%pi/180;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin
new file mode 100644
index 00000000..cca9ea76
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
new file mode 100644
index 00000000..abd3377f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
@@ -0,0 +1,25 @@
+// 09.10.09
+// 09.10.21 Es, Er
+
+function Out=Integrate(varargin);
+ Nargs=length(varargin);
+ Fs=varargin(1);
+ Vs=varargin(2);
+ Itv=varargin(3);
+ Es=1d-10;
+ if Nargs>3
+ Es=varargin(4);
+ end;
+ Er=1d-8;
+ if Nargs>4
+ Er=varargin(5);
+ end;
+ Out=0;
+ Na=1;
+ while Na<length(Itv)
+ A=Itv(Na); B=Itv(Na+1);
+ Out=Out+integrate(Fs,Vs,A,B,Es,Er);
+ Na=Na+1;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin
new file mode 100644
index 00000000..9c865940
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
new file mode 100644
index 00000000..59b4fdcc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
@@ -0,0 +1,34 @@
+// 08.05.18 Koshikawa
+// 08.05.19 Changed
+// 08.06.03
+// 09.11.12
+// 09.11.14 debug
+
+function PL=Intersectcrvs(varargin)
+ Nargs=length(varargin);
+ Eps=10^(-4);
+ Tmp=varargin(Nargs);
+ if type(Tmp)==1 & length(Tmp)==1
+ Eps=Tmp;
+ end
+ G1=varargin(1);
+ if Mixtype(G1)==1
+ G1=list(G1);
+ end;
+ G2=varargin(2);
+ if Mixtype(G2)==1
+ G2=list(G2); //
+ end;
+ PL=list();
+ for N=1:length(G1)
+ for M=1:length(G2)
+ KL=IntersectcrvsPp(G1(N),G2(M),Eps);
+ for I=1:length(KL)
+ Tmp=KL(I);;
+ P=Tmp(1);
+ PL($+1)=P;
+ end;
+ end;
+ end;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
new file mode 100644
index 00000000..806ccfa3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
new file mode 100644
index 00000000..a1218d06
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
@@ -0,0 +1,101 @@
+// 08.05.18 Koshikawa
+// 08.05.19 Changed
+// 08.00.04
+// 09.11.07 for the same curve
+
+function KL=IntersectcrvsPp(varargin) // Modified
+ Nargs=length(varargin);
+ G1=varargin(1); G2=varargin(2);
+ Eps=10.0^(-4);
+ if Nargs>2
+ 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 Tmp2<Eps0|Tmp3<Eps0
+ KL=list();
+ return;
+ end; //
+ end;
+ KL1=[];
+ KL2=[];
+ for I=1:size(Data1,1)-1
+ A=Data1(I,:);
+ B=Data1(I+1,:);
+ for J=1:size(Data2,1)-1
+ P=Data2(J,:); Q=Data2(J+1,:);
+ Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
+ if Tmp~=[%inf,-%inf]
+ if Op(3,Tmp)==0
+ Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
+ KL1=Mixadd(KL1,Tmp1);
+ else
+ Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
+ KL2=Mixadd(KL2,Tmp2);
+ end
+ end
+ end
+ end
+ KL=[];
+ if Mixlength(KL1)>0
+ 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))<SqEps
+ Flg=1;
+ break
+ end
+ end
+ if Flg==0
+ Tmp=Op(N,KL1);
+ T=Op(2,Tmp);
+ I=Op(3,Tmp);
+ J=Op(4,Tmp);
+ Tmp=MixS(P,I+T,J);
+ KL=Mixadd(KL,Tmp);
+ end
+ end
+ for N=1:Mixlength(KL2)
+ Tmp=Op(N,KL2);
+ P=Op(1,Tmp);
+ Flg=0;
+ for K=1:Mixlength(KL)
+ Tmp=Op(K,KL);
+ if Vecnagasa2(P-Op(1,Tmp))<SqEps
+ Flg=1;
+ break
+ end
+ end
+ if Flg==0
+ Tmp=Op(N,KL2);
+ T=Op(2,Tmp);
+ T=min(max(T,0),1);
+ I=Op(3,Tmp);
+ J=Op(4,Tmp);
+ Tmp=MixS(P,I+T,J);
+ KL=Mixadd(KL,Tmp);
+ end
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin
new file mode 100644
index 00000000..fd6bbac1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
new file mode 100644
index 00000000..2a2e5b6c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
@@ -0,0 +1,47 @@
+// 08.10.26
+// 10.02.16
+
+function Out=Intersectcrvsf(varargin)
+ Nargs=length(varargin);
+ Eps0=10^(-4);
+ Crv=varargin(1);
+ Fd=varargin(2);
+ N=3;Uveq=1;
+ if Nargs>=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)<Eps0
+ continue;
+ end;
+ PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1));
+ for J=1:Mixlength(PL)
+ Pt=Mixop(J,PL);
+ Tmp=norm(Pt-PtA)/norm(PtB-PtA);
+ Tmp=min(max(Tmp,0),1);
+ Out=Mixadd(Out,[Pt,I+Tmp]);
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin
new file mode 100644
index 00000000..12e2536d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
new file mode 100644
index 00000000..ed92a5aa
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
@@ -0,0 +1,22 @@
+// 09.10.11
+// 09.10.12
+
+function Out=Intersectlines(L1,L2)
+ Eps0=10^(-6);
+ P=Ptstart(L1);
+ a1=P(1); a2=P(2);
+ V=Ptend(L1)-P;
+ b1=V(1); b2=V(2);
+ P=Ptstart(L2);
+ c1=P(1); c2=P(2);
+ V=Ptend(L2)-P;
+ d1=V(1); d2=V(2);
+ Den=b1*d2-d1*b2;
+ if abs(Den)<Eps0
+ Out=[];
+ return;
+ end;
+ x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den;
+ y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den;
+ Out=[x,y];
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin
new file mode 100644
index 00000000..12429fff
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
new file mode 100644
index 00000000..4b246e95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
@@ -0,0 +1,95 @@
+// 09.05.27
+// 09.06.03
+// 09.06.05
+
+function KL=IntersectselfPp(varargin)
+ Nargs=length(varargin);
+ G1=varargin(1);
+ Eps=10.0^(-4);
+ if Nargs>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)<Eps & Is<size(Data1,1);
+ Is=Is+1;
+ Tmp=Data1(Is,:);
+ end;
+ for J=Is:size(Data1,1)-1
+ P=Data1(J,:); Q=Data1(J+1,:);
+ Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
+ if Tmp~=[%inf,-%inf]
+ if Op(3,Tmp)==0
+ Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
+ KL1=Mixadd(KL1,Tmp1);
+ else
+ Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
+ KL2=Mixadd(KL2,Tmp2);
+ end
+ end
+ end
+ end
+ KL=[];
+ if Mixlength(KL1)>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))<Eps
+ Tmp1=Op(2,Tmp);
+ if abs(I+T-Tmp1)<Eps
+ Flg=1;
+ break;
+ end;
+ end;
+ end;
+ if Flg==0
+ Tmp=MixS(P,I+T,J);
+ Tmp1=MixS(P,S,I);
+ KL=Mixadd(KL,Tmp);
+ KL=Mixadd(KL,Tmp1);
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin
new file mode 100644
index 00000000..a247d3a0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
new file mode 100644
index 00000000..bf6f976f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
@@ -0,0 +1,29 @@
+// 10.11.13 ( Flattenlist used
+// 13.10.19 debugged
+
+function Invdashline(varargin)
+ global MilliIn;
+ Nargs=length(varargin);
+ Nall=Nargs; Sen=1 ; Gap=1;
+ Tmp=varargin(Nall);
+ if type(Tmp)==1 & length(Tmp)==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/ketpicscifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin
new file mode 100644
index 00000000..ab928c50
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
new file mode 100644
index 00000000..9f9f9d95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
@@ -0,0 +1,6 @@
+// 08.05.31
+
+function OutL=Invert(Pd)
+ OutL=Pd(size(Pd,1):-1:1,:);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
new file mode 100644
index 00000000..b5f41832
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
new file mode 100644
index 00000000..4d7863b1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
@@ -0,0 +1,50 @@
+// 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/ketpicscifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
new file mode 100644
index 00000000..10fe9aa7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
new file mode 100644
index 00000000..c2c35355
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
@@ -0,0 +1,65 @@
+// 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/ketpicscifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
new file mode 100644
index 00000000..13bbbe42
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
new file mode 100644
index 00000000..04aaf4eb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
@@ -0,0 +1,51 @@
+// 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/ketpicscifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
new file mode 100644
index 00000000..5baec784
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
new file mode 100644
index 00000000..78cd46e5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
@@ -0,0 +1,26 @@
+// 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/ketpicscifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
new file mode 100644
index 00000000..5d029c80
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
new file mode 100644
index 00000000..bbe02e62
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
@@ -0,0 +1,57 @@
+// 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/ketpicscifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
new file mode 100644
index 00000000..2f1c2398
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
new file mode 100644
index 00000000..c12b721e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
@@ -0,0 +1,31 @@
+// 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)/Tmp<Eps
+ Out=[%inf,-%inf];
+ return
+ end
+ S=((-A2+P2)*V1+(A1-P1)*V2)/D;
+ if S>1+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/ketpicscifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin
new file mode 100644
index 00000000..ffe8ecfe
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
new file mode 100644
index 00000000..82cf1e2c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
@@ -0,0 +1,51 @@
+// 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)<Op(1,Tmp)-Eps
+ Tmp=Mixsub(1:I-1,TenL);
+ Tmp1=Mixadd(Tmp,Ten);
+ Tmp2=Mixsub(I:Mixlength(TenL),TenL);
+ TenL=Mixjoin(Tmp1,Tmp2);
+ Flg=1;
+ elseif Op(1,Ten)<Op(1,Tmp)+Eps
+ if Op(4,Ten)~=Op(4,Tmp)
+ Tmp=Mixsub(1:I-1,TenL);
+ Tmp1=Mixadd(Tmp,Ten);
+ Tmp2=Mixsub(I:Mixlength(TenL),TenL);
+ TenL=Mixjoin(Tmp1,Tmp2);
+ Flg=1;
+ elseif Op(3,Ten)~=Op(3,Tmp)
+ Tmp1=Mixsub(1:I-1,TenL);
+ Tmp2=Mixsub(I+1:Mixlength(TenL),TenL);
+ TenL=Mixjoin(Tmp1,Tmp2);
+ end
+ Flg=1;
+ end
+ I=I+1;
+ end
+ if Flg==0
+ TenL=Mixadd(TenL,Ten);
+ end
+ end
+ end
+ end
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin
new file mode 100644
index 00000000..f7e0a110
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
new file mode 100644
index 00000000..371807fa
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
@@ -0,0 +1,105 @@
+//
+// 08.05.19
+// 09.12.05
+
+function Out=Koutenseg(varargin)
+ //pointdata on AB at which AB intersects CD
+ Nargs=length(varargin);
+ Eps0=10^(-4);
+ A=varargin(1); V=varargin(2)-A;
+ Sv2=V(1)^2+V(2)^2;
+ if Sv2<10^(-6)
+ Out=[%inf,-%inf];
+ return
+ end
+ P=varargin(3)-A; Q=varargin(4)-A;
+ Eps=10.0^(-3);
+ if Nargs>=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) | (min(P1,Q1)>M1)
+ Out=[%inf,-%inf];
+ return
+ end
+ if (max(P2,Q2)<m2) | (min(P2,Q2)>M2)
+ Out=[%inf,-%inf];
+ return
+ end
+ if P2*Q2<0
+ T=P1-(Q1-P1)/(Q2-P2)*P2;
+ if (T>m1) & (T<M1)
+ if (T>-Eps0) & (T<1+Eps0)
+ Tmp1=A+T*V;
+ Tmp2=min(max(T,0),1);
+ Out=MixS(Tmp1,Tmp2,0);
+ else
+ Tmp1=A+T*V;
+ Tmp2=min(max(T,0),1);
+ Out=MixS(Tmp1,Tmp2,1);
+ end
+ return
+ end
+ if P1<m1 | P1>M1 | P2<m2 | P2>M2
+ if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
+ 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 P1<m1 | P1>M1 | P2<m2 | P2>M2
+ if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
+ Out=[%inf,-%inf];
+ return
+ end
+ T=min(max(Q1,0),1);
+ Tmp=A+T*V;
+ Out=MixS(Tmp,T,1);
+ return
+ end
+ if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
+ T=min(max(P1,0),1);
+ Tmp=A+T*V;
+ Out=MixS(Tmp,T,1);
+ return
+ end
+ if abs(P2)<abs(Q2)
+ T=min(max(P1,0),1);
+ else
+ T=min(max(Q1,0),1);
+ end
+ Tmp=A+T*V;
+ Out=MixS(Tmp,T,1);
+endfunction
+
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin
new file mode 100644
index 00000000..70d72423
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
new file mode 100644
index 00000000..0e38dae7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
@@ -0,0 +1,45 @@
+// 08.07.13
+// 08.10.16
+
+function Res=Kukannozoku(Jokyo,KukanL)
+ Eps=10^(-6);
+ N=size(KukanL,1);
+ T1=Jokyo(1); T2=Jokyo(2);
+ Tmp=KukanL(1,:);
+ T1=max(T1,Tmp(1));
+ Tmp=KukanL(N,:);
+ T2=min(T2,Tmp(2));
+ Res=[];
+ Flg=0;
+ for I=1:N
+ Ku=KukanL(I,:);
+ if Flg==0
+ if Ku(2)<T1
+ Res=[Res;Ku];
+ else
+ Flg=1;
+ if Ku(1)<T1-Eps
+ Tmp=[Ku(1),T1];
+ Res=[Res;Tmp];
+ end;
+ if Ku(2)>T2+Eps
+ Tmp=[T2,Ku(2)];
+ Res=[Res;Tmp];
+ end;
+ end;
+ elseif Flg==1
+ if Ku(2)<T2
+ continue;
+ else
+ Flg=2;
+ if Ku(1)<T2-Eps
+ Ku=[T2,Ku(2)];
+ end;
+ Res=[Res;Ku];
+ end;
+ else
+ Res=[Res;Ku];
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin
new file mode 100644
index 00000000..0d78251c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
new file mode 100644
index 00000000..4e38175f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
@@ -0,0 +1,62 @@
+// 08.05.30
+
+function Out=Kukeiwake(PL)
+ global XMIN XMAX YMIN YMAX;
+ Eps=10.0^(-6);
+ NW=[XMIN,YMAX]; SW=[XMIN,YMIN];
+ SE=[XMAX,YMIN]; NE=[XMAX,YMAX];
+ Sikaku=[NW;SW;SE;NE;NW];
+ Kt=IntersectcrvsPp(PL,Sikaku);
+ if Mixlength(Kt)~=2
+ disp('not two points')
+ return
+ end
+ Tmp=Op(1,Kt);
+ Pt1=Op(1,Tmp);
+ N1=Trunc(Op(2,Tmp));
+ M1=Op(3,Tmp);
+ Tmp=Op(2,Kt);
+ Pt2=Op(1,Tmp);
+ N2=Trunc(Op(2,Tmp));
+ M2=Op(3,Tmp);
+ T1=ParamonCurve(Pt1,M1,Sikaku);
+ T2=ParamonCurve(Pt2,M2,Sikaku);
+ QL=[];
+ if Vecnagasa(Pt1,PL(N1+1,:))>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 T1<T2+Eps Me=M1+4; end
+ for M=Ms:Me
+ Tmp=HidariL(size(HidariL,1),:);
+ P=Sikaku(modulo(M-1,4)+1,:);
+ if Vecnagasa(Tmp,P)>Eps
+ 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/ketpicscifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin
new file mode 100644
index 00000000..fdf86c27
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
new file mode 100644
index 00000000..a07a89d1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
@@ -0,0 +1,30 @@
+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/ketpicscifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
new file mode 100644
index 00000000..fcb5da5c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
new file mode 100644
index 00000000..4090c2da
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
@@ -0,0 +1,144 @@
+// 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
+ Stp=1; Ks=2; Ke=size(Points,1);
+ elseif norm(P2-Plast)<Eps
+ Stp=-1; Ks=size(Points,1)-1; Ke=1;
+ else
+ PL=[PL;%inf,%inf;Points];
+ Sflg=1;
+ Pfirst=P1;
+ Plast=P2;
+ Stp=1; Ks=size(Points,1)-1; Ke=1;
+ end
+ for K=Ks:Stp:Ke
+ PL=[PL;Points(K,:)];
+ end
+ Plast=Points(Ke,:);
+ end
+ end
+ if norm(Pfirst-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/ketpicscifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin
new file mode 100644
index 00000000..7949b7bf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
new file mode 100644
index 00000000..7a7a4b78
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
@@ -0,0 +1,100 @@
+//
+// 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/ketpicscifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
new file mode 100644
index 00000000..dc1116b4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
new file mode 100644
index 00000000..f99917cf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
@@ -0,0 +1,36 @@
+// 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/ketpicscifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
new file mode 100644
index 00000000..b8e9311a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
new file mode 100644
index 00000000..bc44c2e9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
@@ -0,0 +1,44 @@
+// 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/ketpicscifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
new file mode 100644
index 00000000..5f1081ec
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
new file mode 100644
index 00000000..0bc9f736
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
@@ -0,0 +1,24 @@
+//
+// 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/ketpicscifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
new file mode 100644
index 00000000..e44f369d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
new file mode 100644
index 00000000..27e70d48
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
@@ -0,0 +1,49 @@
+//
+// 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/ketpicscifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
new file mode 100644
index 00000000..f1333732
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
new file mode 100644
index 00000000..f3bbd3ec
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
@@ -0,0 +1,62 @@
+//
+// 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,:))<Eps // 10.12.02
+ continue;
+ end;
+ if Crv==[]
+ Crv=Snbn
+ else
+ Tmp=Crv(size(Crv,1),:);
+ if norm(Tmp-Snbn(1,:))<Eps
+ Crv=[Crv;Snbn(2,:)];
+ else
+ Atos=[Atos;%inf,%inf;Doscaling(Crv)];
+ Crv=Snbn;
+ end
+ end
+ end
+ end
+ if size(Crv,1)>=2
+ Atos=[Atos;%inf,%inf;Doscaling(Crv)];
+ end
+ end
+ Outdata=Atos(2:size(Atos,1),:);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin
new file mode 100644
index 00000000..1c1d8d80
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
new file mode 100644
index 00000000..81b0492f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
@@ -0,0 +1,45 @@
+// 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/ketpicscifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
new file mode 100644
index 00000000..eb542783
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
new file mode 100644
index 00000000..9cf82362
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
@@ -0,0 +1,119 @@
+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,:))<Eps
+ Nsen=max(ceil(Lenall/Kari),3);
+ SegUnit=Lenall/Nsen;
+ Naga=SegUnit*Sen/(Sen+Gap);
+ Tobi=SegUnit*Gap/(Sen+Gap);
+ SegList=[0:SegUnit:(Nsen-1)*SegUnit];
+ else
+ if Ptn==0
+ Nsen=max(ceil((Lenall+Tobi)/Kari),3);
+ SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap);
+ Naga=SegUnit*Sen/(Sen+Gap);
+ Tobi=SegUnit*Gap/(Sen+Gap);
+ SegList=[0:SegUnit:(Nsen-1)*SegUnit];
+ else
+ Nsen=max(ceil((Lenall+Naga)/Kari),3);
+ SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap);
+ Naga=SegUnit*Sen/(Sen+Gap);
+ Tobi=SegUnit*Gap/(Sen+Gap);
+ SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit];
+ end
+ end
+ Hajime=1; Owari=1;
+ Mojisu=0;
+ for I=1:length(SegList)
+ Len=SegList(I);
+ J=Owari;
+ while Len>=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,:));
+ X=string(round(MilliIn*P(1)));
+ Y=string(-round(MilliIn*P(2)));
+ Str='\special{pa '+X+' '+Y+'}';
+ 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=string(round(MilliIn*P(1)));
+ Y=string(-round(MilliIn*P(2)));
+ Str='\special{pa '+X+' '+Y+'}';
+ if Wfile=='default'
+ mprintf('%s',Str);
+ else
+ mfprintf(FID,'%s',Str);
+ end;
+ 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=string(round(MilliIn*P(1)));
+ Y=string(-round(MilliIn*P(2)));
+ Str1='\special{pa '+X+' '+Y+'}';
+ Str2='\special{fp}';
+ if Wfile=='default'
+ mprintf('%s',Str1);
+ mprintf('%s',Str2);
+ else
+ mfprintf(FID,'%s',Str1);
+ mfprintf(FID,'%s',Str2);
+ end;
+ Mojisu=Mojisu+length(Str1)+length(Str2);
+ 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/ketpicscifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin
new file mode 100644
index 00000000..ec29163f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
new file mode 100644
index 00000000..e9915e1b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
@@ -0,0 +1,41 @@
+// 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 K<size(Dt,2)
+ Dts=Dts+',';
+ end;
+ end;
+ if J<size(Dt,1)
+ Dts=Dts+';';
+ else
+ Dts=Dts+']';
+ end;
+ end;
+ end;
+ end;
+ if type(Dt)==10
+ Dts=Prime()+Dt+Prime();
+ end;
+ if type(Dt)==15
+ Dts=Makeliststr(Dt);
+ end;
+ Out=Out+Dts;
+ if I<length(L)
+ Out=Out+',';
+ else
+ Out=Out+')';
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
new file mode 100644
index 00000000..a5b313ff
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
new file mode 100644
index 00000000..e24525e1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
@@ -0,0 +1,345 @@
+// 08.09.19
+// 08.09.24
+// 08.10.09
+// 08.10.10
+// 08.10.15
+// 08.12.06
+// 08.12.21
+// 08.12.31
+// 10.02.16 Eps__ ( And Mislength, Mixop replaced )
+// 13.10.21 ( __ added to varibles )
+
+function FsL__=Makesfcutoffdata(MS__)
+ global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT
+ global BORDERPT OTHERPARTITION PARTITIONPT
+ global HIDDENDATA BORDERHIDDENDATA;
+ timer();
+ Nargs__=length(MS__);
+ HT__=Op(1,MS__);
+ PT__=Op(2,MS__);
+ Fd__=Op(3,MS__);
+ CutD__=Op(4,MS__);
+ Np__=[50,50];
+ Eps__=[0.05,1]; //
+ Eps__2=0.2;
+ Sgnstr__='+';
+ K__=0;
+ for I__=5:Nargs__
+ Tmp__=Op(I__,MS__);
+ if type(Tmp__)==10
+ Sgnstr__=Tmp__;
+ end;
+ if type(Tmp__)==1 // from
+ K__=K__+1;
+ if K__==1
+ Np__=Tmp__;
+ if length(Np__)==1
+ Np__=[Np__,Np__];
+ end;
+ end;
+ if K__==2
+ Eps__=Tmp__;
+ if length(Eps__)==1
+ Eps__=[Eps__,1];
+ end;
+ end;
+ if K__==3
+ Eps__2=Tmp__;
+ end;
+ end; // upto
+ end;
+ Tmp__=Op(2,Fd__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Xname__=part(Tmp__,1:K__-1);
+ Tmp__=Op(3,Fd__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Yname__=part(Tmp__,1:K__-1);
+ Tmp__=Op(1,Fd__);
+ K__=mtlb_findstr(Tmp__,'=');
+ if K__~=[]
+ Zname__=part(Tmp__,1:K__-1);
+ else
+ Tmp__=Op(4,Fd__);
+ K__=mtlb_findstr(Tmp__,'=');
+ Zname__=part(Tmp__,1:K__-1);
+ end;
+ Fd__L=Fullformfunc(Fd__);
+ Fxy__=Op(1,Fd__L);
+ Xf__=Op(2,Fd__L);
+ Yf__=Op(3,Fd__L);
+ Zf__=Op(4,Fd__L);
+ DrwS__=Op(7,Fd__L);
+ Tmp__=Op(5,Fd__L);
+ K__=mtlb_findstr(Tmp__,'=');
+ Uname__=part(Tmp__,1:K__-1);
+ Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
+ Tmp__=Op(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);
+ Fugou__=1;
+ if Sgnstr__=='-' | Sgnstr__=='n'
+ Fugou__=-1;
+ end;
+ if Mixtype(CutD__)~=1
+ V1__=Op(1,CutD__);
+ Tmp__=Op(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;
+ 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/ketpicscifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin
new file mode 100644
index 00000000..04b49b15
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
new file mode 100644
index 00000000..443751be
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
@@ -0,0 +1,41 @@
+// 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/ketpicscifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
new file mode 100644
index 00000000..ae09526a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
new file mode 100644
index 00000000..99ad5910
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
@@ -0,0 +1,171 @@
+// 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 // added from here
+ continue;
+ end; // upto here
+ T1=norm(Pa-P)/norm(Pa-Pb);
+ Z1=(1-T1)*Za+T1*Zb;
+ Tmp=Dmat(Dind(I,1):Dind(I,2),:);
+ Pa=Tmp(N2,1:2);
+ Za=Tmp(N2,3);
+ Pb=Tmp(N2+1,1:2);
+ Zb=Tmp(N2+1,3);
+ if norm(Pa-Pb)<Eps // added from here
+ continue;
+ end; // upto here
+ T2=norm(Pa-P)/norm(Pa-Pb);
+ Z2=(1-T2)*Za+T2*Zb;
+ if Z1<Z2-Eps2
+ if ClipL==[] // corrected from here
+ Tmp=1;
+ else
+ Tmp1=ClipL(:,1)-P(1);
+ Tmp2=ClipL(:,2)-P(2);
+ Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
+ Tmp=min(Tmp3);
+ end; // upto here
+ if Tmp>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)<R
+ continue;
+ end
+ Flg=1;
+ break;
+ end;
+ if Flg==0
+ T1=1;
+ else
+ T1=J; T2=T;
+ H=T2-T1;
+ for N=1:10
+ H=H*0.5;
+ Q=PointonCurve(T1+H,P1);
+ if norm(P-Q)<R
+ T2=T2-H;
+ else
+ T1=T1+H;
+ end;
+ end;
+ end;
+ Ku=[T1];
+ Flg=0;
+ for J=NN+1:Te
+ Q=PointonCurve(J,P1);
+ if norm(P-Q)<R
+ continue;
+ end;
+ Flg=1;
+ break;
+ end;
+ if Flg==0
+ T2=Te;
+ else
+ T1=T; T2=J;
+ H=T2-T1;
+ for N=1:10
+ H=H*0.5;
+ Q=PointonCurve(T1+H,P1);
+ if norm(P-Q)<R
+ T1=T1+H;
+ else
+ T2=T2-H;
+ end;
+ end;
+ end;
+ Ku=[Ku,T2];
+ if size(KukanL,2)==0 then
+ break;
+ end;
+ KukanL=Kukannozoku(Ku,KukanL);
+ end;
+ end;
+ Res=[];
+ for I=1:size(KukanL,1)
+ T1=KukanL(I,1); N1=Trunc(T1);
+ T2=KukanL(I,2); N2=Trunc(T2);
+ PtL=[];
+ if T1-N1<1-Eps
+ Tmp=PointonCurve(T1,P1);
+ PtL=MixS(Tmp);
+ end;
+ for J=N1+1:N2
+ Tmp=PointonCurve(J,P1);
+ PtL=Mixadd(PtL,Tmp);
+ end;
+ if T2-N2>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/ketpicscifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
new file mode 100644
index 00000000..76247746
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
new file mode 100644
index 00000000..4838d658
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
@@ -0,0 +1,188 @@
+// 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)<Eps // added from here
+ continue;
+ end; // upto here
+ T1=norm(Pa-P)/norm(Pa-Pb);
+ Pka=Cancoordpers([Pa(1),Pa(2),Za]);
+ Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
+ if T1>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)<Eps // added from here
+ continue;
+ end; // upto here
+ T2=norm(Pa-P)/norm(Pa-Pb);
+ Pka=Cancoordpers([Pa(1),Pa(2),Za]);
+ Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
+ if T2>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 Z1<Z2-Eps2
+ if ClipL==[] // corrected from here
+ Tmp=1;
+ else
+ Tmp1=ClipL(:,1)-P(1);
+ Tmp2=ClipL(:,2)-P(2);
+ Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
+ Tmp=min(Tmp3);
+ end; // upto here
+ if Tmp>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); // 10.08.17
+ Flg=0;
+ for J=NN:-1:1
+ Q=PointonCurve(J,P1);
+ if norm(P-Q)<R
+ continue;
+ end
+ Flg=1;
+ break;
+ end;
+ if Flg==0
+ T1=1;
+ else
+ T1=J; T2=T;
+ H=T2-T1;
+ for N=1:10
+ H=H*0.5;
+ Q=PointonCurve(T1+H,P1);
+ if norm(P-Q)<R
+ T2=T2-H;
+ else
+ T1=T1+H;
+ end;
+ end;
+ end;
+ Ku=[T1];
+ Flg=0;
+ for J=NN+1:Te
+ Q=PointonCurve(J,P1);
+ if norm(P-Q)<R
+ continue;
+ end;
+ Flg=1;
+ break;
+ end;
+ if Flg==0
+ T2=Te;
+ else
+ T1=T; T2=J;
+ H=T2-T1;
+ for N=1:10
+ H=H*0.5;
+ Q=PointonCurve(T1+H,P1);
+ if norm(P-Q)<R
+ T1=T1+H;
+ else
+ T2=T2-H;
+ end;
+ end;
+ end;
+ Ku=[Ku,T2];
+ KukanL=Kukannozoku(Ku,KukanL);
+ end;
+ end;
+ Res=[];
+ for I=1:size(KukanL,1)
+ T1=KukanL(I,1); N1=Trunc(T1);
+ T2=KukanL(I,2); N2=Trunc(T2);
+ PtL=[];
+ if T1-N1<1-Eps
+ Tmp=PointonCurve(T1,P1);
+ PtL=MixS(Tmp);
+ end;
+ for J=N1+1:N2
+ Tmp=PointonCurve(J,P1);
+ PtL=Mixadd(PtL,Tmp);
+ end;
+ if T2-N2>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/ketpicscifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin
new file mode 100644
index 00000000..e8a0ce7a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
new file mode 100644
index 00000000..dc917f30
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
@@ -0,0 +1,79 @@
+// 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__<X2__+Eps__
+ Xval__=[Xval__,Tmp__];
+ Tmp__=Tmp__+Dx__;
+ end;
+ Yval__=[];
+ Tmp__=Y1__;
+ while Tmp__<Y2__+Eps__
+ Yval__=[Yval__,Tmp__];
+ Tmp__=Tmp__+Dy__;
+ end;
+ I__=1;
+// x=Xval;
+// for y=Yval
+// Tmp=evstr(Fstr);
+// Zval(I,:)=Tmp;
+// I=I+1;
+// end;
+ for y=Yval__
+ J__=1;
+ for x=Xval__
+ Zval__(I__,J__)=evstr(Fstr__);
+ J__=J__+1;
+ end;
+ I__=I__+1;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin
new file mode 100644
index 00000000..36526d8e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
new file mode 100644
index 00000000..a16a5a4d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
@@ -0,0 +1,68 @@
+// 08.08.22
+// 09.10.25
+// 09.10.26
+// 09.10.27
+// 09.10.29
+
+function Out=MakeveLfaceL(VfL)
+ // Out format
+ // VeL Edge, Face num(as numlist), VeL num
+ // FL Face (Vertexs)
+ Eps=10^(-4);
+ Tmp=VfL($);
+ Tmp1=Tmp(1);
+ if type(Tmp1)==1
+ FvL=list(VfL);
+ else
+ FvL=VfL;
+ end;
+ EL=list(); FL=list();
+ for Nn=1:length(FvL)
+ Tmp=FvL(Nn);
+ VL=Tmp(1);
+ if length(VL)>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 Tmp2<Eps | Tmp3<Eps
+ Tmp=EL(K);
+ Tmp1=Tmp(1);
+ Tmp2=[Tmp(2),length(FL)];
+ EL(K)=list(Tmp1,Tmp2,K);
+ Flg=1;
+ break;
+ end;
+ end;
+ if Flg==0
+ Ntmp=length(EL);
+ EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1);
+ end;
+ end;
+ end;
+ end;
+ Out=list(EL,FL);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin
new file mode 100644
index 00000000..e1c2db72
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
new file mode 100644
index 00000000..fb8aa27b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
@@ -0,0 +1,111 @@
+// 08.09.13
+// 08.09.16
+// 08.10.11
+// 08.10.27
+// 14.07.07 debug ( Kitahara )
+
+function EhL=Makexybdy(Fd,Np)
+ Eps0=10^(-4);
+ FdL=Fullformfunc(Fd);
+ Tmp1=Mixop(2,FdL);
+ Tmp2=Mixop(3,FdL);
+ Xystr=[Tmp1,Tmp2];
+ 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);
+ DrwS=Mixop(7,FdL);
+ Cflg=0;
+ EhL=[];
+ Tmp=mtlb_findstr(DrwS,'e');
+ if length(Tmp)~=0
+ Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')');
+ Tmp2=Mixop(6,FdL);
+ Tmp3='N='+string(Np(2));
+ Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ EhL=Mixadd(EhL,Tmp);
+ end;
+ Tmp=mtlb_findstr(DrwS,'n');
+ if length(Tmp)~=0
+ Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')');
+ Tmp2=Mixop(5,FdL);
+ Tmp3='N='+string(Np(1));
+ Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
+ if Cflg~=0 // 140707 Kitahara
+ Tmp1=Mixop(Mixlength(EhL),EhL);
+ Tmp=Joincrvs(Tmp1,Tmp);
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
+ EhL=Mixadd(Tmp1,Tmp);
+ else
+ Cflg=0;
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ EhL=Mixadd(EhL,Tmp);
+ end;
+ end;
+ Tmp=mtlb_findstr(DrwS,'w');
+ if length(Tmp)~=0
+ Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')');
+ Tmp2=Mixop(6,FdL);
+ Tmp3='N='+string(Np(2));
+ Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
+ if Cflg~=0 //if Cflg==0
+ Tmp1=Mixop(Mixlength(EhL),EhL);
+ Tmp=Joincrvs(Tmp1,Tmp);
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
+ EhL=Mixadd(Tmp1,Tmp);
+ else
+ Cflg=0;
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ EhL=Mixadd(EhL,Tmp);
+ end;
+ end;
+ Tmp=mtlb_findstr(DrwS,'s');
+ if length(Tmp)~=0
+ Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')');
+ Tmp2=Mixop(5,FdL);
+ Tmp3='N='+string(Np(1));
+ Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
+ if Cflg~=0 //if Cflg==0
+ Tmp1=Mixop(Mixlength(EhL),EhL);
+ Tmp=Joincrvs(Tmp1,Tmp);
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
+ EhL=Mixadd(Tmp1,Tmp);
+ else
+ Cflg=0;
+ if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
+ Cflg=1;
+ Tmp(size(Tmp,1),:)=Tmp(1,:);
+ end;
+ EhL=Mixadd(EhL,Tmp);
+ end;
+ end;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin
new file mode 100644
index 00000000..8f3c4b69
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
new file mode 100644
index 00000000..11b02c63
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
@@ -0,0 +1,39 @@
+function Mawarikomi(varargin)
+ FL='default';
+ haba='10cm';
+ Nargs=length(varargin);
+ if Nargs>0
+ 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/ketpicscifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin
new file mode 100644
index 00000000..1bc9eef3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
new file mode 100644
index 00000000..65f543ea
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
@@ -0,0 +1,91 @@
+//
+// 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 Tmp<YMIN-Eps | Tmp>YMAX+Eps
+ Txm=-1;
+ end
+// Tmp=horner(PT(2),TxM);
+ Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM));
+ Tmp1=evstr(Tmp1)
+ Tmp=Tmp1(2);
+ if Tmp<YMIN-Eps | Tmp>YMAX+Eps
+ TxM=-1
+ end
+// Tmp=horner(PT(1),Tym);
+ Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym));
+ Tmp1=evstr(Tmp1)
+ Tmp=Tmp1(1);
+ if Tmp<XMIN-Eps | Tmp>XMAX+Eps
+ Tym=-1
+ end
+// Tmp=horner(PT(1),TyM);
+ Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM));
+ Tmp1=evstr(Tmp1)
+ Tmp=Tmp1(1);
+ if Tmp<XMIN-Eps | Tmp>XMAX+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/ketpicscifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin
new file mode 100644
index 00000000..0392c6b0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
new file mode 100644
index 00000000..65ba1166
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
@@ -0,0 +1,169 @@
+// 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
+ Tmp__=P1__;
+ elseif abs(M2__)<Eps__0
+ continue;
+ else
+ Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
+ end;
+ QL__=[QL__;Tmp__];
+ end;
+ if size(QL__,1)==2
+ Puv__1=QL__(1,:); Puv__2=QL__(2,:);
+ Tmp__1=Puv__1(1);
+ Tmp__2=Puv__1(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__); // 13.12.02
+ Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
+ Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
+ Zv__=evstr(Tmp__);
+ P1__=[Xv__,Yv__,Zv__];
+ Tmp__1=Puv__2(1);
+ Tmp__2=Puv__2(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__);
+ P2__=[Xv__,Yv__,Zv__];
+ V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(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__=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/ketpicscifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin
new file mode 100644
index 00000000..61d508ef
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
new file mode 100644
index 00000000..79826f90
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
@@ -0,0 +1,21 @@
+// 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/ketpicscifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
new file mode 100644
index 00000000..2bc985c7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
new file mode 100644
index 00000000..de8d4b0d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
@@ -0,0 +1,206 @@
+// 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 | norm(Tmp2)<Eps
+ return;
+ end;
+ Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
+ if norm(Vec)<Eps
+ return;
+ end;
+ if Ptype==-1
+ W=EyePoint;
+ Tmp=Dotprod(Vec,W-Face(1));
+ else
+ W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
+ W=100*W;
+ Tmp=Dotprod(Vec,W-Face(1));
+ end;
+ if abs(Tmp)<Eps
+ return;
+ end;
+ if Tmp<-Eps
+ Vec=-Vec;
+ end;
+ if Ptype==-1
+ G1=Projpers(Spaceline(Face));
+ else
+ G1=Projpara(Spaceline(Face))
+ end;
+ VL=list();
+ for I=1:Numptcrv(G1)
+ VL(I)=Ptcrv(I,G1);
+ end;
+ Out1L=list();
+ Out2L=VELHI;
+ for N=1:length(VELNO)
+ Tmp=VELNO(N);
+ Edge=Tmp(1);
+ Ne=Tmp(2);
+ Nenm=Tmp(3);
+ if Member(Nf,Ne)
+ Out1L($+1)=list(Edge,Ne,Nenm);
+ continue;
+ end;
+ if Ptype==-1
+ P=Perspt(Edge(1));
+ Q=Perspt(Edge(2));
+ else
+ P=Parapt(Edge(1));
+ Q=Parapt(Edge(2));
+ end;
+ if norm(P-Q)<Eps
+ continue;
+ end;
+ Tmp=Kyoukai(Mix(G1));
+ Tmp1=Naigai(P,Tmp);
+ Ng1=Tmp1(1);
+ Tmp1=Naigai(Q,Tmp);
+ Ng2=Tmp1(1);
+ KL=IntersectcrvsPp(Listplot([P,Q]),G1);
+ if Mixlength(KL)==0
+ if Ng1==0
+ Out1L($+1)=list(Edge,Ne,Nenm);
+ else
+ Tmp1=(Edge(1)+Edge(2))*0.5-Face(1);
+ Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1);
+ if Tmp>-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 continue; end;
+ Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
+ if abs(Tmp1)<Eps
+ Flg=1;
+ break;
+ end;
+ end;
+ if Flg==1
+ Tmp=Mixop(I,VL)-P;
+ if norm(Tmp)<Eps
+ Tmp1=0;
+ else
+ Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
+ end;
+ if abs(Tmp1)<Eps then
+ Out1L($+1)=list(Edge,Ne,Nenm);
+ continue;
+ end;
+ end;
+ if Mixlength(KL)==1
+ Tmp=KL(1);
+ Tmp=Tmp(2)-1;
+ if Tmp<Eps
+ if Ng2==0
+ Out1L($+1)=list(Edge,Ne,Nenm);
+ else
+ Tmp1=Edge(2)-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 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/ketpicscifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin
new file mode 100644
index 00000000..bcb9509f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
new file mode 100644
index 00000000..43eab74b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
@@ -0,0 +1,186 @@
+// 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)<Eps | norm(Tmp2)<Eps
+ return;
+ end;
+ Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
+ if norm(Vec)<Eps
+ return;
+ end;
+ if Ptype==-1
+ W=EyePoint;
+ Tmp=Dotprod(Vec,W-Face(1));
+ else
+ W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
+ W=100*W;
+ Tmp=Dotprod(Vec,W-Face(1));
+ end;
+ if abs(Tmp)<Eps
+ return;
+ end;
+ if Tmp<-Eps
+ Vec=-Vec;
+ end;
+ if Ptype==-1
+ G1=Projpers(Spaceline(Face));
+ else
+ G1=Projpara(Spaceline(Face))
+ end;
+ VL=list();
+ for I=1:Numptcrv(G1)
+ VL(I)=Ptcrv(I,G1);
+ end;
+ Out1L=list();
+ Out2L=VELHI;
+ for N=1:length(VELNO)
+ Out1=list();
+ Out2=list();
+ Tmp=VELNO(N);
+ Edge=Tmp(1);
+ Ne=Tmp(2);
+ NNe=Tmp(3);
+ if Member(Nf,Ne)
+ Out1L($+1)=list(Edge,Ne,NNe);
+ continue;
+ end;
+ if Ptype==-1
+ PtA=Perspt(Edge(1));
+ PtB=Perspt(Edge(2));
+ else
+ PtA=Parapt(Edge(1));
+ PtB=Parapt(Edge(2));
+ end;
+ if norm(PtA-PtB)<Eps continue; end;
+ Bdy=list(G1);
+ V=PtB-PtA;
+ TenL=KoutenList(PtA,V,Bdy);
+ Nten=length(TenL);
+ if Nten==0 // 10.08.17
+ Out1L($+1)=list(Edge,Ne,NNe);
+ continue;
+ end;
+ Te=0;
+ Pe3=Edge(1);
+ if Ptype==-1
+ Tmp1=Perspt(Pe3);
+ Tmp=Invperspt(Tmp1,Spaceline(Face));
+ else
+ Tmp1=Parapt(Pe3);
+ Tmp=Invparapt(Tmp1,Spaceline(Face));
+ end;
+ Qe3=Tmp(1);
+ Flg=0;
+ for I=1:Nten
+ TenP=TenL(I);
+ Ts=TenP(1);
+ P=TenP(2);
+ if Ts<-Eps
+ continue;
+ end;
+ Eline=Spaceline(Edge);
+ if Ptype==-1
+ Tmp=Invperspt(P,Eline);
+ Tmp1=Invperspt(P,Spaceline(Face));
+ else
+ Tmp=Invparapt(P,Eline)
+ Tmp1=Invparapt(P,Spaceline(Face));
+ end;
+ P3=Tmp(1); Q3=Tmp1(1);
+ if Ts>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))<Eps0
+ SeL(2)=Tmp(2);
+ else
+ Out1L($+1)=list(SeL,Ne,NNe);
+ SeL=Tmp;
+ end;
+ end;
+ end;
+ if length(Out1)>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))<Eps0
+ SeL(2)=Tmp(2);
+ else
+ Out2L($+1)=list(SeL,Ne,NNe);
+ SeL=Tmp;
+ end;
+ end;
+ end;
+ if length(Out2)>0
+ Out2L($+1)=list(SeL,Ne,NNe);
+ end;
+ end;
+ VELNO=Out1L;
+ VELHI=Out2L;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin
new file mode 100644
index 00000000..5b35bcb9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
new file mode 100644
index 00000000..4f06c437
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
@@ -0,0 +1,15 @@
+// 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/ketpicscifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
new file mode 100644
index 00000000..92d14b2c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
new file mode 100644
index 00000000..daf5a2d9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
new file mode 100644
index 00000000..5a0d9b25
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
new file mode 100644
index 00000000..623af493
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
@@ -0,0 +1,15 @@
+// 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/ketpicscifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
new file mode 100644
index 00000000..cb5b4953
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
new file mode 100644
index 00000000..8d45fea1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
@@ -0,0 +1,23 @@
+// 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/ketpicscifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
new file mode 100644
index 00000000..c15a987e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
new file mode 100644
index 00000000..2fed1197
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
new file mode 100644
index 00000000..3666302f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
new file mode 100644
index 00000000..d6e49c14
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
@@ -0,0 +1,29 @@
+// 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/ketpicscifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
new file mode 100644
index 00000000..d9515fd8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
new file mode 100644
index 00000000..6fd31749
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
@@ -0,0 +1,18 @@
+// 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/ketpicscifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
new file mode 100644
index 00000000..b85a4f1a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
new file mode 100644
index 00000000..7f05a2ab
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
new file mode 100644
index 00000000..f5ff95b4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
new file mode 100644
index 00000000..10c846dc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
@@ -0,0 +1,22 @@
+// 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/ketpicscifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
new file mode 100644
index 00000000..116f9ae6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
new file mode 100644
index 00000000..e3e281f3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
@@ -0,0 +1,18 @@
+// 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/ketpicscifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
new file mode 100644
index 00000000..bd65bd09
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
new file mode 100644
index 00000000..b336c763
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
@@ -0,0 +1,19 @@
+// 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/ketpicscifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
new file mode 100644
index 00000000..23f75fa2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
new file mode 100644
index 00000000..8a4f0557
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
@@ -0,0 +1,18 @@
+// 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/ketpicscifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
new file mode 100644
index 00000000..cc184ed1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
new file mode 100644
index 00000000..193ad384
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
@@ -0,0 +1,4 @@
+function N=Naiseki(a,b)
+ N=a*b';
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
new file mode 100644
index 00000000..70999c76
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
new file mode 100644
index 00000000..a404370a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
@@ -0,0 +1,53 @@
+// 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)<Eps
+ continue;
+ end;
+ T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp;
+ if T<-Eps
+ P=[A1,A2];
+ elseif T>1+Eps
+ P=[B1,B2];
+ else
+ P=[A1+T*V1,A2+T*V2];
+ end
+ S=norm(P-PA);
+ if S<Sm-Eps
+ Tmp=ParamonCurve(P,I,PL);
+ Pm=P; Im=Tmp; Sm=S;
+ end
+ end
+ if Sm<Op(5,Ans)
+ Ans=MixS(PA,N,Pm,Im,Sm);
+ end
+ end
+ if Flg==0
+ Ans=Mixsub(3:5,Ans);
+ end
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin
new file mode 100644
index 00000000..b3417b7a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
new file mode 100644
index 00000000..9e0227e8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
@@ -0,0 +1,9 @@
+function Newlength(varargin)
+ if length(varargin)==0
+ Kyorihensuu();
+ else
+ FL=varargin(1);
+ Kyorihensuu(FL);
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin
new file mode 100644
index 00000000..a7c43a91
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
new file mode 100644
index 00000000..3826b281
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
@@ -0,0 +1,254 @@
+// 08.09.13
+// 09.12.31 (gsort)
+
+function FigkL=Nohiddenpara(varargin)
+ global HIDDENDATA THETA PHI;
+ 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=Projpara(Fk);
+ SeL=[];
+ for N=1:length(PaL)-1
+ S=(PaL(N)+PaL(N+1))/2;
+ P=PointonCurve(S,Fh);
+ Tmp=Invparapt(S,Fh,Fk)
+ Pk=Mixop(1,Tmp);
+ Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
+ Flg=zeros(1,Mixlength(Fbdxy));
+ for I=1:1000
+ Tmp=Pk+I*10*Qk;
+ 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 Tmp3<Eps
+ Tmp4=Mixop(4,Tmp1);
+ Tmp=[Tmp,Tmp4-1];
+ end;
+ end;
+ end;
+ if length(Tmp)==0
+ SeL=[SeL,N];
+ continue;
+ end;
+ Tmp=gsort(Tmp);
+ Tmp=Tmp(length(Tmp):-1:1);
+ ParamL=[0];
+ for I=1:length(Tmp)
+ Tmp1=Tmp(I);
+ Tmp2=ParamL(length(ParamL));
+ if Tmp1-Tmp2>Eps
+ 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/ketpicscifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin
new file mode 100644
index 00000000..4bb581d7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
new file mode 100644
index 00000000..996559db
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
@@ -0,0 +1,131 @@
+// 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)<Eps0
+ select Cspflg,
+ case 1 then Cspflg=2,
+ case 3 then Cspflg=6;
+ end;
+ continue;
+ end;
+ if norm(Tmp-P2)<Eps0
+ select Cspflg,
+ case 1 then Cspflg=3,
+ case 2 then Cspflg=6;
+ end;
+ continue;
+ end;
+ end;
+ SeL=[];
+ for N=1:length(PaL)-1
+ S=(PaL(N)+PaL(N+1))/2;
+ Tmp=Invparapt(S,Fh,Fk);
+ PtA=Mixop(1,Tmp);
+ PtAp=Parapt(PtA);
+ Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
+ Epstmp=Eps;
+ if N==1 & modulo(Cspflg,2)==0
+ Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
+ Epstmp=[Tmp,Eps(2)]; //
+ end;
+ if N==length(PaL)-1 & modulo(Cspflg,3)==0
+ Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
+ Epstmp=[Tmp,Eps(2)]; //
+ end;
+ Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
+ if Flg==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(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/ketpicscifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin
new file mode 100644
index 00000000..47aea6f6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
new file mode 100644
index 00000000..140516b1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
@@ -0,0 +1,253 @@
+// 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 Tmp3<Eps
+ Tmp4=Mixop(4,Tmp1);
+ Tmp=[Tmp,Tmp4-1];
+ end;
+ end;
+ end;
+ if length(Tmp)==0
+ SeL=[SeL,N];
+ continue;
+ end;
+ Tmp=gsort(Tmp);
+ Tmp=Tmp(length(Tmp):-1:1);
+ ParamL=[0];
+ for I=1:length(Tmp)
+ Tmp1=Tmp(I);
+ Tmp2=ParamL(length(ParamL));
+ if Tmp1-Tmp2>Eps
+ 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/ketpicscifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin
new file mode 100644
index 00000000..65217043
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
new file mode 100644
index 00000000..d49bce91
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
@@ -0,0 +1,134 @@
+// 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)<Eps0
+ select Cspflg,
+ case 1 then Cspflg=2,
+ case 3 then Cspflg=6;
+ end;
+ continue;
+ end;
+ if norm(Tmp-P2)<Eps0
+ select Cspflg,
+ case 1 then Cspflg=3,
+ case 2 then Cspflg=6;
+ end;
+ continue;
+ end;
+ end;
+ SeL=[];
+ for N=1:length(PaL)-1
+ S=(PaL(N)+PaL(N+1))/2;
+ Tmp=Invperspt(S,Fh,Fk)
+ PtA=Mixop(1,Tmp);
+ PtAp=Perspt(PtA);
+// Vec=EyePoint-FocusPoint;
+ Vec=EyePoint-PtA; // 2013.11.02
+ Epstmp=Eps; // 2011.04.12
+ if N==1 & modulo(Cspflg,2)==0
+ Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
+ Epstmp=[Tmp,Eps(2)]; //
+ end;
+ if N==length(PaL)-1 & modulo(Cspflg,3)==0
+ Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
+ Epstmp=[Tmp,Eps(2)]; //
+ end;
+ Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
+ if Flg==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(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/ketpicscifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin
new file mode 100644
index 00000000..6093f704
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
new file mode 100644
index 00000000..dad4f4ef
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
@@ -0,0 +1,4 @@
+function N=Numptcrv(Fig)
+ N=size(Fig,1)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
new file mode 100644
index 00000000..1720cf7c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
new file mode 100644
index 00000000..20a86640
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
@@ -0,0 +1,115 @@
+// 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))<Eps
+ Pstr="xy";
+ Tmp=Args(Nargs)
+ if type(Tmp)==10 then
+ Pstr=Tmp;
+ Nargs=Nargs-1
+ end;
+ Sz=0.1;
+ Np=4;
+ if Nargs>=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)<Eps then
+ Vj=Vz
+ end;
+ Gc1=Rotate3data(Gc0,Vj,Theta);
+ CL=list(Translate3data(Gc1,P));
+ for J=2:(length(PL)-1)
+ P=PL(J); Q=PL(J+1);
+ PQ2=Q-P;
+ if norm(PQ2)<Eps then
+ continue
+ end;
+ Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2);
+ Vp2=Vp/norm(Vp);
+ Theta=acos(min(Dotprod(Vp1,Vp2),1));
+ Vj=Crossprod(Vp1,Vp2);
+ if norm(Vj)<Eps then
+ Vj=Vp1
+ end;
+ Gc2=Rotate3data(Gc1,Vj,Theta);
+ CL=lstcat(CL,list(Translate3data(Gc2,P)));
+ PQ1=PQ2;
+ Vp1=Vp2;
+ Gc1=Gc2;
+ end;
+ if ~Closed then
+ Vp2=(Q-P)/norm(Q-P);
+ Theta=acos(min(Dotprod(Vp1,Vp2),1));
+ Vj=Crossprod(Vp1,Vp2);
+ if norm(Vj)<Eps then
+ Vj=Vp1
+ end;
+ Gc3=Rotate3data(Gc1,Vj,Theta);
+ CL=lstcat(CL,list(Translate3data(Gc3,Q)))
+ end;
+ Objname(); // from 140907
+ Join=Objjoin();
+ Objjoin(1); // upto
+ GL1=CL(1);
+ for J=2:length(CL)
+ GL2=CL(J);
+ Dt=Objrecs(GL1,GL2,"-");
+ GL1=Dt(2);
+ if J==2 then
+ GL0=Dt(1)
+ end;
+ end;
+ if ~Closed then
+ Objpolygon(CL(1),"-");
+ N=length(CL);
+ Objpolygon(CL(N),"+")
+ else
+ Objrecs(GL1,GL0,"-")
+ end;
+ Out=CL
+ OBJJOIN=Join; // 140907
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin
new file mode 100644
index 00000000..1691debf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
new file mode 100644
index 00000000..e8a80ff3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
@@ -0,0 +1,9 @@
+// s: 2014.09.07
+
+function Out=Objjoin(varargin)
+ global OBJJOIN
+ if length(varargin)>0
+ OBJJOIN=abs(sign(varargin(1)))
+ end;
+ Out=OBJJOIN
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin
new file mode 100644
index 00000000..c6d194f0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
new file mode 100644
index 00000000..6c523fc2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
@@ -0,0 +1,11 @@
+// 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/ketpicscifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
new file mode 100644
index 00000000..d9a85501
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
new file mode 100644
index 00000000..ba5b346a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
@@ -0,0 +1,65 @@
+// 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 J<length(PL) then
+ Je=J+1
+ else
+ Je=1
+ end;
+ Pt1=Cen;
+ PLj=PL(J); PLje=PL(Je);
+ Pt2=PLj(1:3); Pt3=PLje(1:3);
+ if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then
+ continue
+ end;
+ P1=sprintf("%1d",Nc);
+ P2=sprintf("%1d",PLj(4))
+ P3=sprintf("%1d",PLje(4))
+ if Sel=="+" then // 6.22
+ Str="f "+P1+" "+P2+" "+P3+" "
+ else
+ Str="f "+P1+" "+P3+" "+P2+" "
+ end;
+ Printobjstr(Str)
+ end;
+ Out=PL
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin
new file mode 100644
index 00000000..fed77a7d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
new file mode 100644
index 00000000..c33e23a8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
@@ -0,0 +1,25 @@
+// s : 2014.06.22
+// 14.09.07 Objjoin added
+
+function Out=Objpolyhedron(Vertex,Face)
+ global NPOINT OBJFIGNO;
+ OBJFIGNO=OBJFIGNO+1;
+ Ninit=NPOINT;
+ Objname(); // 140907
+ for N=1:length(Vertex)
+ P=Vertex(N);
+ Np=Writeobjpoint(P);
+ Vertex(N)=[P(1:3),Np]
+ end;
+ for N=1:length(Face)
+ F=Face(N)+Ninit;
+ Face(N)=F;
+ Str="f"
+ for J=1:length(F)
+ P=sprintf("%1d",F(J));
+ Str=Str+" "+P
+ end;
+ Printobjstr(Str)
+ end;
+ Out=list(Vertex,Face)
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin
new file mode 100644
index 00000000..2a419206
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
new file mode 100644
index 00000000..d8775fb3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
@@ -0,0 +1,87 @@
+// s : 2014.06.22
+// 2014.09.07 Objjoin added
+
+function Out=Objrecs(varargin)
+ global OBJFIGNO OBJJOIN
+ Eps=10^(-6);
+ Args=varargin;
+ Nargs=length(Args);
+ Tmp=Args(1);
+ PtL=Flattenlist(Tmp);
+ PL1=list();
+ for J=1:length(PtL)
+ Tmp=PtL(J);
+ for K=1:size(Tmp,1)
+ PL1=lstcat(PL1,list(Tmp(K,:)))
+ end;
+ end;
+ Sel=Args(Nargs); Nargs=Nargs-1;
+ Objname(); // // 140907
+ for J=1:length(PL1)
+ P=PL1(J)
+ if (length(P)<4) | (P(4)==0) then
+ Np=Writeobjpoint(P);
+ PL1(J)=[P(1:3),Np];
+ end;
+ end;
+ Tmp=Args(2);
+ if (type(Tmp)==1) & (size(Tmp,1)==1) then
+ Drv=Tmp;
+ Len=norm(Drv);
+ PL2=list();
+ for J=1:length(PL1)
+ Tmp=PL1(J);
+ P=Tmp(1:3)+Drv;
+ Np=Writeobjpoint(P);
+ PL2=lstcat(PL2,list([P(1:3),Np]));
+ if J<length(PL1) then
+ Vec=PL1(J+1)-PL1(J);
+ if norm(Vec)>Eps 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/ketpicscifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin
new file mode 100644
index 00000000..99ec2207
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
new file mode 100644
index 00000000..15543b8a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
@@ -0,0 +1,114 @@
+// 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/ketpicscifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
new file mode 100644
index 00000000..09306fec
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
new file mode 100644
index 00000000..808924a4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
@@ -0,0 +1,7 @@
+// 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/ketpicscifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
new file mode 100644
index 00000000..b73e2b6a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
new file mode 100644
index 00000000..42fde6a5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
@@ -0,0 +1,123 @@
+// 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/ketpicscifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
new file mode 100644
index 00000000..fde60066
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
new file mode 100644
index 00000000..519bc9da
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
@@ -0,0 +1,35 @@
+// 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/ketpicscifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
new file mode 100644
index 00000000..aaf01a9b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
new file mode 100644
index 00000000..4007e1b3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
@@ -0,0 +1,106 @@
+
+//
+// 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/ketpicscifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
new file mode 100644
index 00000000..0562b2b2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
new file mode 100644
index 00000000..e902ce5d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
@@ -0,0 +1,33 @@
+// 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/ketpicscifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
new file mode 100644
index 00000000..4fad25f8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
new file mode 100644
index 00000000..a3056f66
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
@@ -0,0 +1,29 @@
+// 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/ketpicscifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
new file mode 100644
index 00000000..3324d29e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
new file mode 100644
index 00000000..461549e9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
new file mode 100644
index 00000000..6f58ed83
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
new file mode 100644
index 00000000..edf043ca
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
@@ -0,0 +1,92 @@
+//
+// 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/ketpicscifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
new file mode 100644
index 00000000..75982c37
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
new file mode 100644
index 00000000..8889de32
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
@@ -0,0 +1,42 @@
+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/ketpicscifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
new file mode 100644
index 00000000..c39ee4b6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
new file mode 100644
index 00000000..823fc8c4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
@@ -0,0 +1,31 @@
+// 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/ketpicscifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
new file mode 100644
index 00000000..9695687c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
new file mode 100644
index 00000000..82ac7c4f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
new file mode 100644
index 00000000..323d0fcd
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
new file mode 100644
index 00000000..ce7e0d76
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
@@ -0,0 +1,18 @@
+// 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/ketpicscifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
new file mode 100644
index 00000000..14f251f7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
new file mode 100644
index 00000000..83661787
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
@@ -0,0 +1,35 @@
+// 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<Eps
+ Out=0;
+ return;
+ end;
+ S=Dotprod(V,W)/D2;
+ S=min(max(S,0),1);
+ Out=N+S;
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin
new file mode 100644
index 00000000..fc163602
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
new file mode 100644
index 00000000..4e3effdc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
@@ -0,0 +1,140 @@
+// 08.06.18 (N)
+// 08.12.18
+// 09.03.12
+// 09.12.31 (gsort)
+// 13.10.19 ( __ added to variables )
+// 14.10.24 N,D,E => 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__ then // 16.12.13
+ t__=T1__;
+ P__=evstr(Str__);
+ return;
+ 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 t__=T1__:Dt__:T2__
+ Pa__=[];
+ if t__-E__(Ke__)<-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;
+ end
+ if abs(t__-E__(Ke__))<=Eps__
+ if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
+ Pa__=[%inf,%inf];
+ end
+ end
+ if t__-E__(Ke__)>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__)<D__
+ P__=[P__;Pa__];
+ else
+ P__=[P__;%inf,%inf;Pa__];
+ end
+ end
+ end
+ end;
+ Tmp__=size(P__,1);
+ if P__(Tmp__,1)==%inf
+ P__=P__(1:Tmp__-1,:);
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin
new file mode 100644
index 00000000..092914d8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
new file mode 100644
index 00000000..5adb4837
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
@@ -0,0 +1,12 @@
+// 08.07.11
+// 10.01.02
+
+function Out=Parapt(P)
+ global PHI THETA
+ x=P(1);
+ y=P(2);
+ z=P(3);
+ Xz=-x*sin(PHI)+y*cos(PHI);
+ Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA);
+ Out=[Xz,Yz];
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin
new file mode 100644
index 00000000..73386a71
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
new file mode 100644
index 00000000..0b4844df
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
@@ -0,0 +1,42 @@
+// 08.05.31
+// 09.03.06
+
+function Ans=Partcrv(A,B,PkL)
+ Eps=10.0^(-3);
+ if type(A)==1 & length(A)==1
+ // new part from
+ if A>B+Eps
+ Npt=Numptcrv(PkL);
+ Out1=Partcrv(A,Npt,PkL);
+ Out2=Partcrv(1,B,PkL);
+ Tmp=Ptstart(PkL)-Ptend(PkL);
+ if norm(Tmp)<Eps
+ Ans=Joincrvs(Out1,Out2);
+ else
+ Ans=Mix(Out1,Out2);
+ end;
+ return;
+ end;
+ // to here
+ Is=ceil(A);
+ Ie=floor(B);
+ PL=[];
+ if A<Is-Eps
+ P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:);
+ PL=[P];
+ end
+ PL=[PL;PkL(Is:Ie,:)];
+ if B>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/ketpicscifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin
new file mode 100644
index 00000000..5d9d9e2f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
new file mode 100644
index 00000000..5b3cd178
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
@@ -0,0 +1,34 @@
+// 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)<Eps
+ PL=Joincrvs(Out1,Out2);
+ else
+ PL=Mix(Out1,Out2);
+ end;
+ return;
+ end;
+ // to here
+ Is=ceil(T1);
+ Ie=floor(T2);
+ PL=[];
+ if T1<Is-Eps
+ P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:);
+ PL=[P]
+ end;
+ PL=[PL;Fk(Is:Ie,:)];
+ if T2>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/ketpicscifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin
new file mode 100644
index 00000000..bf10f26e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
new file mode 100644
index 00000000..a8581b1b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
@@ -0,0 +1,27 @@
+// 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 Pars<Pare then
+ Out=Partcrv(Pars,Pare,Gw);
+ else
+ Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw);
+ Tmp2=Partcrv(1,Pare,Gw);
+ Out=Joincrvs(Tmp1,Tmp2);
+ end
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin
new file mode 100644
index 00000000..badede95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
new file mode 100644
index 00000000..15d74ec4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
@@ -0,0 +1,7 @@
+// 08.09.13
+
+function Out=PartitionPt()
+ global PARTITIONPT;
+ Out=PARTITIONPT;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin
new file mode 100644
index 00000000..b732c600
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
new file mode 100644
index 00000000..39c23c45
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
@@ -0,0 +1,100 @@
+// 08.09.13
+// 08.10.17
+// 09.05.27
+// 09.12.31 (gsort)
+
+function Out=Partitionseg(varargin)
+ global PARTITIONPT OTHERPARTITION;
+ Nargs=length(varargin);
+ Fig=varargin(1);
+ GL=varargin(2); N=3;
+ Eps0=10^(-5);
+ Eps=0.05;
+ if Nargs>2
+ 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 & Tmp3<Eps
+ Tmp1=Mix(Tmp1,1,floor(Tmp2));
+ KouL=Mixadd(KouL,Tmp1);
+ end;
+ Tmp=Nearestpt(Ptend(Fig),G);
+ Tmp1=Mixop(1,Tmp);
+ Tmp2=Mixop(2,Tmp);
+ Tmp3=Mixop(3,Tmp);
+ if Tmp3>Eps0 & Tmp3<Eps
+ Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2));
+ KouL=Mixadd(KouL,Tmp1);
+ end;
+ end;
+ for I=1:Mixlength(KouL)
+ Tmp=Mixop(I,KouL);
+ P=Mixop(1,Tmp);
+ S=Mixop(2,Tmp);
+ ParL=[ParL,S];
+ K=Mixop(3,Tmp);
+ S=ParamonCurve(P,K,G);
+ Tmp=Mixop(N,OTHERPARTITION);
+ Tmp1=gsort([Tmp,S]);
+ Tmp1=Tmp1(length(Tmp1):-1:1);
+ Tmp2=[];
+ for J=1:Mixlength(OTHERPARTITION)
+ Tmp3=Mixop(J,OTHERPARTITION);
+ if J~=N
+ Tmp2=Mixadd(Tmp2,Tmp3);
+ else
+ Tmp2=Mixadd(Tmp2,Tmp1);
+ end;
+ end;
+ OTHERPARTITION=Tmp2;
+ end;
+ end;
+ ParL=gsort(ParL);
+ ParL=ParL(length(ParL):-1:1);
+ ParL(1)=1;
+ Out=[ParL(1)];
+ P=PointonCurve(ParL(1),Fig);
+ PARTITIONPT=Mix(P);
+ for I=1:length(ParL)
+ Tmp=ParL(I);
+ P=PointonCurve(Tmp,Fig);
+ Tmp1=Out(length(Out));
+ Q=PointonCurve(Tmp1,Fig);
+ if norm(P-Q)>Eps
+ 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/ketpicscifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin
new file mode 100644
index 00000000..e48ca436
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
new file mode 100644
index 00000000..eb689ffe
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
@@ -0,0 +1,21 @@
+// 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/ketpicscifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
new file mode 100644
index 00000000..6c1648ab
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
new file mode 100644
index 00000000..ea2c8e28
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
@@ -0,0 +1,7 @@
+// 08.08.17
+
+function Out=PhFaceL()
+ global PHCUTPOINTL PHVERTEXL PHFACEL;
+ Out=PHFACEL;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
new file mode 100644
index 00000000..a76d1351
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
new file mode 100644
index 00000000..d5333cd1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.08.22
+
+function Out=PhHiddenData()
+ global PHHIDDENDATA;
+ Out=PHHIDDENDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
new file mode 100644
index 00000000..6f261d0b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
new file mode 100644
index 00000000..1eae4bc9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
@@ -0,0 +1,7 @@
+// 08.08.17
+
+function Out=PhVertexL()
+ global PHCUTPOINTL PHVERTEXL PHFACEL;
+ Out=PHVERTEXL;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
new file mode 100644
index 00000000..c447109d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
new file mode 100644
index 00000000..9c7806f5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
@@ -0,0 +1,173 @@
+// 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))<Eps__
+ Tmp__=[];
+ else
+ Tmp1__=coeff(Tmp__,1);
+ Tmp2__=x0__-coeff(Tmp__,0);
+ Tmp__=[Tmp2__/Tmp1__];
+ end;
+ if length(Tmp__)>0
+ Tmp__=Tmp__(1);
+ if (Tmp__>-Eps__) & (Tmp__<1+Eps__)
+ Tmp3__=horner(P__,Tmp__);
+ Tmp3__=Rotate3pt(Tmp3__,V3__,V1__);
+ if Tmp__<Eps__
+ Tmp1__=Mixop(I__,EL__);
+ Tmp1__=Tmp1__(1);
+ Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__);
+ else
+ 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__)<Eps__ then
+ Flg__=1;
+ break;
+ end;
+ end;
+ if Flg__==0
+ PtL__=Mixadd(PtL__,Tmp4__);
+ end;
+ end;
+ end;
+ end;
+ if Mixlength(PtL__)==0
+ Out__=Out0__;
+ return
+ end;
+ PL__=Mix(Mixop(1,PtL__));
+ QL__=Mixsub(2:Mixlength(PtL__),PtL__);
+ N__=Mixlength(QL__);
+ for I__=2:N__+1
+ Tmp1__=Mixop(Mixlength(PL__),PL__);
+ Tmp1__=Mixop(1,Tmp1__);
+ for J__=1:Mixlength(QL__)
+ Tmp2__=Mixop(J__,QL__);
+ Tmp2__=Mixop(1,Tmp2__);
+ Flg__=0;
+ for K__=1:Mixlength(FaceL__)
+ Tmp3__=Mixop(K__,FaceL__);
+ if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__)
+ Flg__=1;
+ break;
+ end;
+ end;
+ if Flg__==1
+ break;
+ end;
+ end;
+ J__=min(J__, Mixlength(QL__));
+ PL__=Mixadd(PL__,Mixop(J__,QL__));
+ Tmp1__=Mixsub(1:J__-1,QL__);
+ Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__);
+ QL__=Mixjoin(Tmp1__,Tmp2__);
+ if Mixlength(QL__)==0
+ break;
+ end;
+ end;
+ PHCUTPOINTL=PL__;
+ Tmp__=[];
+ for J__=1:Mixlength(PL__);
+ Tmp1__=Mixop(J__,PL__);
+ Tmp1__=Mixop(2,Tmp1__);
+ Tmp__=Mixadd(Tmp__,Tmp1__);
+ end;
+ Tmp1__=Mixop(1,PL__);
+ Tmp1__=Mixop(2,Tmp1__);
+ Tmp__=Mixadd(Tmp__,Tmp1__);
+ Out2__=Spaceline(Tmp__);
+ Out__=Mixadd(Out0__,Out2__);
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin
new file mode 100644
index 00000000..9e24e48d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
new file mode 100644
index 00000000..879067ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
@@ -0,0 +1,184 @@
+// 08.08.17
+// 10.08.15 near line 25 or so
+// 13.10.21 ( __ added to varibles )
+
+function Out2__=Phcutoffdata(varargin)
+ global PHCUTPOINTL PHVERTEXL PHFACEL;
+ Eps__=10^(-4);
+ Out2__=[];
+ VL__=varargin(1);
+ FaceL__=varargin(2);
+ PlaneD__=varargin(3);
+ Sgnstr__=varargin(4);
+ Fugou__=1;
+ if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end;
+ Out0__=Phcutdata(VL__,FaceL__,PlaneD__);
+ PtL__=PHCUTPOINTL;
+ PHVERTEXL=VL__;
+ PHFACEL=FaceL__;
+ if PtL__==[]
+ Out2__=Out0__;
+ return;
+ end;
+ N1__=Mixlength(VL__);
+ Face__=[];
+ for I__=1:Mixlength(PtL__);
+ Tmp__=Mixop(I__,PtL__);
+ Tmp3__=Mixop(1,Tmp__); // 2010.08.15
+ Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15
+ if Tmp1__~=Tmp2__
+ VL__=Mixadd(VL__,Mixop(2,Tmp__));
+ N1__=N1__+1;
+ Tmp1__=N1__;
+ end;
+ Face__=[Face__,Tmp1__];
+ PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15
+// Tmp2__=Mixsub(1:I__-1,PtL__);
+// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__));
+// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__);
+// PtL__=Mixjoin(Tmp2__,Tmp3__);
+ end;
+ OutfL__=MixS(Face__);
+ 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;
+ 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__)<length(Outf2__) Face__=Outf2__; end;
+ 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;
+ else
+ Tmp__=Mixop(Outf1__(2),VL__);
+ Tmp1__=Outf1__;
+ Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
+ if Tmp2__<0 Tmp1__=Outf2__; end;
+ OutfL__=Mixadd(OutfL__,Tmp1__);
+ end;
+ end;
+ PHVERTEXL=VL__;
+ PHFACEL=OutfL__;
+ Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin
new file mode 100644
index 00000000..4105b83f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
new file mode 100644
index 00000000..02fe98a5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
@@ -0,0 +1,7 @@
+// 08.07.11
+
+function Ang=Phidegree()
+ global PHI;
+ Ang=PHI*180/%pi;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin
new file mode 100644
index 00000000..8e0c2f4b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
new file mode 100644
index 00000000..835c173e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
@@ -0,0 +1,7 @@
+// 08.08.21
+// 09.10.27
+
+function Out=Phparadata(VL,FaceL)
+ Out=Facesdata(list(VL,FaceL),'para');
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin
new file mode 100644
index 00000000..bd4d18f5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
new file mode 100644
index 00000000..e422b6fc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
@@ -0,0 +1,7 @@
+// 08.08.21
+// 09.10.27
+
+function Out=Phpersdata(VL,FaceL)
+ Out=Facesdata(list(VL,FaceL),'pers');
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin
new file mode 100644
index 00000000..83ccabf1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
new file mode 100644
index 00000000..c4c79c26
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
@@ -0,0 +1,7 @@
+// 08.08.21
+// 09.10.27
+
+function Out=Phrawparadata(VL,FaceL)
+ Out=Facesdata(list(VL,FaceL),'rawpara');
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin
new file mode 100644
index 00000000..c2072a26
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
new file mode 100644
index 00000000..29870630
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
@@ -0,0 +1,7 @@
+// 08.08.21
+// 09.10.27
+
+function Phrawpersdata(VL,FaceL)
+ Out=Facesdata(list(VL,FaceL),'rawpers');
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin
new file mode 100644
index 00000000..4a5a308d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
new file mode 100644
index 00000000..3c8018e3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
@@ -0,0 +1,7 @@
+// 08.08.22
+// 09.10.27
+
+function Out=Phsparadata(Fdata)
+ Out=Facesdata(Fdata,'para')
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin
new file mode 100644
index 00000000..9d90d190
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
new file mode 100644
index 00000000..58ab8101
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
@@ -0,0 +1,7 @@
+// 08.08.22
+// 09.10.27
+
+function Out=Phspersdata(Fdata)
+ Out=Facesdata(Fdata,'pers')
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin
new file mode 100644
index 00000000..ef215643
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
new file mode 100644
index 00000000..6928d928
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
@@ -0,0 +1,7 @@
+// 08.08.22
+// 09.10.27
+
+function Out=Phsrawparadata(Fdata)
+ Out=Facesdata(Fdata,'rawpara')
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin
new file mode 100644
index 00000000..b571d4dd
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
new file mode 100644
index 00000000..21677841
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
@@ -0,0 +1,7 @@
+// 08.08.22
+// 09.10.27
+
+function Phsrawpersdata(Fdata)
+ Out=Facesdata(Fdata,'rawpers')
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin
new file mode 100644
index 00000000..fb253985
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
new file mode 100644
index 00000000..fc548f28
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
@@ -0,0 +1,138 @@
+//
+// 08.06.18 (N)
+// 08.08.24
+// 08.10.05
+// 08.12.18
+// 09.03.12
+// 09.12.31 (gsort)
+// 13.10.19 (__ added to variables)
+// 14.10.24 N,D,E => 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__)<Eps__ then // 16.12.13
+ x__=X1__;
+ P__=[X1__,evstr(Str__)];
+ return;
+ end;
+ Exfun__=Assign(Exfun__,Vname__,'x__');
+ if length(Exfun__)>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__
+ P__=[P__;%inf,%inf];
+ continue;
+ end;
+ end;
+ Pa__=[];
+ if x__-E__(Ke__)<-Eps__
+ if Fnflg__==0
+ Pa__=[x__,evstr(Str__)];
+ else
+ if Fnflg__==1
+ Pa__=[x__,Fnstr__(x__)];
+ else
+ Pa__=[x__,Fnstr__(Fnarg__,x__)];
+ end;
+ end;
+ end;
+ if abs(x__-E__(Ke__))<=Eps__
+ if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
+ Pa__=[%inf,%inf];
+ end
+ end
+ if x__-E__(Ke__)>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__)<D__
+ P__=[P__;Pa__];
+ else
+ P__=[P__;%inf,%inf;Pa__];
+ end
+ end
+ end
+ end;
+ Tmp__=size(P__,1);
+ if P__(Tmp__,1)==%inf
+ P__=P__(1:Tmp__-1,:);
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin
new file mode 100644
index 00000000..1a7c1121
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
new file mode 100644
index 00000000..35e2347e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
@@ -0,0 +1,25 @@
+//
+// 08.05.23
+// 09.09.18
+// 13.05.03 list of points is outputted
+
+function PL=Pointdata(varargin)
+ Nargs=length(varargin);
+ PL=list();
+ for I=1:Nargs
+ DL=varargin(I);
+ DL=Flattenlist(DL);
+ for K=1:length(DL);
+ Dt=DL(K);
+ for J=1:size(Dt,1)
+ Tmp=Dt(J,:);
+ if Tmp(1)~=%inf then
+ PL($+1)=Tmp;
+ end
+ end
+ end;
+ end;
+ if length(PL)==1
+ PL=PL(1);
+ end;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin
new file mode 100644
index 00000000..181d1354
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
new file mode 100644
index 00000000..fd2a35d0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
@@ -0,0 +1,15 @@
+// 08.05.30
+
+function Out=PointonCurve(T,PtL)
+ Eps=10^(-4);
+ N=Trunc(T+Eps);
+ S=max(T-N,0);
+// PtL=Plt;
+ 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/ketpicscifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin
new file mode 100644
index 00000000..16b3b587
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
new file mode 100644
index 00000000..c39cdadc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
@@ -0,0 +1,21 @@
+// 09.10.03
+
+function Out=Pointoncrv(varargin)
+ Eps=10^(-4);
+ T=varargin(1);
+ Gdata=varargin(2);
+ if size(T,1)>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/ketpicscifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin
new file mode 100644
index 00000000..337e76a9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
new file mode 100644
index 00000000..b23dfdc8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
@@ -0,0 +1,17 @@
+// 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/ketpicscifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
new file mode 100644
index 00000000..8a75cbf0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
new file mode 100644
index 00000000..bc866928
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
@@ -0,0 +1,10 @@
+// 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/ketpicscifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
new file mode 100644
index 00000000..a4c6dba6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
new file mode 100644
index 00000000..bf137751
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
@@ -0,0 +1,10 @@
+// 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/ketpicscifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
new file mode 100644
index 00000000..5adfea2f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
new file mode 100644
index 00000000..bbe28c12
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
@@ -0,0 +1,32 @@
+// 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/ketpicscifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
new file mode 100644
index 00000000..8b17d615
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
new file mode 100644
index 00000000..74c552a6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
@@ -0,0 +1,18 @@
+// 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/ketpicscifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
new file mode 100644
index 00000000..0ce6a992
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
new file mode 100644
index 00000000..82feeff2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
@@ -0,0 +1,41 @@
+// 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/ketpicscifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
new file mode 100644
index 00000000..7594630e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
new file mode 100644
index 00000000..b43451a9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
@@ -0,0 +1,39 @@
+// 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/ketpicscifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
new file mode 100644
index 00000000..b042e991
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
new file mode 100644
index 00000000..78776d7b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
@@ -0,0 +1,4 @@
+function P=Ptcrv(N,Fig)
+ P=Fig(N,:)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
new file mode 100644
index 00000000..51257705
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
new file mode 100644
index 00000000..d16ebf80
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
@@ -0,0 +1,4 @@
+function P=Ptend(Fig)
+ P=Fig(size(Fig,1),:)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
new file mode 100644
index 00000000..b86773c2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
new file mode 100644
index 00000000..98f2ca94
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
@@ -0,0 +1,250 @@
+// 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
+ Tmp__=P1__;
+ elseif abs(M2__)<Eps__0
+ continue;
+ else
+ Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
+ end;
+ QL__=[QL__;Tmp__];
+ end;
+ if size(QL__,1)==2
+ Puv1__=QL__(1,:); Puv2=QL__(2,:);
+ Tmp__1=Puv1__(1);
+ Tmp__2=Puv1__(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__);
+ P1__=[Xv__,Yv__,Zv__];
+ Tmp__1=Puv2(1);
+ Tmp__2=Puv2(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__);
+ P2__=[Xv__,Yv__,Zv__];
+ if norm(P1__-P2__)<Eps__0 // 09.11.07
+ continue;
+ end; //
+ Tmp__1=norm(P1__-PtA__);
+ Tmp__2=Naiseki(P1__-PtA__,Vec__1);
+ Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2));
+ Tmp__4=norm(P2__-PtA__);
+ Tmp__5=Naiseki(P2__-PtA__,Vec__1);
+ Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2));
+ if Tmp__2<Tmp__5
+ Tmp__=P1__; P1__=P2__; P2__=Tmp__;
+ Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__;
+ Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__;
+ end;
+ if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ //
+ if Tmp__2>-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__)<Eps__0
+ SL__(I__,7)=J__;
+ Flg__=1;
+ break;
+ end;
+ end;
+ if Flg__==0 & SL__(I__,7)>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__0
+ Flg__=1;
+ break;
+ end;
+ end;
+ if Flg__==0
+ Pt__=PtL__(I__,1:3); // from
+ Tmp__0=norm(P__-Pt__);
+ Tmp__1=abs(Dotprod(P__-Pt__,Vec__1));
+ Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2));
+ Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16
+ if Tmp__3>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/ketpicscifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin
new file mode 100644
index 00000000..97796c60
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
new file mode 100644
index 00000000..f6452897
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
@@ -0,0 +1,14 @@
+//
+// 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/ketpicscifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
new file mode 100644
index 00000000..1d290957
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
new file mode 100644
index 00000000..e3cd5ebc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
@@ -0,0 +1,14 @@
+//
+// 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/ketpicscifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
new file mode 100644
index 00000000..09489c68
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
new file mode 100644
index 00000000..fe5e52b9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
@@ -0,0 +1,14 @@
+//
+// 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/ketpicscifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
new file mode 100644
index 00000000..c662aeb8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
new file mode 100644
index 00000000..f94437cf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
@@ -0,0 +1,4 @@
+function P=Ptstart(Fig)
+ P=Fig(1,:)
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin
new file mode 100644
index 00000000..3cd0fa20
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
new file mode 100644
index 00000000..5b0a3474
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
@@ -0,0 +1,13 @@
+// 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/ketpicscifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
new file mode 100644
index 00000000..d31053f9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
new file mode 100644
index 00000000..e0020f0b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
@@ -0,0 +1,72 @@
+// 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/ketpicscifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
new file mode 100644
index 00000000..f834f86d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
new file mode 100644
index 00000000..63bc151f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
@@ -0,0 +1,18 @@
+// 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<N
+ Str=Str+'\hspace{3mm}';
+ end;
+ end;
+ Putcell(TbL,Nrg,Mrg,Pos,Str);
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin
new file mode 100644
index 00000000..1b37ca31
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
new file mode 100644
index 00000000..41b9a1b6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
@@ -0,0 +1,65 @@
+// 09.12.06
+// 10.01.26
+
+function PutcoL(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
+ 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/ketpicscifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin
new file mode 100644
index 00000000..7a5123d8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
new file mode 100644
index 00000000..0e2f9d0a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
@@ -0,0 +1,65 @@
+// 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/ketpicscifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
new file mode 100644
index 00000000..c4cecfc7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
new file mode 100644
index 00000000..b993ffa9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
@@ -0,0 +1,34 @@
+// 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/ketpicscifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
new file mode 100644
index 00000000..5fc7bc24
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
new file mode 100644
index 00000000..8d732a9d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
@@ -0,0 +1,18 @@
+// 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 I<N
+ Str=Str+'\hspace{3mm}';
+ end;
+ end;
+ Putcell(TbL,Nrg,Mrg,'l',Str);
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin
new file mode 100644
index 00000000..1910dfd9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
new file mode 100644
index 00000000..ce63e542
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
@@ -0,0 +1,17 @@
+// 09.11.26
+
+function Putrecmark(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
+ Str=Str+'\recmark';
+ if I<N
+ Str=Str+'\hspace{3mm}';
+ end;
+ end;
+ Putcell(TbL,Nrg,Mrg,Pos,Str);
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin
new file mode 100644
index 00000000..9085bc24
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
new file mode 100644
index 00000000..0c2c209a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
@@ -0,0 +1,41 @@
+// 09.12.06
+// 10.01.26
+
+function Putrow(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
+ 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/ketpicscifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin
new file mode 100644
index 00000000..83b428d4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
new file mode 100644
index 00000000..0a3158cc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
@@ -0,0 +1,41 @@
+// 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/ketpicscifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
new file mode 100644
index 00000000..02bd62fd
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
new file mode 100644
index 00000000..d006f3ec
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
@@ -0,0 +1,34 @@
+// 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/ketpicscifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
new file mode 100644
index 00000000..cfb497e7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
new file mode 100644
index 00000000..a4f1ad89
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
@@ -0,0 +1,7 @@
+// 09.09.10
+
+function Puttrace(Dt);
+ global TRACEDATA;
+ TRACEDATA=Dt;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
new file mode 100644
index 00000000..116083a4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
new file mode 100644
index 00000000..839452f6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
@@ -0,0 +1,87 @@
+// 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/ketpicscifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
new file mode 100644
index 00000000..22d88c39
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
new file mode 100644
index 00000000..c1656b15
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
@@ -0,0 +1,92 @@
+// 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/ketpicscifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
new file mode 100644
index 00000000..9f2e42ee
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
new file mode 100644
index 00000000..eaf9f6df
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
@@ -0,0 +1,38 @@
+// 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/ketpicscifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
new file mode 100644
index 00000000..4a58106b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
new file mode 100644
index 00000000..7109f789
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
@@ -0,0 +1,160 @@
+// 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/ketpicscifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
new file mode 100644
index 00000000..d9cd1315
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
new file mode 100644
index 00000000..837a5727
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
@@ -0,0 +1,51 @@
+// 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/ketpicscifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
new file mode 100644
index 00000000..66f6a956
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
new file mode 100644
index 00000000..facea4d5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
new file mode 100644
index 00000000..e8683dd9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
new file mode 100644
index 00000000..9082290d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
@@ -0,0 +1,40 @@
+// 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/ketpicscifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
new file mode 100644
index 00000000..bc806d95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
new file mode 100644
index 00000000..910aa734
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
@@ -0,0 +1,75 @@
+// 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)<Eps
+ Ans=P;
+ return;
+ end;
+ V1=1/norm(W1)*W1;
+ Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3);
+ Tmp=W2-Ns*V1;
+ V2=1/norm(Tmp)*Tmp;
+ Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)];
+ V3=1/norm(Tmp)*Tmp;
+ Ct=Ns/norm(W2);
+ St=sqrt(1-Ct^2);
+ end;
+ if norm(Tmp)<Eps
+ Ans=P;
+ return;
+ end;
+ V1x=V1(1); V1y=V1(2); V1z=V1(3);
+ V2x=V2(1); V2y=V2(2); V2z=V2(3);
+ V3x=V3(1); V3y=V3(2); V3z=V3(3);
+ if Mixtype(P)~=1
+ PtL=P;
+ else
+ PtL=MixS(P);
+ end;
+ Ans=[];
+ for N=1:Mixlength(PtL)
+ P=Mixop(N,PtL);
+ if P(1)==%inf
+ Ans=Mixadd(Ans,[%inf,%inf,%inf]);
+ continue;
+ end;
+ x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3);
+ X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x;
+ X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y;
+ X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z;
+ Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x;
+ Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y;
+ Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z;
+ Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x;
+ Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y;
+ Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z;
+ Ans=Mixadd(Ans,C+[X,Y,Z]);
+ end;
+ if Mixlength(Ans)==1
+ Ans=Mixop(1,Ans);
+ end;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin
new file mode 100644
index 00000000..fc876c55
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
new file mode 100644
index 00000000..845cac17
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
@@ -0,0 +1,39 @@
+// 08.05.23 Koshikawa
+// 08.09.20
+// 15.04.12
+
+function OutL=Rotatedata(varargin)
+ Nargs=length(varargin);
+ ML=varargin(1);
+ ML=Flattenlist(ML);
+ Theta=varargin(2);
+ if Nargs==2,
+ Pt=[0,0]
+ else
+ Pt=varargin(3);
+ end
+ Cx=Pt(1);Cy=Pt(2);
+ 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=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
+ Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
+ 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/ketpicscifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin
new file mode 100644
index 00000000..f55e05bc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
new file mode 100644
index 00000000..d14f3b3a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
@@ -0,0 +1,7 @@
+// 10.11.04
+
+function Out=Roundstr(X,Ni,Nf)
+ Na=Ni+1+Nf;
+ Fmt='%'+string(Na)+'.'+string(Nf)+'f';
+ Out=sprintf(Fmt,X);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin
new file mode 100644
index 00000000..025c430a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
new file mode 100644
index 00000000..7e563f4b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
@@ -0,0 +1,39 @@
+// 08.05.25 Koshikawa
+// 08.09.20
+// 15.04.12
+
+function OutL=Scaledata(varargin)
+ Nargs=length(varargin);
+ ML=varargin(1);
+ ML=Flattenlist(ML);
+ A=varargin(2);
+ B=varargin(3);
+ if Nargs==3
+ Pt=[0,0];
+ else
+ Pt=varargin(4);
+ 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=Pt(1)+A*(X1-Pt(1));
+ Y2=Pt(2)+B*(Y1-Pt(2));
+ 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/ketpicscifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin
new file mode 100644
index 00000000..60750005
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
new file mode 100644
index 00000000..e918e475
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
@@ -0,0 +1,14 @@
+// 09.09.10
+// 09.10.12 remove:Uveq, add:Glist
+
+function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps)
+ Uv=1/norm(Vec)*Vec;
+ Nv=[Uv(2),-Uv(1),0];
+ G1=Sfcutdata(Fd,Mix(Nv,PtA),Np);
+ G2=Spaceline([PtA,PtA+10*Uv]);
+ Tmp=Mixjoin(G1,G2,Glist);
+ Tmp1=Viewfrom(Nv,Tmp);
+ Out=Tmp;
+endfunction;
+
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin
new file mode 100644
index 00000000..e70977ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
new file mode 100644
index 00000000..2a4a3c95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
@@ -0,0 +1,17 @@
+// 08.07.11
+// 08.08.12
+// 09.02.27
+
+function Setangle(varargin)
+ global PHI THETA;
+ Nargs=length(varargin);
+ if Nargs<2
+ Mixdisp(Mix('theta=',THETA*180/%pi));
+ Mixdisp(Mix('phi=',PHI*180/%pi));
+ return;
+ else
+ PHI=varargin(2)*%pi/180;
+ THETA=varargin(1)*%pi/180;
+ end
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin
new file mode 100644
index 00000000..63725d0f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
new file mode 100644
index 00000000..8f9d6053
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
@@ -0,0 +1,35 @@
+// 08.05.31
+// 09.02.27
+
+function Setarrow(varargin)
+ global YaSize YaAngle YaPosition YaThick YaStyle;
+ Nargs=length(varargin);
+ if Nargs==0
+ Mixdisp(Mix('Size=',YaSize));
+ Mixdisp(Mix('Angle=',YaAngle));
+ Mixdisp(Mix('Position=',YaThick));
+ Mixdisp(Mix('Style=',YaStyle));
+ return;
+ end;
+ Flg=0;
+ for I=1:Nargs
+ Tmp=varargin(I);
+ if type(Tmp)==1
+ Flg=Flg+1;
+ if Flg==1 YaSize=Tmp; end
+ if Flg==2
+ if Tmp<5
+ YaAngle=18*Tmp;
+ else
+ YaAngle=Tmp;
+ end
+ end
+ if Flg==3 YaPosition=Tmp; end
+ if Flg==4 YaThick=Tmp; end
+ end
+ if type(Tmp)==10
+ YaStyle=Tmp
+ end
+ end
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin
new file mode 100644
index 00000000..6a258c98
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
new file mode 100644
index 00000000..5fab30e2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
@@ -0,0 +1,102 @@
+// 08.08.08
+// 09,02.27
+
+function Out=Setax(varargin)
+ global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE;
+ Nargs=length(varargin);
+ if Nargs==0
+ if ZIKU=='line'
+ Tmp=','
+ else
+ Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
+ end;
+ Str=...
+ ZIKU+Tmp+...
+ XNAME+','+XPOS+','+YNAME+','+...
+ YPOS+','+ONAME+','+OPOS;
+ Out=Str;
+ disp(Str);
+ return;
+ end;
+ ArgL=[];
+ Is=1;
+ Tmp=varargin(1);
+ if type(Tmp)==1 & length(Tmp)==1
+ Is=varargin(1);
+ ArgL=[];
+ for I=1:Is-1
+ ArgL=[ArgL,''];
+ end
+ for I=2:Nargs
+ ArgL=[ArgL,varargin(I)];
+ end
+ else
+ if Nargs==1
+ ArgL=[varargin(1)];
+ else
+ Tmp=varargin(2);
+ if type(Tmp)==1 & length(Tmp)==1
+ ARROWSIZE=Tmp;
+ ArgL=[varargin(1)];
+ for I=3:Nargs
+ ArgL=[ArgL,varargin(I)];
+ end;
+ else
+ ArgL=[];
+ for I=1:Nargs
+ ArgL=[ArgL,varargin(I)];
+ end;
+ end
+ end
+ end
+ for I=size(ArgL,2)+1:7
+ ArgL=[ArgL,''];
+ end
+ Zk=ArgL(1);
+ if Zk~=''
+ ZL=msscanf(Zk,'%c%f');
+ Zk=ZL(1);
+ if length(ZL)>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/ketpicscifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin
new file mode 100644
index 00000000..cb6ec45d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
new file mode 100644
index 00000000..51b8e0c3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
@@ -0,0 +1,36 @@
+// 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<size(Iro,2)
+ Str=Str+',';
+ end;
+ end;
+ Str=Str+'}%';
+ end;
+ if Wfile=='default'
+ mprintf('%s\n',Str);
+ else
+ mfprintf(FID,'%s\n',Str);
+ end
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin
new file mode 100644
index 00000000..7bcd0094
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
new file mode 100644
index 00000000..4b8b932b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
@@ -0,0 +1,13 @@
+// 09.09.10
+
+function Setcounter(varargin)
+ global GCOUNTER;
+ Nargs=length(varargin);
+ if Nargs==0
+ N=1;
+ else
+ N=varargin(1);
+ end;
+ GCOUNTER=N;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin
new file mode 100644
index 00000000..b8a538c3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
new file mode 100644
index 00000000..ae713f4e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
@@ -0,0 +1,43 @@
+// 09.11.26
+// 09.12.06
+
+function Setmark();
+ Xminnow=Xmin(); Xmaxnow=Xmax();
+ Yminnow=Ymin(); Ymaxnow=Ymax();
+ Setwindow([-1.5,1.5],[-2.3,2.3]);
+ F1=Framedata();
+ F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25');
+ Texcom('\def\recmark{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Shade(F1);
+ Drwline(F1);
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+
+ Texcom('\def\cirmark{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Shade(F2);
+ Drwline(F2);
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+
+ Texcom('\def\dashmark#1{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Setpen(0.5);
+ Dashline(F2,0.5,0.5);
+ Fontsize('ss');
+ Letter([0,0],'c','#1');
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+ Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]);
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin
new file mode 100644
index 00000000..6822b346
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
new file mode 100644
index 00000000..a17c9e95
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
@@ -0,0 +1,17 @@
+//
+// 09.02.27
+// 14.03.05 MARKLEN
+
+function Setmarklen(varargin)
+ global MARKLEN MARKLENInit MARKLENNow;
+ Nargs=length(varargin);
+ if Nargs==0
+ Tmp=MARKLEN/MARKLENInit;
+ Tmp=round(Tmp*100)/100;
+ disp(Tmp);
+ return;
+ end;
+ Size=varargin(1);
+ MARKLEN=MARKLENInit*Size;
+ MARKLENNow=MARKLEN;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin
new file mode 100644
index 00000000..a8591c05
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
new file mode 100644
index 00000000..2ee06cbb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
@@ -0,0 +1,8 @@
+// s : 2014.06.22
+
+function Setobjdecimals(n)
+ global OBJFMT;
+ s1=string(n);
+ s2=string(n+3);
+ OBJFMT="%"+s2+"."+s1+"f";
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin
new file mode 100644
index 00000000..71df5ec2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
new file mode 100644
index 00000000..22f13c4d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
@@ -0,0 +1,6 @@
+// s : 2014.06.22
+
+function Setobjscale(scale)
+ global OBJSCALE;
+ OBJSCALE=scale;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin
new file mode 100644
index 00000000..91bbc8da
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
new file mode 100644
index 00000000..62a1f624
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
@@ -0,0 +1,14 @@
+//
+// 09.02.27
+
+function Setorigin(varargin)
+ global GENTEN;
+ Nargs=length(varargin);
+ if Nargs==0
+ disp(GENTEN);
+ return;
+ end;
+ Pt=varargin(1);
+ GENTEN=Pt;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin
new file mode 100644
index 00000000..d5934c6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
new file mode 100644
index 00000000..500ef7f9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
@@ -0,0 +1,11 @@
+function Setpen(Width)
+ global Wfile FID PenThick PenThickInit;
+ PenThick=round(PenThickInit*Width);
+ Str='\special{pn '+string(PenThick)+'}%';
+ if Wfile=='default'
+ mprintf('%s\n',Str);
+ else
+ mfprintf(FID,'%s\n',Str);
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin
new file mode 100644
index 00000000..c628c2f0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
new file mode 100644
index 00000000..455551bb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
@@ -0,0 +1,16 @@
+// 08.08.12
+// 08.08.15
+
+function Setpers(varargin)
+ global FocusPoint EyePoint;
+ Nargs=length(varargin);
+ if Nargs==0
+ Mixdisp(Mix('FocusPoints=',FocusPoint));
+ Mixdisp(Mix('EyePoint=',EyePoint));
+ return;
+ else
+ FocusPoint=varargin(1);
+ EyePoint=varargin(2);
+ end;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin
new file mode 100644
index 00000000..b36a2407
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
new file mode 100644
index 00000000..a3b86b01
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
@@ -0,0 +1,16 @@
+//
+// 09.02.27
+
+function Setpt(varargin)
+ global TenSize TenSizeInit;
+ Nargs=length(varargin);
+ if Nargs==0
+ Tmp=TenSize/TenSizeInit;
+ Tmp=round(Tmp*100)/100;
+ disp(Tmp);
+ return;
+ end;
+ Size=varargin(1);
+ TenSize=TenSizeInit*Size;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin
new file mode 100644
index 00000000..d3561ee9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
new file mode 100644
index 00000000..1d4868c9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
@@ -0,0 +1,28 @@
+function Out=Setscaling(varargin)
+ global LOGX LOGY SCALEX SCALEY;
+ Nargs= length(varargin)
+ if Nargs==0
+ Out=[SCALEY,LOGX,LOGY];
+ return;
+ end;
+ for I=1:Nargs
+ Tmp=varargin(I);
+ if type(Tmp)==1
+ SCALEY=Tmp;
+ end;
+ if type(Tmp)==10
+ if Tmp=="l"
+ LOGX=0;
+ LOGY=1;
+ elseif Tmp=="ll"
+ LOGX=1
+ LOGY=1
+ else
+ LOGX=0
+ LOGY=0
+ end;
+ end;
+ end;
+ Out=[SCALEY,LOGX,LOGY];
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin
new file mode 100644
index 00000000..cba724b8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
new file mode 100644
index 00000000..cb6c79ae
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
@@ -0,0 +1,12 @@
+// 08.08.12
+// 08.09.21
+// 09.03.09
+
+function SetstereoL(R,T,P,H)
+ X=R*sin(T*%pi/180)*cos(P*%pi/180);
+ Y=R*sin(T*%pi/180)*sin(P*%pi/180);
+ Z=R*cos(T*%pi/180);
+ Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z];
+ Setpers([0,0,0],Eye);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin
new file mode 100644
index 00000000..7f82c6ee
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
new file mode 100644
index 00000000..ff9de892
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
@@ -0,0 +1,10 @@
+// 08.08.12
+
+function SetstereoR(R,T,P,H)
+ X=R*sin(T*%pi/180)*cos(P*%pi/180);
+ Y=R*sin(T*%pi/180)*sin(P*%pi/180);
+ Z=R*cos(T*%pi/180);
+ Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z];
+ Setpers([0,0,0],Eye);
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin
new file mode 100644
index 00000000..23ded039
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
new file mode 100644
index 00000000..84ea4d60
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
@@ -0,0 +1,78 @@
+// 08.12.06
+// 08.12.18
+// 09.02.20
+// 09.02.27
+// 14.03.05 MARKLEN
+// 17.03.19 VL=[] => VL="";
+
+function Out=Setunitlen(varargin)
+ global FID XMIN XMAX YMIN YMAX ULEN
+ global MilliIn MARKLEN MARKLENNow PenThickInit;
+ if length(varargin)==0
+ Out=ULEN;
+ disp(ULEN);
+ return;
+ end;
+ Ul=varargin(1);
+ Dx=XMAX-XMIN;
+ Dy=YMAX-YMIN;
+ Sym='.0123456789 +-*/';
+ Tmp=ascii(Sym);
+ SL=Sym;
+ OL='+-*/';
+ if Ul~=''
+ ULEN=Ul;
+ end;
+ Out=ULEN;
+ 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;
+ Out=ULEN;
+ 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;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin
new file mode 100644
index 00000000..992a793c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
new file mode 100644
index 00000000..92883d5a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
@@ -0,0 +1,182 @@
+//
+// 08.11.12 V3.0.2b
+// 08.11.26 V3.0.2c
+// 08.12.08 V3.0.2d
+// 08.12.11 v3.0.2e
+// 08.12.17 v3.0.3a
+// 08.12.21 v3.0.3b
+// 08.12.30 v3.0.3c
+// 09.01.15 v3.0.3d
+// 09.02.20 v3.0.3e
+// 09.02.27 v3.0.4a
+// 09.02.27 v3.0.4b
+// 09.03.06 v3.0.4c
+// 09.03.09 v3.0.4d
+// 09.03.10 v3.0.4e
+// 09.03.12 v3.0.5a
+// 09.05.12 v3.0.5b
+// 09.05.18 v3.0.5c
+// 09.05.27 v3.0.6a
+// 09.06.01 v3.0.6b
+// 09.06.05 v3.0.6c
+// 09.06.13 v3.0.6d
+// 09.06.24 v3.0.6e
+// 09.08.12 v3.0.7a
+// 09.08.13 v3.0.7b
+// 09.08.23 v3.0.8a
+// 09.09.10 v3.0.9a
+// 09.09.18 v3.1.0a
+// 09.09.21 v3.1.0b
+// 09.09.25 v3.1.1a
+// 09.09.25 v3.1.1b
+// 09.10.01 v3.1.1c
+// 09.10.03 v3.1.2a
+// 09.10.04 v3.1.3a
+// 09.10.05 v3.1.3b
+// 09.10.08 v3.1.3c
+// 09.10.09 v3.1.4a
+// 09.10.11 v3.1.5a
+
+// Structure changed
+// 09.10.11 v3.2.0beta
+// 09.10.31 v3.2.0beta1031
+
+// 09.11.01 v3.2.0a
+// 09.11.04 v3.2.1a
+// 09.11.12 v3.2.1b
+// 09.11.14 v3.2.1c
+// 09.11.14 v3.2.1d
+// 09.11.21 v3.2.1e
+// 09.11.26 v3.2.2a
+// 09.12.05 v3.2.2b
+// 09.12.06 v3.2.3a
+// 09.12.17 v3.2.3b
+// 09.12.24 v3.2.3c
+// 09.12.25 v3.3.1a
+// 09.12.26 v3.3.1b
+// 09.12.28 v3.3.1c
+// 09.12.31 v3.3.1d ( for v5.2.0)
+// 10.01.01 v3.4.0alpha
+// 10.01.05 v3.4.0beta
+// 10.01.10 v3.4.1a
+// 10.01.12 v3.4.1b
+// 10.01.16 v3.4.1c
+// 10.01.21 v3.4.2a
+// 10.02.01 v3.4.2b
+// 10.02.07 v3.4.2c
+// 10.02.12 v3.4.2d
+// 10.02.14 v3.4.2e
+// 10.02.16 v3.4.3a
+// 10.02.20 v3.4.3b Windisp
+// 10.02.24 v3.4.3c Execmd
+// 10.03.07 v3.4.3d
+// 10.03.28 v3.4.4a
+// 10.03.28 v3.4.4b
+// 10.04.03 v3.4.5a
+// 10.04.10 v3.4.5b
+// 10.04.16 v3.4.6a
+// 10.04.24 v3.4.6b
+// 10.04.24 v3.4.6b1
+// 10.04.27 v3.4.7a
+// 10.05.03 v3.4.7b
+// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata
+// 10.05.12 v3.4.7d Texfor
+// 10.05.15 v3.4.8a Texctr
+// 10.08.15 v3.5.0a Phcutoffdata
+// 10.09.02 Dropnumlistcrv
+// 10.10.20 Texfor
+// 10.11.04 Hatchdata, Roundstr
+// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed
+// 10.12.02 v3.5.0c Lineplot changed
+// Makecurves debugged
+// Enclosing changed (Output )
+// 11.01.07 v3.5.1a Readtextdata is changed
+// Dividegraphiics, Splinedata are changed
+// Facesdata is debugged (HiddenL)
+// Rmmember added
+// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged
+// 11.05.29 v4.0.0a ketpict2e released, too
+// Setcolor, Ratiocmyk
+// 11.11.02 v4.0.0b Joingraphics changed
+// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list )
+// 11.12.18 Framedata (compliant for list )
+// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi )
+// 12.04.16 v4.0.1b Arrowhead debugged
+// 12.08.26 v4.0.1c Arrowline debugged
+// 13.05.03 v4.2a Tabledata, Pointdata changed
+// Dividetable, Partframe added
+// 13.05.17 v4.2_1a Arrowhead debugged
+// Openfile, Closefile, Ketinit() changed
+// 13.08.13 v4.2_2 Cancoordpara added
+// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format)
+// 13.11.02 v4.3_0 __ added to local variables
+// Openfile, Closefile changed
+// 13.11.02 v4.3_0a Closefile debugged
+// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged
+// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged
+// 14.01.10 v4.3_1a Readtextdata debugged (Big data)
+// 14.03.05 v4.3_1b MARKLEN separated from MEMORI
+// 14.03.23 Rotate3data debugged
+// 14.03.30 v43_1c Facesdata debugged
+// 14.06.09 v43_2a Phcutdata debugged (cause unknown )
+// 14.06.22 v5_0_1a Obj macros added
+// 14.06.28 v5_0_1b debug cuspsplit (para, pers)
+// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata
+// debug Makexybdy (by Kitahara)
+// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument )
+// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added
+// Objcurve debugged
+// 14.09.07 v5_1_0b Objjoin added
+// 14.09,08 v5_1_1a ReadfromCindy added
+// 14.09.16 v5_1_1b WritetoCindy added
+// 14.09.26 v5_1_1c Derivative changed ( to numderivative)
+// 14.09.30 v5_1_1d Assignrep changed
+// 14.10.08 v5_1_1e ReadfromCindy debugged
+// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF
+// 14.10.10 v5_1_2a ReadOutdata, WritOutData added
+// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version)
+// Plotdata,Paramplot,Circledata changed ( N,D,E,R => 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/ketpicscifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin
new file mode 100644
index 00000000..5ab2b0d2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
new file mode 100644
index 00000000..fb72097b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
@@ -0,0 +1,44 @@
+//
+// 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/ketpicscifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
new file mode 100644
index 00000000..623920c5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
new file mode 100644
index 00000000..9c20a13b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
@@ -0,0 +1,62 @@
+// 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/ketpicscifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
new file mode 100644
index 00000000..183f7fda
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
new file mode 100644
index 00000000..7a759f69
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
@@ -0,0 +1,39 @@
+// 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/ketpicscifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
new file mode 100644
index 00000000..5f77179e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
new file mode 100644
index 00000000..9833a7f4
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
@@ -0,0 +1,42 @@
+
+// 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/ketpicscifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
new file mode 100644
index 00000000..66da5cea
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
new file mode 100644
index 00000000..082ccec3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
@@ -0,0 +1,33 @@
+// 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/ketpicscifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
new file mode 100644
index 00000000..cd42fdf6
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
new file mode 100644
index 00000000..cde6870f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
@@ -0,0 +1,31 @@
+// 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/ketpicscifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
new file mode 100644
index 00000000..c7f1f6f1
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
new file mode 100644
index 00000000..5a15d61c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
@@ -0,0 +1,105 @@
+// 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/ketpicscifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
new file mode 100644
index 00000000..b6341637
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
new file mode 100644
index 00000000..0e4c6a5b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
new file mode 100644
index 00000000..636f24b3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
new file mode 100644
index 00000000..c10cdb8d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
new file mode 100644
index 00000000..2b4fd676
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
new file mode 100644
index 00000000..546f66d8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
new file mode 100644
index 00000000..08ac4249
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
new file mode 100644
index 00000000..e5a387f5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
new file mode 100644
index 00000000..f1b9d960
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
new file mode 100644
index 00000000..5aa4e5e5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
@@ -0,0 +1,17 @@
+// 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/ketpicscifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
new file mode 100644
index 00000000..bea54bf3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
new file mode 100644
index 00000000..ecc63e41
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
@@ -0,0 +1,17 @@
+// 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/ketpicscifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
new file mode 100644
index 00000000..48ba5b55
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
new file mode 100644
index 00000000..ec4fa716
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
@@ -0,0 +1,93 @@
+//
+// 08.05.22
+// 09.12.25
+// 17.01.09 (available colorname or colorcode as 2nd arg)
+
+function Shade(varargin)
+ global Wfile FID MilliIn;
+ Nargs=length(varargin);
+ Iroflg=0;
+ Kosa=1;
+ if Nargs>1
+ Iro=varargin(Nargs);
+ if type(Iro)==10
+ Iroflg=1;
+ if length(strchr(Iro,"{"))>0
+ Str="{\color"+Iro;
+ else
+ Str="{\color{"+Iro+"}";
+ end;
+ else
+ if length(Iro)==1
+ Kosa=Iro;
+ else
+ Iroflg=1;
+ if length(Iro)==4
+ Str='{\color[cmyk]{';
+ else
+ if length(Iro)==3
+ Str='{\color[rgb]{';
+ end;
+ end;
+ for J=1:length(Iro)
+ Str=Str+string(Iro(J));
+ if J<length(Iro)
+ Str=Str+',';
+ end
+ end
+ Str=Str+'}';
+ end;
+ end;
+ if Iroflg==1
+ if Wfile=='default'
+ mprintf('%s\n',Str+'%');
+ else
+ mfprintf(FID,'%s\n',Str+'%');
+ end;
+ end;
+ end;
+ Tmp=varargin(1);
+ Data=Kyoukai(Tmp);
+ for I=1:length(Data)
+ PL=Op(I,Data);
+ Mojisu=0;
+ for J=1:size(PL,1)
+ P=Doscaling(PL(J,:));
+ X=string(round(MilliIn*P(1)));
+ Y=string(-round(MilliIn*P(2)));
+ Str='\special{pa '+X+' '+Y+'}';
+ 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
+ Str1='\special{sh '+string(Kosa)+'}';
+ Str2='\special{ip}%';
+ if Wfile=='default'
+ mprintf('%s',Str1);
+ mprintf('%s\n',Str2);
+ else
+ mfprintf(FID,'%s',Str1);
+ mfprintf(FID,'%s\n',Str2);
+ end
+ end
+ if Iroflg==1
+ Str='}%';
+ Fmt='%s\n';
+ if Wfile=='default'
+ mprintf(Fmt,Str);
+ else
+ mfprintf(FID,Fmt,Str);
+ end;
+ end;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin
new file mode 100644
index 00000000..e93fdf6e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
new file mode 100644
index 00000000..4eec31cf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
@@ -0,0 +1,71 @@
+// 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/ketpicscifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
new file mode 100644
index 00000000..1d3bd14f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
new file mode 100644
index 00000000..5914d47a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
@@ -0,0 +1,48 @@
+// 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))<Eps // 15.06.14
+ continue
+ end;
+ PtD=[];
+ for J=1:size(Gd,1)
+ Tmp=Gd(J,:);
+ Tmp1=Invparapt(Tmp,Obj3);
+ Tmp1=Mixop(1,Tmp1);
+ PtD=[PtD;Tmp1];
+ end;
+ Out($+1)=PtD;
+ end;
+ end;
+endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin
new file mode 100644
index 00000000..f0879401
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
new file mode 100644
index 00000000..1270f789
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
@@ -0,0 +1,29 @@
+// 08.07.13
+// 08.08.08
+// 08.10.16
+// 11.12.12 (Flattenlist)
+
+function Out=Skeletonparadata(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)=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/ketpicscifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin
new file mode 100644
index 00000000..d382a6b0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
new file mode 100644
index 00000000..57dde938
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
@@ -0,0 +1,41 @@
+// 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/ketpicscifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
new file mode 100644
index 00000000..03417429
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
new file mode 100644
index 00000000..c91e73cf
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
@@ -0,0 +1,29 @@
+// 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/ketpicscifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
new file mode 100644
index 00000000..bacaa702
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
new file mode 100644
index 00000000..077a88cb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
@@ -0,0 +1,83 @@
+// 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__ then // 16.12.13
+ t__=T1__;
+ P__=evstr(Str__);
+ return;
+ 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 t__=T1__:Dt__:T2__
+ Pa__=[];
+ if t__-E(Ke__)<-Eps__
+ Pa__=evstr(Str__);
+ end
+ if abs(t__-E(Ke__))<=Eps__
+ if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf]
+ Pa__=[%inf,%inf,%inf];
+ end
+ end
+ if t__-E(Ke__)>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__)<D
+ P__=[P__;Pa__];
+ else
+ P__=[P__;%inf,%inf,%inf;Pa__];
+ end
+ end
+ end
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin
new file mode 100644
index 00000000..b5252573
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
new file mode 100644
index 00000000..9fe33c06
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
@@ -0,0 +1,27 @@
+// 08.07.11
+
+function Z=Spaceline(varargin)
+ Z=[];
+ for I=1:length(varargin)
+ Data=varargin(I);
+ if Mixtype(Data)==1
+ for J=1:3:size(Data,2)
+ Tmp=Data(J:J+2);
+ Z=[Z;Tmp];
+ end;
+ continue;
+ end;
+ if Mixtype(Data)==3
+ Tmp=[];
+ for I=1:Mixlength(Data);
+ Tmp=Mixjoin(Tmp,Mixop(I,Data));
+ end;
+ Data=Tmp;
+ end;
+ for J=1:Mixlength(Data)
+ Tmp=Mixop(J,Data);
+ Z=[Z;Tmp];
+ end;
+ end
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin
new file mode 100644
index 00000000..c9477a3a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
new file mode 100644
index 00000000..a4de85ea
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
@@ -0,0 +1,108 @@
+// 08.05.28
+// 08.05.29
+// 09.06.13
+// 10.04.24
+// 10.04.25
+// 11.01.07 ( major changed )
+
+function OutL=Splinedata(varargin)
+ global SplinePt;
+ Nargs=length(varargin);
+ Eps=10^(-3);
+ PL=varargin(1);
+ if type(PL)==10 // 100425
+ Fname=PL;
+ PL=Readtextdata(Fname);
+ else
+ if size(PL,1)==1
+ PL=matrix(PL,2,length(PL)/2);
+ PL=PL';
+ end;
+ end;
+ if size(PL,2)==3
+ Flg3=1;
+ else
+ Flg3=0;
+ end;
+ PLL=Dividegraphics(PL);
+ N=50;
+ C=[];
+ for I=2:Nargs
+ Tmp=varargin(I);
+ if type(Tmp)~=10 continue; end
+ if mtlb_findstr(Tmp,'=')~=[]
+ execstr(Tmp);
+ else
+ Tmp1=Strop(1,Tmp);
+ if Tmp1=='C' | Tmp1=='c'
+ C=1:length(PLL);
+ end;
+ end;
+ end;
+ Cflg=zeros(1,length(PLL));
+ for J=1:length(C)
+ K=C(J);
+ Cflg(K)=1;
+ end;
+ if length(N)>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/ketpicscifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin
new file mode 100644
index 00000000..e8876298
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
new file mode 100644
index 00000000..8f4da94d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
@@ -0,0 +1,11 @@
+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/ketpicscifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
new file mode 100644
index 00000000..5f1b02bc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
new file mode 100644
index 00000000..785b605c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
@@ -0,0 +1,21 @@
+//
+// 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/ketpicscifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
new file mode 100644
index 00000000..cd35f9cc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
new file mode 100644
index 00000000..55fdfd0f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
@@ -0,0 +1,65 @@
+// 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/ketpicscifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
new file mode 100644
index 00000000..7abbf37d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
new file mode 100644
index 00000000..0d649872
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
@@ -0,0 +1,30 @@
+// 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/ketpicscifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
new file mode 100644
index 00000000..ebda20ac
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
new file mode 100644
index 00000000..d63a3470
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
@@ -0,0 +1,67 @@
+// 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/ketpicscifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
new file mode 100644
index 00000000..57730f7f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
new file mode 100644
index 00000000..621f6256
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
@@ -0,0 +1,130 @@
+// 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/ketpicscifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
new file mode 100644
index 00000000..c702d4e8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
new file mode 100644
index 00000000..9b848315
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
@@ -0,0 +1,41 @@
+//
+// 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/ketpicscifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
new file mode 100644
index 00000000..3f2db49a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
new file mode 100644
index 00000000..2a8b08ca
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
@@ -0,0 +1,15 @@
+//
+// 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/ketpicscifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
new file mode 100644
index 00000000..4bd0517d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
new file mode 100644
index 00000000..8ef93556
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
@@ -0,0 +1,7 @@
+// 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/ketpicscifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
new file mode 100644
index 00000000..322cde18
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
new file mode 100644
index 00000000..a3139873
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
@@ -0,0 +1,5 @@
+// 01.10.21
+
+function Texend()
+ Closephr();
+endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
new file mode 100644
index 00000000..ea787159
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
new file mode 100644
index 00000000..ecb7b788
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
new file mode 100644
index 00000000..43440fc9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
new file mode 100644
index 00000000..97d32d85
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
@@ -0,0 +1,8 @@
+// 10.04.16
+// 10.04.18
+
+function Texendif()
+ Texcom(''); //
+ Texcom('\fi');
+ Texcom('}');
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
new file mode 100644
index 00000000..69956280
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
new file mode 100644
index 00000000..0c239842
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
@@ -0,0 +1,15 @@
+// 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/ketpicscifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
new file mode 100644
index 00000000..66fe8e3c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
new file mode 100644
index 00000000..f661c649
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
@@ -0,0 +1,7 @@
+// 10.04.18
+
+function Texforinit()
+ global TEXFORLEVEL TEXFORLAST
+ TEXFORLEVEL=0;
+ TEXFORLAST=list();
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
new file mode 100644
index 00000000..52222c34
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
new file mode 100644
index 00000000..8cbae5dc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
@@ -0,0 +1,19 @@
+// 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/ketpicscifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
new file mode 100644
index 00000000..d95b41da
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
new file mode 100644
index 00000000..f83cc8c8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
@@ -0,0 +1,44 @@
+// 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/ketpicscifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
new file mode 100644
index 00000000..eec32b1e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
new file mode 100644
index 00000000..b3b9a417
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
new file mode 100644
index 00000000..c724a1fa
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
new file mode 100644
index 00000000..03cabf81
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
@@ -0,0 +1,13 @@
+// 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/ketpicscifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
new file mode 100644
index 00000000..a19894a9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
new file mode 100644
index 00000000..b8926589
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
new file mode 100644
index 00000000..6b59198a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
new file mode 100644
index 00000000..166af676
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
@@ -0,0 +1,70 @@
+// 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/ketpicscifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
new file mode 100644
index 00000000..7a1b6b04
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
new file mode 100644
index 00000000..469da91a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
@@ -0,0 +1,5 @@
+// 2010.02.12
+
+function Out=Texthectr(N)
+ Out='\the'+Texctr(N);
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
new file mode 100644
index 00000000..71c3785e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
new file mode 100644
index 00000000..96d1c734
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
@@ -0,0 +1,5 @@
+// 2010.02.12
+
+function Out=Texvalctr(N)
+ Out='\value{'+Texctr(N)+'}';
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
new file mode 100644
index 00000000..0da12c0f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
new file mode 100644
index 00000000..fc443411
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
@@ -0,0 +1,6 @@
+// 10.01.21
+
+function Out=Texvctr(N)
+ Out='\value{'+Texctr(N)+'}';
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
new file mode 100644
index 00000000..8f036e77
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
new file mode 100644
index 00000000..c6ceff89
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
@@ -0,0 +1,7 @@
+// 08.07.11
+
+function Ang=Thetadegree()
+ global THETA;
+ Ang=THETA*180/%pi;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
new file mode 100644
index 00000000..43d2d234
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
new file mode 100644
index 00000000..a7a3fc2d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
@@ -0,0 +1,5 @@
+function Y=ThisVersion()
+ global THISVERSION
+ Y=THISVERSION
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin
new file mode 100644
index 00000000..5e7b9411
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
new file mode 100644
index 00000000..8ef53bd5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
@@ -0,0 +1,8 @@
+// 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/ketpicscifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
new file mode 100644
index 00000000..43315b47
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
new file mode 100644
index 00000000..98d69544
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
@@ -0,0 +1,36 @@
+// 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/ketpicscifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
new file mode 100644
index 00000000..9b27594a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
new file mode 100644
index 00000000..a2e31085
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
@@ -0,0 +1,42 @@
+// 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/ketpicscifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
new file mode 100644
index 00000000..838fdc91
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
new file mode 100644
index 00000000..b4705593
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
@@ -0,0 +1,10 @@
+// 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/ketpicscifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
new file mode 100644
index 00000000..60e56331
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
new file mode 100644
index 00000000..74910ceb
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
@@ -0,0 +1,12 @@
+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/ketpicscifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
new file mode 100644
index 00000000..b6a902cc
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
new file mode 100644
index 00000000..4bc7684c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
@@ -0,0 +1,11 @@
+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/ketpicscifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
new file mode 100644
index 00000000..3118062d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
new file mode 100644
index 00000000..527d3834
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
@@ -0,0 +1,11 @@
+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/ketpicscifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
new file mode 100644
index 00000000..1692f2d7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
new file mode 100644
index 00000000..44bde517
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
@@ -0,0 +1,21 @@
+// 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/ketpicscifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
new file mode 100644
index 00000000..8410cc5f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
new file mode 100644
index 00000000..de320918
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
@@ -0,0 +1,144 @@
+// 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/ketpicscifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
new file mode 100644
index 00000000..cfd85f0b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
new file mode 100644
index 00000000..baa03e73
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
@@ -0,0 +1,110 @@
+// 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/ketpicscifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
new file mode 100644
index 00000000..329b7bae
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
new file mode 100644
index 00000000..24920661
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
@@ -0,0 +1,7 @@
+// 08.12.11
+
+function Out=WireHiddenData()
+ global HIDDENWIREDATA
+ Out=HIDDENWIREDATA;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
new file mode 100644
index 00000000..cd12acae
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
new file mode 100644
index 00000000..d62acaf3
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
@@ -0,0 +1,8 @@
+// 08.09.15
+// 09.09.10 registered
+
+function Out=WirePt()
+ global WIREPT
+ Out=WIREPT;
+endfunction;
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
new file mode 100644
index 00000000..74ac71e0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
new file mode 100644
index 00000000..b46e359c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
@@ -0,0 +1,120 @@
+// 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/ketpicscifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
new file mode 100644
index 00000000..7ac1f185
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
new file mode 100644
index 00000000..11def80c
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
@@ -0,0 +1,120 @@
+// 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/ketpicscifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
new file mode 100644
index 00000000..646215a8
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
new file mode 100644
index 00000000..59c5ba54
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
@@ -0,0 +1,86 @@
+// 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/ketpicscifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
new file mode 100644
index 00000000..28eecf7a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
new file mode 100644
index 00000000..d168b4f7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
@@ -0,0 +1,86 @@
+// 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/ketpicscifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
new file mode 100644
index 00000000..baa9001a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
new file mode 100644
index 00000000..059ac6d5
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
@@ -0,0 +1,55 @@
+// 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/ketpicscifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
new file mode 100644
index 00000000..734a3c14
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
new file mode 100644
index 00000000..ae51bf8b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
@@ -0,0 +1,12 @@
+// 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/ketpicscifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
new file mode 100644
index 00000000..5e4a47e2
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
new file mode 100644
index 00000000..51a13884
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
@@ -0,0 +1,47 @@
+// 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 J<size(Mt,2)
+ Str=Str+',';
+ end;
+ end;
+ if Fname~=''
+ Fid=mopen(Fname,'w');
+ mfprintf(Fid,'%s\n',Str);
+ else
+ mprintf('%s\n',Str);
+ end;
+ for I=1:size(Mt,1)
+ Str='';
+ for J=1:size(Mt,2)
+ Dt=Mt(I,J);
+ if Dt==%inf
+ Dt=D;
+ end;
+ Str=Str+string(Dt);
+ if J<size(Mt,2)
+ Str=Str+',';
+ end;
+ end;
+ if Fname~=''
+ mfprintf(Fid,'%s\n',Str);
+ else
+ mprintf('%s\n',Str);
+ end;
+ end;
+ if Fname~=''
+ mclose(Fid);
+ end;
+endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin
new file mode 100644
index 00000000..4b55a62a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
new file mode 100644
index 00000000..60d73ef7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
@@ -0,0 +1,42 @@
+// s:2014.09.16
+
+function WritetoCindy(varargin)
+ global Fnametxt
+ GnameV=list();
+ for J=1:length(varargin)
+ Tmp=varargin(J);
+ for K=1:size(Tmp,2)
+ GnameV($+1)=Tmp(1,K);
+ end
+ end;
+ Fid=mopen(Fnametxt,'w');
+ for Nv=1:length(GnameV)
+ Gname=GnameV(Nv);
+ Tmp=evstr(Gname);
+ GL=Dividegraphics(Tmp);
+ Lnst="";
+ for J=1:length(GL)
+ G=GL(J);
+ Gn=Gname+"No"+string(J);
+ mfprintf(Fid,'%s\n',Gn+"=[];//");
+ for K=1:Numptcrv(G)
+ Pt=Ptcrv(K,G);
+ if length(Lnst)==0
+ Lnst=Gn+"=concat("+Gn+",[";
+ end;
+ Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2));
+ Lnst=Lnst+Tmp;
+ if length(Lnst)>80 | 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/ketpicscifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin
new file mode 100644
index 00000000..42261931
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
new file mode 100644
index 00000000..28ab28ce
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
@@ -0,0 +1,5 @@
+function Y=Xmax()
+ global XMAX
+ Y=XMAX;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin
new file mode 100644
index 00000000..aff6ce0e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
new file mode 100644
index 00000000..e18e83d7
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
@@ -0,0 +1,5 @@
+function Y=Xmin()
+ global XMIN
+ Y=XMIN;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin
new file mode 100644
index 00000000..c10e835a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
new file mode 100644
index 00000000..b2118c90
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
@@ -0,0 +1,14 @@
+// 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/ketpicscifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
new file mode 100644
index 00000000..58069271
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
new file mode 100644
index 00000000..b833802d
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
@@ -0,0 +1,71 @@
+// 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/ketpicscifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
new file mode 100644
index 00000000..9bafd8a9
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
new file mode 100644
index 00000000..d9c1c7df
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
@@ -0,0 +1,72 @@
+// 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/ketpicscifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
new file mode 100644
index 00000000..dd606856
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
new file mode 100644
index 00000000..0a835534
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
@@ -0,0 +1,5 @@
+function Y=Ymax()
+ global YMAX
+ Y=YMAX;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin
new file mode 100644
index 00000000..e990681f
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
new file mode 100644
index 00000000..73d0d261
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
@@ -0,0 +1,5 @@
+function Y=Ymin()
+ global YMIN
+ Y=YMIN;
+endfunction
+
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin
new file mode 100644
index 00000000..acd2edd0
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
new file mode 100644
index 00000000..5c237179
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
@@ -0,0 +1,8 @@
+// 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/ketpicscifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
new file mode 100644
index 00000000..76e4408e
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
new file mode 100644
index 00000000..13601556
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
@@ -0,0 +1,20 @@
+// 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/ketpicscifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
new file mode 100644
index 00000000..3083cb73
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
@@ -0,0 +1,344 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<scilablib name="ketpicsciL6">
+ <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/>
+ <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/>
+ <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/>
+ <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/>
+ <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/>
+ <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/>
+ <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/>
+ <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/>
+ <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/>
+ <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/>
+ <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/>
+ <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/>
+ <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/>
+ <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/>
+ <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/>
+ <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/>
+ <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/>
+ <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/>
+ <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/>
+ <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/>
+ <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/>
+ <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/>
+ <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/>
+ <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/>
+ <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/>
+ <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/>
+ <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/>
+ <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/>
+ <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/>
+ <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/>
+ <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/>
+ <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/>
+ <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/>
+ <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/>
+ <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/>
+ <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/>
+ <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/>
+ <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/>
+ <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/>
+ <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/>
+ <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/>
+ <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/>
+ <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/>
+ <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/>
+ <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/>
+ <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/>
+ <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/>
+ <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/>
+ <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/>
+ <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/>
+ <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/>
+ <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/>
+ <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/>
+ <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/>
+ <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/>
+ <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/>
+ <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/>
+ <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/>
+ <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/>
+ <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/>
+ <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/>
+ <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/>
+ <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/>
+ <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/>
+ <macro name="Dottedline" file="Dottedline.bin" md5="fc23c9d6f73b41f120a39590dd4eeeb0"/>
+ <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/>
+ <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/>
+ <macro name="Drwline" file="Drwline.bin" md5="8b3116566aee206aa64fe0f162963ae3"/>
+ <macro name="Drwpt" file="Drwpt.bin" md5="2da954a103d3d925b661e23b34c3e2f4"/>
+ <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/>
+ <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/>
+ <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/>
+ <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/>
+ <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/>
+ <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/>
+ <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/>
+ <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/>
+ <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/>
+ <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/>
+ <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/>
+ <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/>
+ <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/>
+ <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/>
+ <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/>
+ <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/>
+ <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/>
+ <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/>
+ <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/>
+ <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/>
+ <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/>
+ <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/>
+ <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/>
+ <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/>
+ <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/>
+ <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/>
+ <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/>
+ <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/>
+ <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/>
+ <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/>
+ <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/>
+ <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/>
+ <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/>
+ <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/>
+ <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/>
+ <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/>
+ <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/>
+ <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/>
+ <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/>
+ <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/>
+ <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/>
+ <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/>
+ <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/>
+ <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/>
+ <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/>
+ <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/>
+ <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/>
+ <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/>
+ <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/>
+ <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/>
+ <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/>
+ <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/>
+ <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/>
+ <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/>
+ <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/>
+ <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/>
+ <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/>
+ <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/>
+ <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/>
+ <macro name="Makehasen" file="Makehasen.bin" md5="198b502dc227e2fb5fb9d945fa3b6a27"/>
+ <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/>
+ <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/>
+ <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/>
+ <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/>
+ <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/>
+ <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/>
+ <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/>
+ <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/>
+ <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/>
+ <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/>
+ <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/>
+ <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/>
+ <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/>
+ <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/>
+ <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/>
+ <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/>
+ <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/>
+ <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/>
+ <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/>
+ <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/>
+ <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/>
+ <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/>
+ <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/>
+ <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/>
+ <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/>
+ <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/>
+ <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/>
+ <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/>
+ <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/>
+ <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/>
+ <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/>
+ <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/>
+ <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/>
+ <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/>
+ <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/>
+ <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/>
+ <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/>
+ <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/>
+ <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/>
+ <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/>
+ <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/>
+ <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/>
+ <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/>
+ <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/>
+ <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/>
+ <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/>
+ <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/>
+ <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/>
+ <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/>
+ <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/>
+ <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/>
+ <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/>
+ <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/>
+ <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/>
+ <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/>
+ <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/>
+ <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/>
+ <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/>
+ <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/>
+ <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/>
+ <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/>
+ <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/>
+ <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/>
+ <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/>
+ <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/>
+ <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/>
+ <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/>
+ <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/>
+ <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/>
+ <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/>
+ <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/>
+ <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/>
+ <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/>
+ <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/>
+ <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/>
+ <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/>
+ <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/>
+ <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/>
+ <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/>
+ <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/>
+ <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/>
+ <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/>
+ <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/>
+ <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/>
+ <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/>
+ <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/>
+ <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/>
+ <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/>
+ <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/>
+ <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/>
+ <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/>
+ <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/>
+ <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/>
+ <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/>
+ <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/>
+ <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/>
+ <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/>
+ <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/>
+ <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/>
+ <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/>
+ <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/>
+ <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/>
+ <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/>
+ <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/>
+ <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/>
+ <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/>
+ <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/>
+ <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/>
+ <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/>
+ <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/>
+ <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/>
+ <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/>
+ <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/>
+ <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/>
+ <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/>
+ <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/>
+ <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/>
+ <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/>
+ <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/>
+ <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/>
+ <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/>
+ <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/>
+ <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/>
+ <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/>
+ <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/>
+ <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/>
+ <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/>
+ <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/>
+ <macro name="Setpen" file="Setpen.bin" md5="31370146f7f7aac59de13ffbc2c0172d"/>
+ <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/>
+ <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/>
+ <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/>
+ <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/>
+ <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/>
+ <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/>
+ <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/>
+ <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/>
+ <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/>
+ <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/>
+ <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/>
+ <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/>
+ <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/>
+ <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/>
+ <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/>
+ <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/>
+ <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/>
+ <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/>
+ <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/>
+ <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/>
+ <macro name="Shade" file="Shade.bin" md5="09675938f324e2c22fe2b6e5dd0db554"/>
+ <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/>
+ <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/>
+ <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/>
+ <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/>
+ <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/>
+ <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/>
+ <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/>
+ <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/>
+ <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/>
+ <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/>
+ <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/>
+ <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/>
+ <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/>
+ <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/>
+ <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/>
+ <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/>
+ <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/>
+ <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/>
+ <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/>
+ <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/>
+ <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/>
+ <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/>
+ <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/>
+ <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/>
+ <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/>
+ <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/>
+ <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/>
+ <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/>
+ <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/>
+ <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/>
+ <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/>
+ <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/>
+ <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/>
+ <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/>
+ <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/>
+ <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/>
+ <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/>
+ <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/>
+ <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/>
+ <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/>
+ <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/>
+ <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/>
+ <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/>
+ <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/>
+ <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/>
+ <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/>
+ <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/>
+ <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/>
+ <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/>
+ <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/>
+ <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/>
+ <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/>
+ <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/>
+ <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/>
+ <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/>
+ <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/>
+ <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/>
+ <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/>
+ <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/>
+ <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/>
+ <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/>
+ <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/>
+</scilablib>