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.binbin922 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.binbin5238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.binbin6737 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.binbin16618 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci107
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.binbin13269 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci89
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.binbin7643 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.binbin27459 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci202
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.binbin1449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.binbin2609 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.binbin703 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.binbin5272 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.binbin6060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.binbin443 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.binbin22449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci121
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.binbin22411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.binbin13046 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.binbin8338 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.binbin10457 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.binbin5225 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.binbin7824 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.binbin4360 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.binbin3001 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.binbin1090 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.binbin3257 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.binbin7543 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.binbin3159 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.binbin7165 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.binbin5752 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.binbin9264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.binbin2182 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.binbin767 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.binbin1266 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.binbin1103 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.binbin1991 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.binbin14179 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci76
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.binbin2819 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.binbin449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.binbin7742 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.binbin7742 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.binbin446 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.binbin17490 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci90
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.binbin16797 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.binbin440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.binbin12964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.binbin12924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci80
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.binbin413 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.binbin426 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.binbin31919 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci179
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.binbin31845 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci176
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.binbin1833 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.binbin4784 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.binbin2593 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.binbin2668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.binbin37476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci195
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.binbin9089 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.binbin2752 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.binbin2511 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.binbin2167 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.binbin33511 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.binbin454 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.binbin22860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci133
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.binbin17289 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.binbin4450 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.binbin4030 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.binbin9618 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.binbin11037 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci75
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.binbin4108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.binbin5585 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.binbin3330 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.binbin17806 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci126
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.binbin836 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.binbin15211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.binbin15184 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.binbin721 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.binbin12554 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.binbin5757 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.binbin12460 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.binbin12215 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.binbin19645 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci154
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.binbin13219 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci88
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.binbin20630 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci127
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.binbin2035 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.binbin4895 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci54
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.binbin2555 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.binbin2655 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.binbin2809 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.binbin2385 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.binbin6802 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.binbin17186 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.binbin2585 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.binbin421 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.binbin421 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.binbin25781 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci141
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.binbin3973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.binbin437 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.binbin21909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.binbin516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.binbin13253 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci61
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.binbin1826 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.binbin750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.binbin3053 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.binbin4302 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.binbin15887 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci101
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.binbin6854 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.binbin4990 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.binbin15552 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci95
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.binbin4788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.binbin621 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.binbin7426 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.binbin10756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.binbin7402 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.binbin3408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.binbin8060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.binbin5636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.binbin9114 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.binbin20514 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.binbin5978 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.binbin11635 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.binbin2900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.binbin24740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.binbin12440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.binbin5653 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.binbin5483 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.binbin2824 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.binbin10906 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.binbin8640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.binbin6014 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.binbin22258 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci119
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.binbin4911 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.binbin68349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci345
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.binbin6211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.binbin27821 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci171
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.binbin31439 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci188
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.binbin10699 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.binbin10368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci68
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.binbin21856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci111
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.binbin3637 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.binbin15057 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci91
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.binbin40156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci169
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.binbin1651 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.binbin34512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci206
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.binbin28313 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.binbin1174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.binbin1136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.binbin1135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.binbin2264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.binbin937 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.binbin2517 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.binbin1260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.binbin1085 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.binbin1799 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.binbin1415 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.binbin2552 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.binbin411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.binbin9290 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.binbin771 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.binbin42226 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci254
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.binbin23811 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci131
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.binbin41591 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci253
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.binbin23608 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci134
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.binbin398 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.binbin17718 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.binbin973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.binbin1206 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.binbin10238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.binbin3588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.binbin16478 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.binbin22731 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci114
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.binbin862 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.binbin22172 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci123
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.binbin3732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.binbin13035 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci106
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.binbin2939 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.binbin3258 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.binbin1045 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.binbin13672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.binbin6676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.binbin6365 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.binbin3079 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.binbin2839 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.binbin4477 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.binbin20071 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci140
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.binbin2390 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.binbin6865 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.binbin5346 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.binbin5465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.binbin428 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.binbin15744 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.binbin6665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.binbin496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.binbin431 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.binbin500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.binbin29830 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci173
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.binbin30095 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci184
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.binbin531 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.binbin619 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.binbin619 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.binbin625 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.binbin592 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.binbin492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.binbin492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.binbin498 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.binbin465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.binbin19408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci138
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.binbin3006 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.binbin2642 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.binbin948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.binbin849 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.binbin5078 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.binbin3725 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.binbin4932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.binbin4858 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.binbin415 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.binbin484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.binbin51975 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci250
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.binbin1729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.binbin1729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.binbin1730 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.binbin389 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.binbin1699 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.binbin9367 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.binbin2231 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.binbin8400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.binbin8687 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.binbin4017 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.binbin2122 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.binbin2078 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.binbin5045 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.binbin5332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.binbin4017 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.binbin23174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.binbin11262 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.binbin3831 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci38
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.binbin21821 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci160
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.binbin9990 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.binbin2316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.binbin4411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.binbin25211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci75
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.binbin5669 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.binbin1170 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.binbin5149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.binbin2344 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.binbin2016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.binbin4137 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.binbin13034 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci102
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.binbin4119 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.binbin1023 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.binbin4968 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci43
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.binbin1802 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.binbin432 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.binbin1405 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.binbin1533 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.binbin1607 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.binbin3006 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.binbin3147 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.binbin3069 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.binbin10271 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.binbin11998 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci182
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.binbin7533 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.binbin5885 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.binbin5938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.binbin4537 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.binbin4498 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.binbin22872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.binbin2149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.binbin2149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.binbin11150 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci93
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.binbin9324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.binbin6935 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci48
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.binbin4084 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.binbin5901 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.binbin4038 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.binbin12729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci83
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.binbin3439 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.binbin16665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci108
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.binbin1354 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.binbin2852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.binbin9947 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.binbin5491 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.binbin10750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci67
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.binbin25828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci130
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.binbin3162 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.binbin1603 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.binbin420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.binbin251 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.binbin1781 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.binbin546 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.binbin1806 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.binbin565 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.binbin1677 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.binbin5621 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.binbin2605 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.binbin1266 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.binbin2609 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.binbin8313 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci70
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.binbin469 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.binbin531 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.binbin526 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.binbin537 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.binbin385 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.binbin909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.binbin4301 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.binbin5248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.binbin728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.binbin2122 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.binbin1434 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.binbin1292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.binbin2667 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.binbin21938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.binbin17429 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci110
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.binbin437 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.binbin463 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.binbin21470 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.binbin21438 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.binbin15066 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.binbin15066 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.binbin8150 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci55
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.binbin5610 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.binbin4660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.binbin14997 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.binbin15036 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.binbin1665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.binbin4894 -> 0 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, 0 insertions, 17003 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
deleted file mode 100644
index 9a32ff18..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/.Rhistory
+++ /dev/null
@@ -1 +0,0 @@
-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
deleted file mode 100644
index d21df4c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
deleted file mode 100644
index c940a543..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Addcounter.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 09.09.10
-
-function Addcounter(varargin)
- global GCOUNTER;
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- GCOUNTER=GCOUNTER+N;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
deleted file mode 100644
index 4a709337..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
deleted file mode 100644
index 6deb302c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Anglemark.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.06.05
-// 16.12.29 ( for too short segment )
-
-function Out=Anglemark(varargin)
- Nargs=length(varargin);
- Eps=10^(-3);
- PA=varargin(1); PB=varargin(2); PC=varargin(3);
- r = 0.5;
- if Nargs>=4
- r = varargin(4)*r;
- end
- Out=[]; // 16.12.29
- if r>min(norm(PA-PB),norm(PC-PB)) then
- return;
- end;
- Cir=Circledata(PB,r);
- Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB));
- P1=Op(2,Op(1,Tmp));
- Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB));
- P2=Op(2,Mixop(1,Tmp));
- if abs(P1-P2)<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
deleted file mode 100644
index 4dcd94f2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
deleted file mode 100644
index f6ac6ef2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 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
deleted file mode 100644
index 7c3ca7ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
deleted file mode 100644
index 9073ca6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowhead.sci
+++ /dev/null
@@ -1,107 +0,0 @@
-//
-// 08.06.01
-// 09.12.25
-// 12.01.07 kirikomi(Cut)
-// 12.04.16 debugged
-// 13.05.17 debugged
-// 13.11.13 debugged
-// 15.06.11 debugged
-// 15.06.14 debugged
-// 15.06.15 improved
-
-function Arrowhead(varargin)
- global Wfile FID MilliIn YaSize
- global YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0.5*YaThick;
- Cut=0;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if Tmp2(1)=="Cut" | Tmp2(1)=="cut"
- Tmp="Cut"+Tmp2(2);
- execstr(Tmp);
- end;
- else
- Str=Tmp;
- end; // 12.01.07 upto
- end;
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki
- else
- Hiraki=Tmp
- end
- end
- if Flg==2
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end;
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Ev=-1/Vecnagasa(Houkou)*Houkou;
- Nv=[-Ev(2),Ev(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*Ev
- end;
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*Ev
- end;
- A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv;
- B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv;
- if mtlb_findstr(Str,'l')~=[]
- Tmp=Listplot([A,P,B]);
- Tmp1=Unscaling(Tmp); // 13.05.17
- Drwline(Tmp1,Futosa);
- else
- C=P+(1-Cut)*((A+B)/2-P); // 12.01.05
- Tmp=Listplot([A,P,B,C,A]); // 12.01.05
- Tmp1=Unscaling(Tmp);
- Shade(Tmp1);
- Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20
- Tmp1=Unscaling(Tmp);
- Drwline(Tmp1,0.1); // 15.06.11, 15.06.14
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
deleted file mode 100644
index 56e18c45..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
deleted file mode 100644
index 68dfe27c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowheaddata.sci
+++ /dev/null
@@ -1,89 +0,0 @@
-// 08.05.31
-// 09.12.25
-// 13.11.13 debugged
-// 14.11.02 debugged
-
-function Out=Arrowheaddata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Eps=10^(-3);
- Nargs=length(varargin);
- Out=[];
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Thickness=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Thickness;
- else
- Str=Tmp;
- end
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- Flg=Flg+1;
- end
- end
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- if I==1 // 14.11.02
- if norm(Ptend(Houkou)-Ptstart(Houkou))<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
deleted file mode 100644
index 45527ddc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
deleted file mode 100644
index 881662b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowline.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-//
-// 12.01.07 kirikomi(Cut)
-// 12.08.26 debugged
-// 15.06.11 debugged
-// 15.10.24 debugged
-
-function Arrowline(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi;
- Nargs=length(varargin)
- P=varargin(1);
- Q=varargin(2);
- Futosa=YaThick;
- Ookisa=YaSize;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Cutstr="Cut=0";
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut")
- Tmp="Cut"+Tmp2(2);
- Cutstr=Tmp;
- end
- else
- Str=Tmp; // 12.01.07 upto (debugged on 12.08.26)
- end;
- end;
- if (type(Tmp)==1) & (length(Tmp)==1)
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- Yapos=Tmp;
- end
- if Flg==3
- Futosa=Tmp;
- end
- Flg=Flg+1;
- end
- end
- R=P+Yapos*(Q-P);
- Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24
- Drwline(Listplot([P,Tmp]),Futosa);
- Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
deleted file mode 100644
index b6f33643..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
deleted file mode 100644
index 8d9201cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assign.sci
+++ /dev/null
@@ -1,202 +0,0 @@
-// 08.09.26
-// 09.09.21
-// 09.09.26
-// 09.10.01
-// 09.10.03
-// 09.10.05
-// 09.10.08
-// 09.10.09 ( format=20)
-// 09.10.15 ( added Assign('') : reset
-// 09.10.17 ( Matrix added, ? -> number returned)
-// 09.10.21 ( list supported with Makeliststr )
-// 14.10.04 format=12
-// 14.12.11 only replaced when variable name
-// 14.12.28 debugged ( tmp2, ` )
-// 15.02.18 debugged ( for list of string )
-// 15.02.19 debugged
-// 15.04.18 debugged
-
-function Out=Assign(varargin)
- global ASSIGNLIST;
- Curfmt=format();
- format(12); // 14.10.04
- Nargs=length(varargin);
- if Nargs==0
- ASSIGNLIST=list('`',Prime());
- Out=ASSIGNLIST;
- format(Curfmt(2));
- return;
- end;
- L=list('`',char(39));
- NL=length(L);
- if modulo(Nargs,2)==0
- for I=1:Nargs
- L(I+NL)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
- format(Curfmt(2));
- return;
- end;
- if Nargs==1
- Fnstr=varargin(1);
- if Fnstr==''
- L=ASSIGNLIST;
- Out=[];
- for I=1:2:length(L)
- Tmp1=L(I);
- Tmp2=L(I+1);
- if length(Tmp2)==1
- Tmp3=string(Tmp2);
- else
- Tmp3='[';
- for J=1:length(Tmp2)
- Tmp3=Tmp3+string(Tmp2(J));
- if 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
deleted file mode 100644
index 8c80117b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
deleted file mode 100644
index d8883e6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignadd.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 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
deleted file mode 100644
index 4ee61642..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
deleted file mode 100644
index 0a362b01..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 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
deleted file mode 100644
index eb9e3072..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
deleted file mode 100644
index bb77c105..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignset.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 2f570d6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
deleted file mode 100644
index f93e3200..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Beginpicture.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 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
deleted file mode 100644
index bcf1d42b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
deleted file mode 100644
index 7d1993eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 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
deleted file mode 100644
index 51ad025e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
deleted file mode 100644
index ac639249..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 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
deleted file mode 100644
index e238cbcb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
deleted file mode 100644
index dac12561..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 40553cd7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
deleted file mode 100644
index 12947bcd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/BorderPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index d5c08e6d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
deleted file mode 100644
index 2e944821..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderparadata.sci
+++ /dev/null
@@ -1,121 +0,0 @@
-// 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
deleted file mode 100644
index 162c473d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
deleted file mode 100644
index f86ddfa0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderpersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-
-function FsL__=Borderpersdata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=0.05;
- Eps__=[0.05,1]; //
- if Nargs__>=N Eps__=varargin(N); end;
- Eps__2=0.2;
- if Nargs__>=N+1 Eps__2=varargin(N+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpers(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__);
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpers(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
deleted file mode 100644
index 41515f60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
deleted file mode 100644
index 657efc23..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Borderrawdata.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 08.09.10
-
-function FkL=Borderrawdata(varargin)
- Nall=length(varargin);
- FkL=varargin(1);
- FdL=Fullformfunc(varargin(2));
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Tmp3=Mixop(4,FdL);
- Xyzstr=[Tmp1,Tmp2,Tmp3];
- DrwS=Mixop(7,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Np=[50,50];
- if Nall>=3
- Np=varargin(3);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Um=Urg(1); UM=Urg(2);
- Vm=Vrg(1); VM=Vrg(2);
- EkL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- FkL=Mixjoin(FkL,EkL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
deleted file mode 100644
index 00fea499..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
deleted file mode 100644
index 48154cf1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowdata.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-//
-// 08.05.22
-// 08.08.24
-
-function Pd=Bowdata(varargin)
- global BOWMIDDLE BOWSTART BOWEND
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- Cut=0;
- D=1/2*Vecnagasa(PB-PA);
- if Nargs>=3
- H=varargin(3)*D*0.2;
- else
- H=D*0.2;
- end
- H=min(H,D);
- if Nargs>=4
- Cut=varargin(4);
- end
- Ydata=MakeBowdata(PA,PB,H);
- C=Mixop(1,Ydata);
- r=Mixop(2,Ydata);
- R1=Mixop(3,Ydata);
- R2=Mixop(4,Ydata);
- Rng='R=['+string(R1)+','+string(R2)+']';
- Theta=(R1+R2)*0.5;
- BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta);
- M=Mixop(1,BOWMIDDLE);
- ThetaM=Mixop(2,BOWMIDDLE);
- BOWSTART=PA;
- BOWEND=PB;
- if Cut==0
- Pd=Circledata(C,r,Rng);
- else
- Alpha=R1; Beta=ThetaM-Cut/(2*r);
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Pd=Circledata(C,r,Rng);
- Alpha=ThetaM+Cut/(2*r); Beta=R2;
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Tmp=Circledata(C,r,Rng);
- Pd=[Pd;%inf,%inf;Tmp];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
deleted file mode 100644
index fe5aa36a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
deleted file mode 100644
index 5157c111..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowmiddle.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-//
-// 08.05.22
-// 08.05.31
-// 09.08.12
-
-function M=Bowmiddle(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- if Nargs==0
- M=BOWMIDDLE;
- return;
- end;
- if Nargs==1
- Bdata=varargin(1);
- A=Bdata(1,:);
- Dind=Dataindex(Bdata);
- Dc=size(Dind,1);
- Tmp=Dind(Dc,2);
- B=Bdata(Tmp,:);
- if Dc==1
- Tmp1=round(Tmp/2);
- else
- Tmp1=Dind(1,2);
- end;
- D=Bdata(Tmp1,:);
- B=B-A;
- D=D-A;
- Tmp1=B(1)*D(2)-D(1)*B(2);
- Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2;
- Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2;
- C=[Tmp2,Tmp3]/Tmp1+A;
- R=norm(C-A);
- B=B+A;
- V=(A+B)/2-C;
- V=V/norm(V);
- M=C+R*V;
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- H=0.2*D;
- if length(varargin)>=3
- Tmp=varargin(3);
- H=Tmp*D*0.2;
- end
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- C=Op(1,Ydata);
- R=Op(2,Ydata);
- T=(Op(3,Ydata)+Op(4,Ydata))/2;
- P=C+R*[cos(T),sin(T)];
- M=MixS(P,T);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
deleted file mode 100644
index 320dc759..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
deleted file mode 100644
index f57c4961..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bowname.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-//
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.11.30 Directon supported
-
-function Bowname(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- Siki=varargin(Nargs);
- Nargs=Nargs-1; // 13.11.30
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0 // 13.11.30
- P=Mixop(1,BOWMIDDLE);
- elseif Nargs==1 // 13.11.30
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- Tmp=varargin(3);
- if type(Tmp)==10
- H=D*0.2;
- else
- H=Tmp*D*0.2;
- end;
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- Tmp=Bowmiddle(Ydata);
- P=Mixop(1,Tmp);
- end
- Expr(P,Dr,Siki); //13.11.30
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
deleted file mode 100644
index e4dd5aa2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
deleted file mode 100644
index 8d1edf78..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bownamerot.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.12.15 tiny move supported
-// A,B type no longer supported
-
-function Bownamerot(varargin)
- global Wfile FID BOWMIDDLE BOWSTART BOWEND;
- Nargs=length(varargin);
- Eps=10^(-6);
- Flg=1;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp<0
- Flg=Tmp;
- Nargs=Nargs-1;
- end;
- Siki=varargin(Nargs);
- Nargs=Nargs-1;
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0
- P=Mixop(1,BOWMIDDLE);
- A=BOWSTART;
- B=BOWEND;
- else
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- A=Bdata(1,:);
- B=Bdata(size(Bdata,1),:);
- Tm=0; Tv=0;
- if Nargs>1 then // 13.12.15
- Tm=varargin(2);
- if Nargs>2 then
- Tv=varargin(3);
- end
- end
- end;
-// elseif Nargs==1
-// Bdata=varargin(1);
-// P=Bowmiddle(Bdata);
-// A=Bdata(1,:);
-// B=Bdata(size(Bdata,1),:);
-// else
-// A=varargin(1); B=varargin(2);
-// D=1/2*Vecnagasa(B-A);
-// Tmp=varargin(3);
-// if type(Tmp)==10
-// H=0.2*D; Siki=Tmp;
-// else
-// H=Tmp*D*0.2; Siki=varargin(4);
-// end
-// H=min(H,D);
-// Ydata=MakeBowdata(A,B,H);
-// C=Op(1,Ydata);
-// R=Op(2,Ydata);
-// T=(Op(3,Ydata)+Op(4,Ydata))/2;
-// P=C+R*[cos(T),sin(T)];
-// end;
- if A(1)>B(1)+Eps
- Tmp=A;
- A=B;
- B=Tmp;
- end;
- if Flg>0
- Tmp=B-A;
- else
- Tmp=A-B;
- end;
- Exprrot(P,Tmp,Tm,Tv,Siki);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
deleted file mode 100644
index 69e9a115..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
deleted file mode 100644
index aa1216dd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcHeight.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-function CalcHeight(Hoko,Moji)
- global Wfile FID;
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(1));
- Str=['\settoheight{\Height}{'+Moji+'}'];
- Str=[Str,'\settodepth{\Depth}{'+Moji+'}'];
- if H=='n'
- Str=[Str,'\setlength{\Height}{\Depth}'];
- end
- if H=='s'
- Str=[Str,'\setlength{\Height}{-\Height}'];
- end
- if H=='c'
- Str=[Str,'\setlength{\Height}{-0.5\Height}'];
- Str=[Str,'\setlength{\Depth}{0.5\Depth}'];
- Str=[Str,'\addtolength{\Height}{\Depth}'];
- end
- if Wfile=='default'
- for I=1:size(Str,2)
- mprintf('%s',Str(I));
- end
- mprintf('%s\n','%');
- else
- for I=1:size(Str,2)
- mfprintf(FID,'%s',Str(I));
- end
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
deleted file mode 100644
index dea083ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
deleted file mode 100644
index 111e9b3b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CalcWidth.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-function CalcWidth(Hoko,Moji)
- global Wfile FID
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(2));
- if H=='e'
- D=0;
- end
- if H=='w'
- D=-1.0;
- end
- if H=='c'
- D=-0.5;
- end
- Str1='\settowidth{\Width}{'+Moji+'}';
- Tmp=string(D);
- Str2='\setlength{\Width}{'+Tmp+'\Width}';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s%s\n',Str2,'%');
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s%s\n',Str2,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
deleted file mode 100644
index 90ba14bb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
deleted file mode 100644
index 30c646a6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Calcfun.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.05.30
-
-function PL=Calcfun(Siki,Namae,Atai)
- execstr(Namae+'=Atai');
- Tmp='XY='+Siki;
- execstr(Tmp);
- PL=[Atai(:,1),XY(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
deleted file mode 100644
index a0f9bec1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
deleted file mode 100644
index fcc7687c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameraCurve.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
deleted file mode 100644
index 1504ef28..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
deleted file mode 100644
index 310ac166..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CameracoordCurve.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.09.25
-
-function Out=CameracoordCurve(Curve)
- global FocusPoint EyePoint;
- Out=[]; // 09.09.25
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=X3;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Out;Yz,Zz,Xz];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
deleted file mode 100644
index 09869b72..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
deleted file mode 100644
index 1574d812..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpara.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 13.08.13
-
-function Out=Cancoordpara(P)
- global PHI THETA;
- Xz=P(1); Yz=P(2); Zz=P(3);
- X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- Z=Yz*sin(THETA)+Zz*cos(THETA);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
deleted file mode 100644
index 9b976e9a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
deleted file mode 100644
index b63aba5c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cancoordpers.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.08.12
-
-function Out=Cancoordpers(P)
- global EyePoint FocusPoint;
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=P(3); Yz=P(1); Zz=P(2);
- X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3;
- X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3;
- X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2;
- X=X1+FocusPoint(1);
- Y=Y1+FocusPoint(2);
- Z=Z1+FocusPoint(3);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
deleted file mode 100644
index 479debe4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
deleted file mode 100644
index 2148c061..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// s:2008,05.12
-// e:2014.09.08 [A,B] supported
-// e:2014.10.24 N,R => N__, ...
-
-function P=Circledata(varargin)
- Nargs=length(varargin);
- C=varargin(1);
- if length(C)==4 then
- ra=norm(C(1:2)-C(3:4));
- C=C(1:2);
- Nop=2;
- else
- ra=varargin(2);
- Nop=3;
- end;
- R__=[0,2*%pi];
- N__=50; // Numpoints
- for I=Nop:Nargs
- Tmp=varargin(I);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- Str=Lhs+'__='+Tmp1(3,1);
- execstr(Str);
- end;
- Dt=(R__(2)-R__(1))/N__;
- T=R__(1):Dt:R__(2);
- X=C(1)+ra*cos(T);
- Y=C(2)+ra*sin(T);
- P=[X',Y'];
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
deleted file mode 100644
index 7a4e7e0e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
deleted file mode 100644
index bf9572c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Clipindomain.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 09.12.31 (gsort)
-
-function OutL=Clipindomain(ObjL,FigL)
- EEps=10^(-4);
- Eps=0.01;
- Eps2=0.2;
- Bdy=Kyoukai(FigL);
- if Mixlength(Bdy)>=2
- Fbdy=Joincrvs(FigL)
- else
- Fbdy=Mixop(1,FigL);
- end;
- if Mixtype(ObjL)==1
- ObjL=Mix(ObjL)
- end;
- if Mixtype(FigL)==1
- FigL=Mix(FigL)
- end;
- OutL=[];
- for Nobj=1:Mixlength(ObjL);
- Obj=Mixop(Nobj,ObjL);
- ParL=[1,Numptcrv(Obj)];
- Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2);
- for J=1:Mixlength(Tmp)
- Tmp1=Mixop(J,Tmp);
- ParL=[ParL,Mixop(2,Tmp1)];
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- Tmp=[1];
- for I=1:length(ParL)
- Tmp1=Tmp(length(Tmp));
- Tmp2=ParL(I);
- if Tmp2-Tmp1>EEps
- Tmp=[Tmp,Tmp2];
- end;
- end;
- ParL=Tmp;
- Tmp1=ParL(length(ParL));
- Tmp2=Numptcrv(Obj);
- if abs(Tmp1-Tmp2)<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
deleted file mode 100644
index ee0c01eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
deleted file mode 100644
index f2928103..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 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
deleted file mode 100644
index 459ad839..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
deleted file mode 100644
index da7c3850..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closeobj.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Closeobj()
- global Wfile FID;
- if Wfile~='default' then
- mclose(FID);
- FID=[];
- end;
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
deleted file mode 100644
index 2f0714fe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
deleted file mode 100644
index 64b93e1a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepar.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.31
-
-function Closepar()
- global Wfile FID
- S='\end{minipage}'
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s',S);
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s',S);
- end
- Closephr();
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
deleted file mode 100644
index 6a9af1b5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
deleted file mode 100644
index 39b363f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 08.05.31
-
-function Closephr()
- global Wfile FID;
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s\n','}%');
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s\n','}%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
deleted file mode 100644
index 45c1666b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
deleted file mode 100644
index a3f345cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closepicture.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-//
-// 08.12.17
-// 09.02.20
-// 10.04.12
-
-function Closepicture(varargin)
- global Wfile FID MEMORI MEMORINow ULEN MilliIn;
- Nargs=length(varargin);
- if Nargs==0
- Drwxy();
- elseif varargin(1)==1
- Drwxy();
- end
- if Wfile=='default'
- mprintf('%s','\end{picture}}%');
- else
- mfprintf(FID,'%s','\end{picture}}%');
- end
-// MEMORI=MEMORINow*1000/2.54/MilliIn;
- Setunitlen('1cm');
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
deleted file mode 100644
index 2ae19755..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
deleted file mode 100644
index 2abe8c90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Connectseg.sci
+++ /dev/null
@@ -1,76 +0,0 @@
-// 08.09.09
-// 08.09.10
-// 08.09.24
-
-function PlotL=Connectseg(varargin)
- Nargs=length(varargin);
- Pdata=varargin(1);
- Eps=10^(-5);
- if Nargs>=2
- Eps=varargin(2)
- end;
- if Mixtype(Pdata)~=1
- Tmp=Mixop(1,Pdata);
- Tmp=size(Tmp,2);
- Sep=%inf*ones(1,Tmp);
- Tmp=[];
- for I=1:Mixlength(Pdata)
- Tmp1=Mixop(I,Pdata);
- Tmp=[Tmp;Sep;Tmp1];
- end;
- Pdata=Tmp(2:size(Tmp,1),:);
- end;
- Din=Dataindex(Pdata);
- PlotL=[];
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:size(Din,1),:);
- N=size(Din,1);
- while N>0
- Ah=Qd(1,:);Ao=Qd(size(Qd,1),:);
- Flg=0;
- for J=1:N
- St=Din(J,1);
- En=Din(J,2);
- P=Pdata(St,:);
- Q=Pdata(En,:);
- if norm(P-Ao)<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
deleted file mode 100644
index ebbf0250..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
deleted file mode 100644
index ab4d55b5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crossprod.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.10.0
-
-function Out=Crossprod(a,b)
- if length(a)==3
- Tmp1=a(2)*b(3)-a(3)*b(2);
- Tmp2=a(3)*b(1)-a(1)*b(3);
- Tmp3=a(1)*b(2)-a(2)*b(1);
- Out=[Tmp1,Tmp2,Tmp3];
- else
- Out=a(1)*b(2)-a(2)*b(1);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
deleted file mode 100644
index 945f328f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
deleted file mode 100644
index 07c17303..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=Crv3onsfHiddenData()
- global CRV3ONSFHIDDENDATA
- Out=CRV3ONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
deleted file mode 100644
index edfc2433..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
deleted file mode 100644
index ba168b71..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpara(Par,Fk,Tmp);
- end;
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
deleted file mode 100644
index fcf19f53..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
deleted file mode 100644
index 5fc40737..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpers(Par,Fk,Tmp);
- end;
-
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
deleted file mode 100644
index 6c2acae3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
deleted file mode 100644
index 9d97b3ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=CrvonsfHiddenData()
- global CRVONSFHIDDENDATA
- Out=CRVONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
deleted file mode 100644
index 5a5c9703..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
deleted file mode 100644
index a530284b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfparadata.sci
+++ /dev/null
@@ -1,90 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-// 13.10.22 ( __ added to varibles )
-
-function OutL__=Crvonsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs__=length(varargin);
- Eps__0=10^(-4);
- Figuv__=varargin(1);
- Fbdy__=Projpara(varargin(2));
- Fd__=varargin(3); N__=4;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Mixop(1,Fd__L);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Np__=[50,50];
- if Nargs__>=N__
- Np__=varargin(N__); N__=N__+1;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__
- Eps__=varargin(N__);
- end;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- Eps__2=0.2;
- if Nargs__>=N__+1
- Eps__2=varargin(N__+1);
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Fbdxy__=Makexybdy(Fd__,Np__);
- Fbdy__uv=Mixop(8,Fd__L);
- if Fbdy__uv==[]
- Fbdy__uv=Mix(Framedata(Urg__,Vrg__));
- end;
- FigL__=Clipindomain(Figuv__,Fbdy__uv);
- CRVONSFHIDDENDATA=[];
- OutL__=[];
- for N__=1:Mixlength(FigL__)
- PtL__=Mixop(N__,FigL__);
- Tmp__=[];
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,:);
- Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')');
- Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')');
- Tmp__1=evstr(Tmp__1);
- Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')');
- Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')');
- Tmp__2=evstr(Tmp__2);
- Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')');
- Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')');
- Tmp__3=evstr(Tmp__3);
- Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]];
- end;
- Fk__=Spaceline(Tmp__);
- Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); //
- if Fxy__=='p'
- Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__);
- else
- Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
- Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1);
- end;
- if Tmp__~=[]
- OutL__=Mixjoin(OutL__,Tmp__);
- end;
- if HIDDENDATA~=[]
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
deleted file mode 100644
index 29f41d3c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
deleted file mode 100644
index f3bdf700..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function OutL=Crvonsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs=length(varargin);
- Eps0=10^(-4);
- Figuv=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Xf=Mixop(2,FdL);
- Yf=Mixop(3,FdL);
- Zf=Mixop(4,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1
- Eps=[Eps,1];
- end;
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Fbdxy=Makexybdy(Fd,Np);
- Fbdyuv=Mixop(8,FdL);
- if Fbdyuv==[]
- Fbdyuv=Mix(Framedata(Urg,Vrg));
- end;
- FigL=Clipindomain(Figuv,Fbdyuv);
- CRVONSFHIDDENDATA=[];
- OutL=[];
- for N=1:Mixlength(FigL)
- PtL=Mixop(N,FigL);
- Tmp=[];
- for I=1:size(PtL,1)
- P=PtL(I,:);
- Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')');
- Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')');
- Tmp1=evstr(Tmp1);
- Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')');
- Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')');
- Tmp2=evstr(Tmp2);
- Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')');
- Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')');
- Tmp3=evstr(Tmp3);
- Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]];
- end;
- Fk=Spaceline(Tmp);
- Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp1=Mix(Fxy,Fbdxy,Xname,Yname);
- Tmp=Nohiddenpers(Par,Fk,Tmp1);
- end;
- OutL=Mixjoin(OutL,Tmp);
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
deleted file mode 100644
index c0c9a068..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
deleted file mode 100644
index 0081b20c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.10.24
-
-function Out=CrvsfHiddenData()
- global CRVSFHIDDENDATA
- Out=CRVSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
deleted file mode 100644
index c4172a33..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
deleted file mode 100644
index a87506d2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfparadata.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 10.02.16
-
-function Out=Crvsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Parapt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpara(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
deleted file mode 100644
index 8efb0eb2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
deleted file mode 100644
index 7e24efcb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Crvsfpersdata.sci
+++ /dev/null
@@ -1,80 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-
-function Out=Crvsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Perspt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpers(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
deleted file mode 100644
index 98b1a53c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
deleted file mode 100644
index 8c2b6eee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspData()
- global CUSPDATA
- Out=CUSPDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
deleted file mode 100644
index 8d097887..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
deleted file mode 100644
index 33f1d807..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspPt()
- global CUSPPT
- Out=CUSPPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
deleted file mode 100644
index a3855489..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
deleted file mode 100644
index 07cbb09b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/CuspSplitPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function PL=CuspSplitPt()
- global CUSPSPLITPT
- PL=CUSPSPLITPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
deleted file mode 100644
index ae85baa1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
deleted file mode 100644
index 0ea935b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpara.sci
+++ /dev/null
@@ -1,179 +0,0 @@
-// 08.09.10
-// 08.09.13
-// 08.09.15
-// 08.10.10
-// 10.02.16 Eps
-// 13.10.21 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpara(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps0__=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N__=2;
- Tmp1__=Mixop(2,FdL__);
- Tmp2__=Mixop(3,FdL__);
- Tmp3__=Mixop(4,FdL__);
- Xyzstr__=[Tmp1__,Tmp2__,Tmp3__];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp1__=Uname__+'='+string(Tmp__(1));
- execstr(Tmp1__);
- Tmp1__=Vname__+'='+string(Tmp__(2))
- execstr(Tmp1__);
- Tmp2__=evstr(Xyzstr__);
- Tmp3__=Parapt(Tmp2__);
- if I__==1
- PtkL__=[Tmp2__];
- PthL__=[Tmp3__];
- else
- Tmp4__=PthL__(size(PthL__,1),:);
- if norm(Tmp3__-Tmp4__)>Eps0__
- PtkL__=[PtkL__;Tmp2__];
- PthL__=[PthL__;Tmp3__]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe__)<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
deleted file mode 100644
index 4f20be30..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
deleted file mode 100644
index a8221f5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cuspsplitpers.sci
+++ /dev/null
@@ -1,176 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpers(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps__0=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N=2;
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp__1=Uname__+'='+string(Tmp__(1));
- execstr(Tmp__1);
- Tmp__1=Vname__+'='+string(Tmp__(2))
- execstr(Tmp__1);
- Tmp__2=evstr(Xyzstr__);
- Tmp__3=Perspt(Tmp__2);
- if I__==1
- PtkL__=[Tmp__2];
- PthL__=[Tmp__3];
- else
- Tmp__4=PthL__(size(PthL__,1),:);
- if norm(Tmp__3-Tmp__4)>Eps__0
- PtkL__=[PtkL__;Tmp__2];
- PthL__=[PthL__;Tmp__3]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe)<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
deleted file mode 100644
index 48b89428..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
deleted file mode 100644
index fa26b319..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Cutsf2d.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.10.15
-
-function Out=Cutsf2d(Nvec,GL,Flg)
- global THETA PHI
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
deleted file mode 100644
index b20f8311..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
deleted file mode 100644
index 1df8e5e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dashline.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.21
-// 08.07.14
-// 10.01.02 bin remade
-// 10.11.13 Flattenlist used
-
-function Dashline(varargin)
- global MilliIn
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,0);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
deleted file mode 100644
index fc463260..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
deleted file mode 100644
index 82e9ac48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dataindex.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.05.31
-
-function Ndm=Dataindex(P)
- // %inf;%inf -> end
- Ndm=[];
- if P==[] return; end
- N1=1;
- Flg=0;
- for J=1:size(P,1)
- if P(J,1)==%inf
- Ndm=[Ndm;N1,J-1];
- N1=J+1;
- if P(N1,1)==%inf
- Flg=1;
- break;
- end
- end
- end
- if Flg==0
- Ndm=[Ndm;N1,size(P,1)];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
deleted file mode 100644
index 5069d551..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
deleted file mode 100644
index b06ac44b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Definecolor.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 15.05.04
-
-function Definecolor(Name,Data)
- Tmp1=size(Data,2);
- if Tmp1<3 | Tmp1>4
- disp("Size of data should be 3 or 4.");
- return;
- end;
- if Tmp1==4
- Tp="cmyk"
- else
- Tp="rgb"
- end;
- Tmp="";
- for J=1:Tmp1
- Tmp=Tmp+string(Data(J));
- if 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
deleted file mode 100644
index 1935267f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
deleted file mode 100644
index 43d8ea6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Deqplot.sci
+++ /dev/null
@@ -1,195 +0,0 @@
-
-// 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
deleted file mode 100644
index b4f3edb7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
deleted file mode 100644
index cbffc3d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Derivative.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 09.10.04
-// 09.10.05
-// 09.10.06
-// 14.10.24 numderivative used after 5.5
-
-function Out=Derivative(varargin)
- Nargs=length(varargin);
- Out=[];
- Fs=varargin(1);
- Vv=varargin(2);
- Np=3;
- if type(Vv)==10
- Prstr=strsubst(Vv,'[','(');
- Prstr=strsubst(Prstr,']',')');
- Tmp=part(Prstr,1);
- if Tmp~='('
- Prstr='('+Prstr+')';
- end;
- deff('Out=Tmpfun'+Prstr,'Out='+Fs);
- Fs='Tmpfun'+Prstr;
- Vv=varargin(Np);
- Np=Np+1;
- end;
- Nd=[];
- if Np<=Nargs
- Nd=varargin(Np);
- end;
- Js=mtlb_findstr(Fs,'(');
- JL=mtlb_findstr(Fs,',');
- Je=mtlb_findstr(Fs,')');
- Sep=[Js(1),JL,Je];
- Fse=Fs;
- for I=1:length(Vv)
- J1=Sep(I)+1;
- J2=Sep(I+1)-1;
- Tmp1=part(Fs,J1:J2);
- Tmp2='X_'+string(I);
- Fse=strsubst(Fse,Tmp1,Tmp2);
- end;
- function Ans=Tmpf(W)
- X1=W(1);
- if length(W)>1
- X2=W(2);
- else;
- X2=%inf;
- end;
- if length(W)>2
- X3=W(3);
- else
- X3=%inf;
- end;
- Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3);
- Ans=evstr(Tmp)';
- endfunction;
- Tmp1=getversion("scilab");
- if Tmp1(1)*10+Tmp1(2)>=55 then
- Out=numderivative(Tmpf,Vv')';
- else
- Out=derivative(Tmpf,Vv')';
- end
- if Nd~=[]
- Out=Out(Nd,:)
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
deleted file mode 100644
index 8854f5a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
deleted file mode 100644
index b6a53b62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Diagcelldata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.03.28
-
-function Out=Diagcelldata(Tb,Nc,Nr)
- Tmp=Findcell(Tb,Nc,Nr);
- C=Tmp(1);
- Dx=Tmp(2);
- Dy=Tmp(3);
- Pne=C+[Dx,Dy];
- Pnw=C+[-Dx,Dy];
- Psw=C+[-Dx,-Dy];
- Pse=C+[Dx,-Dy];
- Tmp1=Listplot(Pnw,Pse);
- Tmp2=Listplot(Pne,Psw);
- Out=list(Tmp1,Tmp2);
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
deleted file mode 100644
index 91415a88..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
deleted file mode 100644
index be16b473..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 11.01.07
-
-function OutL=Dividegraphics(Pd)
- if length(Pd)==0
- OutL=Pd;
- return;
- end;
- DtL=Flattenlist(Pd);
- OutL=list();
- for J=1:length(DtL)
- Dt= DtL(J);
- Ndm=Dataindex(Dt);
- for I=1:size(Ndm,1)
- Fd=Dt(Ndm(I,1):Ndm(I,2),:);
- OutL($+1)=Fd;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
deleted file mode 100644
index 7b1b6ff3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
deleted file mode 100644
index 36531da2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividetable.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 13.05.03
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
deleted file mode 100644
index c7f08dda..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
deleted file mode 100644
index 5054faf2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Doscaling.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.12.25
-
-function Out=Doscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=G;
- if LOGX==1
- GLg=[log10(G(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- GLg=[GLg(:,1),log10(G(:,2))];
- end;
- Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
deleted file mode 100644
index 489764ae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
deleted file mode 100644
index fc2847c7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotfilldata.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 10.03.07 (Kosa )
-
-function ShaL=Dotfilldata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- Nargs=length(varargin);
- ShaL=[];
- Eps=0.01;
- Kakudo=45;
- Kosa=0.5;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if 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
deleted file mode 100644
index fe44d95c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
deleted file mode 100644
index dc35fde5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dotprod.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 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
deleted file mode 100644
index a678c346..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
deleted file mode 100644
index 7e4ea8a1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedline.sci
+++ /dev/null
@@ -1,133 +0,0 @@
-// 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
deleted file mode 100644
index 5871fcc7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
deleted file mode 100644
index c4d9b86a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dottedlineold.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// 08.05.21
-// 08.11.26
-
-function Dottedline(varargin)
- global Wfile FID MilliIn;
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=0.02*0.5;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- CL=[];
- Nk=4;
- Tmp=Framedata([0,0],Ookisa/2);
- CL=Tmp;
- for N=1:Nall
- Pdata=varargin(N);
- if Mixtype(Pdata)==1
- Pdata=MixS(Pdata);
- end
- for II=1:Mixlength(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- if I==Nten-1
- if Vecnagasa(P-Data(1,:))<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
deleted file mode 100644
index 9777c32b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
deleted file mode 100644
index 3a06be00..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.10
-// 08.09.15
-// 08.10.10
-// 10.09.03
-
-function OutL=Dropnumlistcrv(QdL,Eps)
- Eps0=10^(-6); //
- if Mixtype(QdL)==1
- PdL=list(QdL);
- else
- PdL=QdL;
- end;
- OutL=[];
- for I=1:Mixlength(PdL)
- Pd=Op(I,PdL);
- PtL=[1];
- P=Pd(1,:);
- for K=2:size(Pd,1)-1 //
- if norm(P-Pd(K,:))>Eps
- PtL=[PtL,K];
- P=Pd(K,:);
- end;
- end;
- // PtL=[PtL,size(Pd,1)];
- K=size(Pd,1) //
- if norm(P-Pd(K,:))>Eps0 //
- PtL=[PtL,K]; //
- end; //
- if length(PtL)==1
- PtL=[];
- end;
- OutL=Mixadd(OutL,PtL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
deleted file mode 100644
index cf57e835..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
deleted file mode 100644
index 84fd6daa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Droppoint.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
deleted file mode 100644
index 071b7070..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
deleted file mode 100644
index 2ec407ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwline.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 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
deleted file mode 100644
index 198c0c88..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
deleted file mode 100644
index 5cb45c6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwpt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-//
-// 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
deleted file mode 100644
index 42407401..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
deleted file mode 100644
index b091754f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Drwxy.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-function Drwxy(varargin)
- global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN;
- Nargs=length(varargin)
- Tmp=mtlb_findstr(ZIKU,'arrow');
- if Tmp~=[]
- Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE);
- Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE);
- else
- Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)]));
- Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX]));
- end;
- Letter([XMAX,GENTEN(2)],XPOS,XNAME);
- Letter([GENTEN(1),YMAX],YPOS,YNAME);
- Letter(GENTEN,OPOS,ONAME);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
deleted file mode 100644
index dd1bf063..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
deleted file mode 100644
index 9b67e366..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Embed.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 09.11.21
-// 09.11.26
-
-function Out=Embed(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- if Mixtype(Pd3)==1
- Pd3=list(Pd3);
- elseif Mixtype(Pd3)==3
- Tmp=list();
- for I=1:length(Pd3)
- Tmp=Mixjoin(Tmp,Pd3(I));
- end;
- Pd3=Tmp;
- end;
- Tmpf=varargin(2);
- if type(Tmpf)==10
- Tmp=varargin(3);
- Tmp1=strsubst(Tmp,'[','(');
- Vstr=strsubst(Tmp1,']',')');
- deff('Z=Tmpfn'+Vstr,'Z='+Tmpf);
- else
- Tmpfn=Tmpf;
- end;
- Out=list();
- for I=1:length(Pd3)
- PD=Pd3(I);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Tmpfn(P(1),P(2));
- Ans=[Ans;Tmp];
- end;
- Out($+1)=Ans;
- end;
- if length(Out)==1
- Out=Out(1);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
deleted file mode 100644
index d9d9c1bf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
deleted file mode 100644
index bfc191b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 08.05.31
-// 10.12.04
-// 16.12.05 to make it a closed curve
-
-function AnsL=Enclosing(varargin)
- global MilliIn;
- Eps=10^(-7); // 12.05
- Nargs=length(varargin);
- P=varargin(1);
- if Mixtype(P)==2
- Tmp=Op(1,P);
- if type(Tmp)~=1 | length(Tmp)~=1
- AnsL=EnclosingS(P,varargin(2:Nargs));
- AnsL=Joincrvs(AnsL) // 10.12.04
- end
- end;
- Tmp1=Op(1,AnsL);
- Tmp2=Op(size(AnsL,1),AnsL);
- if norm(Tmp2-Tmp1)>Eps then // 12.05
- AnsL=[AnsL;Tmp1];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
deleted file mode 100644
index 6e120c8d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
deleted file mode 100644
index cded7ef2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/EnclosingS.sci
+++ /dev/null
@@ -1,126 +0,0 @@
-// 08.05.31
-// 08.11.12
-// 09.10.12
-// 09.10.14
-// 15.04.10
-
-function AnsL=EnclosingS(varargin)
- global MilliIn;
- Nargs=length(varargin);
- AnsL=[];
- PdataL=varargin(1);
- Nall=length(PdataL);
- Eps=10^(-3);
- EEps=0.1;
- S=[];
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- S=Tmp;
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Eps=Tmp;
- Flg=Flg+1
- else
- EEps=Tmp
- end
- end
- end
- F=Op(1,PdataL); G=Op(Nall,PdataL);
- KL=IntersectcrvsPp(F,G);
- if length(KL)==1
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- end
- if length(KL)==0
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- else
- Tmp=Nearestpt(G,F);
- P=Op(3,Tmp);
- T1=Op(4,Tmp);
- end
- end
- if length(KL)>1 // 15.04.10
- if S==[]
- disp('No Start Point');
- return
- end;
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- Tmp=norm(P-S);
- for I=2:length(KL)
- Tmp1=Op(1,Op(I,KL));
- Tmp2=norm(Tmp1-S);
- if 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
deleted file mode 100644
index 36e0755f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
deleted file mode 100644
index ff4a3c43..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Endpicture.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 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
deleted file mode 100644
index 027661d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
deleted file mode 100644
index b9c86eef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepara.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 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
deleted file mode 100644
index d5745d92..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
deleted file mode 100644
index 15ddd0a8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Evlptablepers.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.09.21
-// 13.11.01 ( __ added to varibles )
-
-function [Zval__,Xval__,Yval__]=Evlptablepers(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp__1=Mixop(3,MS__);
- if type(Tmp__1)==1 & length(Tmp__1)==1
- Ndv__=Tmp__1;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__-1);
- Dv__=(V2__-V1__)/(Ndv__-1);
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v__1=v__-Eps__/2; v__2=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__v=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmp__v,Uname__,'u__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__v,Uname__,'u__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__u=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmp__u,Vname__,'v__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__u,Vname__,'v__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
deleted file mode 100644
index a18f4f27..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
deleted file mode 100644
index 2a4d1491..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Execmd.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.16
-// 10.02.24
-
-function Execmd(StrL)
- for I=1:length(StrL)
- execstr(Op(I,StrL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
deleted file mode 100644
index b714247e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
deleted file mode 100644
index 5b9df24b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Expr.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Expr(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu='$'+varargin(I+2)+'$';
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
deleted file mode 100644
index ea7beb15..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
deleted file mode 100644
index d51dfa91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Exprrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Exprrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu='$'+varargin(N)+'$';
- Tv=1/norm(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/norm(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
deleted file mode 100644
index 9c11aaad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
deleted file mode 100644
index ae0bea54..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 09.10.29
-// 10.02.07 debugged
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CLadd)//
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
deleted file mode 100644
index d32b2b3d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
deleted file mode 100644
index 7dc8bef1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Faceremovaldata0.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// NEW
-// Faceremovaldata
-// 09.10.24
-// 09.10.26
-// 09.10.27
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
deleted file mode 100644
index 10b573ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
deleted file mode 100644
index 0ed2f249..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata.sci
+++ /dev/null
@@ -1,154 +0,0 @@
-/////////
-// 09.10.29
-// 11.01.13 (HiddenL) remodified 110122
-// 13.03.30 (HiddenL) debugged 140330
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- EdgeL=list(); // from 13.03.30
- for K=1:length(VELHI)
- Edge=Op(1,VELHI(K));
- P=Edge(1); Q=Edge(2);
- if norm(P-Q)>Eps then
- EdgeL($+1)=Edge;
- end
- end
- for K=1:length(EdgeL)
- Edge=EdgeL(K); //
- P=Edge(1); Q=Edge(2);
- Cflg=0;
- for J=K+1:length(EdgeL)
- Ej=EdgeL(J); //
- Pj=Ej(1); Qj=Ej(2);
- if norm(Crossprod(Q-P,Qj-Pj))>Eps then
- continue
- end
- if norm(Q-Pj)<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
deleted file mode 100644
index 8af8ea49..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
deleted file mode 100644
index c300cf6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Facesdata0.sci
+++ /dev/null
@@ -1,88 +0,0 @@
-// 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
deleted file mode 100644
index 513db3d6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
deleted file mode 100644
index 062fcc5c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Findcell.sci
+++ /dev/null
@@ -1,127 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.14
-// 10.01.12
-// 10.01.13
-// 10.01.14
-
-function Out=Findcell(varargin)//TbL,Nrg,Mrg
- Nargs=length(varargin);
- TbL=varargin(1);
- Ag=varargin(2);
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- if type(Ag)==10
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- Mrg=eval(Rstr);
- if Nargs>=3
- Ag=varargin(3);
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg2=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg2=Nrg2+Tmp*26^Tmp1;
- end;
- Nrg=[Nrg,Nrg2];
- Mrg=[Mrg,eval(Rstr)];
- end;
- else
- Nrg=varargin(2);
- Mrg=varargin(3);
- end;
- if length(Mrg)==1
- m1=Mrg; m2=m1+1;
- else
- m1=Mrg(1); m2=Mrg(2);
- end;
- if length(Nrg)==1
- n1=Nrg; n2=n1+1;
- else
- n1=Nrg(1); n2=Nrg(2);
- end;
- n1=n1+1; n2=n2+1;
- m1=m1+1; m2=m2+1;
- Hind=TbL(2);
- Vind=TbL(3);
- HL=Mixsub(TbL(2),TbL(1));
- Tmp1=Op(1,TbL(4));
- Tmp2=Op(2,TbL(4));
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- VL=Mixsub(TbL(3),TbL(1));
- Tmp1=Op(1,TbL(5));
- Tmp2=Op(2,TbL(5));
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=TbL(6);
- Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]);
- Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]);
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]);
- Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]);
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=HL(n1);
- if type(Tmp)==1
- H1=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H1=Tmp1(1,1);
- end;
- Tmp=HL(n2);
- if type(Tmp)==1
- H2=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H2=Tmp1(1,1);
- end;
- Tmp=VL(m1);
- if type(Tmp)==1
- V1=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V1=Tmp1(1,2);
- end;
- Tmp=VL(m2);
- if type(Tmp)==1
- V2=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V2=Tmp1(1,2);
- end;
- Pt=[(H1+H2)/2,(V1+V2)/2];
- High=(V1-V2)/2;
- Wide=(H2-H1)/2;
- Out=list(Pt,Wide,High);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
deleted file mode 100644
index 54c4fa4b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
deleted file mode 100644
index 903679ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Flattenlist.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 10.11.13
-
-function Out=Flattenlist(varargin)
- Out=list();
- for N=1:length(varargin)
- D=varargin(N);
- if type(D)~=15
- Out($+1)=D;
- else
- for I=1:length(D)
- Ds=D(I);
- Tmp=Flattenlist(Ds);
- Out=lstcat(Out,Tmp);
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
deleted file mode 100644
index e1a1d3b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
deleted file mode 100644
index 218b599f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fontsize.sci
+++ /dev/null
@@ -1,54 +0,0 @@
-function Fontsize(Ookisa)
- global Wfile FID;
- Str='%';
- Ucode=ascii(Ookisa);
- S=char(Ucode(1));
- if S=='n'
- Str='\normalsize%';
- end
- if S=='s'
- if length(Ucode)==1
- Tmp='';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='s'
- Str='\scriptsize%';
- else
- Str='\small%';
- end
- end
- if S=='f'
- Str='\footnotesize%';
- end
- if S=='t'
- Str='\tiny%';
- end
- if S=='l'
- Str='\large%';
- end
- if S=='L'
- if length(Ucode)==1
- Tmp='a';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='a'
- Str='\Large%';
- else
- Str='\LARGE%';
- end
- end
- if S=='h'
- Str='\huge%';
- end
- if S=='H'
- Str='\Huge%';
- end
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
deleted file mode 100644
index de2203fe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
deleted file mode 100644
index af259244..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriercoeff.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.03.13
-
-function Out=Fouriercoeff(Fn,T,Ch,K)
- Eps=10^(-5);
- L=T/2;
- Tmp1='Out=FUNC(x)';
- if Ch=='c'
- Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)';
- else
- Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)';
- end;
- deff(Tmp1,Tmp2);
- Out=10*intg(-0.1,0.1,FUNC);
- if K==0
- Out=Out/2;
- end;
- if abs(Out)<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
deleted file mode 100644
index cc5d39c4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
deleted file mode 100644
index 2d0d840b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/FouriercoeffL.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 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
deleted file mode 100644
index 91dee3ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
deleted file mode 100644
index 6182f4a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fouriersum.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 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
deleted file mode 100644
index 4cc02afc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
deleted file mode 100644
index 437ff122..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fracform.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 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
deleted file mode 100644
index 828acf25..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
deleted file mode 100644
index 071f7381..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Framedata.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 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
deleted file mode 100644
index 5e765044..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
deleted file mode 100644
index 97ddae5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Fullformfunc.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 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
deleted file mode 100644
index ba4a0779..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
deleted file mode 100644
index 3d17995e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gaiseki.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function G=Gaiseki(a,b)
- if length(a)==3
- Tmp=[a(2)*b(3)-a(3)*b(2),...
- a(3)*b(1)-a(1)*b(3),...
- a(1)*b(2)-a(2)*b(1)];
- else
- Tmp=a(1)*b(2)-a(2)*b(1);
- end;
- G=Tmp;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
deleted file mode 100644
index a66e7b20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
deleted file mode 100644
index ca4e0d2a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Getcounter.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Getcounter()
- global GCOUNTER;
- Out=GCOUNTER;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
deleted file mode 100644
index d0751e37..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
deleted file mode 100644
index 5395d885..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Gettrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Gettrace();
- global TRACEDATA;
- Out=TRACEDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
deleted file mode 100644
index 4e13bb0c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
deleted file mode 100644
index 236287ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hatchdata.sci
+++ /dev/null
@@ -1,141 +0,0 @@
-// 08.05.21
-// 09.10.05
-// 09.12.25
-// 10.01.20
-// 10.02.01
-// 10.11.04 ( debugged 83 )
-
-function ShaLs=Hatchdata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- ShaL=[];
- Nargs=length(varargin);
- Kakudo=45;
- Kankaku=0.125*1000/2.54/MilliIn;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if 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
deleted file mode 100644
index b7f91dc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
deleted file mode 100644
index 7bc05ed9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Hexahedrondata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 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
deleted file mode 100644
index d4296e92..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
deleted file mode 100644
index 2ead122d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/HiddenWireData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 65df35b0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
deleted file mode 100644
index ab8a54b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Htickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 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
deleted file mode 100644
index 39861c63..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
deleted file mode 100644
index ae02fee1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ImplicitData.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 08.10.10 (Name)
-
-function Out=ImplicitData()
- global IMPLICITDATA
- Out=IMPLICITDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
deleted file mode 100644
index 875a82b3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
deleted file mode 100644
index b0715484..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Implicitplot.sci
+++ /dev/null
@@ -1,61 +0,0 @@
-// 08.09.09
-// 08.09.20
-// 13.10.19 ( __ added to variables )
-
-function Out__=Implicitplot(varargin)
- Eps__=10^(-4);
- Nargs__=length(varargin);
- Fstr__=varargin(1);
- if Mixtype(Fstr__)~=1
- MS__=Fstr__;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- elseif type(Fstr__)==10
- MS__=[];
- for I__=1:Nargs__
- MS__=Mixadd(MS__,varargin(I__));
- end;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- else
- Zval__=varargin(1);
- Xval__=varargin(2);
- Yval__=varargin(3);
- end;
- Out__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- if abs(VL__(K__))<=Eps__
- QL__=[QL__;PL__(K__,:)];
- elseif VL__(K__)>Eps__
- if VL__(K__+1)<-Eps__
- Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)...
- + VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end
- else
- if VL__(K__+1)>Eps__
- Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)...
- - VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end;
- end;
- end;
- if size(QL__,1)==2
- Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)];
- end;
- end;
- end;
- Out__=Out__(2:size(Out__,1),:);
- if size(Out__,1)>0
- Out__=Connectseg(Out__);
- else
- Out__=[];
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
deleted file mode 100644
index 37882bfa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
deleted file mode 100644
index 9dacd30c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/InWindow.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Rx=InWindow(PA)
- global XMIN XMAX YMIN YMAX
- Eps=10.0^(-6);
- X=PA(1); Y=PA(2);
- if X>XMIN-Eps & 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
deleted file mode 100644
index 80050aeb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
deleted file mode 100644
index d5e09ff4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Initangle.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 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
deleted file mode 100644
index cca9ea76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
deleted file mode 100644
index abd3377f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Integrate.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// 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
deleted file mode 100644
index 9c865940..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
deleted file mode 100644
index 59b4fdcc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvs.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 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
deleted file mode 100644
index 806ccfa3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
deleted file mode 100644
index a1218d06..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
+++ /dev/null
@@ -1,101 +0,0 @@
-// 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
deleted file mode 100644
index fd6bbac1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
deleted file mode 100644
index 2a2e5b6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectcrvsf.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 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
deleted file mode 100644
index 12e2536d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
deleted file mode 100644
index ed92a5aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Intersectlines.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 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
deleted file mode 100644
index 12429fff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
deleted file mode 100644
index 4b246e95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/IntersectselfPp.sci
+++ /dev/null
@@ -1,95 +0,0 @@
-// 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
deleted file mode 100644
index a247d3a0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
deleted file mode 100644
index bf6f976f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invdashline.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 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
deleted file mode 100644
index ab928c50..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
deleted file mode 100644
index 9f9f9d95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invert.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.31
-
-function OutL=Invert(Pd)
- OutL=Pd(size(Pd,1):-1:1,:);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
deleted file mode 100644
index b5f41832..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
deleted file mode 100644
index 4d7863b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invparapt.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.07.11
-// 08.08.17
-// 09.10.31
-// 09.11.12
-
-function Out=Invparapt(varargin)
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & size(Tmp)==1
- Ph=Tmp;
- Fh=varargin(2);
- else
- Fh=Projpara(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- T2=S0;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
deleted file mode 100644
index 10fe9aa7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
deleted file mode 100644
index c2c35355..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Invperspt.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.08.12
-// 09.10.31
-// 09.11.12
-
-function Out=Invperspt(varargin)
- global FocusPoint EyePoint;
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Ph=varargin(1);
- Fh=varargin(2);
- else
- Fh=Projpers(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- Phc=Cancoordpers([Ph,0]);
- Ahc=Cancoordpers([Ah,0]);
- Bhc=Cancoordpers([Bh,0]);
- Vp=Phc-EyePoint;
- Va=Ak-EyePoint;
- AB=Bk-Ak;
- Cp=Crossprod(Vp,AB);
- Nmr=Crossprod(Va,Vp);
- Mx=max(abs(Cp));
- if abs(Cp(1))==Mx
- T2=Nmr(1)/Cp(1);
- elseif abs(Cp(2))==Mx
- T2=Nmr(2)/Cp(2);
- else
- T2=Nmr(3)/Cp(3);
- end;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
deleted file mode 100644
index 13bbbe42..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
deleted file mode 100644
index 04aaf4eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joincrvs.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.31
-// 08.08.22
-// 08.09.14
-// 08.09.20
-// 08.10.27
-// 11.06.25
-
-function PtL=Joincrvs(varargin)
- Nall=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- Nall=Nall-1;
- end;
- QdL=list();
- for I=1:Nall
- QdL($+1)=varargin(I); // 11.06.25
- end;
- QdL=Flattenlist(QdL); // 11.06.25
- if length(QdL)==0
- PtL=[];
- return;
- end;
- PtL=[Mixop(1,QdL)];
- for I=2:Mixlength(QdL)
- Qd=QdL(I);
- if Numptcrv(Qd)<=1 // 11.06.25
- continue;
- end;
- P=Ptend(PtL)
- S=Ptstart(PtL);
- Q=Ptstart(Qd);
- R=Ptend(Qd);
- MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R));
- if MN==norm(P-R)
- Qd=Invert(Qd);
- elseif MN==norm(S-Q)
- PtL=Invert(PtL);
- elseif MN==norm(S-R);
- PtL=Invert(PtL);
- Qd=Invert(Qd);
- end;
- if MN>Eps
- PtL=[PtL;Qd];
- else
- PtL=[PtL;Qd(2:size(Qd,1),:)];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
deleted file mode 100644
index 5baec784..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
deleted file mode 100644
index 78cd46e5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Joingraphics.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-// 11.11.02 (for list structure)
-
-function P=Joingraphics(varargin)
- Ls=Flattenlist(varargin);
- N=length(Ls);
- Tp=Ls(N);
- Listflg=0;
- if type(Tp)==10
- Tmp=part(Tp,1);
- if Tmp=="L"|Tmp=="l"
- Listflg=1
- end;
- N=N-1;
- Ls=Mixsub(1:N,Ls);
- end;
- if Listflg==1
- P=Ls
- else
- P=[];
- for I=1:N
- Tmp=Ls(I);
- P=[P;%inf,%inf;Tmp];
- end;
- P=P(2:size(P,1),:)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
deleted file mode 100644
index 5d029c80..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
deleted file mode 100644
index bbe02e62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ketinit.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-// 08.07.08 PHI,THETA,FocusPoint,EyePoint;
-// 08.08.08
-// 08.08.31
-// 08.09.18
-// 09.10.09 ASSIGNLIST
-// 09.12.25 SCALING
-// 10.04.16 TEXFOR
-// 13.05.19 funcprot(0)
-// 13.03.05 MARKLEN instead of MEMORI
-
-function Ketinit()
- global THISVERSION
- global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX
- global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE
- global ULEN MilliIn PenThick PenThickInit ZIKU
- global MEMORI MEMORIInit MEMORINow GENTEN
- global MARKLEN MARKLENInit MARKLENNow
- global YaSize YaAngle YaPosition YaThick YaStyle
- global PHI THETA FocusPoint EyePoint ASSIGNLIST
- global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST
- funcprot(0); // 2013.05.19
- Setversion();
- XMIN=-5 ;XMAX=5;
- YMIN=-5 ; YMAX=5;
- ZIKU='line'; ARROWSIZE=1;
- XNAME='$x$' ; XPOS='e';
- YNAME='$y$' ; YPOS='n';
- ONAME='O' ; OPOS='sw';
- ULEN='1cm';
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- Wfile='default';
- MEMORI=0.05;
- MEMORIInit=MEMORI;
- MEMORINow=MEMORI;
- MARKLEN=0.05;
- MARKLENInit=MARKLEN;
- MARKLENNow=MARKLEN;
- GENTEN=[0,0];
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- PHI=30*%pi/180;
- THETA=60*%pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- ASSIGNLIST=list('`',char(39));
- SCALEX=1;
- SCALEY=1;
- LOGX=0;
- LOGY=0;
- TEXFORLEVEL=0;
- TEXFORLAST=list();
- endfunction;
- \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
deleted file mode 100644
index 2f1c2398..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
deleted file mode 100644
index c12b721e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kouten.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 09.06.01 (same as 05.19)
-
-function Out=Kouten(PA,V,P,Q);
- Eps=10.0^(-6);
- A1=PA(1); A2=PA(2);
- V1=V(1); V2=V(2);
- P1=P(1); P2=P(2);
- U1=Q(1)-P1; U2=Q(2)-P2;
- Tmp=norm(P-Q)*norm(V);
- if Tmp==0
- Out=[%inf,-%inf];
- return
- end
- D=U1*V2-U2*V1;
- if abs(D)/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
deleted file mode 100644
index ffe8ecfe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
deleted file mode 100644
index 82cf1e2c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/KoutenList.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.18
-// 08.05.20
-// 08.06.02
-
-function TenL=KoutenList(PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=[];
- for N=1:Mixlength(Bdy)
- KL=Op(N,Bdy);
- for K=1:size(KL,1)-1
- P=KL(K,:); Q=KL(K+1,:);
- if P~='/' & Q~='/'
- Tmp=Kouten(PA,V,P,Q);
- if Tmp~=[%inf,-%inf]
- Ten=Mixadd(Tmp,N);
- Flg=0;
- NN=Mixlength(TenL);
- I=1;
- while Flg==0 & I<=NN
- Tmp=Op(I,TenL);
- if Op(1,Ten)<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
deleted file mode 100644
index f7e0a110..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
deleted file mode 100644
index 371807fa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Koutenseg.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-//
-// 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
deleted file mode 100644
index 70d72423..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
deleted file mode 100644
index 0e38dae7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukannozoku.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 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
deleted file mode 100644
index 0d78251c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
deleted file mode 100644
index 4e38175f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kukeiwake.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 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
deleted file mode 100644
index fdf86c27..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
deleted file mode 100644
index a07a89d1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyorihensuu.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-function Kyorihensuu(varargin)
- if length(varargin)==0
- FL='default';
- else
- FL=varargin(1);
- if FL==''
- FL='tmp.tex'
- end
- end
- StrM=[...
- '\newlength{\Width}%',...
- '\newlength{\Height}%',...
- '\newlength{\Depth}%'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
deleted file mode 100644
index fcb5da5c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
deleted file mode 100644
index 4090c2da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Kyoukai.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 08.05.20
-// 08.05.30
-// 08.09.19
-// 08.10.26
-// 09.01.15 "e"
-// 09.05.18
-// 09.12.05
-// 16.11.03 Eps=10^(-5)
-// 16.12.05 Eps=10^(-7)
-
-function PLall=Kyoukai(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Eps0=10^(-7);
- DataL=[];
- for I=1:Nargs
- Tmp=varargin(I);
- if Mixtype(Tmp)==1
- Tmp1=MixS(Tmp);
- DataL=Mixadd(DataL,Tmp1);
- end
- if Mixtype(Tmp)==2
- DataL=Mixadd(DataL,Tmp);
- end
- if Mixtype(Tmp)==3
- DataL=Mixjoin(DataL,Tmp);
- end
- end;
- Eps=10.0^(-4);
- PLall=[];
- Sflg=0;
- N=Mixlength(DataL);
- for I=1:N
- Data=Op(I,DataL);
- Tmp=Op(Mixlength(Data),Data);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- elseif type(Tmp)==10
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- else
- Rg='c' ; Nd=Mixlength(Data);
- end;
- for J=1:Nd
- Tmp=Op(J,Data);
- if type(Tmp)==10
- Rg=Tmp;
- continue
- end
- Points=Tmp;
- P1=Ptstart(Points);
- P2=Ptend(Points);
- if J==1
- PL=Points;
- Pfirst=P1;
- Plast=P2;
- if Nd>=2
- Tmp=Op(2,Data);
- P=Ptstart(Tmp);
- Q=Ptend(Tmp);
- if norm(P2-P)>Eps & norm(P2-Q)>Eps
- Tmp=size(PL,1);
- PL=PL(Tmp:-1:1,:);
- Pfirst=Ptstart(PL);
- Plast=Ptend(PL);
- end;
- end
- else
- if norm(P1-Plast)<Eps
- 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
deleted file mode 100644
index 7949b7bf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
deleted file mode 100644
index 7a7a4b78..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letter.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Letter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
deleted file mode 100644
index dc1116b4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
deleted file mode 100644
index f99917cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Letterrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Letterrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu=varargin(N);
- Tv=1/Vecnagasa(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/Vecnagasa(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
deleted file mode 100644
index b8e9311a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
deleted file mode 100644
index bc44c2e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Lineplot.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 09.10.09
-// 09.10.12
-// 09.11.01
-// 09.11.12
-// 09.12.06
-// 10.12.04
-
-function Out=Lineplot(varargin)
- Nargs=length(varargin);
- A=varargin(1);
- if type(A)==1 // 09.11.12 from
- Tmp=length(A);
- if Tmp>3
- B=A(Tmp/2+1:Tmp);
- A=A(1:Tmp/2);
- Is=2;
- else
- B=varargin(2);
- Is=3;
- end;
- else
- B=A(2);
- A=A(1);
- Is=2;
- end; // upto
- Mag=100; Semi='';
- for I=Is:Nargs
- Tmp=varargin(I);
- select type(Tmp)
- case 1
- Mag=Tmp;
- case 10
- Semi=Tmp;
- end;
- end;
- V= Mag/norm(B-A)*(B-A) // 10.12.04 from here
- if Semi==""
- Out=Listplot(A-V,A+V)
- elseif Semi=="+"
- Out=Listplot(A,A+V)
- else
- Out=Listplot(A-V,A)
- end // 10.12.04 to here
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
deleted file mode 100644
index 5f1081ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
deleted file mode 100644
index 0bc9f736..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Listplot.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.07.13
-// 09.06.13
-
-function Z=Listplot(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- if size(Data,1)==1
- Tmp=matrix(Data,2,size(Data,2)/2);
- Z=[Z;Tmp'];
- else
- Z=[Z;Data];
- end;
- else
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
deleted file mode 100644
index e44f369d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
deleted file mode 100644
index 27e70d48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeBowdata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-//
-// 08.08.24
-// 10.01.02
-
-function Out=MakeBowdata(PA,PB,H)
- global BOWSTART BOWEND
- BOWSTART=PA;
- BOWEND=PB;
- Eps=10^(-5);
- D=1/2*Vecnagasa(PB-PA);
- R=(H^2+D^2)/(2*H);
- A1=PA(1); A2=PA(2);
- B1=PB(1); B2=PB(2);
- if abs(A2-B2)>Eps
- x=poly(0,'X');
- y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2);
- Eq1=(A1-x)^2+(A2-y)^2-R^2;
- Tmp=coeff(Eq1);
- C0=Tmp(1); C1=Tmp(2); C2=Tmp(3);
- Det=sqrt(C1^2-4*C0*C2);
- Ansx1=(-C1+Det)/(2*C2);
- Ansx2=(-C1-Det)/(2*C2);
- Tmp=horner(y,Ansx1);
- PC=[Ansx1,Tmp];
- Tmp=horner(y,Ansx2);
- PC2=[Ansx2,Tmp];
- else
- Tmp=0.5*(PA+PB);
- PC=Tmp+[0,R-H];
- PC2=Tmp-[0,R-H];
- end;
- VA=PA-PC;
- VB=PB-PC;
- if VA(1)*VB(2)-VA(2)*VB(1)<0
- PC=PC2;
- end
- AngA=acos((PA(1)-PC(1))/R);
- if PA(2)-PC(2)<0
- AngA=-AngA;
- end
- AngB=acos((PB(1)-PC(1))/R);
- if PB(2)-PC(2)<0
- AngB=-AngB;
- end
- if AngA>AngB
- AngB=AngB+2*%pi;
- end
- Out=Mixmake(PC,R,AngA,AngB);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
deleted file mode 100644
index f1333732..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
deleted file mode 100644
index f3bbd3ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeCurves.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-//
-// 09.12.25
-// 10.01.01
-// 10.12.02 ( debugged for norm()==0 )
-
-function Outdata=MakeCurves(varargin)
- Figdata=varargin(1);
- Ptout=1;
- if length(varargin)>=2
- Ptout=varargin(2);
- end
- Eps=10.0^(-6);
- IndM=Dataindex(Figdata);
- Atos=[];
- for Nd=1:size(IndM,1)
- Tmp=IndM(Nd,:);
- Motos=Figdata(Tmp(1):Tmp(2),:);
- All=size(Motos,1);
- if size(Motos,1)==1
- if InWindow(Motos)=='o'
- continue;
- end;
- if Ptout==1
- Drwpt(Motos(1,:));
- else
- Atos=[Atos;%inf,%inf;Doscaling(Motos)];
- end
- continue
- end
- Crv=[];
- for I=2:All
- P=Motos(I-1,:);
- Q=Motos(I,:);
- Snbn=MeetWindow(P,Q);
- if Snbn==[]
- if Crv~=[]
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=[];
- end
- else
- if norm(Snbn(1,:)-Snbn(2,:))<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
deleted file mode 100644
index 1c1d8d80..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
deleted file mode 100644
index 81b0492f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.09.19
-// 08.10.15
-// 08.12.21
-
-function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps)
- if CutuvL==[]
- if Mixtype(Out1)==1
- AnsL=Mix(Out1);
- else
- AnsL=Out1;
- end;
- return;
- end;
- AnsL=[];
- ParL=Partitionseg(Out1,CutuvL,Eps);
- Flg=0;
- for J=1:length(ParL)-1
- Tmp=(ParL(J)+ParL(J+1))*0.5;
- Tmp=PointonCurve(Tmp,Out1);
- Tmp1='('+string(Tmp(1))+')';
- Tmp2='('+string(Tmp(2))+')';
- Tmp=strsubst(Uveqstr,Uname,Tmp1);
- Tmp=strsubst(Tmp,Vname,Tmp2);
- Tmp=evstr(Tmp);
- if Tmp>0
- if Flg==0
- P1=ParL(J);
- end;
- Flg=1
- else
- if Flg==1
- P2=ParL(J);
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
- Flg=0
- end;
- end;
- if Flg==1
- P2=ParL(length(ParL));
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
deleted file mode 100644
index eb542783..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
deleted file mode 100644
index 9cf82362..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci
+++ /dev/null
@@ -1,119 +0,0 @@
-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
deleted file mode 100644
index ec29163f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
deleted file mode 100644
index e9915e1b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeliststr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.10.21
-
-function Out=Makeliststr(L)
- Out='list(';
- for I=1:length(L)
- Dt=L(I);
- if type(Dt)==1
- if length(Dt)==1
- Dts=string(Dt);
- else
- Dts='[';
- for J=1:size(Dt,1)
- for K=1:size(Dt,2)
- Dts=Dts+string(Dt(J,K));
- if 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
deleted file mode 100644
index a5b313ff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
deleted file mode 100644
index e24525e1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
+++ /dev/null
@@ -1,345 +0,0 @@
-// 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
deleted file mode 100644
index 04b49b15..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
deleted file mode 100644
index 443751be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeshasen.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.05.20
-// 09.10.05
-// 10.01.20
-// 10.02.01
-
-function Out=Makeshasen(PtnL,PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=KoutenList(PA,V,Bdy);
- Nten=length(TenL);
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- Out=list();
- GL=[]
- Te=-10.0^6;
- for I=1:Nten-1
- TenP=Op(I,TenL); TenQ=Op(I+1,TenL);
- Ts=Op(1,TenP);
- P=Op(2,TenP); Q=Op(2,TenQ);
- NC=Op(4,TenP);
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- if Op(1,TenQ)-Ts>Eps
- if Member(Ptn,PtnL)
- if abs(Te-Ts)>Eps
- if GL~=[]
- J=length(Out);
- Out(J+1)=GL;
- end;
- Tmp=Listplot(P,Q);
- GL=Tmp;
- else
- GL=[GL;Q];
- end
- Te=Op(1,TenQ);
- end
- end
- end
- if size(GL,1)>0
- Out=Mixjoin(Out,list(GL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
deleted file mode 100644
index ae09526a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
deleted file mode 100644
index 99ad5910..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletondata.sci
+++ /dev/null
@@ -1,171 +0,0 @@
-// 08.07.13
-// 08.10.16
-// 09.03.05
-// 09.05.12
-// 10.05.09
-// 14.07.05
-// 16.12.24 ( when kukanL=[] )
-
-function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // 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
deleted file mode 100644
index 76247746..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
deleted file mode 100644
index 4838d658..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
+++ /dev/null
@@ -1,188 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.05.12
-// 09.09.25
-// 10.05.09
-// 10.08.17
-// 14.07.05
-
-function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<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
deleted file mode 100644
index e8a0ce7a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
deleted file mode 100644
index dc917f30..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makevaltable.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.09
-// 08.10.08
-// 08.12.06
-// 08.12.30
-// 09.06.03
-// 13.10.19 ( __ added to variables )
-
-function [Zval__,Xval__,Yval__]=Makevaltable(MS__)
- Eps__=10^(-6);
- Nargs__=Mixlength(MS__);
- Fstr__=Mixop(1,MS__);
- Tmp__=Mixop(2,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,Tmp1__-1);
- Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=Mixop(3,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,Tmp1__-1);
- Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=strsubst(Fstr__,Xname__,'x');
- Fstr__=strsubst(Tmp__,Yname__,'y');
- Tmp__=mtlb_findstr(Fstr__,Xname__);
- if length(Tmp__)==0
- Fstr__=Fstr__+'+0*x';
- end;
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=4
- Tmp__=Mixop(4,MS__);
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==4
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(5,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end
- X1__=Xrange__(1); X2__=Xrange__(2);
- Y1__=Yrange__(1); Y2__=Yrange__(2);
- Dx__=(X2__-X1__)/(Mdv__-1);
- Dy__=(Y2__-Y1__)/(Ndv__-1);
- Xval__=[];
- Tmp__=X1__;
- while Tmp__<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
deleted file mode 100644
index 36526d8e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
deleted file mode 100644
index a16a5a4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
+++ /dev/null
@@ -1,68 +0,0 @@
-// 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
deleted file mode 100644
index e1c2db72..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
deleted file mode 100644
index fb8aa27b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makexybdy.sci
+++ /dev/null
@@ -1,111 +0,0 @@
-// 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
deleted file mode 100644
index 8f3c4b69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
deleted file mode 100644
index 11b02c63..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mawarikomi.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-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
deleted file mode 100644
index 1bc9eef3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
deleted file mode 100644
index 65f543ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MeetWindow.sci
+++ /dev/null
@@ -1,91 +0,0 @@
-//
-// 08.05.30 debugged
-// 08.08.14 (horner)
-// 09.12.31 (gsort)
-// 15.10.23 ( horner not used )
-// 16.12.29 (msprintf("%3.10f",..) used )
-
-function R=MeetWindow(PA,PB)
- global XMIN XMAX YMIN YMAX
- if InWindow(PA)=='i' & InWindow(PB)=='i'
- R=[PA;PB];
- return
- end;
- Eps=10.0^(-6);
- t=poly(0,'T');
- PT="(1-(t))*PA+(t)*PB";
- Txm=-1; TxM=-1; Tym=-1; TyM=-1;
- if PA(1)~=PB(1)
- Txm=(XMIN-PA(1))/(PB(1)-PA(1));
- TxM=(XMAX-PA(1))/(PB(1)-PA(1));
- end
- if PA(2)~=PB(2)
- Tym=(YMIN-PA(2))/(PB(2)-PA(2));
- TyM=(YMAX-PA(2))/(PB(2)-PA(2));
- end;
-// Tmp=horner(PT(2),Txm);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if 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
deleted file mode 100644
index 0392c6b0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
deleted file mode 100644
index 65ba1166..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Meetpoints.sci
+++ /dev/null
@@ -1,169 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 09.12.31 (gsort)
-// 13.10.22 ( __ added to varibles )
-// 13.12.02 debugged
-
-function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__)
- Eps__0=10^(-4);
- Vec__=PtB__-PtA__;
- Out__=[];
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,Fd__L);
- Vrg__str=Mixop(6,Fd__L);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- for J=1:length(Yval__)-1
- for I=1:length(Xval__)-1
- a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I);
- a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1);
- a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1);
- a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- 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
deleted file mode 100644
index 61d508ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
deleted file mode 100644
index 79826f90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Member.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.05.18
-
-// Structure changed
-// 09.10.11
-
-function TF=Member(A,L)
- if Mixtype(L)>1
- N=Mixlength(L);
- else
- N=length(L);
- end
- for I=1:N
- Tmp=Op(I,L);
- if A==Tmp
- TF=%t
- return
- end
- end
- TF=%f
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
deleted file mode 100644
index 2bc985c7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
deleted file mode 100644
index de8d4b0d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi.sci
+++ /dev/null
@@ -1,206 +0,0 @@
-// 08.08.21
-// 09.10.24
-// 09.10.26
-
-function Menkakusi(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | 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
deleted file mode 100644
index bcb9509f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
deleted file mode 100644
index 43eab74b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Menkakusi2.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 09.10.29
-// 09.11.15
-// 10.08.17 debug (line 66)
-
-function Menkakusi2(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<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
deleted file mode 100644
index 5b35bcb9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
deleted file mode 100644
index 4f06c437..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mix.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.20
-// 08.08.08
-
-// Structure changed
-// 09.10.11
-
-function M=Mix(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
deleted file mode 100644
index 92d14b2c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
deleted file mode 100644
index daf5a2d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixL.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function M=MixL(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
deleted file mode 100644
index 5a0d9b25..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
deleted file mode 100644
index 623af493..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MixS.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.19
-
-//Structure Changed
-
-// 09.10.11
-
-function M=MixS(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
deleted file mode 100644
index cb5b4953..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
deleted file mode 100644
index 8d45fea1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixadd.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 05.14 Data Structure
-// 05.16 List of MixList
-// 05.19 use:MixS, MixL, Mixtype
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function M=Mixadd(varargin)
- Nargs=length(varargin);
- M=list();
- Tmp=varargin(1);
- if length(Tmp)==0
- M(1)=varargin(2);
- else
- M=Tmp;
- M($+1)=varargin(2);
- end;
- for I=3:Nargs
- M($+1)=varargin(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
deleted file mode 100644
index c15a987e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
deleted file mode 100644
index 2fed1197..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixdisp.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.02
-
-function Mixdisp(L)
- if Mixtype(L)==1
- disp(L)
- return;
- end;
- Str=Makeliststr(L);
- disp(Str)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
deleted file mode 100644
index 3666302f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
deleted file mode 100644
index d6e49c14..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixjoin.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.18
-// 08.05.19 Changed
-// 08.08.15
-
-// Structure changed
-// 09.10.11
-
-function M=Mixjoin(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Tmp=varargin(I);
- if length(Tmp)==0
- continue;
- end;
- if Mixtype(Tmp)==1
- Tmp=list(Tmp);
- end;
- if length(M)==0
- M=Tmp;
- else
- M=lstcat(M,Tmp);
- end;
- end;
- if length(M)==0
- M=[];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
deleted file mode 100644
index d9515fd8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
deleted file mode 100644
index 6fd31749..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixlength.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.14 Data Structure
-// 08.05.23 Debugged
-
-// Structure changed
-// 09.10.11
-
-function Out=Mixlength(PL)
- if PL==[]
- Out=0;
- return
- end
- if Mixtype(PL)==1
- Out=size(PL,1);
- else
- Out=length(PL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
deleted file mode 100644
index b85a4f1a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
deleted file mode 100644
index 7f05a2ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixmake.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function PL=Mixmake(varargin)
- PL=list();
- for I=1:length(varargin)
- Tmp=varargin(I);
- PL=Mixadd(PL,Tmp);
- end
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
deleted file mode 100644
index f5ff95b4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
deleted file mode 100644
index 10c846dc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixop.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.05.14 Data Structure
-// 08.04.15 List ex N=1:3
-// 08.05.16 List of MixL
-// 08.05.18 Debugged
-// 08.05.19 Changed
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function D=Mixop(N,PL)
- D=[];
- if Mixtype(PL)==1
- D=PL;
- return;
- end;
- if type(N)~=1 | length(N)>1 | N>Mixlength(PL)
- return
- end;
- D=PL(N);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
deleted file mode 100644
index 116f9ae6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
deleted file mode 100644
index e3e281f3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixsub.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.19
-// 08.05.20 debugged
-// 08.06.02
-
-// Structure changed
-// 09.10.11
-
-function M=Mixsub(Rg,PL)
- M=list();
- N=Mixlength(PL);
- for I=Rg
- if I>N
- return;
- end;
- M($+1)=PL(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
deleted file mode 100644
index bd65bd09..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
deleted file mode 100644
index b336c763..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Mixtype.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function T=Mixtype(D)
- if type(D)~=15
- T=1;
- return;
- end;
- for I=1:length(D)
- if type(D(I))==15
- T=3;
- return;
- end;
- end;
- T=2;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
deleted file mode 100644
index 23f75fa2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
deleted file mode 100644
index 8a4f0557..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naigai.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.18
-// 08.05.20
-
-function Ptn=Naigai(A,Bdy)
- V=[1,1];
- Call=Mixlength(Bdy);
- KL=KoutenList(A,V,Bdy);
- Ptn=zeros(1,Call);
- for K=1:Mixlength(KL)
- Ten=Op(K,KL);
- T=Op(1,Ten); NC=Op(4,Ten);
- if T<0
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
deleted file mode 100644
index cc184ed1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
deleted file mode 100644
index 193ad384..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Naiseki.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Naiseki(a,b)
- N=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
deleted file mode 100644
index 70999c76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
deleted file mode 100644
index a404370a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nearestpt.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-// 08.05.31
-// 08.06.03
-// 08.10.07
-
-function Ans=Nearestpt(varargin)
- Nargs=length(varargin);
- PL1=varargin(1);
- if size(PL1,1)==1
- Flg=0;
- else
- Flg=1
- end
- Eps=10.0^(-6);
-// Fig=varargin(2);
- PL=varargin(2);
- Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:)));
- for N=1:size(PL1,1)
- PA=PL1(N,:);
- Pm=PL(1,:);
- Im=1;
- Sm=norm(Pm-PA);
- for I=1:size(PL,1)-1
- A1=PL(I,1); A2=PL(I,2);
- B1=PL(I+1,1); B2=PL(I+1,2);
- V1=B1-A1; V2=B2-A2;
- X1=PA(1); X2=PA(2);
- Tmp=V2^2+V1^2;
- if abs(Tmp)<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
deleted file mode 100644
index b3417b7a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
deleted file mode 100644
index 9e0227e8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Newlength.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-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
deleted file mode 100644
index a7c43a91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
deleted file mode 100644
index 3826b281..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara.sci
+++ /dev/null
@@ -1,254 +0,0 @@
-// 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
deleted file mode 100644
index 4bb581d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
deleted file mode 100644
index 996559db..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpara2.sci
+++ /dev/null
@@ -1,131 +0,0 @@
-// 08.10.10
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-
-function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps)
- global HIDDENDATA THETA PHI TMP;
- Eps0=10^(-5);
- Fh=Projpara(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<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
deleted file mode 100644
index 47aea6f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
deleted file mode 100644
index 140516b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers.sci
+++ /dev/null
@@ -1,253 +0,0 @@
-// 08.09.21
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpers(varargin)
- global EyePoint FocusPoint HIDDENDATA;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpers(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invperspt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*(EyePoint-Pk);
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if 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
deleted file mode 100644
index 65217043..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
deleted file mode 100644
index d49bce91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Nohiddenpers2.sci
+++ /dev/null
@@ -1,134 +0,0 @@
-// 08.10.11
-// 08.10.12
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-// 11.04.12 Eps0 (bug)
-// 13.11.02 bug
-
-function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps)
- global EyePoint FocusPoint HIDDENDATA;
- Eps0=10^(-5); // 11.04.12
- Fh=Projpers(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<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
deleted file mode 100644
index 6093f704..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
deleted file mode 100644
index dad4f4ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Numptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Numptcrv(Fig)
- N=size(Fig,1)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
deleted file mode 100644
index 1720cf7c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
deleted file mode 100644
index 20a86640..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objcurve.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// s : 2014.06.22
-// 2014.08.26 debugged 1,-1 => "+","-"
-// 2014.09.07 Objjoin added
-// 2016.10.09 Np in Spacecurve changed
-
-function Out=Objcurve(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args)
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Closed=norm(PL(length(PL))-PL(1))<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
deleted file mode 100644
index 1691debf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
deleted file mode 100644
index e8a80ff3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 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
deleted file mode 100644
index c6d194f0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
deleted file mode 100644
index 6c523fc2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objname.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// s: 2014.09.07
-
-function Objname()
- global OBJFIGNO OBJJOIN
- if OBJJOIN==0 then
- OBJFIGNO=OBJFIGNO+1;
- Gname="ketfig"+string(OBJFIGNO);
- Printobjstr("# "+Gname);
- Printobjstr("g "+Gname);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
deleted file mode 100644
index d9a85501..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
deleted file mode 100644
index ba5b346a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolygon.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolygon(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // 140907
- for J=1:length(PL)
- P=PL(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL(J)=[P(1:3),Np]
- end;
- end;
- if Nargs==1 then
- Tmp=PL(1);
- Cen=Tmp(1:3);
- Nc=Tmp(4)
- else
- Tmp=Args(2);
- if length(Tmp)==1 then
- Tmp1=PL(Tmp);
- Cen=Tmp1(1:3);
- Nc=Tmp(4)
- else
- Cen=Tmp;
- Nc=Writeobjpoint(Cen)
- end;
- end;
- for J=1:length(PL)
- if 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
deleted file mode 100644
index fed77a7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
deleted file mode 100644
index c33e23a8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objpolyhedron.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// 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
deleted file mode 100644
index 2a419206..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
deleted file mode 100644
index d8775fb3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objrecs.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// 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
deleted file mode 100644
index 99ec2207..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
deleted file mode 100644
index 15543b8a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsurf.sci
+++ /dev/null
@@ -1,114 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 2014.09.07 Objjoin added
-
-function Out=Objsurf(varargin)
- global OBJFIGNO OBJJOIN
- Args=varargin;
- Nargs=length(Args);
- Sel=Args(Nargs); Nargs=Nargs-1;
- Rf=Args(1);
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // // 140907
- PL=list();
- for J=1:(Mg+1)
- for K=1:(Ng+1)
- P=Rf(U(J),V(K));
- Np=Writeobjpoint(P)
- PL=lstcat(PL,list([P,Np]));
- end;
- end;
- Idx=1:(Ng+1):(Ng+1)*Mg+1;
- Pus=Mixsub(Idx,PL);
- Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1);
- Pue=Mixsub(Idx,PL);
- Idx=1:1:Ng+1;
- Pvs=Mixsub(Idx,PL);
- Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1);
- Pve=Mixsub(Idx,PL);
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=1:Mg
- for K=1:Ng
- P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K)))
- P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K)))
- P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1)))
- P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1)))
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2;
- end;
- Printobjstr(Str)
- end;
- end;
- Out=list(U,V,Pus,Pue,Pvs,Pve)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
deleted file mode 100644
index 09306fec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
deleted file mode 100644
index 808924a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objsymb.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// s : 2014.08.25
-
-function Objsymb(Symb,Thick,Face,Dir)
- for J=1:length(Symb)
- Objcurve(Symb(J),Thick,Face,Dir);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
deleted file mode 100644
index b73e2b6a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
deleted file mode 100644
index 42fde6a5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objthicksurf.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 14.09.07 Objjoin added
-
-function Out=Objthicksurf(varargin)
- global OBJJOIN
- Args=varargin;
- Nargs=length(Args)
- Sel=Args(Nargs); Nargs=Nargs-1;
- Selsurf=part(Sel,1); // from 6.22
- Selside=["0","0","0","0"]; // wesn
- Tmp=mtlb_findstr(Sel,"w");
- if length(Tmp)>0 then
- Selside(1)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"e");
- if length(Tmp)>0 then
- Selside(2)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"s");
- if length(Tmp)>0 then
- Selside(3)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"n");
- if length(Tmp)>0 then
- Selside(4)=part(Sel,Tmp+1)
- end;
- Nfth=Args(Nargs-2);
- Thick1=Args(Nargs-1);
- Thick2=Args(Nargs);
- Nargs=Nargs-3; // upto 6.22
- Rfth=Args(1); // 6.22
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // 140907 from
- Join=OBJJOIN;
- OBJJOIN=1; // upto
- deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)");
- deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)");
- Dt1=Objsurf(F1,U,V,Selsurf);
- if Selsurf=="+" then Tmp="-"; else Tmp="+"; end;
- Dt2=Objsurf(F2,U,V,Tmp);
- Out=list(Dt1,Dt2); //from 06.22
- if Selside(1)~="0" then
- Dt=Objrecs(Dt1(3),Dt2(3),Selside(1));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(2)~="0" then
- Dt=Objrecs(Dt1(4),Dt2(4),Selside(2));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(3)~="0" then
- Dt=Objrecs(Dt1(5),Dt2(5),Selside(3));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(4)~="0" then
- Dt=Objrecs(Dt1(6),Dt2(6),Selside(4));
- Out=lstcat(Out,list(Dt));
- end; // upto 6.22
- OBJJOIN=Join // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
deleted file mode 100644
index fde60066..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
deleted file mode 100644
index 519bc9da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Op.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.10 available for plotdata
-// 10.01.12 available for Dataindexed
-// 10.01.16
-
-function C=Op(N,Data)
- C=[];
- if Mixtype(Data)>1
- C=Mixop(N,Data);
- return;
- end;
- if type(Data)==10
- if size(Data,2)==1
- C=part(Data,N:N);
- else
- C=Data(N)
- end;
- return;
- end;
- if type(Data)==1
- if size(Data,1)==1
- C=Data(N);
- else
- Din=Dataindex(Data);
- if size(Din,1)==1
- C=Data(N,:);
- else
- C=Data(Din(N,1):Din(N,2),:);
- end;
- end;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
deleted file mode 100644
index aaf01a9b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
deleted file mode 100644
index 4007e1b3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openfile.sci
+++ /dev/null
@@ -1,106 +0,0 @@
-
-//
-// 10.01.10 filename written
-// 13.05.20 openfile error tackled
-// creator and date recorded
-// 13.11.01 Beginpicture joined optionally
-
-function Openfile(varargin)
- global Wfile FID;
-
- function Out=Datecount(F)
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- Year=Tmp(1);
- Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9);
- Out=[Year,Sec];
- endfunction
-
- function Out=Datestr(F)
- if F~="" then
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- else
- Tmp=getdate();
- end;
- Year=Tmp(1);
- Month=Tmp(2);
- Day=Tmp(6);
- Hour=Tmp(7);
- Min=Tmp(8);
- D=string(Year)+"-"+string(Month)+"-"+string(Day);
- T=string(Hour)+":"+string(Min);
- Out=D+" "+T;
- endfunction
-
- File=varargin(1);
- Bflg=0;
- Creator='';
- Cflg=0;
- Nargs=length(varargin);
- for N=2:Nargs
- Tmp=varargin(N);
- K=mtlb_findstr(Tmp,"=");
- if length(K)>0 then
- Creator=part(Tmp,(K+1):length(Tmp));
- Cflg=1;
- else
- Bflg=1;
- Unitstr=Tmp
- end
- end;
- Recentf='';
- Tmp1=dir("*.sce");
- Files=Tmp1(2);
- if size(Files,1)>0 then
- Recentf=Files(1,:);
- Dt=Datecount(Recentf);
- for J=2:size(Files,1)
- F=Files(J,:);
- D=Datecount(F);
- if D(1)~=Dt(1) then
- if D(1)>Dt(1) then
- Recentf=F;
- Dt=D;
- end
- continue
- end
- if D(2)>Dt(2) then
- Recentf=F;
- Dt=D;
- end
- end;
- end;
- StrW="%%% "+File+" "+Datestr("")
- StrC="%%% "+Creator;
- if Cflg==0 then
- if Recentf~="" then
- StrC=StrC+Recentf+" "+Datestr(Recentf);
- end
- end
- if File =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); // 2017.02.18 from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); // 2017.02.18 upto
- FID=mopen(File,'w');
- Wfile=File;
- end
- if Wfile=='default'
- mprintf('%s\n%s\n',StrW,StrC);
- else
- mfprintf(FID,'%s\n%s\n',StrW,StrC);
- end
- if Bflg==1 then
- Beginpicture(Unitstr)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
deleted file mode 100644
index 0562b2b2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
deleted file mode 100644
index e902ce5d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openobj.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// s : 2014.06.22
-// e : 14.09.07
-
-function Out=Openobj(Fnm)
- global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
- OBJFMT= "%7.4f";
- NPOINT= 0;
- NNORM=0;
- OBJSCALE=1;
- OBJFIGNO=0;
- OBJJOIN=0; // 140906
- if Fnm =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); //17.02.18from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); //17.02.18upto
- if length(mtlb_findstr(Fnm,".obj"))==0
- Fnm=Fnm+".obj";
- end;
- FID=mopen(Fnm,'w');
- Wfile=Fnm;
- Out=Wfile;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
deleted file mode 100644
index 4fad25f8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
deleted file mode 100644
index a3056f66..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpar.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.31
-
-function Openpar(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Tmp=varargin(1);
- Tmp1=Strop(1,Tmp);
- if Tmp1=='\' | Tmp1=='Â¥'
- Namestr=Tmp;
- N=2;
- else
- Namestr='\tmp';
- N=1;
- end
- Habastr=varargin(N);
- if Nargs>N
- Posstr='['+varargin(N+1)+']';
- else
- Posstr='[c]'
- end
- Openphr(Namestr);
- S='\begin{minipage}'+Posstr+'{'+Habastr+'}%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
deleted file mode 100644
index 3324d29e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
deleted file mode 100644
index 461549e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openphr.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.05.31
-
-function Openphr(Str)
- global Wfile FID
- S='\def'+Str+'{%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
deleted file mode 100644
index 6f58ed83..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
deleted file mode 100644
index edf043ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Openpicture.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-//
-// 09.12.25
-// 11.05.25
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Openpicture(ul)
- global Wfile FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1);
- Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1);
- YM=Tmp(2);
- Dx=XM-Xm;
- Dy=YM-Ym;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if ul~=''
- ULEN=ul;
- end
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)~=[]
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
- if Wfile=='default'
- mprintf('%s%s%s\n','{\unitlength=',ULEN,'%');
- mprintf('%s\n','\begin{picture}%');
- mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%');
- Str='\special{pn '+string(PenThickInit)+'}%';
- mprintf('%s\n',Str);
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%');
- mfprintf(FID,'%s\n','\begin{picture}%');
- mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25
- Str='\special{pn '+string(PenThickInit)+'}%';
- mfprintf(FID,'%s\n',Str);
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
deleted file mode 100644
index 75982c37..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
deleted file mode 100644
index 8889de32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-function Ovalbox(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Pos=varargin(1);
- Dr=varargin(2);
- StrV=varargin(3);
- R=0.2;
- NDflg=0;
- for I=4:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- R=Tmp;
- else
- if part(Tmp,1)=='-'
- NDflg=1;
- Tmp1=part(Tmp,2:length(Tmp));
- Cmdstr=strsubst(Tmp1,'*','G1');
- end;
- end;
- end;
- Xr=[XMIN,XMAX];
- Yr=[YMIN,YMAX];
- Uv=0.6; Uh=0.8;
- N=length(StrV);
- W=Uh; H=Uv*N;
- Setwindow([-W/2,W/2],[-H,0]);
- G1=Ovaldata([0,-H/2],W/2,H/2,R);
- Openphr('\ketpictmp');
- Beginpicture('1cm');
- if NDflg==0
- Drwline(G1);
- else
- execstr(Cmdstr);
- end;
- for I=1:N
- Letter([0,Uv/2-Uv*I],'c',Op(I,StrV))
- end;
- Endpicture(0);
- Closephr();
- Setwindow(Xr,Yr);
- Letter(Pos,Dr,'\ketpictmp');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
deleted file mode 100644
index c39ee4b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
deleted file mode 100644
index 823fc8c4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// e : 2015.11.15
-function Out=Ovaldata(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs<=1
- Eps=1.0*10^(-4);
- C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- Dx=XMAX-C(1)-Eps;
- Dy=YMAX-C(2)-Eps;
- N=1;
- else
- C=varargin(1);
- Dx=varargin(2);
- Dy=varargin(3);
- N=4;
- end;
- Rc=0.2;
- if N<=Nargs
- Rc=varargin(N)*Rc; // 15.11.15
- end;
- Out=[];
- P=C+[Dx-Rc,Dy-Rc];
- Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10');
- Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]);
- Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]);
- G=Joincrvs(Tmp3,Tmp1,Tmp2);
- Tmp=Reflectdata(G,[C,C+[0,1]]);
- G=Joincrvs(G,Tmp);
- Tmp=Reflectdata(G,[C,C+[1,0]]);
- Out=Joincrvs(G,Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
deleted file mode 100644
index 9695687c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
deleted file mode 100644
index 82ac7c4f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.06.18
-
-function P=Paramark(varargin)
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- PC=varargin(3);
- R=0.5;
- if Nargs>=4
- R=varargin(4)*R;
- end
- U=R*(PA-PB)/Vecnagasa(PA,PB);
- V=R*(PC-PB)/Vecnagasa(PC,PB);
- if Gaiseki(PA-PB,PC-PB)~=0
- P=Listplot([PB+U,PB+U+V,PB+V]);
- else
- P=[];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
deleted file mode 100644
index 323d0fcd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
deleted file mode 100644
index ce7e0d76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ParamonCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.30
-
-function Out=ParamonCurve(P,N,PtL)
-// PtL=Plt;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=V(1)^2+V(2)^2;
- S=(V(1)*W(1)+V(2)*W(2))/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
deleted file mode 100644
index 14f251f7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
deleted file mode 100644
index 83661787..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramoncrv.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 09.10.03
-
-function Out=Paramoncrv(varargin)
- Eps=10^(-8);
- Nargs=length(varargin);
- P=varargin(1);
- Gdata=varargin(Nargs);
- if size(P,1)>1
- Tmp=P; P=Gdata; Gdata=Tmp;
- end;
- if Nargs==2
- Tmp=Nearestpt(P,Gdata);
- Out=Mixop(2,Tmp);
- return;
- end;
- N=varargin(2);
- PtL=Gdata;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=norm(V)^2;
- if D2<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
deleted file mode 100644
index fc163602..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
deleted file mode 100644
index 4e3effdc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramplot.sci
+++ /dev/null
@@ -1,140 +0,0 @@
-// 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
deleted file mode 100644
index 092914d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
deleted file mode 100644
index 5adb4837..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 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
deleted file mode 100644
index 73386a71..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
deleted file mode 100644
index 0b4844df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 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
deleted file mode 100644
index 5d9d9e2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
deleted file mode 100644
index 5b3cd178..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partcrv3.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.13
-// 09.03.06
-
-function PL=Partcrv3(T1,T2,Fk)
- Eps=10^(-4);
-// Tmp=Mixop(1,Fk);
- // new part from
- if T1>T2+Eps
- Npt=size(Fk,1);
- Out1=Partcrv3(T1,Npt,Fk);
- Out2=Partcrv3(1,T2,Fk);
- Tmp=Fk(1,:)-Fk(Npt,:);
- if norm(Tmp)<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
deleted file mode 100644
index bf10f26e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
deleted file mode 100644
index a8581b1b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 13.05.03
-
-function Out=Partframe(Tb,St,Ed)
- G=Dividetable(Tb);
- Gw=G(1);
- Gt=G(2);
- Gy=G(3);
- Gwt=Tb(4);
- Gwy=Tb(5);
- Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2)));
- Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2)));
- Tmp1=Ptstart(Gat(St(1)));
- Tmp2=Ptstart(Gay(St(2)));
- Ps=[Tmp1(1),Tmp2(2)];
- Tmp1=Ptstart(Gat(Ed(1)));
- Tmp2=Ptstart(Gay(Ed(2)));
- Pe=[Tmp1(1),Tmp2(2)];
- Pars=Paramoncrv(Ps,Gw);
- Pare=Paramoncrv(Pe,Gw);
- if 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
deleted file mode 100644
index badede95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
deleted file mode 100644
index 15d74ec4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PartitionPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index b732c600..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
deleted file mode 100644
index 39c23c45..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partitionseg.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-// 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
deleted file mode 100644
index e48ca436..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
deleted file mode 100644
index eb689ffe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Perspt.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.08.12
-
-function Out=Perspt(P)
- global FocusPoint EyePoint;
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Yz,Zz];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
deleted file mode 100644
index 6c1648ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
deleted file mode 100644
index ea2c8e28..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhFaceL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhFaceL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHFACEL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
deleted file mode 100644
index a76d1351..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
deleted file mode 100644
index d5333cd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
deleted file mode 100644
index 6f261d0b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
deleted file mode 100644
index 1eae4bc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PhVertexL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhVertexL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHVERTEXL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
deleted file mode 100644
index c447109d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
deleted file mode 100644
index 9c7806f5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutdata.sci
+++ /dev/null
@@ -1,173 +0,0 @@
-// 08.08.17
-// 08.09.16
-// 10.01.02
-// 13.10.21 ( __ added to varibles )
-// 14.06.09 ( debugged -- the cause unknown )
-
-function Out__=Phcutdata(VL__,FaceL__,PlaneD__)
- global PHCUTPOINTL
- Out__=[];
- EL__=[];
- Eps__=10^(-4);
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- for J__=1:length(Face__)
- Nj__=J__+1;
- if J__==length(Face__)
- Nj__=1;
- end;
- N1__=Face__(J__); N2__=Face__(Nj__);
- Tmp__=[N1__,N2__];
- Flg__=0;
- for K__=1:Mixlength(EL__)
- Tmp1__=Mixop(K__,EL__);
- Tmp2__=[Tmp1__(2),Tmp1__(1)];
- if Tmp__==Tmp1__ | Tmp__==Tmp2__
- Flg__=1;
- break;
- end
- end;
- if Flg__==0
- EL__=Mixadd(EL__,Tmp__);
- end;
- end;
- end;
- Out0__=[];
- for I__=1:Mixlength(EL__)
- Tmp__=Mixop(I__,EL__);
- Tmp1__=Mixop(Tmp__(1),VL__);
- Tmp2__=Mixop(Tmp__(2),VL__);
- Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__]));
- end;
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- if V1__==[0,0,0]
- Out__=Out0__;
- return;
- end;
- V3__=[1,0,0];
- Out1__=Rotate3data(Out0__,V1__,V3__);
-// x=poly(0,'X');
- Tmp2__=Rotate3pt([1,0,0],V3__,V1__);
- Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3);
- x0__=d__/Tmp__;
- t__=poly(0,'T');
- PtL__ =[];
- for I__=1:Mixlength(Out1__)
- Tmp__=Mixop(I__,Out1__);
- Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:);
- P__=Tmp1__+t__*(Tmp2__-Tmp1__);
- Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1));
- if abs(coeff(Tmp__,1))<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
deleted file mode 100644
index 9e24e48d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
deleted file mode 100644
index 879067ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phcutoffdata.sci
+++ /dev/null
@@ -1,184 +0,0 @@
-// 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
deleted file mode 100644
index 4105b83f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
deleted file mode 100644
index 02fe98a5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phidegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 8e0c2f4b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
deleted file mode 100644
index 835c173e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index bd4d18f5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
deleted file mode 100644
index e422b6fc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 83ccabf1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
deleted file mode 100644
index c4c79c26..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index c2072a26..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
deleted file mode 100644
index 29870630..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 4a5a308d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
deleted file mode 100644
index 3c8018e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 9d90d190..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
deleted file mode 100644
index 58ab8101..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phspersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index ef215643..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
deleted file mode 100644
index 6928d928..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index b571d4dd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
deleted file mode 100644
index 21677841..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Phsrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index fb253985..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
deleted file mode 100644
index fc548f28..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Plotdata.sci
+++ /dev/null
@@ -1,138 +0,0 @@
-//
-// 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
deleted file mode 100644
index 1a7c1121..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
deleted file mode 100644
index 35e2347e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointdata.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-//
-// 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
deleted file mode 100644
index 181d1354..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
deleted file mode 100644
index fd2a35d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PointonCurve.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 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
deleted file mode 100644
index 16b3b587..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
deleted file mode 100644
index c39cdadc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 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
deleted file mode 100644
index 337e76a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
deleted file mode 100644
index b23dfdc8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Powersum.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.03.12
-
-function Out=Powersum(varargin)
- Nargs=length(varargin);
- COEFF=varargin(1);
- x=varargin(2);
- if Nargs>2
- x=x-varargin(3);
- end;
- NL=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- Upto=min(size(NL,2),size(A,2));
- NL=NL(1:Upto);
- A=A(1:Upto);
- Out=sum(A.*x^NL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
deleted file mode 100644
index 8a75cbf0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
deleted file mode 100644
index bc866928..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Prime.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 09.08.23
-
-function Out=Prime(varargin)
- if length(varargin)==0
- Out=char(39);
- else
- Out=varargin(1)+char(39);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
deleted file mode 100644
index a4c6dba6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
deleted file mode 100644
index bf137751..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Printobjstr.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Printobjstr(Str)
- global Wfile FID;
- if Wfile=='default' then
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
deleted file mode 100644
index 5adfea2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
deleted file mode 100644
index bbe28c12..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjCurve.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// 08.07.11
-// 08.10.07
-// 09.06.02
-// 09.08.23
-
-function AnsL=ProjCurve(Curve)
- global PHI THETA;
- Eps=10^(-6);
- AnsL=[]; // Added
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Tmp=[Xz,Yz];
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
deleted file mode 100644
index 8b17d615..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
deleted file mode 100644
index 74c552a6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ProjcoordCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.07.11
-// 08.10.16
-
-function Out=ProjcoordCurve(Curve)
- global PHI THETA;
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- x=P(1); y=P(2); z=P(3);
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Zz=x*CP*ST+y*SP*ST+z*CT;
- Out=[Out;Xz,Yz,Zz];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
deleted file mode 100644
index 0ce6a992..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
deleted file mode 100644
index 82feeff2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpara.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.07.11
-// 08.07.15
-// 08.08.12
-// 08.10.28
-
-function CL=Projpara(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=ProjCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=ProjCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
deleted file mode 100644
index 7594630e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
deleted file mode 100644
index b43451a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.08.12
-// 08.10.28
-
-function CL=Projpers(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=CameraCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=CameraCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
deleted file mode 100644
index b042e991..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
deleted file mode 100644
index 78776d7b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptcrv(N,Fig)
- P=Fig(N,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
deleted file mode 100644
index 51257705..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
deleted file mode 100644
index d16ebf80..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptend.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptend(Fig)
- P=Fig(size(Fig,1),:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
deleted file mode 100644
index b86773c2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
deleted file mode 100644
index 98f2ca94..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PthiddenQ.sci
+++ /dev/null
@@ -1,250 +0,0 @@
-// 08.10.10
-// 08.10.12
-// 08.10.15
-// 08.10.26
-// 09.06.05
-// 09.09.10
-// 09.10.12 debug
-// 09.11.07 debugged
-// 10.02.16 Eps__
-// 13.10.22 ( __ added to variables )
-
-function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__)
-// Out__=1 : hidden
-// SL__ : List of segments near PtA__+Vec__
- Eps__0=10^(-4)*(Xmax()-Xmin())/10;
- Eps__=EPS__(1)*(Xmax()-Xmin())/10; //
- Out__=0;
- Vec__1=1/norm(Vec__)*Vec__;
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- FdL__=Fullformfunc(Fd__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,FdL__);
- Vrg__str=Mixop(6,FdL__);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- SL__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- 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
deleted file mode 100644
index 97796c60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
deleted file mode 100644
index f6452897..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptne.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptne(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMAX];
- else
- G=varargin(1);
- XM=max(G(:,1));
- YM=max(G(:,2));
- Out=[XM,YM];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
deleted file mode 100644
index 1d290957..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
deleted file mode 100644
index e3cd5ebc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptnw.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptnw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMAX];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- YM=max(G(:,2));
- Out=[Xm,YM];
- end;
- endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
deleted file mode 100644
index 09489c68..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
deleted file mode 100644
index fe5e52b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptse.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptse(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMIN];
- else
- G=varargin(1);
- XM=max(G(:,1));
- Ym=min(G(:,2));
- Out=[XM,Ym];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
deleted file mode 100644
index c662aeb8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
deleted file mode 100644
index f94437cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptstart.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-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
deleted file mode 100644
index 3cd0fa20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
deleted file mode 100644
index 5b0a3474..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ptsw.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.13
-
-function Out=Ptsw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMIN];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- Ym=min(G(:,2));
- Out=[Xm,Ym];
- end;
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
deleted file mode 100644
index d31053f9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
deleted file mode 100644
index e0020f0b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcell.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 09.12.29
-
-function Putcell(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- Str=varargin(Nargs);
- if type(Str)==1
- Str=string(Str);
- end;
- Pos=varargin(Nargs-1);
- Nrg=varargin(2);
- if type(Nrg)==10
- if Nargs==4
- Cell=Findcell(TbL,Nrg);
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- Pt=Cell(1); Dr='c';
- Posh=part(Pos,1);
- Post=part(Pos,2:length(Pos));
- if (Posh=='r')|(Posh=='R')
- Pt=Pt+[Cell(2),0];
- if length(Post)==0
- Dr='w1';
- else
- Dr='w'+Post;
- end;
- end;
- if (Posh=='l')|(Posh=='L')
- Pt=Pt-[Cell(2),0];
- if length(Post)==0
- Dr='e1';
- else
- Dr='e'+Post;
- end;
- end;
- if (Posh=='u')|(Posh=='U')
- Pt=Pt+[0,Cell(3)];
- if length(Post)==0
- Dr='s1';
- else
- Dr='s'+Post;
- end;
- end;
- if (Posh=='d')|(Posh=='D')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- end;
- if (Posh=='b')|(Posh=='B')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- Str='$\mathstrut$'+Str;
- end;
- Letter(Pt,Dr,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
deleted file mode 100644
index f834f86d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
deleted file mode 100644
index 63bc151f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putcirmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putcirmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Tmp1=Dt(I);
- Str=Str+'\cirmark';
- if I<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
deleted file mode 100644
index 1b37ca31..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
deleted file mode 100644
index 41b9a1b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoL.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 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
deleted file mode 100644
index 7a5123d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
deleted file mode 100644
index 0e2f9d0a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLexpr.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 10.04.01
-
-function PutcoLexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
deleted file mode 100644
index c4cecfc7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
deleted file mode 100644
index b993ffa9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/PutcoLstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function PutcoLstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,Nr,I,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,Nr,K,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,Nr,K,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
deleted file mode 100644
index 5fc7bc24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
deleted file mode 100644
index 8d732a9d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putdashmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putdashmark(TbL,Nrg,Mrg,Dt)
- N=length(Dt);
- Str='\hspace*{2mm}';
- for I=1:N
- Tmp1=Dt(I);
- if type(Tmp1)==1
- Tmp1=string(Tmp1);
- end;
- Str=Str+'\dashmark{'+Tmp1+'}';
- if 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
deleted file mode 100644
index 1910dfd9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
deleted file mode 100644
index ce63e542..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrecmark.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 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
deleted file mode 100644
index 9085bc24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
deleted file mode 100644
index 0c2c209a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 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
deleted file mode 100644
index 83b428d4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
deleted file mode 100644
index 0a3158cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowexpr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 10.04.01
-
-function Putrowexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
deleted file mode 100644
index 02bd62fd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
deleted file mode 100644
index d006f3ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrowstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function Putrowstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,I,Nr,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,K,Nr,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,K,Nr,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
deleted file mode 100644
index cfb497e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
deleted file mode 100644
index a4f1ad89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Puttrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Puttrace(Dt);
- global TRACEDATA;
- TRACEDATA=Dt;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
deleted file mode 100644
index 116083a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
deleted file mode 100644
index 839452f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ratiocmyk.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// 11.05.28
-// 15.05.03
-
-function R=Ratiocmyk(Color)
- if type(Color)==1 then
- R=Color;
- return;
- end;
- Tmp=grep(Color,',');
- if length(Tmp)>0
- R=evstr(Tmp);
- return;
- end;
- select Color
- case 'greenyellow' then R=[0.15,0,0.69,0],
- case 'yellow' then R=[0,0,1,0],
- case 'goldenrod' then R=[0,0.1,0.84,0],
- case 'dandelion' then R=[0,0.29,0.84,0],
- case 'apricot' then R=[0,0.32,0.52,0],
- case 'peach' then R=[0,0.5,0.7,0],
- case 'melon' then R=[0,0.46,0.5,0],
- case 'yelloworange' then R=[0,0.42,1,0],
- case 'orange' then R=[0,0.61,0.87,0],
- case 'burntorange' then R=[0,0.51,1,0],
- case 'bittersweet' then R=[0,0.75,1,0.24],
- case 'redorange' then R=[0,0.77,0.87,0],
- case 'mahogany' then R=[0,0.85,0.87,0.35],
- case 'maroon' then R=[0,0.87,0.68,0.32],
- case 'brickred' then R=[0,0.89,0.94,0.28],
- case 'red' then R=[0,1,1,0],
- case 'orangered' then R=[0,1,0.5,0],
- case 'rubinered' then R=[0,1,0.13,0],
- case 'wildstrawberry' then R=[0,0.96,0.39,0],
- case 'salmon' then R=[0,0.53,0.38,0],
- case 'carnationpink' then R=[0,0.63,0,0],
- case 'magenta' then R=[0,1,0,0],
- case 'violetred' then R=[0,0.81,0,0],
- case 'rhodamine' then R=[0,0.82,0,0],
- case 'mulberry' then R=[0.34,0.9,0,0.02],
- case 'redviolet' then R=[0.07,0.9,0,0.34],
- case 'fuchsia' then R=[0.47,0.91,0,0.08],
- case 'lavender' then R=[0,0.48,0,0],
- case 'thistle' then R=[0.12,0.59,0,0],
- case 'orchid' then R=[0.32,0.64,0,0],
- case 'darkorchid' then R=[0.4,0.8,0.2,0],
- case 'purple' then R=[0.45,0.86,0,0],
- case 'plum' then R=[0.5,1,0,0],
- case 'violet' then R=[0.79,0.88,0,0],
- case 'royalpurple' then R=[0.75,0.9,0,0],
- case 'blueviolet' then R=[0.86,0.91,0,0.04],
- case 'periwinkle' then R=[0.57,0.55,0,0],
- case 'cadetblue' then R=[0.62,0.57,0.23,0],
- case 'cornflowerblue' then R=[0.65,0.13,0,0],
- case 'midnightblue' then R=[0.98,0.13,0,0.43],
- case 'navyblue' then R=[0.94,0.54,0,0],
- case 'royalblue' then R=[1,0.5,0,0],
- case 'blue' then R=[1,1,0,0],
- case 'cerulean' then R=[0.94,0.11,0,0],
- case 'cyan' then R=[1,0,0,0],
- case 'processblue' then R=[0.96,0,0,0],
- case 'skyblue' then R=[0.62,0,0.12,0],
- case 'turquoise' then R=[0.85,0,0.2,0],
- case 'tealblue' then R=[0.86,0,0.34,0.02],
- case 'aquamarine' then R=[0.82,0,0.3,0],
- case 'bluegreen' then R=[0.85,0,0.33,0],
- case 'emerald' then R=[1,0,0.5,0],
- case 'junglegreen' then R=[0.99,0,0.52,0],
- case 'seagreen' then R=[0.69,0,0.5,0],
- case 'green' then R=[1,0,1,0],
- case 'forestgreen' then R=[0.91,0,0.88,0.12],
- case 'pinegreen' then R=[0.92,0,0.59,0.25],
- case 'limegreen' then R=[0.5,0,1,0],
- case 'yellowgreen' then R=[0.44,0,0.74,0],
- case 'springgreen' then R=[0.26,0,0.76,0],
- case 'olivegreen' then R=[0.64,0,0.95,0.4],
- case 'rawsienna' then R=[0,0.72,1,0.45],
- case 'sepia' then R=[0,0.83,1,0.7],
- case 'brown' then R=[0,0.81,1,0.6],
- case 'tan' then R=[0.14,0.42,0.56,0],
- case 'gray' then R=[0,0,0,0.5],
- case 'black' then R=[0,0,0,1],
- case 'white' then R=[0,0,0,0],
- else
- disp(Color+' may be user-defined');
- R=Color; // 15.05.03
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
deleted file mode 100644
index 22d88c39..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
deleted file mode 100644
index c1656b15..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-// 14.10.10
-// 14.12.14 for 3d
-// 15.01.03 changed ("start","end")
-// 15.10.24 in case of list-length==1
-
-function Out=ReadOutData(varargin)
- global Fnameout
- if length(varargin)==0 then
- Fname=Rnameout;
- else
- Fname=varargin(1);
- end
- Fid=mopen(Fname,"rb");
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- break;
- end;
- C=ascii(Tmp);
- if Tmp=="/"|C==13|C==10 then// / CR,LF
- if Flg==1 then
- if part(Str,1:5)=="start" then
- Str="Tmp=[];";
- else
- if part(Str,1:3)=="end" then
- if Flg3d==0 then // 2014.12.14
- Str=Varname+"($+1)=Listplot(Tmp);";
- else
- Str=Varname+"($+1)=Spaceline(Tmp);";
- end
- else
- if part(Str,1:2)=="[[" then
- Str="Tmp=[Tmp,"+Str+"];";
- else
- Varname=Str;
- Str=Varname+"=list();"
- Flg3d=-1;
- end;
- end;
- end;
- if Flg3d==-1 then // 2014.12.14
- Tmp1=mtlb_findstr(Str,"[[");
- if length(Tmp1)>0 then
- Tmp2=mtlb_findstr(Str,"]");
- Tmp3=part(Str,Tmp1:Tmp2(1));
- Tmp4=mtlb_findstr(Tmp3,",")
- if length(Tmp4)==2 then
- Flg3d=1;
- else
- Flg3d=0;
- end
- end
- end
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=[]; // 15.10.24 from
- Var="";
- Ctr=0;
- for J=1:size(Gstr,1)
- St=Gstr(J,1);
- Out=[Out;St];
- Tmp=strsplit(St,"=");
- Tmp1=Tmp(1,1);
- Tmp2=Tmp(2,1);
- if grep(Tmp2,"list()") then
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end;
- Var=Tmp1;
- Ctr=0;
- end;
- if grep(Tmp1,"$") then
- Ctr=Ctr+1;
- end;
- end
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end; // 15.10.24 upto
- Out;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
deleted file mode 100644
index 9f2e42ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
deleted file mode 100644
index eaf9f6df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadfromCindy.sci
+++ /dev/null
@@ -1,38 +0,0 @@
-// s:2014,09.08
-// e:2014.09.26
-// e:2014.10.07 debugged, code changed
-// e:2014.10.08 CR | LF
-
-function Out=ReadfromCindy(Fname)
- Fid=mopen(Fname,"rb");
- Gline=list();
- Gpt=list();
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=1;
- end;
- break;
- end
- C=ascii(Tmp);
- if C==13|C==10 then// CR,LF
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=Gstr;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
deleted file mode 100644
index 4a58106b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
deleted file mode 100644
index 7109f789..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Readtextdata.sci
+++ /dev/null
@@ -1,160 +0,0 @@
-// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
deleted file mode 100644
index d9cd1315..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
deleted file mode 100644
index 837a5727..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Reflectdata.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Reflectdata(varargin)
- Nargs=length(varargin)
- ML=varargin(1);
- ML=Flattenlist(ML);
- if Nargs==1
- PtA=[0,0];PtB=PtA;
- else
- Pts=varargin(2);
- if length(Pts)==2
- PtA=Pts; PtB=PtA;
- else
- PtA=Pts(1,1:2); PtB=Pts(1,3:4);
- end
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- if PtA==PtB
- X2=2*PtA(1)-X1;
- Y2=2*PtA(2)-Y1;
- else
- U=PtB(1)-PtA(1);
- V=PtB(2)-PtA(2);
- A=PtA(1);
- B=PtA(2);
- X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2);
- Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2);
- end
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
deleted file mode 100644
index 66f6a956..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
deleted file mode 100644
index facea4d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rmmember.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 11.01.14 New
-
-function Out=Rmmember(L,Rm)
- if type(L)==1
- Out=[];
- end;
- if type(L)==15
- Out=list();
- end;
- for J=1:length(L)
- Tmp=L(J);
- if ~Member(Tmp,Rm)
- Out($+1)=Tmp;
- end;
- end;
- if type(L)==1 & size(L,1)==1
- Out=Out';
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
deleted file mode 100644
index e8683dd9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
deleted file mode 100644
index 9082290d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3data.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-// 08.08.15
-// 14.03.23 debugged "center"
-// 15.04.12
-
-function Out=Rotate3data(varargin)
-// Eps=10^(-4);
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
deleted file mode 100644
index bc806d95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
deleted file mode 100644
index 910aa734..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotate3pt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-// 08.08.15
-
-function Ans=Rotate3pt(varargin)
- Eps=10^(-4);
- Nargs=length(varargin);
- P=varargin(1);
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
- if type(W2)==1 & length(W2)==1
- Ct=cos(W2);
- St=sin(W2);
- V3=1/norm(W1)*W1;
- if V3(1)==0
- Tmp=[1,0,0];
- else
- Tmp=[0,1,0];
- end;
- W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)];
- V1=1/norm(W1)*W1;
- V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)];
- else
- Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)];
- if norm(Tmp)<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
deleted file mode 100644
index fc876c55..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
deleted file mode 100644
index 845cac17..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Rotatedata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 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
deleted file mode 100644
index f55e05bc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
deleted file mode 100644
index d14f3b3a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Roundstr.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 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
deleted file mode 100644
index 025c430a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
deleted file mode 100644
index 7e563f4b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Scaledata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 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
deleted file mode 100644
index 60750005..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
deleted file mode 100644
index e918e475..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sectionview.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 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
deleted file mode 100644
index e70977ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
deleted file mode 100644
index 2a4a3c95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setangle.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 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
deleted file mode 100644
index 63725d0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
deleted file mode 100644
index 8f9d6053..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setarrow.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 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
deleted file mode 100644
index 6a258c98..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
deleted file mode 100644
index 5fab30e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setax.sci
+++ /dev/null
@@ -1,102 +0,0 @@
-// 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
deleted file mode 100644
index cb6ec45d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
deleted file mode 100644
index 51b8e0c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcolor.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 11.05.28
-// 11.08.24
-// 15.05.03
-
-function Setcolor(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Color='black';
- Kosa=1;
- Color=varargin(1);
- if length(varargin)>1
- Kosa=varargin(2);
- end;
- Iro=Ratiocmyk(Color);
- if type(Iro)==10
- Str='\color{'+Iro+"}%";
- else
- if size(Iro,2)>3
- Str='\color[cmyk]{';
- else
- Str='\color[rgb]{';
- end;
- for J=1:size(Iro,2)
- Str=Str+string(Kosa*Iro(J));
- if J<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
deleted file mode 100644
index 7bcd0094..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
deleted file mode 100644
index 4b8b932b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setcounter.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 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
deleted file mode 100644
index b8a538c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
deleted file mode 100644
index ae713f4e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmark.sci
+++ /dev/null
@@ -1,43 +0,0 @@
-// 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
deleted file mode 100644
index 6822b346..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
deleted file mode 100644
index a17c9e95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setmarklen.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-//
-// 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
deleted file mode 100644
index a8591c05..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
deleted file mode 100644
index 2ee06cbb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjdecimals.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 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
deleted file mode 100644
index 71df5ec2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
deleted file mode 100644
index 22f13c4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setobjscale.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 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
deleted file mode 100644
index 91bbc8da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
deleted file mode 100644
index 62a1f624..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setorigin.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 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
deleted file mode 100644
index d5934c6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
deleted file mode 100644
index 500ef7f9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpen.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-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
deleted file mode 100644
index c628c2f0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
deleted file mode 100644
index 455551bb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpers.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-// 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
deleted file mode 100644
index b36a2407..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
deleted file mode 100644
index a3b86b01..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setpt.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-//
-// 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
deleted file mode 100644
index d3561ee9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
deleted file mode 100644
index 1d4868c9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setscaling.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-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
deleted file mode 100644
index cba724b8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
deleted file mode 100644
index cb6c79ae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoL.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 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
deleted file mode 100644
index 7f82c6ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
deleted file mode 100644
index ff9de892..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/SetstereoR.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 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
deleted file mode 100644
index 23ded039..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
deleted file mode 100644
index 84ea4d60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setunitlen.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 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
deleted file mode 100644
index 992a793c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
deleted file mode 100644
index 92883d5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setversion.sci
+++ /dev/null
@@ -1,182 +0,0 @@
-//
-// 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
deleted file mode 100644
index 5ab2b0d2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
deleted file mode 100644
index fb72097b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Setwindow.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-//
-// 09.02.27
-// 10.04.25
-
-function Out=Setwindow(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs==0
- Out=[XMIN,XMAX,YMIN,YMAX];
- disp(Out);
- return;
- end;
- if Nargs==1
- Dt=varargin(1);
- if type(Dt)==1
- Dt=list(Dt);
- end;
- Xm=%inf; XM=-%inf;
- Ym=%inf; YM=-%inf;
- for I=1:length(Dt)
- GL=Dividegraphics(Dt(I));
- for J=1:length(GL)
- G=GL(J);
- Tmp=min(G(:,1)); Xm=min(Xm,Tmp);
- Tmp=max(G(:,1)); XM=max(XM,Tmp);
- Tmp=min(G(:,2)); Ym=min(Ym,Tmp);
- Tmp=max(G(:,2)); YM=max(YM,Tmp);
- end;
- end;
- XMIN=Xm; XMAX=XM;
- YMIN=Ym; YMAX=YM;
- end;
- if Nargs==2
- RgX=varargin(1);
- RgY=varargin(2);
- XMIN=RgX(1); XMAX=RgX(2);
- YMIN=RgY(1); YMAX=RgY(2);
- end
- if Nargs==4
- XMIN=varargin(1); XMAX=varargin(2);
- YMIN=varargin(3); YMAX=varargin(4);
- end;
- Out=[XMIN,XMAX,YMIN,YMAX];
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
deleted file mode 100644
index 623920c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
deleted file mode 100644
index 9c20a13b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sf3data.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.08.16
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function PL__=Sf3data(varargin)
- Nargs__=length(varargin);
- FdL__=Fullformfunc(varargin(1));
- F__=Mixop(1,FdL__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Urg__=Mixop(5,FdL__);
- Vrg__=Mixop(6,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- U__=part(Urg__,1:K__-1);
- Tmp__=part(Urg__,K__+1:length(Urg__));
- Tmp__=evstr(Tmp__);
- Umin__=Tmp__(1); Umax__=Tmp__(2);
- K__=mtlb_findstr(Vrg__,'=');
- V__=part(Vrg__,1:K__-1);
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp__=evstr(Tmp__);
- Vmin__=Tmp__(1); Vmax__=Tmp__(2);
- Ndu__=25 ; Ndv__=25; Np__=[50,50];
- if Nargs__>=3
- Ndu__=varargin(2);
- Ndv__=varargin(3);
- end;
- if Nargs__>=4
- Np__=varargin(4);
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Du__=(Umax__-Umin__)/Ndu__;
- Dv__=(Vmax__-Vmin__)/Ndv__;
- PL__ = [];
- for I__=0:Ndu__
- U0__ ='('+string(Umin__+I__*Du__)+')';
- Tmp__=strsubst(Xf__,U__,U0__);
- Tmp1__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Yf__,U__,U0__);
- Tmp2__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Zf__,U__,U0__);
- Tmp3__=strsubst(Tmp__,V__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2)));
- PL__=Mixadd(PL__,PD__);
- end;
- for J__=0:Ndv__
- V0__='('+string(Vmin__+J__*Dv__)+')';
- Tmp__=strsubst(Xf__,V__,V0__);
- Tmp1__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Yf__,V__,V0__);
- Tmp2__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Zf__,V__,V0__);
- Tmp3__=strsubst(Tmp__,U__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1)));
- PL__=Mixadd(PL__,PD__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
deleted file mode 100644
index 183f7fda..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
deleted file mode 100644
index 7a759f69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdparadata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.09.13
-// 10.02.16 Eps => [Eps, Epsmag]
-
-function Out5=Sfbdparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpara(Out3,Fd,Eps(1)); //
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
deleted file mode 100644
index 5f77179e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
deleted file mode 100644
index 9833a7f4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdpersdata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-
-// 08.09.21
-// 10.02.16 Eps => [Eps, Epsmag]
-// 13.11.02 bug
-
-function Out5=Sfbdpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
deleted file mode 100644
index 66da5cea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
deleted file mode 100644
index 082ccec3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.09.10
-// 08.09.13
-
-function Out5=Sfbdrawparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpara(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
deleted file mode 100644
index cd42fdf6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
deleted file mode 100644
index cde6870f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.09.21
-
-function Out5=Sfbdrawpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpers(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
deleted file mode 100644
index c7f1f6f1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
deleted file mode 100644
index 5a15d61c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutdata.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-// 08.09.09
-// 08.09.19
-// 08.09.20
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function EkL__=Sfcutdata(varargin)
- Nargs__=length(varargin);
- Fd__=varargin(1);
- CutD__=varargin(2);
- Np__=[50,50];
- if Nargs__>=3
- Tmp__=varargin(3);
- if type(Tmp__)==1 & length(Tmp__)==1
- Np__=[Tmp__,Tmp__];
- end;
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax=Urg__(2);
- Vmin__=Vrg__(1); Vmax=Vrg__(2);
- if Mixtype(CutD__)~=1
- V1__=Mixop(1,CutD__);
- Tmp__=Mixop(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Mixop(5,Fd__L);
- Tmp__2=Mixop(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:Mixlength(CutuvL__)
- Out__1=Mixop(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
deleted file mode 100644
index b6341637..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
deleted file mode 100644
index 0e4c6a5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.1
-// 10.02.17
-
-function Out=Sfcutoffparadata(varargin)
- Ms=list('hidden','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
deleted file mode 100644
index 636f24b3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
deleted file mode 100644
index c10cdb8d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffpersdata(varargin)
- Ms=list('hidden','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
deleted file mode 100644
index 2b4fd676..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
deleted file mode 100644
index 546f66d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.19
-// 10.02.17
-
-function Out=Sfcutoffrawparadata(varargin)
- Ms=list('raw','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 08ac4249..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
deleted file mode 100644
index e5a387f5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffrawpersdata(varargin)
- Ms=list('raw','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
deleted file mode 100644
index f1b9d960..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
deleted file mode 100644
index 5aa4e5e5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfparadata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.16
-
-function Out=Sfparadata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpara(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
deleted file mode 100644
index bea54bf3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
deleted file mode 100644
index ecc63e41..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sfpersdata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.15
-
-function Out=Sfpersdata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpers(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
deleted file mode 100644
index 48ba5b55..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
deleted file mode 100644
index ec4fa716..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Shade.sci
+++ /dev/null
@@ -1,93 +0,0 @@
-//
-// 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
deleted file mode 100644
index e93fdf6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
deleted file mode 100644
index 4eec31cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeleton2data.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.06.13
-
-function Out=Skeleton2data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- Tmp=varargin(1);
- if Mixtype(Tmp)==1
- ObjL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- ObjL=Tmp;
- else
- ObjL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- PltL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- PltL=Tmp
- else
- PltL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- PltL=Mixadd(PltL,Tmp1);
- else
- PltL=Mixjoin(PltL,Tmp1);
- end;
- end;
- end;
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.01;
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=[];
- for I=1:Mixlength(ObjL)
- Curve=Mixop(I,ObjL);
- Obj2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Obj2=[Obj2;P,-1];
- end;
- Obj2L=Mixadd(Obj2L,Obj2);
- end;
- Plt2L=[]
- for I=1:Mixlength(PltL)
- Curve=Mixop(I,PltL);
- Plt2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Plt2=[Plt2;P,0];
- end;
- Plt2L=Mixadd(Plt2L,Plt2);
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
deleted file mode 100644
index 1d3bd14f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
deleted file mode 100644
index 5914d47a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpara3data.sci
+++ /dev/null
@@ -1,48 +0,0 @@
-// 09.09.25
-// 11.12.12
-// 15.06.14
-// 15.10.19
-
-function Out=Skeletonpara3data(varargin)
- global MilliIn;
- Eps=10^(-4); // 15.06.14
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=list();
- for I=1:Mixlength(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- if size(Gd,1)==1 // 15.10.19
- continue;
- end;
- if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<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
deleted file mode 100644
index f0879401..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
deleted file mode 100644
index 1270f789..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonparadata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 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
deleted file mode 100644
index d382a6b0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
deleted file mode 100644
index 57dde938..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpers3data.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 11.12.12
-
-function Out=Skeletonpers3data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=[];
- for I=1:Mixlength(Plt3L)
- Tmp=CameracoordCurve(Mixop(I,Plt3L));
- Plt2L=Mixadd(Plt2L,Tmp);
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=CameracoordCurve(Obj3);
- Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invperspt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
deleted file mode 100644
index 03417429..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
deleted file mode 100644
index c91e73cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Skeletonpersdata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 11.12.12
-
-function Out=Skeletonpersdata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=CameracoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=CameracoordCurve(Plt3L(I));
- end;
- Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
deleted file mode 100644
index bacaa702..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
deleted file mode 100644
index 077a88cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spacecurve.sci
+++ /dev/null
@@ -1,83 +0,0 @@
-// 08.07.11
-// 09.05.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 13.10.21 ( __ added to varibles )
-// 16.08.20 (N changed to devided number )
-// 16.12.13 ( in case of T1=T2)
-
-function P__=Spacecurve(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- Fnstr__=varargin(1);
- Rgstr__=varargin(2);
- Range__=[0,2*%pi];
- N=50; // Numpoints
- E=[]; // Exclusions
- D=%inf; // Discont (Changed)
- for I__=3:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
- Dt__=(T2__-T1__)/N; // 16.08.20
- Str__=mtlb_strrep(Fnstr__,Vname__,'t__');
- if abs(Dt__)<Eps__ 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
deleted file mode 100644
index b5252573..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
deleted file mode 100644
index 9fe33c06..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Spaceline.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 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
deleted file mode 100644
index c9477a3a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
deleted file mode 100644
index a4de85ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Splinedata.sci
+++ /dev/null
@@ -1,108 +0,0 @@
-// 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
deleted file mode 100644
index e8876298..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
deleted file mode 100644
index 8f4da94d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Strop.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function C=Strop(Num,Str)
- N=length(Num);
- L=ascii(Str);
- C='';
- for I=1:N
- K=Num(I);
- Tmp=char(L(K));
- C=C+Tmp;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
deleted file mode 100644
index 5f1b02bc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
deleted file mode 100644
index 785b605c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-//
-// 08.06.04
-
-function V=Subs(SbstrL,StrF)
- Str=StrF;
- if type(StrF)==2
- Str=pol2str(StrF);
- end
- V=StrF;
- for N=1:size(SbstrL,2)
- Sbstr=SbstrL(1,N);
- I=mtlb_findstr(Sbstr,'=');
- Tmp=strsplit(Sbstr,I);
- SbA=Tmp(1);
- SbA=Op(1:length(SbA)-1,SbA);
- SbB=Tmp(2);
- V=strsubst(V,SbA,SbB);
- end
- V=evstr(V);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
deleted file mode 100644
index cd35f9cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
deleted file mode 100644
index 55fdfd0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Sumfun.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.05.30
-// 08.05.31
-// 08.06.03
-// 13.10.21 (__ added to variables )
-
-function PL__=Sumfun(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Const__=0;
- Addstr__='A__=0';
- J__=1;
- Tmp__=varargin(1);
- if type(Tmp__)==1
- Const__=Tmp__;
- J__=J__+1;
- end
- if type(Tmp__)==10
- Tmp1__=Strop(length(Tmp__),Tmp__);
- if Tmp1__=='+'
- Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__);
- J__=J__+1
- end
- end
- Fnstr__=varargin(J__);
- Krange__=varargin(J__+1);
- Xrange__=varargin(J__+2);
- N=50;
- for I__=J__+3:Nargs__
- Tmp__=varargin(I__);
- execstr(Tmp__);
- end
- Tmp__=mtlb_findstr(Krange__,'=');
- Kname__=Strop(1:Tmp__-1,Krange__);
- Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__);
- Tmp1__='Krg__='+Tmp1__;
- execstr(Tmp1__);
- Tmp__=mtlb_findstr(Xrange__,'=');
- if Tmp__==[]
- Xname__=Xrange__;
- Xrg__=[XMIN,XMAX];
- else
- Xname__=Strop(1:Tmp__-1,Xrange__);
- Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__);
- Tmp1__='Xrg__='+Tmp1__;
- execstr(Tmp1__);
- end
- Dx__=(Xrg__(2)-Xrg__(1))/N;
- PL__=[];
- I__=0;
- while I__<=N
- Tmp__=Xname__+'=Xrg__(1)+I__*Dx__';
- execstr(Tmp__);
- J__=Krg__(1);
- execstr(Addstr__);
- Y__=Const__+A__;
- while J__<=Krg__(length(Krg__))
- Tmp__=Kname__+'=J__';
- execstr(Tmp__);
- execstr('Y__=Y__+'+Fnstr__);
- J__=J__+1;
- end
- PL__=[PL__;Xrg__(1)+I__*Dx__,Y__];
- I__=I__+1;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
deleted file mode 100644
index 7abbf37d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
deleted file mode 100644
index 0d649872..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-// s : 2014.08.25
-
-function Out=Symb3data(Moji,Size,Kaiten,NV,Pos)
- if type(Moji)==10 then
- Tmp=Symbdata(Moji);
- GY1=Tmp(2)
- else
- GY1=Moji
- end
- GY1=Scaledata(GY1,Size,Size);
- GY1=Rotatedata(GY1,Kaiten*%pi/180);
- A=NV(1); B=NV(2); C=NV(3);
- if A^2+B^2==0 then
- E1=[1,0,0];
- E2=[0,1,0];
- else
- E1=[B,-A,0];
- E2=[-A*C,-B*C,A^2+B^2];
- D=det([E1;E2;NV]);
- if D<0 then
- E1=-E1
- end
- E1=E1/norm(E1);
- E2=E2/norm(E2);
- end
- deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]");
- GY1=Embed(GY1,Em);
- GY1=Translate3data(GY1,Pos);
- Out=Flattenlist(GY1);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
deleted file mode 100644
index ebda20ac..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
deleted file mode 100644
index d63a3470..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symbdata.sci
+++ /dev/null
@@ -1,67 +0,0 @@
-// s : 2014.08.25
-// 14.09.07
-
-function Out=Symbdata(Moji)
- ML=list(); Sp=[]; CC=[];
- if Moji=="x" then
- M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;...
- -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035];
- M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;...
- -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end;
- if Moji=="y" then
- M1=[-0.06,0.06;...
- -0.045,0.080;...
- -0.03,0.080;...
- -0.022,0.065;...
- -0.032,0.035;...
- -0.035,-0.01;...
- 0.007,-0.008;...
- 0.037,0.04;...
- 0.05,0.09];
- M2=[0.05,0.09;...
- 0.037,0.04;...
- 0.025,-0.00;...
- 0.015,-0.035;...
- -0.000,-0.055;...
- -0.025,-0.062;...
- -0.05,-0.045];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end
- if Moji=="z" then
- M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;...
- 0.01,0.04;0.035,0.04;0.042,0.045];
- M2=[0.042,0.045;0.00,0.00;-0.042,-0.045];
- M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;...
- 0.01,-0.045;0.023,-0.045;0.035,-0.035];
- ML=list(M1,M2,M3);
- Sp=[100,0,100];
- CC=[0,0,0];
- end
- Out1=list()
- Out2=list()
- for J=1:length(ML)
- M=ML(J);
- N=Sp(J);
- for K=1:size(M,1)
- P=M(K,:)
- Out1($+1)=P
- end
- if N>0 then
- if CC(J)==0 then
- S=Splinedata(M,"N="+string(N))
- else
- S=Splinedata(M,"N="+string(N),"C")
- end
- else
- S=M
- end;
- Out2($+1)=S
- end
- Out=list(Out1,Out2)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
deleted file mode 100644
index 57730f7f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
deleted file mode 100644
index 621f6256..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tabledata.sci
+++ /dev/null
@@ -1,130 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 10.01.12
-// 10.01.13
-// 10.03.28
-// 10.03.30
-// 13.05.03 Domain can be omitted
-
-function Out=Tabledata(varargin)
-// 2013.05.01 Domain is optional.
- Eps=0.001;
- Tmp=varargin(1); // 130502 from
- if type(Tmp)==1
- Domain=varargin(1);
- VL=varargin(2);
- HL=varargin(3);
- else
- Domain=[-1,-1];
- VL=varargin(1);
- HL=varargin(2);
- end; // 130502 upto
- Hsize=Domain(1);
- SvL=list(0);
- S=0;
- for I=1:length(VL)
- Tmp=VL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- SvL($+1)=Tmp;
- end;
- if Hsize>S
- SvL($+1)=Hsize;
- end;
- Hsize=Op(1,SvL(length(SvL)));
- Vsize=Domain(2);
- ShL=list(0);
- S=0;
- for I=1:length(HL)
- Tmp=HL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- ShL($+1)=Tmp;
- end;
- if Vsize>S
- ShL($+1)=Vsize;
- end;
- Vsize=Op(1,ShL(length(ShL)));
- Marw=0; Mare=0; Mars=0; Marn=0;
- if length(Domain)>2
- Marw=Domain(3);
- Mare=Domain(4);
- end;
- if length(Domain)>4
- Marn=Domain(5);
- Mars=Domain(6);
- end;
- Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]);
- Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]);
- Gdata=list(Tmp);
- Tmp=-Marw;
- Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]));
- for I=1:length(SvL) // 10.03.30
- Data=SvL(I);
- X=Data(1);
- if length(Data)==1
- Y1=0;
- Y2=Vsize;
- G=Listplot([X,Y1],[X,Y2]);
- else
- G=[];
- for J=2:2:length(Data)
- Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30
- Y2=Vsize-Op(1,ShL(Data(J+1)));
- Tmp=Listplot([[X,Y1],[X,Y2]]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Hdata($+1)=G;
- end;
- Tmp=Hsize+Mare;
- Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]);
- Hdata($+1)=Tmp1;
- Tmp=Vsize+Marn;
- Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]]));
- for I=1:length(ShL)
- Data=ShL(I);
- Y=Vsize-Data(1);
- if length(Data)==1
- X1=0;
- X2=Hsize;
- G=Listplot([X1,Y],[X2,Y]);
- else
- G=[];
- for J=2:2:length(Data)
- X1=Op(1,SvL(Data(J))); // 10.03.30
- X2=Op(1,SvL(Data(J+1)));
- Tmp=Listplot([X1,Y],[X2,Y]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Vdata($+1)=G;
- end;
- Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]);
- Vdata($+1)=Tmp;
- Tmp1=Mixsub(3:(length(Hdata)-2),Hdata);
- Tmp2=Mixsub(3:(length(Vdata)-2),Vdata);
- Gdata=Mixjoin(Gdata,Tmp1,Tmp2);
- Hind=2:(1+length(Tmp1));
- Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2));
- G=Gdata(1);
- P1=Ptsw(G); P2=Ptnw(G);
- Q1=Ptse(G); Q2=Ptne(G);
- Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- P1=Ptnw(G); P2=Ptne(G);
- Q1=Ptsw(G); Q2=Ptse(G);
- Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- Tmp3=Framedata();
- Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3);
-endfunction;
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
deleted file mode 100644
index c702d4e8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
deleted file mode 100644
index 9b848315..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texcom.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-//
-// 09,12.05
-// 09.12.06
-// 09.12.07
-// 09.12.20
-
-function Texcom(Meirei)
- global Wfile FID;
- if Meirei=='\thinlines'
- Setpen(1);
- return
- end
- if Meirei=='\thicklines'
- Setpen(2);
- return
- end
- if Meirei=='\Thicklines'
- Setpen(3);
- return
- end;
-
- if Meirei=='' // 09.12.07
- Tmp=[];
- else
- Tmp=mtlb_findstr(Meirei,'newline');
- end;
- if length(Tmp)>0
- if Wfile=='default'
- mprintf('%s\n','');
- else
- mfprintf(FID,'%s\n','');
- end;
- return;
- end;
- if Wfile=='default'
- mprintf('%s%s\n',Meirei,'%');
- else
- mfprintf(FID,'%s%s\n',Meirei,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
deleted file mode 100644
index 3f2db49a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
deleted file mode 100644
index 2a8b08ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texctr.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-//
-// 2010.05.15
-
-function Out=Texctr(N)
- if type(N)==1
- Alpha='abcdefghijklmnopqrstuvwxyz';
- Out='ketpicctr'+part(Alpha,N);
- else
- if part(N,1)=='\'
- Out=part(N,2:length(N));
- else
- Out=N;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
deleted file mode 100644
index 4bd0517d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
deleted file mode 100644
index 8ef93556..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texelse.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texelse()
- Texcom('');
- Texcom('\else');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
deleted file mode 100644
index 322cde18..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
deleted file mode 100644
index a3139873..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texend.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 01.10.21
-
-function Texend()
- Closephr();
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
deleted file mode 100644
index ea787159..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
deleted file mode 100644
index ecb7b788..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendfor.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 10.04.16
-
-function Texendfor(I)
- global TEXFORLEVEL TEXFORLAST
- Last=TEXFORLAST(TEXFORLEVEL);
- Texcom('');
- Texcom('\ifnum'+Texthectr(I)+'<'+Last);
- Texcom('\repeat');
- Texcom('}');
- TEXFORLEVEL=TEXFORLEVEL-1;
- TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
deleted file mode 100644
index 43440fc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
deleted file mode 100644
index 97d32d85..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texendif.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texendif()
- Texcom(''); //
- Texcom('\fi');
- Texcom('}');
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
deleted file mode 100644
index 69956280..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
deleted file mode 100644
index 0c239842..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texfor.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.04.16
-// 10.05.12
-// 10.10.20 ( available for numeric )
-
-function Texfor(I,First,Last)
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=TEXFORLEVEL+1;
- Texsetctr(I,'0');
- Texsetctr(I,string(First)+'-1');
- Texcom('');
- Texcom('{');
- Texcom('\loop');
- Texsetctr(I,'+1');
- TEXFORLAST($+1)=string(Last);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
deleted file mode 100644
index 66fe8e3c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
deleted file mode 100644
index f661c649..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texforinit.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.18
-
-function Texforinit()
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=0;
- TEXFORLAST=list();
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
deleted file mode 100644
index 52222c34..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
deleted file mode 100644
index 8cbae5dc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texif.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 10.04.16
-// 10.04.18
-// 10.05.03
-
-function Texif(varargin)
- Condstr=varargin(1);
- Tp=0;
- if length(varargin)>1
- Tp=varargin(2);
- end;
- Texcom('');
- Texcom('{');
- if Tp==0
- Texcom('\ifnum ');
- else
- Texcom('\ifdim ');
- end;
- Texcom(Condstr+' ');
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
deleted file mode 100644
index d95b41da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
deleted file mode 100644
index f83cc8c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texletter.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 10.01.07
-
-function Texletter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- P=varargin(I);
- X=P(1);
- if type(X)==1
- X=string(X);
- end;
- Y=P(2);
- if type(Y)==1
- Y=string(Y);
- end;
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n';
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s';
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e';
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w';
- end
- Hoko=Vhoko+Hhoko;
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='\put('+X+','+Y+'){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
deleted file mode 100644
index eec32b1e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
deleted file mode 100644
index b3b9a417..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texnewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\newcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
deleted file mode 100644
index c724a1fa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
deleted file mode 100644
index 03cabf81..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texnewctr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.21
-
-function Texnewctr(N)
- if type(N)==10
- Str='\newcounter{'+N+'}';
- Texcom(Str);
- else
- for I=N
- Str='\newcounter{'+Texctr(I)+'}';
- Texcom(Str);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
deleted file mode 100644
index a19894a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
deleted file mode 100644
index b8926589..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texrenewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texrenewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\renewcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
deleted file mode 100644
index 6b59198a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
deleted file mode 100644
index 166af676..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texsetctr.sci
+++ /dev/null
@@ -1,70 +0,0 @@
-// 10.01.21
-
-function Texsetctr(Nctr,Opstr)
- Ctr=Texctr(Nctr);
- Opstr=Opstr+'%';
- OperL='+-*/%';
- Oper='';
- Va='';
- Evflg=0;
- Paflg=0;
- for I=1:length(Opstr)
- Tmp=part(Opstr,I);
- if Tmp=='('
- Paflg=1;
- if length(Va)>0
- Evflg=1;
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Tmp==')'
- Paflg=0;
- if Evflg>0
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Paflg>0
- Va=Va+Tmp;
- continue;
- end;
- if length(mtlb_findstr(Tmp,OperL))==0
- Va=Va+Tmp;
- else
- if Evflg>0
- Tmp1=evstr(Va);
- Va='\value{'+Tmp1+'}';
- Evflg=0;
- end;
- if Oper==''
- if length(Va)>0
- Str='\setcounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- end;
- Oper=Tmp;
- Va='';
- elseif Oper=='+'
- Str='\addtocounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='-'
- Str='\addtocounter{'+Ctr+'}{-'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='*'
- Str='\multiply\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='/'
- Str='\divide\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va=''
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
deleted file mode 100644
index 7a1b6b04..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
deleted file mode 100644
index 469da91a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texthectr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texthectr(N)
- Out='\the'+Texctr(N);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
deleted file mode 100644
index 71c3785e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
deleted file mode 100644
index 96d1c734..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvalctr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texvalctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
deleted file mode 100644
index 0da12c0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
deleted file mode 100644
index fc443411..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Texvctr.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 10.01.21
-
-function Out=Texvctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
deleted file mode 100644
index 8f036e77..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
deleted file mode 100644
index c6ceff89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Thetadegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Thetadegree()
- global THETA;
- Ang=THETA*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
deleted file mode 100644
index 43d2d234..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
deleted file mode 100644
index a7a3fc2d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ThisVersion.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-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
deleted file mode 100644
index 5e7b9411..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
deleted file mode 100644
index 8ef53bd5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Tolist.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.02
-
-function Out=Tolist(LG)
- Out=list();
- for I=1:length(LG)
- Out($+1)=LG(I);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
deleted file mode 100644
index 43315b47..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
deleted file mode 100644
index 98d69544..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translate3data.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.08.15
-// 15.04.12
-
-function Out=Translate3data(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- Mv=varargin(2);
- if type(Mv)==1 & length(Mv)==1
- Mv=[varargin(2),varargin(3),varargin(4)];
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=P+Mv;;
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
deleted file mode 100644
index 9b27594a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
deleted file mode 100644
index a2e31085..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Translatedata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Translatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)>1
- A=Tmp(1); B=Tmp(2);
- else
- A=Tmp;
- if Nargs>=3
- B=varargin(3);
- else
- B=0;
- end;
- end;
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=X1+A;
- Y2=Y1+B;
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
deleted file mode 100644
index 838fdc91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
deleted file mode 100644
index b4705593..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Trunc.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.05.20
-
-function N=Trunc(X)
- if X>=0
- N=floor(X)
- else
- N=ceil(X)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
deleted file mode 100644
index 60e56331..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
deleted file mode 100644
index 74910ceb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Unscaling.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-function Out=Unscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY];
- Out=GLg;
- if LOGX==1
- Out=[10^(GLg(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- Out=[GLg(:,1),10^(GLg(:,2))];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
deleted file mode 100644
index b6a902cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
deleted file mode 100644
index 4bc7684c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=zeros(1,length(PA));
- end
- Tmp=PB-PA;
- L=sqrt(Tmp*Tmp');
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
deleted file mode 100644
index 3118062d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
deleted file mode 100644
index 527d3834..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vecnagasa2.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa2(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=[0,0];
- end
- Tmp=PB-PA;
- L=Tmp*Tmp';
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
deleted file mode 100644
index 1692f2d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
deleted file mode 100644
index 44bde517..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Viewfrom.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.10.26
-
-function Out=Viewfrom(varargin)
- global THETA PHI
- Nargs=length(varargin);
- Nvec=varargin(1);
- GL=varargin(2);
- Flg=1;
- if Nargs>=3
- Flg=varargin(3);
- end;
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
deleted file mode 100644
index 8410cc5f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
deleted file mode 100644
index de320918..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Vtickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.26 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Vtickmark(varargin)
- global Wfile FID MARKLEN GENTEN YMIN YMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((YMAX-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=Op(N,ArgsL);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(GENTEN(1),Dt);
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X+MARKLEN,Y]);
- Tmp2=Unscaling([X-MARKLEN,Y]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,'w',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'w')~=[]
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X+MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
deleted file mode 100644
index cfd85f0b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
deleted file mode 100644
index baa03e73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Windisp.sci
+++ /dev/null
@@ -1,110 +0,0 @@
-// 08.05.16 Point style
-// 08.05.17 MixL
-// 08.05.19 Changed
-// 08.05.21 Eps=0.1
-// 08.08.16 square
-// 09.11.04 window option
-// 09.11.07 gcf used
-// 09.12.25
-// 10.01.01
-// 10.01.09 ' '
-// 10.01.10 drw one by one
-// 10.02.08 revised for the case "a"
-// 10.02.13 square debugged
-// 10.02.21 square debugged (2)
-// 10.02.23 case of mixlength=3
-// 10.04.10 Origin bug
-// 11.05.29 Flattenlist used
-
-function Windisp(varargin)
- global XMIN XMAX YMIN YMAX GENTEN
- Nargs=length(varargin);
- Tp=varargin(Nargs);
- Ch='';
- if type(Tp)~=10
- scf();
- else
- Ch=part(Tp,1);
- Nargs=Nargs-1;
- select Ch;
- case 'N' then scf();
- case 'n' then scf();
- case 'C' then Tmp=gcf();clf('clear');
- case 'c' then Tmp=gcf();clf('clear');
- case 'A' then Tmp=gcf();
- case 'a' then Tmp=gcf();
- else
- Tmp1=part(Tp,length(Tp));
- Tmp2=part(Tp,1:length(Tp)-1);
- Tmp3=evstr(Tmp2);
- scf(Tmp3);
- if Tmp1=='C'|Tmp1=='c'
- clf('clear');
- end;
- end;
- end;
- Eps=0.1;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1); Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1); YM=Tmp(2);
- C=[(Xm+XM)/2,(Ym+YM)/2];
- H=max(XM-Xm,YM-Ym)/2;
- R1=C-H; R2=C+H;
- R1=Unscaling(R1);
- R2=Unscaling(R2);
- if (Ch~='A')&(Ch~='a')
- Tmp1=R1(1);
- Tmp2=R2(1);
- Tmp3=R1(2);
- Tmp4=R2(2);
- square(Tmp1,Tmp3,Tmp2,Tmp4);//
- P=Framedata([XMIN,XMAX],[YMIN,YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2);
- PtO=GENTEN; // 10.04.10
- if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) //
- P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- if (PtO(1)>=XMIN) & (PtO(1)<=XMAX)
- P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Tmp=Op(II,Pdata);
- P=MakeCurves(Tmp,0);
- P=Unscaling(P);
- Ndm=Dataindex(P);
- for J=1:size(Ndm,1)
- Q=P(Ndm(J,1):Ndm(J,2),:)
- if size(Q,1)==1
- for K=1:2:length(Q)
- plot2d(Q(K),Q(K+1),style=[-3]);
- end
- else
- Tmp1=Q(:,1)';
- Tmp2=Q(:,2)';
- plot2d(Tmp1,Tmp2);
- end
- end
- end
-// for II=2:length(Pdata)
-// Tmp=Op(II,Pdata);
-// Windisp(Tmp,'a');
-// end;
- end
- for I=2:Nargs
- Pdata=varargin(I);
- Windisp(Pdata,'a');
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
deleted file mode 100644
index 329b7bae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
deleted file mode 100644
index 24920661..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WireHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.12.11
-
-function Out=WireHiddenData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
deleted file mode 100644
index cd12acae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
deleted file mode 100644
index d62acaf3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WirePt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.09.15
-// 09.09.10 registered
-
-function Out=WirePt()
- global WIREPT
- Out=WIREPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
deleted file mode 100644
index 74ac71e0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
deleted file mode 100644
index b46e359c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wireparadata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wireparadata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
deleted file mode 100644
index 7ac1f185..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
deleted file mode 100644
index 11def80c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirepersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wirepersdata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
deleted file mode 100644
index 646215a8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
deleted file mode 100644
index 59c5ba54..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawparadata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawparadata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
deleted file mode 100644
index 28eecf7a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
deleted file mode 100644
index d168b4f7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Wirerawpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawpersdata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DvL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
deleted file mode 100644
index baa9001a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
deleted file mode 100644
index 059ac6d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WriteOutData.sci
+++ /dev/null
@@ -1,55 +0,0 @@
-// s:2014.10.10
-// e:2014.12.14 ( for 3d )
-// e:2015.10.29 ( endmark //// )
-
-function WriteOutData(varargin)
- global Fnameout
- Nargs=length(varargin);
- if modulo(Nargs,2)==0 then
- Fname=Fnameout;
- Nst=1;
- else
- Fname=varargin(1);
- Nst=2;
- end;
- Fid=mopen(Fname,'w');
- for N=Nst:2:Nargs
- Gname=varargin(N);
- mfprintf(Fid,'%s\n',Gname+"//");
- Gdata=varargin(N+1);
- Gdata=Flattenlist(Gdata);
- for K=1:length(Gdata)
- GL=Dividegraphics(Gdata(K));
- for J=1:length(GL)
- mfprintf(Fid,'%s\n',"start//");
- Str="";
- for I=1:Numptcrv(GL(J))
- Pt=Ptcrv(I,GL(J));
- if length(Str)>0 then
- Str=Str+","
- end;
- if length(Pt)<3 // 2014.12.14
- Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2));
- else
- Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3));
- end;
- if length(Str)>80 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- Str="";
- end
- end
- if length(Str)>0 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- end
- if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29
-// mfprintf(Fid,'%s\n',"end////");
- mfprintf(Fid,'%s\n',"end//");
- else
- mfprintf(Fid,'%s\n',"end//");
- end;
- end
- end
- end
- mfprintf(Fid,'%s\n',"//");
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
deleted file mode 100644
index 734a3c14..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
deleted file mode 100644
index ae51bf8b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writeobjpoint.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// s : 2014.06.22
-
-function Out=Writeobjpoint(P)
- global OBJFMT OBJSCALE NPOINT;
- X=sprintf(OBJFMT,P(1)*OBJSCALE);
- Y=sprintf(OBJFMT,P(2)*OBJSCALE);
- Z=sprintf(OBJFMT,P(3)*OBJSCALE);
- Str="v "+X+" "+Y+" "+Z;
- Printobjstr(Str)
- NPOINT=NPOINT+1
- Out=NPOINT;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
deleted file mode 100644
index 5e4a47e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
deleted file mode 100644
index 51a13884..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Writetextdata.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 2010.04.27
-
-function Writetextdata(varargin)
- Fname=varargin(1);
- Mt=varargin(2);
- D=-1;
- for I=3:length(varargin)
- Tmp=varargin(I);
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- end;
- end;
- Str='';
- for J=1:size(Mt,2)
- Str=Str+'x'+string(J);
- if 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
deleted file mode 100644
index 4b55a62a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
deleted file mode 100644
index 60d73ef7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/WritetoCindy.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 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
deleted file mode 100644
index 42261931..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
deleted file mode 100644
index 28ab28ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-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
deleted file mode 100644
index aff6ce0e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
deleted file mode 100644
index e18e83d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xmin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-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
deleted file mode 100644
index c10e835a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
deleted file mode 100644
index b2118c90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzax3data.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.07.11
-
-function Out=Xyzax3data(Xrange,Yrange,Zrange)
- J=mtlb_findstr(Xrange,'=');
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz]));
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
deleted file mode 100644
index 58069271..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
deleted file mode 100644
index b833802d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxparaname.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.07.11
-// 09.09.18
-
-function Kekka=Xyzaxparaname(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
deleted file mode 100644
index 9bafd8a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
deleted file mode 100644
index d9c1c7df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Xyzaxpersname.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 08.08.14
-// 08.08.15
-// 09.09.18
-
-function Kekka=Xyzaxpersname(varargin)
- global MilliIn;
- Eps=10.0^(-6);
- Nargs=length(varargin);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
deleted file mode 100644
index dd606856..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
deleted file mode 100644
index 0a835534..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-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
deleted file mode 100644
index e990681f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
deleted file mode 100644
index 73d0d261..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ymin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-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
deleted file mode 100644
index acd2edd0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
deleted file mode 100644
index 5c237179..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zparapt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Out=Zparapt(P)
- global PHI THETA;
- x=P(1); y=P(2); z=P(3);
- Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
deleted file mode 100644
index 76e4408e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
deleted file mode 100644
index 13601556..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Zperspt.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.08.12
-// 10.01.02
-
-function X3=Zperspt(P)
-
- global FocusPoint EyePoint
-
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
deleted file mode 100644
index 3083cb73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/lib
+++ /dev/null
@@ -1,344 +0,0 @@
-<?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>