summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
-rw-r--r--texmf-dist/doc/support/ketcindy/ScriptInitialization.txt22
-rw-r--r--texmf-dist/doc/support/ketcindy/ScriptKeytyped.txt268
-rw-r--r--texmf-dist/doc/support/ketcindy/Scriptfigure.txt (renamed from texmf-dist/doc/support/ketcindy/ScriptDraw.txt)35
-rw-r--r--texmf-dist/doc/support/ketcindy/Scriptkelib.txt4
-rw-r--r--texmf-dist/doc/support/ketcindy/Scriptketlibsci.txt8
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figure.cdybin5442 -> 5314 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figurepdf.cdybin5430 -> 5303 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0102figure2.cdybin5369 -> 5255 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0103polygon.cdybin4838 -> 4731 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0104shade.cdybin5632 -> 5526 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0105vector.cdybin4991 -> 4886 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowdotfill.cdybin5672 -> 5567 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowhatch.cdybin5677 -> 5574 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0107hyperbolahatch.cdybin4324 -> 4219 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0108cycloid.cdybin4296 -> 4195 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0109epitrochoid.cdybin4431 -> 4449 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0110hypotrochoid.cdybin4436 -> 4445 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0201basic.cdybin4223 -> 4223 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0202graph1.cdybin4553 -> 4455 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0203graph2.cdybin4520 -> 4422 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0204graph3.cdybin4826 -> 4728 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0205coniccurve.cdybin4246 -> 4224 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0206defexp.cdybin5188 -> 5152 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0207envelope.cdybin4558 -> 4481 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0208intersecthatch.cdybin4014 -> 3907 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0209diffeq.cdybin4123 -> 4008 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0210diffeq2.cdybin5808 -> 5729 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0211plotdataS.cdybin3973 -> 3870 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0212implicit.cdybin4101 -> 3966 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0213implicithatch.cdybin3961 -> 3825 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0301table.cdybin5345 -> 5223 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2.cdybin4106 -> 3999 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2line.cdybin4080 -> 3975 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0303papersquared.cdybin4161 -> 4054 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0304graphforincanddec.cdybin3975 -> 3871 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0305incanddec.cdybin4156 -> 4052 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0401bezierbasic.cdybin6521 -> 6397 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0402bezier2.cdybin6101 -> 5993 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0403bezierspline.cdybin7645 -> 7538 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404heart.cdybin83728 -> 83622 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404mtfuji.cdybin6331 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0405dogwalk.cdybin72452 -> 72346 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406heart.cdybin82099 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406mtfuji.cdybin9510 -> 9403 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501basic.cdybin5943 -> 5865 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501plane.cdybin8227 -> 8166 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0502spacecurve.cdybin5236 -> 5169 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0503perp.cdybin6070 -> 6005 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0504embed.cdybin6124 -> 6060 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0505bezier3d.cdybin6956 -> 6889 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0506embedhatch.cdybin6173 -> 6109 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0507polyhedron.cdybin6648 -> 6589 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0508concatobj.cdybin8322 -> 8260 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05091tetra.cdybin6781 -> 6718 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05092cubiccut.cdybin11172 -> 11115 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05093cubiccut2.cdybin8514 -> 8451 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/CindyScriptset.txt17
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0601cycloid.cdybin4324 -> 5147 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0602diffeq.cdybin4820 -> 5702 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0603envelope.cdybin4223 -> 4943 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0604diffeq2.cdybin4474 -> 5156 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0605cycloid2.cdybin4702 -> 5390 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0606epitrochoid.cdybin4853 -> 5501 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0607hypotrochoid.cdybin4862 -> 5485 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0608cycloid3.cdybin4759 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/CindyScriptset.txt24
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0601cycloid.cdybin0 -> 4455 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0602diffeq.cdybin0 -> 4985 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0603envelope.cdybin0 -> 4355 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0604diffeq2.cdybin0 -> 4606 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0605cycloid2.cdybin0 -> 4832 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0606epitrochoid.cdybin0 -> 4983 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0607hypotrochoid.cdybin0 -> 4991 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0608cycloid3.cdybin0 -> 4889 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.aux6
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.log584
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.pdfbin63985 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.tex18
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/.RDatabin1370324 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/cindyscreen.pdfbin28774 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/figsin.tex70
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slide0.tex11
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slideE.tex11
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideE.txt147
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideJ.txt149
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/kc.sh8
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.cdybin5465 -> 5455 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.txt46
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.cdybin5487 -> 5460 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.txt44
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.cdybin5594 -> 5687 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.txt40
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.cdybin5475 -> 5460 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.txt40
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.cdybin5542 -> 5631 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.txt64
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.cdybin5565 -> 5532 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.txt66
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.cdybin5667 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.cdybin5685 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.cdybin0 -> 4857 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.txt (renamed from texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.txt)108
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.cdybin0 -> 5791 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.txt (renamed from texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.txt)20
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.cdybin0 -> 5701 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.txt (renamed from texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.txt)20
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.cdybin4829 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.cdybin5741 -> 5854 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.txt38
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.cdybin5741 -> 5794 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.txt38
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0801plotR.cdybin4012 -> 3924 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0802plotR2.cdybin5307 -> 5237 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0803boxplot.cdybin4189 -> 4118 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0804histplot.cdybin4269 -> 4201 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0805random.cdybin3859 -> 3786 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0806dataframe.cdybin3984 -> 3912 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0807timecount.cdybin3975 -> 3900 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0808ttest.cdybin3967 -> 3893 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0901parabolic.cdybin0 -> 5250 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0902cone.cdybin0 -> 5279 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0903saddle.cdybin0 -> 5211 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0904sphere.cdybin0 -> 5237 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0905wireframe.cdybin0 -> 5264 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0906intersectcrvsf.cdybin0 -> 5325 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0907multisurfaces.cdybin0 -> 5313 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0908conecut.cdybin0 -> 7551 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0909totaldiff.cdybin0 -> 6128 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0901parabolic.cdybin5332 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0902cone.cdybin5358 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0903saddle.cdybin5288 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0904sphere.cdybin5321 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0905wireframe.cdybin5345 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0906intersectcrvsf.cdybin5401 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0907multisurfaces.cdybin5403 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0908conecut.cdybin7632 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0909totaldiff.cdybin6211 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1000list.cdybin3823 -> 3813 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1001basic.cdybin4093 -> 4019 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1002equation.cdybin3924 -> 3847 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1003trig.cdybin3962 -> 3884 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1004calcby.cdybin4146 -> 4067 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1005diffint.cdybin3900 -> 3826 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1006calculus.cdybin3984 -> 3908 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1007linalg.cdybin4200 -> 4122 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1008idtable.cdybin4284 -> 4208 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1009diffeq.cdybin4154 -> 4078 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier.cdybin4888 -> 4600 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier2.cdybin5240 -> 4925 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier3.cdybin5025 -> 4489 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop.cdybin3921 -> 3846 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop2.cdybin5157 -> 5087 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1012fourierpw.cdybin5121 -> 4804 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1013for.cdybin3960 -> 3883 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1014incdec2.cdybin4493 -> 4418 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1015primenumber.cdybin4042 -> 3973 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1100list.cdybin3858 -> 3785 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1101calculator1.cdybin3932 -> 3858 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1102calculator2.cdybin3923 -> 3847 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1103calcby.cdybin3941 -> 3869 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1104diff.cdybin3955 -> 3881 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fint101.cdybin3987 -> 3913 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fzero109.cdybin3934 -> 3862 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1106fmmx110.cdybin3923 -> 3850 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1110integrate.cdybin4067 -> 3993 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1111grobner1.cdybin3984 -> 3022 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1112residue.cdybin4246 -> 4172 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate.cdybin4174 -> 4069 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate2.cdybin3911 -> 3805 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202calcby.cdybin3175 -> 3069 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202equations.cdybin3241 -> 3134 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1301basic.cdybin0 -> 5377 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1303objparts.cdybin0 -> 5558 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1304symbol.cdybin0 -> 5412 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1305hyperpara.cdybin0 -> 5449 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1306poly.cdybin0 -> 6991 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1307poly2.cdybin0 -> 8262 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1308discont.cdybin0 -> 5827 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1309discont2.cdybin0 -> 5990 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1310totaldiff.cdybin0 -> 4645 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1311plate.cdybin0 -> 6716 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1312plane.cdybin0 -> 7368 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1313changescale.cdybin0 -> 8226 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1314knot.cdy (renamed from texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1314knot.cdy)bin28435 -> 28351 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1301basic.cdybin5498 -> 5346 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1303objparts.cdybin5688 -> 5561 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1304symbol.cdybin5497 -> 5381 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1305hyperpara.cdybin5592 -> 5415 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1306poly.cdybin7077 -> 6958 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1307poly2.cdybin8332 -> 8229 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1308discont.cdybin5909 -> 5799 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1309discont2.cdybin6077 -> 5955 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1310totaldiff.cdybin4709 -> 4613 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1311plate.cdybin6804 -> 6684 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1312plane.cdybin7447 -> 7332 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1313changescale.cdybin8310 -> 8193 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/errormessageR.txt0
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/kc.sh4
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/resultR.txt1
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdybin4066 -> 3934 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1402copypaste.cdybin4518 -> 4409 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1403maketableJ.cdybin7623 -> 7508 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1501mant.cdybin5691 -> 5596 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1502torus.cdybin5671 -> 5574 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1503parabola.cdybin5828 -> 5734 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1504conecut.cdybin5790 -> 5695 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1505skeleton.cdybin5768 -> 5672 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basic.cdybin4642 -> 4683 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basicketcindy.html6491
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2.cdybin5956 -> 6006 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2ketcindy.html6502
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamow.cdybin4499 -> 4674 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamowketcindy.html6494
-rw-r--r--texmf-dist/doc/support/ketcindy/ketsample/samplesJS/kc.sh0
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketjava/KetCindyPlugin.java8
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dscreen.pngbin0 -> 156863 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dstart.pngbin0 -> 143812 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL0.pngbin0 -> 124126 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL1.tex68
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL2.tex118
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/bezier3d1.tex123
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/concatobj.tex42
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata1.tex74
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata2.tex139
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed01.tex79
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed02.tex82
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed03.pngbin0 -> 102967 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/invparapt.tex110
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces1.tex105
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces2.tex58
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/parabola.tex335
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d1.tex78
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d2.tex129
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perpplane.tex69
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perppt.tex58
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata01.pngbin0 -> 218251 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata02.tex118
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata03.tex272
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rasen.tex55
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/readobj.tex64
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d01.tex85
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d02.tex85
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/saddle1.tex326
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata3.tex312
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata4.tex326
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara01.tex72
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara02.tex91
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara03.tex42
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara04.tex51
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata01.tex81
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata02.tex76
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata03.tex68
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/translate01.tex53
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/vertex01.tex20
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara1.tex202
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara2.tex179
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara3.tex265
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara4.tex320
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara5.tex253
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/Gfig/oresenex01.tex83
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.pdfbin0 -> 1821529 bytes
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.tex3
-rw-r--r--texmf-dist/doc/support/ketcindy/source/ketmanual/refketpic161211J.pdfbin0 -> 47109 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdfbin77577 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketcindy/ketcindy.sh38
-rw-r--r--texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdybin4868 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketfiles/template.cdybin4370 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jarbin156205 -> 156234 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs4517
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt295
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs673
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs4874
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt647
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt46
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs937
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs5141
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt295
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs574
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs910
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt70
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs870
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs5338
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt327
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs462
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.binbin648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.binbin4128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.binbin5420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.binbin13408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.binbin10624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.binbin6168 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.binbin20540 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.binbin1104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.binbin1808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.binbin436 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.binbin216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.binbin3792 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.binbin4152 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.binbin16600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.binbin16648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.binbin10016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.binbin6416 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.binbin7776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.binbin3972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.binbin7136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.binbin3852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.binbin2652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.binbin820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.binbin2320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.binbin5852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.binbin2572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.binbin5688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.binbin4012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.binbin6992 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.binbin1692 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.binbin612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.binbin1212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.binbin10104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.binbin1956 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.binbin336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.binbin5856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.binbin5860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.binbin332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.binbin12948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.binbin12716 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.binbin23320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.binbin23352 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.binbin1420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.binbin3500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.binbin1844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.binbin2124 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.binbin27240 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.binbin6444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.binbin2012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.binbin1728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.binbin944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.binbin1564 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.binbin26872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.binbin14728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.binbin2820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.binbin6912 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.binbin13948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.binbin3316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.binbin4060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.binbin2516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.binbin14244 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.binbin572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.binbin11336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.binbin11312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.binbin480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.binbin10616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.binbin4380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.binbin8964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.binbin16256 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.binbin15652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.binbin1464 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.binbin2080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.binbin1952 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.binbin2180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.binbin1720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.binbin5292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.binbin12768 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.binbin1804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.binbin19876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.binbin2972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.binbin16940 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.binbin9664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.binbin1440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.binbin472 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.binbin2248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.binbin3080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.binbin12372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.binbin5064 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.binbin3840 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.binbin12584 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.binbin3604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.binbin384 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.binbin5932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.binbin8520 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.binbin5604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.binbin2476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.binbin5160 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.binbin6844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.binbin16424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.binbin4228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.binbin9200 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.binbin2648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.binbin18292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.binbin10560 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.binbin4324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.binbin1884 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.binbin8068 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.binbin6312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.binbin4576 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.binbin17088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.binbin3736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.binbin53024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.binbin4688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.binbin21092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.binbin23944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.binbin7988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.binbin7812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.binbin16852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.binbin3220 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.binbin12032 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.binbin29828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.binbin1192 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.binbin27248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.binbin22316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.binbin676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.binbin1764 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.binbin756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.binbin684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.binbin1088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.binbin876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.binbin1828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.binbin7004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.binbin616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.binbin32960 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.binbin19056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.binbin32456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.binbin18916 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.binbin720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.binbin7580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.binbin2684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.binbin12672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.binbin17328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.binbin624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.binbin17228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.binbin2636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.binbin9316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.binbin2696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.binbin2612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.binbin888 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.binbin11128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.binbin5300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.binbin4812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.binbin2400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.binbin2128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.binbin3512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.binbin14900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.binbin1820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.binbin5492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.binbin4300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.binbin4232 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.binbin12336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.binbin5236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.binbin22004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.binbin23048 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.binbin356 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.binbin392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.binbin368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.binbin14492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.binbin1996 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.binbin1652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.binbin1924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.binbin600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.binbin736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.binbin3788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.binbin2892 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.binbin38656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.binbin236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.binbin6936 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.binbin6668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.binbin6860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.binbin1740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.binbin1640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.binbin3988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.binbin4180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.binbin8392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.binbin2660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.binbin15532 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.binbin7140 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.binbin1732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.binbin18700 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.binbin1708 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.binbin1484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.binbin3424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.binbin9496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.binbin3212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.binbin732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.binbin5372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.binbin1364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.binbin724 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.binbin804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.binbin1308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.binbin1248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.binbin2196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.binbin7572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.binbin5828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.binbin9872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.binbin4736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.binbin4772 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.binbin16388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.binbin7784 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.binbin6808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.binbin5092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.binbin4348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.binbin9444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.binbin2412 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.binbin12656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.binbin2108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.binbin7688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.binbin4260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.binbin7908 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.binbin18164 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.binbin2664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.binbin1216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.binbin292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.binbin156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.binbin1480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.binbin404 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.binbin1544 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.binbin408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.binbin1328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.binbin4548 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.binbin1972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.binbin1044 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.binbin1980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.binbin580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.binbin3620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.binbin3856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.binbin508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.binbin1508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.binbin880 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.binbin2024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.binbin16976 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.binbin16456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.binbin16448 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.binbin6748 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.binbin1668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.binbin4484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.binbin5196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.binbin1300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.binbin3756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt116
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names341
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.binbin922 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.binbin5238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.binbin6737 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.binbin16618 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci107
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.binbin13269 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci89
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.binbin7643 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.binbin27459 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci202
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.binbin1449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.binbin2609 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.binbin703 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.binbin5272 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.binbin6060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.binbin443 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.binbin22449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci121
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.binbin22411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.binbin13046 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.binbin8338 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.binbin10457 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.binbin5225 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.binbin7824 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.binbin4360 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.binbin3001 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.binbin1090 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.binbin3257 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.binbin7543 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.binbin3159 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.binbin7165 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.binbin5752 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.binbin9264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci58
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.binbin2182 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.binbin767 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.binbin1266 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.binbin1103 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.binbin1991 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.binbin14179 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci76
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.binbin2819 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.binbin449 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.binbin7742 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.binbin7742 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.binbin446 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.binbin17490 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci90
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.binbin16797 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.binbin440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.binbin12964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.binbin12924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci80
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.binbin413 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.binbin426 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.binbin31919 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci179
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.binbin31845 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci176
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.binbin1833 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.binbin4784 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.binbin2593 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.binbin2668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.binbin37476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci195
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.binbin9089 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci64
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.binbin2752 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.binbin2511 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.binbin2167 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.binbin33511 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.binbin454 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.binbin19335 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci124
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.binbin17289 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.binbin4450 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.binbin4030 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.binbin8499 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci66
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.binbin17128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci142
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.binbin4108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.binbin5585 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.binbin3330 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.binbin17806 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci126
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.binbin836 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.binbin15211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.binbin15184 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci77
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.binbin721 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.binbin12554 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.binbin5757 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.binbin12460 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.binbin12215 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci81
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.binbin19645 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci154
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.binbin13219 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci88
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.binbin20630 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci127
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.binbin2035 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.binbin4895 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci54
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.binbin2555 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.binbin2655 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.binbin2809 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.binbin2385 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.binbin6802 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.binbin17186 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.binbin2585 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.binbin421 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.binbin421 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.binbin25781 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci141
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.binbin3973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.binbin437 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.binbin21909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.binbin516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.binbin13253 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci61
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.binbin1826 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.binbin750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.binbin3053 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.binbin4302 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.binbin15887 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci101
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.binbin6854 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.binbin4990 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.binbin15552 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci95
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.binbin4788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.binbin621 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.binbin7426 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci50
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.binbin10756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.binbin7402 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.binbin3408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci26
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.binbin8060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci57
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.binbin5636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.binbin9114 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.binbin20514 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.binbin5978 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.binbin11635 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.binbin2900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.binbin24740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.binbin12440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.binbin5653 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.binbin5483 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.binbin2824 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci24
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.binbin10906 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci49
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.binbin8640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.binbin6014 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci45
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.binbin21601 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci123
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.binbin4911 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.binbin68349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci345
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.binbin6211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.binbin27821 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci171
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.binbin31439 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci188
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.binbin10699 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci79
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.binbin10368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci68
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.binbin21856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci111
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.binbin3637 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.binbin15057 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci91
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.binbin40156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci169
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.binbin1651 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.binbin34512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci206
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.binbin28313 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci186
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.binbin1174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.binbin1136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.binbin1135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.binbin2264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci23
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.binbin937 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.binbin2517 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.binbin1260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.binbin1085 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.binbin1799 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci22
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.binbin1415 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.binbin2552 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.binbin411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.binbin9290 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci53
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.binbin771 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.binbin42226 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci254
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.binbin23811 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci131
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.binbin41591 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci253
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.binbin23608 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci134
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.binbin398 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.binbin17718 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci115
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.binbin973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci9
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.binbin1206 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.binbin10238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.binbin3588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.binbin16478 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.binbin22731 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci114
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.binbin862 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.binbin22172 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci123
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.binbin3732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.binbin13035 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci106
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.binbin2939 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.binbin3258 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.binbin1045 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.binbin13672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.binbin6676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.binbin6365 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.binbin3079 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.binbin2839 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.binbin4477 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.binbin20071 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci140
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.binbin2390 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.binbin6865 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.binbin5346 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.binbin5465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.binbin428 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.binbin15744 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci100
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.binbin6665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.binbin496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.binbin431 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.binbin500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.binbin29830 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci173
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.binbin30095 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci184
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.binbin531 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.binbin619 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.binbin619 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.binbin625 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.binbin592 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.binbin492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.binbin492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.binbin498 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.binbin465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.binbin19408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci138
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci25
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.binbin3006 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.binbin2642 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.binbin948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.binbin849 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.binbin5078 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci32
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.binbin3725 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.binbin4932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.binbin4858 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.binbin415 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.binbin484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.binbin51975 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci250
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.binbin1729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.binbin1729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.binbin1730 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.binbin389 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci4
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.binbin1699 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.binbin9367 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.binbin2231 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.binbin8400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.binbin8687 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.binbin4017 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.binbin2122 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci18
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.binbin2078 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.binbin5045 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.binbin5332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.binbin4017 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci34
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.binbin419 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.binbin23174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci87
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.binbin11262 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci92
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.binbin3831 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci38
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.binbin21821 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci160
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.binbin9990 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci51
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.binbin2316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.binbin4411 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci40
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.binbin25211 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci75
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.binbin5669 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.binbin1170 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.binbin5149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.binbin2344 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.binbin2016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.binbin4137 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci35
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.binbin13034 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci102
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.binbin4119 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.binbin1023 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.binbin4968 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci43
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.binbin1802 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.binbin432 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.binbin1471 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.binbin1533 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.binbin1607 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci16
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.binbin3006 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci28
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.binbin3147 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.binbin3069 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.binbin10271 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci78
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.binbin11998 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci182
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.binbin7533 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci62
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.binbin5885 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci39
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.binbin5938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.binbin4537 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci33
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.binbin4498 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci31
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.binbin22872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci105
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.binbin1349 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.binbin2149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.binbin2149 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci17
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.binbin9556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci84
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.binbin9324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.binbin6935 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci48
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.binbin4084 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.binbin5901 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.binbin4038 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci29
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.binbin12729 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci83
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.binbin3439 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci27
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.binbin16665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci108
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.binbin1354 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.binbin2852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.binbin9947 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci65
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.binbin5491 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci30
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.binbin10750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci67
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.binbin25828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci130
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.binbin3162 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci41
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.binbin1603 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.binbin420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.binbin251 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.binbin1781 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.binbin546 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.binbin1806 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci15
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.binbin565 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.binbin1677 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci19
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.binbin5621 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci44
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.binbin2605 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.binbin1266 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci13
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.binbin2609 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.binbin8313 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci70
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.binbin469 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.binbin531 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.binbin526 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci6
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.binbin537 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.binbin385 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.binbin909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.binbin4301 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci36
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.binbin5248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.binbin728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci10
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.binbin2122 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.binbin1434 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.binbin1292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci11
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.binbin2667 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci21
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.binbin21938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci144
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.binbin17429 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci110
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.binbin437 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.binbin463 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.binbin21470 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.binbin21438 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci120
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.binbin15066 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.binbin15066 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.binbin8150 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci55
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci12
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.binbin5610 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci47
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci42
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.binbin4660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci14
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.binbin14997 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci71
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.binbin15036 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci72
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.binbin1665 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci8
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.binbin4894 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci20
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib344
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names335
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r1607
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r5
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.binbin648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.binbin4128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.binbin5420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.binbin13408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.binbin10624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.binbin6168 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.binbin20540 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.binbin1104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.binbin1808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.binbin436 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.binbin216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.binbin3792 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.binbin4152 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.binbin16600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.binbin16648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.binbin10016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.binbin6416 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.binbin7776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.binbin3972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.binbin7136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.binbin3852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.binbin2652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.binbin820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.binbin2320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.binbin5852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.binbin2572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.binbin5688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.binbin4012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.binbin6992 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.binbin1692 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.binbin612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.binbin1212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.binbin10104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.binbin1956 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.binbin336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.binbin5856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.binbin5860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.binbin332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.binbin12948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.binbin12716 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.binbin23320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.binbin23352 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.binbin1420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.binbin3500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.binbin1844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.binbin2124 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.binbin27240 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.binbin6444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.binbin2012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.binbin1728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.binbin944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.binbin1564 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.binbin26872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.binbin17676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.binbin2820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.binbin8004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.binbin8588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.binbin3316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.binbin4060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.binbin2516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.binbin14244 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.binbin572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.binbin11336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.binbin11312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.binbin480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.binbin10616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.binbin4380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.binbin8964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.binbin16256 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.binbin15652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.binbin1464 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.binbin2080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.binbin1952 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.binbin2180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.binbin1720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.binbin5292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.binbin12768 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.binbin1804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.binbin19876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.binbin2972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.binbin16940 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.binbin9664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.binbin1440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.binbin472 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.binbin2248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.binbin3080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.binbin12372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.binbin5064 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.binbin3840 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.binbin12584 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.binbin3604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.binbin384 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.binbin5932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.binbin8520 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.binbin5604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.binbin2476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.binbin5160 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.binbin6844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.binbin16424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.binbin4228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.binbin9200 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.binbin2648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.binbin18292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.binbin10560 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.binbin4324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.binbin1884 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.binbin8068 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.binbin6312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.binbin4576 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.binbin17804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.binbin3736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.binbin53024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.binbin4688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.binbin21092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.binbin23944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.binbin7988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.binbin7812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.binbin16852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.binbin3220 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.binbin12032 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.binbin29828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.binbin1192 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.binbin27248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.binbin22316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.binbin676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.binbin1764 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.binbin756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.binbin684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.binbin1088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.binbin876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.binbin1828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.binbin7004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.binbin616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.binbin32960 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.binbin19056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.binbin32456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.binbin18916 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.binbin720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.binbin7580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.binbin2684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.binbin12672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.binbin17328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.binbin624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.binbin17228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.binbin2636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.binbin9316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.binbin2696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.binbin2612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.binbin888 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.binbin11080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.binbin5300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.binbin4812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.binbin2400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.binbin2128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.binbin3512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.binbin14900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.binbin1820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.binbin5492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.binbin4300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.binbin4232 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.binbin12336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.binbin5236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.binbin22004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.binbin23048 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.binbin356 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.binbin392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.binbin368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.binbin14492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.binbin1996 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.binbin1652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.binbin1924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.binbin600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.binbin736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.binbin3788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.binbin2892 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.binbin38656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.binbin236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.binbin6936 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.binbin6668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.binbin6860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.binbin1740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.binbin1640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.binbin3988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.binbin4180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.binbin8392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.binbin2660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.binbin15532 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.binbin7140 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.binbin1732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.binbin18700 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.binbin1708 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.binbin1484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.binbin3424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.binbin9496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.binbin3212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.binbin732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.binbin5372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.binbin1364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.binbin724 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.binbin804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.binbin1260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.binbin1248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.binbin2196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.binbin7620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.binbin5828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.binbin9872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.binbin4736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.binbin4772 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.binbin16388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.binbin9176 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.binbin6808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.binbin5092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.binbin4348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.binbin9444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.binbin2412 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.binbin12656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.binbin2108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.binbin7688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.binbin4260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.binbin7908 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.binbin18164 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.binbin2664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.binbin1216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.binbin292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.binbin156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.binbin1480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.binbin404 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.binbin1544 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.binbin408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.binbin1328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.binbin4548 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.binbin1972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.binbin1044 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.binbin1980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.binbin580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.binbin3620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.binbin3856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.binbin508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.binbin1508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.binbin880 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.binbin2024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.binbin16976 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.binbin16456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.binbin16448 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.binbin6748 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.binbin1668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.binbin4484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.binbin5196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.binbin1300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.binbin3756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names341
-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
-rw-r--r--texmf-dist/scripts/ketcindy/ketoutset.txt144
-rw-r--r--texmf-dist/scripts/ketcindy/setketcindy.txt30
-rw-r--r--texmf-dist/scripts/ketcindy/template1basic.cdybin0 -> 4197 bytes
-rw-r--r--texmf-dist/scripts/ketcindy/template2advanced.cdybin0 -> 4846 bytes
-rw-r--r--texmf-dist/tex/latex/ketcindy/ketmedia.sty50
2360 files changed, 9534 insertions, 80155 deletions
diff --git a/texmf-dist/doc/support/ketcindy/ScriptInitialization.txt b/texmf-dist/doc/support/ketcindy/ScriptInitialization.txt
deleted file mode 100644
index 8aaaf3d1..00000000
--- a/texmf-dist/doc/support/ketcindy/ScriptInitialization.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-ketfilesdir=loaddirectory;
-use("KetCindyPlugin");
-ketcindydir=ketfilesdir + "..";
-if(isexists(gethome(),"ketcindyhead.txt"),
- setdirectory(gethome());
- import("ketcindyhead.txt");
-,
- if(isexists(plugindirectory,"dirhead.txt"),
- setdirectory(plugindirectory);
- import("dirhead.txt");
- ,
- Dirhead=getdirhead();
- );
-);
-setdirectory(ketcindydir);
-import("setketcindy.txt");
-setdirectory(ketcindydir);
-import("ketoutset.txt");
-
-setdirectory(Dirwork);
-
-Helplist(["+","+3d","+mv"],"helpJ");
diff --git a/texmf-dist/doc/support/ketcindy/ScriptKeytyped.txt b/texmf-dist/doc/support/ketcindy/ScriptKeytyped.txt
index b06655d5..cbb97c47 100644
--- a/texmf-dist/doc/support/ketcindy/ScriptKeytyped.txt
+++ b/texmf-dist/doc/support/ketcindy/ScriptKeytyped.txt
@@ -1,134 +1,134 @@
-if(key()=="?" % keydownlist()==[32],
- if(!isreal(NumTyped),NumTyped=0);
- if(NumTyped==0,
- DispStr=
- "Figure(1) Parent(2) Parapara(3) Movie(4) Surf(5)";
- );
- if(NumTyped==1,
- DispStr=
- "Shift+ Title(T) Para(P) AniF(A) Slide(S) Digest(D)";
- );
- if(NumTyped==2,
- DispStr="Shift+ Meshlab(M) KeTCindyJS(J)";
- );
- if(NumTyped==3,
- DispStr=
- "Ch : disp(0) chg(9) N(+,-) add(<) rmv(>)";
- );
- drawtext(mouse().xy,DispStr,size->24);
- NumTyped=mod(NumTyped+1,4);
-,
- NumTyped=0;
-);
-if(key()=="1",//Mkfigure
- Viewtex();
- kc();
-);
-if(key()=="2",//Mkparent
- Viewparent();
-);
-if(key()=="3",//Flipbook(Parapara)
- Flipbook();
-);
-if(key()=="4",//Texmovie
- Texmovie();
- kc();
-);
-if(key()=="5",//Surface
- Cheader();
- Cmain();
- kcC();
- if(ChNum>0,
- Ch=[ChNum];
- ,
- Ch=[1];
- );
- ChNum=0;
-);
-if(key()=="T",//Title
- Maketitle();
-);
-if(key()=="P",//ParaF
- Parafolder();
-);
-if(key()=="A",//Animatefile
- Animatefile();
-);
-if(key()=="S",//Slide
- Mkslides();
-);
-if(key()=="D",//Digest(Summary)
- Mkslidesummary();
-);
-if(key()=="M",//Meshlab
- Mkviewobj(OCNAME,OBJCMD,OCOPTION);
-);
-if(key()=="J",//KeTCindyJS
- Mkketcindyjs();
-);
-
-if(key()=="0",
- Dispchoice();
-);
-if(key()=="9",
- if(length(Ch)==0,
- Ch=[ChNum];
- ,
- if(!contains(Ch,ChNum),
- Ch=append(Ch,ChNum);
- ChNum=Ch_(length(Ch)-1);
- Ch=remove(Ch,[ChNum]);
- Ch=sort(Ch);
- );
- );
- Dispchoice();
-);
-if(key()=="+",
- ChNum=ChNum+1;
- Dispchoice();
-);
-if(key()=="-",
- ChNum=ChNum-1;
- Dispchoice();
-);
-if(key()=="<",
- if(length(select(Ch,#==ChNum))==0,
- Ch=append(Ch,ChNum);
- Ch=sort(Ch);
- ChNum=ChNum+1;
- );
- Dispchoice();
-);
-if(key()=="^",
- if(length(Ch)==0,
- Ch=[ChNum];
- ,
- if(!contains(Ch,ChNum),
- Ch=Ch_(1..(length(Ch)-1));
- Ch=append(Ch,ChNum);
- Ch=sort(Ch);
- );
- );
- ChNum=ChNum+1;
- Dispchoice();
-);
-if(key()=="~",
- if(length(Ch)==0,
- Ch=[ChNum];
- ,
- if(!contains(Ch,ChNum),
- Ch=Ch_(1..(length(Ch)-1));
- Ch=append(Ch,ChNum);
- Ch=sort(Ch);
- );
- );
- ChNum=max(ChNum-1,1);
- Dispchoice();
-);
-if(key()==">",
- if(length(Ch)>0,
- ChNum=Ch_(length(Ch));
- Ch=Remove(Ch,[ChNum]);
- );
- Dispchoice();
-);
+if(key()=="?" % keydownlist()==[32],
+ if(!isreal(NumTyped),NumTyped=0);
+ if(NumTyped==0,
+ DispStr=
+ "Figure(1) Parent(2) Parapara(3) Movie(4) Surf(5)";
+ );
+ if(NumTyped==1,
+ DispStr=
+ "Shift+ Title(T) Para(P) AniF(A) Slide(S) Digest(D)";
+ );
+ if(NumTyped==2,
+ DispStr="Shift+ Meshlab(M) KeTCindyJS(J)";
+ );
+ if(NumTyped==3,
+ DispStr=
+ "Ch : disp(0) chg(9) N(+,-) add(<) rmv(>)";
+ );
+ drawtext(mouse().xy,DispStr,size->24);
+ NumTyped=mod(NumTyped+1,4);
+,
+ NumTyped=0;
+);
+if(key()=="1",//Mkfigure
+ Viewtex();
+ kc();
+);
+if(key()=="2",//Mkparent
+ Viewparent();
+);
+if(key()=="3",//Flipbook(Parapara)
+ Flipbook();
+);
+if(key()=="4",//Texmovie
+ Texmovie();
+ kc();
+);
+if(key()=="5",//Surface
+ Cheader();
+ Cmain();
+ kcC();
+ if(ChNum>0,
+ Ch=[ChNum];
+ ,
+ Ch=[1];
+ );
+ ChNum=0;
+);
+if(key()=="T",//Title
+ Maketitle();
+);
+if(key()=="P",//ParaF
+ Parafolder();
+);
+if(key()=="A",//Animatefile
+ Animatefile();
+);
+if(key()=="S",//Slide
+ Mkslides();
+);
+if(key()=="D",//Digest(Summary)
+ Mkslidesummary();
+);
+if(key()=="M",//Meshlab
+ Mkviewobj(OCNAME,OBJCMD,OCOPTION);
+);
+if(key()=="J",//KeTCindyJS
+ Mkketcindyjs();
+);
+
+if(key()=="0",
+ Dispchoice();
+);
+if(key()=="9",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=append(Ch,ChNum);
+ ChNum=Ch_(length(Ch)-1);
+ Ch=remove(Ch,[ChNum]);
+ Ch=sort(Ch);
+ );
+ );
+ Dispchoice();
+);
+if(key()=="+",
+ ChNum=ChNum+1;
+ Dispchoice();
+);
+if(key()=="-",
+ ChNum=ChNum-1;
+ Dispchoice();
+);
+if(key()=="<",
+ if(length(select(Ch,#==ChNum))==0,
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ ChNum=ChNum+1;
+ );
+ Dispchoice();
+);
+if(key()=="^",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=Ch_(1..(length(Ch)-1));
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ );
+ );
+ ChNum=ChNum+1;
+ Dispchoice();
+);
+if(key()=="~",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=Ch_(1..(length(Ch)-1));
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ );
+ );
+ ChNum=max(ChNum-1,1);
+ Dispchoice();
+);
+if(key()==">",
+ if(length(Ch)>0,
+ ChNum=Ch_(length(Ch));
+ Ch=Remove(Ch,[ChNum]);
+ );
+ Dispchoice();
+);
diff --git a/texmf-dist/doc/support/ketcindy/ScriptDraw.txt b/texmf-dist/doc/support/ketcindy/Scriptfigure.txt
index 7e2f2120..9a330d46 100644
--- a/texmf-dist/doc/support/ketcindy/ScriptDraw.txt
+++ b/texmf-dist/doc/support/ketcindy/Scriptfigure.txt
@@ -1,19 +1,16 @@
-Fhead="new1basic";
-Texparent="";
-Slidename="";
-
-Ketinit();
-
-Putpoint("A",[-4,0],A.xy);
-Putpoint("B",[4,0],B.xy);
-Putpoint("C",[1,4],C.xy);
- // points can be put with Cindy button.
-
-Listplot([A,B,C,A]);
-Plotdata("1","sin(x)","x",["da"]);
-Paramplot("1","3*[cos(3*t),sin(2*t)]","t=[0,4*pi]",["Num=200","do"]);
-
-Windispg();
-
-//Help("Plotdata");
-//Help("Option");
+Ketinit();
+Texparent="";
+
+Putpoint("A",[-4,0],A.xy);
+Putpoint("B",[4,0],B.xy);
+Putpoint("C",[1,4],C.xy);
+ // points can be put with Cindy button.
+
+Listplot([A,B,C,A]);
+Plotdata("1","sin(x)","x",["da"]);
+Paramplot("1","3*[cos(3*t),sin(2*t)]","t=[0,4*pi]",["Num=200","do"]);
+
+Windispg();
+
+//Help("Plotdata");
+//Help("Option");
diff --git a/texmf-dist/doc/support/ketcindy/Scriptkelib.txt b/texmf-dist/doc/support/ketcindy/Scriptkelib.txt
new file mode 100644
index 00000000..bd9197ba
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/Scriptkelib.txt
@@ -0,0 +1,4 @@
+use("KetCindyPlugin");
+Dircdy=loaddirectory;
+setdirectory(plugindirectory);
+import("dirhead.txt");
diff --git a/texmf-dist/doc/support/ketcindy/Scriptketlibsci.txt b/texmf-dist/doc/support/ketcindy/Scriptketlibsci.txt
new file mode 100644
index 00000000..a703b64c
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/Scriptketlibsci.txt
@@ -0,0 +1,8 @@
+use("KetCindyPlugin");
+Dircdy=loaddirectory;
+setdirectory(plugindirectory);
+import("dirheadsci.txt");
+//PathS=replace(PathS,"6.0.0","5.5.2");
+
+//Ketinit();
+//Ketinit3d();
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figure.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figure.cdy
index cd626e73..23b2ec4a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figure.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figure.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figurepdf.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figurepdf.cdy
index ee44f56d..0ce178ec 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figurepdf.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0101figurepdf.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0102figure2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0102figure2.cdy
index bd359287..7c5f4f7c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0102figure2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0102figure2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0103polygon.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0103polygon.cdy
index 8bb62ade..adb3f452 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0103polygon.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0103polygon.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0104shade.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0104shade.cdy
index a7d2a3ed..13c7b8a4 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0104shade.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0104shade.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0105vector.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0105vector.cdy
index 56349f10..d928672b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0105vector.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0105vector.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowdotfill.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowdotfill.cdy
index fc9064e4..1723fe89 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowdotfill.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowdotfill.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowhatch.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowhatch.cdy
index 57a8d62e..459feeac 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowhatch.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0106bowhatch.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0107hyperbolahatch.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0107hyperbolahatch.cdy
index 4ac2609c..cd2cb8e4 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0107hyperbolahatch.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0107hyperbolahatch.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0108cycloid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0108cycloid.cdy
index 520d7188..6c5668e5 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0108cycloid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0108cycloid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0109epitrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0109epitrochoid.cdy
index a7197bd5..22995717 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0109epitrochoid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0109epitrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0110hypotrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0110hypotrochoid.cdy
index 333fdc48..ce4cc21d 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0110hypotrochoid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s01figure/s0110hypotrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0201basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0201basic.cdy
index e917e8fe..375e477f 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0201basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0201basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0202graph1.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0202graph1.cdy
index d860c23f..fb5f231c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0202graph1.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0202graph1.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0203graph2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0203graph2.cdy
index 85305550..577cd958 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0203graph2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0203graph2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0204graph3.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0204graph3.cdy
index f53f0f62..274c9663 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0204graph3.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0204graph3.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0205coniccurve.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0205coniccurve.cdy
index 456dcb61..f07f094a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0205coniccurve.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0205coniccurve.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0206defexp.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0206defexp.cdy
index 100a2fe7..3aabbc48 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0206defexp.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0206defexp.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0207envelope.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0207envelope.cdy
index 02d98dde..4f3f48b0 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0207envelope.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0207envelope.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0208intersecthatch.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0208intersecthatch.cdy
index 464300b2..866e0cac 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0208intersecthatch.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0208intersecthatch.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0209diffeq.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0209diffeq.cdy
index 82596fd1..5ef84953 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0209diffeq.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0209diffeq.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0210diffeq2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0210diffeq2.cdy
index 5e6a5d9a..df228044 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0210diffeq2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0210diffeq2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0211plotdataS.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0211plotdataS.cdy
index b0cbdadb..dba596a3 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0211plotdataS.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0211plotdataS.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0212implicit.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0212implicit.cdy
index 662dd917..3ad386c7 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0212implicit.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0212implicit.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0213implicithatch.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0213implicithatch.cdy
index b9eb8a11..a59d5b99 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0213implicithatch.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s02graph/s0213implicithatch.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0301table.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0301table.cdy
index f58ac055..edbd6159 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0301table.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0301table.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2.cdy
index acb4b25b..fb5f02d6 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2line.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2line.cdy
index 176014a0..87cfe10f 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2line.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0302table2line.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0303papersquared.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0303papersquared.cdy
index d08a9011..1a127585 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0303papersquared.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0303papersquared.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0304graphforincanddec.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0304graphforincanddec.cdy
index b2ec78d6..f46a2a29 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0304graphforincanddec.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0304graphforincanddec.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0305incanddec.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0305incanddec.cdy
index 1da8d515..c664dbb9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0305incanddec.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s03table/s0305incanddec.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0401bezierbasic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0401bezierbasic.cdy
index 60f1c678..9b74b35e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0401bezierbasic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0401bezierbasic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0402bezier2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0402bezier2.cdy
index d4b57c7f..0a637398 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0402bezier2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0402bezier2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0403bezierspline.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0403bezierspline.cdy
index cf1cf323..4a295326 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0403bezierspline.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0403bezierspline.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404heart.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404heart.cdy
index 78164f18..cde6c433 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404heart.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404heart.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404mtfuji.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404mtfuji.cdy
deleted file mode 100644
index 9720fe79..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0404mtfuji.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0405dogwalk.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0405dogwalk.cdy
index 2ca3572c..06bb52f8 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0405dogwalk.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0405dogwalk.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406heart.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406heart.cdy
deleted file mode 100644
index 0f6a51f0..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406heart.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406mtfuji.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406mtfuji.cdy
index f7a08f55..2b20596a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406mtfuji.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s04bezier/s0406mtfuji.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501basic.cdy
index 974712f6..3850f7e0 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501plane.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501plane.cdy
index 2a4150d2..d930b0e3 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501plane.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0501plane.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0502spacecurve.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0502spacecurve.cdy
index 6095bc89..57cf4313 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0502spacecurve.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0502spacecurve.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0503perp.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0503perp.cdy
index 57023a22..7be0735c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0503perp.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0503perp.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0504embed.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0504embed.cdy
index 853ad6a3..20a97e8e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0504embed.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0504embed.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0505bezier3d.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0505bezier3d.cdy
index 6833edb7..ae22c810 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0505bezier3d.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0505bezier3d.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0506embedhatch.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0506embedhatch.cdy
index 3c7ba160..ef336e0a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0506embedhatch.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0506embedhatch.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0507polyhedron.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0507polyhedron.cdy
index a3a48f3b..beee239a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0507polyhedron.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0507polyhedron.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0508concatobj.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0508concatobj.cdy
index 532c7754..66164a2d 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0508concatobj.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s0508concatobj.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05091tetra.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05091tetra.cdy
index a2fdbc99..a9722248 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05091tetra.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05091tetra.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05092cubiccut.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05092cubiccut.cdy
index 2040453d..0f9663ee 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05092cubiccut.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05092cubiccut.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy
index 20a0e3d5..d2cb0ed5 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/CindyScriptset.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/CindyScriptset.txt
deleted file mode 100644
index 3d0e239a..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/CindyScriptset.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-use("KetCindyPlugin");
-if(isexists(plugindirectory,"dirhead.txt"),
- setdirectory(plugindirectory);
- import("dirhead.txt");
-,
- Dirhead=getdirhead();
-);
-Shellfile="";
-setdirectory(Dirhead);
-import("setketcindy.txt");
-import("ketoutset.txt");
-
-setdirectory(Dirwork);
-
-Helplist(["+","+3d","+mv"],"helpJ");
-
-Shellfile="mv"; \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0601cycloid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0601cycloid.cdy
index 50896c81..13ee3cd0 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0601cycloid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0601cycloid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0602diffeq.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0602diffeq.cdy
index c07f11d3..0bb3cb64 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0602diffeq.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0602diffeq.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0603envelope.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0603envelope.cdy
index 6c57146d..e762e8db 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0603envelope.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0603envelope.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0604diffeq2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0604diffeq2.cdy
index f46a4bf9..64374352 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0604diffeq2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0604diffeq2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0605cycloid2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0605cycloid2.cdy
index bcd417d7..9e1d541c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0605cycloid2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0605cycloid2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0606epitrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0606epitrochoid.cdy
index 1f4de6f1..df32beb3 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0606epitrochoid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0606epitrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0607hypotrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0607hypotrochoid.cdy
index 5739299d..b49ee406 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0607hypotrochoid.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0607hypotrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0608cycloid3.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0608cycloid3.cdy
deleted file mode 100644
index f1d8418a..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s0608cycloid3.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/CindyScriptset.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/CindyScriptset.txt
new file mode 100644
index 00000000..7bbd6f0f
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/CindyScriptset.txt
@@ -0,0 +1,24 @@
+use("KetCindyPlugin");
+Sciver="5.5.2";
+if(iswindows(),
+ Pathhead="C:\kettex\texlive";
+ Dirhead=Pathhead+"\texmf-dist\scripts\ketcindy";
+ PathThead=Pathhead+"\bin\win32\";
+ Homehead="C:\Users";
+ Dirfile=Homehead+"\"+getname()+"\ketcindy";
+);
+if(ismacosx(),
+ Pathhead="/Applications/kettex/texlive";
+ Dirhead=Pathhead+"/texmf-dist/scripts/ketcindy";
+ PathThead=Pathhead+"/bin/x86_64-darwin/";
+ Homehead="/Users";
+ Dirfile=gethome()+"/ketcindy";
+);
+setdirectory(Dirfile);
+import("setketcindysci.txt");
+import("ketoutsetsci.txt");
+Mackc="open";
+setdirectory(Dirwork);
+Helplist(["+","+3d","+mv"],"helpJ");
+
+Pathpdf=PathAd;
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0601cycloid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0601cycloid.cdy
new file mode 100644
index 00000000..ba340f66
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0601cycloid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0602diffeq.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0602diffeq.cdy
new file mode 100644
index 00000000..e2298ba3
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0602diffeq.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0603envelope.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0603envelope.cdy
new file mode 100644
index 00000000..d790c529
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0603envelope.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0604diffeq2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0604diffeq2.cdy
new file mode 100644
index 00000000..85ee5df7
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0604diffeq2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0605cycloid2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0605cycloid2.cdy
new file mode 100644
index 00000000..984566e9
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0605cycloid2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0606epitrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0606epitrochoid.cdy
new file mode 100644
index 00000000..c1d8f2a7
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0606epitrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0607hypotrochoid.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0607hypotrochoid.cdy
new file mode 100644
index 00000000..5f3e5438
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0607hypotrochoid.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0608cycloid3.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0608cycloid3.cdy
new file mode 100644
index 00000000..1cb5266a
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s06animation/s06animation(Scilab)/s0608cycloid3.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.aux b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.aux
deleted file mode 100644
index 3659348e..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.aux
+++ /dev/null
@@ -1,6 +0,0 @@
-\relax
-\providecommand\pbs@newkey[2]{}\providecommand\pbs@seq@push@cx[2]{}\providecommand\pbs@at@end@dvi@check{}
-\pbs@at@end@dvi@check
-\providecommand\@anim@newkey[2]{}
-\providecommand\mix@newkey[2]{}
-\pbs@newkey{pbs@last@page}{1}
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.log b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.log
deleted file mode 100644
index ba2c1c51..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.log
+++ /dev/null
@@ -1,584 +0,0 @@
-This is e-upTeX, Version 3.14159265-p3.7-u1.21-160201-2.6 (utf8.uptex) (TeX Live 2016) (preloaded format=uplatex 2017.8.18) 14 OCT 2017 18:56
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**animatesinemove.tex
-(./animatesinemove.tex
-pLaTeX2e <2016/11/29u01> (based on LaTeX2e <2017/01/01> patch level 3)
-Babel <3.9r> and hyphenation patterns for 3 language(s) loaded.
-(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujarticle.cls
-Document Class: ujarticle 2016/11/22 v1.7b-u00 Standard upLaTeX class
-\c@@paper=\count82
-(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujsize10.clo
-File: ujsize10.clo 2016/11/22 v1.7b-u00 Standard upLaTeX file (size option)
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 9.6222pt on input line 28.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 9.6222pt on input line 28.
-)
-\c@part=\count83
-\c@section=\count84
-\c@subsection=\count85
-\c@subsubsection=\count86
-\c@paragraph=\count87
-\c@subparagraph=\count88
-\c@figure=\count89
-\c@table=\count90
-\abovecaptionskip=\skip41
-\belowcaptionskip=\skip42
-\symmincho=\mathgroup4
-LaTeX Font Info: Overwriting symbol font `mincho' in version `bold'
-(Font) JY2/mc/m/n --> JY2/gt/m/n on input line 580.
-\toclineskip=\dimen118
-\@lnumwidth=\dimen119
-\bibindent=\dimen120
-\heisei=\count91
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty
-\c@ketpicctra=\count92
-\c@ketpicctrb=\count93
-\c@ketpicctrc=\count94
-\c@ketpicctrd=\count95
-\c@ketpicctre=\count96
-\c@ketpicctrf=\count97
-\c@ketpicctrg=\count98
-\c@ketpicctrh=\count99
-\c@ketpicctri=\count100
-\c@ketpicctrj=\count101
-\Width=\skip43
-\Height=\skip44
-\Depth=\skip45
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty
-\layercurrentunit=\skip46
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty
-Package: amsmath 2016/11/05 v2.16a AMS math features
-\@mathmargin=\skip47
-
-For additional information on amsmath, use the `?' option.
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amstext.sty
-Package: amstext 2000/06/29 v2.01 AMS text
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty
-File: amsgen.sty 1999/11/30 v2.0 generic functions
-\@emptytoks=\toks15
-\ex@=\dimen121
-))
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty
-Package: amsbsy 1999/11/29 v1.2d Bold Symbols
-\pmbraise@=\dimen122
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty
-Package: amsopn 2016/03/08 v2.02 operator names
-)
-\inf@bad=\count102
-LaTeX Info: Redefining \frac on input line 213.
-\uproot@=\count103
-\leftroot@=\count104
-LaTeX Info: Redefining \overline on input line 375.
-\classnum@=\count105
-\DOTSCASE@=\count106
-LaTeX Info: Redefining \ldots on input line 472.
-LaTeX Info: Redefining \dots on input line 475.
-LaTeX Info: Redefining \cdots on input line 596.
-\Mathstrutbox@=\box41
-\strutbox@=\box42
-\big@size=\dimen123
-LaTeX Font Info: Redeclaring font encoding OML on input line 712.
-LaTeX Font Info: Redeclaring font encoding OMS on input line 713.
-\macc@depth=\count107
-\c@MaxMatrixCols=\count108
-\dotsspace@=\muskip10
-\c@parentequation=\count109
-\dspbrk@lvl=\count110
-\tag@help=\toks16
-\row@=\count111
-\column@=\count112
-\maxfields@=\count113
-\andhelp@=\toks17
-\eqnshift@=\dimen124
-\alignsep@=\dimen125
-\tagshift@=\dimen126
-\tagwidth@=\dimen127
-\totwidth@=\dimen128
-\lineht@=\dimen129
-\@envbody=\toks18
-\multlinegap=\skip48
-\multlinetaggap=\skip49
-\mathdisplay@stack=\toks19
-LaTeX Info: Redefining \[ on input line 2817.
-LaTeX Info: Redefining \] on input line 2818.
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty
-Package: amssymb 2013/01/14 v3.01 AMS font symbols
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty
-Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support
-\symAMSa=\mathgroup5
-\symAMSb=\mathgroup6
-LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold'
-(Font) U/euf/m/n --> U/euf/b/n on input line 106.
-))
-(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/bm.sty
-Package: bm 2017/01/16 v1.2c Bold Symbol Support (DPC/FMi)
-\symboldoperators=\mathgroup7
-\symboldletters=\mathgroup8
-\symboldsymbols=\mathgroup9
-\symboldmincho=\mathgroup10
-LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 141.
-LaTeX Info: Redefining \bm on input line 207.
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/enumerate.sty
-Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC)
-\@enLab=\toks20
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
-Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR)
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/keyval.sty
-Package: keyval 2014/10/28 v1.15 key=value parser (DPC)
-\KV@toks@=\toks21
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphics.sty
-Package: graphics 2016/10/09 v1.0u Standard LaTeX Graphics (DPC,SPQR)
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/trig.sty
-Package: trig 2016/01/03 v1.10 sin cos tan (DPC)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg
-File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration
-)
-Package graphics Info: Driver file: dvipdfmx.def on input line 99.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvipdfmx.def
-File: dvipdfmx.def 2016/07/11 v4.12 LaTeX color/graphics driver for dvipdfmx (L
-3/ChoF)
-))
-\Gin@req@height=\dimen130
-\Gin@req@width=\dimen131
-) (/Applications/kettex/texlive/texmf-dist/tex/latex/animate/animate.sty
-Package: animate 2017/03/23 PDF animations from files and inline graphics
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/base/ifthen.sty
-Package: ifthen 2014/09/29 v1.1c Standard LaTeX ifthen package (DPC)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/ifpdf.sty
-Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch
-)
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/ifluatex.sty
-Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO)
-Package ifluatex Info: LuaTeX not detected.
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/ifdraft.sty
-Package: ifdraft 2016/05/16 v1.4 Detect class options draft and final (HO)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/calc.sty
-Package: calc 2014/10/28 v4.3 Infix arithmetic (KKT,FJ)
-\calc@Acount=\count114
-\calc@Bcount=\count115
-\calc@Adimen=\dimen132
-\calc@Bdimen=\dimen133
-\calc@Askip=\skip50
-\calc@Bskip=\skip51
-LaTeX Info: Redefining \setlength on input line 80.
-LaTeX Info: Redefining \addtolength on input line 81.
-\calc@Ccount=\count116
-\calc@Cskip=\skip52
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/media9/pdfbase.sty
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3kernel/expl3.sty
-Package: expl3 2017/04/01 L3 programming layer (loader)
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3kernel/expl3-code.tex
-Package: expl3 2017/04/01 L3 programming layer (code)
-\c_max_int=\count117
-\l_tmpa_int=\count118
-\l_tmpb_int=\count119
-\g_tmpa_int=\count120
-\g_tmpb_int=\count121
-\g__prg_map_int=\count122
-\c_log_iow=\count123
-\l_iow_line_count_int=\count124
-\l__iow_line_target_int=\count125
-\l__iow_one_indent_int=\count126
-\l__iow_indent_int=\count127
-\c_zero_dim=\dimen134
-\c_max_dim=\dimen135
-\l_tmpa_dim=\dimen136
-\l_tmpb_dim=\dimen137
-\g_tmpa_dim=\dimen138
-\g_tmpb_dim=\dimen139
-\c_zero_skip=\skip53
-\c_max_skip=\skip54
-\l_tmpa_skip=\skip55
-\l_tmpb_skip=\skip56
-\g_tmpa_skip=\skip57
-\g_tmpb_skip=\skip58
-\c_zero_muskip=\muskip11
-\c_max_muskip=\muskip12
-\l_tmpa_muskip=\muskip13
-\l_tmpb_muskip=\muskip14
-\g_tmpa_muskip=\muskip15
-\g_tmpb_muskip=\muskip16
-\l_keys_choice_int=\count128
-\c__fp_leading_shift_int=\count129
-\c__fp_middle_shift_int=\count130
-\c__fp_trailing_shift_int=\count131
-\c__fp_big_leading_shift_int=\count132
-\c__fp_big_middle_shift_int=\count133
-\c__fp_big_trailing_shift_int=\count134
-\c__fp_Bigg_leading_shift_int=\count135
-\c__fp_Bigg_middle_shift_int=\count136
-\c__fp_Bigg_trailing_shift_int=\count137
-\l__sort_length_int=\count138
-\l__sort_min_int=\count139
-\l__sort_top_int=\count140
-\l__sort_max_int=\count141
-\l__sort_true_max_int=\count142
-\l__sort_block_int=\count143
-\l__sort_begin_int=\count144
-\l__sort_end_int=\count145
-\l__sort_A_int=\count146
-\l__sort_B_int=\count147
-\l__sort_C_int=\count148
-\c_empty_box=\box43
-\l_tmpa_box=\box44
-\l_tmpb_box=\box45
-\g_tmpa_box=\box46
-\g_tmpb_box=\box47
-\l__coffin_internal_box=\box48
-\l__coffin_internal_dim=\dimen140
-\l__coffin_offset_x_dim=\dimen141
-\l__coffin_offset_y_dim=\dimen142
-\l__coffin_x_dim=\dimen143
-\l__coffin_y_dim=\dimen144
-\l__coffin_x_prime_dim=\dimen145
-\l__coffin_y_prime_dim=\dimen146
-\c_empty_coffin=\box49
-\l__coffin_aligned_coffin=\box50
-\l__coffin_aligned_internal_coffin=\box51
-\l_tmpa_coffin=\box52
-\l_tmpb_coffin=\box53
-\l__coffin_display_coffin=\box54
-\l__coffin_display_coord_coffin=\box55
-\l__coffin_display_pole_coffin=\box56
-\l__coffin_display_offset_dim=\dimen147
-\l__coffin_display_x_dim=\dimen148
-\l__coffin_display_y_dim=\dimen149
-\l__box_top_dim=\dimen150
-\l__box_bottom_dim=\dimen151
-\l__box_left_dim=\dimen152
-\l__box_right_dim=\dimen153
-\l__box_top_new_dim=\dimen154
-\l__box_bottom_new_dim=\dimen155
-\l__box_left_new_dim=\dimen156
-\l__box_right_new_dim=\dimen157
-\l__box_internal_box=\box57
-\l__coffin_bounding_shift_dim=\dimen158
-\l__coffin_left_corner_dim=\dimen159
-\l__coffin_right_corner_dim=\dimen160
-\l__coffin_bottom_corner_dim=\dimen161
-\l__coffin_top_corner_dim=\dimen162
-\l__coffin_scaled_total_height_dim=\dimen163
-\l__coffin_scaled_width_dim=\dimen164
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3kernel/l3dvipdfmx.def
-File: l3dvidpfmx.def 2017/03/18 v L3 Experimental driver: dvipdfmx
-\l__driver_tmp_box=\box58
-))
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3packages/l3keys2e/l3keys2e
-.sty
-Package: l3keys2e 2017/04/01 LaTeX2e option processing using LaTeX3 keys
-)
-Package: pdfbase 2017/03/23 v0.15 driver independent access to low-level PDF fe
-atures
-\g_pbs_page_int=\count149
-\g_pbs_obj_int=\count150
-\g_pbs_oc_int=\count151
-) (/Applications/kettex/texlive/texmf-dist/tex/latex/ocgx2/ocgbase.sty
-Package: ocgbase 2017/03/30 v0.10 support package for ocgx2.sty
-)
-\@anim@box=\box59
-\@anim@measbox=\box60
-\@anim@tmpdima=\dimen165
-\@anim@tmpdimb=\dimen166
-\@anim@num=\count152
-\@anim@curframe=\count153
-\@anim@curframe@zb=\count154
-\@anim@resizeflags=\count155
-\@anim@skipfram=\count156
-\@anim@mulframecnt=\count157
-\@anim@@tmlnfile=\read1
-\@anim@tmpcnt=\count158
-\c@@anim@ltxcnt=\count159
-\@anim@curlayer=\count160
-\@anim@lineno=\count161
-\@anim@curfield=\count162
-\@anim@@resizeflags=\count163
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
-Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK)
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg
-File: color.cfg 2016/01/02 v1.6 sample color configuration
-)
-Package xcolor Info: Driver file: dvips.def on input line 225.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvips.def
-File: dvips.def 2016/07/10 v3.1a Driver-dependent file (DPC,SPQR)
-)
-Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348.
-Package xcolor Info: Model `RGB' extended on input line 1364.
-Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366.
-Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367.
-Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368.
-Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369.
-Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370.
-Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371.
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/media9/media9.sty
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3experimental/l3str/l3regex
-.sty
-Package: l3regex 2017/04/01 L3 Experimental regular expressions
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3experimental/l3str/l3tl-bu
-ild.sty
-Package: l3tl-build 2017/04/01 L3 Experimental token list construction
-\l__tl_build_start_index_int=\count164
-\l__tl_build_index_int=\count165
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3experimental/l3str/l3tl-an
-alysis.sty
-Package: l3tl-analysis 2017/04/01 L3 Experimental token list analysis
-\l__tl_analysis_normal_int=\count166
-\l__tl_analysis_index_int=\count167
-\l__tl_analysis_nesting_int=\count168
-\l__tl_analysis_type_int=\count169
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3experimental/l3str/l3str-c
-onvert.sty
-Package: l3str-convert 2017/04/01 L3 Experimental string encoding conversions
-\l__str_internal_int=\count170
-)
-\l__regex_internal_a_int=\count171
-\l__regex_internal_b_int=\count172
-\l__regex_internal_c_int=\count173
-\l__regex_balance_int=\count174
-\l__regex_group_level_int=\count175
-\l__regex_mode_int=\count176
-\c__regex_cs_in_class_mode_int=\count177
-\c__regex_cs_mode_int=\count178
-\l__regex_catcodes_int=\count179
-\l__regex_default_catcodes_int=\count180
-\c__regex_catcode_L_int=\count181
-\c__regex_catcode_O_int=\count182
-\c__regex_catcode_A_int=\count183
-\c__regex_all_catcodes_int=\count184
-\l__regex_show_lines_int=\count185
-\l__regex_min_state_int=\count186
-\l__regex_max_state_int=\count187
-\l__regex_left_state_int=\count188
-\l__regex_right_state_int=\count189
-\l__regex_capturing_group_int=\count190
-\l__regex_min_pos_int=\count191
-\l__regex_max_pos_int=\count192
-\l__regex_current_pos_int=\count193
-\l__regex_start_pos_int=\count194
-\l__regex_success_pos_int=\count195
-\l__regex_current_char_int=\count196
-\l__regex_current_catcode_int=\count197
-\l__regex_last_char_int=\count198
-\l__regex_case_changed_char_int=\count199
-\l__regex_current_state_int=\count266
-\l__regex_step_int=\count267
-\l__regex_min_active_int=\count268
-\l__regex_max_active_int=\count269
-\l__regex_replacement_csnames_int=\count270
-\l__regex_match_count_int=\count271
-\l__regex_submatch_int=\count272
-\l__regex_zeroth_submatch_int=\count273
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/l3packages/xparse/xparse.sty
-Package: xparse 2017/04/01 L3 Experimental document command parser
-\l__xparse_current_arg_int=\count274
-\g__xparse_grabber_int=\count275
-\l__xparse_m_args_int=\count276
-\l__xparse_mandatory_args_int=\count277
-\l__xparse_v_nesting_int=\count278
-) (/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/atbegshi.sty
-Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO)
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/infwarerr.sty
-Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/ltxcmds.sty
-Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO)
-))
-Package: media9 2017/03/23 v0.78 acrobat-9/X compatible media
-\g_mix_pkgresizeflag_int=\count279
-\l_mix_poster_box=\box61
-\g_mix_wd_dim=\dimen167
-\g_mix_ht_dim=\dimen168
-\g_mix_dp_dim=\dimen169
-\g_mix_rmcnt_int=\count280
-\l_mix_viewcnt_int=\count281
-\g@mix@page@int=\count282
-\g_mix_resizeflag_int=\count283
-\l_mix_lineno_int=\count284
-.................................................
-. LaTeX info: "xparse/define-command"
-.
-. Defining command \addmediapath with sig. 'm' on line 808.
-.................................................
-\l_mix_pbtn_box=\box62
-\mix@btn@dim=\dimen170
-.................................................
-. LaTeX info: "xparse/define-command"
-.
-. Defining command \includemedia with sig. 'O{}mm' on line 1216.
-.................................................
-\g_mix_mbtncnt_int=\count285
-.................................................
-. LaTeX info: "xparse/define-command"
-.
-. Defining command \mediabutton with sig. 'O{}m' on line 2418.
-.................................................
-)
-(/Applications/kettex/texlive/texmf-local/tex/latex/ketpicstyle/ketmedia.sty)
-(./animatesinemove.aux)
-\openout1 = `animatesinemove.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 13.
-LaTeX Font Info: ... okay on input line 13.
-\AtBeginShipoutBox=\box63
- (./fig/animsinemove.tex
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p001.tex
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 8.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 8.
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <14.4> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 8.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 8.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <14.4> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 8.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 8.
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <9> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 9.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 9.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <9> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 9.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 9.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 5.77332pt on input line 78.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 4.8111pt on input line 78.
-LaTeX Font Info: Try loading font information for U+msa on input line 78.
- (/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd
-File: umsa.fd 2013/01/14 v3.01 AMS symbols A
-)
-LaTeX Font Info: Try loading font information for U+msb on input line 78.
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd
-File: umsb.fd 2013/01/14 v3.01 AMS symbols B
-)
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 6.73553pt on input line 90.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 4.8111pt on input line 90.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 9.6222pt on input line 90.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 90.
-) <a0,fr0>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p002.tex) <a0,fr1>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p003.tex) <a0,fr2>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p004.tex) <a0,fr3>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p005.tex) <a0,fr4>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p006.tex) <a0,fr5>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p007.tex) <a0,fr6>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p008.tex) <a0,fr7>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p009.tex) <a0,fr8>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p010.tex) <a0,fr9>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p011.tex) <a0,fr10>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p012.tex) <a0,fr11>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p013.tex) <a0,fr12>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p014.tex) <a0,fr13>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p015.tex) <a0,fr14>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p016.tex) <a0,fr15>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p017.tex) <a0,fr16>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p018.tex) <a0,fr17>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p019.tex) <a0,fr18>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p020.tex) <a0,fr19>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p021.tex) <a0,fr20>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p022.tex) <a0,fr21>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p023.tex) <a0,fr22>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p024.tex) <a0,fr23>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p025.tex) <a0,fr24>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p026.tex) <a0,fr25>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p027.tex) <a0,fr26>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p028.tex) <a0,fr27>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p029.tex) <a0,fr28>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p030.tex) <a0,fr29>
-(/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/sinemov
-e/p031.tex) <a0,fr30>) [1
-
-] (./animatesinemove.aux) )
-Here is how much of TeX's memory you used:
- 12651 strings out of 495145
- 244889 string characters out of 6183910
- 496947 words of memory out of 5000000
- 15910 multiletter control sequences out of 15000+600000
- 15144 words of font info for 69 fonts, out of 8000000 for 9000
- 14 hyphenation exceptions out of 8191
- 40i,8n,57p,10417b,382s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on animatesinemove.dvi (1 page, 135920 bytes).
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.pdf b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.pdf
deleted file mode 100644
index bc6f3d21..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.tex b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.tex
deleted file mode 100644
index 40a1700b..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/animatesinemove.tex
+++ /dev/null
@@ -1,18 +0,0 @@
-\documentclass[landscape]{ujarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage[dvipdfmx]{animate}
-\usepackage{xcolor}
-\usepackage[dvipdfmx]{media9}
-\usepackage{ketmedia}
-
-\begin{document}
-
-\begin{center}
-\input{fig/animsinemove.tex}
-\end{center}
-\end{document}
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/.RData b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/.RData
deleted file mode 100644
index ca25dbc3..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/.RData
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/cindyscreen.pdf b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/cindyscreen.pdf
deleted file mode 100644
index 54b9d79e..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/cindyscreen.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/figsin.tex b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/figsin.tex
deleted file mode 100644
index 3e5b13a5..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/figsin.tex
+++ /dev/null
@@ -1,70 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides/fig/figsin.tex 1cm
-%%%
-{\unitlength=1cm%
-\begin{picture}%
-(5,5)(-2.5,-2.5)%
-\special{pn 8}%
-%
-\Large\bf\boldmath%
-\small%
-\special{pa -984 236}\special{pa -945 266}\special{pa -906 294}\special{pa -866 318}%
-\special{pa -827 340}\special{pa -787 358}\special{pa -748 373}\special{pa -709 383}%
-\special{pa -669 390}\special{pa -630 394}\special{pa -591 393}\special{pa -551 388}%
-\special{pa -512 379}\special{pa -472 367}\special{pa -433 351}\special{pa -394 331}%
-\special{pa -354 308}\special{pa -315 282}\special{pa -276 254}\special{pa -236 222}%
-\special{pa -197 189}\special{pa -157 153}\special{pa -118 116}\special{pa -79 78}%
-\special{pa -39 39}\special{pa 0 -0}\special{pa 39 -39}\special{pa 79 -78}%
-\special{pa 118 -116}\special{pa 157 -153}\special{pa 197 -189}\special{pa 236 -222}%
-\special{pa 276 -254}\special{pa 315 -282}\special{pa 354 -308}\special{pa 394 -331}%
-\special{pa 433 -351}\special{pa 472 -367}\special{pa 512 -379}\special{pa 551 -388}%
-\special{pa 591 -393}\special{pa 630 -394}\special{pa 669 -390}\special{pa 709 -383}%
-\special{pa 748 -373}\special{pa 787 -358}\special{pa 827 -340}\special{pa 866 -318}%
-\special{pa 906 -294}\special{pa 945 -266}\special{pa 984 -236}%
-\special{fp}%
-\special{pa -984 -394}\special{pa -946 -394}\special{fp}\special{pa -907 -394}\special{pa -868 -394}\special{fp}%
-\special{pa -830 -394}\special{pa -791 -394}\special{fp}\special{pa -753 -394}\special{pa -714 -394}\special{fp}%
-\special{pa -675 -394}\special{pa -637 -394}\special{fp}\special{pa -598 -394}\special{pa -560 -394}\special{fp}%
-\special{pa -521 -394}\special{pa -482 -394}\special{fp}\special{pa -444 -394}\special{pa -405 -394}\special{fp}%
-\special{pa -367 -394}\special{pa -328 -394}\special{fp}\special{pa -289 -394}\special{pa -251 -394}\special{fp}%
-\special{pa -212 -394}\special{pa -174 -394}\special{fp}\special{pa -135 -394}\special{pa -96 -394}\special{fp}%
-\special{pa -58 -394}\special{pa -19 -394}\special{fp}\special{pa 19 -394}\special{pa 58 -394}\special{fp}%
-\special{pa 96 -394}\special{pa 135 -394}\special{fp}\special{pa 174 -394}\special{pa 212 -394}\special{fp}%
-\special{pa 251 -394}\special{pa 289 -394}\special{fp}\special{pa 328 -394}\special{pa 367 -394}\special{fp}%
-\special{pa 405 -394}\special{pa 444 -394}\special{fp}\special{pa 482 -394}\special{pa 521 -394}\special{fp}%
-\special{pa 560 -394}\special{pa 598 -394}\special{fp}\special{pa 637 -394}\special{pa 675 -394}\special{fp}%
-\special{pa 714 -394}\special{pa 753 -394}\special{fp}\special{pa 791 -394}\special{pa 830 -394}\special{fp}%
-\special{pa 868 -394}\special{pa 907 -394}\special{fp}\special{pa 946 -394}\special{pa 984 -394}\special{fp}%
-%
-%
-\special{pa -984 394}\special{pa -946 394}\special{fp}\special{pa -907 394}\special{pa -868 394}\special{fp}%
-\special{pa -830 394}\special{pa -791 394}\special{fp}\special{pa -753 394}\special{pa -714 394}\special{fp}%
-\special{pa -675 394}\special{pa -637 394}\special{fp}\special{pa -598 394}\special{pa -560 394}\special{fp}%
-\special{pa -521 394}\special{pa -482 394}\special{fp}\special{pa -444 394}\special{pa -405 394}\special{fp}%
-\special{pa -367 394}\special{pa -328 394}\special{fp}\special{pa -289 394}\special{pa -251 394}\special{fp}%
-\special{pa -212 394}\special{pa -174 394}\special{fp}\special{pa -135 394}\special{pa -96 394}\special{fp}%
-\special{pa -58 394}\special{pa -19 394}\special{fp}\special{pa 19 394}\special{pa 58 394}\special{fp}%
-\special{pa 96 394}\special{pa 135 394}\special{fp}\special{pa 174 394}\special{pa 212 394}\special{fp}%
-\special{pa 251 394}\special{pa 289 394}\special{fp}\special{pa 328 394}\special{pa 367 394}\special{fp}%
-\special{pa 405 394}\special{pa 444 394}\special{fp}\special{pa 482 394}\special{pa 521 394}\special{fp}%
-\special{pa 560 394}\special{pa 598 394}\special{fp}\special{pa 637 394}\special{pa 675 394}\special{fp}%
-\special{pa 714 394}\special{pa 753 394}\special{fp}\special{pa 791 394}\special{pa 830 394}\special{fp}%
-\special{pa 868 394}\special{pa 907 394}\special{fp}\special{pa 946 394}\special{pa 984 394}\special{fp}%
-%
-%
-\special{pa -984 -0}\special{pa 984 -0}%
-\special{fp}%
-\special{pa 0 984}\special{pa 0 -984}%
-\special{fp}%
-\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(2.5500000,0.0000000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000000,2.5500000){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
-\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
-\put(-0.0500000,-0.0500000){\hspace*{\Width}\raisebox{\Height}{O}}%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slide0.tex b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slide0.tex
deleted file mode 100644
index 3ff43765..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slide0.tex
+++ /dev/null
@@ -1,11 +0,0 @@
-{\Large\bf
-\color[cmyk]{1,1,0,0}
-
-\begin{layer}{120}{0}
-{\Huge \putnotes{60}{20}{メインタイトル}}
-\putnotes{60}{50}{名前}
-\putnotes{60}{60}{所属}
-\putnotes{60}{70}{情報}
-\end{layer}
-
-}
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slideE.tex b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slideE.tex
deleted file mode 100644
index 86267735..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/fig/slideE.tex
+++ /dev/null
@@ -1,11 +0,0 @@
-{\Large\bf
-\color[cmyk]{1,1,0,0}
-
-\begin{layer}{120}{0}
-{\Huge \putnotes{60}{20}{Main Title}}
-\putnotes{60}{50}{Name}
-\putnotes{60}{60}{Affliation}
-\putnotes{60}{70}{Info}
-\end{layer}
-
-}
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideE.txt
index d23a9bc5..6bd6ec5c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideE.txt
@@ -1 +1,146 @@
-Presentation with ketslide 2017.09.28 0. Making a file for slides. 1) Copy ketsample/s07slideのs0701basic.cdy to your work directory and rename it. Here, assume the file copied to Userhome/Desktop/work and renamed to sample.cdy. 2) Copy s0701basic.txt and rename it with the same head, too. 3) Double clicsample.cdy, modify Cindyscript/figures as follows. Line 5 : Slidework(gethome()+"/Desktop/work"); Line11: Edit the title. 4) Press Gear mark on the top. 1. Modify sample.txt. 0) The first line should be : title::slide0// 注1)バックグラウンド(例えばkabegamiとする)を入れるとき ・kabegami.texを作成してfigフォルダに入れる. ・sample.txtの指定は タイトル::slide0::kabegami// 注2)タイトル画面が不要の場合は, タイトル(またはtitle)::// 1)すべての行の最後は必ず // をつける. 注)urlの指定で//を用いるとき,||||とすると//に変換される. 2)各ブロックの引数の区切りは :: 3)コマンド ・タイトル::読込ファイル名(::壁紙ファイル)// 最初のタイトルページ 注)スライドに置く文字はslide0.cdyで作成 注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く 注)preambleに追加するとき,::区切りで書き加え,最後に//をおく. ・new(::行下げ)::タイトル((::位置)::読み込みファイル)// mainslide 例)new::[10]::最初に::{50}{20}::figure// 注)読み込みファイルのサイズ変更するとき new::[10]::最初に::{50}{20}::figure,0.8// 他も同様 ・same(::行下げ)((::位置)::読込ファイル)// sameslide ・enumerate(::書式)// enumerate環境の始まり ・itemize// itemize環境の始まり ・layer(::範囲)// layer環境の始まり ・item::文// itemを追加 ・putnote::方向と位置::読み込みファイル// layer環境の中に図を入れる 例)putonote::se{30}{10}::figure( , 倍率)//(inputのとき) 例)putonote::se{30}{10}::include[width=5cm]::figure.pdf// (includegraphicsのとき) ・end// enumerate,itemize,layer環境の終わり ・上記以外// そのままTeXに書き出す. 4)空白行を入れたいときは,...// とする. 5)必要な図はすべてfigに入れる. 6)newの後,複数のスライドを同時に作り順に表示するとき, ・newの次の行に %repeat=(newを含むスライドの枚数),para// ・表示したいページは %[2,-]::本文// のように書く. 注)[2,- ]は2ページ以降全部 [-, 2,- ]は2ページまで表示 [1..3,5 ]は1ページから3ページと5ページ ・repeat=...の後に「,para」を追加するとリンクを作成 ・他のページで薄文字にしたいときは %thin[2]::本文 注1)薄文字の濃さのデフォルトは0.1だが,Setslidebodyで変更可能 注2)また,sample.txtに以下を記述すれば,その後が変わる. \setthin{濃さ}// 7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルすべてを順に表示するとき ・newの次の行に %repeat=// %para=subfig:{0}:s{60}{10}:input(:倍率)// => layer{120}{0}, \putnotes{60}{10}{\input...} 注)%repeat=,para=...と続けて書いてもよい. 2. スライドの作成 1)sample.cdyのスクリーンにTitle, Para, Slide のボタンがある. 2)Fheadは,図を作成するときのファイル名 3)Slidenameは,スライドのファイル名 .txt(内容),.tex , .pdf 4)Slideworkで,作業フォルダを指定 注1)作業フォルダの中に自動的にfigというサブフォルダを作る. (新規の場合) 注2)Dirworkはfigに設定されるので,図はfigの中に作られる. 注3)slideボタンを押すと,Dirworkは一時的にworkになる. 5)タイトルの編集 Settitle(name,cmdL,options); options=["Layery=0","Color=blue"] nameは省略可(デフォルトは "slide0") ・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large) ・Titleボタンを押すとタイトル画面を作成して表示する. 6)各種設定 Setslidemain([letterc,boxc,boxd,framec,xpos,size]); メイン(章に該当)の設定 注)一部をデフォルト値とする場合は [,,]などとする. 以下同様 Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]); ページの設定 Setslidebody(bodycolor,bodystyle,density); 全体の文字色と薄文字の濃さ(0-1)の設定 bodystyleのデフォルトは "\Large\bf\boldmath" Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]); hyperrefを利用する, 注)Setslidehyper();とすると,hyperref.styを読み込み, かつ,上のデフォルト値が与えられる. 注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率 7)パラパラ動画の作成 ・mf(s)にパラメータ値sのときの図を記述する. ・パラパラの設定 Setpara(foldername,funcitonstr,range,options); options=["m/r", "Div=25"]; 注)rangeの記述 i) "s=[0,1]" 区間をDivで分割 ii) [0.2, 0.6] リストの要素をsに代入 ・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される. ・templateslide.txtに,1(7)のように記述する. ・Slideボタンを押す. 8)animateを使うとき (1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる. (2)Apppackage(["[dvipdfmx]{animate}"]を追加する. (3)読み込み場所に,\inputを使って入れる. (layerは使えない) (4)Setparaのオプション "Frate="(1秒間のフレーム数), "Scale="(スケール倍率), "OpA=[loop]" 9)Slideボタンを押すと,スライド(PDF)が作成される. 10)Sum ボタンを押すと,概要PDF(各ページの最終ページのみ)が作成される. \ No newline at end of file
+Presentation with ketslide 2017.09.28
+
+0. Making a file for slides.
+
+ 1) Copy ketsample/s07slideのs0701basic.cdy to your work directory and rename it.
+ Here, assume the file copied to Userhome/Desktop/work and renamed to sample.cdy.
+ 2) Copy s0701basic.txt and rename it with the same head, too.
+ 3) Double clicsample.cdy, modify Cindyscript/figures as follows.
+ Line 5 : Slidework(gethome()+"/Desktop/work");
+ Line11: Edit the title.
+ 4) Press Gear mark on the top.
+
+1. Modify sample.txt.
+
+ 0) The first line should be :
+ title::slide0//
+ 注1)バックグラウンド(例えばkabegamiとする)を入れるとき
+ ・kabegami.texを作成してfigフォルダに入れる.
+ ・sample.txtの指定は
+ タイトル::slide0::kabegami//
+ 注2)タイトル画面が不要の場合は,
+ タイトル(またはtitle):://
+
+ 1)すべての行の最後は必ず // をつける.
+ 注)urlの指定で//を用いるとき,||||とすると//に変換される.
+ 2)各ブロックの引数の区切りは ::
+ 3)コマンド
+ ・タイトル::読込ファイル名(::壁紙ファイル)//
+ 最初のタイトルページ
+ 注)スライドに置く文字はslide0.cdyで作成
+ 注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く
+ 注)preambleに追加するとき,::区切りで書き加え,最後に//をおく.
+ ・new(::行下げ)::タイトル((::位置)::読み込みファイル)//
+ mainslide
+ 例)new::[10]::最初に::{50}{20}::figure//
+ 注)読み込みファイルのサイズ変更するとき
+ new::[10]::最初に::{50}{20}::figure,0.8//
+ 他も同様
+ ・same(::行下げ)((::位置)::読込ファイル)//
+ sameslide
+ ・enumerate(::書式)//
+ enumerate環境の始まり
+ ・itemize//
+ itemize環境の始まり
+ ・layer(::範囲)//
+ layer環境の始まり
+ ・item::文//
+ itemを追加
+ ・putnote::方向と位置::読み込みファイル//
+ layer環境の中に図を入れる
+ 例)putonote::se{30}{10}::figure( , 倍率)//(inputのとき)
+ 例)putonote::se{30}{10}::include[width=5cm]::figure.pdf//
+ (includegraphicsのとき)
+ ・end//
+ enumerate,itemize,layer環境の終わり
+ ・上記以外//
+ そのままTeXに書き出す.
+
+ 4)空白行を入れたいときは,...// とする.
+
+ 5)必要な図はすべてfigに入れる.
+
+ 6)newの後,複数のスライドを同時に作り順に表示するとき,
+ ・newの次の行に
+ %repeat=(newを含むスライドの枚数),para//
+ ・表示したいページは
+ %[2,-]::本文//
+ のように書く.
+ 注)[2,- ]は2ページ以降全部
+ [-, 2,- ]は2ページまで表示
+ [1..3,5 ]は1ページから3ページと5ページ
+ ・repeat=...の後に「,para」を追加するとリンクを作成
+ ・他のページで薄文字にしたいときは %thin[2]::本文
+ 注1)薄文字の濃さのデフォルトは0.1だが,Setslidebodyで変更可能
+ 注2)また,sample.txtに以下を記述すれば,その後が変わる.
+ \setthin{濃さ}//
+
+ 7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルすべてを順に表示するとき
+ ・newの次の行に
+ %repeat=//
+ %para=subfig:{0}:s{60}{10}:input(:倍率)//
+ => layer{120}{0}, \putnotes{60}{10}{\input...}
+ 注)%repeat=,para=...と続けて書いてもよい.
+
+2. スライドの作成
+
+ 1)sample.cdyのスクリーンにTitle, Para, Slide のボタンがある.
+
+ 2)Fheadは,図を作成するときのファイル名
+
+ 3)Slidenameは,スライドのファイル名
+ .txt(内容),.tex , .pdf
+
+ 4)Slideworkで,作業フォルダを指定
+ 注1)作業フォルダの中に自動的にfigというサブフォルダを作る. (新規の場合)
+ 注2)Dirworkはfigに設定されるので,図はfigの中に作られる.
+ 注3)slideボタンを押すと,Dirworkは一時的にworkになる.
+
+ 5)タイトルの編集
+ Settitle(name,cmdL,options);
+ options=["Layery=0","Color=blue"]
+ nameは省略可(デフォルトは "slide0")
+
+ ・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large)
+
+ ・Titleボタンを押すとタイトル画面を作成して表示する.
+
+ 6)各種設定
+ Setslidemain([letterc,boxc,boxd,framec,xpos,size]);
+ メイン(章に該当)の設定
+ 注)一部をデフォルト値とする場合は [,,]などとする. 以下同様
+ Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]);
+ ページの設定
+ Setslidebody(bodycolor,bodystyle,density);
+ 全体の文字色と薄文字の濃さ(0-1)の設定
+ bodystyleのデフォルトは "\Large\bf\boldmath"
+ Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]);
+ hyperrefを利用する,
+ 注)Setslidehyper();とすると,hyperref.styを読み込み,
+ かつ,上のデフォルト値が与えられる.
+ 注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率
+
+ 7)パラパラ動画の作成
+ ・mf(s)にパラメータ値sのときの図を記述する.
+
+ ・パラパラの設定
+ Setpara(foldername,funcitonstr,range,options);
+ options=["m/r", "Div=25"];
+ 注)rangeの記述
+ i) "s=[0,1]" 区間をDivで分割
+ ii) [0.2, 0.6] リストの要素をsに代入
+
+ ・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される.
+ ・templateslide.txtに,1(7)のように記述する.
+ ・Slideボタンを押す.
+
+ 8)animateを使うとき
+ (1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる.
+ (2)Apppackage(["[dvipdfmx]{animate}"]を追加する.
+ (3)読み込み場所に,\inputを使って入れる. (layerは使えない)
+ (4)Setparaのオプション
+ "Frate="(1秒間のフレーム数), "Scale="(スケール倍率), "OpA=[loop]"
+
+ 9)Slideボタンを押すと,スライド(PDF)が作成される.
+
+ 10)Sum ボタンを押すと,概要PDF(各ページの最終ページのみ)が作成される.
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideJ.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideJ.txt
index 91cac8ee..4a769848 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideJ.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/howtouseslideJ.txt
@@ -1 +1,148 @@
-ketslideによるプレゼンテーション  2017.09.28 0.スライドファイルの指定  1)ketsample/s07slideのs0701basic.cdyを作業ディレクトリにコピーして名前を変更する.     ここでは,作業ディレクトリ/ファイルを,ユーザホーム/Desktop/workにsample.cdyとする.  2)s0701basic.txtも同様にコピして同名に変更する(sample.txt)  3)sample.cdyをダブルクリックで立ち上げ,Cindyscript/figuresを以下のように修正する.     2行目 Slidename=Fhead;     5行目 Slidework(gethome()+"/Desktop/work");    11行目 タイトルに表示されるテキスト(自由に直してよい)  4)右上の歯車マークを押す. 1.sample.txtをテキストエディタで開き,修正する.  0)1行目(%のない最初の行)の基本形は       タイトル(またはtitle)::slide0//     注1)バックグラウンド(例えばkabegamiとする)を入れるとき         ・kabegami.texを作成してfigフォルダに入れる.         ・sample.txtの指定は            タイトル::slide0::kabegami//     注2)タイトル画面が不要の場合は,         タイトル(またはtitle):://  1)すべての行の最後は必ず // をつける.     注)urlの指定で//を用いるとき,||||とすると//に変換される.  2)各ブロックの引数の区切りは ::  3)コマンド     ・タイトル::読込ファイル名(::壁紙ファイル)//       最初のタイトルページ        注)スライドに置く文字はslide0.cdyで作成        注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く        注)preambleに追加するとき,::区切りで書き加え,最後に//をおく.     ・new(::行下げ)::タイトル((::位置)::読み込みファイル)//       mainslide       例)new::[10]::最初に::{50}{20}::figure//       注)読み込みファイルのサイズ変更するとき          new::[10]::最初に::{50}{20}::figure,0.8//         他も同様     ・same(::行下げ)((::位置)::読込ファイル)//       sameslide     ・enumerate(::書式)//       enumerate環境の始まり     ・itemize//       itemize環境の始まり     ・layer(::範囲)//       layer環境の始まり     ・item::文//       itemを追加     ・putnote::方向と位置::読み込みファイル//       layer環境の中に図を入れる       例)putonote::se{30}{10}::figure( , 倍率)//(inputのとき)       例)putonote::se{30}{10}::include[width=5cm]::figure.pdf//            (includegraphicsのとき)     ・end//       enumerate,itemize,layer環境の終わり     ・上記以外//       そのままTeXに書き出す.     ・コマンドをコメントアウトするときは,%%とする.  4)空白行を入れたいときは,...// とする.  5)必要な図はすべてfigに入れる.  6)newの後,複数のスライドを同時に作り順に表示するとき,    ・newの次の行に      %repeat=(newを含むスライドの枚数),para//    ・表示したいページは       %[2,-]::本文//     のように書く.      注)[2,- ]は2ページ以降全部        [-, 2,- ]は2ページまで表示        [1..3,5 ]は1ページから3ページと5ページ    ・repeat=...の後に「,para」を追加するとリンクを作成    ・他のページで薄文字にしたいときは %thin[2]::本文      注1)薄文字の濃さのデフォルトは0.1だが,Setslidebodyで変更可能      注2)また,sample.txtに以下を記述すれば,その後が変わる.          \setthin{濃さ}//  7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルすべてを順に表示するとき    ・newの次の行に      %repeat=//      %para=subfig:{0}:s{60}{10}:input(:倍率)//        => layer{120}{0}, \putnotes{60}{10}{\input...}     注)%repeat=,para=...と続けて書いてもよい. 2.スライドの作成  1)sample.cdyのスクリーンにTitle, Para, Slide のボタンがある.  2)Fheadは,図を作成するときのファイル名  3)Slidenameは,スライドのファイル名      .txt(内容),.tex , .pdf  4)Slideworkで,作業フォルダを指定     注1)作業フォルダの中に自動的にfigというサブフォルダを作る.(新規の場合)     注2)Dirworkはfigに設定されるので,図はfigの中に作られる.     注3)slideボタンを押すと,Dirworkは一時的にworkになる.  5)タイトルの編集     Settitle(name,cmdL,options);       options=["Layery=0","Color=blue"]       nameは省略可(デフォルトは "slide0")    ・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large)    ・Titleボタンを押すとタイトル画面を作成して表示する.  6)各種設定     Setslidemain([letterc,boxc,boxd,framec,xpos,size]);       メイン(章に該当)の設定      注)一部をデフォルト値とする場合は [,,]などとする.以下同様     Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]);       ページの設定     Setslidebody(bodycolor,bodystyle,density);       全体の文字色と薄文字の濃さ(0-1)の設定       bodystyleのデフォルトは "\Large\bf\boldmath"     Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]);       hyperrefを利用する,      注)Setslidehyper();とすると,hyperref.styを読み込み,       かつ,上のデフォルト値が与えられる.      注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率  7)パラパラ動画の作成    ・mf(s)にパラメータ値sのときの図を記述する.    ・パラパラの設定      Setpara(foldername,funcitonstr,range,options);         options=["m/r", "Div=25"];      注)rangeの記述       i) "s=[0,1]" 区間をDivで分割       ii) [0.2, 0.6] リストの要素をsに代入    ・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される.    ・templateslide.txtに,1(7)のように記述する.    ・Slideボタンを押す.  8)animateを使うとき     (1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる.     (2)Apppackage(["[dvipdfmx]{animate}"]を追加する.     (3)読み込み場所に,\inputを使って入れる.(layerは使えない)     (4)Setparaのオプション         "Frate="(1秒間のフレーム数), "Scale="(スケール倍率), "OpA=[loop]"  9)Slideボタンを押すと,スライド(PDF)が作成される.  10)Sum ボタンを押すと,概要PDF(各ページの最終ページのみ)が作成される. \ No newline at end of file
+ketslideによるプレゼンテーション  2017.09.28
+
+0.スライドファイルの指定
+
+ 1)ketsample/s07slideのs0701basic.cdyを作業ディレクトリにコピーして名前を変更する.
+    ここでは,作業ディレクトリ/ファイルを,ユーザホーム/Desktop/workにsample.cdyとする.
+ 2)s0701basic.txtも同様にコピして同名に変更する(sample.txt)
+ 3)sample.cdyをダブルクリックで立ち上げ,Cindyscript/figuresを以下のように修正する.
+    2行目 Slidename=Fhead;
+    5行目 Slidework(gethome()+"/Desktop/work");
+   11行目 タイトルに表示されるテキスト(自由に直してよい)
+ 4)右上の歯車マークを押す.
+
+1.sample.txtをテキストエディタで開き,修正する.
+
+ 0)1行目(%のない最初の行)の基本形は
+      タイトル(またはtitle)::slide0//
+    注1)バックグラウンド(例えばkabegamiとする)を入れるとき
+        ・kabegami.texを作成してfigフォルダに入れる.
+        ・sample.txtの指定は
+           タイトル::slide0::kabegami//
+    注2)タイトル画面が不要の場合は,
+        タイトル(またはtitle):://
+
+ 1)すべての行の最後は必ず // をつける.
+    注)urlの指定で//を用いるとき,||||とすると//に変換される.
+ 2)各ブロックの引数の区切りは ::
+ 3)コマンド
+    ・タイトル::読込ファイル名(::壁紙ファイル)//
+      最初のタイトルページ
+       注)スライドに置く文字はslide0.cdyで作成
+       注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く
+       注)preambleに追加するとき,::区切りで書き加え,最後に//をおく.
+    ・new(::行下げ)::タイトル((::位置)::読み込みファイル)//
+      mainslide
+      例)new::[10]::最初に::{50}{20}::figure//
+      注)読み込みファイルのサイズ変更するとき
+         new::[10]::最初に::{50}{20}::figure,0.8//
+        他も同様
+    ・same(::行下げ)((::位置)::読込ファイル)//
+      sameslide
+    ・enumerate(::書式)//
+      enumerate環境の始まり
+    ・itemize//
+      itemize環境の始まり
+    ・layer(::範囲)//
+      layer環境の始まり
+    ・item::文//
+      itemを追加
+    ・putnote::方向と位置::読み込みファイル//
+      layer環境の中に図を入れる
+      例)putonote::se{30}{10}::figure( , 倍率)//(inputのとき)
+      例)putonote::se{30}{10}::include[width=5cm]::figure.pdf//
+           (includegraphicsのとき)
+    ・end//
+      enumerate,itemize,layer環境の終わり
+    ・上記以外//
+      そのままTeXに書き出す.
+    ・コマンドをコメントアウトするときは,%%とする.
+
+ 4)空白行を入れたいときは,...// とする.
+
+ 5)必要な図はすべてfigに入れる.
+
+ 6)newの後,複数のスライドを同時に作り順に表示するとき,
+   ・newの次の行に
+     %repeat=(newを含むスライドの枚数),para//
+   ・表示したいページは
+      %[2,-]::本文//
+    のように書く.
+     注)[2,- ]は2ページ以降全部
+       [-, 2,- ]は2ページまで表示
+       [1..3,5 ]は1ページから3ページと5ページ
+   ・repeat=...の後に「,para」を追加するとリンクを作成
+   ・他のページで薄文字にしたいときは %thin[2]::本文
+     注1)薄文字の濃さのデフォルトは0.1だが,Setslidebodyで変更可能
+     注2)また,sample.txtに以下を記述すれば,その後が変わる.
+         \setthin{濃さ}//
+
+ 7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルすべてを順に表示するとき
+   ・newの次の行に
+     %repeat=//
+     %para=subfig:{0}:s{60}{10}:input(:倍率)//
+       => layer{120}{0}, \putnotes{60}{10}{\input...}
+    注)%repeat=,para=...と続けて書いてもよい.
+
+2.スライドの作成
+
+ 1)sample.cdyのスクリーンにTitle, Para, Slide のボタンがある.
+
+ 2)Fheadは,図を作成するときのファイル名
+
+ 3)Slidenameは,スライドのファイル名
+     .txt(内容),.tex , .pdf
+
+ 4)Slideworkで,作業フォルダを指定
+    注1)作業フォルダの中に自動的にfigというサブフォルダを作る.(新規の場合)
+    注2)Dirworkはfigに設定されるので,図はfigの中に作られる.
+    注3)slideボタンを押すと,Dirworkは一時的にworkになる.
+
+ 5)タイトルの編集
+    Settitle(name,cmdL,options);
+      options=["Layery=0","Color=blue"]
+      nameは省略可(デフォルトは "slide0")
+
+   ・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large)
+
+   ・Titleボタンを押すとタイトル画面を作成して表示する.
+
+ 6)各種設定
+    Setslidemain([letterc,boxc,boxd,framec,xpos,size]);
+      メイン(章に該当)の設定
+     注)一部をデフォルト値とする場合は [,,]などとする.以下同様
+    Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]);
+      ページの設定
+    Setslidebody(bodycolor,bodystyle,density);
+      全体の文字色と薄文字の濃さ(0-1)の設定
+      bodystyleのデフォルトは "\Large\bf\boldmath"
+    Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]);
+      hyperrefを利用する,
+     注)Setslidehyper();とすると,hyperref.styを読み込み,
+      かつ,上のデフォルト値が与えられる.
+     注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率
+
+ 7)パラパラ動画の作成
+   ・mf(s)にパラメータ値sのときの図を記述する.
+
+   ・パラパラの設定
+     Setpara(foldername,funcitonstr,range,options);
+        options=["m/r", "Div=25"];
+     注)rangeの記述
+      i) "s=[0,1]" 区間をDivで分割
+      ii) [0.2, 0.6] リストの要素をsに代入
+
+   ・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される.
+   ・templateslide.txtに,1(7)のように記述する.
+   ・Slideボタンを押す.
+
+ 8)animateを使うとき
+    (1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる.
+    (2)Apppackage(["[dvipdfmx]{animate}"]を追加する.
+    (3)読み込み場所に,\inputを使って入れる.(layerは使えない)
+    (4)Setparaのオプション
+        "Frate="(1秒間のフレーム数), "Scale="(スケール倍率), "OpA=[loop]"
+
+ 9)Slideボタンを押すと,スライド(PDF)が作成される.
+
+ 10)Sum ボタンを押すと,概要PDF(各ページの最終ページのみ)が作成される.
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/kc.sh b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/kc.sh
deleted file mode 100644
index 554aaadd..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/kc.sh
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/bin/sh
-cd "/Users/takatoosetsuo/ketcindy/ketfiles/ketsample/samples/s07slides"
-"/Applications/kettex/texlive/bin/x86_64-darwin/uplatex" animatesinemove.tex
-"/Applications/kettex/texlive/bin/x86_64-darwin/uplatex" animatesinemove.tex
-"/Applications/kettex/texlive/bin/x86_64-darwin/dvipdfmx" animatesinemove.dvi
-rm animatesinemove.dvi
-"/Applications/Adobe Acrobat Reader DC.app/Contents/MacOS/AdobeReader" animatesinemove.pdf
-exit 0
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.cdy
index bed86ec1..a4ea6af9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.txt
index df640e7f..6df4207e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basic.txt
@@ -1,23 +1,23 @@
-タイトル::slide0//
-%%タイトル::slide0::kabegami//
-%%title:://
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::itemize環境の使い方//
-
-itemize//
-item::内容//
-item::結論//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::enumerate環境の使い方//
-
-enumerate::[(1)]//
-item::番号を変えるには,例えば [(1)]//
-item::後は同じ//
-end//
-
+タイトル::slide0//
+%%タイトル::slide0::kabegami//
+%%title:://
+
+%%%%%%%%%%%%%%%%//
+main::メインスライド1//
+
+%%%%%%%%%%%%%%%%//
+new::itemize環境の使い方//
+
+itemize//
+item::内容//
+item::結論//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::enumerate環境の使い方//
+
+enumerate::[(1)]//
+item::番号を変えるには,例えば [(1)]//
+item::後は同じ//
+end//
+
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.cdy
index b1daf2eb..7a8d2b34 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.txt
index 84be122d..f7f66133 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0701basicE.txt
@@ -1,22 +1,22 @@
-title::slideE//
-%%title::slide0::kabegami//
-
-%%%%%%%%%%%%%%%%//
-main::Main Slide//
-
-%%%%%%%%%%%%%%%%//
-new::How to use itemize//
-
-itemize//
-item::Contents//
-item::Conclusion//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::How to use enumerate//
-
-enumerate::[(1)]//
-item::Change the style of number adding, for example, [(1)]//
-item::Same as usual//
-end//
-
+title::slideE//
+%%title::slide0::kabegami//
+
+%%%%%%%%%%%%%%%%//
+main::Main Slide//
+
+%%%%%%%%%%%%%%%%//
+new::How to use itemize//
+
+itemize//
+item::Contents//
+item::Conclusion//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::How to use enumerate//
+
+enumerate::[(1)]//
+item::Change the style of number adding, for example, [(1)]//
+item::Same as usual//
+end//
+
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.cdy
index d301a633..f7c1132a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.txt
index 6aa45bd2..577cf19f 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graph.txt
@@ -1,20 +1,20 @@
-タイトル::slide0//
-%%タイトル::slide0::kabegami//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::inputとlayer//
-
-layer::{100}{0}//
-putnote::se{10}{15}::figsin,0.8//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::includegrpahicsとlayer//
-
-layer::{100}{0}//
-putnote::s{60}{5}
-::include[bb=0.00 0.00 803.00 285.00,width=100mm]::cindyscreen.pdf//
-end//
+タイトル::slide0//
+%%タイトル::slide0::kabegami//
+
+%%%%%%%%%%%%%%%%//
+main::メインスライド1//
+
+%%%%%%%%%%%%%%%%//
+new::inputとlayer//
+
+layer::{100}{0}//
+putnote::se{10}{15}::figsin,0.8//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::includegrpahicsとlayer//
+
+layer::{100}{0}//
+putnote::s{60}{5}
+::include[bb=0.00 0.00 803.00 285.00,width=100mm]::cindyscreen.pdf//
+end//
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.cdy
index caedb908..7ce74d04 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.txt
index bed21c53..95eeee29 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0702graphE.txt
@@ -1,20 +1,20 @@
-title::slideE//
-%%title::slideE::kabegami//
-
-%%%%%%%%%%%%%%%%//
-main::Main Slide//
-
-%%%%%%%%%%%%%%%%//
-new::input and layer//
-
-layer::{100}{0}//
-putnote::se{10}{15}::figsin,0.8//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::includegrpahics and layer//
-
-layer::{100}{0}//
-putnote::s{60}{5}
-::include[bb=0.00 0.00 803.00 285.00,width=100mm]::cindyscreen.pdf//
-end//
+title::slideE//
+%%title::slideE::kabegami//
+
+%%%%%%%%%%%%%%%%//
+main::Main Slide//
+
+%%%%%%%%%%%%%%%%//
+new::input and layer//
+
+layer::{100}{0}//
+putnote::se{10}{15}::figsin,0.8//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::includegrpahics and layer//
+
+layer::{100}{0}//
+putnote::s{60}{5}
+::include[bb=0.00 0.00 803.00 285.00,width=100mm]::cindyscreen.pdf//
+end//
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.cdy
index 1db9fa69..63810d68 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.txt
index 3cffb02f..ad97f61e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeat.txt
@@ -1,32 +1,32 @@
-%タイトル::slide0::kabegami//
-タイトル::slide0//
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::itemize環境の使い方//
-%repeat=2//
-
-itemize//
-item::内容//
-%[2,-]::item::結論//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::enumerate環境の使い方//
-%repeat=3//
-
-enumerate::[(1)]//
-%thin[2,-]::item::番号を変えるには,例えば [(1)]//
-%thin[3,-]::item::後は同じ//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::グラフとrepeat//
-%repeat=2//
-
-layer::{100}{0}//
-%[1]::putnote::se{10}{15}::figsin,0.8//
-%[2]::putnote::se{30}{40}::figsin,0.8//
-end//
-
+%タイトル::slide0::kabegami//
+タイトル::slide0//
+%%%%%%%%%%%%%%%%//
+main::メインスライド1//
+
+%%%%%%%%%%%%%%%%//
+new::itemize環境の使い方//
+%repeat=2//
+
+itemize//
+item::内容//
+%[2,-]::item::結論//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::enumerate環境の使い方//
+%repeat=3//
+
+enumerate::[(1)]//
+%thin[2,-]::item::番号を変えるには,例えば [(1)]//
+%thin[3,-]::item::後は同じ//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::グラフとrepeat//
+%repeat=2//
+
+layer::{100}{0}//
+%[1]::putnote::se{10}{15}::figsin,0.8//
+%[2]::putnote::se{30}{40}::figsin,0.8//
+end//
+
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.cdy
index 52683dd1..942cc94e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.txt
index ee4e6680..725cfc64 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0703repeatE.txt
@@ -1,33 +1,33 @@
-%%title::slide0::kabegami//
-title::slideE//
-
-%%%%%%%%%%%%%%%%//
-main::Main Slide//
-
-%%%%%%%%%%%%%%%%//
-new::itemize and repeat//
-%repeat=2//
-
-itemize//
-item::Contents//
-%[2,-]::item::Conclusions//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::enumerate and repeat//
-%repeat=3//
-
-enumerate::[(1)]//
-%thin[2,-]::item::Contents//
-%thin[3,-]::item::Conclusions//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::Graph and repeat//
-%repeat=2//
-
-layer::{100}{0}//
-%[1]::putnote::se{10}{15}::figsin,0.8//
-%[2]::putnote::se{30}{40}::figsin,0.8//
-end//
-
+%%title::slide0::kabegami//
+title::slideE//
+
+%%%%%%%%%%%%%%%%//
+main::Main Slide//
+
+%%%%%%%%%%%%%%%%//
+new::itemize and repeat//
+%repeat=2//
+
+itemize//
+item::Contents//
+%[2,-]::item::Conclusions//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::enumerate and repeat//
+%repeat=3//
+
+enumerate::[(1)]//
+%thin[2,-]::item::Contents//
+%thin[3,-]::item::Conclusions//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::Graph and repeat//
+%repeat=2//
+
+layer::{100}{0}//
+%[1]::putnote::se{10}{15}::figsin,0.8//
+%[2]::putnote::se{30}{40}::figsin,0.8//
+end//
+
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.cdy
deleted file mode 100644
index 054cc38f..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.cdy
deleted file mode 100644
index 34eb5cb1..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.cdy
new file mode 100644
index 00000000..722a7701
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.txt
index 201079e1..254508a4 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704thin.txt
@@ -1,54 +1,54 @@
-%%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::画面上のボタン//
-
-itemize//
-item::\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成//
-item::\Ltab{20mm}{Title}タイトル(default : slide0)をfigに作成//
-item::\Ltab{20mm}{ParaF}パラパラ動画フォルダを作成\\//
-\Ltab{25mm}{}Setparaで引数を書いておく//
-item::\Ltab{20mm}{Slide}Texparent+".txt"からスライドを作成//
-item::\Ltab{20mm}{Sum}SummaryのPDFを作成//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::enumerate環境の使い方//
-%repeat=3//
-
-%[2,-]::enumerate::[(1)]//
-%[2,-]::item::番号を変えるには,例えば [(1)]//
-%[3,-]::item::表示ページはリストで与える\\//
-%[3,-]::\hspace*{10mm}[1],\ [1,-],\ [1..3],\ [1..3,6]など//
-%[2,- ]::end//
-
-%%%%%%%%%%%%%%%%//
-new::薄文字の使い方//
-%repeat=4//
-
-itemize//
-%thin[2,-]::item::Setslidebodyの3番目の引数で濃さを変更\\//
-%thin[2,-]::\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|//
-%thin[3,-]::item::デフォルトは$0.1$//
-%thin[4]::item::リストのページ以外が薄文字になる//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::layerの使い方//
-%repeat=5//
-
-\setthin{0}//
-
-itemize//
-%thin[1,-]::item::layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+//
-%thin[2,-]::item::layerの終わりは\verb|end|//
-%thin[3,-]::item::図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+//
-%thin[4,-]::item::図のサイズを変えるときは\\//
-%thin[4,-]::\hspace*{10mm}{:}{:}\verb+grf,0.8+//
-%thin[5]::item::通常の\verb|\putnote|文も使える//
-end//
-
+%%タイトル::slide0::kabegami//
+タイトル::slide0//
+
+%%%%%%%%%%%%%%%%//
+main::メインスライド1//
+
+%%%%%%%%%%%%%%%%//
+new::画面上のボタン//
+
+itemize//
+item::\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成//
+item::\Ltab{20mm}{Title}タイトル(default : slide0)をfigに作成//
+item::\Ltab{20mm}{ParaF}パラパラ動画フォルダを作成\\//
+\Ltab{25mm}{}Setparaで引数を書いておく//
+item::\Ltab{20mm}{Slide}Texparent+".txt"からスライドを作成//
+item::\Ltab{20mm}{Sum}SummaryのPDFを作成//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::enumerate環境の使い方//
+%repeat=3//
+
+%[2,-]::enumerate::[(1)]//
+%[2,-]::item::番号を変えるには,例えば [(1)]//
+%[3,-]::item::表示ページはリストで与える\\//
+%[3,-]::\hspace*{10mm}[1],\ [1,-],\ [1..3],\ [1..3,6]など//
+%[2,- ]::end//
+
+%%%%%%%%%%%%%%%%//
+new::薄文字の使い方//
+%repeat=4//
+
+itemize//
+%thin[2,-]::item::Setslidebodyの3番目の引数で濃さを変更\\//
+%thin[2,-]::\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|//
+%thin[3,-]::item::デフォルトは$0.1$//
+%thin[4]::item::リストのページ以外が薄文字になる//
+end//
+
+%%%%%%%%%%%%%%%%//
+new::layerの使い方//
+%repeat=5//
+
+\setthin{0}//
+
+itemize//
+%thin[1,-]::item::layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+//
+%thin[2,-]::item::layerの終わりは\verb|end|//
+%thin[3,-]::item::図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+//
+%thin[4,-]::item::図のサイズを変えるときは\\//
+%thin[4,-]::\hspace*{10mm}{:}{:}\verb+grf,0.8+//
+%thin[5]::item::通常の\verb|\putnote|文も使える//
+end//
+
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.cdy
new file mode 100644
index 00000000..c95af46c
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.txt
index d6b718d4..0ecb2e6a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704para.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705para.txt
@@ -1,10 +1,10 @@
-%%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-new::parapara//
-%repeat=,para=sinemove:{0}:s{65}{10}:input:1.2//
-
-%%%%%%%%%%%%%%%%//
-new::parapara2//
-%repeat=,para=sinemove2:{0}:s{65}{10}:input:1.2//
+%%タイトル::slide0::kabegami//
+タイトル::slide0//
+
+%%%%%%%%%%%%%%%%//
+new::parapara//
+%repeat=,para=sinemove:{0}:s{65}{10}:input:1.2//
+
+%%%%%%%%%%%%%%%%//
+%new::parapara2//
+%%repeat=,para=sinemove2:{0}:s{65}{10}:input:1.2//
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.cdy
new file mode 100644
index 00000000..921f176b
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.txt
index 36c5666d..78a3017b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0704paraE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705paraE.txt
@@ -1,10 +1,10 @@
-%%title::slideE::kabegami//
-title::slideE//
-
-%%%%%%%%%%%%%%%%//
-new::parapara//
-%repeat=,para=sinemove:{0}:s{65}{10}:input:1.2//
-
-%%%%%%%%%%%%%%%%//
-new::parapara2//
-%repeat=,para=sinemove2:{0}:s{65}{10}:input:1.2//
+%%title::slideE::kabegami//
+title::slideE//
+
+%%%%%%%%%%%%%%%%//
+new::parapara//
+%repeat=,para=sinemove:{0}:s{65}{10}:input:1.2//
+
+%%%%%%%%%%%%%%%%//
+%new::parapara2//
+%%repeat=,para=sinemove2:{0}:s{65}{10}:input:1.2//
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.cdy
deleted file mode 100644
index 6eab0b6f..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0705thin.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.cdy
index 6246d3e6..9121ad59 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.txt
index c083bc48..7e23f324 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animate.txt
@@ -1,19 +1,19 @@
-%%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::Animation1//
-
-\begin{center}//
-\input{fig/animsinemove}//
-\end{center}//
-
-%%%%%%%%%%%%%%%%//
-new::Animation2//
-
-\begin{center}//
-\input{fig/animsinemove2}//
-\end{center}// \ No newline at end of file
+%%タイトル::slide0::kabegami//
+タイトル::slide0//
+
+%%%%%%%%%%%%%%%%//
+main::メインスライド1//
+
+%%%%%%%%%%%%%%%%//
+new::Animation1//
+
+\begin{center}//
+\input{fig/animsinemove}//
+\end{center}//
+
+%%%%%%%%%%%%%%%%//
+%new::Animation2//
+
+%\begin{center}//
+%\input{fig/animsinemove2}//
+%\end{center}//
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.cdy
index 8317c0a3..b6b4a741 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.txt
index bc92bf65..f51f07c4 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.txt
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s07slides/s0706animateE.txt
@@ -1,19 +1,19 @@
-%%タイトル::slideE::kabegami//
-タイトル::slideE//
-
-%%%%%%%%%%%%%%%%//
-main::Main Slide//
-
-%%%%%%%%%%%%%%%%//
-new::Animation1//
-
-\begin{center}//
-\input{fig/animsinemove}//
-\end{center}//
-
-%%%%%%%%%%%%%%%%//
-new::Animation2//
-
-\begin{center}//
-\input{fig/animsinemove2}//
-\end{center}// \ No newline at end of file
+%%タイトル::slideE::kabegami//
+タイトル::slideE//
+
+%%%%%%%%%%%%%%%%//
+main::Main Slide//
+
+%%%%%%%%%%%%%%%%//
+new::Animation1//
+
+\begin{center}//
+\input{fig/animsinemove}//
+\end{center}//
+
+%%%%%%%%%%%%%%%%//
+%new::Animation2//
+
+%\begin{center}//
+%\input{fig/animsinemove2}//
+%\end{center}// \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0801plotR.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0801plotR.cdy
index d363df1f..5bb212a8 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0801plotR.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0801plotR.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0802plotR2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0802plotR2.cdy
index 2a01d121..f1a84f15 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0802plotR2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0802plotR2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0803boxplot.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0803boxplot.cdy
index bc167449..d5bb0ff9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0803boxplot.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0803boxplot.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0804histplot.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0804histplot.cdy
index 11f80855..e67e8645 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0804histplot.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0804histplot.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0805random.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0805random.cdy
index 5368e320..35aec7d3 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0805random.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0805random.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0806dataframe.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0806dataframe.cdy
index c3f1fb2e..94755621 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0806dataframe.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0806dataframe.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0807timecount.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0807timecount.cdy
index 18753c33..a73a3ac9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0807timecount.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0807timecount.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0808ttest.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0808ttest.cdy
index e283d956..1d9dfdbe 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0808ttest.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s08R/s0808ttest.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0901parabolic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0901parabolic.cdy
new file mode 100644
index 00000000..bda83e0a
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0901parabolic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0902cone.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0902cone.cdy
new file mode 100644
index 00000000..6052150b
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0902cone.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0903saddle.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0903saddle.cdy
new file mode 100644
index 00000000..b29bc733
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0903saddle.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0904sphere.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0904sphere.cdy
new file mode 100644
index 00000000..37267bcb
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0904sphere.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0905wireframe.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0905wireframe.cdy
new file mode 100644
index 00000000..e74d0a5a
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0905wireframe.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0906intersectcrvsf.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0906intersectcrvsf.cdy
new file mode 100644
index 00000000..d912d2cb
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0906intersectcrvsf.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0907multisurfaces.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0907multisurfaces.cdy
new file mode 100644
index 00000000..31484243
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0907multisurfaces.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0908conecut.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0908conecut.cdy
new file mode 100644
index 00000000..f4428884
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0908conecut.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0909totaldiff.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0909totaldiff.cdy
new file mode 100644
index 00000000..9c8e7c27
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface(Scilab)/s0909totaldiff.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0901parabolic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0901parabolic.cdy
deleted file mode 100644
index 64143679..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0901parabolic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0902cone.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0902cone.cdy
deleted file mode 100644
index aeae0a61..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0902cone.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0903saddle.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0903saddle.cdy
deleted file mode 100644
index ac4113ea..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0903saddle.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0904sphere.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0904sphere.cdy
deleted file mode 100644
index 82c6eab1..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0904sphere.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0905wireframe.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0905wireframe.cdy
deleted file mode 100644
index 5ed8f7de..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0905wireframe.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0906intersectcrvsf.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0906intersectcrvsf.cdy
deleted file mode 100644
index b41a57b9..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0906intersectcrvsf.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0907multisurfaces.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0907multisurfaces.cdy
deleted file mode 100644
index 37800854..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0907multisurfaces.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0908conecut.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0908conecut.cdy
deleted file mode 100644
index e454b06b..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0908conecut.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0909totaldiff.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0909totaldiff.cdy
deleted file mode 100644
index 9b10fba9..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s09surface/s0909totaldiff.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1000list.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1000list.cdy
index 018fc90f..be193e2c 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1000list.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1000list.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1001basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1001basic.cdy
index b168bf54..c0b659d5 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1001basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1001basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1002equation.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1002equation.cdy
index 94b7ffeb..a332c2a4 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1002equation.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1002equation.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1003trig.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1003trig.cdy
index 48c7ff33..5c2e8f1d 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1003trig.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1003trig.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1004calcby.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1004calcby.cdy
index df9c7170..f5bb31c8 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1004calcby.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1004calcby.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1005diffint.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1005diffint.cdy
index 3f59b15f..4b581c9a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1005diffint.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1005diffint.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1006calculus.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1006calculus.cdy
index 46d2fd3c..956678be 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1006calculus.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1006calculus.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1007linalg.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1007linalg.cdy
index 21301d86..44bcaa1d 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1007linalg.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1007linalg.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1008idtable.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1008idtable.cdy
index d5305754..8aeb4270 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1008idtable.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1008idtable.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1009diffeq.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1009diffeq.cdy
index c8665137..691ff457 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1009diffeq.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1009diffeq.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier.cdy
index 14796db3..e8cabe3e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier2.cdy
index 9bce7f06..3967749a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier3.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier3.cdy
index e63e5b4b..60cda41e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier3.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1010fourier3.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop.cdy
index f123d2f1..622b7e58 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop2.cdy
index efdcbc04..ceee9ea0 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1011matrixop2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1012fourierpw.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1012fourierpw.cdy
index d78c57d8..f6e4420a 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1012fourierpw.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1012fourierpw.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1013for.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1013for.cdy
index 66e9a6c1..99d01ad9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1013for.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1013for.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1014incdec2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1014incdec2.cdy
index 11d2c057..1a48ee9b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1014incdec2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1014incdec2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1015primenumber.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1015primenumber.cdy
index bdb384ba..564749b1 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1015primenumber.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s10maxima/s1015primenumber.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1100list.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1100list.cdy
index a6a4aa68..575037fb 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1100list.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1100list.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1101calculator1.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1101calculator1.cdy
index 73dcd3d9..6d5ab14b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1101calculator1.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1101calculator1.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1102calculator2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1102calculator2.cdy
index e1b9f762..996a2935 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1102calculator2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1102calculator2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1103calcby.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1103calcby.cdy
index a921fe4d..66e58f97 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1103calcby.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1103calcby.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1104diff.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1104diff.cdy
index 6127f84f..43727b1f 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1104diff.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1104diff.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fint101.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fint101.cdy
index 638ddf9c..ed7d7dfa 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fint101.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fint101.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fzero109.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fzero109.cdy
index b51270ec..475b0018 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fzero109.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1105fzero109.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1106fmmx110.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1106fmmx110.cdy
index ca843c8a..c360a5cc 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1106fmmx110.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1106fmmx110.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1110integrate.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1110integrate.cdy
index dc852b91..8151daf2 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1110integrate.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1110integrate.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1111grobner1.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1111grobner1.cdy
index 9a9a6f18..9ac5a504 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1111grobner1.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1111grobner1.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1112residue.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1112residue.cdy
index cf400af1..b8db8601 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1112residue.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s11asir/s1112residue.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate.cdy
index 96a359ec..42fb8d3f 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate2.cdy
index d1703c5b..13b0cdb3 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1201integrate2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202calcby.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202calcby.cdy
index c16a8219..d79f82f5 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202calcby.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202calcby.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202equations.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202equations.cdy
index a18eafaa..bbc19ef9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202equations.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s12fricas/s1202equations.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1301basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1301basic.cdy
new file mode 100644
index 00000000..d5920bfb
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1301basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1303objparts.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1303objparts.cdy
new file mode 100644
index 00000000..8e814c19
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1303objparts.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1304symbol.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1304symbol.cdy
new file mode 100644
index 00000000..2a35c863
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1304symbol.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1305hyperpara.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1305hyperpara.cdy
new file mode 100644
index 00000000..1c083c57
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1305hyperpara.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1306poly.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1306poly.cdy
new file mode 100644
index 00000000..38116f6e
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1306poly.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1307poly2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1307poly2.cdy
new file mode 100644
index 00000000..6d9e518f
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1307poly2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1308discont.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1308discont.cdy
new file mode 100644
index 00000000..06e7b27c
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1308discont.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1309discont2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1309discont2.cdy
new file mode 100644
index 00000000..b70e5ed4
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1309discont2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1310totaldiff.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1310totaldiff.cdy
new file mode 100644
index 00000000..ef05f3fb
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1310totaldiff.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1311plate.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1311plate.cdy
new file mode 100644
index 00000000..2b8d3b44
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1311plate.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1312plane.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1312plane.cdy
new file mode 100644
index 00000000..4fa2eaff
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1312plane.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1313changescale.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1313changescale.cdy
new file mode 100644
index 00000000..3f2e4da3
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1313changescale.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1314knot.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1314knot.cdy
index c52cd3ed..7822bcaf 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1314knot.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/Meshlab(Scilab)/s1314knot.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1301basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1301basic.cdy
index 38300c52..2489208e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1301basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1301basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1303objparts.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1303objparts.cdy
index a4740a24..2675c4d9 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1303objparts.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1303objparts.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1304symbol.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1304symbol.cdy
index 87ef5c1c..8f5d0012 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1304symbol.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1304symbol.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1305hyperpara.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1305hyperpara.cdy
index 80ce5bd7..2768c455 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1305hyperpara.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1305hyperpara.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1306poly.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1306poly.cdy
index 0a37dd8a..e357ce0b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1306poly.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1306poly.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1307poly2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1307poly2.cdy
index 96e2d15a..0f3f54b2 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1307poly2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1307poly2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1308discont.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1308discont.cdy
index 1dac04a2..01f65394 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1308discont.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1308discont.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1309discont2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1309discont2.cdy
index 6f7ccd19..160b1fba 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1309discont2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1309discont2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1310totaldiff.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1310totaldiff.cdy
index 631105fc..7a526d7e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1310totaldiff.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1310totaldiff.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1311plate.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1311plate.cdy
index c9693b26..6afb901b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1311plate.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1311plate.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1312plane.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1312plane.cdy
index ff5faa44..777d2972 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1312plane.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1312plane.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1313changescale.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1313changescale.cdy
index cdff2f09..91721733 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1313changescale.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s13meshlab/s1313changescale.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/errormessageR.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/errormessageR.txt
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/errormessageR.txt
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/kc.sh b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/kc.sh
index fdc5e838..e69de29b 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/kc.sh
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/kc.sh
@@ -1,4 +0,0 @@
-#!/bin/sh
-cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s14dataprocessing"
-R --vanilla --slave < s1401csvprocessingsep.r >& errormessageR.txt
-exit 0
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/resultR.txt b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/resultR.txt
deleted file mode 100644
index 1259c849..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/resultR.txt
+++ /dev/null
@@ -1 +0,0 @@
-//// \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy
index 61975c2e..8339f560 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1402copypaste.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1402copypaste.cdy
index 155496aa..acdc2d25 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1402copypaste.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1402copypaste.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy
index e4fd5603..88c81f69 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1501mant.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1501mant.cdy
index aea37f3e..11ca4df6 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1501mant.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1501mant.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1502torus.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1502torus.cdy
index 0e93b6b2..0722cc97 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1502torus.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1502torus.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1503parabola.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1503parabola.cdy
index d3dddca7..0b0c75aa 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1503parabola.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1503parabola.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1504conecut.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1504conecut.cdy
index 11d413d9..86e422aa 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1504conecut.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1504conecut.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1505skeleton.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1505skeleton.cdy
index 9bb3b856..09cea9cf 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1505skeleton.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samples/s15C/s1505skeleton.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basic.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basic.cdy
index e78fe2b3..ac2ecd2d 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basic.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basic.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basicketcindy.html b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basicketcindy.html
deleted file mode 100644
index 6ae9f06e..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js01basicketcindy.html
+++ /dev/null
@@ -1,6491 +0,0 @@
-<!DOCTYPE html>
-<html>
-<head>
- <meta charset="UTF-8">
-
- <title>js01basic.cdy</title>
- <style type="text/css">
- * {
- margin: 0px;
- padding: 0px;
- }
-
- #CSConsole {
- background-color: #FAFAFA;
- border-top: 1px solid #333333;
- bottom: 0px;
- height: 200px;
- overflow-y: scroll;
- position: fixed;
- width: 100%;
- }
- </style>
- <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css">
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script>
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script>
-<script id="csdraw" type="text/x-cindyscript">
-Fhead="js01basic"; // write a head name
-Texparent="";
-Ketinit();
-Changework(Dirhead+"/ketsample/samplesJS");
-
-Addax(1);
-
-Listplot([A,B,C,A],["do"]);
-Plotdata("1","sin(x)","x");
-Expr([D,"e","y=\sin x"]);
-Letter([A,"w","A",B,"n","B",C,"e","C"]);
-Windispg();
-//Help("List");
-
-;
-</script>
-<script id="csinit" type="text/x-cindyscript">
-Ketinit():=Ketinit(1);
-Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
-Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2);
- PenThickInit=8;
- ULEN="1cm";
- KETPICLAYER=20;
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- KETPICCOUNT=1;
- KCOLOR=[0,0,0];
- GLIST=[];
- GCLIST=[];
-// GDATALIST=[];
- GOUTLIST=[];
- POUTLIST=[];
- VLIST=[];
- FUNLIST=[];
- LETTERlist=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- ADDAXES="1";
- LFmark=unicode("000a");
- Dq=unicode("0022");
- WaitUnit=10;
- CONTINUED=0;
- OutComList=[];
- OutFileLIst=[]; // 15.10.22
- FigPdfList=[]; // 16.04.08
- ADDPACK=[]; // 16.05.16
- ErrFlag=0;
- setdirectory(Dirwork);
- if(isstring(Fhead), // 15.04.06
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
- );
- if(!isstring(Mackc),// 16.06.07
- Mackc="sh";
- );
- ArrowlineNumber=1; // 15.01.05
- ArrowheadNumber=1;
- BezierNumber=1; //15.01.03
- SCALEX=1;
- SCALEY=sy;
-// Setscaling(sy);
- XMIN=rangex_1/SCALEX;
- XMAX=rangex_2/SCALEX;
- YMIN=rangey_1/SCALEY;
- YMAX=rangey_2/SCALEY;
- Setwindow("Msg=n"); // 16.05.31
-);
-
-DqDq(str):=unicode("0022")+str+unicode("0022");
-
-Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstr,options):=(
-//help:Tab2list(datastr);
-//help:Tab2list(options=[0]);
- regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2);
- crm=unicode("000d");
- lfm=unicode("000a");
- htm=unicode("0009");
- rep=0;
- if(length(options)>0,rep=options_1);
- first=lfm; // 16.09.05from
- if(indexof(dtstr,crm)>0,
- first=crm;
- if(indexof(dtstr,crm+lfm)>0,
- first=first+lfm;
- ); // 16.09.05upto
- );
- tmp1=Indexall(dtstr,first);
- tmp1=prepend(0,tmp1);
- tmp1=append(tmp1,length(dtstr));
- dtall=[];
- forall(1..(length(tmp1)-1),
- tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1);
- if(length(tmp)>0,
- dtall=append(dtall,tmp);
- );
- );
- out=[];
- forall(dtall,dt,
- tmp1=tokenize(dt,unicode("0009"));
- tmp2=[];
- forall(tmp1,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(!isreal(tmp),
- if(length(#)>0,tmp=#,tmp=rep);
- );
- tmp2=append(tmp2,tmp);
- );
- out=append(out,tmp2);
- );
- out;
-);
-
-Columnlist(dt,list):=( // 16.09.04
-//help:Columnlist(dt,1..3);
- apply(dt,#_list);
-);
-
-Dispmat(dt):=( // 16.09.16
-//help:Dispmat(dt);
- regional(htm,crm,lfm,row,tmp,tmp1,tmp2);
- htm=unicode("0009");
- crm=unicode("000d");
- lfm=unicode("000a");
- tmp2="";
- forall(dt,row,
- tmp1="";
- forall(row,
- if(isstring(#),
- tmp1=tmp1+#+htm;
- ,
- tmp1=tmp1+text(#)+htm;
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp1=tmp1+lfm;
- tmp2=tmp2+tmp1;
- );
- print(tmp2);
- println();
-);
-
-norm(v1):=( // 16.09.01
-//help:norm([2,1,3]);
- regional(out,tmp,tmp1,tmp2);
- out=0;
- forall(1..length(v1),
- out=out+(v1_#)^2;
- );
- out=sqrt(out);
- out;
-);
-norm(v1,v2):=(
- norm(v2-v1);
-);
-
-// 16.03.28
-Removespace(str):=(
-//help:Removespace(" a b c ");
- regional(tmp,flg,out);
- tmp=length(str)+1;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- if((str_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(str,tmp-1,length(str));
- flg=0;
- tmp=0;
- forall(reverse(1..length(out)),
- if(flg==0,
- if((out_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(out,0,tmp);
-);
-
-Indexall(str,key):=(
- regional(rest,out,flg,tmp,tmp1,);
- out=[];
- rest=str;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- tmp=indexof(rest,key);
- if(tmp>0,
- tmp1=tmp+length(str)-length(rest);
- out=append(out,tmp1);
- rest=substring(rest,tmp,length(rest));
- ,
- flg=1;
- );
- );
- );
- out;
-);
-
-Changework(path):=(
-//help:Changework(directory);
- regional(tmp); // 16.04.23from
- Dirwork=path;
- setdirectory(Dirwork); // 16.04.23
- if(ismacosx(),
- if(!iskcexists(Dirwork), // 16.06.07from
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
-// if(!isstring(Dq),Dq=unicode("0022")); // 18.07.30
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- println(SCEOUTPUT,"chmod +x kc.sh");
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+"/kc.sh",Dirlib,Fnametex)); // 16.07.23
- ); // 16.06.07upto
- );
-);
-
-Changestyle(nameL,style):=(
-//help:Changestyle(["sgAB"],["da"]);
- regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp);
- tmp=Divoptions(style);
- Ltypeorg=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,name,
- Ltype=Ltypeorg;
- GCLIST=select(GCLIST,#_1!=name);
- COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Op(n,object):=( // 16.05.25
-//help:Op(4,[1,2,3,4]);
-//help:Op(3,"abcd");
- regional(out);
- if(islist(object),
- out=object_n;
- ,
- if(isstring(object),
- out=substring(object,n-1,n);
- );
- );
- out;
-);
-
-Toupper(str):=(
- regional(alphabet,out,tmp,tmp1);
- alphabet="abcdefghijklmnopqrstuvwxyz";
- out="";
- forall(1..length(str),
- tmp=substring(str,#-1,#);
- tmp1=indexof(alphabet,tmp);
- if(tmp1>0,
- out=out+unicode(text(tmp1+64),base->10);
- ,
- out=out+tmp;
- );
- );
- out;
-);
-
-Textformat(value,dig):=(
-//help:Textformat(2/3,4);
-//help:Textformat([gr1,gr2],5);
- regional(vv,tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+Textformat(#,dig)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- if(ispoint(value) % isstring(value),
-// vv=Lcrd(value);
-// tmp1=Textformat(vv,dig);
-// tmp1=text(value); // 15.04.07
- if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02
- ,
- tmp1=format(value,dig);
- );
- );
- tmp1;
-);
-
-Sprintf(value,dig):=(
-//help:Sprintf(5.1,4);
- regional(vv,tmp,tmp1);
- if(!islist(value),
- vv=Textformat(value,dig);
- if(indexof(vv,".")==0,vv=vv+".");
- vv=vv+"0000000000000000";
- tmp=indexof(vv,".")+dig;
- vv=substring(vv,0,tmp);
- ,
- vv=apply(value,Sprintf(#,dig));
- );
- vv;
-);
-
-Assign(funstr,vrL):=(
- regional(nn,out,tmp,tmp1);
- nn=length(vrL)/2;
- out=funstr;
- forall(1..nn,
- out=Assign(out,vrL_(2*#-1),vrL_(2*#));
- );
- out;
-);
-
-Assign(funstr,varname,rep):=(
-//help:Assign("x^2+a*x","a",1.3);
-//help:Assign("a*x^2+b*x",["a",1,"b",2]);
- regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg);
- if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06
- tmp=[46]; // 12.20
- tmp=concat(tmp,48..57);
- tmp=concat(tmp,65..90);
- tmp=concat(tmp,97..122);
- Notvar=apply(tmp,unicode(text(#),base->10));
- tmp2="";
- forall(1..100,
- ii=indexof(funstr,varname);
- if(ii>0,
- Flg=0;
- if(ii>1,
- tmp=substring(funstr,ii-2,ii-1);
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,ii);
- funstr=substring(funstr,ii,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- jj=ii-1+length(varname);
- if(jj<length(funstr),
- tmp=substring(funstr,jj,jj+1));
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,jj);
- funstr=substring(funstr,jj,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- tmp2=tmp2+substring(funstr,0,ii-1)+repstr;
- funstr=substring(funstr,jj,length(funstr));
- );
- );
- );
- funstr=tmp2+funstr;
- funstr;
-);
-
-MeasureDepth(list):=(
- regional(tmp,Depth,Flg);
- Flg=0;
- Depth=0;
- if(ispoint(list), // 15.01.22
- Depth=0;
- Flg=1;
- ,
- tmp=list_1;
- );
- repeat(4,
- if(Flg==0,
- if(islist(tmp),
- tmp=tmp_1;
- Depth=Depth+1;
- ,
- if(ispoint(tmp),Depth=Depth+1);
- Flg=1;
- );
- );
- );
- Depth;
-);
-
-Flattenlist(pltlist):=(
-//help:Flattenlist([[2,3],[[1,2],[5,6]]]);
- regional(Out,nn,Dt,ii,tmp,flg);
- Out=[];
- if(MeasureDepth(pltlist)==1,
- Out=[pltlist];
- ,
- forall(1..length(pltlist),nn,
- Dt=pltlist_nn;
- if(MeasureDepth(Dt)<2,
- Out=append(Out,Dt);
- ,
- forall(1..length(Dt),ii,
- tmp=Flattenlist(Dt_ii);
- Out=concat(Out,tmp);
- );
- );
- );
- );
- Out;
-);
-
-Divoptions(options):=(
-//help:Divoptions(options);
- regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1);
- Ltype="dr"; // 2015.01.13
- Noflg=0;
- Inflg=0;
- Outflg=0;
- eqL=[];
- realL=[];
- strL=[];
- opstr="";
- opcindy="";
- forall(options,
- flg=0;
- if(flg==0,
- if(isreal(#) % ispoint(#) % islist(#),
- realL=append(realL,#);
- opstr=opstr+","+text(#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"=")>0,
- eqL=append(eqL,#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"no")+indexof(#,"No")>0,
- if(indexof(#,"tex")>0,Noflg=1);
- if(indexof(#,"disp")>0,Noflg=2);
- if(indexof(#,"data")>0,Noflg=3);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"out")+indexof(#,"Out")>0,
- if(indexof(#,"-")==0,
- Outflg=1;
- ,
- Outflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"in")+indexof(#,"In")>0,
- if(indexof(#,"-")==0,
- Inflg=1;
- ,
- Inflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- tmp=substring(#,0,2);
- tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr");
- tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da");
- tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id");
- tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do");
- tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp");
- if(tmp1>0,
- Ltype=#;
- flg=1;
- );
- if(flg==0,
- strL=append(strL,#);
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- );
- if(indexof(opcindy,"color->")==0,// 16.10.07from
- opcindy=opcindy+",color->[0,0,0]";
- );
- [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy];
-);
-
-Dotprod(vec1,vec2):=(
-//help:Dotprod(vec1,vec2);
- regional(v1,v2,tmp);
- if(ispoint(vec1),v1=vec1.xy,v1=vec1);
- if(ispoint(vec2),v2=vec2.xy,v2=vec2);
- v1*v2;
-);
-
-Crossprod(a,b):=(
-//help:Crossprod(vec1,vec2);
- regional(tmp1,tmp2,tmp3,Out);
- 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];
- ,
- Out=a_1*b_2-a_2*b_1;
- );
- Out;
-);
-
-Ptstart(Fig):=(
-//help:Ptstart("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21
- tmp_1;
-);
-
-Ptend(Fig):=(
-//help:Ptend("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_(length(tmp)); // 15.04.12
-);
-
-Numptcrv(Fig):=(
-//help:Numptcrv("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23
- length(tmp);
-);
-
-Ptcrv(Num,Fig):=(
-//help:Ptcrv(10,"gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_Num;
-);
-
-Invert(Fig):=(
-//help:Invert("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27
- reverse(tmp);
-);
-Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27
-Invert(nm,Fig,options):=(
-//help:Invert("1","gr1");
- regional(name,tmp);
- name="-inv"+nm;
- tmp=Invert(Fig);
- Listplot(name,tmp,options);
-);// upto 16.01.27
-
-Paramoncrv(pP,Gdata):=(
- regional(Tmp,PtL);
-// Eps=10^(-8);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- Tmp=Nearestpt(pP,PtL);
- Tmp_2;
-);
-
-ParamonCurve(pP,nN,plist):=(
-//help:ParamonCurve(A,10,"gr1");
- regional(PtL,Out,Pa,Pb,vV,vW,sS);
- if(isstring(plist),PtL=parse(plist),PtL=plist);
- if(nN==length(PtL),
- Out=nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- vV=Pb-Pa;
- vW=pP-Pa;
- sS=vV*vW/|vV|^2;
- sS=min([max([sS,0]),1]);
- Out=nN+sS;
- );
- Out;
-);
-
-Pointoncrv(tT,PtL):=PointonCurve(tT,PtL);
-PointonCurve(tT,Gdata):=(
-//help:PointonCurve(20.5,"gr1");
- regional(Out,Eps,nN,sS,Pa,Pb,PtL);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- if(length(PtL)==1,PtL=PtL_1);
- Eps=10^(-4);
- nN=floor(tT+Eps);
- sS=max([tT-nN,0]);
- if(nN==length(PtL),
- Out=PtL_nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- Out=(1-sS)*Pa+sS*Pb;
- );
- Out;
-);
-
-Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]);
-Koutenseg(pA,pB,pC,pD,options):=(
- regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2,
- em1,eM1,em2,eM2,rT,Tmp1,Tmp2);
- Eps0=10^(-4);
- pV=pB-pA;
- Sv2=|pV|;
- pP=pC-pA; pQ=pD-pA;
- Eps=10^(-3);
- Eps2=0.2;
- Tmp1=0;
- forall(options,
- if(Tmp1==0,
- Eps=#;
- Tmp1=1;
- ,
- Eps2=#;
- );
- );
- Flg=0;
- if(Sv2<10^(-3),
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- Eps=min([Eps2,Eps/Sv2]);
- p1=pP*pV/Sv2^2;
- p2=[pP_2,-pP_1]*pV/Sv2^2;
- q1=pQ*pV/Sv2^2;
- q2=[pQ_2,-pQ_1]*pV/Sv2^2;
- em1=-Eps; eM1=1+Eps;
- em2=-Eps; eM2=Eps;
- if(max([p1,q1])<em1 % min([p1,q1])>eM1,
- Out=["inf","inf"];
- Flg=1;
- );
- if(max([p2,q2])<em2 % min([p2,q2])>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- );
- if(Flg==0 & p2*q2<0,
- rT=p1-(q1-p1)/(q2-p2)*p2;
- if(rT>em1 & rT<eM1,
- if(rT>-Eps0 & rT<1+Eps0,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,0];
- ,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,1];
- );
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- );
- if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0),
- rT= p1;
- Tmp1=pA+rT*pV;
- Out= [Tmp1, rT, 0];
- Flg=1;
- );
- if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0),
- rT= q1;
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,0];
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([q1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2),
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- if(Flg==0,
- if(abs(p2)<abs(q2),
- rT=min([max([p1,0]),1]);
- ,
- rT=min([max([q1,0]),1]);
- );
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- );
- Out;
-);
-
-IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
-IntersectcrvsPp(Gr1,Gr2,options):=(
-//help:IntersectcrvsPp("gr1","pa1");
- regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2,
- Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj,
- pP,pQ,rT,Flg,eqL,realL,opstr,Dif);
- Eps=10^(-4);
- Eps2=0.1;
- Dif=0.05; // 2015.05.31
- Flg=0;
- Tmp1=Divoptions(options); //
- eqL=Tmp1_5;
- realL=Tmp1_6;
- opstr=Tmp1_(length(Tmp1));
- forall(eqL,
- if(substring(#,0,1)=="D",
- Tmp1=indexof(#,"=");
- Dif=parse(substring(#,Tmp1,length(#)));
- );
- );
- Tmp1=length(realL);
- if(Tmp1>0,
- Eps=realL_1;
- if(Tmp1>1,
- Eps2=realL_2;
- );
- );
- Flg=0;
- if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1);
- if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2);
- if(MeasureDepth(Data1)==2,Data1=Data1_1);
- if(MeasureDepth(Data2)==2,Data2=Data2_1);
- Data1=apply(Data1,LLcrd(#));
- Data2=apply(Data2,LLcrd(#));
- if(length(Data1)==length(Data2),
- Tmp1=Reverse(Data2);
- Eps0=10^(-6);
- Tmp2=0;
- forall(1..length(Data1),
- Tmp2=Tmp2+abs(Data1_#-Data2_#);
- );
- Tmp3=0;
- forall(1..length(Data1),
- Tmp3=Tmp3+abs(Data1_#-Tmp1_#);
- );
- if(Tmp2<Eps0 % Tmp3<Eps0,
- Out=[];
- Flg=1;
- );
- );
- if(Flg==0,
- KL1=[];
- KL2=[];
- forall(1..(length(Data1)-1),Ni,
- pA=Data1_Ni;
- pB=Data1_(Ni+1);
- forall(1..(length(Data2)-1),
- pP=Data2_#; pQ=Data2_(#+1);
- Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]);
- if(Tmp!=["inf","inf"],
- if(Tmp_3==0,
- Tmp1=[Tmp_1,Tmp_2,Ni,#];
- KL1=concat(KL1,[Tmp1]);
- ,
- Tmp2=[Tmp_1,Tmp_2,Ni,#];
- KL2=concat(KL2,[Tmp2]);
- );
- );
- );
- );
- Out=[];
- if(length(KL1)>0,
- Tmp=KL1_1;
- pP=Tmp_1;
- rT=Tmp_2;
- Ni=Tmp_3;
- Nj=Tmp_4;
- Tmp=[pP,Ni+rT,Nj];
- Out=[Tmp];
- );
- forall(2..length(KL1),Ni,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- rT=Tmp_2;
- Tmp1=Tmp_3;
- Tmp2=Tmp_4;
- Tmp=[pP,Tmp1+rT,Tmp2];
- Out=concat(Out,[Tmp]);
- );
- );
- forall(1..length(KL2),Ni,
- Tmp=KL2_Ni; // 15.11.21 Usui
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL2_Ni;
- rT=Tmp_2;
- rT=min([max([rT,0]),1]); // 15.11.21 Usui
- Tmp=[pP,Tmp_3+rT,Tmp_4];
- Out=concat(Out,[Tmp]);
- );
- );
- );
- Tmp1=Out; // 15.04.06 from
- Out=[];
- forall(Tmp1,Tmp2,
- Tmp3=select(Out,|#_1-Tmp2_1|<Dif);
- if(length(Tmp3)==0,
- Out=append(Out,Tmp2);
- );
- ); // 15.04.06 upto
- Out;
-);
-
-Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]);
-//help:Intersectcrvs("gr1","pa1");
-Intersectcrvs(Gr1,Gr2,options):=(
- regional(tmp,tmp1,tmp2);
- tmp1=IntersectcrvsPp(Gr1,Gr2,options);
- apply(tmp1,#_1);
-);
-
-NearestptcrvPhy(point,PL):=(
- regional(tmp,pP,plist);
- pP=Pcrd(point);
- if(isstring(PL),plist=parse(PL),plist=PL);
- if(MeasureDepth(plist)==2,plist=plist_1);
- plist=apply(plist,#); // 14.12.18
- tmp=Nearestpt(pP,plist);
- tmp=tmp_1;
- [tmp_1/SCALEX,tmp_2/SCALEY];
-);
-
-Nearestptcrv(point,plist):=(
-//help:Nearestptcrv(A,"gr1");
- regional(tmp);
- tmp=Nearestpt(point,plist);
- tmp_1;
-);
-
-Nearestpt(point,PL2):=(
- regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni,
- a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg);
-//help:Nearestpt("gr1","gr2");
- if(isstring(point),PL1=parse(point),PL1=point);
- if(MeasureDepth(PL1)==2,PL1=PL1_1);
- if(!islist(PL1_1),
- PL1=[PL1];
- Flg=0;
- ,
- Flg=1;
- );
- if(isstring(PL2),PL=parse(PL2),PL=PL2);
- if(MeasureDepth(PL)==2,PL=PL_1);
- Eps=10^(-6);
- Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|];
- forall(1..length(PL1),Nn, // 16.05.04
- pA=PL1_Nn;
- Pm=PL_1;
- Im=1;
- Sm=|Pm-pA|;
- forall(1..(length(PL)-1),Ni,
- a1=PL_Ni_1; a2=PL_Ni_2;
- b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2;
- v1=b1-a1; v2=b2-a2;
- x1=pA_1; x2=pA_2;
- Tmp=v2^2+v1^2;
- if(abs(Tmp)>Eps,
- rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp;
- if(rT<-Eps,
- pP=[a1,a2];
- ,
- if(rT>1+Eps,
- pP=[b1,b2];
- ,
- pP=[a1+rT*v1,a2+rT*v2];
- );
- );
- sS=|pP-pA|;
- if(sS<Sm-Eps,
- Tmp=ParamonCurve(pP,Ni,PL);
- Pm=pP; Lm=Tmp; Sm=sS;
- );
- );
- if(Sm<Ans_5, // 16.05.03from
- Ans=[pA,Nn,Pm,Lm,Sm];
- );
- ); // 16.05.03upto
- );
- if(Flg==0,
- Ans=Ans_(3..5);
- );
- Ans;
-);
-
-Derivative(fun,var,value):=(
-//help:Derivative("x^3","x",2);
- regional(str,tmp);
- str="d(";
- str=str+replace(fun,var,"#")+",";
- str=str+value+")";
- tmp=Pcrd([1,parse(str)]); // 14.11.08
- tmp_2;
-);
-
-Integrate(pltdata,range):=Integrate(pltdata,range,[]);
-Intergrate(Arg1,Arg2,Arg3):=(
- regional(pltdata,range,options,fnstr,vartr);
- if(islist(Arg2),
- pltdata=Arg1;
- range=Arg2;
- options=Arg3;
- Integrate(pltdata,range,options);
- ,
- fnstr=Arg1;
- vastr=Arg2;
- range=Arg3;
- Integrate(fnstr,vastr,range,[]);
- );
-);
-
-Integrate(pltdata,range,options):=(
-//help:Integrate("gr1",[1,3]);
-//help:Integrate("gr1",[1,3],["Rule=t"]);
- regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2);
- tmp=Divoptions(options);
- eqL=tmp_5;
- Rule="o";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Rule=substring(#,tmp,tmp+1);
- );
- );
- if(Rule=="o",
- Sm= IntegrateO(pltdata,range);
- ,
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- list=apply(list,LLcrd(#)); // 15.09.14
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- ptP=list_#; // 15.09.14
- ptQ=list_(#+1);
- Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2;
- );
- Sm;
- );
-);
-
-Integrate(fnstr,vastr,range,options):=(
-//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]);
- regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2);
- Num=100;
- Way="t";
- forall(options,
- if(indexof(#,"=")>0,
- if(indexof(#,"N=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(indexof(#,"Num=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Way=substring(#,tmp,tmp+1);
- );
- );
- );
- Sm=0;
- if(Way=="t",
- forall(1..Num,
- Lx=range_1+(range_2-range_1)*(#-1)/Num;
- Rx=range_1+(range_2-range_1)*#/Num;
- va1=parse(replace(fnstr,vastr,textformat(Lx,5)));
- va2=parse(replace(fnstr,vastr,textformat(Rx,5)));
- Sm=Sm+(va1+va2)*(Rx-Lx)/2;
- );
- ,
- sx=range_1;
- ex=range_2;
- dx=(ex-sx)/Num;
- xn=apply(0..Num,sx+#*dx);
- yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5))));
- dx=dx/2;
- repeat(Num,s,
- x0=xn_s;
- x1=(xn_s+xn_(s+1))/2;
- x2=xn_(s+1);
- y0=yn_s;
- y1=parse(replace(fnstr,vastr,textformat(x1,5)));
- y2=yn_(s+1);
- Sm=Sm+dx*(y0+4*y1+y2)/3;
- );
- );
- Sm;
-);
-
-IntegrateO(p0org,p1org,p2org,p3org):=(
- regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02,
- p11,p12,p21,p22,p31,p32, tmp);
- if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10
- if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16
- if(ispoint(p2org),p2=p2org.xy,p2=p2org);
- if(ispoint(p3org),p3=p3org.xy,p3=p3org);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp=tmp/20;
-);
-IntegrateO(pltdata,rangeorg):=(
-//help:IntegrateO("gr1",[0,2]);
- regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg,
- Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- range=rangeorg;
- pmflg=1;
- if(range_2<range_1,
- range=reverse(range);
- pmflg=-1;
- );
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- if((length(list)>0) & (list_1_1>list_(length(list))_2),
- list=reverse(list);
-// pmflg=pmflg*(-1);
- );
- list=apply(list,LLcrd(#));
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- p1=list_#;
- p2=list_(#+1);
- if(#==1 % #==length(list)-1,
- tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2;
- Sm=Sm+tmp1;
- ,
- p0=list_(#-1);
- p3=list_(#+2);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp1=tmp1/20;
- Sm=Sm+tmp1;
- );
- );
- if(pmflg==-1,
- Sm=-Sm;
- );
- Sm;
-);
-
-Findarea(pdstr):=(
-//help:Findarea("sgABCA");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=(p1_2+p2_2)*(p2_1-p1_1)/2;
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findarea(pdstr):=( // 15.11.27
-//help:Findarea("cr1");
- regional(pd,p0,p1,p2,p3,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=pd_#;
- p2=pd_(#+1);
- if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1));
- if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2));
- tmp=IntegrateO(p0,p1,p2,p3);
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findlength(pdstr):=(
-//help:Findlength("gr1");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=|p2-p1|;
- s=s+tmp;
- );
- s;
-);
-
-Inversefun(fnstr,rngstr,value):=(
- regional(tmp,varstr,range,x1,x2,x3,va1,va2);
- tmp=indexof(rngstr,"=");
- varstr=substring(rngstr,0,tmp-1);
- range=parse(substring(rngstr,tmp,length(rngstr)));
- x1=range_1; x2=range_2;
- repeat(15,
- x3=(x1+x2)/2;
- va1=parse(replace(fnstr,varstr,textformat(x1,5)));
- va2=parse(replace(fnstr,varstr,textformat(x3,5)));
- if((va1>value & va2>value) % (va1<value & va2<value),
- x1=x3;
- ,
- x2=x3;
- );
- );
- va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value;
- va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value;
- if(x1==range_1 % x2==range_2,
- println("not found in ("+textformat(range_1,5)
- +","+textformat(range_2,5)+")");
- );
- if(abs(va1)<=abs(va2),x1,x2);
-);
-
-Lcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=[pt.x/SCALEX,pt.y/SCALEY];
- ,
- tmp=pt;
- );
- tmp;
-);
-
-Pcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=re(pt.xy); // 15.07.24
- ,
- tmp=[pt_1*SCALEX,pt_2*SCALEY];
- );
- tmp;
-);
-
-LLcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=pt.xy
- ,
- tmp=pt;
- );
- tmp=[tmp_1/SCALEX,tmp_2/SCALEY];
- tmp;
-);
-
-Doscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Unscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Definecolor(name,data):=(
-//help:Definecolor("mycolor",[1,1,1,0]);
- regional(type,tmp);
- if(length(data)>3,type="cmyk",type="rgb");
- tmp=text(data);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}";
- Texcom(tmp);
-);
-
-Setcolor(Par):=(
-//help:Setcolor([1,0,0,1]);
-//help:Setcolor([1,1,0]);
- if(islist(Par),
- if(length(Par)==3,
- Setcolorrgb(Par); // 2015.04.28
-// KCOLOR=Par;
- );
- if(length(Par)==4,
- Setcolor(Par,[]);
- );
- ,
- Setcolor(Par,[]);
- );
-);
-
-Setcolor(colorname,options):=(
-//help:Setcolor("greenyellow",0.3);
- regional(tmp);
- if(isstring(colorname),
- tmp="Setcolor("+Dq+colorname+Dq;
- if(length(options)>0,
- tmp=tmp+","+text(options_1);
- );
- Com2nd(tmp+")");
- );
- if(islist(colorname),
- tmp=text(colorname);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
- );
-);
-
-Setcolorrgb(colorlist):=(
-// help:Setcolorrgb([0.5,0.3,0.4]);
- regional(tmp);
- tmp=text(colorlist);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
-);
-
-ColorRgb2Cmyk(clr):=(
-// help:ColorRgb([0.2,0.5,0.1]);
- regional(clrnew,tmp,black);
- tmp=apply(clr,1-#);
- black=min(tmp);
- tmp=apply(clr,(1-#-black)/(1-black));
- clrnew=append(tmp,black);
- clrnew;
-);
-
-ColorCmyk2Rgb(clr):=(
-// help:ColorRgb([0.2,0.5,0.1,0.2]);
- regional(clrnew,tmp,black);
- black=clr_4;
- tmp=apply(clr,1-min(1,#*(1-black)+black));
- clrnew=tmp_(1..3);
- clrnew;
-);
-
-Colorrgbhsv(rgb):=(
- regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB);
- varR = rgb_1;
- varG = rgb_2;
- varB = rgb_3;
- varMin = min( [varR, varG, varB] );
- varMax = max( [varR, varG, varB] );
- delMax = varMax - varMin ;
- vv = varMax;
- if ( delMax == 0 ,
- hh = 0 ;
- ss = 0 ;
- ,
- ss = delMax / varMax;
- delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax;
- if( varR == varMax ,
- hh = delB - delG;
- ,
- if ( varG == varMax,
- hh = ( 1 / 3 ) + delR - delB;
- ,
- if ( varB == varMax ,
- hh = ( 2 / 3 ) + delG - delR;
- );
- );
- );
- if ( hh < 0 ,hh = hh+1);
- if ( hh > 1 ,hh = hh-1);
- );
- [hh*360,ss,vv];
-);
-
-Colorhsvrgb(sL):=(
- regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL);
- tmp=[sL_1/60,sL_2,sL_3];
- hi=mod(floor(tmp_1),6);
- ff=tmp_1-floor(tmp_1);
- tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)];
- tmp2=append(tmp2,tmp_3);
- if(hi==0,dL=tmp2_[4,3,1]);
- if(hi==1,dL=tmp2_[2,4,1]);
- if(hi==2,dL=tmp2_[1,4,3]);
- if(hi==3,dL=tmp2_[1,2,4]);
- if(hi==4,dL=tmp2_[3,1,4]);
- if(hi==5,dL=tmp2_[4,1,2]);
- dL;
-);
-
-Colorrgbhsl(rgb):=(
- regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll);
- rr = rgb_1 ;
- gg = rgb_2 ;
- bb = rgb_3 ;
- mn = min([rr, gg, bb]);
- mx = max([rr, gg, bb]);
- delta = mx - mn;
- ll = (mx + mn) / 2;
- if (delta == 0,
- hh=0;
- ss=0;
- ,
- if (ll < 0.5,
- ss = delta/ (mx + mn);
- ,
- ss = delta / (2 - mx - mn);
- );
- deltaR = (((mx - rr) / 6) + (delta / 2)) / delta;
- deltaG = (((mx - gg) / 6) + (delta / 2)) / delta;
- deltaB = (((mx - bb) / 6) + (delta / 2)) / delta;
- if (rr == mx,
- hh = deltaB - deltaG;
- ,
- if (gg == mx,
- hh = (1 / 3) + deltaR - deltaB;
- ,
- if (bb == mx,
- hh = (2 / 3) + deltaG - deltaR;
- );
- );
- );
- if ( hh < 0, hh = hh+1);
- if ( hh > 1, hh = hh-1);
- );
- [hh*360,ss,ll];
-);
-
-Colorhslrgb(hsl):=(
- regional(hh,ss,ll,rr,gg,bb,var1,var2);
- hh=hsl_1/360;
- ss=hsl_2;
- ll=hsl_3;
- if ( ss == 0.0,
- rr = ll ;
- gg = ll ;
- bb = ll ;
- ,
- if ( ll < 0.5 ,
- var2 = ll * ( 1.0 + ss );
- ,
- var2 = ( ll + ss ) - ( ss * ll );
- );
- var1 = 2.0 * ll - var2;
- rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) );
- gg = hue2rgb( var1, var2, hh );
- bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) );
- );
- [rr,gg,bb];
-);
-
-hue2rgb(vv1,vv2,vh):=(
- regional(out);
- if ( vh < 0.0 ,vh =vh+1);
- if ( vh > 1.0 ,vh =vh-1);
- if ( 6.0*vh < 1.0 ,
- out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ;
- ,
- if( 2.0*vh < 1.0 ,
- out = vv2;
- ,
- if ( 3.0*vh < 2.0 ,
- out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ;
- ,
- out= vv1 ;
- );
- );
- );
- out;
-);
-
-Colorrgbhwb(sL):=(
- regional(dl1,dl2,dl3);
- dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1;
- dl2 = min(sL);
- dl3 = 1 - max(sL);
- dL= [dl1, dl2 , dl3 ];
-);
-
-Colorhwbrgb(sLorg):=(
- regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg);
- sL=sLorg;
- sL=[sL_1/360,sL_2,sL_3];
- ratio = sL_2 + sL_3;
- // sL_2 + sL_3 cant be > 1
- if (ratio > 1.,
- sL_2 =sL_2 / ratio;
- sL_3 = sL_3 / ratio;
- );
- ii = floor(6 * sL_1);
- vv = 1 - sL_3;
- ff = 6 * sL_1 - ii;
- if(mod(ii,2)==1,ff = 1 - ff);
- nn = sL_2 + ff * (vv - sL_2); // linear interpolation
- tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn],
- [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]];
- flg=0;
- forall(0..6,
- if(flg==0 & ii == # ,
- dL=tmp_(#+1);
- flg=1;
- );
- );
- dL;
-);
-
-Colorhslhsv(sL):=(
- regional(dl1,dl2,dl3,dL);
- dl1=sL_1;
- if(sL_3 == 0,
- // no need to do calc on black
- // also avoids divide by 0 error
- dL= [0, 0, 0];
- ,
- sL_3 = sL_3 * 2;
- if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3));
- dl3 = (sL_3 + sL_2) / 2;
- dl2 = (2 * sL_2) / (sL_3 + sL_2);
- dL = [dl1, dl2, dl3];
- );
- dL;
-);
-
-Colorcode(src,dest,sL):=(
-//help:Colorcode("rgb","cmyk",[1,0.5,0]);
- regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg);
- regional(dl1,dl2,dl3);
- if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL));
- if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL));
- if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL));
- if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL));
- if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL));
- if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL));
- if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL));
- if(src=="hsv" & dest=="hsl",
- dl1 = sL_1;
- dl3 = (2 - sL_2) * sL_3;
- dl2 = sL_2 * sL_3;
- if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3));
- dl3 =d l3/ 2;
- dL = [dl1, dl2 , dl3 ];
- );
-
- if(src=="rgb" & dest=="cmyk",
- tmp=apply(sL,1-#);
- black=min(tmp);
- tmp=apply(sL,(1-#-black)/(1-black));
- dL=append(tmp,black);
- );
- if(src=="cmyk" & dest=="rgb",
- black=sL_4;
- tmp=apply(sL,1-min(1,#*(1-black)+black));
- dL=tmp_(1..3);
- );
- if(src=="hsv" & dest=="cmyk",
- tmp=Colorcode("hsv","rgb",sL);
- dL=Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsv",
- tmp=Colorcode("cmyk","rgb",sL);
- dL=Colorcode("rgb","hsv",tmp);
- );
-
- if(src=="hsv" & dest=="hwb",
- tmp = Colorcode("hsv","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsv",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsv",tmp);
- );
- if(src=="hsl" & dest=="hwb",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsl",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="hsl" & dest=="cmyk",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="hwb" & dest=="cmyk",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsl",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="cmyk" & dest=="hwb",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL));
- if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL));
-
- if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL));
- if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL));
-
- if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL));
- if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL));
-
- if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL));
- if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL));
-
- dL;
-);
-
-Addcolor(cmdorg,list):=(
-//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]);
- regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4);
- cmd=replace(cmdorg,"'",Dq);
- if(length(list)==3,
- rgb=list;
- cmyk=Colorcode("rgb","cmyk",list);
- ,
- cmyk=list;
- rgb=Colorcode("cmyk","rgb",list);
- );
- tmp1="color->"+text(rgb);
- tmp2="Setcolor("+text(cmyk)+");";
- tmp3=substring(cmd,0,length(cmd)-2);
- tmp=substring(tmp3,length(tmp3)-1,length(tmp3));
- if(tmp!="[",
- tmp3=tmp3+",";
- );
- tmp3=tmp3+Dq+tmp1+Dq+"])";
- parse(tmp2);
- parse(tmp3);
- Setcolor("black");
-);
-
-Colorinfile(filename,clrf,clrt):=(
- regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body);
- if(length(clrf_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrf,text(#));
- cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- if(length(clrt_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrt,text(#));
- chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- tmp1=load(filename);
- tmp=tokenize(tmp1,"{\unitlength");
- head=tokenize(tmp_1,"%%%");
- head=head_(2..length(head));
- head=apply(head,"%%%"+#);
- tmp2=tmp_2;
- forall(1..5,
- tmp2=replace(tmp2,cstrL_#,chstrL_#);
- );
- body=tokenize(tmp2,"%");
- body_1="{\unitlength"+body_1;
- body=apply(body,#+"%");
- body=body_(1..(length(body)-1));
- tmp=replace(filename,".tex","new.tex");
- SCEOUT=openfile(tmp);
- forall(head,
- println(SCEOUT,#);
- );
- forall(1..length(body),
- tmp=body_#;
- if(#<length(body),
- println(SCEOUT,tmp);
- ,
- print(SCEOUT,tmp)
- );
- );
- closefile(SCEOUT);
-);
-
-GetLinestyle(str,name):=(
- regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg);
- Ltype=-1;
- Dop="";
- tmp1=indexof(str,",");
- if(tmp1>0,
- Dop=","+substring(str,tmp1,length(str));
- );
- noflg=parse(substring(str,0,1));
- if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29
- tmp1=substring(str,1,3);
- if(tmp1=="dr" % tmp1=="Dr",
- Ltype=0;
- if(noflg==0 & subflg==0, // 16.02.29
- Drwline(name+Dop);
- );
- );
- if(tmp1=="da" % tmp1=="Da",
- Ltype=1;
- if(noflg==0 & subflg==0, // 16.02.29
- Dashline(name+Dop);
- );
- );
- if(tmp1=="id" % tmp1=="Id",
- Ltype=2; // 15.11.09
- if(noflg==0 & subflg==0, // 16.02.29
- Invdashline(name+Dop);
- );
- );
- if(tmp1=="do" % tmp1=="Do",
- Ltype=3;
- if(noflg==0 & subflg==0, // 16.02.29
- Dottedline(name+Dop);
- );
- );
- if(tmp1=="dp" % tmp1=="Dp",
- Ltype=0;
- tmp1=parse(name);
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#_1,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- if(noflg==0,
- Drwpt(tmp2+Dop);
- );
- );
- if(tmp1=="no" % tmp1=="No",
- Ltype=10;
- );
- Ltype;
-);
-
-Chunderscore(str):=(
- regional(flg,tmp,tmp1,tmp2,tmp3);
- if(indexof(str,"]")>0,
- tmp1=replace(str,"]",",]");
- ,
- tmp1=str+",";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- if(indexof(str,"]")>0,
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,"[","list(");
- ,
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
- tmp1;
-);
-
-//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]);
-AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]);
-// if(isstring(Arg2),
-// AddGraph(Arg1,Arg2,[]);
-// ,
-// if(MeasureDepth(Arg2)>0,
-// Addgraph(Arg1,Arg2,[]);
-// ,
-// Addgraph("-"+Arg1,Arg1,Arg2);
-// );
-// );
-//);
-AddGraph(nm,pltdata,options):=(
-//help:AddGraph("1","imp1"); // 16.04.04
-//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]);
- regional(name,Ltype,Noflg,opcindy,pdata,fname,flg,
- tmp,tmp1,tmp2,tmp3);
- if(substring(nm,0,1)=="-",
- name=substring(nm,1,length(nm));
- ,
- name="ad"+nm;
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_9;
- if(isstring(pltdata),
- pdata=parse(pltdata)
- ,
- if(!islist(pltdata),pdata=[pltdata],pdata=pltdata);
- pdata=apply(pdata,parse(#));
- ); // 15.01.22
- pdata=Flattenlist(pdata);
- tmp1=[];
- forall(pdata,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- pdata=tmp1;
- if(Noflg<3,
- println("generate addgraph "+name);
- tmp=name+"="+textformat(pdata,5);
- parse(tmp);
- if(isstring(pltdata), // 16.04.04 from
- if(indexof(pltdata,"]")>0,
- tmp1="list(Listplot("+substring(pltdata,1,length(pltdata));
- tmp1=replace(tmp1,"]",",]");
- ,
- tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,",","),Listplot(");
- if(indexof(pltdata,"[")>0,
- tmp1=tmp1+")";
- );
- GLIST=append(GLIST,name+"="+tmp1);
- ,
- if(MeasureDepth(pdata)==1,
- tmp1=name+"=Listplot("+textformat(pdata,5)+")";
- ,
- tmp1="list(";
- forall(1..length(pdata),
- tmp=name+"p"+textformat(#,5)+"=";
- if(length(pdata_#)>1, // 15.01.22
- tmp=tmp+"Listplot("+textformat(pdata_#,5)+")";
- ,
- tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")";
- );
- GLIST=append(GLIST,tmp);
- tmp1=tmp1+name+"p"+textformat(#,5)+",";
- );
- tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")";
- );
- GLIST=append(GLIST,tmp1);
- );
- ); // 16.04.04 upto
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]);
-Joincrvs(nm,plotstrL,options):=(
-//help:Joincrvs("1",["sgAB","sgDCB"]);
- regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg);
- name="join"+nm;
- plotlist=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- tmp=apply(tmp,LLcrd(#));
- ,
- tmp=str;
- );
- plotlist=append(plotlist,tmp);
- );
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Eps=tmp1_1);
- QdL=[];
- forall(plotlist,Qd,
- if(ispoint(Qd_1) % !islist(Qd_1_1),
- QdL=concat(QdL,[Qd]);
- ,
- forall(Qd,
- QdL=concat(QdL,[#]);
- );
- );
- );
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..length(QdL),Ni,
- Qd=QdL_Ni;
- if(Numptcrv(Qd)>1,
- pP=Ptend(PtL);
- pS=Ptstart(PtL);
- pQ=Ptstart(Qd);
- pR=Ptend(Qd);
- rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]);
- if(rMN==|pP-pR|,
- Qd=reverse(Qd);
- ,
- if(rMN==|pS-pQ|,
- PtL=reverse(PtL);
- ,
- if(rMN==|pS-pR|,
- PtL=reverse(PtL);
- Qd=reverse(Qd);
- );
- );
- );
- );
- if(rMN>Eps,
- PtL=concat(PtL,Qd);
- ,
- PtL=concat(PtL,Qd_(2..length(Qd)));
- );
- );
- );
- if(Noflg<3,
- println("generate joincurve "+name);
- tmp1=apply(PtL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1="";
- forall(plotstrL,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PtL;
-);
-
-Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]);
-Partcrv(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv("1",A,B,"sgABC");
-//help:Partcrv("1",1.3,2.5,"sgABC");
- regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP,
- opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg);
- name="part"+nm;
- if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr);
- DepthFlg=0;
- if(MeasureDepth(PkL)==2,
- PkL=PkL_1;
- DepthFlg=1;
- );
- PkL=apply(PkL,LLcrd(#));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- Flg=0;
- if(isreal(pA),
- if(pA>pB+Eps,
- Npt=Numptcrv(PkL);
- Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]);
- Out2=Partcrv("",1,pB,PkLstr,["nodata"]);
- tmp=Ptstart(PkL)-Ptend(PkL);
- if(|tmp|<Eps,
- Ans=Joincrvs("",[Out1,Out2],["nodata"]);
- ,
- Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))];
- );
- Flg=1;
- );
- if(Flg==0,
- nS=ceil(pA);
- nE=floor(pB);
- PPL=[];
- if(pA<nS-Eps,
- pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS;
- PPL=[pP];
- );
- PPL=concat(PPL,PkL_(nS..nE));
- if(pB>nE+Eps,
- pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1);
- PPL=concat(PPL,[pP]);
- );
- Ans=PPL;
- Flg=1;
- );
- );
- if(Flg==0,
- tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL);
- Ta=tmp_2;
- tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12
- Tb=tmp_2;
- Ans=Partcrv("",Ta,Tb,PkL,["nodata"] );
- Ans=apply(Ans,Pcrd(#));
- );
- if(Noflg<3,
- println("generate partcrv "+name);
- tmp1=apply(Ans,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST, // 16.04.03
- if(DepthFlg==0,
- tmp=PkLstr;
- ,
- tmp=PkLstr+"(1)";
- );
- tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5)
- +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03
- GLIST=append(GLIST,tmp1);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Ans;
-);
-
-Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]);
-Opcrvs(num,Fig,options):=(
- //help:Subgraph(2,"grfs");
- regional(name,tmp,tmp1);
- name="-"+Fig+text(num);
- tmp=Fig+"_"+text(num);
- tmp1=parse(tmp);
- Listplot(name,tmp1,options);
-);
-
-
-Pointdata(nm,list):=Pointdata(nm,list,[]);
-Pointdata(nm,list,options):=(
-//help:Pointdata("1",[2,4],["Size=5"]);
-//help:Pointdata("2",[[2,3],[4,1]]);
- regional(name,nameL,ptlist,opstr,opcindy,
- eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="pt"+nm;
- nameL=name+"L";
- println("generate pointdata "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- size="";
- eqL=tmp_5;
- if(length(eqL)>0,
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="s" % tmp=="S",
- tmp=indexof(#,"=");
- size=substring(#,tmp,length(#));
- );
- );
- );
- tmp=MeasureDepth(list);
- if(tmp>0, // 2015.02.21
- if(tmp==1,ptlist=list,ptlist=list_1);
- tmp=apply(ptlist,[textformat(Pcrd(#),5)]);
- tmp1=text(tmp);
- tmp2=substring(tmp1,1,length(tmp1)-1);
- tmp3=tmp1;
- ,
- ptlist=list;
- tmp1=textformat(Pcrd(ptlist),5);
- tmp2=tmp1;
- tmp3="["+tmp1+"]";
- );
- tmp=name+"="+tmp1;
- parse(tmp);
- tmp=nameL+"="+tmp3;
- parse(tmp);
- if(Noflg<3,
- GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
- );
- if(Noflg<2,
- tmp=[nameL,0,opcindy];
- GCLIST=append(GCLIST,tmp);
- if(Noflg==0,
- if(length(size)>0,
- Com2nd("Setpt("+size+")");
- );
- thick=PenThick/PenThickInit; // 16.04.09 from
- if(length(size)>0,tmp1=parse(size),tmp1=1);
- tmp1=max(tmp1,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- Com2nd("Drwpt(list("+name+")"+opstr+")");
- Setpen(thick); // 16.04.09
- if(length(size)>0,
- Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")");
- );
- );
- );
- ptlist;
-);
-
-Listplot(nm,list,options):=(
-//help:Listplot([A,B]);
-// help:Listplot(["A","B"]);
-//help:Listplot("1",[[2,1],[3,3]]);
-//help:Listplot(options2=["Msg=yes"]);
- regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg);
- if(substring(nm,0,1)=="-", // 16.01.27 from
- name=substring(nm,1,length(nm));
- ,
- name="sg"+nm;
- ); // upto
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1; // 15.09.17
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1); // 16.06.28
- if(Toupper(tmp1)=="N", // 16.06.28
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Listplot "+name);
- );
- if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24
- ptlist=apply(tmp,Pcrd(#));
- tmp=name+"="+textformat(ptlist,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp1=apply(list,Lcrd(#));
- tmp1;
-);
-Listplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Listplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Listplot(name,list,options);
- );
-);
-Listplot(list):=Listplot(list,[]);
-
-Lineplot(nm,list,options):=(
-//help:Lineplot([A,B]);
-//help:Lineplot("1",[[2,1],[3,3]]);
- regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi,
- Vec,pA,pB,Ltype,Noflg);
- name="ln"+nm;
- Mag=100;
- Semi="";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- tmp1=tmp_6;
- if(length(tmp1)>0,Mag=tmp1_1);
- tmp1=tmp_7;
- if(length(tmp1)>0,Semi=tmp1_1);
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- Vec= Mag/dist(pA,pB)*(pB-pA);
- if(length(Semi)==0,
- Out=[pA-Vec,pA+Vec];
- ,
- if(Semi=="+",
- Out=[pA,pA+Vec];
- ,
- Out=[pA-Vec,pA];
- );
- );
- if(Noflg<3,
- println("generate Lineplot "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Lineplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Lineplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Lineplot(name,list,options);
- );
-);
-Lineplot(list):=Lineplot(list,[]);
-
-Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]);
-Plotdata(name1,func,variable,options):=(
-//help:Plotdata("1","sin(x)","x",["Num=100"]);
-//help:Plotdata("2","x^2","x=[-1,1]");
-//help:Plotdata("3","Fout(x)","x",["out"]);
- regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx,
- PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gr"+name1;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- Eps=10^(-3);
- tmp=replace(func,LFmark,"");
- tmp=tokenize(variable,"=");
- Vname=tmp_1;
- if(length(tmp)>1,
- tmp=tmp_2;
- tmp=parse(tmp);
- x1=tmp_1;
- x2=tmp_2;
- ,
- x1=XMIN;
- x2=XMAX;
- );
- // dx=(x2-x2)/Num;
- Ec=append(sort(Ec),10000);
- Fun=Assign(func,Vname, "xx");
- Exfun=Assign(Exfun,Vname, "xx");
- PdL=[];
- Ke=1;
- forall(0..Num,
- xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1)
- if(length(Exfun)>0,
- tmp=parse(Exfun);
- if(abs(tmp)<Eps,
- if(length(Pdt)>0,
- PdL=concat(PdL,["inf"]);
- );
- );
- ,
- Pa=[];
- if(xx-Ec_Ke<-Eps,
- Pa=[xx,parse(Fun)];
- );
- if(abs(xx-Ec_Ke)<=Eps,
- if(length(PdL)>0,
- if(PdL_(length(PdL))_1!="inf",
- Pa=["inf"];
- );
- );
- );
- if(xx-Ec_Ke>Eps,
- Pa=[xx,parse(Fun)];
- Ke=Ke+1;
- );
- if(length(Pa)>0,
- if(Pa_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(length(PdL)==0,
- PdL=[Pa];
- ,
- tmp=PdL_(length(PdL));
- if(tmp_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(dist(tmp,Pa)<Dc,
- PdL=concat(PdL,[Pa]);
- ,
- PdL=concat(PdL,[["inf"],Pa]);
- );
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(PdL),PdL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[PdL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(PdL),
- tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]);
- );
- PdL=tmp1;
- if(length(PdL)==1,
- PdL=PdL_1;
- );
- if(Noflg<3,
- println("generate Plotdata "+name);
- if(MeasureDepth(PdL)==1,
- tmp1=apply(PdL,Pcrd(#));
- ,
- tmp1=[];
- forall(PdL,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(func,LFmark,"");
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Plotdata "+name);
- tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Plotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]);
-Paramplot(name1,funstr,variable,options):=(
-//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]");
- regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num,
- Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gp"+name1;
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- tmp=indexof(variable,"=");
- vname=substring(variable,0,tmp-1);
- str=substring(variable,tmp,length(variable));
- Rng=parse(str);
- t1=Rng_1; t2=Rng_2;
- dt=(t2-t1)/Num;// differs from Scilab ( / Num-1)
- func=Assign(funstr,vname,"tt");
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=parse(func);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=parse(func);
- ke=ke+1;
- );
- if(length(pa)>0,
- if(pa_1=="inf",
- Out=append(Out,pa);
- ,
- if(length(Out)==0,
- Out=[pa];
- ,
- tmp=Out_(length(Out));
- if(tmp_1=="inf",
- Out=append(Out,pa);
- ,
- if(|tmp-pa|<Dc,
- Out=append(Out,pa);
- ,
- Out=concat(Out,[["inf"],pa]);
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(Out),Out_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[Out_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
- );
- Out=tmp1;
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Paramplot "+name);
- if(MeasureDepth(Out)==1,
- tmp1=apply(Out,Pcrd(#));
- ,
- tmp1=[];
- forall(Out,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(funstr,LFmark,""); // 15.11.13
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Paramplot "+name);
- tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Paramplotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Circledata(cenrad):=Circledata(cenrad,[]);
-Circledata(para1,para2):=(
-//help:Circledata([A,B],["Rng=[0,pi/2]"]);
-//help:Circledata([A,B,C]);
- regional(name,cenrad,options,str,n);
- if(isstring(para1),
- name=para1;
- cenrad=para2;
- options=[];
- ,
- cenrad=para1;
- options=para2;
- name="";// 16.10.07from
- forall(cenrad,
- name=name+#.name;
- );// 16.10.07upto
- );
- Circledata(name,cenrad,options);
-);
-Circledata(nm,cenrad,options):=(
- regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy,
- tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps);
- name="cr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Rg=[0,2*pi];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="R",
- Rg=parse(tmp1);
- );
- );
- if(length(cenrad)==2,
- Ctr=Lcrd(cenrad_1);
- Ptcir=Lcrd(cenrad_2);
- ra=dist(Ctr,Ptcir);
- ,
- Eps=10^(-1);
- pA=Lcrd(cenrad_1);
- pB=Lcrd(cenrad_2);
- pC=Lcrd(cenrad_3);
- tmp=pB-pA;
- tmp1=(tmp_2,-tmp_1);
- tmp=pC-pB;
- tmp2=(tmp_2,-tmp_1);
- d1=det([tmp1,tmp2]);
- d2=det([pC-pA,tmp2]);
- if(abs(d1)<Eps & abs(d2)>10*Eps,
- println("points are in a line");
- ra=0;
- ,
- Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1;
- ra=|pA-Ctr|;
- tmp=name+"center="+Ctr;
- parse(tmp);
- Defvar(name+"center",Ctr);
- );
- );
- if(ra>0,
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- ,
- Out=Lineplot("1",[pA,pB],["nodata"]);
- );
- if(Noflg<3,
- println("generate Circledata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- if(length(cenrad)==2,
- tmp=name+"=Circledata("+cenrad+opstr+")";
- ,
- if(ra>0,
- tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")";
- ,
- tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")";
- );
- );
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata():=(
- regional(pA,pB);
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB]);
-);
-Framedata(list):=Framedata(list,[]);
-Framedata(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Framedata(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";// 16.10.07from
- forall(list,
- name=name+#.name;
- );// 16.10.07upto
- Framedata(name,list,options);
- );
-);
-
-Framedata(nm,list,options):=(
-//help:Framedata();
-//help:Framedata([A,B]);
-//help:Framedata("1",[A,B]);
-//help:Framedata("1",[C,dx,dy]);
- regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy,
- opcindy,Ltype,Noflg,cent,dx,dy);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(length(list)==2, // 15.05.12
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2);
- ,
- pA=Lcrd(list_1);
- dx=list_2; dy=list_3;
- );
- x1=pA_1-dx; x2=pA_1+dx;
- y1=pA_2-dy; y2=pA_2+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]);
-Framedata(nm,cent,dx,dy,options):=(
- regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- x1=cent.x-dx; x2=cent.x+dx;
- y1=cent.y-dy; y2=cent.y+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata2(nm,list):=Framedata2(nm,list,[]);
-Framedata2(nm,list,options):=(
-//help:Framedata2("1",[A,B]);
- regional(tmp,tmp1,pC,pB);
- pC=(Lcrd(list_1)+Lcrd(list_2))/2;
- pB=Lcrd(list_2);
- Framedata(nm,[pC,pB],options);
-);
-
-Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]);
-Ovaldata(nm,Pdata,options):=(
-//help:Ovaldata("1",[A,B]);
-//help:Ovaldata(optios=[size]);
- regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph,
- opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="ov"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- Rc=0.2;
- tmp1=tmp_6;
- if(length(tmp1)>0,Rc=tmp1_1*Rc);
-// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15
- Ctr=Lcrd(Pdata_1);
- if(ispoint(Pdata_2) % islist(Pdata_2),
- tmp1=Lcrd(Pdata_2);
- Dx=abs(tmp1_1-Ctr_1);
- Dy=abs(tmp1_2-Ctr_2);
- ,
- Dx=Pdata_2;
- Dy=Pdata_3;
- );
- Point=Ctr+[Dx-Rc,Dy-Rc];
- tmp1=Circledata("1",[Point,Point+[Rc,0]],
- ["Rng=[0,pi/2]","Num=10","nodata"]);
- tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]],
- ["nodata"]);
- tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]],
- ["nodata"]);
- Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]);
- tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]);
- Graph=Joincrvs("1",[Graph,tmp1],["nodata"]);
- tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]],
- ["nodata"]);
- Graph=Joincrvs("2",[Graph,tmp2],["nodata"]);
- if(Noflg<3,
- println("generate Ovaldata "+name);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,
- name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5);
- GLIST=append(GLIST,
- name+"=Ovaldata("+tmp+opstr+")");
- );
- Graph;
-);
-
-Segmark(nm,ptlist):=Segmark(nm,ptlist,[]);
-Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options);
-Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]);
-Drawsegmark(nm,ptlist,options):=(
-//help:Segmark("1",[A,B]);
-//help:Segmark(options=["Type=1","Width=1","Size=1"]);
- regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL,
- tmp,tmp1,tmp2);
- name="mrk"+nm;
- pA=ptlist_1;
- pB=ptlist_2;
- size=0.15;
- wid=0.05;
- tp=1;
- tmp1=Divoptions(options);
- eqL=tmp1_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- tmp1=parse(tmp1);
- tmp=substring(#,0,1);
- if(tmp=="S" % tmp=="s",
- size=size*tmp1;
- );
- if(tmp=="W" % tmp=="w",
- wid=wid*tmp1;
- );
- if(tmp=="T" % tmp=="t",
- tp=tmp1;
- );
- );
- mid=(pA+pB)/2;
- dir=(pB-pA)/|pB-pA|;
- nor=[-dir_2,dir_1];
-// nor=nor/|nor|;
- if(tp==1,
- tmp1=mid+size*nor;
- tmp2=mid-size*nor;
- Listplot(name,[tmp1,tmp2]);
- );
- if(tp==2,
- tmp1=mid+wid*dir+size*nor;
- tmp2=mid+wid*dir-size*nor;
- Listplot(name+"r",[tmp1,tmp2]);
- tmp1=mid-wid*dir+size*nor;
- tmp2=mid-wid*dir-size*nor;
- Listplot(name+"l",[tmp1,tmp2]);
- );
- if(tp==3,
- tmp1=mid;
- tmp2=mid+size*dir;
- Circledata(name,[tmp1,tmp2]);
- );
- if(tp==4,
- tmp=mid+size*2/sqrt(3)*nor;
- tmp1=mid+size*dir-size/sqrt(3)*nor;
- tmp2=mid-size*dir-size/sqrt(3)*nor;
- Listplot(name,[tmp,tmp1,tmp2,tmp]);
- );
-);
-
-Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]);
-Parabolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5,5]";
- options=Arg;
- );
- Parabolaplot(nm,ptlist,rng,options);
-);
-Parabolaplot(nm,ptlist,rng,options):=(
-//help:Parabolaplot("1",[A,B,C]):
-//help:Parabolaplot("1",[A,B,C],"[-5,5]");
- regional(pA,pB,pC,angle,tmp,tmp1,tmp2);
- tmp1=Lcrd(ptlist_1);
- tmp2=Lcrd(ptlist_3);
- pB=Lcrd(ptlist_2);
- tmp=(tmp2-pB)/|tmp2-pB|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pA=Rotatepoint(tmp1,-angle,pB);
- pC=Rotatepoint(tmp2,-angle,pB);
- tmp1=1/(2*(pA_2-pB_2));
- tmp2=1/2*(pA_2+pB_2);
- tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2";
- tmp=tmp+"+("+format(tmp2,5)+")";
- tmp1=parse(rng);
- tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2];
- tmp2="x="+textformat(tmp1,5);
- Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp"));
- Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB));
-);
-
-Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]);
-Ellipseplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[0,2*pi]";
- options=Arg;
- );
- Ellipseplot(nm,ptlist,rng,options);
-);
-Ellipseplot(nm,ptlist,rng,options):=(
-//help:Ellipseplot("1",[A,B,3]);
-//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]);
- regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=|tmp2-pA|+|tmp2-tmp1|;
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(d^2/4-f^2);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]";
- tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]";
- Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp"));
- Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA));
-);
-
-Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]);
-Hyperbolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5/2,5/2]";
- options=Arg;
- );
- Hyperbolaplot(nm,ptlist,rng,options);
-);
-Hyperbolaplot(nm,ptlist,rng,optionsorg):=(
-//help:Hyperbolaplot("1",[A,B,C],["Num=200"]):
-//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]);
- regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2);
- tmp=Divoptions(optionsorg);
- eqL=tmp_5;
- options=optionsorg;
- opasy=[];
- forall(eqL,
- if(Toupper(substring(#,0,1))=="A",
- tmp=indexof(#,"=");
- opasy=[substring(#,tmp,length(#))];
- options=remove(options,[#]);
- );
- );
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=abs(|tmp2-pA|-|tmp2-tmp1|);
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(f^2-d^2/4);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp"));
- tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp"));
- tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"];
- Rotatedata(nm+"hyp",tmp,angle,append(options,pA));
- if(length(opasy)>0,
- Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]);
- Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]);
- tmp=["ln"+nm+"asy1","ln"+nm+"asy2"];
- Rotatedata(nm+"asy",tmp,angle,append(opasy,pA));
- );
-);
-
-Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]);
-Polygonplot(nm,ptlist,number,options):=(
-//help:Polygonplot("1",[A,B],12);
- regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- pB=Lcrd(ptlist_2);
- rr=|pB-pA|;
- tmp=(pB-pA)/rr;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- ptL=[];
- forall(0..number,
- tmp=angle+#*2*pi/number;
- tmp1=pA+rr*[cos(tmp),sin(tmp)];
- if(#>0 & #<number,
- Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07
- //Pointdata(nm,ptL);
- );
- tmp2=tmp1;
- ptL=append(ptL,tmp1);
- );
- Listplot(nm+"ply",ptL,options);
-);
-
-Putintersect(nm,pdata1,pdata2):=(
-//help:Putintersect("Q","gr1","gr2");
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)==1,
- Putpoint(nm,tmp_1);
- ,
- if(length(tmp)==0,
- err("No intersect point");
- ,
- err("Multiple intersect points");
- println(tmp);
- err("Choose point number");
- );
- );
-);
-Putintersect(nm,pdata1,pdata2,ptno):=(
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)>0,
- Putpoint(nm,tmp_ptno);
- ,
- err("No intersect point");
- );
-);
-
-Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]);
-Arrowheaddata(point,direction,options):=(
-//help:Arrowheaddata(A,B);
- regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB,
- pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy);
- Eps=10^(-3);
- pP=point;
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Str=YaStyle;
- tmp=Divoptions(options);
- tmp1=tmp_6;
- if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1);
- if(length(tmp1)>1,
- tmp=tmp1_2;
- if(tmp<5,
- Hiraki=Hiraki*tmp;
- ,
- Hiraki=tmp;
- );
- );
- Flg=0;
- Hiraki=Hiraki*pi/180;
- if(isstring(direction),Houkou=parse(direction),Houkou=direction);
- if(MeasureDepth(Houkou)==2,Houkou=Houkou_1);
- if(islist(Houkou_1),
-// pP=Lcrd(pP);
-// pP=Doscaling(pP);
-// Houkou=Dosscaling(Houkou);
- pP=Pcrd(pP);
- scy=SCALEY;
- SCALEY=1;
- tmp=Nearestpt(pP,Houkou);
- pA=tmp_1;
- rF=floor(tmp_2);
- if(rF==1,
- if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps,
- rF=Numptcrv(Houkou);
- );
- );
- gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]);
- Flg=0;
- forall(1..rF,Nj,
- if(Flg==0,
- pB=Ptcrv(rF+1-Nj,Houkou);
- tmp=IntersectcrvsPp([pA,pB],gG);
- if(length(tmp)>0,
- Houkou=pP-tmp_1_1;
- Flg=1;
- );
- pA=pB;
- );
- );
- SCALEY=scy;
- if(Flg==0,
- println("Arrowhead may be too large (no intersect)");
- Flg=2;
- );
- if(Flg==1,
- Houkou=Unscaling(Houkou);
- pP=Unscaling(pP);
- );
- );
- if(Flg<2,
-// pP=Doscaling(pP);
-// Houkou=Doscaling(Houkou);
- pP=Pcrd(pP);
- if(!ispoint(point),
- Houkou=Pcrd(Houkou);
- );
-// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou));
- Ev=-1/|Houkou|*Houkou;
- Ev=Lcrd(Ev);
- Nv=[-Ev_2, Ev_1];
- if(indexof(Str,"c")>0,
- pP=pP-0.5*Ookisa*cos(Hiraki)*Ev;
- );
- if(indexof(Str,"b")>0,
- pP=pP-Ookisa*cos(Hiraki)*Ev;
- );
- pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv;
- pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv;
- list=[pA,pP,pB];
- list=apply(list,LLcrd(#));
-// Out=Unscaling(Out);
- list;
- );
-);
-
-Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]);
-Arrowhead(point,Houkou,options):=(
-//help:Arrowhead(B,B-A,[1.5,30]);
-//help:Arrowhead(A,"gr1");
- // global ArrowheadNumber
- regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list);
- name="arh"+text(ArrowheadNumber);
- ArrowheadNumber=ArrowheadNumber+1;
- ptstr=textformat(point,5);
- if(isstring(Houkou), // 15.01.11
- tmp=parse(Houkou);
- if(MeasureDepth(tmp)<2,
- hostr=Houkou;
- ,
- hostr=Houkou+"(1)";
- );
- ,
- if(ispoint(point),
- hostr=textformat(LLcrd(Houkou),5);
- ,
- hostr=textformat(Houkou,5);
- );
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- list=Arrowheaddata(point,Houkou,options);
- if(Noflg<3,
-// println("generate Arrowhead "+name);
- tmp1=apply(list,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST,name+"=Listplot("+list+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(1)+Ltype,name);
- ,
-// if(Noflg==1,Ltype=0);
- Ltype=0;
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- if(Noflg==0,
- if(length(reL)<3, // 16.04.09 from
- forall(1..(2-length(reL)),
- opstr=opstr+",1";
- );
- tmp=PenThick/PenThickInit;
- opstr=opstr+","+text(tmp);
- ); // 16.04.09 upto
- Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")");
- );
-);
-
-Arrowdata(ptlist):=Arrowdata(ptlist,[]);
-Arrowdata(Arg1,Arg2):=(
- regional(tmp,nm,ptlist,flg,pA,pB,options);
- flg=0;
- if(isstring(Arg1),
- nm=Arg1;
- ptlist=Arg2;
- Arrowdata(nm,ptlist,[]);
- flg=1;
- );
- if(flg==0,
- tmp=MeasureDepth(Arg1);
- if(tmp==0,
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,[]);
- ,
- ptlist=Arg1;
- options=Arg2;
- nm=text(ArrowlineNumber);
- ArrowlineNumber=ArrowlineNumber+1;
- Arrowdata(nm,ptlist,options);
- );
- );
-);
-Arrowdata(Arg1,Arg2,options):=(
-//help:Arrowdata([A,B],[2,10]);
- regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size,
- flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos);
- Retflg=0;
- Noflg=0;
- Ltype=0;
- if(!isstring(Arg1),
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,options,"old");
- Retflg=1;
- ptlist=[pA,pB];
- );
- if(Retflg==0,
- nm=Arg1;
- ptlist=Arg2;
- name="ar"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- realL=tmp_6;
- strL=tmp_7;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- size=1; // 15.06.11
- if(length(realL)>0,
- size=realL_1;
- );
- tmp2=select(strL,indexof(#,"l")>0); // 16.04.09
- if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09
- segpos=1;
- tmp1=tmp_5;
- if(length(tmp1)>2,
- segpos=tmp1_3;
- );
- if(Noflg<3,
-// println("generate Arrowdata "+name);
- tmp1=apply(ptlist,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=Lcrd(ptlist_1);//16.10.10
- tmp2=Lcrd(ptlist_2);//16.10.10
- if(lineflg==0, // 16.04.09 from
- tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11
- ,
- tmp=tmp2;
- ); // 16.04.09 upto
- tmp=[tmp1,tmp];
- GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- tmp=textformat(ptlist,5);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp1=indexof(tmp,"],[");
- if(tmp1>0,
- pA=substring(tmp,0,tmp1);
- pB=substring(tmp,tmp1+1,length(tmp));
- ,
- tmp1=indexof(tmp,",");
- pA=substring(tmp,0,tmp1-1);
- pB=substring(tmp,tmp1,length(tmp));
- );
- tmp1="Lcrd("+pA+")+"
- +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))";
- tmp1=parse(tmp1);
- tmp2="Lcrd("+pB+")-Lcrd("+pA+")";
- tmp2=parse(tmp2);
- Arrowhead(tmp1,tmp2,options);
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- ptlist;
-);
-Arrowdata(pA,pB,options,str):=(
- regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy);
- Astr=textformat(pA,5);
- Bstr=textformat(pB,5);
- name="ar"+pA.name+pB.name;
- println("generate Arrow "+name);
- opstr="";
- opcindy="";
- forall(options,
- if(isstring(#),
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- ,
- tmp="'"+#+"'";
- );
- ,
- tmp=text(#);
- );
- opstr=opstr+","+tmp;
- );
- ptA=Lcrd(pA);
- ptB=Lcrd(pB);
- Arrowheaddata(ptB,ptB-ptA,options);
- tmp="connect("+textformat([ptA,ptB],5)
- +",linecolor->"+text(KCOLOR)+opcindy+");";
- parse(tmp); // 14.11.17
- Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04
-);
-
-Anglemark(plist):=Anglemark(plist,[]);
-Anglemark(Arg1,Arg2):=( // 2015.04.28 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Anglemark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Anglemark(nm,plist,options);
- );
-); // upto
-Anglemark(nm,plist,options):=(
-//help:Anglemark([A,B,C],["E=\theta",2]);
-//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]);
- regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg);
- name="ag"+nm;
- ra=0.5;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- Bname="";
- Brat=1.5;
- Num=20;
- if(length(realL)>0,
- ra=realL_1*ra;
- opstr=opstr+","+text(realL_1);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- sab=pB-pA;
- sac=pC-pA;
- Rg=[arctan2(sab)+0,arctan2(sac)+0];
- if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi);
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- if(length(Bname)>0,
- Th=(Rg_1+Rg_2)/2;
- tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
- tmp="Defvar("+Dq+Bpos+"=";
- tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(plist,5);
- tmp1=substring(tmp,1,length(tmp)-1);
- tmp=name+"=Anglemark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Paramark(plist):=Paramark(plist,[]);
-Paramark(plist,options):=(
-//help:Paramark([A,B,C],["E=\theta"]);
- regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- tmp=substring(tmp,1,length(tmp)-1);
- name="pm"+tmp;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- ra=0.5;
- Bname="";
- Brat=1.2;
- if(length(realL)>0,
- tmp=realL_1;
- ra=tmp*ra;
- opstr=opstr+","+text(tmp);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- Out=[];
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|);
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|);
- Out=append(Out,pA+ra*(pC-pA)/|pC-pA|);
- if(length(Bname)>0,
- tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|;
- tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate paramark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Paramark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-MakeBowdata(pA,pB,Hgt):=(
- regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA);
- angle=arctan2(pB-pA)+0;
- pB2=Rotatepoint(pB,-angle,pA);
- tmp=Lcrd(pA);
- pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt];
- dMA=|tmp-pB2|/2;
- ra=(dMA^2+Hgt^2)/(2*Hgt);
- pC2=[pH2_1,pB2_2+(ra-Hgt)];
- pC=Rotatepoint(pC2,angle,pA);
- Th1=arctan2(pA-pC2)+angle;
- Th2=arctan2(pB2-pC2)+angle;
- [pC,ra,Th1,Th2];
-);
-
-Bowdata(plist):=Bowdata(plist,[]);
-Bowdata(plist,options):=(
- regional(nm,tmp);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Bowdata(nm,plist,options);
-);
-Bowdata(nm,plist,options):=(
-//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]);
- regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL,
- Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC,
- Th1,Th2,Noflg,Bops);
- name="bw"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- pA=Lcrd(plist_1); pB=Lcrd(plist_2);
- Hgt=1/2*|pB-pA|*0.2;
- Cut=0;
- Num=24;
- Bname="";
- if(length(realL)>0,
- Hgt=realL_1*Hgt; // 15.04.12
- if(length(realL)>1,Cut=realL_2);
- );
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="L" % tmp=="l",
- if(indexof(#,"rot")>0,
- Bname="Letterrot(";
- ,
- Bname="Letter(";
- );
- );
- if(tmp=="E" % tmp=="e",
- if(indexof(#,"rot")>0,
- Bname="Exprrot(";
- ,
- Bname="Expr(";
- );
- );
- Bops=#;
- );
- Ydata=MakeBowdata(pA,pB,Hgt);
- pC=Ydata_1;
- ra=Ydata_2;
- Th=(Ydata_3+Ydata_4)*0.5;
- BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)];
- if(length(Bname)>0,
- Bpos="md"+name;
- tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");";
- parse(tmp);
- Bname=Bname+Dq+Bpos+Dq+",";
- if(indexof(Bname,"rot")>0,
- tmp1=pB-pA;
- if(tmp1_1<0, tmp1=-tmp1);
- tmp2=indexof(Bops,",");
- if(tmp2>0,
- tmp=substring(Bops,0,tmp2-1);
- if(indexof(tmp,"u")>0,
- tmp1=-tmp1;
- Bops=replace(tmp,"u","")+substring(Bops,tmp2-1,length(Bops));
- Bops=replace(Bops,"=,","=");
- );
- );
- Bname=Bname+text(tmp1)+",";
- );
- tmp=substring(Bops,indexof(Bops,"="),length(Bops));
- tmp1=indexof(tmp,",");
- if(tmp1==0,
- if(indexof(Bname,"rot")==0,
- Bname=Bname+Dq+"c"+Dq+","+Dq+tmp;
- ,
- Bname=Bname+Dq+tmp;
- );
- ,
- Bname=Bname+Dq+substring(tmp,0,tmp1-1)+Dq+","
- +Dq+substring(tmp,tmp1,length(tmp));
- );
- Bname=Bname+Dq+")";
- parse(Bname);
- );
- if(Cut==0,
- Th1=Ydata_3;
- Th2=Ydata_4;
- Out=[];
- forall(0..Num,
- tmp=Th1+#*(Th2-Th1)/Num;
- Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]);
- );
- ,
- Th1=Ydata_3;
- Th2=Th-Cut/(2*ra);
- tmp1=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Th1=Th+Cut/(2*ra);
- Th2=Ydata_4;
- tmp2=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Out=[tmp1,tmp2];
- );
- if(Noflg<3,
- println("generate bowdata "+name);
- if(MeasureDepth(Out)==1,Out=[Out]);
- tmp1=[];
- forall(Out,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Bowdata("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Bowname(str):=Bowname("c",str);
-Bowname(dir,str):=(
- Expr([BOWMIDDLE,dir,str]);
-);
-
-Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1);
-Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown);
-Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1);
-Bownamerot(bwdata,tmov,nmov,str,updown):=(
- regional(bdata,tmp);
- tmp=MeasureDepth(bwdata);
- if(tmp==1,bdata=[bwdata],bdata=bwdata);
- if(length(bdata)>1,
- tmp=Ptend(bdata_2)-Ptstart(bdata_1);
- ,
- tmp=Ptend(bdata_1)-Ptstart(bdata_1);
- );
- if(updown<0,tmp=-tmp);
- Exprrot(BOWMIDDLE,tmp,tmov,nmov,str);
-);
-
-Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]);
-Deqplot(nm,deq,rng,Arg1,Arg2):=(
- regional(initt,initf,options);
- if(isreal(Arg1) & length(Arg1)==1,
- initt=Arg1;
- initf=Arg2;
- options=[];
- ,
- initf=Lcrd(Arg1);
- initt=initf_1;
- options=Arg2;
- );
- Deqplot(nm,deq,rng,initt,initf,options);
-);
-Deqplot(nm,deq,rng,initt,initf,options):=(
- regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2,
- tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- tmp2=tmp_2;
- tmp3=tokenize(tmp1,"`");
- if(length(tmp3)==2,
- if(indexof(tmp1,"[")>0,
- Deqplot(nm,deq,rng,initt,initf,options,[2,3]);
- ,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- tmp=tokenize(rng2,"=");
- deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]";
- rng2="t="+tmp_2;
- if(isreal(initf) & length(initf)==1,
- initf2=[initt,initf];
- initt2=initt;
- ,
- initf2=Lcrd(initf));
- initt2=initf2_1;
- Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]);
- );
- ,
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_9;
- opstr="";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="N",
- tmp=indexof(#,"=");
- tmp1="N="+substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp1+"'";
- );
- );
- if(Noflg<1,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- var2="d"+tmp3_1;
- deq2="["+tmp3_1+","+var2+"]`=[";
- tmp=replace(tmp2,tmp3_1+"`",var2);
- deq2=deq2+var2+","+tmp+"]";
- Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]);
- parse(tmp);
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- parse("de"+nm);
- );
- );
-);
-Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
-//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]);
-//help:Deqplot("1","y``=-y","x",0, [1,0]);
-//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]);
- regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num,
- outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg,
- kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2);
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- eqL=tmp_5;
- strL=tmp_7;
-// opstr=tmp_(length(tmp)-1);
- opstr="";
- opcindy=tmp_(length(tmp));
- outstr="";
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="S",
- outstr="Sci";
- );
- );
- Num=50;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,0,1);
- tmp2=Toupper(tmp2);
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp2+"="+tmp1+"'";
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- );
- );
- if(outstr=="Sci",
- if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1);
- );
- if(Noflg<3,
- if(outstr=="Sci",
- if(Outflg==1,
- println("Output Deqplot "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Deqplot "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- ,
- Eps=10^(-3);
- Inf=10^3;
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- func=tmp_2;
- tmp=indexof(tmp1,",");
- xf=substring(tmp1,1,tmp-1);
- yf=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(yf,"]");
- yf=substring(yf,0,tmp-1);
- tmp=tokenize(rng,"=");
- Vname=tmp_1;
- tmp=parse(tmp_2);
- t1=tmp_1;
- t2=tmp_2;
- tmp="funP("+Vname+","+xf+","+yf+"):="+func+";";
- parse(tmp);
- tmp=tokenize(func,",");
- tmp1="-("+substring(tmp_1,1,length(tmp_1))+")";
- tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")";
- tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];";
- parse(tmp);
- dt=(t2-t1)/Num;
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- pdL=[[tt,x0,y0]];
- flg=0;
- forall(1..floor((t2-initt)/dt),
- if(flg==0,
- kl1=dt*funP(tt,x0,y0);
- kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funP(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt+#*dt;
- pdL=append(pdL,[tt,x0,y0]);
- if(|tmp1|>Inf,flg=1);
- );
- );
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- flg=0;
- forall(1..floor((initt-t1)/dt),
- if(flg==0,
- kl1=dt*funN(tt,x0,y0);
- kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt-#*dt;
- pdL=prepend([tt,x0,y0],pdL);
- if(|tmp1|>Inf,flg=1);
- );
- );
- println("Generate Deqplot "+name);
- pdL=apply(pdL,#_Sel);
- tmp1=apply(pdL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(Noflg<1,
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(outstr=="Sci",
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- ,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- pdL;
- );
- );
-);
-
-Enclosing(nm,plist):=EnclosingS(nm,plist);
-Enclosing(nm,plist,options):=EnclosingS(nm,plist,options);
-EnclosingS(nm,plist):=EnclosingS(nm,plist,[]);
-EnclosingS(nm,plist,options):=(
-//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]);
- regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt,
- t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy);
- name="en"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- EEps=0.1;
- Start=[];
- Flg=0;
- forall(realL,
- if(isList(#) % ispoint(#),
- Start=Lcrd(#); // 15.09.12
- ,
- Flg=Flg+1;
- if(Flg==1,Eps=#);
- if(Flg==2,EEps=#);
- );
- );
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- Fdata=plist_1;
- Gdata=plist_(length(plist));
- KL=IntersectcrvsPp(Fdata,Gdata);
- if(length(KL)==1,
- pt=KL_1_1;
- t1=KL_1_2;
- );
- if(length(KL)==0,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- pt=tmp_1;
- t1=tmp_2;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- pt=tmp_3;
- t1=tmp_4;
- );
- );
- if(length(KL)>1,
- if(Start==[],
- err("No Start Point");
- ,
- pt=KL_1_1;
- t1=KL_1_2;
- tmp=|pt-Start|;
- forall(2..length(KL),ii, // 15.04.20
- tmp1=KL_ii_1;
- tmp2=|tmp1-Start|; // 15.04.20
- if(tmp2<tmp,
- pt=tmp1;
- t1=KL_ii_2;
- tmp=tmp2;
- );
- );
- );
- );
-// pt=Pcrd(pt); // 15.09.12
- Start=pt;
- AnsL=[];
- forall(1..length(plist),nn,
- Fdata=plist_nn;
- if(nn>1, pt=qt);
- if(nn==length(plist),
- qt=Start;
- ,
- Flg=0;
- Gdata=plist_(nn+1);
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- KL=IntersectcrvsPp(Gdata,Fdata);
- if(length(KL)==1,
- tmp=KL_1;
- qt=KL_1_1;
- t3=KL_1_2;
- Flg=10;
- );
- if(length(KL)==0,Flg=1);
- if(length(KL)>1,
- tmp1=KL_1_1;
- tmp2=KL_2_1;
- tmp=|tmp1-tmp2|;
- if(tmp<Eps*10, Flg=1);
- );
- if(Flg==1,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- qt=tmp_1;
- t3=tmp_4;
- Flg=10;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- qt=tmp_3;
- t3=tmp_2;
- Flg=10;
- );
- );
- if(Flg<10,
- t2=10^6; //%inf;
- forall(1..length(KL),ii,
- tmp1=KL_ii_1;
- tmp=KL_ii_3;
- tmp2=ParamonCurve(tmp1,tmp,Fdata);
- tmp3=KL_ii_2;
- if(tmp2>t1+Eps & tmp2<t2+Eps,
- qt=tmp1;
- t2=tmp2;
- t3=tmp3;
- );
- );
- );
- );
- tmp=Partcrv("",pt,qt,Fdata,["nodata"]);
- t1=t3;
- if(nn==1,
- AnsL=tmp;
- ,
- AnsL=concat(AnsL,tmp_(2..length(tmp)));
- );
- );
- AnsL=apply(AnsL,Pcrd(#)); // 15.09.12
- if(Noflg<3,
- println("generate Enclosing "+name);
- tmp=name+"="+textformat(AnsL,5);
- parse(tmp);
- tmp=name+"=Enclosing(";
- tmp1="list(";
- forall(plist,
- tmp1=tmp1+#+",";
- );
- tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp=apply(AnsL,Lcrd(#));
- tmp;
-);
-
-Shade(plist):=Shade(plist,[]);
-Shade(plist,options):=(
-//help:Shade(["gr2","sg1"],[0.5]);
-//help:Shade([pointlist],[0.5]);
- regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg);
- if(isstring(plist_1), // 16.01.24
- println("output Shade of "+plist);
- ,
- println("output Shade of lists");
- );
- tmp=Divoptions(options);
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- flg=0;
- forall(plist,
- if(flg==0,
- if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24
- if(!islist(tmp),flg=1); upto
- );
- );
- if(flg==1,
-// err("some data not defined yet");
- ,
- G2=Joincrvs("1",plist,["nodata"]);
- G2=apply(G2,Pcrd(#));
- tmp1="fillpoly("+textformat(G2,5)+opcindy+");";
- parse(tmp1);
- );
- Str="Shade(";
- tmp1="list(";
- forall(plist,
- if(isstring(#), // from 16.01.24
- if(length(#)>1,
- tmp1=tmp1+#+",";
- ,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- ,
- tmp1=tmp1+"Listplot("+textformat(#,5)+"),";
- ); // upto 16.01.24
- );
- Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- Com2nd(Str);
-);
-
-
-//help:start();
-
-Rotatepoint(point,Theta,ctr):=(
-//help:Rotatepoint(A,2*pi/3,B);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(ctr);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- [X2,Y2];
-);
-
-Translatepoint(point,mov):=(
-//help:Translatepoint(A,[2,3]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- X2=X1+Cx;
- Y2=Y1+Cy;
- [X2,Y2];
-);
-
-Scalepoint(point,ratio,center):=(
-//help:Scalepoint(A,[3,2],[0,0]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(center);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+ratio_1*(X1-Cx);
- Y2=Cy+ratio_2*(Y1-Cy);
- [X2,Y2];
-);
-
-Reflectpoint(point,symL):=(
-//help:Reflectpoint(A,B);
-//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
- regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- [X2,Y2];
-);
-
-Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
-Rotatedata(nm,plist,angle,options):=(
-//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
- opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="rt"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- if(isstring(angle),Theta=parse(angle),Theta=angle);
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Rotatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]);
-translatedata(nm,plist,mov,options):=(
-//help:translatedata("1",["gr1"],[1,2]);
- regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
- opcindy,X2,Y2,Ltype,Noflg,name);
- name="tr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=tmp_1+Cx;
- Y2=tmp_2+Cy;
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate translatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Scaledata(nm,plist,ratioV):=(
- regional(tmp);
- tmp=Lcrd(ratioV);
- Scaledata(nm,plist,tmp_1,tmp_2,[]);
-);
-Scaledata(nm,plist,Arg1,Arg2):=(
-//help:Scaledata("1","crAB",3,2,[[0,0]]);
- regional(tmp,options);
- if(islist(Arg2),
- tmp=Lcrd(Arg1);
- options=Arg2;
- Scaledata(nm,plist,tmp_1,tmp_2,options);
- ,
- Scaledata(nm,plist,Arg1,Arg2,[]);
- );
-);
-Scaledata(nm,plist,rx,ry,options):=(
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
- name="sc"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- Pt=Lcrd(tmp1_1);
- );
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=Cx+rx*(tmp_1-Cx);
- Y2=Cy+ry*(tmp_2-Cy);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Scaledata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
-Reflectdata(nm,plist,symL,options):=(
-//help:Reflectdata("1","crAB",[C]);
- regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="re"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Reflectdata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Mksegments():=Mksegments([]);
-Mksegments(options):=(
-//help:Mksegments();
- regional(segstr,p,q,r,tmp1,tmp2,tmp3);
- forall(allsegments(),seg,
- str=text(inspect(seg,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Listplot([parse(p),parse(q)]);
- );
-);
-
-Mkcircles():=Mkcircles([]);
-Mkcircles(options):=(
-//help:Mkcircles():
- regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
- forall(allcircles(),cir,
- str=text(inspect(cir,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- tmp4=indexof(str,";",tmp2+1);
- if(tmp4==0,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Circledata([parse(p),parse(q)]);
- ,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp4-1);
- r=substring(str,tmp4,tmp3-1);
- Circledata([parse(p),parse(q),parse(r)]);
- );
- );
-);
-
-Makesciarg(arglist):=(
- regional(str,tmpstr);
- str="";
- forall(arglist,
- if(isstring(#),
- tmpstr=Dq+#+Dq;
- ,
- tmpstr=textformat(#,5);
- );
- str=str+tmpstr+",";
- );
- str=substring(str,0,length(str)-1);
- str;
-);
-
-Setax(arglist):=(
-//help:Setax(["l","x","e","y","n","O","sw"]);
-//help:Setax([7,"nw"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com1st("Setax("+tmp+")");
-);
-
-Htickmark(arglist):=(
-//help:Htickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp="";
- tmp=Makesciarg(arglist);
- Com2nd("Htickmark("+tmp+")");
-);
-
-Vtickmark(arglist):=(
-//help:Vtickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com2nd("Vtickmark("+tmp+")");
-);
-
-Drwxy():=(
-//help:Drwxy();
- Com2nd("Drwxy()");
- Addax(0); // 16.01.21
-);
-
-Drwpt(pstr):=Drawpoint(pstr);
-Drwpt(ptlist,nn):=( // 16.03.05 from
-//help:Drwpt(A);
-//help:Drwpt("[1,1],0");
-//help:Drwpt(A,0);
-//help:Drwpt([1,2],0);
- Drawpoint(ptlist,nn);
-);
-Drawpoint(pstr):=(
- if(isstring(pstr),
- println("Drwpt : "+pstr);
- Com2nd("Drwpt("+pstr+")");
- ,
- Drawpoint(pstr,1);
- );
-);
-Drawpoint(ptlistorg,nn):=(
- regional(ptlist,thick,tmp,tmp1);
- println("Drwpt : "+text(ptlistorg));
- if(islist(ptlistorg),
- if(MeasureDepth(ptlistorg)==1,
- ptlist=ptlistorg
- ,
- ptlist=[ptlistorg]
- );
- ,
- ptlist=[ptlistorg]
- );
- thick=PenThick/PenThickInit;// 16.04.09 from
- tmp1=max(TenSize/TenSizeInit,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- forall(ptlist,
- tmp=textformat(#,5)+","+text(nn);
- Com2nd("Drwpt("+tmp+")"); // 16.04.09
- );
- Setpen(thick); // 16.04.09
-);// 16.03.05 upto
-
-Addax(param):=(
-//help:Addax(0);
- ADDAXES=text(param);
-);
-
-Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
-Expr(list):=Expr(list,[]);
-Expr(listorg,options):=( //16.10.09
-//help:Expr([A,"e","f(x)=x^2"]);
- regional(list,str,tmp,tmp1,tmp2);
- list=listorg;
- forall(1..round(length(list)/3),
- str=list_(3*#);
- if(!isstring(str),str=format(str,5));
- str="$"+str+"$";
- list_(3*#)=str;
- );
- Letter(list,options);
-);
-
-Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
-Letter(list):=Letter(list,[]);
-Letter(list,options):=(
-//help:Letter([C,"c","Graph of f(x)"]);
- regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
- opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
- tmp=Divoptions(options);
- Noflg=tmp_2;
- opL=select(options,indexof(#,"->")>0); //16.10.09from
- tmp=select(opL,indexof(#,"color"));
- size=12;
- clr=[0,0,0];
- bld=false;
- ita=false;
- aln="left";
- forall(opL,
- tmp=indexof(#,"->");
- tmp1=removespace(substring(#,0,tmp-1));
- tmp2=substring(#,tmp+1,length(#));
- if(tmp1=="size",sz=parse(tmp2));
- if(tmp1=="color",clr=parse(tmp2));
- if(tmp1=="bold",bld=parse(tmp2));
- if(tmp1=="ita",ita=parse(tmp2));
- );//16.10.09upto
- Off=-4;
- Dmv=8;
- Nj=1;
- while(Nj+2<=length(list),
-// Pos=textformat(list_Nj,5);
- Pos=list_Nj;
- Dir=list_(Nj+1);
- if(Dir=="s" % Dir=="n", Dir=Dir+"c");//16.10.08
- Str=list_(Nj+2);
- if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
- tmp=replace(Str,".xy","");
- tmp=replace(tmp,".x","(1)");
- Str=replace(tmp,".y","(2)");
- if(indexof(Str,"`")>0,
-// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
- tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
- ,
- tmp=Dq+","+Dq+Str+Dq+")";
- );
- if(Noflg==0,
- Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
- );
- if(Noflg<2,
- Xmv=0;//16.10.13
- Ymv=-4;
- if(indexof(Dir,"n")>0,
- Ymv=Dmv/2;
- );
- if(indexof(Dir,"s")>0,
- Ymv=-Dmv*3/2;//16.10.13
- );
- if(indexof(Dir,"e")>0,
- Xmv=Dmv/2;
- Off=0;
- aln="left";
- );
- if(indexof(Dir,"w")>0,
- Xmv=-Dmv/2;
- Off=0; // 16.09.30from
- aln="right";
- );
- if(indexof(Dir,"c")>0,
- Xmv=0;//16.10.13
- Off=0;
- if(Ymv==0,Ymv=-4);//16.10.08
- aln="mid"; // 16.09.30upto
- );
- drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
- size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
- );
- Nj=Nj+3;
- );
-);
-
-Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
-Letterrot(pt,dir,movstr,str):=(
-//help:Letterrot(C,B-A,"AB"):
-//help:Letterrot(C,B-A,0,5,"AB"):
-//help:Letterrot(C,B-A,"t0n5","AB"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Letterrot(pt,dir,tmov,nmov,str);
-);
-Letterrot(pt,dir,tmov,nmov,str):=(
- Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
-Exprrot(pt,dir,movstr,str):=(
-//help:Exprrot(C,B-A,"d"):
-//help:Exprrot(C,B-A,0,5,"d"):
-//help:Exprrot(C,B-A,"t0n5","d"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Exprrot(pt,dir,tmov,nmov,str);
-);
-Exprrot(pt,dir,tmov,nmov,str):=(
- Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
-Putpoint(name,Ptinit,Pt):=(
-//help:Putpoint("A",[1,2],[1,A.y]);
- regional(ptstr);
- ptstr=apply(allpoints(),#.name);
- if(!contains(ptstr,name),
- createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
- ,
- ptstr=name+".xy="+textformat(Pcrd(Pt),5);
- parse(ptstr);
- );
-);
-
-Bezierpt(t,ptlist,ctrlist):=(
- regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
- p0=ptlist_1;
- p3=ptlist_2;
- p1=ctrlist_1;
- if(length(ctrlist)==1,
- p2=p3;
- flg3=0;
- ,
- p2=ctrlist_2;
- flg3=1;
- );
- if(length(p0)<3, // 15.02.08
- p0=Lcrd(p0);
- p3=Lcrd(p3);
- p1=Lcrd(p1);
- p2=Lcrd(p2);
- );
- p4=(1-t)*p0+t*p1;
- p5=(1-t)*p1+t*p2;
- p6=(1-t)*p2+t*p3;
- p7=(1-t)*p4+t*p5;
- p8=(1-t)*p5+t*p6;
- p9=(1-t)*p7+t*p8;
- if(flg3==0,p7,p9);
-);
-
-Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
-Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
-Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
-BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
-//help:Bezier("1",[A,D],[B,C]);
-//help:Bezier(options=["Num=10"]);
- regional(name,Ltype,Noflg,opstr,opcindy,Num,
- ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
- name="bz"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Num=10;
- tmp1=tmp_5;
- forall(tmp1, // 14.12.31
- if(substring(#,0,1)=="N",
- tmp2=indexof(#,"=");
- Num=parse(substring(#,tmp2,length(#)));
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
- ctrlist=[]; // 14.12.31
- if(length(ctrlistorg)==length(ptlist)-1,
- forall(ctrlistorg,tmp1,
- if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- ,
- forall(1..(length(ptlist)-1),ii,
- tmp=ctrlistorg_((2*ii-1)..(2*ii));
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- );
- if(!islist(Num),
- Num=apply(ctrlist,Num);
- );
- list=[];
- forall(1..(length(ptlist)-1),ii,
- tmp1=ptlist_(ii..(ii+1));
- tmp2=ctrlist_ii;
- if(ii==1,st=0,st=1);
- forall(st..Num_ii,
- tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
- list=append(list,tmp);
- );
- );
- if(Noflg<3,
- println("generate Bezier "+name);
- out=apply(list,Pcrd(#));
- tmp=name+"="+textformat(out,5);
- parse(tmp);
- tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- list;
-);
-
-Readcsvsla(fname):=Readplotdigdata(fname,[]);
-Readcsvsla(fname,options):=Readplotdigdata(fname,options);
-Readplotdigdata(fname):=Readplotdigdata(fname,[]);
-Readplotdigdata(fname,options):=(
- regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
- tmp=Divoptions(options);
- tmp1=tmp_6;
- sc=1;//10;
- mv=[0,0];//[5,5];
- forall(tmp1,
- if(!islist(#),sc=#,mv=#);
- );
- if(indexof(fname,".")>0,
- tmp=load(fname);
- ,
- tmp=load(fname+".txt");
- );
- cmdall=tokenize(tmp,"//");
- dataL=[];
- forall(2..length(cmdall),ii,
- tmp1=parse("["+cmdall_ii+"]");
- dataL=append(dataL,tmp1);
- );
- if(length(dataL_(length(dataL)))<2,
- dataL=dataL_(1..(length(dataL)-1));
- );
- nd=length(dataL_1)/2;
- npt=length(dataL);
- ptdata=[];
- forall(1..nd,ii,
- tmp3=[];
- forall(1..npt,
- tmp1=dataL_#_(2*ii-1);
- tmp2=dataL_#_(2*ii);
- if(isreal(tmp1),
- tmp3=append(tmp3,[tmp1,tmp2]);
- );
- );
- ptdata=append(ptdata,tmp3);
- );
- tmp1=[];
- forall(ptdata,
- tmp=#/sc;
- tmp=translatedata("1",[tmp],-mv,["nodata"]);
- tmp1=append(tmp1,tmp);
- );
- ptdata=tmp1;
- ptdata;
-);
-
-Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
-Putbezierdata(name,ptL,options):=(
- regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
- tmp=Divoptions(options);
- psize=3;
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- if(substring(#,0,1)=="S",
- tmp=indexof(#,"=");
- psize=parse(substring(#,tmp,length(#)));
- );
- );
- pts=[];
- ctrs=[];
- forall(1..length(ptL),
- p2=ptL_#; // 16.08.16
- if(ispoint(p2),
- tmp1=text(p2);
- ,
- tmp1=name+text(#);
- Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
- );
- inspect(parse(tmp1),"ptsize",psize);
- pts=append(pts,parse(tmp1));
- inspect(parse(tmp1),"color",4);
- if(#>1,
- p1=Lcrd(ptL_(#-1)); // 16.08.16
- p2=Lcrd(ptL_#); // 16.08.16
- if(Deg==3,
- tmp=(2*p1+p2)/3;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- tmp=(p1+2*p2)/3;
- tmp2=name+"q"+text(#-1);
- Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
- inspect(parse(tmp2),"labeled",false); //15.01.22
- Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
- inspect(parse(tmp2),"ptsize",psize);
- inspect(parse(tmp2),"color",3);
- ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
- ,
- tmp=(p1+p2)/2;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- ctrs=append(ctrs,[parse(tmp1)]);
- );
- );
- );
- [pts,ctrs,name];
-);
-
-Bezierstart(n):=( // 2016.02.26
- BezierNumber=n;
-);
-
-Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
-Mkbezierptcrv(ptdata,options):=(
- //help:Mkbezierptcrv([A,B,C,D]);
- //help:Mkbezierptcrv([[A,B],[C,D]]);
- //help:Mkbezierptcrv(options=["Num=10"]);
- // global BezierNumber
- regional(ptlist,Out,tmp,tmp1,tmp2);
- if(isstring(ptdata),
- ptlist=Readcsvsla(ptdata,options);
- ,
- ptlist=ptdata;
- );
- if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
- Out=[];
- forall(1..length(ptlist),
- tmp=floor((BezierNumber-1)/26);// 15.02.23
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber,26);
- if(tmp2==0,tmp2=26);
- tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
- tmp2=Putbezierdata(tmp1,ptlist_#,options);
- Bezier(tmp2,options);
- BezierNumber=BezierNumber+1;
- Out=append(Out,tmp2_(1..2));
- );
- Out;
-);
-
-Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
-Mkbeziercrv(nm,ptctrL,options):=(
- //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
- regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
- if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
- forall(1..length(ptctrLL),
- name=nm+text(#);
- ptlist=ptctrLL_#_1;
- ctrlist=ptctrLL_#_2;
- Bezier(name,ptlist,ctrlist,options);
- );
-);
-
-Writebezier():=Writebezier(Fhead,"all");
-Writebezier(head):=Writebezier(head,"all");
-Writebezier(head,seL):=(
-//help:Writebezier(file);
-//help:Writebezier(file,"acd");
- regional(bz,dt,name,tmp,tmp1,tmp2);
- bz=select(GLIST,indexof(#,"=Bezier")>0);
- tmp1=[]; // 16.04.22from
- if(seL!="all",
- forall(1..length(seL),
- tmp=substring(seL,#-1,#);
- tmp=select(bz,indexof(#,"bz"+tmp)>0);
- tmp1=concat(tmp1,tmp);
- );
- bz=tmp1;// 16.04.22upto
- );
- dt=[head+"n",[[length(bz),0]]];
- forall(1..length(bz),
- tmp=indexof(bz_#,"=");
- name=substring(bz_#,0,tmp-1);
- tmp=indexof(bz_#,","+Dq);
- if(tmp>0,
- tmp1=substring(bz_#,0,tmp-1)+")";
- ,
- tmp1=bz_#;
- );
- tmp1=replace(tmp1,"Bezier(","[");
- tmp1=replace(tmp1,"list(","[");
- tmp1=replace(tmp1,")","]");
- tmp1=replace(tmp1,",",".xy,");
- tmp1=replace(tmp1,"]",".xy]");
- tmp1=replace(tmp1,".xy,[",",[");
- tmp1=replace(tmp1,"].xy","]");
- tmp1=replace(tmp1,name,head+text(#));
- parse(tmp1);
- tmp=parse(head+text(#)+"_1");
- dt=concat(dt,[head+text(#)+"k",tmp]);
- tmp=parse(head+text(#)+"_2");
- dt=concat(dt,[head+text(#)+"c",tmp]);
- );
- WriteOutData(head+".txt",dt);
- dt;
-);
-
-Readbezier(file):=Readbezier(file,[]);
-Readbezier(file,optionorg):=(
-//help:Readbezier("xsr");
-//help:Readbezier(options=["Num=10","nogeo"]);
- regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
- options=optionorg;
- tmp=Divoptions(options);
- stL=tmp_7;
- geo=0;
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="G",geo=1);
- options=remove(options,[#]);
- );
- ReadOutData(file);
- tmp=file+"n_1_1";
- nn=parse(tmp);
- out=[];
- forall(1..nn,nc,
- tmp=file+text(nc);
- tmp1=parse(tmp+"k");
- tmp2=parse(tmp+"c");
- if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
- if(geo==1,
- alpha="abcdefghijklmnopqrstuvwxyz";
- forall(1..length(tmp1),
- tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
- Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"ptsize",3);
- tmp1_#=parse(tmp+".xy");
- );
- forall(1..length(tmp2),
- tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
- Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_1=parse(tmp+".xy");
- tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
- Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_2=parse(tmp+".xy");
- );
- BezierNumber=BezierNumber+1;
- );
- Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
- out=append(out,"bz"+tmp);
- );
- out;
-);
-
-Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
-Ospline(nm,ptlist,options):=(
-//help:Ospline("1",ptlist,[options]);
- regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
- p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- name="o"+nm;
- if(isstring(ptlist),list=parse(ptlist),list=ptlist);
- if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
-// list=apply(list,LLcrd(#));
- ctrL=[];
- forall(1..(length(list)-1),
- flg=0;
- p1=Lcrd(list_#); // 16.08.16
- p2=Lcrd(list_(#+1)); // 16.08.16
- if(#==1 % #==length(list)-1,
- flg=1;
- if(closed==0,
- pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
- pR=(2*p1+p2)/3; // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- flg=2;
- ,
- if(#==1,
- p0=Lcrd(list_(length(list)-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- ,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_2); // 16.08.16
- );
- );
- );
- if(flg<=1,
- if(flg==0,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- );
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
- pR=p2+cc*(p1-p3); // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- );
- );
-// list=apply(list,LLcrd(#)); // 16.08.16
-// ctrL=apply(ctrL,LLcrd(#));
- if(closed==0, // 15.09.21
- p1=ctrL_2_1;
- p2=Lcrd(list_2); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_1=[pQ];
- tmp=length(ctrL);
- tmp1=ctrL_(tmp-1);
- p1=ctrL_(tmp-1)_2;
- p2=Lcrd(list_(tmp)); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_tmp=[pQ];
- );
- Bezier("o"+nm,list,ctrL,options);
-);
-
-CRspline(nm,ptL):=CRspline(nm,ptL,[]);
-CRspline(nm,ptL,options):=(
- // Catmull-Rom spline
-//help:CRspline("1",[A,B,C,A]);
- regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
- name="crsp"+nm;
- if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
- ptlist=tmp_1;
- if(length(tmp)==1,
- cflg=1;
- ,
- cflg=0;
- ctrpts=tmp_2;
- );
- c=1/6;
- tmp=Divoptions(options);
- eqL=tmp_5;
- opcindy=tmp_(length(tmp)); // 15.03.05
- forall(eqL,
- if(substring(#,0,1)=="R",
- tmp2=indexof(#,"=");
- c=parse(substring(#,tmp2,length(#)));
- );
- );
- ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
- ctrlist=[];
- forall(1..(length(ptlist)-1),
- if(#==1,
- if(cflg==0,
- tmp1=ctrpts_1;
- ,
- v=ptlist_2-ptlist_(length(ptlist)-1);
- tmp1=ptlist_#+c*v;
- );
- ,
- v=ptlist_(#+1)-ptlist_(#-1);
- tmp1=ptlist_#+c*v;
- );
- if(#==length(ptlist)-1,
- if(cflg==0,
- tmp2=ctrpts_2;
- ,
- v=ptlist_2-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- ,
- v=ptlist_(#+2)-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- tmp=select(options,indexof(text(#),"->")>0);
- tmp=append(tmp,"notex"); //15.03.05
- Pointdata(name+text(#),[tmp1,tmp2],tmp);
- ctrlist=append(ctrlist,[tmp1,tmp2]);
- );
- Bezier(nm,ptlist,ctrlist,options);
-);
-
-Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
-//help:Beziersmooth("1",[A,B,C,A]);
-Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
-Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
-Bzspline(nm,ptLorg,options):=(
- // smooth bezier
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzsp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- lstr="c"+text(#);
- pt=ptLorg_#; // 16.08.16
- pt1=parse("C"+text(#-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp2="C"+text(#)+"p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp2],"PointOnLine",[parse(lstr),tmp]);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- tmp1="C1p";
- Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- if(cflg==1,
- lstr="c1";
- pt=ptLorg_1; // 16.08.16
- pt1=parse("C"+text(length(ptL)-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp1="C1p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp1],"PointOnLine",[parse(lstr),tmp]);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- if(#>1 % cflg==1,
- tmp1="c"+text(#);
- inspect(parse(tmp1),"alpha",0.3);
- );
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",3);
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
-Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
-Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
-Bzsspline(nm,ptLorg,options):=(
- // smooth bezier with symmetric control points
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzssp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- pt=ptL_#;
- pt1=parse("C"+text(#-1)+"q");
- tmp2="C"+text(#)+"p=2*pt-pt1";
- parse(tmp2);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
- inspect(C1p,"ptsize",3);
- inspect(C1p,"color",3);
- );
- if(cflg==1,
- pt=ptL_1;
- pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
- tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
- parse(tmp1);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Listbspline2bz(listorg):=(
- regional(Eps,list,pcl,ptl,ctrl,k);
- Eps=10^(-3);
- list=apply(listorg,Lcrd(#)); // 16.08.16
- k=length(list);
- if(|list_1-list_k|>Eps,
- pcl=list;
- pcl_1=2*list_1-list_2;
- pcl_k=2*list_k-list_(k-1);
- ,
- pcl=concat(list,[list_2]);
- );
- ctrl=apply(2..(length(pcl)-1),[pcl_#]);
- ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
- [ptl,ctrl];
-);
-
-Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
-Bspline(nm,ctrL,options):=(
-//help:Bspline("",[A,B,C]);
- regional(list,tmp);
- list=Listbspline2bz(ctrL);
- tmp=BezierCurve("b"+nm,list_1,list_2,options);
- tmp;
-);
-
-MeetCurve(Crv,Xorg,Yorg):=(
- regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
- if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
- if(MeasureDepth(Cv)==2,Cv=Cv_1);
- Cv=apply(Cv,LLcrd(#)); // 14.12.18
- while(length(Cv)==1,
- Cv=Cv_1;
- );
- Cv=apply(Cv,Lcrd(#));
- tmp1=min(apply(Cv,#_1));
- tmp2=max(apply(Cv,#_1));
- if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
- if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
- if(X0<tmp1,
- X0=tmp1;
- ,
- if(X0>tmp2,
- X0=tmp2;
- );
- );
- tmp1=select(
- 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
- tmp2=select(
- 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
- tmp2=remove(tmp2,common(tmp2,tmp1));
- Ban=concat(tmp1,tmp2);
- Tate=select(Ban,
- abs(Cv_#_1-Cv_(#+1)_1)<=
- 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
- );
- Ban=remove(Ban,Tate);
- Ylist=[];
- forall(Ban,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
- Ylist=append(Ylist,tmp);
- );
- forall(Tate,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp1=min([y1,y2]);
- tmp2=max([y1,y2]);
- if(Y0<tmp1,
- tmp=tmp1;
- ,
- if(Y0>tmp2,
- tmp=tmp2;
- ,
- tmp=Y0;
- );
- );
- Ylist=append(Ylist,tmp);
- );
- tmp=sort(Ylist,abs(#_1-Y0));
- [X0,tmp_1];
-);
-
-PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
-PutonLine(name,p1org,p2org,options):=(
-//help:PutonLine("C","sgAB");
-//help:PutonLine("C",pA,pB);
- regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- tmp1=(1-par)*p1+par*p2;
- if(abs(dx)>abs(dy),
- tmp=name+".x";
- tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
- Putpoint(name,tmp1,parse(tmp2));
- ,
- if(abs(dy)>0,
- tmp=name+".y";
- tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
- Putpoint(name,tmp1,parse(tmp2));
- ,
- tmp2=p1;//16.10.11
- Putpoint(name,tmp1,tmp2);
- );
- );
-);
-
-PutonSeg(name,sgstr):=(
- regional(seg,p1,p2);
- if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
- PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
-);
-PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
-PutonSeg(name,p1org,p2org,options):=(
-//help:PutonSeg("C","sgAB");
-//help:PutonSeg("C",pA,pB);
- regional(par,dx,dy,p,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- PutonLine(name,p1,p2,[par]);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- p=parse(name+".xy");
- p=LLcrd(p);
- if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");
- );
- );
- if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");//16.10.11upto
- );
- );
-);
-
-PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
-PutonCurve(pn,crv,options):=(
-//help:PutonCurve("A","gr1");
- regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
- if(!islist(options),optionL=[options],optionL=options);
- leftlim=XMIN;
- rightlim=XMAX;
- Flg=0;
- Msg="y";
- forall(optionL,
- if(isstring(#), // 16.02.10 from
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="N", Msg="n"); // 16.02.10 upto
- ,
- if(Flg==0,
- leftlim=#;
- Flg=Flg+1;
- ,
- rightlim=#;
- );
- );
- );
- Pmt=MeetCurve(crv,leftlim,0);
- pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
- if(!contains(pstr,pn),
- createpoint(pn,Pcrd(Pmt));
- ,
- tmp1=parse(pn+".x");
- if(tmp1< leftlim % tmp1>rightlim,
- if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
- Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
- ,
- Pmt=MeetCurve(crv,pn+".x",pn+".y");
- );
- ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
- parse(ptstr);
- );
- if(Msg=="y",
- println("Put "+pn+" on Curve "+text(crv));
- );
-);
-
-CrossPoint(name,Crv1,Crv2,range):=(
- regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
- Mx1=range_1; Mx2=range_2;
- repeat(15,
- Mx3=(Mx1+Mx2)/2;
- Crs1=MeetCurve(Crv1,Mx1,0);
- Crs2=MeetCurve(Crv2,Mx1,0);
- Crs3=MeetCurve(Crv1,Mx3,0);
- Crs4=MeetCurve(Crv2,Mx3,0);
- df1=Crs1_2-Crs2_2;
- df2=Crs3_2-Crs4_2;
- if((df1>0 & df2>0) % (df1<0 & df2<0),
- Mx1=Mx3;
- ,
- Mx2=Mx3;
- );
- );
- Putpoint(name,Crs1);
-);
-
-Setscaling(sc):=(
-//help:Setscaling(3);
- SCALEX=1;
- SCALEY=sc;
- Com0th("Setscaling("+sc+")");
- Setwindow("Msg=no");
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledatalight "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist));
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tabledata(nm,n,m,xsize,ysize,rmvL):=
- Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
-Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
- regional(Tb,name,tmp,xLst,yLst);
- name="tb"+nm;
- xLst=apply(1..n,xsize/n);
- yLst=apply(1..m,ysize/m);
- Tabledata(nm,xLst,yLst,rmvL,options)
-);
-Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
-Tabledata(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledata "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp="C"+text(#);
- tmp1="c"+text(#)+"r0";
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
- clist_(#+1)=parse(tmp+".xy");
- );
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp="R"+text(#);
- tmp1="c0r"+text(#);
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- rlist_(#+1)=parse(tmp+".xy");
- );
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(#<m,
- tmp1=parse("C"+text(#));
- tmp2=parse("C"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(#<n,
- tmp1=parse("R"+text(#));
- tmp2=parse("R"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist)); // 15.06.11
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tseginfo(seg):=(
- regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
- if(substring(seg,0,2)=="sg",
- cr=substring(seg,2,length(seg));
- ,
- cr=seg;
- );
- tp=substring(cr,0,1);
- if(tp=="c",
- tpc="r";
- ,
- tpc="c";
- );
- tmp1=indexof(cr,tpc);
- tmp=substring(cr,tmp1,length(cr));
- tmp2=tmp1+indexof(tmp,tpc);
- n1=substring(cr,1,tmp1-1);
- n2=substring(cr,tmp1,tmp2-1);
- n3=substring(cr,tmp2,length(cr));
- [tp+n1,tpc,parse(n2),parse(n3)];
-);
-
-Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
-Tsegrmv(rmvL,options):=(
- regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
- forall(rmvL,cr,
- tmp1=Tseginfo(cr);
- hd=tmp1_1;
- tpc=tmp1_2;
- m1=tmp1_3;
- m2=tmp1_4;
- gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
- flg=0;
- forall(gcL,
- if(flg==0,
- tmp=Tseginfo(#_1);
- n1=tmp_3;
- n2=tmp_4;
- if(m1>=n1 & m2<=n2,
- gc=#;
- flg=1;
- );
- );
- );
- if(flg==1,
- Changestyle([gc_1],["nodisp"]);
- tail="";
- if(indexof(hd,"r")>0,
- tail=hd; hd="";
- );
- if(n1<m1,
- tmp1=tpc+text(n1);
- tmp2=tpc+text(m1);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- if(m2<n2,
- tmp1=tpc+text(m2);
- tmp2=tpc+text(n2);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- );
- );
-);
-
-Tgrid(ptstr):=(
-//help:Tgrid("c2r5");
- regional(tmp,tmp1,tmp2);
- tmp=parse(ptstr);
- if(islist(tmp),
- tmp;
- ,
- tmp=indexof(ptstr,"r");
- tmp1=substring(ptstr,1,tmp-1);
- tmp1=parse(tmp1);
- tmp2=substring(ptstr,tmp,length(ptstr));
- tmp2=parse(tmp2);
- [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
- );
-);
-
-Tlistplot(ptL):=Tlistplot(ptL,[]);
-Tlistplot(Ag1,Ag2):=(
- regional(nm,ptL,options);
- if(isstring(Ag1),
- nm=Ag1;
- ptL=Ag2;
- options=[];
- ,
- ptL=Ag1;
- options=Ag2;
- nm=ptL_1+ptL_2;
- );
- Tlistplot(nm,ptL,options);
-);
-Tlistplot(nm,ptL,options):=(
-//help:Tlistplot(["c0r0","c0r4"]);
-//help:Tlistplot("1",["c0r0","c0r4"]);
- regional(tmp);
- tmp=apply(ptL,Tgrid(#)); // 15.06.03
- Listplot(nm,tmp,append(options,"Msg=no"));
-);
-
-ChangeTablestyle(nameL,style):=(
-////help:ChangeTablestyle(["r0c0c3"],["da"]);
- regional(nmL,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- nmL=apply(nmL,"sg"+#);
- nmL=select(nmL,islist(parse(#)));
- Changestyle(nmL,style);
-);
-
-Findcell(pos1,pos2):=Findcell("",pos1,pos2);
-Findcell(Tbdata,pos1,pos2):=(
-//help:Findcell("c0r0","c2r1");
- regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
- if(isstring(pos1),
- posnw=Tgrid(pos1); // 15.05.20
- posse=Tgrid(pos2);
- //posnw=parse(pos1);
- //posse=parse(pos2);
- ,
- if(islist(pos1),
- posnw=pos1;
- posse=pos2;
- ,
- tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
- tmp2="c"+text(pos1)+"r"+text(pos2);
- posnw=Tgrid(tmp1);
- posse=Tgrid(tmp2);
-// posnw=parse(tmp1);
-// posse=parse(tmp2);
- );
- );
- ctr=(posnw+posse)/2;
- dx=abs(posse_1-ctr_1);
- dy=abs(posnw_2-ctr_2);
- [ctr,dx,dy];
-);
-
-Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
-Putcell(Tbdata,pos1,pos2,dir,lttr):=(
-//help:Putcell("c0r0","c2r1","lt","abc");
-//help:Putcell(2,3,"c","xyz");
- regional(tmp,tmp1,tmp2,posnw,posse,
- posdir,posstr,ctr,dx,dy);
- tmp=Findcell(Tbdata,pos1,pos2);
- ctr=tmp_1; dx=tmp_2; dy=tmp_3;
- posdir=ctr;
- posstr=dir;
- if(indexof(dir,"b")>0,
- posdir_2=posdir_2-dy;
- posstr=replace(posstr,"b","n");
- );
- if(indexof(dir,"t")>0,
- posdir_2=posdir_2+dy;
- posstr=replace(posstr,"t","s");
- );
- if(indexof(dir,"l")>0,
- posdir_1=posdir_1-dx;
- posstr=replace(posstr,"l","e");
- );
- if(indexof(dir,"r")>0,
- posdir_1=posdir_1+dx;
- posstr=replace(posstr,"r","w");
- );
- Letter(posdir,posstr,text(lttr));
-);
-
-Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
-Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
-//help:Putcellexpr("c0r0","c2r1","lt","abc");
-//help:Putcellexpr(2,3,"c","\sin x");
- Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
-);
-
-Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
-Putrow(Tbdata,nrow,dir,lttrL):=(
-//help:Putrow(1,"c",["x","y","z"]);
- regional(tmp,tmp1,mcol);
- mcol=length(lttrL);
- forall(1..mcol,
- Putcell(Tbdata,#,nrow,dir,lttrL_#);
- );
-);
-
-Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
-Putrowexpr(Tbdata,nrow,dir,exL):=(
-//help:Putrowexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- Putrow(Tbdata,nrow,dir,lttrL);
-);
-
-PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
-PutcoL(Tbdata,mcol,dir,lttrL):=(
-//help:PutcoL(1,"c",["x","y","z"]);
- regional(tmp,tmp1,nrow);
- nrow=length(lttrL);
- forall(1..nrow,
- Putcell(Tbdata,mcol,#,dir,lttrL_#);
- );
-);
-PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
-PutcoLexpr(Tbdata,mcol,dir,exL):=(
-//help:PutcoLexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- PutcoL(Tbdata,mcol,dir,lttrL);
-);
-
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
-// XMIN=-5; XMAX=5;
-// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
- createpoint("SW",Pcrd([XMIN,YMIN]));
- createpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
-//help:Setwindow([2,3],[-1,1]);
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
-// Setwindow();
-);
-
-Sciform(list):=(
- regional(plotlist,comp,pos,out,out2,nn,strL,flg,
- tmp,tmp1,tmp2,tmp3,Nj);
- plotlist=Flatten([list]);
- out=replace(plotlist_1,".xy","");
- out=replace(out,".x","(1)");
- out=replace(out,".y","(2)");
- if(length(plotlist)==1,
- comp=[];
- forall(1..length(out),
- comp=append(comp,substring(out,#-1,#));
- );
- out="";
- pos=0;
- forall(comp,
- if(#!="'",
- out=out+#;
- ,
- if(pos==0,
- tmp=indexof(out,"Assign(");
- if(substring(out,length(out)-7,length(out))=="Assign(",
- out=out+"'";
- pos=1;
- ,
- out=out+"Assign('";
- pos=2;
- );
- ,
- if(pos==2,
- out=out+"')";
- ,
- out=out+"'";
- );
- pos=0;
- );
- );
- );
- ,
- forall(2..length(plotlist),
- comp=plotlist_#;
- if(isstring(comp),
- pos=indexof(comp,"Assign(");
- if(pos>0,
- comp=substring(comp,6,length(comp));
- );
- out=out+"Assign(";
- comp=replace(comp,".xy","");
- comp=replace(comp,".x","(1)");
- comp=replace(comp,".y","(2)");
- out=out+"'"+comp+"'";
- out=out+"),";
- );
- if(islist(comp),
- forall(comp,
- out=out+"'"+#+"',";
- );
- );
- );
- if(length(plotlist)>1,
- out=substring(out,0,length(out)-1);
- out=out+");";
- );
- );
- pos=[];
- forall(1..length(out),
- tmp=indexof(substring(out,#-1,length(out)),"Assign");
- if(tmp>0,
- tmp1=#-1+tmp;
- if(length(pos)==0,
- pos=[tmp1];
- ,
- if(pos_(length(pos))<tmp1,
- pos=append(pos,tmp1);
- );
- );
- );
- );
- if(length(pos)>0,
- strL=[];
- Nj=0;
- forall(pos,
- tmp=substring(out,Nj,#-1);
- strL=append(strL,tmp);
- Nj=#-1;
- );
- strL=append(strL,substring(out,Nj,length(out)));
- out="";
- forall(strL,
- if(indexof(#,"Assign")==0,
- out=out+#;
- ,
- tmp=indexof(#,"('");
- tmp1=indexof(#,"')");
- tmp2=substring(#,tmp+1,tmp1-2);
- tmp3=substring(#,tmp1-2,length(#));
- if(indexof(tmp2,"=")==0,
- out=out+#;
- ,
- tmp=substring(tmp2,0,indexof(tmp2,"="));
- out=out+"'"+tmp+"'+"+"Assign('";
- tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
- out=out+tmp+tmp3;
- );
- );
- );
- );
- out2=""; // patched 16.01.21 from
- nn=length(out);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=indexof(out,"='+Assign('");
- if(tmp==0,
- out2=out2+out;
- flg=1;
- ,
- out2=out2+substring(out,0,tmp);
- out=substring(out,tmp+10,length(out));
- tmp=indexof(out,"'"); // 16.04.19 from
- tmp1=substring(out,0,tmp-1);
- tmp2="1234567890";
- tmp=apply(1..length(tmp1),
- indexof(tmp2,substring(tmp1,#-1,#)));
- tmp=min(tmp);
- if(tmp==0, // 16.04.19 upto
- out2=out2+"'+Assign('";
- ,
- tmp=indexof(out,"'");
- out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto
- );
- );
- );
- );
- out2=replace(out2,"Dist=","D=");
- out2=replace(out2,"Dis=","D=");
- out2;
-);
-
-
-Rform(list):=(
- regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
- out=list;
- out=replace(out,"[[[","list([[");
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
- out=replace(out,".xy","");
- out=replace(out,".x","[1]");
- out=replace(out,".y","[2]");
- out;
-);
-
-Defvar(varstr):=(
- regional(name,value,tmp,tmp1);
- parse(varstr);
- tmp=indexof(varstr,"=");
- name=substring(varstr,0,tmp-1);
- value=substring(varstr,tmp,length(varstr));
- value=parse(value);
- tmp1=select(1..length(VLIST),VLIST_#_1==name+"=");
- if(length(tmp1)>0,
- tmp=tmp1_1;
- VLIST_tmp=[name+"=",value];
- ,
- VLIST=prepend([name+"=",value],VLIST);
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+format(#,5)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- tmp1=format(value,5);
- );
- tmp=name+"="+tmp1; // 15.02.06
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"="); // 15.02.08
- VLIST=prepend([name+"=",value],VLIST);
-);
-
-Iftosci(strorg):=( // 16.06.10
- regional(str,ifL,ppL,cpL,kk,sL,
- tmp,tmp1,tmp2,tmp3,tmp4);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ppL=Bracket(str,"()");
- cpL=Indexall(str,",");
- tmp1=Bracket(str,"[]");
- forall(1..(length(tmp1)/2),kk,
- cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1);
- );
- forall(1..length(ifL),kk,
- tmp=select(ppL,#_1>ifL_kk);
- tmp1=tmp_1;
- tmp2=select(tmp,#_2==-tmp1_2);
- tmp2=tmp2_1;
- tmp3=select(cpL,#>tmp1_1 & #<tmp2_1);
- ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3];
- );
- forall(1..length(cpL),kk,
- tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk));
- tmp1=tmp_(length(tmp));
- cpL_kk=[cpL_kk,tmp1];
- );
- sL=apply(1..length(str),substring(str,#-1,#));
- forall(1..length(ifL),kk,
- tmp1=ifL_kk_1;
- tmp2=ifL_kk_2;
- tmp=select(cpL,#_2==kk);
- tmp3=apply(tmp,#_1);
- sL_tmp1=" ";
- sL_tmp2=";end;";
- sL_(tmp3_1)=" then,";
- if(length(tmp3)>1,
- sL_(tmp3_2)=";else,";
- );
- );
- tmp=sum(sL);
-);
-
-Fortosci(strorg):=(
- regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4,
- Out,repL,Pflg,Iflg,Cflg);
- str=strorg;
- repL=[];
- tmp1=Indexall(str,"forall");
- tmp2=Indexall(str,",");
- forall(1..length(tmp1),jj,
- tmp=select(tmp2,#>tmp1_jj);
- var=substring(str,tmp_1,tmp_2-1);
- tmp3=substring(str,tmp1_jj-1,tmp_2-1);
- tmp=indexof(tmp3,"(");
- tmp4=substring(tmp3,tmp,length(tmp3));
- tmp=indexof(tmp4,",");
- tmp4=substring(tmp4,0,tmp-1);
- tmp4="for "+var+"="+tmp4;
- tmp4=replace(tmp4,"..",":");
- repL=concat(repL,[tmp3,tmp4]);
- );
- forall(1..length(repL)/2,
- str=replace(str,repL_(2*#-1),repL_(2*#));
- );
- tmp=Bracket(str);
- tmp=select(tmp,#_2==0);
- tmp=tmp_1_1;
- tmp1=substring(str,tmp-1,length(str));
- tmp1=replace(tmp1,")",";end");
- str=substring(str,0,tmp-1)+tmp1;
- str=replace(str,";;",";");
- str;
-);
-
-Deffun(name,bodylist):=(
-//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18
- regional(funstr,tmp,tmp1,str,Pos);
- funstr=name+":=(";
- forall(bodylist,
- funstr=funstr+#+";";
- );
- funstr=funstr+");";
- parse(funstr);
- tmp=bodylist_(length(bodylist));
- str="function "+tmp+"="+name+",";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");// 16.05.26
- tmp1=replace(tmp1," ","");// 16.05.26
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
- if(Pos==0,
- tmp=replace(tmp1,".xy","");
- tmp=replace(tmp,".x","(1)");
- tmp=replace(tmp,".y","(2)");
- if(indexof(tmp,"if(")>0,
- tmp=iftosci(tmp);
- );
- if(indexof(tmp,"forall(")>0, // 16.05.26from
- tmp=Fortosci(tmp);
- ); // 16.05.26upto
- str=str+tmp+",";
- );
- );
- str=str+"endfunction;";
- FUNLIST=append(FUNLIST,str);
-);
-
-Windispg():=(
- regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy);
- gsave();
- layer(KETPIClayer);
- forall(GCLIST,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
-// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
-// tmp2=apply(tmp2,Pcrd(#));
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- forall(2..length(Nk),
- tmp3=textformat(Nk_[#-1,#],5);
- tmp3=substring(tmp3,1,length(tmp3)-1);
- if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]");
- tmp="draw("+tmp3+
- ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- );
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
-// if(ADDAXES=="1", // 16.10.08from
-// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
-// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
-// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
-// Letter([[0,0],"sw","O"]);
-// ); // 16.10.08upto
- grestore();
- layer(0);
-);
-</script>
- <script type="text/javascript">
-var cdy = CindyJS({
- scripts: "cs*",
- use: ["katex"],
- defaultAppearance: {
- dimDependent: 0.7,
- fontFamily: "sans-serif",
- lineSize: 1,
- pointSize: 5.0,
- textsize: 12.0
- },
- angleUnit: "°",
- geometry: [
- {name: "SW", type: "Free", pos: [4.0, 3.2, -0.8], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "NE", type: "Free", pos: [4.0, 1.7506361323155215, 0.372929562139521], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "A", type: "Free", pos: [4.0, 3.0, -1.0], color: [1.0, 0.0, 0.0], size: 2.0},
- {name: "B", type: "Free", pos: [-2.1481481481481484, -4.0, -1.3570492400077014], color: [1.0, 0.0, 0.0], size: 2.0},
- {name: "C", type: "Free", pos: [4.0, -3.0, 1.0], color: [1.0, 0.0, 0.0], size: 2.0},
- {name: "D", type: "Free", pos: [4.0, 0.3393939393939394, 0.4441252058207023], color: [1.0, 0.0, 0.0], size: 1.0},
- {name: "Text1", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 0.0], fillalpha: 0.27272728085517883, script: "if(length(Shellparent)>0,\n Makeshell(),Makebat();\n);\nWritetoSci(2);", text: "Parent", textsize: 18.0, dock: {corner: "UL", offset: [10.0, -20.0]}},
- {name: "Text3", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.29, 0.29], fillalpha: 0.27272728085517883, script: "Viewtex();", text: "Texview", textsize: 18.0, dock: {corner: "UL", offset: [79.0, -20.0]}},
- {name: "Text0", type: "ToggleButton", color: [0.0, 0.0, 0.0], fillcolor: [0.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "Mkketcindyjs();", text: "KeTJS", textsize: 18.0, dock: {corner: "UL", offset: [243.0, -20.0]}},
- {name: "Text4'", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.498, 0.0], fillalpha: 0.27272728085517883, script: "kc();", text: "Exekc", textsize: 18.0, dock: {corner: "UL", offset: [164.0, -20.0]}}
- ],
- ports: [{
- id: "CSCanvas",
- width: 766,
- height: 453,
- transform: [{visibleRect: [-7.764668168545777, 5.826912667783914, 13.141257374885031, -6.536513273696708]}],
- axes: true,
- grid: 1.0,
- snap: true,
- background: "rgb(168,176,192)"
- }],
- csconsole: false,
- cinderella: {build: 1894, version: [2, 9, 1894]}
-});
- </script>
-</head>
-<body>
- <div id="CSCanvas"></div>
-</body>
-</html>
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2.cdy
index 4f3445d2..1bbe45a7 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2ketcindy.html b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2ketcindy.html
deleted file mode 100644
index 53b5c9a0..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js02diffeq2ketcindy.html
+++ /dev/null
@@ -1,6502 +0,0 @@
-<!DOCTYPE html>
-<html>
-<head>
- <meta charset="UTF-8">
-
- <title>js02diffeq2.cdy</title>
- <style type="text/css">
- * {
- margin: 0px;
- padding: 0px;
- }
-
- #CSConsole {
- background-color: #FAFAFA;
- border-top: 1px solid #333333;
- bottom: 0px;
- height: 200px;
- overflow-y: scroll;
- position: fixed;
- width: 100%;
- }
- </style>
- <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css">
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script>
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script>
-<script id="csdraw" type="text/x-cindyscript">
-Fhead="s210diffeq2";
-Texparent="";
-
-Ketinit();
-Changework(Dirhead+"/ketsample/samplesJS");
-
-//Deqplot("1","y`=y","x",0,1);
-Deqplot("2","y``=-L.x*y`-G.x*y","t=[0,XMAX]",0,[C.y,0],["Num=200"]);
-//Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",0,A,["Num=200"]);
-
-Expr([M,"e","\displaystyle\frac{d^2 x}{dt^2}+"+L.x+"\frac{dx}{dt}+"+G.x+"x=0"]);
-
-Windispg();
-
-//Help("De");
-
-;
-</script>
-<script id="csinit" type="text/x-cindyscript">
-Ketinit():=Ketinit(1);
-Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
-Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2);
- PenThickInit=8;
- ULEN="1cm";
- KETPICLAYER=20;
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- KETPICCOUNT=1;
- KCOLOR=[0,0,0];
- GLIST=[];
- GCLIST=[];
-// GDATALIST=[];
- GOUTLIST=[];
- POUTLIST=[];
- VLIST=[];
- FUNLIST=[];
- LETTERlist=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- ADDAXES="1";
- LFmark=unicode("000a");
- Dq=unicode("0022");
- WaitUnit=10;
- CONTINUED=0;
- OutComList=[];
- OutFileLIst=[]; // 15.10.22
- FigPdfList=[]; // 16.04.08
- ADDPACK=[]; // 16.05.16
- ErrFlag=0;
- setdirectory(Dirwork);
- if(isstring(Fhead), // 15.04.06
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
- );
- if(!isstring(Mackc),// 16.06.07
- Mackc="sh";
- );
- ArrowlineNumber=1; // 15.01.05
- ArrowheadNumber=1;
- BezierNumber=1; //15.01.03
- SCALEX=1;
- SCALEY=sy;
-// Setscaling(sy);
- XMIN=rangex_1/SCALEX;
- XMAX=rangex_2/SCALEX;
- YMIN=rangey_1/SCALEY;
- YMAX=rangey_2/SCALEY;
- Setwindow("Msg=n"); // 16.05.31
-);
-
-DqDq(str):=unicode("0022")+str+unicode("0022");
-
-Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstr,options):=(
-//help:Tab2list(datastr);
-//help:Tab2list(options=[0]);
- regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2);
- crm=unicode("000d");
- lfm=unicode("000a");
- htm=unicode("0009");
- rep=0;
- if(length(options)>0,rep=options_1);
- first=lfm; // 16.09.05from
- if(indexof(dtstr,crm)>0,
- first=crm;
- if(indexof(dtstr,crm+lfm)>0,
- first=first+lfm;
- ); // 16.09.05upto
- );
- tmp1=Indexall(dtstr,first);
- tmp1=prepend(0,tmp1);
- tmp1=append(tmp1,length(dtstr));
- dtall=[];
- forall(1..(length(tmp1)-1),
- tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1);
- if(length(tmp)>0,
- dtall=append(dtall,tmp);
- );
- );
- out=[];
- forall(dtall,dt,
- tmp1=tokenize(dt,unicode("0009"));
- tmp2=[];
- forall(tmp1,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(!isreal(tmp),
- if(length(#)>0,tmp=#,tmp=rep);
- );
- tmp2=append(tmp2,tmp);
- );
- out=append(out,tmp2);
- );
- out;
-);
-
-Columnlist(dt,list):=( // 16.09.04
-//help:Columnlist(dt,1..3);
- apply(dt,#_list);
-);
-
-Dispmat(dt):=( // 16.09.16
-//help:Dispmat(dt);
- regional(htm,crm,lfm,row,tmp,tmp1,tmp2);
- htm=unicode("0009");
- crm=unicode("000d");
- lfm=unicode("000a");
- tmp2="";
- forall(dt,row,
- tmp1="";
- forall(row,
- if(isstring(#),
- tmp1=tmp1+#+htm;
- ,
- tmp1=tmp1+text(#)+htm;
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp1=tmp1+lfm;
- tmp2=tmp2+tmp1;
- );
- print(tmp2);
- println();
-);
-
-norm(v1):=( // 16.09.01
-//help:norm([2,1,3]);
- regional(out,tmp,tmp1,tmp2);
- out=0;
- forall(1..length(v1),
- out=out+(v1_#)^2;
- );
- out=sqrt(out);
- out;
-);
-norm(v1,v2):=(
- norm(v2-v1);
-);
-
-// 16.03.28
-Removespace(str):=(
-//help:Removespace(" a b c ");
- regional(tmp,flg,out);
- tmp=length(str)+1;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- if((str_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(str,tmp-1,length(str));
- flg=0;
- tmp=0;
- forall(reverse(1..length(out)),
- if(flg==0,
- if((out_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(out,0,tmp);
-);
-
-Indexall(str,key):=(
- regional(rest,out,flg,tmp,tmp1,);
- out=[];
- rest=str;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- tmp=indexof(rest,key);
- if(tmp>0,
- tmp1=tmp+length(str)-length(rest);
- out=append(out,tmp1);
- rest=substring(rest,tmp,length(rest));
- ,
- flg=1;
- );
- );
- );
- out;
-);
-
-Changework(path):=(
-//help:Changework(directory);
- regional(tmp); // 16.04.23from
- Dirwork=path;
- setdirectory(Dirwork); // 16.04.23
- if(ismacosx(),
- if(!iskcexists(Dirwork), // 16.06.07from
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
-// if(!isstring(Dq),Dq=unicode("0022")); // 18.07.30
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- println(SCEOUTPUT,"chmod +x kc.sh");
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+"/kc.sh",Dirlib,Fnametex)); // 16.07.23
- ); // 16.06.07upto
- );
-);
-
-Changestyle(nameL,style):=(
-//help:Changestyle(["sgAB"],["da"]);
- regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp);
- tmp=Divoptions(style);
- Ltypeorg=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,name,
- Ltype=Ltypeorg;
- GCLIST=select(GCLIST,#_1!=name);
- COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Op(n,object):=( // 16.05.25
-//help:Op(4,[1,2,3,4]);
-//help:Op(3,"abcd");
- regional(out);
- if(islist(object),
- out=object_n;
- ,
- if(isstring(object),
- out=substring(object,n-1,n);
- );
- );
- out;
-);
-
-Toupper(str):=(
- regional(alphabet,out,tmp,tmp1);
- alphabet="abcdefghijklmnopqrstuvwxyz";
- out="";
- forall(1..length(str),
- tmp=substring(str,#-1,#);
- tmp1=indexof(alphabet,tmp);
- if(tmp1>0,
- out=out+unicode(text(tmp1+64),base->10);
- ,
- out=out+tmp;
- );
- );
- out;
-);
-
-Textformat(value,dig):=(
-//help:Textformat(2/3,4);
-//help:Textformat([gr1,gr2],5);
- regional(vv,tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+Textformat(#,dig)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- if(ispoint(value) % isstring(value),
-// vv=Lcrd(value);
-// tmp1=Textformat(vv,dig);
-// tmp1=text(value); // 15.04.07
- if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02
- ,
- tmp1=format(value,dig);
- );
- );
- tmp1;
-);
-
-Sprintf(value,dig):=(
-//help:Sprintf(5.1,4);
- regional(vv,tmp,tmp1);
- if(!islist(value),
- vv=Textformat(value,dig);
- if(indexof(vv,".")==0,vv=vv+".");
- vv=vv+"0000000000000000";
- tmp=indexof(vv,".")+dig;
- vv=substring(vv,0,tmp);
- ,
- vv=apply(value,Sprintf(#,dig));
- );
- vv;
-);
-
-Assign(funstr,vrL):=(
- regional(nn,out,tmp,tmp1);
- nn=length(vrL)/2;
- out=funstr;
- forall(1..nn,
- out=Assign(out,vrL_(2*#-1),vrL_(2*#));
- );
- out;
-);
-
-Assign(funstr,varname,rep):=(
-//help:Assign("x^2+a*x","a",1.3);
-//help:Assign("a*x^2+b*x",["a",1,"b",2]);
- regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg);
- if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06
- tmp=[46]; // 12.20
- tmp=concat(tmp,48..57);
- tmp=concat(tmp,65..90);
- tmp=concat(tmp,97..122);
- Notvar=apply(tmp,unicode(text(#),base->10));
- tmp2="";
- forall(1..100,
- ii=indexof(funstr,varname);
- if(ii>0,
- Flg=0;
- if(ii>1,
- tmp=substring(funstr,ii-2,ii-1);
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,ii);
- funstr=substring(funstr,ii,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- jj=ii-1+length(varname);
- if(jj<length(funstr),
- tmp=substring(funstr,jj,jj+1));
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,jj);
- funstr=substring(funstr,jj,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- tmp2=tmp2+substring(funstr,0,ii-1)+repstr;
- funstr=substring(funstr,jj,length(funstr));
- );
- );
- );
- funstr=tmp2+funstr;
- funstr;
-);
-
-MeasureDepth(list):=(
- regional(tmp,Depth,Flg);
- Flg=0;
- Depth=0;
- if(ispoint(list), // 15.01.22
- Depth=0;
- Flg=1;
- ,
- tmp=list_1;
- );
- repeat(4,
- if(Flg==0,
- if(islist(tmp),
- tmp=tmp_1;
- Depth=Depth+1;
- ,
- if(ispoint(tmp),Depth=Depth+1);
- Flg=1;
- );
- );
- );
- Depth;
-);
-
-Flattenlist(pltlist):=(
-//help:Flattenlist([[2,3],[[1,2],[5,6]]]);
- regional(Out,nn,Dt,ii,tmp,flg);
- Out=[];
- if(MeasureDepth(pltlist)==1,
- Out=[pltlist];
- ,
- forall(1..length(pltlist),nn,
- Dt=pltlist_nn;
- if(MeasureDepth(Dt)<2,
- Out=append(Out,Dt);
- ,
- forall(1..length(Dt),ii,
- tmp=Flattenlist(Dt_ii);
- Out=concat(Out,tmp);
- );
- );
- );
- );
- Out;
-);
-
-Divoptions(options):=(
-//help:Divoptions(options);
- regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1);
- Ltype="dr"; // 2015.01.13
- Noflg=0;
- Inflg=0;
- Outflg=0;
- eqL=[];
- realL=[];
- strL=[];
- opstr="";
- opcindy="";
- forall(options,
- flg=0;
- if(flg==0,
- if(isreal(#) % ispoint(#) % islist(#),
- realL=append(realL,#);
- opstr=opstr+","+text(#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"=")>0,
- eqL=append(eqL,#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"no")+indexof(#,"No")>0,
- if(indexof(#,"tex")>0,Noflg=1);
- if(indexof(#,"disp")>0,Noflg=2);
- if(indexof(#,"data")>0,Noflg=3);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"out")+indexof(#,"Out")>0,
- if(indexof(#,"-")==0,
- Outflg=1;
- ,
- Outflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"in")+indexof(#,"In")>0,
- if(indexof(#,"-")==0,
- Inflg=1;
- ,
- Inflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- tmp=substring(#,0,2);
- tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr");
- tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da");
- tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id");
- tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do");
- tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp");
- if(tmp1>0,
- Ltype=#;
- flg=1;
- );
- if(flg==0,
- strL=append(strL,#);
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- );
- if(indexof(opcindy,"color->")==0,// 16.10.07from
- opcindy=opcindy+",color->[0,0,0]";
- );
- [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy];
-);
-
-Dotprod(vec1,vec2):=(
-//help:Dotprod(vec1,vec2);
- regional(v1,v2,tmp);
- if(ispoint(vec1),v1=vec1.xy,v1=vec1);
- if(ispoint(vec2),v2=vec2.xy,v2=vec2);
- v1*v2;
-);
-
-Crossprod(a,b):=(
-//help:Crossprod(vec1,vec2);
- regional(tmp1,tmp2,tmp3,Out);
- 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];
- ,
- Out=a_1*b_2-a_2*b_1;
- );
- Out;
-);
-
-Ptstart(Fig):=(
-//help:Ptstart("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21
- tmp_1;
-);
-
-Ptend(Fig):=(
-//help:Ptend("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_(length(tmp)); // 15.04.12
-);
-
-Numptcrv(Fig):=(
-//help:Numptcrv("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23
- length(tmp);
-);
-
-Ptcrv(Num,Fig):=(
-//help:Ptcrv(10,"gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_Num;
-);
-
-Invert(Fig):=(
-//help:Invert("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27
- reverse(tmp);
-);
-Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27
-Invert(nm,Fig,options):=(
-//help:Invert("1","gr1");
- regional(name,tmp);
- name="-inv"+nm;
- tmp=Invert(Fig);
- Listplot(name,tmp,options);
-);// upto 16.01.27
-
-Paramoncrv(pP,Gdata):=(
- regional(Tmp,PtL);
-// Eps=10^(-8);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- Tmp=Nearestpt(pP,PtL);
- Tmp_2;
-);
-
-ParamonCurve(pP,nN,plist):=(
-//help:ParamonCurve(A,10,"gr1");
- regional(PtL,Out,Pa,Pb,vV,vW,sS);
- if(isstring(plist),PtL=parse(plist),PtL=plist);
- if(nN==length(PtL),
- Out=nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- vV=Pb-Pa;
- vW=pP-Pa;
- sS=vV*vW/|vV|^2;
- sS=min([max([sS,0]),1]);
- Out=nN+sS;
- );
- Out;
-);
-
-Pointoncrv(tT,PtL):=PointonCurve(tT,PtL);
-PointonCurve(tT,Gdata):=(
-//help:PointonCurve(20.5,"gr1");
- regional(Out,Eps,nN,sS,Pa,Pb,PtL);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- if(length(PtL)==1,PtL=PtL_1);
- Eps=10^(-4);
- nN=floor(tT+Eps);
- sS=max([tT-nN,0]);
- if(nN==length(PtL),
- Out=PtL_nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- Out=(1-sS)*Pa+sS*Pb;
- );
- Out;
-);
-
-Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]);
-Koutenseg(pA,pB,pC,pD,options):=(
- regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2,
- em1,eM1,em2,eM2,rT,Tmp1,Tmp2);
- Eps0=10^(-4);
- pV=pB-pA;
- Sv2=|pV|;
- pP=pC-pA; pQ=pD-pA;
- Eps=10^(-3);
- Eps2=0.2;
- Tmp1=0;
- forall(options,
- if(Tmp1==0,
- Eps=#;
- Tmp1=1;
- ,
- Eps2=#;
- );
- );
- Flg=0;
- if(Sv2<10^(-3),
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- Eps=min([Eps2,Eps/Sv2]);
- p1=pP*pV/Sv2^2;
- p2=[pP_2,-pP_1]*pV/Sv2^2;
- q1=pQ*pV/Sv2^2;
- q2=[pQ_2,-pQ_1]*pV/Sv2^2;
- em1=-Eps; eM1=1+Eps;
- em2=-Eps; eM2=Eps;
- if(max([p1,q1])<em1 % min([p1,q1])>eM1,
- Out=["inf","inf"];
- Flg=1;
- );
- if(max([p2,q2])<em2 % min([p2,q2])>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- );
- if(Flg==0 & p2*q2<0,
- rT=p1-(q1-p1)/(q2-p2)*p2;
- if(rT>em1 & rT<eM1,
- if(rT>-Eps0 & rT<1+Eps0,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,0];
- ,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,1];
- );
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- );
- if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0),
- rT= p1;
- Tmp1=pA+rT*pV;
- Out= [Tmp1, rT, 0];
- Flg=1;
- );
- if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0),
- rT= q1;
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,0];
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([q1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2),
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- if(Flg==0,
- if(abs(p2)<abs(q2),
- rT=min([max([p1,0]),1]);
- ,
- rT=min([max([q1,0]),1]);
- );
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- );
- Out;
-);
-
-IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
-IntersectcrvsPp(Gr1,Gr2,options):=(
-//help:IntersectcrvsPp("gr1","pa1");
- regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2,
- Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj,
- pP,pQ,rT,Flg,eqL,realL,opstr,Dif);
- Eps=10^(-4);
- Eps2=0.1;
- Dif=0.05; // 2015.05.31
- Flg=0;
- Tmp1=Divoptions(options); //
- eqL=Tmp1_5;
- realL=Tmp1_6;
- opstr=Tmp1_(length(Tmp1));
- forall(eqL,
- if(substring(#,0,1)=="D",
- Tmp1=indexof(#,"=");
- Dif=parse(substring(#,Tmp1,length(#)));
- );
- );
- Tmp1=length(realL);
- if(Tmp1>0,
- Eps=realL_1;
- if(Tmp1>1,
- Eps2=realL_2;
- );
- );
- Flg=0;
- if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1);
- if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2);
- if(MeasureDepth(Data1)==2,Data1=Data1_1);
- if(MeasureDepth(Data2)==2,Data2=Data2_1);
- Data1=apply(Data1,LLcrd(#));
- Data2=apply(Data2,LLcrd(#));
- if(length(Data1)==length(Data2),
- Tmp1=Reverse(Data2);
- Eps0=10^(-6);
- Tmp2=0;
- forall(1..length(Data1),
- Tmp2=Tmp2+abs(Data1_#-Data2_#);
- );
- Tmp3=0;
- forall(1..length(Data1),
- Tmp3=Tmp3+abs(Data1_#-Tmp1_#);
- );
- if(Tmp2<Eps0 % Tmp3<Eps0,
- Out=[];
- Flg=1;
- );
- );
- if(Flg==0,
- KL1=[];
- KL2=[];
- forall(1..(length(Data1)-1),Ni,
- pA=Data1_Ni;
- pB=Data1_(Ni+1);
- forall(1..(length(Data2)-1),
- pP=Data2_#; pQ=Data2_(#+1);
- Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]);
- if(Tmp!=["inf","inf"],
- if(Tmp_3==0,
- Tmp1=[Tmp_1,Tmp_2,Ni,#];
- KL1=concat(KL1,[Tmp1]);
- ,
- Tmp2=[Tmp_1,Tmp_2,Ni,#];
- KL2=concat(KL2,[Tmp2]);
- );
- );
- );
- );
- Out=[];
- if(length(KL1)>0,
- Tmp=KL1_1;
- pP=Tmp_1;
- rT=Tmp_2;
- Ni=Tmp_3;
- Nj=Tmp_4;
- Tmp=[pP,Ni+rT,Nj];
- Out=[Tmp];
- );
- forall(2..length(KL1),Ni,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- rT=Tmp_2;
- Tmp1=Tmp_3;
- Tmp2=Tmp_4;
- Tmp=[pP,Tmp1+rT,Tmp2];
- Out=concat(Out,[Tmp]);
- );
- );
- forall(1..length(KL2),Ni,
- Tmp=KL2_Ni; // 15.11.21 Usui
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL2_Ni;
- rT=Tmp_2;
- rT=min([max([rT,0]),1]); // 15.11.21 Usui
- Tmp=[pP,Tmp_3+rT,Tmp_4];
- Out=concat(Out,[Tmp]);
- );
- );
- );
- Tmp1=Out; // 15.04.06 from
- Out=[];
- forall(Tmp1,Tmp2,
- Tmp3=select(Out,|#_1-Tmp2_1|<Dif);
- if(length(Tmp3)==0,
- Out=append(Out,Tmp2);
- );
- ); // 15.04.06 upto
- Out;
-);
-
-Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]);
-//help:Intersectcrvs("gr1","pa1");
-Intersectcrvs(Gr1,Gr2,options):=(
- regional(tmp,tmp1,tmp2);
- tmp1=IntersectcrvsPp(Gr1,Gr2,options);
- apply(tmp1,#_1);
-);
-
-NearestptcrvPhy(point,PL):=(
- regional(tmp,pP,plist);
- pP=Pcrd(point);
- if(isstring(PL),plist=parse(PL),plist=PL);
- if(MeasureDepth(plist)==2,plist=plist_1);
- plist=apply(plist,#); // 14.12.18
- tmp=Nearestpt(pP,plist);
- tmp=tmp_1;
- [tmp_1/SCALEX,tmp_2/SCALEY];
-);
-
-Nearestptcrv(point,plist):=(
-//help:Nearestptcrv(A,"gr1");
- regional(tmp);
- tmp=Nearestpt(point,plist);
- tmp_1;
-);
-
-Nearestpt(point,PL2):=(
- regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni,
- a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg);
-//help:Nearestpt("gr1","gr2");
- if(isstring(point),PL1=parse(point),PL1=point);
- if(MeasureDepth(PL1)==2,PL1=PL1_1);
- if(!islist(PL1_1),
- PL1=[PL1];
- Flg=0;
- ,
- Flg=1;
- );
- if(isstring(PL2),PL=parse(PL2),PL=PL2);
- if(MeasureDepth(PL)==2,PL=PL_1);
- Eps=10^(-6);
- Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|];
- forall(1..length(PL1),Nn, // 16.05.04
- pA=PL1_Nn;
- Pm=PL_1;
- Im=1;
- Sm=|Pm-pA|;
- forall(1..(length(PL)-1),Ni,
- a1=PL_Ni_1; a2=PL_Ni_2;
- b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2;
- v1=b1-a1; v2=b2-a2;
- x1=pA_1; x2=pA_2;
- Tmp=v2^2+v1^2;
- if(abs(Tmp)>Eps,
- rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp;
- if(rT<-Eps,
- pP=[a1,a2];
- ,
- if(rT>1+Eps,
- pP=[b1,b2];
- ,
- pP=[a1+rT*v1,a2+rT*v2];
- );
- );
- sS=|pP-pA|;
- if(sS<Sm-Eps,
- Tmp=ParamonCurve(pP,Ni,PL);
- Pm=pP; Lm=Tmp; Sm=sS;
- );
- );
- if(Sm<Ans_5, // 16.05.03from
- Ans=[pA,Nn,Pm,Lm,Sm];
- );
- ); // 16.05.03upto
- );
- if(Flg==0,
- Ans=Ans_(3..5);
- );
- Ans;
-);
-
-Derivative(fun,var,value):=(
-//help:Derivative("x^3","x",2);
- regional(str,tmp);
- str="d(";
- str=str+replace(fun,var,"#")+",";
- str=str+value+")";
- tmp=Pcrd([1,parse(str)]); // 14.11.08
- tmp_2;
-);
-
-Integrate(pltdata,range):=Integrate(pltdata,range,[]);
-Intergrate(Arg1,Arg2,Arg3):=(
- regional(pltdata,range,options,fnstr,vartr);
- if(islist(Arg2),
- pltdata=Arg1;
- range=Arg2;
- options=Arg3;
- Integrate(pltdata,range,options);
- ,
- fnstr=Arg1;
- vastr=Arg2;
- range=Arg3;
- Integrate(fnstr,vastr,range,[]);
- );
-);
-
-Integrate(pltdata,range,options):=(
-//help:Integrate("gr1",[1,3]);
-//help:Integrate("gr1",[1,3],["Rule=t"]);
- regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2);
- tmp=Divoptions(options);
- eqL=tmp_5;
- Rule="o";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Rule=substring(#,tmp,tmp+1);
- );
- );
- if(Rule=="o",
- Sm= IntegrateO(pltdata,range);
- ,
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- list=apply(list,LLcrd(#)); // 15.09.14
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- ptP=list_#; // 15.09.14
- ptQ=list_(#+1);
- Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2;
- );
- Sm;
- );
-);
-
-Integrate(fnstr,vastr,range,options):=(
-//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]);
- regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2);
- Num=100;
- Way="t";
- forall(options,
- if(indexof(#,"=")>0,
- if(indexof(#,"N=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(indexof(#,"Num=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Way=substring(#,tmp,tmp+1);
- );
- );
- );
- Sm=0;
- if(Way=="t",
- forall(1..Num,
- Lx=range_1+(range_2-range_1)*(#-1)/Num;
- Rx=range_1+(range_2-range_1)*#/Num;
- va1=parse(replace(fnstr,vastr,textformat(Lx,5)));
- va2=parse(replace(fnstr,vastr,textformat(Rx,5)));
- Sm=Sm+(va1+va2)*(Rx-Lx)/2;
- );
- ,
- sx=range_1;
- ex=range_2;
- dx=(ex-sx)/Num;
- xn=apply(0..Num,sx+#*dx);
- yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5))));
- dx=dx/2;
- repeat(Num,s,
- x0=xn_s;
- x1=(xn_s+xn_(s+1))/2;
- x2=xn_(s+1);
- y0=yn_s;
- y1=parse(replace(fnstr,vastr,textformat(x1,5)));
- y2=yn_(s+1);
- Sm=Sm+dx*(y0+4*y1+y2)/3;
- );
- );
- Sm;
-);
-
-IntegrateO(p0org,p1org,p2org,p3org):=(
- regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02,
- p11,p12,p21,p22,p31,p32, tmp);
- if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10
- if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16
- if(ispoint(p2org),p2=p2org.xy,p2=p2org);
- if(ispoint(p3org),p3=p3org.xy,p3=p3org);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp=tmp/20;
-);
-IntegrateO(pltdata,rangeorg):=(
-//help:IntegrateO("gr1",[0,2]);
- regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg,
- Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- range=rangeorg;
- pmflg=1;
- if(range_2<range_1,
- range=reverse(range);
- pmflg=-1;
- );
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- if((length(list)>0) & (list_1_1>list_(length(list))_2),
- list=reverse(list);
-// pmflg=pmflg*(-1);
- );
- list=apply(list,LLcrd(#));
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- p1=list_#;
- p2=list_(#+1);
- if(#==1 % #==length(list)-1,
- tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2;
- Sm=Sm+tmp1;
- ,
- p0=list_(#-1);
- p3=list_(#+2);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp1=tmp1/20;
- Sm=Sm+tmp1;
- );
- );
- if(pmflg==-1,
- Sm=-Sm;
- );
- Sm;
-);
-
-Findarea(pdstr):=(
-//help:Findarea("sgABCA");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=(p1_2+p2_2)*(p2_1-p1_1)/2;
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findarea(pdstr):=( // 15.11.27
-//help:Findarea("cr1");
- regional(pd,p0,p1,p2,p3,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=pd_#;
- p2=pd_(#+1);
- if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1));
- if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2));
- tmp=IntegrateO(p0,p1,p2,p3);
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findlength(pdstr):=(
-//help:Findlength("gr1");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=|p2-p1|;
- s=s+tmp;
- );
- s;
-);
-
-Inversefun(fnstr,rngstr,value):=(
- regional(tmp,varstr,range,x1,x2,x3,va1,va2);
- tmp=indexof(rngstr,"=");
- varstr=substring(rngstr,0,tmp-1);
- range=parse(substring(rngstr,tmp,length(rngstr)));
- x1=range_1; x2=range_2;
- repeat(15,
- x3=(x1+x2)/2;
- va1=parse(replace(fnstr,varstr,textformat(x1,5)));
- va2=parse(replace(fnstr,varstr,textformat(x3,5)));
- if((va1>value & va2>value) % (va1<value & va2<value),
- x1=x3;
- ,
- x2=x3;
- );
- );
- va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value;
- va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value;
- if(x1==range_1 % x2==range_2,
- println("not found in ("+textformat(range_1,5)
- +","+textformat(range_2,5)+")");
- );
- if(abs(va1)<=abs(va2),x1,x2);
-);
-
-Lcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=[pt.x/SCALEX,pt.y/SCALEY];
- ,
- tmp=pt;
- );
- tmp;
-);
-
-Pcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=re(pt.xy); // 15.07.24
- ,
- tmp=[pt_1*SCALEX,pt_2*SCALEY];
- );
- tmp;
-);
-
-LLcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=pt.xy
- ,
- tmp=pt;
- );
- tmp=[tmp_1/SCALEX,tmp_2/SCALEY];
- tmp;
-);
-
-Doscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Unscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Definecolor(name,data):=(
-//help:Definecolor("mycolor",[1,1,1,0]);
- regional(type,tmp);
- if(length(data)>3,type="cmyk",type="rgb");
- tmp=text(data);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}";
- Texcom(tmp);
-);
-
-Setcolor(Par):=(
-//help:Setcolor([1,0,0,1]);
-//help:Setcolor([1,1,0]);
- if(islist(Par),
- if(length(Par)==3,
- Setcolorrgb(Par); // 2015.04.28
-// KCOLOR=Par;
- );
- if(length(Par)==4,
- Setcolor(Par,[]);
- );
- ,
- Setcolor(Par,[]);
- );
-);
-
-Setcolor(colorname,options):=(
-//help:Setcolor("greenyellow",0.3);
- regional(tmp);
- if(isstring(colorname),
- tmp="Setcolor("+Dq+colorname+Dq;
- if(length(options)>0,
- tmp=tmp+","+text(options_1);
- );
- Com2nd(tmp+")");
- );
- if(islist(colorname),
- tmp=text(colorname);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
- );
-);
-
-Setcolorrgb(colorlist):=(
-// help:Setcolorrgb([0.5,0.3,0.4]);
- regional(tmp);
- tmp=text(colorlist);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
-);
-
-ColorRgb2Cmyk(clr):=(
-// help:ColorRgb([0.2,0.5,0.1]);
- regional(clrnew,tmp,black);
- tmp=apply(clr,1-#);
- black=min(tmp);
- tmp=apply(clr,(1-#-black)/(1-black));
- clrnew=append(tmp,black);
- clrnew;
-);
-
-ColorCmyk2Rgb(clr):=(
-// help:ColorRgb([0.2,0.5,0.1,0.2]);
- regional(clrnew,tmp,black);
- black=clr_4;
- tmp=apply(clr,1-min(1,#*(1-black)+black));
- clrnew=tmp_(1..3);
- clrnew;
-);
-
-Colorrgbhsv(rgb):=(
- regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB);
- varR = rgb_1;
- varG = rgb_2;
- varB = rgb_3;
- varMin = min( [varR, varG, varB] );
- varMax = max( [varR, varG, varB] );
- delMax = varMax - varMin ;
- vv = varMax;
- if ( delMax == 0 ,
- hh = 0 ;
- ss = 0 ;
- ,
- ss = delMax / varMax;
- delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax;
- if( varR == varMax ,
- hh = delB - delG;
- ,
- if ( varG == varMax,
- hh = ( 1 / 3 ) + delR - delB;
- ,
- if ( varB == varMax ,
- hh = ( 2 / 3 ) + delG - delR;
- );
- );
- );
- if ( hh < 0 ,hh = hh+1);
- if ( hh > 1 ,hh = hh-1);
- );
- [hh*360,ss,vv];
-);
-
-Colorhsvrgb(sL):=(
- regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL);
- tmp=[sL_1/60,sL_2,sL_3];
- hi=mod(floor(tmp_1),6);
- ff=tmp_1-floor(tmp_1);
- tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)];
- tmp2=append(tmp2,tmp_3);
- if(hi==0,dL=tmp2_[4,3,1]);
- if(hi==1,dL=tmp2_[2,4,1]);
- if(hi==2,dL=tmp2_[1,4,3]);
- if(hi==3,dL=tmp2_[1,2,4]);
- if(hi==4,dL=tmp2_[3,1,4]);
- if(hi==5,dL=tmp2_[4,1,2]);
- dL;
-);
-
-Colorrgbhsl(rgb):=(
- regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll);
- rr = rgb_1 ;
- gg = rgb_2 ;
- bb = rgb_3 ;
- mn = min([rr, gg, bb]);
- mx = max([rr, gg, bb]);
- delta = mx - mn;
- ll = (mx + mn) / 2;
- if (delta == 0,
- hh=0;
- ss=0;
- ,
- if (ll < 0.5,
- ss = delta/ (mx + mn);
- ,
- ss = delta / (2 - mx - mn);
- );
- deltaR = (((mx - rr) / 6) + (delta / 2)) / delta;
- deltaG = (((mx - gg) / 6) + (delta / 2)) / delta;
- deltaB = (((mx - bb) / 6) + (delta / 2)) / delta;
- if (rr == mx,
- hh = deltaB - deltaG;
- ,
- if (gg == mx,
- hh = (1 / 3) + deltaR - deltaB;
- ,
- if (bb == mx,
- hh = (2 / 3) + deltaG - deltaR;
- );
- );
- );
- if ( hh < 0, hh = hh+1);
- if ( hh > 1, hh = hh-1);
- );
- [hh*360,ss,ll];
-);
-
-Colorhslrgb(hsl):=(
- regional(hh,ss,ll,rr,gg,bb,var1,var2);
- hh=hsl_1/360;
- ss=hsl_2;
- ll=hsl_3;
- if ( ss == 0.0,
- rr = ll ;
- gg = ll ;
- bb = ll ;
- ,
- if ( ll < 0.5 ,
- var2 = ll * ( 1.0 + ss );
- ,
- var2 = ( ll + ss ) - ( ss * ll );
- );
- var1 = 2.0 * ll - var2;
- rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) );
- gg = hue2rgb( var1, var2, hh );
- bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) );
- );
- [rr,gg,bb];
-);
-
-hue2rgb(vv1,vv2,vh):=(
- regional(out);
- if ( vh < 0.0 ,vh =vh+1);
- if ( vh > 1.0 ,vh =vh-1);
- if ( 6.0*vh < 1.0 ,
- out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ;
- ,
- if( 2.0*vh < 1.0 ,
- out = vv2;
- ,
- if ( 3.0*vh < 2.0 ,
- out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ;
- ,
- out= vv1 ;
- );
- );
- );
- out;
-);
-
-Colorrgbhwb(sL):=(
- regional(dl1,dl2,dl3);
- dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1;
- dl2 = min(sL);
- dl3 = 1 - max(sL);
- dL= [dl1, dl2 , dl3 ];
-);
-
-Colorhwbrgb(sLorg):=(
- regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg);
- sL=sLorg;
- sL=[sL_1/360,sL_2,sL_3];
- ratio = sL_2 + sL_3;
- // sL_2 + sL_3 cant be > 1
- if (ratio > 1.,
- sL_2 =sL_2 / ratio;
- sL_3 = sL_3 / ratio;
- );
- ii = floor(6 * sL_1);
- vv = 1 - sL_3;
- ff = 6 * sL_1 - ii;
- if(mod(ii,2)==1,ff = 1 - ff);
- nn = sL_2 + ff * (vv - sL_2); // linear interpolation
- tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn],
- [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]];
- flg=0;
- forall(0..6,
- if(flg==0 & ii == # ,
- dL=tmp_(#+1);
- flg=1;
- );
- );
- dL;
-);
-
-Colorhslhsv(sL):=(
- regional(dl1,dl2,dl3,dL);
- dl1=sL_1;
- if(sL_3 == 0,
- // no need to do calc on black
- // also avoids divide by 0 error
- dL= [0, 0, 0];
- ,
- sL_3 = sL_3 * 2;
- if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3));
- dl3 = (sL_3 + sL_2) / 2;
- dl2 = (2 * sL_2) / (sL_3 + sL_2);
- dL = [dl1, dl2, dl3];
- );
- dL;
-);
-
-Colorcode(src,dest,sL):=(
-//help:Colorcode("rgb","cmyk",[1,0.5,0]);
- regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg);
- regional(dl1,dl2,dl3);
- if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL));
- if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL));
- if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL));
- if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL));
- if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL));
- if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL));
- if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL));
- if(src=="hsv" & dest=="hsl",
- dl1 = sL_1;
- dl3 = (2 - sL_2) * sL_3;
- dl2 = sL_2 * sL_3;
- if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3));
- dl3 =d l3/ 2;
- dL = [dl1, dl2 , dl3 ];
- );
-
- if(src=="rgb" & dest=="cmyk",
- tmp=apply(sL,1-#);
- black=min(tmp);
- tmp=apply(sL,(1-#-black)/(1-black));
- dL=append(tmp,black);
- );
- if(src=="cmyk" & dest=="rgb",
- black=sL_4;
- tmp=apply(sL,1-min(1,#*(1-black)+black));
- dL=tmp_(1..3);
- );
- if(src=="hsv" & dest=="cmyk",
- tmp=Colorcode("hsv","rgb",sL);
- dL=Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsv",
- tmp=Colorcode("cmyk","rgb",sL);
- dL=Colorcode("rgb","hsv",tmp);
- );
-
- if(src=="hsv" & dest=="hwb",
- tmp = Colorcode("hsv","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsv",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsv",tmp);
- );
- if(src=="hsl" & dest=="hwb",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsl",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="hsl" & dest=="cmyk",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="hwb" & dest=="cmyk",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsl",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="cmyk" & dest=="hwb",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL));
- if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL));
-
- if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL));
- if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL));
-
- if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL));
- if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL));
-
- if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL));
- if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL));
-
- dL;
-);
-
-Addcolor(cmdorg,list):=(
-//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]);
- regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4);
- cmd=replace(cmdorg,"'",Dq);
- if(length(list)==3,
- rgb=list;
- cmyk=Colorcode("rgb","cmyk",list);
- ,
- cmyk=list;
- rgb=Colorcode("cmyk","rgb",list);
- );
- tmp1="color->"+text(rgb);
- tmp2="Setcolor("+text(cmyk)+");";
- tmp3=substring(cmd,0,length(cmd)-2);
- tmp=substring(tmp3,length(tmp3)-1,length(tmp3));
- if(tmp!="[",
- tmp3=tmp3+",";
- );
- tmp3=tmp3+Dq+tmp1+Dq+"])";
- parse(tmp2);
- parse(tmp3);
- Setcolor("black");
-);
-
-Colorinfile(filename,clrf,clrt):=(
- regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body);
- if(length(clrf_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrf,text(#));
- cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- if(length(clrt_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrt,text(#));
- chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- tmp1=load(filename);
- tmp=tokenize(tmp1,"{\unitlength");
- head=tokenize(tmp_1,"%%%");
- head=head_(2..length(head));
- head=apply(head,"%%%"+#);
- tmp2=tmp_2;
- forall(1..5,
- tmp2=replace(tmp2,cstrL_#,chstrL_#);
- );
- body=tokenize(tmp2,"%");
- body_1="{\unitlength"+body_1;
- body=apply(body,#+"%");
- body=body_(1..(length(body)-1));
- tmp=replace(filename,".tex","new.tex");
- SCEOUT=openfile(tmp);
- forall(head,
- println(SCEOUT,#);
- );
- forall(1..length(body),
- tmp=body_#;
- if(#<length(body),
- println(SCEOUT,tmp);
- ,
- print(SCEOUT,tmp)
- );
- );
- closefile(SCEOUT);
-);
-
-GetLinestyle(str,name):=(
- regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg);
- Ltype=-1;
- Dop="";
- tmp1=indexof(str,",");
- if(tmp1>0,
- Dop=","+substring(str,tmp1,length(str));
- );
- noflg=parse(substring(str,0,1));
- if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29
- tmp1=substring(str,1,3);
- if(tmp1=="dr" % tmp1=="Dr",
- Ltype=0;
- if(noflg==0 & subflg==0, // 16.02.29
- Drwline(name+Dop);
- );
- );
- if(tmp1=="da" % tmp1=="Da",
- Ltype=1;
- if(noflg==0 & subflg==0, // 16.02.29
- Dashline(name+Dop);
- );
- );
- if(tmp1=="id" % tmp1=="Id",
- Ltype=2; // 15.11.09
- if(noflg==0 & subflg==0, // 16.02.29
- Invdashline(name+Dop);
- );
- );
- if(tmp1=="do" % tmp1=="Do",
- Ltype=3;
- if(noflg==0 & subflg==0, // 16.02.29
- Dottedline(name+Dop);
- );
- );
- if(tmp1=="dp" % tmp1=="Dp",
- Ltype=0;
- tmp1=parse(name);
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#_1,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- if(noflg==0,
- Drwpt(tmp2+Dop);
- );
- );
- if(tmp1=="no" % tmp1=="No",
- Ltype=10;
- );
- Ltype;
-);
-
-Chunderscore(str):=(
- regional(flg,tmp,tmp1,tmp2,tmp3);
- if(indexof(str,"]")>0,
- tmp1=replace(str,"]",",]");
- ,
- tmp1=str+",";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- if(indexof(str,"]")>0,
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,"[","list(");
- ,
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
- tmp1;
-);
-
-//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]);
-AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]);
-// if(isstring(Arg2),
-// AddGraph(Arg1,Arg2,[]);
-// ,
-// if(MeasureDepth(Arg2)>0,
-// Addgraph(Arg1,Arg2,[]);
-// ,
-// Addgraph("-"+Arg1,Arg1,Arg2);
-// );
-// );
-//);
-AddGraph(nm,pltdata,options):=(
-//help:AddGraph("1","imp1"); // 16.04.04
-//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]);
- regional(name,Ltype,Noflg,opcindy,pdata,fname,flg,
- tmp,tmp1,tmp2,tmp3);
- if(substring(nm,0,1)=="-",
- name=substring(nm,1,length(nm));
- ,
- name="ad"+nm;
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_9;
- if(isstring(pltdata),
- pdata=parse(pltdata)
- ,
- if(!islist(pltdata),pdata=[pltdata],pdata=pltdata);
- pdata=apply(pdata,parse(#));
- ); // 15.01.22
- pdata=Flattenlist(pdata);
- tmp1=[];
- forall(pdata,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- pdata=tmp1;
- if(Noflg<3,
- println("generate addgraph "+name);
- tmp=name+"="+textformat(pdata,5);
- parse(tmp);
- if(isstring(pltdata), // 16.04.04 from
- if(indexof(pltdata,"]")>0,
- tmp1="list(Listplot("+substring(pltdata,1,length(pltdata));
- tmp1=replace(tmp1,"]",",]");
- ,
- tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,",","),Listplot(");
- if(indexof(pltdata,"[")>0,
- tmp1=tmp1+")";
- );
- GLIST=append(GLIST,name+"="+tmp1);
- ,
- if(MeasureDepth(pdata)==1,
- tmp1=name+"=Listplot("+textformat(pdata,5)+")";
- ,
- tmp1="list(";
- forall(1..length(pdata),
- tmp=name+"p"+textformat(#,5)+"=";
- if(length(pdata_#)>1, // 15.01.22
- tmp=tmp+"Listplot("+textformat(pdata_#,5)+")";
- ,
- tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")";
- );
- GLIST=append(GLIST,tmp);
- tmp1=tmp1+name+"p"+textformat(#,5)+",";
- );
- tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")";
- );
- GLIST=append(GLIST,tmp1);
- );
- ); // 16.04.04 upto
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]);
-Joincrvs(nm,plotstrL,options):=(
-//help:Joincrvs("1",["sgAB","sgDCB"]);
- regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg);
- name="join"+nm;
- plotlist=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- tmp=apply(tmp,LLcrd(#));
- ,
- tmp=str;
- );
- plotlist=append(plotlist,tmp);
- );
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Eps=tmp1_1);
- QdL=[];
- forall(plotlist,Qd,
- if(ispoint(Qd_1) % !islist(Qd_1_1),
- QdL=concat(QdL,[Qd]);
- ,
- forall(Qd,
- QdL=concat(QdL,[#]);
- );
- );
- );
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..length(QdL),Ni,
- Qd=QdL_Ni;
- if(Numptcrv(Qd)>1,
- pP=Ptend(PtL);
- pS=Ptstart(PtL);
- pQ=Ptstart(Qd);
- pR=Ptend(Qd);
- rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]);
- if(rMN==|pP-pR|,
- Qd=reverse(Qd);
- ,
- if(rMN==|pS-pQ|,
- PtL=reverse(PtL);
- ,
- if(rMN==|pS-pR|,
- PtL=reverse(PtL);
- Qd=reverse(Qd);
- );
- );
- );
- );
- if(rMN>Eps,
- PtL=concat(PtL,Qd);
- ,
- PtL=concat(PtL,Qd_(2..length(Qd)));
- );
- );
- );
- if(Noflg<3,
- println("generate joincurve "+name);
- tmp1=apply(PtL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1="";
- forall(plotstrL,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PtL;
-);
-
-Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]);
-Partcrv(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv("1",A,B,"sgABC");
-//help:Partcrv("1",1.3,2.5,"sgABC");
- regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP,
- opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg);
- name="part"+nm;
- if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr);
- DepthFlg=0;
- if(MeasureDepth(PkL)==2,
- PkL=PkL_1;
- DepthFlg=1;
- );
- PkL=apply(PkL,LLcrd(#));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- Flg=0;
- if(isreal(pA),
- if(pA>pB+Eps,
- Npt=Numptcrv(PkL);
- Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]);
- Out2=Partcrv("",1,pB,PkLstr,["nodata"]);
- tmp=Ptstart(PkL)-Ptend(PkL);
- if(|tmp|<Eps,
- Ans=Joincrvs("",[Out1,Out2],["nodata"]);
- ,
- Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))];
- );
- Flg=1;
- );
- if(Flg==0,
- nS=ceil(pA);
- nE=floor(pB);
- PPL=[];
- if(pA<nS-Eps,
- pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS;
- PPL=[pP];
- );
- PPL=concat(PPL,PkL_(nS..nE));
- if(pB>nE+Eps,
- pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1);
- PPL=concat(PPL,[pP]);
- );
- Ans=PPL;
- Flg=1;
- );
- );
- if(Flg==0,
- tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL);
- Ta=tmp_2;
- tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12
- Tb=tmp_2;
- Ans=Partcrv("",Ta,Tb,PkL,["nodata"] );
- Ans=apply(Ans,Pcrd(#));
- );
- if(Noflg<3,
- println("generate partcrv "+name);
- tmp1=apply(Ans,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST, // 16.04.03
- if(DepthFlg==0,
- tmp=PkLstr;
- ,
- tmp=PkLstr+"(1)";
- );
- tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5)
- +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03
- GLIST=append(GLIST,tmp1);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Ans;
-);
-
-Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]);
-Opcrvs(num,Fig,options):=(
- //help:Subgraph(2,"grfs");
- regional(name,tmp,tmp1);
- name="-"+Fig+text(num);
- tmp=Fig+"_"+text(num);
- tmp1=parse(tmp);
- Listplot(name,tmp1,options);
-);
-
-
-Pointdata(nm,list):=Pointdata(nm,list,[]);
-Pointdata(nm,list,options):=(
-//help:Pointdata("1",[2,4],["Size=5"]);
-//help:Pointdata("2",[[2,3],[4,1]]);
- regional(name,nameL,ptlist,opstr,opcindy,
- eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="pt"+nm;
- nameL=name+"L";
- println("generate pointdata "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- size="";
- eqL=tmp_5;
- if(length(eqL)>0,
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="s" % tmp=="S",
- tmp=indexof(#,"=");
- size=substring(#,tmp,length(#));
- );
- );
- );
- tmp=MeasureDepth(list);
- if(tmp>0, // 2015.02.21
- if(tmp==1,ptlist=list,ptlist=list_1);
- tmp=apply(ptlist,[textformat(Pcrd(#),5)]);
- tmp1=text(tmp);
- tmp2=substring(tmp1,1,length(tmp1)-1);
- tmp3=tmp1;
- ,
- ptlist=list;
- tmp1=textformat(Pcrd(ptlist),5);
- tmp2=tmp1;
- tmp3="["+tmp1+"]";
- );
- tmp=name+"="+tmp1;
- parse(tmp);
- tmp=nameL+"="+tmp3;
- parse(tmp);
- if(Noflg<3,
- GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
- );
- if(Noflg<2,
- tmp=[nameL,0,opcindy];
- GCLIST=append(GCLIST,tmp);
- if(Noflg==0,
- if(length(size)>0,
- Com2nd("Setpt("+size+")");
- );
- thick=PenThick/PenThickInit; // 16.04.09 from
- if(length(size)>0,tmp1=parse(size),tmp1=1);
- tmp1=max(tmp1,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- Com2nd("Drwpt(list("+name+")"+opstr+")");
- Setpen(thick); // 16.04.09
- if(length(size)>0,
- Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")");
- );
- );
- );
- ptlist;
-);
-
-Listplot(nm,list,options):=(
-//help:Listplot([A,B]);
-// help:Listplot(["A","B"]);
-//help:Listplot("1",[[2,1],[3,3]]);
-//help:Listplot(options2=["Msg=yes"]);
- regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg);
- if(substring(nm,0,1)=="-", // 16.01.27 from
- name=substring(nm,1,length(nm));
- ,
- name="sg"+nm;
- ); // upto
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1; // 15.09.17
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1); // 16.06.28
- if(Toupper(tmp1)=="N", // 16.06.28
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Listplot "+name);
- );
- if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24
- ptlist=apply(tmp,Pcrd(#));
- tmp=name+"="+textformat(ptlist,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp1=apply(list,Lcrd(#));
- tmp1;
-);
-Listplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Listplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Listplot(name,list,options);
- );
-);
-Listplot(list):=Listplot(list,[]);
-
-Lineplot(nm,list,options):=(
-//help:Lineplot([A,B]);
-//help:Lineplot("1",[[2,1],[3,3]]);
- regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi,
- Vec,pA,pB,Ltype,Noflg);
- name="ln"+nm;
- Mag=100;
- Semi="";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- tmp1=tmp_6;
- if(length(tmp1)>0,Mag=tmp1_1);
- tmp1=tmp_7;
- if(length(tmp1)>0,Semi=tmp1_1);
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- Vec= Mag/dist(pA,pB)*(pB-pA);
- if(length(Semi)==0,
- Out=[pA-Vec,pA+Vec];
- ,
- if(Semi=="+",
- Out=[pA,pA+Vec];
- ,
- Out=[pA-Vec,pA];
- );
- );
- if(Noflg<3,
- println("generate Lineplot "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Lineplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Lineplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Lineplot(name,list,options);
- );
-);
-Lineplot(list):=Lineplot(list,[]);
-
-Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]);
-Plotdata(name1,func,variable,options):=(
-//help:Plotdata("1","sin(x)","x",["Num=100"]);
-//help:Plotdata("2","x^2","x=[-1,1]");
-//help:Plotdata("3","Fout(x)","x",["out"]);
- regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx,
- PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gr"+name1;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- Eps=10^(-3);
- tmp=replace(func,LFmark,"");
- tmp=tokenize(variable,"=");
- Vname=tmp_1;
- if(length(tmp)>1,
- tmp=tmp_2;
- tmp=parse(tmp);
- x1=tmp_1;
- x2=tmp_2;
- ,
- x1=XMIN;
- x2=XMAX;
- );
- // dx=(x2-x2)/Num;
- Ec=append(sort(Ec),10000);
- Fun=Assign(func,Vname, "xx");
- Exfun=Assign(Exfun,Vname, "xx");
- PdL=[];
- Ke=1;
- forall(0..Num,
- xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1)
- if(length(Exfun)>0,
- tmp=parse(Exfun);
- if(abs(tmp)<Eps,
- if(length(Pdt)>0,
- PdL=concat(PdL,["inf"]);
- );
- );
- ,
- Pa=[];
- if(xx-Ec_Ke<-Eps,
- Pa=[xx,parse(Fun)];
- );
- if(abs(xx-Ec_Ke)<=Eps,
- if(length(PdL)>0,
- if(PdL_(length(PdL))_1!="inf",
- Pa=["inf"];
- );
- );
- );
- if(xx-Ec_Ke>Eps,
- Pa=[xx,parse(Fun)];
- Ke=Ke+1;
- );
- if(length(Pa)>0,
- if(Pa_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(length(PdL)==0,
- PdL=[Pa];
- ,
- tmp=PdL_(length(PdL));
- if(tmp_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(dist(tmp,Pa)<Dc,
- PdL=concat(PdL,[Pa]);
- ,
- PdL=concat(PdL,[["inf"],Pa]);
- );
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(PdL),PdL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[PdL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(PdL),
- tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]);
- );
- PdL=tmp1;
- if(length(PdL)==1,
- PdL=PdL_1;
- );
- if(Noflg<3,
- println("generate Plotdata "+name);
- if(MeasureDepth(PdL)==1,
- tmp1=apply(PdL,Pcrd(#));
- ,
- tmp1=[];
- forall(PdL,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(func,LFmark,"");
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Plotdata "+name);
- tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Plotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]);
-Paramplot(name1,funstr,variable,options):=(
-//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]");
- regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num,
- Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gp"+name1;
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- tmp=indexof(variable,"=");
- vname=substring(variable,0,tmp-1);
- str=substring(variable,tmp,length(variable));
- Rng=parse(str);
- t1=Rng_1; t2=Rng_2;
- dt=(t2-t1)/Num;// differs from Scilab ( / Num-1)
- func=Assign(funstr,vname,"tt");
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=parse(func);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=parse(func);
- ke=ke+1;
- );
- if(length(pa)>0,
- if(pa_1=="inf",
- Out=append(Out,pa);
- ,
- if(length(Out)==0,
- Out=[pa];
- ,
- tmp=Out_(length(Out));
- if(tmp_1=="inf",
- Out=append(Out,pa);
- ,
- if(|tmp-pa|<Dc,
- Out=append(Out,pa);
- ,
- Out=concat(Out,[["inf"],pa]);
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(Out),Out_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[Out_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
- );
- Out=tmp1;
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Paramplot "+name);
- if(MeasureDepth(Out)==1,
- tmp1=apply(Out,Pcrd(#));
- ,
- tmp1=[];
- forall(Out,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(funstr,LFmark,""); // 15.11.13
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Paramplot "+name);
- tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Paramplotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Circledata(cenrad):=Circledata(cenrad,[]);
-Circledata(para1,para2):=(
-//help:Circledata([A,B],["Rng=[0,pi/2]"]);
-//help:Circledata([A,B,C]);
- regional(name,cenrad,options,str,n);
- if(isstring(para1),
- name=para1;
- cenrad=para2;
- options=[];
- ,
- cenrad=para1;
- options=para2;
- name="";// 16.10.07from
- forall(cenrad,
- name=name+#.name;
- );// 16.10.07upto
- );
- Circledata(name,cenrad,options);
-);
-Circledata(nm,cenrad,options):=(
- regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy,
- tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps);
- name="cr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Rg=[0,2*pi];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="R",
- Rg=parse(tmp1);
- );
- );
- if(length(cenrad)==2,
- Ctr=Lcrd(cenrad_1);
- Ptcir=Lcrd(cenrad_2);
- ra=dist(Ctr,Ptcir);
- ,
- Eps=10^(-1);
- pA=Lcrd(cenrad_1);
- pB=Lcrd(cenrad_2);
- pC=Lcrd(cenrad_3);
- tmp=pB-pA;
- tmp1=(tmp_2,-tmp_1);
- tmp=pC-pB;
- tmp2=(tmp_2,-tmp_1);
- d1=det([tmp1,tmp2]);
- d2=det([pC-pA,tmp2]);
- if(abs(d1)<Eps & abs(d2)>10*Eps,
- println("points are in a line");
- ra=0;
- ,
- Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1;
- ra=|pA-Ctr|;
- tmp=name+"center="+Ctr;
- parse(tmp);
- Defvar(name+"center",Ctr);
- );
- );
- if(ra>0,
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- ,
- Out=Lineplot("1",[pA,pB],["nodata"]);
- );
- if(Noflg<3,
- println("generate Circledata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- if(length(cenrad)==2,
- tmp=name+"=Circledata("+cenrad+opstr+")";
- ,
- if(ra>0,
- tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")";
- ,
- tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")";
- );
- );
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata():=(
- regional(pA,pB);
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB]);
-);
-Framedata(list):=Framedata(list,[]);
-Framedata(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Framedata(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";// 16.10.07from
- forall(list,
- name=name+#.name;
- );// 16.10.07upto
- Framedata(name,list,options);
- );
-);
-
-Framedata(nm,list,options):=(
-//help:Framedata();
-//help:Framedata([A,B]);
-//help:Framedata("1",[A,B]);
-//help:Framedata("1",[C,dx,dy]);
- regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy,
- opcindy,Ltype,Noflg,cent,dx,dy);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(length(list)==2, // 15.05.12
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2);
- ,
- pA=Lcrd(list_1);
- dx=list_2; dy=list_3;
- );
- x1=pA_1-dx; x2=pA_1+dx;
- y1=pA_2-dy; y2=pA_2+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]);
-Framedata(nm,cent,dx,dy,options):=(
- regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- x1=cent.x-dx; x2=cent.x+dx;
- y1=cent.y-dy; y2=cent.y+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata2(nm,list):=Framedata2(nm,list,[]);
-Framedata2(nm,list,options):=(
-//help:Framedata2("1",[A,B]);
- regional(tmp,tmp1,pC,pB);
- pC=(Lcrd(list_1)+Lcrd(list_2))/2;
- pB=Lcrd(list_2);
- Framedata(nm,[pC,pB],options);
-);
-
-Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]);
-Ovaldata(nm,Pdata,options):=(
-//help:Ovaldata("1",[A,B]);
-//help:Ovaldata(optios=[size]);
- regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph,
- opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="ov"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- Rc=0.2;
- tmp1=tmp_6;
- if(length(tmp1)>0,Rc=tmp1_1*Rc);
-// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15
- Ctr=Lcrd(Pdata_1);
- if(ispoint(Pdata_2) % islist(Pdata_2),
- tmp1=Lcrd(Pdata_2);
- Dx=abs(tmp1_1-Ctr_1);
- Dy=abs(tmp1_2-Ctr_2);
- ,
- Dx=Pdata_2;
- Dy=Pdata_3;
- );
- Point=Ctr+[Dx-Rc,Dy-Rc];
- tmp1=Circledata("1",[Point,Point+[Rc,0]],
- ["Rng=[0,pi/2]","Num=10","nodata"]);
- tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]],
- ["nodata"]);
- tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]],
- ["nodata"]);
- Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]);
- tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]);
- Graph=Joincrvs("1",[Graph,tmp1],["nodata"]);
- tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]],
- ["nodata"]);
- Graph=Joincrvs("2",[Graph,tmp2],["nodata"]);
- if(Noflg<3,
- println("generate Ovaldata "+name);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,
- name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5);
- GLIST=append(GLIST,
- name+"=Ovaldata("+tmp+opstr+")");
- );
- Graph;
-);
-
-Segmark(nm,ptlist):=Segmark(nm,ptlist,[]);
-Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options);
-Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]);
-Drawsegmark(nm,ptlist,options):=(
-//help:Segmark("1",[A,B]);
-//help:Segmark(options=["Type=1","Width=1","Size=1"]);
- regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL,
- tmp,tmp1,tmp2);
- name="mrk"+nm;
- pA=ptlist_1;
- pB=ptlist_2;
- size=0.15;
- wid=0.05;
- tp=1;
- tmp1=Divoptions(options);
- eqL=tmp1_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- tmp1=parse(tmp1);
- tmp=substring(#,0,1);
- if(tmp=="S" % tmp=="s",
- size=size*tmp1;
- );
- if(tmp=="W" % tmp=="w",
- wid=wid*tmp1;
- );
- if(tmp=="T" % tmp=="t",
- tp=tmp1;
- );
- );
- mid=(pA+pB)/2;
- dir=(pB-pA)/|pB-pA|;
- nor=[-dir_2,dir_1];
-// nor=nor/|nor|;
- if(tp==1,
- tmp1=mid+size*nor;
- tmp2=mid-size*nor;
- Listplot(name,[tmp1,tmp2]);
- );
- if(tp==2,
- tmp1=mid+wid*dir+size*nor;
- tmp2=mid+wid*dir-size*nor;
- Listplot(name+"r",[tmp1,tmp2]);
- tmp1=mid-wid*dir+size*nor;
- tmp2=mid-wid*dir-size*nor;
- Listplot(name+"l",[tmp1,tmp2]);
- );
- if(tp==3,
- tmp1=mid;
- tmp2=mid+size*dir;
- Circledata(name,[tmp1,tmp2]);
- );
- if(tp==4,
- tmp=mid+size*2/sqrt(3)*nor;
- tmp1=mid+size*dir-size/sqrt(3)*nor;
- tmp2=mid-size*dir-size/sqrt(3)*nor;
- Listplot(name,[tmp,tmp1,tmp2,tmp]);
- );
-);
-
-Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]);
-Parabolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5,5]";
- options=Arg;
- );
- Parabolaplot(nm,ptlist,rng,options);
-);
-Parabolaplot(nm,ptlist,rng,options):=(
-//help:Parabolaplot("1",[A,B,C]):
-//help:Parabolaplot("1",[A,B,C],"[-5,5]");
- regional(pA,pB,pC,angle,tmp,tmp1,tmp2);
- tmp1=Lcrd(ptlist_1);
- tmp2=Lcrd(ptlist_3);
- pB=Lcrd(ptlist_2);
- tmp=(tmp2-pB)/|tmp2-pB|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pA=Rotatepoint(tmp1,-angle,pB);
- pC=Rotatepoint(tmp2,-angle,pB);
- tmp1=1/(2*(pA_2-pB_2));
- tmp2=1/2*(pA_2+pB_2);
- tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2";
- tmp=tmp+"+("+format(tmp2,5)+")";
- tmp1=parse(rng);
- tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2];
- tmp2="x="+textformat(tmp1,5);
- Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp"));
- Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB));
-);
-
-Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]);
-Ellipseplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[0,2*pi]";
- options=Arg;
- );
- Ellipseplot(nm,ptlist,rng,options);
-);
-Ellipseplot(nm,ptlist,rng,options):=(
-//help:Ellipseplot("1",[A,B,3]);
-//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]);
- regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=|tmp2-pA|+|tmp2-tmp1|;
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(d^2/4-f^2);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]";
- tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]";
- Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp"));
- Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA));
-);
-
-Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]);
-Hyperbolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5/2,5/2]";
- options=Arg;
- );
- Hyperbolaplot(nm,ptlist,rng,options);
-);
-Hyperbolaplot(nm,ptlist,rng,optionsorg):=(
-//help:Hyperbolaplot("1",[A,B,C],["Num=200"]):
-//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]);
- regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2);
- tmp=Divoptions(optionsorg);
- eqL=tmp_5;
- options=optionsorg;
- opasy=[];
- forall(eqL,
- if(Toupper(substring(#,0,1))=="A",
- tmp=indexof(#,"=");
- opasy=[substring(#,tmp,length(#))];
- options=remove(options,[#]);
- );
- );
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=abs(|tmp2-pA|-|tmp2-tmp1|);
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(f^2-d^2/4);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp"));
- tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp"));
- tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"];
- Rotatedata(nm+"hyp",tmp,angle,append(options,pA));
- if(length(opasy)>0,
- Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]);
- Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]);
- tmp=["ln"+nm+"asy1","ln"+nm+"asy2"];
- Rotatedata(nm+"asy",tmp,angle,append(opasy,pA));
- );
-);
-
-Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]);
-Polygonplot(nm,ptlist,number,options):=(
-//help:Polygonplot("1",[A,B],12);
- regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- pB=Lcrd(ptlist_2);
- rr=|pB-pA|;
- tmp=(pB-pA)/rr;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- ptL=[];
- forall(0..number,
- tmp=angle+#*2*pi/number;
- tmp1=pA+rr*[cos(tmp),sin(tmp)];
- if(#>0 & #<number,
- Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07
- //Pointdata(nm,ptL);
- );
- tmp2=tmp1;
- ptL=append(ptL,tmp1);
- );
- Listplot(nm+"ply",ptL,options);
-);
-
-Putintersect(nm,pdata1,pdata2):=(
-//help:Putintersect("Q","gr1","gr2");
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)==1,
- Putpoint(nm,tmp_1);
- ,
- if(length(tmp)==0,
- err("No intersect point");
- ,
- err("Multiple intersect points");
- println(tmp);
- err("Choose point number");
- );
- );
-);
-Putintersect(nm,pdata1,pdata2,ptno):=(
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)>0,
- Putpoint(nm,tmp_ptno);
- ,
- err("No intersect point");
- );
-);
-
-Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]);
-Arrowheaddata(point,direction,options):=(
-//help:Arrowheaddata(A,B);
- regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB,
- pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy);
- Eps=10^(-3);
- pP=point;
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Str=YaStyle;
- tmp=Divoptions(options);
- tmp1=tmp_6;
- if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1);
- if(length(tmp1)>1,
- tmp=tmp1_2;
- if(tmp<5,
- Hiraki=Hiraki*tmp;
- ,
- Hiraki=tmp;
- );
- );
- Flg=0;
- Hiraki=Hiraki*pi/180;
- if(isstring(direction),Houkou=parse(direction),Houkou=direction);
- if(MeasureDepth(Houkou)==2,Houkou=Houkou_1);
- if(islist(Houkou_1),
-// pP=Lcrd(pP);
-// pP=Doscaling(pP);
-// Houkou=Dosscaling(Houkou);
- pP=Pcrd(pP);
- scy=SCALEY;
- SCALEY=1;
- tmp=Nearestpt(pP,Houkou);
- pA=tmp_1;
- rF=floor(tmp_2);
- if(rF==1,
- if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps,
- rF=Numptcrv(Houkou);
- );
- );
- gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]);
- Flg=0;
- forall(1..rF,Nj,
- if(Flg==0,
- pB=Ptcrv(rF+1-Nj,Houkou);
- tmp=IntersectcrvsPp([pA,pB],gG);
- if(length(tmp)>0,
- Houkou=pP-tmp_1_1;
- Flg=1;
- );
- pA=pB;
- );
- );
- SCALEY=scy;
- if(Flg==0,
- println("Arrowhead may be too large (no intersect)");
- Flg=2;
- );
- if(Flg==1,
- Houkou=Unscaling(Houkou);
- pP=Unscaling(pP);
- );
- );
- if(Flg<2,
-// pP=Doscaling(pP);
-// Houkou=Doscaling(Houkou);
- pP=Pcrd(pP);
- if(!ispoint(point),
- Houkou=Pcrd(Houkou);
- );
-// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou));
- Ev=-1/|Houkou|*Houkou;
- Ev=Lcrd(Ev);
- Nv=[-Ev_2, Ev_1];
- if(indexof(Str,"c")>0,
- pP=pP-0.5*Ookisa*cos(Hiraki)*Ev;
- );
- if(indexof(Str,"b")>0,
- pP=pP-Ookisa*cos(Hiraki)*Ev;
- );
- pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv;
- pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv;
- list=[pA,pP,pB];
- list=apply(list,LLcrd(#));
-// Out=Unscaling(Out);
- list;
- );
-);
-
-Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]);
-Arrowhead(point,Houkou,options):=(
-//help:Arrowhead(B,B-A,[1.5,30]);
-//help:Arrowhead(A,"gr1");
- // global ArrowheadNumber
- regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list);
- name="arh"+text(ArrowheadNumber);
- ArrowheadNumber=ArrowheadNumber+1;
- ptstr=textformat(point,5);
- if(isstring(Houkou), // 15.01.11
- tmp=parse(Houkou);
- if(MeasureDepth(tmp)<2,
- hostr=Houkou;
- ,
- hostr=Houkou+"(1)";
- );
- ,
- if(ispoint(point),
- hostr=textformat(LLcrd(Houkou),5);
- ,
- hostr=textformat(Houkou,5);
- );
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- list=Arrowheaddata(point,Houkou,options);
- if(Noflg<3,
-// println("generate Arrowhead "+name);
- tmp1=apply(list,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST,name+"=Listplot("+list+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(1)+Ltype,name);
- ,
-// if(Noflg==1,Ltype=0);
- Ltype=0;
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- if(Noflg==0,
- if(length(reL)<3, // 16.04.09 from
- forall(1..(2-length(reL)),
- opstr=opstr+",1";
- );
- tmp=PenThick/PenThickInit;
- opstr=opstr+","+text(tmp);
- ); // 16.04.09 upto
- Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")");
- );
-);
-
-Arrowdata(ptlist):=Arrowdata(ptlist,[]);
-Arrowdata(Arg1,Arg2):=(
- regional(tmp,nm,ptlist,flg,pA,pB,options);
- flg=0;
- if(isstring(Arg1),
- nm=Arg1;
- ptlist=Arg2;
- Arrowdata(nm,ptlist,[]);
- flg=1;
- );
- if(flg==0,
- tmp=MeasureDepth(Arg1);
- if(tmp==0,
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,[]);
- ,
- ptlist=Arg1;
- options=Arg2;
- nm=text(ArrowlineNumber);
- ArrowlineNumber=ArrowlineNumber+1;
- Arrowdata(nm,ptlist,options);
- );
- );
-);
-Arrowdata(Arg1,Arg2,options):=(
-//help:Arrowdata([A,B],[2,10]);
- regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size,
- flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos);
- Retflg=0;
- Noflg=0;
- Ltype=0;
- if(!isstring(Arg1),
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,options,"old");
- Retflg=1;
- ptlist=[pA,pB];
- );
- if(Retflg==0,
- nm=Arg1;
- ptlist=Arg2;
- name="ar"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- realL=tmp_6;
- strL=tmp_7;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- size=1; // 15.06.11
- if(length(realL)>0,
- size=realL_1;
- );
- tmp2=select(strL,indexof(#,"l")>0); // 16.04.09
- if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09
- segpos=1;
- tmp1=tmp_5;
- if(length(tmp1)>2,
- segpos=tmp1_3;
- );
- if(Noflg<3,
-// println("generate Arrowdata "+name);
- tmp1=apply(ptlist,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=Lcrd(ptlist_1);//16.10.10
- tmp2=Lcrd(ptlist_2);//16.10.10
- if(lineflg==0, // 16.04.09 from
- tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11
- ,
- tmp=tmp2;
- ); // 16.04.09 upto
- tmp=[tmp1,tmp];
- GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- tmp=textformat(ptlist,5);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp1=indexof(tmp,"],[");
- if(tmp1>0,
- pA=substring(tmp,0,tmp1);
- pB=substring(tmp,tmp1+1,length(tmp));
- ,
- tmp1=indexof(tmp,",");
- pA=substring(tmp,0,tmp1-1);
- pB=substring(tmp,tmp1,length(tmp));
- );
- tmp1="Lcrd("+pA+")+"
- +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))";
- tmp1=parse(tmp1);
- tmp2="Lcrd("+pB+")-Lcrd("+pA+")";
- tmp2=parse(tmp2);
- Arrowhead(tmp1,tmp2,options);
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- ptlist;
-);
-Arrowdata(pA,pB,options,str):=(
- regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy);
- Astr=textformat(pA,5);
- Bstr=textformat(pB,5);
- name="ar"+pA.name+pB.name;
- println("generate Arrow "+name);
- opstr="";
- opcindy="";
- forall(options,
- if(isstring(#),
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- ,
- tmp="'"+#+"'";
- );
- ,
- tmp=text(#);
- );
- opstr=opstr+","+tmp;
- );
- ptA=Lcrd(pA);
- ptB=Lcrd(pB);
- Arrowheaddata(ptB,ptB-ptA,options);
- tmp="connect("+textformat([ptA,ptB],5)
- +",linecolor->"+text(KCOLOR)+opcindy+");";
- parse(tmp); // 14.11.17
- Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04
-);
-
-Anglemark(plist):=Anglemark(plist,[]);
-Anglemark(Arg1,Arg2):=( // 2015.04.28 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Anglemark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Anglemark(nm,plist,options);
- );
-); // upto
-Anglemark(nm,plist,options):=(
-//help:Anglemark([A,B,C],["E=\theta",2]);
-//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]);
- regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg);
- name="ag"+nm;
- ra=0.5;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- Bname="";
- Brat=1.5;
- Num=20;
- if(length(realL)>0,
- ra=realL_1*ra;
- opstr=opstr+","+text(realL_1);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- sab=pB-pA;
- sac=pC-pA;
- Rg=[arctan2(sab)+0,arctan2(sac)+0];
- if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi);
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- if(length(Bname)>0,
- Th=(Rg_1+Rg_2)/2;
- tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
- tmp="Defvar("+Dq+Bpos+"=";
- tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(plist,5);
- tmp1=substring(tmp,1,length(tmp)-1);
- tmp=name+"=Anglemark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Paramark(plist):=Paramark(plist,[]);
-Paramark(plist,options):=(
-//help:Paramark([A,B,C],["E=\theta"]);
- regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- tmp=substring(tmp,1,length(tmp)-1);
- name="pm"+tmp;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- ra=0.5;
- Bname="";
- Brat=1.2;
- if(length(realL)>0,
- tmp=realL_1;
- ra=tmp*ra;
- opstr=opstr+","+text(tmp);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- Out=[];
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|);
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|);
- Out=append(Out,pA+ra*(pC-pA)/|pC-pA|);
- if(length(Bname)>0,
- tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|;
- tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate paramark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Paramark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-MakeBowdata(pA,pB,Hgt):=(
- regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA);
- angle=arctan2(pB-pA)+0;
- pB2=Rotatepoint(pB,-angle,pA);
- tmp=Lcrd(pA);
- pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt];
- dMA=|tmp-pB2|/2;
- ra=(dMA^2+Hgt^2)/(2*Hgt);
- pC2=[pH2_1,pB2_2+(ra-Hgt)];
- pC=Rotatepoint(pC2,angle,pA);
- Th1=arctan2(pA-pC2)+angle;
- Th2=arctan2(pB2-pC2)+angle;
- [pC,ra,Th1,Th2];
-);
-
-Bowdata(plist):=Bowdata(plist,[]);
-Bowdata(plist,options):=(
- regional(nm,tmp);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Bowdata(nm,plist,options);
-);
-Bowdata(nm,plist,options):=(
-//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]);
- regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL,
- Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC,
- Th1,Th2,Noflg,Bops);
- name="bw"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- pA=Lcrd(plist_1); pB=Lcrd(plist_2);
- Hgt=1/2*|pB-pA|*0.2;
- Cut=0;
- Num=24;
- Bname="";
- if(length(realL)>0,
- Hgt=realL_1*Hgt; // 15.04.12
- if(length(realL)>1,Cut=realL_2);
- );
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="L" % tmp=="l",
- if(indexof(#,"rot")>0,
- Bname="Letterrot(";
- ,
- Bname="Letter(";
- );
- );
- if(tmp=="E" % tmp=="e",
- if(indexof(#,"rot")>0,
- Bname="Exprrot(";
- ,
- Bname="Expr(";
- );
- );
- Bops=#;
- );
- Ydata=MakeBowdata(pA,pB,Hgt);
- pC=Ydata_1;
- ra=Ydata_2;
- Th=(Ydata_3+Ydata_4)*0.5;
- BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)];
- if(length(Bname)>0,
- Bpos="md"+name;
- tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");";
- parse(tmp);
- Bname=Bname+Dq+Bpos+Dq+",";
- if(indexof(Bname,"rot")>0,
- tmp1=pB-pA;
- if(tmp1_1<0, tmp1=-tmp1);
- tmp2=indexof(Bops,",");
- if(tmp2>0,
- tmp=substring(Bops,0,tmp2-1);
- if(indexof(tmp,"u")>0,
- tmp1=-tmp1;
- Bops=replace(tmp,"u","")+substring(Bops,tmp2-1,length(Bops));
- Bops=replace(Bops,"=,","=");
- );
- );
- Bname=Bname+text(tmp1)+",";
- );
- tmp=substring(Bops,indexof(Bops,"="),length(Bops));
- tmp1=indexof(tmp,",");
- if(tmp1==0,
- if(indexof(Bname,"rot")==0,
- Bname=Bname+Dq+"c"+Dq+","+Dq+tmp;
- ,
- Bname=Bname+Dq+tmp;
- );
- ,
- Bname=Bname+Dq+substring(tmp,0,tmp1-1)+Dq+","
- +Dq+substring(tmp,tmp1,length(tmp));
- );
- Bname=Bname+Dq+")";
- parse(Bname);
- );
- if(Cut==0,
- Th1=Ydata_3;
- Th2=Ydata_4;
- Out=[];
- forall(0..Num,
- tmp=Th1+#*(Th2-Th1)/Num;
- Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]);
- );
- ,
- Th1=Ydata_3;
- Th2=Th-Cut/(2*ra);
- tmp1=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Th1=Th+Cut/(2*ra);
- Th2=Ydata_4;
- tmp2=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Out=[tmp1,tmp2];
- );
- if(Noflg<3,
- println("generate bowdata "+name);
- if(MeasureDepth(Out)==1,Out=[Out]);
- tmp1=[];
- forall(Out,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Bowdata("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Bowname(str):=Bowname("c",str);
-Bowname(dir,str):=(
- Expr([BOWMIDDLE,dir,str]);
-);
-
-Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1);
-Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown);
-Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1);
-Bownamerot(bwdata,tmov,nmov,str,updown):=(
- regional(bdata,tmp);
- tmp=MeasureDepth(bwdata);
- if(tmp==1,bdata=[bwdata],bdata=bwdata);
- if(length(bdata)>1,
- tmp=Ptend(bdata_2)-Ptstart(bdata_1);
- ,
- tmp=Ptend(bdata_1)-Ptstart(bdata_1);
- );
- if(updown<0,tmp=-tmp);
- Exprrot(BOWMIDDLE,tmp,tmov,nmov,str);
-);
-
-Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]);
-Deqplot(nm,deq,rng,Arg1,Arg2):=(
- regional(initt,initf,options);
- if(isreal(Arg1) & length(Arg1)==1,
- initt=Arg1;
- initf=Arg2;
- options=[];
- ,
- initf=Lcrd(Arg1);
- initt=initf_1;
- options=Arg2;
- );
- Deqplot(nm,deq,rng,initt,initf,options);
-);
-Deqplot(nm,deq,rng,initt,initf,options):=(
- regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2,
- tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- tmp2=tmp_2;
- tmp3=tokenize(tmp1,"`");
- if(length(tmp3)==2,
- if(indexof(tmp1,"[")>0,
- Deqplot(nm,deq,rng,initt,initf,options,[2,3]);
- ,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- tmp=tokenize(rng2,"=");
- deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]";
- rng2="t="+tmp_2;
- if(isreal(initf) & length(initf)==1,
- initf2=[initt,initf];
- initt2=initt;
- ,
- initf2=Lcrd(initf));
- initt2=initf2_1;
- Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]);
- );
- ,
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_9;
- opstr="";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="N",
- tmp=indexof(#,"=");
- tmp1="N="+substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp1+"'";
- );
- );
- if(Noflg<1,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- var2="d"+tmp3_1;
- deq2="["+tmp3_1+","+var2+"]`=[";
- tmp=replace(tmp2,tmp3_1+"`",var2);
- deq2=deq2+var2+","+tmp+"]";
- Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]);
- parse(tmp);
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- parse("de"+nm);
- );
- );
-);
-Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
-//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]);
-//help:Deqplot("1","y``=-y","x",0, [1,0]);
-//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]);
- regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num,
- outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg,
- kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2);
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- eqL=tmp_5;
- strL=tmp_7;
-// opstr=tmp_(length(tmp)-1);
- opstr="";
- opcindy=tmp_(length(tmp));
- outstr="";
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="S",
- outstr="Sci";
- );
- );
- Num=50;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,0,1);
- tmp2=Toupper(tmp2);
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp2+"="+tmp1+"'";
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- );
- );
- if(outstr=="Sci",
- if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1);
- );
- if(Noflg<3,
- if(outstr=="Sci",
- if(Outflg==1,
- println("Output Deqplot "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Deqplot "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- ,
- Eps=10^(-3);
- Inf=10^3;
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- func=tmp_2;
- tmp=indexof(tmp1,",");
- xf=substring(tmp1,1,tmp-1);
- yf=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(yf,"]");
- yf=substring(yf,0,tmp-1);
- tmp=tokenize(rng,"=");
- Vname=tmp_1;
- tmp=parse(tmp_2);
- t1=tmp_1;
- t2=tmp_2;
- tmp="funP("+Vname+","+xf+","+yf+"):="+func+";";
- parse(tmp);
- tmp=tokenize(func,",");
- tmp1="-("+substring(tmp_1,1,length(tmp_1))+")";
- tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")";
- tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];";
- parse(tmp);
- dt=(t2-t1)/Num;
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- pdL=[[tt,x0,y0]];
- flg=0;
- forall(1..floor((t2-initt)/dt),
- if(flg==0,
- kl1=dt*funP(tt,x0,y0);
- kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt+#*dt;
- pdL=append(pdL,[tt,x0,y0]);
- if(|tmp1|>Inf,flg=1);
- );
- );
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- flg=0;
- forall(1..floor((initt-t1)/dt),
- if(flg==0,
- kl1=dt*funN(tt,x0,y0);
- kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt-#*dt;
- pdL=prepend([tt,x0,y0],pdL);
- if(|tmp1|>Inf,flg=1);
- );
- );
- println("Generate Deqplot "+name);
- pdL=apply(pdL,#_Sel);
- tmp1=apply(pdL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(Noflg<1,
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(outstr=="Sci",
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- ,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- pdL;
- );
- );
-);
-
-Enclosing(nm,plist):=EnclosingS(nm,plist);
-Enclosing(nm,plist,options):=EnclosingS(nm,plist,options);
-EnclosingS(nm,plist):=EnclosingS(nm,plist,[]);
-EnclosingS(nm,plist,options):=(
-//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]);
- regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt,
- t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy);
- name="en"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- EEps=0.1;
- Start=[];
- Flg=0;
- forall(realL,
- if(isList(#) % ispoint(#),
- Start=Lcrd(#); // 15.09.12
- ,
- Flg=Flg+1;
- if(Flg==1,Eps=#);
- if(Flg==2,EEps=#);
- );
- );
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- Fdata=plist_1;
- Gdata=plist_(length(plist));
- KL=IntersectcrvsPp(Fdata,Gdata);
- if(length(KL)==1,
- pt=KL_1_1;
- t1=KL_1_2;
- );
- if(length(KL)==0,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- pt=tmp_1;
- t1=tmp_2;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- pt=tmp_3;
- t1=tmp_4;
- );
- );
- if(length(KL)>1,
- if(Start==[],
- err("No Start Point");
- ,
- pt=KL_1_1;
- t1=KL_1_2;
- tmp=|pt-Start|;
- forall(2..length(KL),ii, // 15.04.20
- tmp1=KL_ii_1;
- tmp2=|tmp1-Start|; // 15.04.20
- if(tmp2<tmp,
- pt=tmp1;
- t1=KL_ii_2;
- tmp=tmp2;
- );
- );
- );
- );
-// pt=Pcrd(pt); // 15.09.12
- Start=pt;
- AnsL=[];
- forall(1..length(plist),nn,
- Fdata=plist_nn;
- if(nn>1, pt=qt);
- if(nn==length(plist),
- qt=Start;
- ,
- Flg=0;
- Gdata=plist_(nn+1);
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- KL=IntersectcrvsPp(Gdata,Fdata);
- if(length(KL)==1,
- tmp=KL_1;
- qt=KL_1_1;
- t3=KL_1_2;
- Flg=10;
- );
- if(length(KL)==0,Flg=1);
- if(length(KL)>1,
- tmp1=KL_1_1;
- tmp2=KL_2_1;
- tmp=|tmp1-tmp2|;
- if(tmp<Eps*10, Flg=1);
- );
- if(Flg==1,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- qt=tmp_1;
- t3=tmp_4;
- Flg=10;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- qt=tmp_3;
- t3=tmp_2;
- Flg=10;
- );
- );
- if(Flg<10,
- t2=10^6; //%inf;
- forall(1..length(KL),ii,
- tmp1=KL_ii_1;
- tmp=KL_ii_3;
- tmp2=ParamonCurve(tmp1,tmp,Fdata);
- tmp3=KL_ii_2;
- if(tmp2>t1+Eps & tmp2<t2+Eps,
- qt=tmp1;
- t2=tmp2;
- t3=tmp3;
- );
- );
- );
- );
- tmp=Partcrv("",pt,qt,Fdata,["nodata"]);
- t1=t3;
- if(nn==1,
- AnsL=tmp;
- ,
- AnsL=concat(AnsL,tmp_(2..length(tmp)));
- );
- );
- AnsL=apply(AnsL,Pcrd(#)); // 15.09.12
- if(Noflg<3,
- println("generate Enclosing "+name);
- tmp=name+"="+textformat(AnsL,5);
- parse(tmp);
- tmp=name+"=Enclosing(";
- tmp1="list(";
- forall(plist,
- tmp1=tmp1+#+",";
- );
- tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp=apply(AnsL,Lcrd(#));
- tmp;
-);
-
-Shade(plist):=Shade(plist,[]);
-Shade(plist,options):=(
-//help:Shade(["gr2","sg1"],[0.5]);
-//help:Shade([pointlist],[0.5]);
- regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg);
- if(isstring(plist_1), // 16.01.24
- println("output Shade of "+plist);
- ,
- println("output Shade of lists");
- );
- tmp=Divoptions(options);
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- flg=0;
- forall(plist,
- if(flg==0,
- if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24
- if(!islist(tmp),flg=1); upto
- );
- );
- if(flg==1,
-// err("some data not defined yet");
- ,
- G2=Joincrvs("1",plist,["nodata"]);
- G2=apply(G2,Pcrd(#));
- tmp1="fillpoly("+textformat(G2,5)+opcindy+");";
- parse(tmp1);
- );
- Str="Shade(";
- tmp1="list(";
- forall(plist,
- if(isstring(#), // from 16.01.24
- if(length(#)>1,
- tmp1=tmp1+#+",";
- ,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- ,
- tmp1=tmp1+"Listplot("+textformat(#,5)+"),";
- ); // upto 16.01.24
- );
- Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- Com2nd(Str);
-);
-
-
-//help:start();
-
-Rotatepoint(point,Theta,ctr):=(
-//help:Rotatepoint(A,2*pi/3,B);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(ctr);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- [X2,Y2];
-);
-
-Translatepoint(point,mov):=(
-//help:Translatepoint(A,[2,3]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- X2=X1+Cx;
- Y2=Y1+Cy;
- [X2,Y2];
-);
-
-Scalepoint(point,ratio,center):=(
-//help:Scalepoint(A,[3,2],[0,0]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(center);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+ratio_1*(X1-Cx);
- Y2=Cy+ratio_2*(Y1-Cy);
- [X2,Y2];
-);
-
-Reflectpoint(point,symL):=(
-//help:Reflectpoint(A,B);
-//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
- regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- [X2,Y2];
-);
-
-Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
-Rotatedata(nm,plist,angle,options):=(
-//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
- opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="rt"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- if(isstring(angle),Theta=parse(angle),Theta=angle);
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Rotatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]);
-translatedata(nm,plist,mov,options):=(
-//help:translatedata("1",["gr1"],[1,2]);
- regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
- opcindy,X2,Y2,Ltype,Noflg,name);
- name="tr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=tmp_1+Cx;
- Y2=tmp_2+Cy;
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate translatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Scaledata(nm,plist,ratioV):=(
- regional(tmp);
- tmp=Lcrd(ratioV);
- Scaledata(nm,plist,tmp_1,tmp_2,[]);
-);
-Scaledata(nm,plist,Arg1,Arg2):=(
-//help:Scaledata("1","crAB",3,2,[[0,0]]);
- regional(tmp,options);
- if(islist(Arg2),
- tmp=Lcrd(Arg1);
- options=Arg2;
- Scaledata(nm,plist,tmp_1,tmp_2,options);
- ,
- Scaledata(nm,plist,Arg1,Arg2,[]);
- );
-);
-Scaledata(nm,plist,rx,ry,options):=(
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
- name="sc"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- Pt=Lcrd(tmp1_1);
- );
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=Cx+rx*(tmp_1-Cx);
- Y2=Cy+ry*(tmp_2-Cy);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Scaledata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
-Reflectdata(nm,plist,symL,options):=(
-//help:Reflectdata("1","crAB",[C]);
- regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="re"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Reflectdata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Mksegments():=Mksegments([]);
-Mksegments(options):=(
-//help:Mksegments();
- regional(segstr,p,q,r,tmp1,tmp2,tmp3);
- forall(allsegments(),seg,
- str=text(inspect(seg,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Listplot([parse(p),parse(q)]);
- );
-);
-
-Mkcircles():=Mkcircles([]);
-Mkcircles(options):=(
-//help:Mkcircles():
- regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
- forall(allcircles(),cir,
- str=text(inspect(cir,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- tmp4=indexof(str,";",tmp2+1);
- if(tmp4==0,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Circledata([parse(p),parse(q)]);
- ,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp4-1);
- r=substring(str,tmp4,tmp3-1);
- Circledata([parse(p),parse(q),parse(r)]);
- );
- );
-);
-
-Makesciarg(arglist):=(
- regional(str,tmpstr);
- str="";
- forall(arglist,
- if(isstring(#),
- tmpstr=Dq+#+Dq;
- ,
- tmpstr=textformat(#,5);
- );
- str=str+tmpstr+",";
- );
- str=substring(str,0,length(str)-1);
- str;
-);
-
-Setax(arglist):=(
-//help:Setax(["l","x","e","y","n","O","sw"]);
-//help:Setax([7,"nw"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com1st("Setax("+tmp+")");
-);
-
-Htickmark(arglist):=(
-//help:Htickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp="";
- tmp=Makesciarg(arglist);
- Com2nd("Htickmark("+tmp+")");
-);
-
-Vtickmark(arglist):=(
-//help:Vtickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com2nd("Vtickmark("+tmp+")");
-);
-
-Drwxy():=(
-//help:Drwxy();
- Com2nd("Drwxy()");
- Addax(0); // 16.01.21
-);
-
-Drwpt(pstr):=Drawpoint(pstr);
-Drwpt(ptlist,nn):=( // 16.03.05 from
-//help:Drwpt(A);
-//help:Drwpt("[1,1],0");
-//help:Drwpt(A,0);
-//help:Drwpt([1,2],0);
- Drawpoint(ptlist,nn);
-);
-Drawpoint(pstr):=(
- if(isstring(pstr),
- println("Drwpt : "+pstr);
- Com2nd("Drwpt("+pstr+")");
- ,
- Drawpoint(pstr,1);
- );
-);
-Drawpoint(ptlistorg,nn):=(
- regional(ptlist,thick,tmp,tmp1);
- println("Drwpt : "+text(ptlistorg));
- if(islist(ptlistorg),
- if(MeasureDepth(ptlistorg)==1,
- ptlist=ptlistorg
- ,
- ptlist=[ptlistorg]
- );
- ,
- ptlist=[ptlistorg]
- );
- thick=PenThick/PenThickInit;// 16.04.09 from
- tmp1=max(TenSize/TenSizeInit,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- forall(ptlist,
- tmp=textformat(#,5)+","+text(nn);
- Com2nd("Drwpt("+tmp+")"); // 16.04.09
- );
- Setpen(thick); // 16.04.09
-);// 16.03.05 upto
-
-Addax(param):=(
-//help:Addax(0);
- ADDAXES=text(param);
-);
-
-Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
-Expr(list):=Expr(list,[]);
-Expr(listorg,options):=( //16.10.09
-//help:Expr([A,"e","f(x)=x^2"]);
- regional(list,str,tmp,tmp1,tmp2);
- list=listorg;
- forall(1..round(length(list)/3),
- str=list_(3*#);
- if(!isstring(str),str=format(str,5));
- str="$"+str+"$";
- list_(3*#)=str;
- );
- Letter(list,options);
-);
-
-Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
-Letter(list):=Letter(list,[]);
-Letter(list,options):=(
-//help:Letter([C,"c","Graph of f(x)"]);
- regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
- opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
- tmp=Divoptions(options);
- Noflg=tmp_2;
- opL=select(options,indexof(#,"->")>0); //16.10.09from
- tmp=select(opL,indexof(#,"color"));
- size=12;
- clr=[0,0,0];
- bld=false;
- ita=false;
- aln="left";
- forall(opL,
- tmp=indexof(#,"->");
- tmp1=removespace(substring(#,0,tmp-1));
- tmp2=substring(#,tmp+1,length(#));
- if(tmp1=="size",sz=parse(tmp2));
- if(tmp1=="color",clr=parse(tmp2));
- if(tmp1=="bold",bld=parse(tmp2));
- if(tmp1=="ita",ita=parse(tmp2));
- );//16.10.09upto
- Off=-4;
- Dmv=8;
- Nj=1;
- while(Nj+2<=length(list),
-// Pos=textformat(list_Nj,5);
- Pos=list_Nj;
- Dir=list_(Nj+1);
- if(Dir=="s" % Dir=="n", Dir=Dir+"c");//16.10.08
- Str=list_(Nj+2);
- if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
- tmp=replace(Str,".xy","");
- tmp=replace(tmp,".x","(1)");
- Str=replace(tmp,".y","(2)");
- if(indexof(Str,"`")>0,
-// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
- tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
- ,
- tmp=Dq+","+Dq+Str+Dq+")";
- );
- if(Noflg==0,
- Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
- );
- if(Noflg<2,
- Xmv=0;//16.10.13
- Ymv=-4;
- if(indexof(Dir,"n")>0,
- Ymv=Dmv/2;
- );
- if(indexof(Dir,"s")>0,
- Ymv=-Dmv*3/2;//16.10.13
- );
- if(indexof(Dir,"e")>0,
- Xmv=Dmv/2;
- Off=0;
- aln="left";
- );
- if(indexof(Dir,"w")>0,
- Xmv=-Dmv/2;
- Off=0; // 16.09.30from
- aln="right";
- );
- if(indexof(Dir,"c")>0,
- Xmv=0;//16.10.13
- Off=0;
- if(Ymv==0,Ymv=-4);//16.10.08
- aln="mid"; // 16.09.30upto
- );
- drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
- size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
- );
- Nj=Nj+3;
- );
-);
-
-Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
-Letterrot(pt,dir,movstr,str):=(
-//help:Letterrot(C,B-A,"AB"):
-//help:Letterrot(C,B-A,0,5,"AB"):
-//help:Letterrot(C,B-A,"t0n5","AB"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Letterrot(pt,dir,tmov,nmov,str);
-);
-Letterrot(pt,dir,tmov,nmov,str):=(
- Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
-Exprrot(pt,dir,movstr,str):=(
-//help:Exprrot(C,B-A,"d"):
-//help:Exprrot(C,B-A,0,5,"d"):
-//help:Exprrot(C,B-A,"t0n5","d"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Exprrot(pt,dir,tmov,nmov,str);
-);
-Exprrot(pt,dir,tmov,nmov,str):=(
- Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
-Putpoint(name,Ptinit,Pt):=(
-//help:Putpoint("A",[1,2],[1,A.y]);
- regional(ptstr);
- ptstr=apply(allpoints(),#.name);
- if(!contains(ptstr,name),
- createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
- ,
- ptstr=name+".xy="+textformat(Pcrd(Pt),5);
- parse(ptstr);
- );
-);
-
-Bezierpt(t,ptlist,ctrlist):=(
- regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
- p0=ptlist_1;
- p3=ptlist_2;
- p1=ctrlist_1;
- if(length(ctrlist)==1,
- p2=p3;
- flg3=0;
- ,
- p2=ctrlist_2;
- flg3=1;
- );
- if(length(p0)<3, // 15.02.08
- p0=Lcrd(p0);
- p3=Lcrd(p3);
- p1=Lcrd(p1);
- p2=Lcrd(p2);
- );
- p4=(1-t)*p0+t*p1;
- p5=(1-t)*p1+t*p2;
- p6=(1-t)*p2+t*p3;
- p7=(1-t)*p4+t*p5;
- p8=(1-t)*p5+t*p6;
- p9=(1-t)*p7+t*p8;
- if(flg3==0,p7,p9);
-);
-
-Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
-Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
-Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
-BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
-//help:Bezier("1",[A,D],[B,C]);
-//help:Bezier(options=["Num=10"]);
- regional(name,Ltype,Noflg,opstr,opcindy,Num,
- ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
- name="bz"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Num=10;
- tmp1=tmp_5;
- forall(tmp1, // 14.12.31
- if(substring(#,0,1)=="N",
- tmp2=indexof(#,"=");
- Num=parse(substring(#,tmp2,length(#)));
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
- ctrlist=[]; // 14.12.31
- if(length(ctrlistorg)==length(ptlist)-1,
- forall(ctrlistorg,tmp1,
- if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- ,
- forall(1..(length(ptlist)-1),ii,
- tmp=ctrlistorg_((2*ii-1)..(2*ii));
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- );
- if(!islist(Num),
- Num=apply(ctrlist,Num);
- );
- list=[];
- forall(1..(length(ptlist)-1),ii,
- tmp1=ptlist_(ii..(ii+1));
- tmp2=ctrlist_ii;
- if(ii==1,st=0,st=1);
- forall(st..Num_ii,
- tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
- list=append(list,tmp);
- );
- );
- if(Noflg<3,
- println("generate Bezier "+name);
- out=apply(list,Pcrd(#));
- tmp=name+"="+textformat(out,5);
- parse(tmp);
- tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- list;
-);
-
-Readcsvsla(fname):=Readplotdigdata(fname,[]);
-Readcsvsla(fname,options):=Readplotdigdata(fname,options);
-Readplotdigdata(fname):=Readplotdigdata(fname,[]);
-Readplotdigdata(fname,options):=(
- regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
- tmp=Divoptions(options);
- tmp1=tmp_6;
- sc=1;//10;
- mv=[0,0];//[5,5];
- forall(tmp1,
- if(!islist(#),sc=#,mv=#);
- );
- if(indexof(fname,".")>0,
- tmp=load(fname);
- ,
- tmp=load(fname+".txt");
- );
- cmdall=tokenize(tmp,"//");
- dataL=[];
- forall(2..length(cmdall),ii,
- tmp1=parse("["+cmdall_ii+"]");
- dataL=append(dataL,tmp1);
- );
- if(length(dataL_(length(dataL)))<2,
- dataL=dataL_(1..(length(dataL)-1));
- );
- nd=length(dataL_1)/2;
- npt=length(dataL);
- ptdata=[];
- forall(1..nd,ii,
- tmp3=[];
- forall(1..npt,
- tmp1=dataL_#_(2*ii-1);
- tmp2=dataL_#_(2*ii);
- if(isreal(tmp1),
- tmp3=append(tmp3,[tmp1,tmp2]);
- );
- );
- ptdata=append(ptdata,tmp3);
- );
- tmp1=[];
- forall(ptdata,
- tmp=#/sc;
- tmp=translatedata("1",[tmp],-mv,["nodata"]);
- tmp1=append(tmp1,tmp);
- );
- ptdata=tmp1;
- ptdata;
-);
-
-Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
-Putbezierdata(name,ptL,options):=(
- regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
- tmp=Divoptions(options);
- psize=3;
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- if(substring(#,0,1)=="S",
- tmp=indexof(#,"=");
- psize=parse(substring(#,tmp,length(#)));
- );
- );
- pts=[];
- ctrs=[];
- forall(1..length(ptL),
- p2=ptL_#; // 16.08.16
- if(ispoint(p2),
- tmp1=text(p2);
- ,
- tmp1=name+text(#);
- Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
- );
- inspect(parse(tmp1),"ptsize",psize);
- pts=append(pts,parse(tmp1));
- inspect(parse(tmp1),"color",4);
- if(#>1,
- p1=Lcrd(ptL_(#-1)); // 16.08.16
- p2=Lcrd(ptL_#); // 16.08.16
- if(Deg==3,
- tmp=(2*p1+p2)/3;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- tmp=(p1+2*p2)/3;
- tmp2=name+"q"+text(#-1);
- Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
- inspect(parse(tmp2),"labeled",false); //15.01.22
- Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
- inspect(parse(tmp2),"ptsize",psize);
- inspect(parse(tmp2),"color",3);
- ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
- ,
- tmp=(p1+p2)/2;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- ctrs=append(ctrs,[parse(tmp1)]);
- );
- );
- );
- [pts,ctrs,name];
-);
-
-Bezierstart(n):=( // 2016.02.26
- BezierNumber=n;
-);
-
-Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
-Mkbezierptcrv(ptdata,options):=(
- //help:Mkbezierptcrv([A,B,C,D]);
- //help:Mkbezierptcrv([[A,B],[C,D]]);
- //help:Mkbezierptcrv(options=["Num=10"]);
- // global BezierNumber
- regional(ptlist,Out,tmp,tmp1,tmp2);
- if(isstring(ptdata),
- ptlist=Readcsvsla(ptdata,options);
- ,
- ptlist=ptdata;
- );
- if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
- Out=[];
- forall(1..length(ptlist),
- tmp=floor((BezierNumber-1)/26);// 15.02.23
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber,26);
- if(tmp2==0,tmp2=26);
- tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
- tmp2=Putbezierdata(tmp1,ptlist_#,options);
- Bezier(tmp2,options);
- BezierNumber=BezierNumber+1;
- Out=append(Out,tmp2_(1..2));
- );
- Out;
-);
-
-Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
-Mkbeziercrv(nm,ptctrL,options):=(
- //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
- regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
- if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
- forall(1..length(ptctrLL),
- name=nm+text(#);
- ptlist=ptctrLL_#_1;
- ctrlist=ptctrLL_#_2;
- Bezier(name,ptlist,ctrlist,options);
- );
-);
-
-Writebezier():=Writebezier(Fhead,"all");
-Writebezier(head):=Writebezier(head,"all");
-Writebezier(head,seL):=(
-//help:Writebezier(file);
-//help:Writebezier(file,"acd");
- regional(bz,dt,name,tmp,tmp1,tmp2);
- bz=select(GLIST,indexof(#,"=Bezier")>0);
- tmp1=[]; // 16.04.22from
- if(seL!="all",
- forall(1..length(seL),
- tmp=substring(seL,#-1,#);
- tmp=select(bz,indexof(#,"bz"+tmp)>0);
- tmp1=concat(tmp1,tmp);
- );
- bz=tmp1;// 16.04.22upto
- );
- dt=[head+"n",[[length(bz),0]]];
- forall(1..length(bz),
- tmp=indexof(bz_#,"=");
- name=substring(bz_#,0,tmp-1);
- tmp=indexof(bz_#,","+Dq);
- if(tmp>0,
- tmp1=substring(bz_#,0,tmp-1)+")";
- ,
- tmp1=bz_#;
- );
- tmp1=replace(tmp1,"Bezier(","[");
- tmp1=replace(tmp1,"list(","[");
- tmp1=replace(tmp1,")","]");
- tmp1=replace(tmp1,",",".xy,");
- tmp1=replace(tmp1,"]",".xy]");
- tmp1=replace(tmp1,".xy,[",",[");
- tmp1=replace(tmp1,"].xy","]");
- tmp1=replace(tmp1,name,head+text(#));
- parse(tmp1);
- tmp=parse(head+text(#)+"_1");
- dt=concat(dt,[head+text(#)+"k",tmp]);
- tmp=parse(head+text(#)+"_2");
- dt=concat(dt,[head+text(#)+"c",tmp]);
- );
- WriteOutData(head+".txt",dt);
- dt;
-);
-
-Readbezier(file):=Readbezier(file,[]);
-Readbezier(file,optionorg):=(
-//help:Readbezier("xsr");
-//help:Readbezier(options=["Num=10","nogeo"]);
- regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
- options=optionorg;
- tmp=Divoptions(options);
- stL=tmp_7;
- geo=0;
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="G",geo=1);
- options=remove(options,[#]);
- );
- ReadOutData(file);
- tmp=file+"n_1_1";
- nn=parse(tmp);
- out=[];
- forall(1..nn,nc,
- tmp=file+text(nc);
- tmp1=parse(tmp+"k");
- tmp2=parse(tmp+"c");
- if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
- if(geo==1,
- alpha="abcdefghijklmnopqrstuvwxyz";
- forall(1..length(tmp1),
- tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
- Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"ptsize",3);
- tmp1_#=parse(tmp+".xy");
- );
- forall(1..length(tmp2),
- tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
- Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_1=parse(tmp+".xy");
- tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
- Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_2=parse(tmp+".xy");
- );
- BezierNumber=BezierNumber+1;
- );
- Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
- out=append(out,"bz"+tmp);
- );
- out;
-);
-
-Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
-Ospline(nm,ptlist,options):=(
-//help:Ospline("1",ptlist,[options]);
- regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
- p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- name="o"+nm;
- if(isstring(ptlist),list=parse(ptlist),list=ptlist);
- if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
-// list=apply(list,LLcrd(#));
- ctrL=[];
- forall(1..(length(list)-1),
- flg=0;
- p1=Lcrd(list_#); // 16.08.16
- p2=Lcrd(list_(#+1)); // 16.08.16
- if(#==1 % #==length(list)-1,
- flg=1;
- if(closed==0,
- pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
- pR=(2*p1+p2)/3; // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- flg=2;
- ,
- if(#==1,
- p0=Lcrd(list_(length(list)-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- ,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_2); // 16.08.16
- );
- );
- );
- if(flg<=1,
- if(flg==0,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- );
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
- pR=p2+cc*(p1-p3); // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- );
- );
-// list=apply(list,LLcrd(#)); // 16.08.16
-// ctrL=apply(ctrL,LLcrd(#));
- if(closed==0, // 15.09.21
- p1=ctrL_2_1;
- p2=Lcrd(list_2); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_1=[pQ];
- tmp=length(ctrL);
- tmp1=ctrL_(tmp-1);
- p1=ctrL_(tmp-1)_2;
- p2=Lcrd(list_(tmp)); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_tmp=[pQ];
- );
- Bezier("o"+nm,list,ctrL,options);
-);
-
-CRspline(nm,ptL):=CRspline(nm,ptL,[]);
-CRspline(nm,ptL,options):=(
- // Catmull-Rom spline
-//help:CRspline("1",[A,B,C,A]);
- regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
- name="crsp"+nm;
- if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
- ptlist=tmp_1;
- if(length(tmp)==1,
- cflg=1;
- ,
- cflg=0;
- ctrpts=tmp_2;
- );
- c=1/6;
- tmp=Divoptions(options);
- eqL=tmp_5;
- opcindy=tmp_(length(tmp)); // 15.03.05
- forall(eqL,
- if(substring(#,0,1)=="R",
- tmp2=indexof(#,"=");
- c=parse(substring(#,tmp2,length(#)));
- );
- );
- ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
- ctrlist=[];
- forall(1..(length(ptlist)-1),
- if(#==1,
- if(cflg==0,
- tmp1=ctrpts_1;
- ,
- v=ptlist_2-ptlist_(length(ptlist)-1);
- tmp1=ptlist_#+c*v;
- );
- ,
- v=ptlist_(#+1)-ptlist_(#-1);
- tmp1=ptlist_#+c*v;
- );
- if(#==length(ptlist)-1,
- if(cflg==0,
- tmp2=ctrpts_2;
- ,
- v=ptlist_2-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- ,
- v=ptlist_(#+2)-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- tmp=select(options,indexof(text(#),"->")>0);
- tmp=append(tmp,"notex"); //15.03.05
- Pointdata(name+text(#),[tmp1,tmp2],tmp);
- ctrlist=append(ctrlist,[tmp1,tmp2]);
- );
- Bezier(nm,ptlist,ctrlist,options);
-);
-
-Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
-//help:Beziersmooth("1",[A,B,C,A]);
-Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
-Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
-Bzspline(nm,ptLorg,options):=(
- // smooth bezier
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzsp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- lstr="c"+text(#);
- pt=ptLorg_#; // 16.08.16
- pt1=parse("C"+text(#-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp2="C"+text(#)+"p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp2],"PointOnLine",[parse(lstr),tmp]);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- tmp1="C1p";
- Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- if(cflg==1,
- lstr="c1";
- pt=ptLorg_1; // 16.08.16
- pt1=parse("C"+text(length(ptL)-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp1="C1p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp1],"PointOnLine",[parse(lstr),tmp]);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- if(#>1 % cflg==1,
- tmp1="c"+text(#);
- inspect(parse(tmp1),"alpha",0.3);
- );
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",3);
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
-Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
-Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
-Bzsspline(nm,ptLorg,options):=(
- // smooth bezier with symmetric control points
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzssp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- pt=ptL_#;
- pt1=parse("C"+text(#-1)+"q");
- tmp2="C"+text(#)+"p=2*pt-pt1";
- parse(tmp2);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
- inspect(C1p,"ptsize",3);
- inspect(C1p,"color",3);
- );
- if(cflg==1,
- pt=ptL_1;
- pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
- tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
- parse(tmp1);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Listbspline2bz(listorg):=(
- regional(Eps,list,pcl,ptl,ctrl,k);
- Eps=10^(-3);
- list=apply(listorg,Lcrd(#)); // 16.08.16
- k=length(list);
- if(|list_1-list_k|>Eps,
- pcl=list;
- pcl_1=2*list_1-list_2;
- pcl_k=2*list_k-list_(k-1);
- ,
- pcl=concat(list,[list_2]);
- );
- ctrl=apply(2..(length(pcl)-1),[pcl_#]);
- ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
- [ptl,ctrl];
-);
-
-Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
-Bspline(nm,ctrL,options):=(
-//help:Bspline("",[A,B,C]);
- regional(list,tmp);
- list=Listbspline2bz(ctrL);
- tmp=BezierCurve("b"+nm,list_1,list_2,options);
- tmp;
-);
-
-MeetCurve(Crv,Xorg,Yorg):=(
- regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
- if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
- if(MeasureDepth(Cv)==2,Cv=Cv_1);
- Cv=apply(Cv,LLcrd(#)); // 14.12.18
- while(length(Cv)==1,
- Cv=Cv_1;
- );
- Cv=apply(Cv,Lcrd(#));
- tmp1=min(apply(Cv,#_1));
- tmp2=max(apply(Cv,#_1));
- if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
- if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
- if(X0<tmp1,
- X0=tmp1;
- ,
- if(X0>tmp2,
- X0=tmp2;
- );
- );
- tmp1=select(
- 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
- tmp2=select(
- 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
- tmp2=remove(tmp2,common(tmp2,tmp1));
- Ban=concat(tmp1,tmp2);
- Tate=select(Ban,
- abs(Cv_#_1-Cv_(#+1)_1)<=
- 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
- );
- Ban=remove(Ban,Tate);
- Ylist=[];
- forall(Ban,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
- Ylist=append(Ylist,tmp);
- );
- forall(Tate,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp1=min([y1,y2]);
- tmp2=max([y1,y2]);
- if(Y0<tmp1,
- tmp=tmp1;
- ,
- if(Y0>tmp2,
- tmp=tmp2;
- ,
- tmp=Y0;
- );
- );
- Ylist=append(Ylist,tmp);
- );
- tmp=sort(Ylist,abs(#_1-Y0));
- [X0,tmp_1];
-);
-
-PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
-PutonLine(name,p1org,p2org,options):=(
-//help:PutonLine("C","sgAB");
-//help:PutonLine("C",pA,pB);
- regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- tmp1=(1-par)*p1+par*p2;
- if(abs(dx)>abs(dy),
- tmp=name+".x";
- tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
- Putpoint(name,tmp1,parse(tmp2));
- ,
- if(abs(dy)>0,
- tmp=name+".y";
- tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
- Putpoint(name,tmp1,parse(tmp2));
- ,
- tmp2=p1;//16.10.11
- Putpoint(name,tmp1,tmp2);
- );
- );
-);
-
-PutonSeg(name,sgstr):=(
- regional(seg,p1,p2);
- if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
- PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
-);
-PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
-PutonSeg(name,p1org,p2org,options):=(
-//help:PutonSeg("C","sgAB");
-//help:PutonSeg("C",pA,pB);
- regional(par,dx,dy,p,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- PutonLine(name,p1,p2,[par]);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- p=parse(name+".xy");
- p=LLcrd(p);
- if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");
- );
- );
- if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");//16.10.11upto
- );
- );
-);
-
-PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
-PutonCurve(pn,crv,options):=(
-//help:PutonCurve("A","gr1");
- regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
- if(!islist(options),optionL=[options],optionL=options);
- leftlim=XMIN;
- rightlim=XMAX;
- Flg=0;
- Msg="y";
- forall(optionL,
- if(isstring(#), // 16.02.10 from
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="N", Msg="n"); // 16.02.10 upto
- ,
- if(Flg==0,
- leftlim=#;
- Flg=Flg+1;
- ,
- rightlim=#;
- );
- );
- );
- Pmt=MeetCurve(crv,leftlim,0);
- pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
- if(!contains(pstr,pn),
- createpoint(pn,Pcrd(Pmt));
- ,
- tmp1=parse(pn+".x");
- if(tmp1< leftlim % tmp1>rightlim,
- if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
- Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
- ,
- Pmt=MeetCurve(crv,pn+".x",pn+".y");
- );
- ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
- parse(ptstr);
- );
- if(Msg=="y",
- println("Put "+pn+" on Curve "+text(crv));
- );
-);
-
-CrossPoint(name,Crv1,Crv2,range):=(
- regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
- Mx1=range_1; Mx2=range_2;
- repeat(15,
- Mx3=(Mx1+Mx2)/2;
- Crs1=MeetCurve(Crv1,Mx1,0);
- Crs2=MeetCurve(Crv2,Mx1,0);
- Crs3=MeetCurve(Crv1,Mx3,0);
- Crs4=MeetCurve(Crv2,Mx3,0);
- df1=Crs1_2-Crs2_2;
- df2=Crs3_2-Crs4_2;
- if((df1>0 & df2>0) % (df1<0 & df2<0),
- Mx1=Mx3;
- ,
- Mx2=Mx3;
- );
- );
- Putpoint(name,Crs1);
-);
-
-Setscaling(sc):=(
-//help:Setscaling(3);
- SCALEX=1;
- SCALEY=sc;
- Com0th("Setscaling("+sc+")");
- Setwindow("Msg=no");
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledatalight "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist));
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tabledata(nm,n,m,xsize,ysize,rmvL):=
- Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
-Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
- regional(Tb,name,tmp,xLst,yLst);
- name="tb"+nm;
- xLst=apply(1..n,xsize/n);
- yLst=apply(1..m,ysize/m);
- Tabledata(nm,xLst,yLst,rmvL,options)
-);
-Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
-Tabledata(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledata "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp="C"+text(#);
- tmp1="c"+text(#)+"r0";
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
- clist_(#+1)=parse(tmp+".xy");
- );
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp="R"+text(#);
- tmp1="c0r"+text(#);
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- rlist_(#+1)=parse(tmp+".xy");
- );
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(#<m,
- tmp1=parse("C"+text(#));
- tmp2=parse("C"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(#<n,
- tmp1=parse("R"+text(#));
- tmp2=parse("R"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist)); // 15.06.11
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tseginfo(seg):=(
- regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
- if(substring(seg,0,2)=="sg",
- cr=substring(seg,2,length(seg));
- ,
- cr=seg;
- );
- tp=substring(cr,0,1);
- if(tp=="c",
- tpc="r";
- ,
- tpc="c";
- );
- tmp1=indexof(cr,tpc);
- tmp=substring(cr,tmp1,length(cr));
- tmp2=tmp1+indexof(tmp,tpc);
- n1=substring(cr,1,tmp1-1);
- n2=substring(cr,tmp1,tmp2-1);
- n3=substring(cr,tmp2,length(cr));
- [tp+n1,tpc,parse(n2),parse(n3)];
-);
-
-Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
-Tsegrmv(rmvL,options):=(
- regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
- forall(rmvL,cr,
- tmp1=Tseginfo(cr);
- hd=tmp1_1;
- tpc=tmp1_2;
- m1=tmp1_3;
- m2=tmp1_4;
- gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
- flg=0;
- forall(gcL,
- if(flg==0,
- tmp=Tseginfo(#_1);
- n1=tmp_3;
- n2=tmp_4;
- if(m1>=n1 & m2<=n2,
- gc=#;
- flg=1;
- );
- );
- );
- if(flg==1,
- Changestyle([gc_1],["nodisp"]);
- tail="";
- if(indexof(hd,"r")>0,
- tail=hd; hd="";
- );
- if(n1<m1,
- tmp1=tpc+text(n1);
- tmp2=tpc+text(m1);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- if(m2<n2,
- tmp1=tpc+text(m2);
- tmp2=tpc+text(n2);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- );
- );
-);
-
-Tgrid(ptstr):=(
-//help:Tgrid("c2r5");
- regional(tmp,tmp1,tmp2);
- tmp=parse(ptstr);
- if(islist(tmp),
- tmp;
- ,
- tmp=indexof(ptstr,"r");
- tmp1=substring(ptstr,1,tmp-1);
- tmp1=parse(tmp1);
- tmp2=substring(ptstr,tmp,length(ptstr));
- tmp2=parse(tmp2);
- [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
- );
-);
-
-Tlistplot(ptL):=Tlistplot(ptL,[]);
-Tlistplot(Ag1,Ag2):=(
- regional(nm,ptL,options);
- if(isstring(Ag1),
- nm=Ag1;
- ptL=Ag2;
- options=[];
- ,
- ptL=Ag1;
- options=Ag2;
- nm=ptL_1+ptL_2;
- );
- Tlistplot(nm,ptL,options);
-);
-Tlistplot(nm,ptL,options):=(
-//help:Tlistplot(["c0r0","c0r4"]);
-//help:Tlistplot("1",["c0r0","c0r4"]);
- regional(tmp);
- tmp=apply(ptL,Tgrid(#)); // 15.06.03
- Listplot(nm,tmp,append(options,"Msg=no"));
-);
-
-ChangeTablestyle(nameL,style):=(
-////help:ChangeTablestyle(["r0c0c3"],["da"]);
- regional(nmL,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- nmL=apply(nmL,"sg"+#);
- nmL=select(nmL,islist(parse(#)));
- Changestyle(nmL,style);
-);
-
-Findcell(pos1,pos2):=Findcell("",pos1,pos2);
-Findcell(Tbdata,pos1,pos2):=(
-//help:Findcell("c0r0","c2r1");
- regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
- if(isstring(pos1),
- posnw=Tgrid(pos1); // 15.05.20
- posse=Tgrid(pos2);
- //posnw=parse(pos1);
- //posse=parse(pos2);
- ,
- if(islist(pos1),
- posnw=pos1;
- posse=pos2;
- ,
- tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
- tmp2="c"+text(pos1)+"r"+text(pos2);
- posnw=Tgrid(tmp1);
- posse=Tgrid(tmp2);
-// posnw=parse(tmp1);
-// posse=parse(tmp2);
- );
- );
- ctr=(posnw+posse)/2;
- dx=abs(posse_1-ctr_1);
- dy=abs(posnw_2-ctr_2);
- [ctr,dx,dy];
-);
-
-Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
-Putcell(Tbdata,pos1,pos2,dir,lttr):=(
-//help:Putcell("c0r0","c2r1","lt","abc");
-//help:Putcell(2,3,"c","xyz");
- regional(tmp,tmp1,tmp2,posnw,posse,
- posdir,posstr,ctr,dx,dy);
- tmp=Findcell(Tbdata,pos1,pos2);
- ctr=tmp_1; dx=tmp_2; dy=tmp_3;
- posdir=ctr;
- posstr=dir;
- if(indexof(dir,"b")>0,
- posdir_2=posdir_2-dy;
- posstr=replace(posstr,"b","n");
- );
- if(indexof(dir,"t")>0,
- posdir_2=posdir_2+dy;
- posstr=replace(posstr,"t","s");
- );
- if(indexof(dir,"l")>0,
- posdir_1=posdir_1-dx;
- posstr=replace(posstr,"l","e");
- );
- if(indexof(dir,"r")>0,
- posdir_1=posdir_1+dx;
- posstr=replace(posstr,"r","w");
- );
- Letter(posdir,posstr,text(lttr));
-);
-
-Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
-Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
-//help:Putcellexpr("c0r0","c2r1","lt","abc");
-//help:Putcellexpr(2,3,"c","\sin x");
- Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
-);
-
-Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
-Putrow(Tbdata,nrow,dir,lttrL):=(
-//help:Putrow(1,"c",["x","y","z"]);
- regional(tmp,tmp1,mcol);
- mcol=length(lttrL);
- forall(1..mcol,
- Putcell(Tbdata,#,nrow,dir,lttrL_#);
- );
-);
-
-Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
-Putrowexpr(Tbdata,nrow,dir,exL):=(
-//help:Putrowexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- Putrow(Tbdata,nrow,dir,lttrL);
-);
-
-PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
-PutcoL(Tbdata,mcol,dir,lttrL):=(
-//help:PutcoL(1,"c",["x","y","z"]);
- regional(tmp,tmp1,nrow);
- nrow=length(lttrL);
- forall(1..nrow,
- Putcell(Tbdata,mcol,#,dir,lttrL_#);
- );
-);
-PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
-PutcoLexpr(Tbdata,mcol,dir,exL):=(
-//help:PutcoLexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- PutcoL(Tbdata,mcol,dir,lttrL);
-);
-
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
-// XMIN=-5; XMAX=5;
-// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
- createpoint("SW",Pcrd([XMIN,YMIN]));
- createpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
-//help:Setwindow([2,3],[-1,1]);
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
-// Setwindow();
-);
-
-Sciform(list):=(
- regional(plotlist,comp,pos,out,out2,nn,strL,flg,
- tmp,tmp1,tmp2,tmp3,Nj);
- plotlist=Flatten([list]);
- out=replace(plotlist_1,".xy","");
- out=replace(out,".x","(1)");
- out=replace(out,".y","(2)");
- if(length(plotlist)==1,
- comp=[];
- forall(1..length(out),
- comp=append(comp,substring(out,#-1,#));
- );
- out="";
- pos=0;
- forall(comp,
- if(#!="'",
- out=out+#;
- ,
- if(pos==0,
- tmp=indexof(out,"Assign(");
- if(substring(out,length(out)-7,length(out))=="Assign(",
- out=out+"'";
- pos=1;
- ,
- out=out+"Assign('";
- pos=2;
- );
- ,
- if(pos==2,
- out=out+"')";
- ,
- out=out+"'";
- );
- pos=0;
- );
- );
- );
- ,
- forall(2..length(plotlist),
- comp=plotlist_#;
- if(isstring(comp),
- pos=indexof(comp,"Assign(");
- if(pos>0,
- comp=substring(comp,6,length(comp));
- );
- out=out+"Assign(";
- comp=replace(comp,".xy","");
- comp=replace(comp,".x","(1)");
- comp=replace(comp,".y","(2)");
- out=out+"'"+comp+"'";
- out=out+"),";
- );
- if(islist(comp),
- forall(comp,
- out=out+"'"+#+"',";
- );
- );
- );
- if(length(plotlist)>1,
- out=substring(out,0,length(out)-1);
- out=out+");";
- );
- );
- pos=[];
- forall(1..length(out),
- tmp=indexof(substring(out,#-1,length(out)),"Assign");
- if(tmp>0,
- tmp1=#-1+tmp;
- if(length(pos)==0,
- pos=[tmp1];
- ,
- if(pos_(length(pos))<tmp1,
- pos=append(pos,tmp1);
- );
- );
- );
- );
- if(length(pos)>0,
- strL=[];
- Nj=0;
- forall(pos,
- tmp=substring(out,Nj,#-1);
- strL=append(strL,tmp);
- Nj=#-1;
- );
- strL=append(strL,substring(out,Nj,length(out)));
- out="";
- forall(strL,
- if(indexof(#,"Assign")==0,
- out=out+#;
- ,
- tmp=indexof(#,"('");
- tmp1=indexof(#,"')");
- tmp2=substring(#,tmp+1,tmp1-2);
- tmp3=substring(#,tmp1-2,length(#));
- if(indexof(tmp2,"=")==0,
- out=out+#;
- ,
- tmp=substring(tmp2,0,indexof(tmp2,"="));
- out=out+"'"+tmp+"'+"+"Assign('";
- tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
- out=out+tmp+tmp3;
- );
- );
- );
- );
- out2=""; // patched 16.01.21 from
- nn=length(out);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=indexof(out,"='+Assign('");
- if(tmp==0,
- out2=out2+out;
- flg=1;
- ,
- out2=out2+substring(out,0,tmp);
- out=substring(out,tmp+10,length(out));
- tmp=indexof(out,"'"); // 16.04.19 from
- tmp1=substring(out,0,tmp-1);
- tmp2="1234567890";
- tmp=apply(1..length(tmp1),
- indexof(tmp2,substring(tmp1,#-1,#)));
- tmp=min(tmp);
- if(tmp==0, // 16.04.19 upto
- out2=out2+"'+Assign('";
- ,
- tmp=indexof(out,"'");
- out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto
- );
- );
- );
- );
- out2=replace(out2,"Dist=","D=");
- out2=replace(out2,"Dis=","D=");
- out2;
-);
-
-
-Rform(list):=(
- regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
- out=list;
- out=replace(out,"[[[","list([[");
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
- out=replace(out,".xy","");
- out=replace(out,".x","[1]");
- out=replace(out,".y","[2]");
- out;
-);
-
-Defvar(varstr):=(
- regional(name,value,tmp,tmp1);
- parse(varstr);
- tmp=indexof(varstr,"=");
- name=substring(varstr,0,tmp-1);
- value=substring(varstr,tmp,length(varstr));
- value=parse(value);
- tmp1=select(1..length(VLIST),VLIST_#_1==name+"=");
- if(length(tmp1)>0,
- tmp=tmp1_1;
- VLIST_tmp=[name+"=",value];
- ,
- VLIST=prepend([name+"=",value],VLIST);
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+format(#,5)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- tmp1=format(value,5);
- );
- tmp=name+"="+tmp1; // 15.02.06
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"="); // 15.02.08
- VLIST=prepend([name+"=",value],VLIST);
-);
-
-Iftosci(strorg):=( // 16.06.10
- regional(str,ifL,ppL,cpL,kk,sL,
- tmp,tmp1,tmp2,tmp3,tmp4);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ppL=Bracket(str,"()");
- cpL=Indexall(str,",");
- tmp1=Bracket(str,"[]");
- forall(1..(length(tmp1)/2),kk,
- cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1);
- );
- forall(1..length(ifL),kk,
- tmp=select(ppL,#_1>ifL_kk);
- tmp1=tmp_1;
- tmp2=select(tmp,#_2==-tmp1_2);
- tmp2=tmp2_1;
- tmp3=select(cpL,#>tmp1_1 & #<tmp2_1);
- ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3];
- );
- forall(1..length(cpL),kk,
- tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk));
- tmp1=tmp_(length(tmp));
- cpL_kk=[cpL_kk,tmp1];
- );
- sL=apply(1..length(str),substring(str,#-1,#));
- forall(1..length(ifL),kk,
- tmp1=ifL_kk_1;
- tmp2=ifL_kk_2;
- tmp=select(cpL,#_2==kk);
- tmp3=apply(tmp,#_1);
- sL_tmp1=" ";
- sL_tmp2=";end;";
- sL_(tmp3_1)=" then,";
- if(length(tmp3)>1,
- sL_(tmp3_2)=";else,";
- );
- );
- tmp=sum(sL);
-);
-
-Fortosci(strorg):=(
- regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4,
- Out,repL,Pflg,Iflg,Cflg);
- str=strorg;
- repL=[];
- tmp1=Indexall(str,"forall");
- tmp2=Indexall(str,",");
- forall(1..length(tmp1),jj,
- tmp=select(tmp2,#>tmp1_jj);
- var=substring(str,tmp_1,tmp_2-1);
- tmp3=substring(str,tmp1_jj-1,tmp_2-1);
- tmp=indexof(tmp3,"(");
- tmp4=substring(tmp3,tmp,length(tmp3));
- tmp=indexof(tmp4,",");
- tmp4=substring(tmp4,0,tmp-1);
- tmp4="for "+var+"="+tmp4;
- tmp4=replace(tmp4,"..",":");
- repL=concat(repL,[tmp3,tmp4]);
- );
- forall(1..length(repL)/2,
- str=replace(str,repL_(2*#-1),repL_(2*#));
- );
- tmp=Bracket(str);
- tmp=select(tmp,#_2==0);
- tmp=tmp_1_1;
- tmp1=substring(str,tmp-1,length(str));
- tmp1=replace(tmp1,")",";end");
- str=substring(str,0,tmp-1)+tmp1;
- str=replace(str,";;",";");
- str;
-);
-
-Deffun(name,bodylist):=(
-//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18
- regional(funstr,tmp,tmp1,str,Pos);
- funstr=name+":=(";
- forall(bodylist,
- funstr=funstr+#+";";
- );
- funstr=funstr+");";
- parse(funstr);
- tmp=bodylist_(length(bodylist));
- str="function "+tmp+"="+name+",";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");// 16.05.26
- tmp1=replace(tmp1," ","");// 16.05.26
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
- if(Pos==0,
- tmp=replace(tmp1,".xy","");
- tmp=replace(tmp,".x","(1)");
- tmp=replace(tmp,".y","(2)");
- if(indexof(tmp,"if(")>0,
- tmp=iftosci(tmp);
- );
- if(indexof(tmp,"forall(")>0, // 16.05.26from
- tmp=Fortosci(tmp);
- ); // 16.05.26upto
- str=str+tmp+",";
- );
- );
- str=str+"endfunction;";
- FUNLIST=append(FUNLIST,str);
-);
-
-Windispg():=(
- regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy);
- gsave();
- layer(KETPIClayer);
- forall(GCLIST,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
-// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
-// tmp2=apply(tmp2,Pcrd(#));
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- forall(2..length(Nk),
- tmp3=textformat(Nk_[#-1,#],5);
- tmp3=substring(tmp3,1,length(tmp3)-1);
- if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]");
- tmp="draw("+tmp3+
- ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- );
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
-// if(ADDAXES=="1", // 16.10.08from
-// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
-// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
-// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
-// Letter([[0,0],"sw","O"]);
-// ); // 16.10.08upto
- grestore();
- layer(0);
-);
-</script>
- <script type="text/javascript">
-var cdy = CindyJS({
- scripts: "cs*",
- use: ["katex"],
- defaultAppearance: {
- dimDependent: 0.7,
- fontFamily: "sans-serif",
- lineSize: 1,
- pointSize: 5.0,
- textsize: 12.0
- },
- angleUnit: "°",
- geometry: [
- {name: "SW", type: "Free", pos: [-2.5744680851063833, -4.0, 0.8525536333742482], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "NE", type: "Free", pos: [4.0, 2.4285714285714284, 0.44032989855593035], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "A", type: "Free", pos: [0.0, -4.0, -0.8], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "B", type: "Free", pos: [-0.02366863905325444, -4.0, 0.9484028584281579], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "a", type: "Segment", color: [0.0, 0.0, 1.0], args: ["A", "B"], labeled: true},
- {name: "C", type: "PointOnSegment", pos: [0.011092747971205843, -4.0, -1.619421523013707], color: [1.0, 0.0, 0.0], args: ["a"], labeled: true},
- {name: "E", type: "Free", pos: [0.0, -4.0, 0.6666666666666666], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "F", type: "Free", pos: [4.0, -2.1818181818181817, 0.36363636363636365], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "b", type: "Segment", color: [0.0, 0.0, 1.0], args: ["E", "F"], labeled: true},
- {name: "G", type: "PointOnSegment", pos: [2.8117446133333335, -4.0, 0.6666666666666666], color: [1.0, 0.0, 0.0], args: ["b"], labeled: true},
- {name: "H", type: "Free", pos: [0.0, -4.0, 0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "K", type: "Free", pos: [4.0, -2.5454545454545454, 0.36363636363636365], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "c", type: "Segment", color: [0.0, 0.0, 1.0], args: ["H", "K"], labeled: true},
- {name: "L", type: "PointOnSegment", pos: [0.5714285714285715, -4.0, 0.5714285714285714], color: [1.0, 0.0, 0.0], args: ["c"], labeled: true},
- {name: "M", type: "Free", pos: [-2.0, -4.0, -1.0], color: [1.0, 0.0, 0.0], size: 2.0},
- {name: "Text3", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.29, 0.29], fillalpha: 0.27272728085517883, script: "Viewtex();", text: "Texview", textsize: 18.0, dock: {corner: "UL", offset: [76.0, -20.0]}},
- {name: "Text4", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.498, 0.0], fillalpha: 0.27272728085517883, script: "kc();", text: "Exekc", textsize: 18.0, dock: {corner: "UL", offset: [157.0, -20.0]}},
- {name: "Text1", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 0.0], fillalpha: 0.27272728085517883, script: "if(length(Shellparent)>0,\n Makeshell(),Makebat();\n);\nWritetoSci(2);", text: "Parent", textsize: 18.0, dock: {corner: "UL", offset: [10.0, -20.0]}},
- {name: "Text0", type: "ToggleButton", color: [0.0, 0.0, 0.0], fillcolor: [0.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "Mkketcindyjs();", text: "KeTJS", textsize: 18.0, dock: {corner: "UL", offset: [225.0, -20.0]}}
- ],
- ports: [{
- id: "CSCanvas",
- width: 1052,
- height: 584,
- transform: [{visibleRect: [-9.745440419289913, 6.700770173058494, 16.50860137608266, -7.873716907262401]}],
- axes: true,
- grid: 1.0,
- snap: true,
- background: "rgb(168,176,192)"
- }],
- csconsole: false,
- cinderella: {build: 1894, version: [2, 9, 1894]}
-});
- </script>
-</head>
-<body>
- <div id="CSCanvas"></div>
-</body>
-</html>
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamow.cdy b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamow.cdy
index 2e926cd4..1305329e 100644
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamow.cdy
+++ b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamow.cdy
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamowketcindy.html b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamowketcindy.html
deleted file mode 100644
index 3acb1b2c..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/js03gamowketcindy.html
+++ /dev/null
@@ -1,6494 +0,0 @@
-<!DOCTYPE html>
-<html>
-<head>
- <meta charset="UTF-8">
-
- <title>js03gamow.cdy</title>
- <style type="text/css">
- * {
- margin: 0px;
- padding: 0px;
- }
-
- #CSConsole {
- background-color: #FAFAFA;
- border-top: 1px solid #333333;
- bottom: 0px;
- height: 200px;
- overflow-y: scroll;
- position: fixed;
- width: 100%;
- }
- </style>
- <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css">
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script>
- <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script>
-<script id="csdraw" type="text/x-cindyscript">
-Fhead="js03gamow";
-Ketinit();
-
-Changework(gethome()+"/Desktop");
-
-rotate(points,th):=(
- regional(pa,pb,za,zb,zr,deg);
- pa=points_1; pb=points_2;
- za=pa.x+pa.y*i; zb=pb.x+pb.y*i;
- deg=pi/180*th;
- zr=za+(zb-za)*(cos(deg)+i*sin(deg));
- [re(zr),im(zr)];
-);
-
-p1=rotate([A,C],90);
-p2=rotate([B,C],-90);
-Ds=0.5;
-red="color->[1,0,0]";
-
-Listplot([C,A]);
-Listplot([C,B]);
-Listplot("a",[A,p1]);
-Listplot("b",[B,p2]);
-Listplot("0",[p1,p2],[red]);
-Pointdata("a",p1,[red,"Size=4"]);
-Pointdata("b",p2,[red,"Size=4"]);
-if(norm(C.xy-pc)>Ds,
- ptsL=append(ptsL,[p1,p2]);
- pc=C.xy;
-);
-forall(1..(length(ptsL)),
- Listplot(text(#),ptsL_#,[red,"do"]);
-);
-
-Windispg();
-
-;
-</script>
-<script id="csinit" type="text/x-cindyscript">
-Ketinit():=Ketinit(1);
-Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
-Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2);
- PenThickInit=8;
- ULEN="1cm";
- KETPICLAYER=20;
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- KETPICCOUNT=1;
- KCOLOR=[0,0,0];
- GLIST=[];
- GCLIST=[];
-// GDATALIST=[];
- GOUTLIST=[];
- POUTLIST=[];
- VLIST=[];
- FUNLIST=[];
- LETTERlist=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- ADDAXES="1";
- LFmark=unicode("000a");
- Dq=unicode("0022");
- WaitUnit=10;
- CONTINUED=0;
- OutComList=[];
- OutFileLIst=[]; // 15.10.22
- FigPdfList=[]; // 16.04.08
- ADDPACK=[]; // 16.05.16
- ErrFlag=0;
- setdirectory(Dirwork);
- if(isstring(Fhead), // 15.04.06
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
- );
- if(!isstring(Mackc),// 16.06.07
- Mackc="sh";
- );
- ArrowlineNumber=1; // 15.01.05
- ArrowheadNumber=1;
- BezierNumber=1; //15.01.03
- SCALEX=1;
- SCALEY=sy;
-// Setscaling(sy);
- XMIN=rangex_1/SCALEX;
- XMAX=rangex_2/SCALEX;
- YMIN=rangey_1/SCALEY;
- YMAX=rangey_2/SCALEY;
- Setwindow("Msg=n"); // 16.05.31
-);
-
-DqDq(str):=unicode("0022")+str+unicode("0022");
-
-Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstr,options):=(
-//help:Tab2list(datastr);
-//help:Tab2list(options=[0]);
- regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2);
- crm=unicode("000d");
- lfm=unicode("000a");
- htm=unicode("0009");
- rep=0;
- if(length(options)>0,rep=options_1);
- first=lfm; // 16.09.05from
- if(indexof(dtstr,crm)>0,
- first=crm;
- if(indexof(dtstr,crm+lfm)>0,
- first=first+lfm;
- ); // 16.09.05upto
- );
- tmp1=Indexall(dtstr,first);
- tmp1=prepend(0,tmp1);
- tmp1=append(tmp1,length(dtstr));
- dtall=[];
- forall(1..(length(tmp1)-1),
- tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1);
- if(length(tmp)>0,
- dtall=append(dtall,tmp);
- );
- );
- out=[];
- forall(dtall,dt,
- tmp1=tokenize(dt,unicode("0009"));
- tmp2=[];
- forall(tmp1,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(!isreal(tmp),
- if(length(#)>0,tmp=#,tmp=rep);
- );
- tmp2=append(tmp2,tmp);
- );
- out=append(out,tmp2);
- );
- out;
-);
-
-Columnlist(dt,list):=( // 16.09.04
-//help:Columnlist(dt,1..3);
- apply(dt,#_list);
-);
-
-Dispmat(dt):=( // 16.09.16
-//help:Dispmat(dt);
- regional(htm,crm,lfm,row,tmp,tmp1,tmp2);
- htm=unicode("0009");
- crm=unicode("000d");
- lfm=unicode("000a");
- tmp2="";
- forall(dt,row,
- tmp1="";
- forall(row,
- if(isstring(#),
- tmp1=tmp1+#+htm;
- ,
- tmp1=tmp1+text(#)+htm;
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp1=tmp1+lfm;
- tmp2=tmp2+tmp1;
- );
- print(tmp2);
- println();
-);
-
-norm(v1):=( // 16.09.01
-//help:norm([2,1,3]);
- regional(out,tmp,tmp1,tmp2);
- out=0;
- forall(1..length(v1),
- out=out+(v1_#)^2;
- );
- out=sqrt(out);
- out;
-);
-norm(v1,v2):=(
- norm(v2-v1);
-);
-
-// 16.03.28
-Removespace(str):=(
-//help:Removespace(" a b c ");
- regional(tmp,flg,out);
- tmp=length(str)+1;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- if((str_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(str,tmp-1,length(str));
- flg=0;
- tmp=0;
- forall(reverse(1..length(out)),
- if(flg==0,
- if((out_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(out,0,tmp);
-);
-
-Indexall(str,key):=(
- regional(rest,out,flg,tmp,tmp1,);
- out=[];
- rest=str;
- flg=0;
- forall(1..length(str),
- if(flg==0,
- tmp=indexof(rest,key);
- if(tmp>0,
- tmp1=tmp+length(str)-length(rest);
- out=append(out,tmp1);
- rest=substring(rest,tmp,length(rest));
- ,
- flg=1;
- );
- );
- );
- out;
-);
-
-Changestyle(nameL,style):=(
-//help:Changestyle(["sgAB"],["da"]);
- regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp);
- tmp=Divoptions(style);
- Ltypeorg=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,name,
- Ltype=Ltypeorg;
- GCLIST=select(GCLIST,#_1!=name);
- COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Op(n,object):=( // 16.05.25
-//help:Op(4,[1,2,3,4]);
-//help:Op(3,"abcd");
- regional(out);
- if(islist(object),
- out=object_n;
- ,
- if(isstring(object),
- out=substring(object,n-1,n);
- );
- );
- out;
-);
-
-Toupper(str):=(
- regional(alphabet,out,tmp,tmp1);
- alphabet="abcdefghijklmnopqrstuvwxyz";
- out="";
- forall(1..length(str),
- tmp=substring(str,#-1,#);
- tmp1=indexof(alphabet,tmp);
- if(tmp1>0,
- out=out+unicode(text(tmp1+64),base->10);
- ,
- out=out+tmp;
- );
- );
- out;
-);
-
-Textformat(value,dig):=(
-//help:Textformat(2/3,4);
-//help:Textformat([gr1,gr2],5);
- regional(vv,tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+Textformat(#,dig)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- if(ispoint(value) % isstring(value),
-// vv=Lcrd(value);
-// tmp1=Textformat(vv,dig);
-// tmp1=text(value); // 15.04.07
- if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02
- ,
- tmp1=format(value,dig);
- );
- );
- tmp1;
-);
-
-Sprintf(value,dig):=(
-//help:Sprintf(5.1,4);
- regional(vv,tmp,tmp1);
- if(!islist(value),
- vv=Textformat(value,dig);
- if(indexof(vv,".")==0,vv=vv+".");
- vv=vv+"0000000000000000";
- tmp=indexof(vv,".")+dig;
- vv=substring(vv,0,tmp);
- ,
- vv=apply(value,Sprintf(#,dig));
- );
- vv;
-);
-
-Assign(funstr,vrL):=(
- regional(nn,out,tmp,tmp1);
- nn=length(vrL)/2;
- out=funstr;
- forall(1..nn,
- out=Assign(out,vrL_(2*#-1),vrL_(2*#));
- );
- out;
-);
-
-Assign(funstr,varname,rep):=(
-//help:Assign("x^2+a*x","a",1.3);
-//help:Assign("a*x^2+b*x",["a",1,"b",2]);
- regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg);
- if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06
- tmp=[46]; // 12.20
- tmp=concat(tmp,48..57);
- tmp=concat(tmp,65..90);
- tmp=concat(tmp,97..122);
- Notvar=apply(tmp,unicode(text(#),base->10));
- tmp2="";
- forall(1..100,
- ii=indexof(funstr,varname);
- if(ii>0,
- Flg=0;
- if(ii>1,
- tmp=substring(funstr,ii-2,ii-1);
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,ii);
- funstr=substring(funstr,ii,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- jj=ii-1+length(varname);
- if(jj<length(funstr),
- tmp=substring(funstr,jj,jj+1));
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,jj);
- funstr=substring(funstr,jj,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- tmp2=tmp2+substring(funstr,0,ii-1)+repstr;
- funstr=substring(funstr,jj,length(funstr));
- );
- );
- );
- funstr=tmp2+funstr;
- funstr;
-);
-
-MeasureDepth(list):=(
- regional(tmp,Depth,Flg);
- Flg=0;
- Depth=0;
- if(ispoint(list), // 15.01.22
- Depth=0;
- Flg=1;
- ,
- tmp=list_1;
- );
- repeat(4,
- if(Flg==0,
- if(islist(tmp),
- tmp=tmp_1;
- Depth=Depth+1;
- ,
- if(ispoint(tmp),Depth=Depth+1);
- Flg=1;
- );
- );
- );
- Depth;
-);
-
-Flattenlist(pltlist):=(
-//help:Flattenlist([[2,3],[[1,2],[5,6]]]);
- regional(Out,nn,Dt,ii,tmp,flg);
- Out=[];
- if(MeasureDepth(pltlist)==1,
- Out=[pltlist];
- ,
- forall(1..length(pltlist),nn,
- Dt=pltlist_nn;
- if(MeasureDepth(Dt)<2,
- Out=append(Out,Dt);
- ,
- forall(1..length(Dt),ii,
- tmp=Flattenlist(Dt_ii);
- Out=concat(Out,tmp);
- );
- );
- );
- );
- Out;
-);
-
-Divoptions(options):=(
-//help:Divoptions(options);
- regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1);
- Ltype="dr"; // 2015.01.13
- Noflg=0;
- Inflg=0;
- Outflg=0;
- eqL=[];
- realL=[];
- strL=[];
- opstr="";
- opcindy="";
- forall(options,
- flg=0;
- if(flg==0,
- if(isreal(#) % ispoint(#) % islist(#),
- realL=append(realL,#);
- opstr=opstr+","+text(#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"=")>0,
- eqL=append(eqL,#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"no")+indexof(#,"No")>0,
- if(indexof(#,"tex")>0,Noflg=1);
- if(indexof(#,"disp")>0,Noflg=2);
- if(indexof(#,"data")>0,Noflg=3);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"out")+indexof(#,"Out")>0,
- if(indexof(#,"-")==0,
- Outflg=1;
- ,
- Outflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"in")+indexof(#,"In")>0,
- if(indexof(#,"-")==0,
- Inflg=1;
- ,
- Inflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- tmp=substring(#,0,2);
- tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr");
- tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da");
- tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id");
- tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do");
- tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp");
- if(tmp1>0,
- Ltype=#;
- flg=1;
- );
- if(flg==0,
- strL=append(strL,#);
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- );
- if(indexof(opcindy,"color->")==0,// 16.10.07from
- opcindy=opcindy+",color->[0,0,0]";
- );
- [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy];
-);
-
-Dotprod(vec1,vec2):=(
-//help:Dotprod(vec1,vec2);
- regional(v1,v2,tmp);
- if(ispoint(vec1),v1=vec1.xy,v1=vec1);
- if(ispoint(vec2),v2=vec2.xy,v2=vec2);
- v1*v2;
-);
-
-Crossprod(a,b):=(
-//help:Crossprod(vec1,vec2);
- regional(tmp1,tmp2,tmp3,Out);
- 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];
- ,
- Out=a_1*b_2-a_2*b_1;
- );
- Out;
-);
-
-Ptstart(Fig):=(
-//help:Ptstart("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21
- tmp_1;
-);
-
-Ptend(Fig):=(
-//help:Ptend("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_(length(tmp)); // 15.04.12
-);
-
-Numptcrv(Fig):=(
-//help:Numptcrv("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23
- length(tmp);
-);
-
-Ptcrv(Num,Fig):=(
-//help:Ptcrv(10,"gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_Num;
-);
-
-Invert(Fig):=(
-//help:Invert("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27
- reverse(tmp);
-);
-Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27
-Invert(nm,Fig,options):=(
-//help:Invert("1","gr1");
- regional(name,tmp);
- name="-inv"+nm;
- tmp=Invert(Fig);
- Listplot(name,tmp,options);
-);// upto 16.01.27
-
-Paramoncrv(pP,Gdata):=(
- regional(Tmp,PtL);
-// Eps=10^(-8);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- Tmp=Nearestpt(pP,PtL);
- Tmp_2;
-);
-
-ParamonCurve(pP,nN,plist):=(
-//help:ParamonCurve(A,10,"gr1");
- regional(PtL,Out,Pa,Pb,vV,vW,sS);
- if(isstring(plist),PtL=parse(plist),PtL=plist);
- PtL=apply(PtL,LLcrd(#));//16.10.16
- if(nN==length(PtL),
- Out=nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- vV=Pb-Pa;
- vW=pP-Pa;
- sS=vV*vW/|vV|^2;
- sS=min([max([sS,0]),1]);
- Out=nN+sS;
- );
- Out;
-);
-
-Pointoncrv(tT,PtL):=PointonCurve(tT,PtL);
-PointonCurve(tT,Gdata):=(
-//help:PointonCurve(20.5,"gr1");
- regional(Out,Eps,nN,sS,Pa,Pb,PtL);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- if(length(PtL)==1,PtL=PtL_1);
- Eps=10^(-4);
- nN=floor(tT+Eps);
- sS=max([tT-nN,0]);
- if(nN==length(PtL),
- Out=PtL_nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- Out=(1-sS)*Pa+sS*Pb;
- );
- Out;
-);
-
-Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]);
-Koutenseg(pA,pB,pC,pD,options):=(
- regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2,
- em1,eM1,em2,eM2,rT,Tmp1,Tmp2);
- Eps0=10^(-4);
- pV=pB-pA;
- Sv2=|pV|;
- pP=pC-pA; pQ=pD-pA;
- Eps=10^(-3);
- Eps2=0.2;
- Tmp1=0;
- forall(options,
- if(Tmp1==0,
- Eps=#;
- Tmp1=1;
- ,
- Eps2=#;
- );
- );
- Flg=0;
- if(Sv2<10^(-3),
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- Eps=min([Eps2,Eps/Sv2]);
- p1=pP*pV/Sv2^2;
- p2=[pP_2,-pP_1]*pV/Sv2^2;
- q1=pQ*pV/Sv2^2;
- q2=[pQ_2,-pQ_1]*pV/Sv2^2;
- em1=-Eps; eM1=1+Eps;
- em2=-Eps; eM2=Eps;
- if(max([p1,q1])<em1 % min([p1,q1])>eM1,
- Out=["inf","inf"];
- Flg=1;
- );
- if(max([p2,q2])<em2 % min([p2,q2])>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- );
- if(Flg==0 & p2*q2<0,
- rT=p1-(q1-p1)/(q2-p2)*p2;
- if(rT>em1 & rT<eM1,
- if(rT>-Eps0 & rT<1+Eps0,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,0];
- ,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,1];
- );
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- );
- if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0),
- rT= p1;
- Tmp1=pA+rT*pV;
- Out= [Tmp1, rT, 0];
- Flg=1;
- );
- if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0),
- rT= q1;
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,0];
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([q1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2),
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- if(Flg==0,
- if(abs(p2)<abs(q2),
- rT=min([max([p1,0]),1]);
- ,
- rT=min([max([q1,0]),1]);
- );
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- );
- Out;
-);
-
-IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
-IntersectcrvsPp(Gr1,Gr2,options):=(
-//help:IntersectcrvsPp("gr1","pa1");
- regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2,
- Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj,
- pP,pQ,rT,Flg,eqL,realL,opstr,Dif);
- Eps=10^(-4);
- Eps2=0.1;
- Dif=0.05; // 2015.05.31
- Flg=0;
- Tmp1=Divoptions(options); //
- eqL=Tmp1_5;
- realL=Tmp1_6;
- opstr=Tmp1_(length(Tmp1));
- forall(eqL,
- if(substring(#,0,1)=="D",
- Tmp1=indexof(#,"=");
- Dif=parse(substring(#,Tmp1,length(#)));
- );
- );
- Tmp1=length(realL);
- if(Tmp1>0,
- Eps=realL_1;
- if(Tmp1>1,
- Eps2=realL_2;
- );
- );
- Flg=0;
- if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1);
- if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2);
- if(MeasureDepth(Data1)==2,Data1=Data1_1);
- if(MeasureDepth(Data2)==2,Data2=Data2_1);
- Data1=apply(Data1,LLcrd(#));
- Data2=apply(Data2,LLcrd(#));
- if(length(Data1)==length(Data2),
- Tmp1=Reverse(Data2);
- Eps0=10^(-6);
- Tmp2=0;
- forall(1..length(Data1),
- Tmp2=Tmp2+abs(Data1_#-Data2_#);
- );
- Tmp3=0;
- forall(1..length(Data1),
- Tmp3=Tmp3+abs(Data1_#-Tmp1_#);
- );
- if(Tmp2<Eps0 % Tmp3<Eps0,
- Out=[];
- Flg=1;
- );
- );
- if(Flg==0,
- KL1=[];
- KL2=[];
- forall(1..(length(Data1)-1),Ni,
- pA=Data1_Ni;
- pB=Data1_(Ni+1);
- forall(1..(length(Data2)-1),
- pP=Data2_#; pQ=Data2_(#+1);
- Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]);
- if(Tmp!=["inf","inf"],
- if(Tmp_3==0,
- Tmp1=[Tmp_1,Tmp_2,Ni,#];
- KL1=concat(KL1,[Tmp1]);
- ,
- Tmp2=[Tmp_1,Tmp_2,Ni,#];
- KL2=concat(KL2,[Tmp2]);
- );
- );
- );
- );
- Out=[];
- if(length(KL1)>0,
- Tmp=KL1_1;
- pP=Tmp_1;
- rT=Tmp_2;
- Ni=Tmp_3;
- Nj=Tmp_4;
- Tmp=[pP,Ni+rT,Nj];
- Out=[Tmp];
- );
- forall(2..length(KL1),Ni,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- rT=Tmp_2;
- Tmp1=Tmp_3;
- Tmp2=Tmp_4;
- Tmp=[pP,Tmp1+rT,Tmp2];
- Out=concat(Out,[Tmp]);
- );
- );
- forall(1..length(KL2),Ni,
- Tmp=KL2_Ni; // 15.11.21 Usui
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..length(Out),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL2_Ni;
- rT=Tmp_2;
- rT=min([max([rT,0]),1]); // 15.11.21 Usui
- Tmp=[pP,Tmp_3+rT,Tmp_4];
- Out=concat(Out,[Tmp]);
- );
- );
- );
- Tmp1=Out; // 15.04.06 from
- Out=[];
- forall(Tmp1,Tmp2,
- Tmp3=select(1..(length(Out)),|Out_#_1-Tmp2_1|<Dif);//16.11.27
- if(length(Tmp3)==0,
- Out=append(Out,Tmp2);
- ,
- forall(Tmp3,//16.11.27
- Out_#=(Out_#+Tmp2)/2;
- );
- );
- ); // 15.04.06 upto
- Out;
-);
-
-Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]);
-//help:Intersectcrvs("gr1","pa1");
-Intersectcrvs(Gr1,Gr2,options):=(
- regional(tmp,tmp1,tmp2);
- tmp1=IntersectcrvsPp(Gr1,Gr2,options);
- apply(tmp1,#_1);
-);
-
-NearestptcrvPhy(point,PL):=(
- regional(tmp,pP,plist);
- pP=Pcrd(point);
- if(isstring(PL),plist=parse(PL),plist=PL);
- if(MeasureDepth(plist)==2,plist=plist_1);
- plist=apply(plist,#); // 14.12.18
- tmp=Nearestpt(pP,plist);
- tmp=tmp_1;
- [tmp_1/SCALEX,tmp_2/SCALEY];
-);
-
-Nearestptcrv(point,plist):=(
-//help:Nearestptcrv(A,"gr1");
- regional(tmp);
- tmp=Nearestpt(point,plist);
- tmp_1;
-);
-
-Nearestpt(point,PL2):=(
- regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni,
- a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg);
-//help:Nearestpt("gr1","gr2");
- if(isstring(point),PL1=parse(point),PL1=point);
- if(MeasureDepth(PL1)==2,PL1=PL1_1);
- if(!islist(PL1_1),
- PL1=[PL1];
- Flg=0;
- ,
- Flg=1;
- );
- if(isstring(PL2),PL=parse(PL2),PL=PL2);
- if(MeasureDepth(PL)==2,PL=PL_1);
- Eps=10^(-6);
- Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|];
- forall(1..length(PL1),Nn, // 16.05.04
- pA=PL1_Nn;
- Pm=PL_1;
- Im=1;
- Sm=|Pm-pA|;
- forall(1..(length(PL)-1),Ni,
- a1=PL_Ni_1; a2=PL_Ni_2;
- b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2;
- v1=b1-a1; v2=b2-a2;
- x1=pA_1; x2=pA_2;
- Tmp=v2^2+v1^2;
- if(abs(Tmp)>Eps,
- rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp;
- if(rT<-Eps,
- pP=[a1,a2];
- ,
- if(rT>1+Eps,
- pP=[b1,b2];
- ,
- pP=[a1+rT*v1,a2+rT*v2];
- );
- );
- sS=|pP-pA|;
- if(sS<Sm-Eps,
- Tmp=ParamonCurve(pP,Ni,PL);
- Pm=pP; Lm=Tmp; Sm=sS;
- );
- );
- if(Sm<Ans_5, // 16.05.03from
- Ans=[pA,Nn,Pm,Lm,Sm];
- );
- ); // 16.05.03upto
- );
- if(Flg==0,
- Ans=Ans_(3..5);
- );
- Ans;
-);
-
-Derivative(fun,var,value):=(
-//help:Derivative("x^3","x",2);
- regional(str,tmp);
- str="d(";
- str=str+replace(fun,var,"#")+",";
- str=str+value+")";
- tmp=Pcrd([1,parse(str)]); // 14.11.08
- tmp_2;
-);
-
-Integrate(pltdata,range):=Integrate(pltdata,range,[]);
-Intergrate(Arg1,Arg2,Arg3):=(
- regional(pltdata,range,options,fnstr,vartr);
- if(islist(Arg2),
- pltdata=Arg1;
- range=Arg2;
- options=Arg3;
- Integrate(pltdata,range,options);
- ,
- fnstr=Arg1;
- vastr=Arg2;
- range=Arg3;
- Integrate(fnstr,vastr,range,[]);
- );
-);
-
-Integrate(pltdata,range,options):=(
-//help:Integrate("gr1",[1,3]);
-//help:Integrate("gr1",[1,3],["Rule=t"]);
- regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2);
- tmp=Divoptions(options);
- eqL=tmp_5;
- Rule="o";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Rule=substring(#,tmp,tmp+1);
- );
- );
- if(Rule=="o",
- Sm= IntegrateO(pltdata,range);
- ,
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- list=apply(list,LLcrd(#)); // 15.09.14
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- ptP=list_#; // 15.09.14
- ptQ=list_(#+1);
- Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2;
- );
- Sm;
- );
-);
-
-Integrate(fnstr,vastr,range,options):=(
-//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]);
- regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2);
- Num=100;
- Way="t";
- forall(options,
- if(indexof(#,"=")>0,
- if(indexof(#,"N=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(indexof(#,"Num=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Way=substring(#,tmp,tmp+1);
- );
- );
- );
- Sm=0;
- if(Way=="t",
- forall(1..Num,
- Lx=range_1+(range_2-range_1)*(#-1)/Num;
- Rx=range_1+(range_2-range_1)*#/Num;
- va1=parse(replace(fnstr,vastr,textformat(Lx,5)));
- va2=parse(replace(fnstr,vastr,textformat(Rx,5)));
- Sm=Sm+(va1+va2)*(Rx-Lx)/2;
- );
- ,
- sx=range_1;
- ex=range_2;
- dx=(ex-sx)/Num;
- xn=apply(0..Num,sx+#*dx);
- yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5))));
- dx=dx/2;
- repeat(Num,s,
- x0=xn_s;
- x1=(xn_s+xn_(s+1))/2;
- x2=xn_(s+1);
- y0=yn_s;
- y1=parse(replace(fnstr,vastr,textformat(x1,5)));
- y2=yn_(s+1);
- Sm=Sm+dx*(y0+4*y1+y2)/3;
- );
- );
- Sm;
-);
-
-IntegrateO(p0org,p1org,p2org,p3org):=(
- regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02,
- p11,p12,p21,p22,p31,p32, tmp);
- if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10
- if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16
- if(ispoint(p2org),p2=p2org.xy,p2=p2org);
- if(ispoint(p3org),p3=p3org.xy,p3=p3org);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp=tmp/20;
-);
-IntegrateO(pltdata,rangeorg):=(
-//help:IntegrateO("gr1",[0,2]);
- regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg,
- Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- range=rangeorg;
- pmflg=1;
- if(range_2<range_1,
- range=reverse(range);
- pmflg=-1;
- );
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- if((length(list)>0) & (list_1_1>list_(length(list))_1),
- list=reverse(list);
-// pmflg=pmflg*(-1);
- );
- list=apply(list,LLcrd(#));
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- p1=list_#;
- p2=list_(#+1);
- if(#==1 % #==length(list)-1,
- tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2;
- Sm=Sm+tmp1;
- ,
- p0=list_(#-1);
- p3=list_(#+2);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp1=tmp1/20;
- Sm=Sm+tmp1;
- );
- );
- if(pmflg==-1,
- Sm=-Sm;
- );
- Sm;
-);
-
-Findarea(pdstr):=(
-//help:Findarea("sgABCA");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=(p1_2+p2_2)*(p2_1-p1_1)/2;
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findarea(pdstr):=( // 15.11.27
-//help:Findarea("cr1");
- regional(pd,p0,p1,p2,p3,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=pd_#;
- p2=pd_(#+1);
- if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1));
- if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2));
- tmp=IntegrateO(p0,p1,p2,p3);
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findlength(pdstr):=(
-//help:Findlength("gr1");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=|p2-p1|;
- s=s+tmp;
- );
- s;
-);
-
-Inversefun(fnstr,rngstr,value):=(
- regional(tmp,varstr,range,x1,x2,x3,va1,va2);
- tmp=indexof(rngstr,"=");
- varstr=substring(rngstr,0,tmp-1);
- range=parse(substring(rngstr,tmp,length(rngstr)));
- x1=range_1; x2=range_2;
- repeat(15,
- x3=(x1+x2)/2;
- va1=parse(replace(fnstr,varstr,textformat(x1,5)));
- va2=parse(replace(fnstr,varstr,textformat(x3,5)));
- if((va1>value & va2>value) % (va1<value & va2<value),
- x1=x3;
- ,
- x2=x3;
- );
- );
- va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value;
- va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value;
- if(x1==range_1 % x2==range_2,
- println("not found in ("+textformat(range_1,5)
- +","+textformat(range_2,5)+")");
- );
- if(abs(va1)<=abs(va2),x1,x2);
-);
-
-Lcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=[pt.x/SCALEX,pt.y/SCALEY];
- ,
- tmp=pt;
- );
- tmp;
-);
-
-Pcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=re(pt.xy); // 15.07.24
- ,
- tmp=[pt_1*SCALEX,pt_2*SCALEY];
- );
- tmp;
-);
-
-LLcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=pt.xy
- ,
- tmp=pt;
- );
- tmp=[tmp_1/SCALEX,tmp_2/SCALEY];
- tmp;
-);
-
-Doscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Unscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Definecolor(name,data):=(
-//help:Definecolor("mycolor",[1,1,1,0]);
- regional(type,tmp);
- if(length(data)>3,type="cmyk",type="rgb");
- tmp=text(data);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}";
- Texcom(tmp);
-);
-
-Setcolor(Par):=(
-//help:Setcolor([1,0,0,1]);
-//help:Setcolor([1,1,0]);
- if(islist(Par),
- if(length(Par)==3,
- Setcolorrgb(Par); // 2015.04.28
-// KCOLOR=Par;
- );
- if(length(Par)==4,
- Setcolor(Par,[]);
- );
- ,
- Setcolor(Par,[]);
- );
-);
-
-Setcolor(colorname,options):=(
-//help:Setcolor("greenyellow",0.3);
- regional(tmp);
- if(isstring(colorname),
- tmp="Setcolor("+Dq+colorname+Dq;
- if(length(options)>0,
- tmp=tmp+","+text(options_1);
- );
- Com2nd(tmp+")");
- );
- if(islist(colorname),
- tmp=text(colorname);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
- );
-);
-
-Setcolorrgb(colorlist):=(
-// help:Setcolorrgb([0.5,0.3,0.4]);
- regional(tmp);
- tmp=text(colorlist);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
-);
-
-ColorRgb2Cmyk(clr):=(
-// help:ColorRgb([0.2,0.5,0.1]);
- regional(clrnew,tmp,black);
- tmp=apply(clr,1-#);
- black=min(tmp);
- tmp=apply(clr,(1-#-black)/(1-black));
- clrnew=append(tmp,black);
- clrnew;
-);
-
-ColorCmyk2Rgb(clr):=(
-// help:ColorRgb([0.2,0.5,0.1,0.2]);
- regional(clrnew,tmp,black);
- black=clr_4;
- tmp=apply(clr,1-min(1,#*(1-black)+black));
- clrnew=tmp_(1..3);
- clrnew;
-);
-
-Colorrgbhsv(rgb):=(
- regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB);
- varR = rgb_1;
- varG = rgb_2;
- varB = rgb_3;
- varMin = min( [varR, varG, varB] );
- varMax = max( [varR, varG, varB] );
- delMax = varMax - varMin ;
- vv = varMax;
- if ( delMax == 0 ,
- hh = 0 ;
- ss = 0 ;
- ,
- ss = delMax / varMax;
- delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax;
- if( varR == varMax ,
- hh = delB - delG;
- ,
- if ( varG == varMax,
- hh = ( 1 / 3 ) + delR - delB;
- ,
- if ( varB == varMax ,
- hh = ( 2 / 3 ) + delG - delR;
- );
- );
- );
- if ( hh < 0 ,hh = hh+1);
- if ( hh > 1 ,hh = hh-1);
- );
- [hh*360,ss,vv];
-);
-
-Colorhsvrgb(sL):=(
- regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL);
- tmp=[sL_1/60,sL_2,sL_3];
- hi=mod(floor(tmp_1),6);
- ff=tmp_1-floor(tmp_1);
- tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)];
- tmp2=append(tmp2,tmp_3);
- if(hi==0,dL=tmp2_[4,3,1]);
- if(hi==1,dL=tmp2_[2,4,1]);
- if(hi==2,dL=tmp2_[1,4,3]);
- if(hi==3,dL=tmp2_[1,2,4]);
- if(hi==4,dL=tmp2_[3,1,4]);
- if(hi==5,dL=tmp2_[4,1,2]);
- dL;
-);
-
-Colorrgbhsl(rgb):=(
- regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll);
- rr = rgb_1 ;
- gg = rgb_2 ;
- bb = rgb_3 ;
- mn = min([rr, gg, bb]);
- mx = max([rr, gg, bb]);
- delta = mx - mn;
- ll = (mx + mn) / 2;
- if (delta == 0,
- hh=0;
- ss=0;
- ,
- if (ll < 0.5,
- ss = delta/ (mx + mn);
- ,
- ss = delta / (2 - mx - mn);
- );
- deltaR = (((mx - rr) / 6) + (delta / 2)) / delta;
- deltaG = (((mx - gg) / 6) + (delta / 2)) / delta;
- deltaB = (((mx - bb) / 6) + (delta / 2)) / delta;
- if (rr == mx,
- hh = deltaB - deltaG;
- ,
- if (gg == mx,
- hh = (1 / 3) + deltaR - deltaB;
- ,
- if (bb == mx,
- hh = (2 / 3) + deltaG - deltaR;
- );
- );
- );
- if ( hh < 0, hh = hh+1);
- if ( hh > 1, hh = hh-1);
- );
- [hh*360,ss,ll];
-);
-
-Colorhslrgb(hsl):=(
- regional(hh,ss,ll,rr,gg,bb,var1,var2);
- hh=hsl_1/360;
- ss=hsl_2;
- ll=hsl_3;
- if ( ss == 0.0,
- rr = ll ;
- gg = ll ;
- bb = ll ;
- ,
- if ( ll < 0.5 ,
- var2 = ll * ( 1.0 + ss );
- ,
- var2 = ( ll + ss ) - ( ss * ll );
- );
- var1 = 2.0 * ll - var2;
- rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) );
- gg = hue2rgb( var1, var2, hh );
- bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) );
- );
- [rr,gg,bb];
-);
-
-hue2rgb(vv1,vv2,vh):=(
- regional(out);
- if ( vh < 0.0 ,vh =vh+1);
- if ( vh > 1.0 ,vh =vh-1);
- if ( 6.0*vh < 1.0 ,
- out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ;
- ,
- if( 2.0*vh < 1.0 ,
- out = vv2;
- ,
- if ( 3.0*vh < 2.0 ,
- out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ;
- ,
- out= vv1 ;
- );
- );
- );
- out;
-);
-
-Colorrgbhwb(sL):=(
- regional(dl1,dl2,dl3);
- dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1;
- dl2 = min(sL);
- dl3 = 1 - max(sL);
- dL= [dl1, dl2 , dl3 ];
-);
-
-Colorhwbrgb(sLorg):=(
- regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg);
- sL=sLorg;
- sL=[sL_1/360,sL_2,sL_3];
- ratio = sL_2 + sL_3;
- // sL_2 + sL_3 cant be > 1
- if (ratio > 1.,
- sL_2 =sL_2 / ratio;
- sL_3 = sL_3 / ratio;
- );
- ii = floor(6 * sL_1);
- vv = 1 - sL_3;
- ff = 6 * sL_1 - ii;
- if(mod(ii,2)==1,ff = 1 - ff);
- nn = sL_2 + ff * (vv - sL_2); // linear interpolation
- tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn],
- [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]];
- flg=0;
- forall(0..6,
- if(flg==0 & ii == # ,
- dL=tmp_(#+1);
- flg=1;
- );
- );
- dL;
-);
-
-Colorhslhsv(sL):=(
- regional(dl1,dl2,dl3,dL);
- dl1=sL_1;
- if(sL_3 == 0,
- // no need to do calc on black
- // also avoids divide by 0 error
- dL= [0, 0, 0];
- ,
- sL_3 = sL_3 * 2;
- if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3));
- dl3 = (sL_3 + sL_2) / 2;
- dl2 = (2 * sL_2) / (sL_3 + sL_2);
- dL = [dl1, dl2, dl3];
- );
- dL;
-);
-
-Colorcode(src,dest,sL):=(
-//help:Colorcode("rgb","cmyk",[1,0.5,0]);
- regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg);
- regional(dl1,dl2,dl3);
- if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL));
- if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL));
- if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL));
- if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL));
- if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL));
- if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL));
- if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL));
- if(src=="hsv" & dest=="hsl",
- dl1 = sL_1;
- dl3 = (2 - sL_2) * sL_3;
- dl2 = sL_2 * sL_3;
- if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3));
- dl3 =d l3/ 2;
- dL = [dl1, dl2 , dl3 ];
- );
-
- if(src=="rgb" & dest=="cmyk",
- tmp=apply(sL,1-#);
- black=min(tmp);
- tmp=apply(sL,(1-#-black)/(1-black));
- dL=append(tmp,black);
- );
- if(src=="cmyk" & dest=="rgb",
- black=sL_4;
- tmp=apply(sL,1-min(1,#*(1-black)+black));
- dL=tmp_(1..3);
- );
- if(src=="hsv" & dest=="cmyk",
- tmp=Colorcode("hsv","rgb",sL);
- dL=Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsv",
- tmp=Colorcode("cmyk","rgb",sL);
- dL=Colorcode("rgb","hsv",tmp);
- );
-
- if(src=="hsv" & dest=="hwb",
- tmp = Colorcode("hsv","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsv",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsv",tmp);
- );
- if(src=="hsl" & dest=="hwb",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsl",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="hsl" & dest=="cmyk",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="hwb" & dest=="cmyk",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsl",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="cmyk" & dest=="hwb",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL));
- if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL));
-
- if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL));
- if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL));
-
- if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL));
- if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL));
-
- if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL));
- if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL));
-
- dL;
-);
-
-Addcolor(cmdorg,list):=(
-//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]);
- regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4);
- cmd=replace(cmdorg,"'",Dq);
- if(length(list)==3,
- rgb=list;
- cmyk=Colorcode("rgb","cmyk",list);
- ,
- cmyk=list;
- rgb=Colorcode("cmyk","rgb",list);
- );
- tmp1="color->"+text(rgb);
- tmp2="Setcolor("+text(cmyk)+");";
- tmp3=substring(cmd,0,length(cmd)-2);
- tmp=substring(tmp3,length(tmp3)-1,length(tmp3));
- if(tmp!="[",
- tmp3=tmp3+",";
- );
- tmp3=tmp3+Dq+tmp1+Dq+"])";
- parse(tmp2);
- parse(tmp3);
- Setcolor("black");
-);
-
-Colorinfile(filename,clrf,clrt):=(
- regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body);
- if(length(clrf_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrf,text(#));
- cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- if(length(clrt_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrt,text(#));
- chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- tmp1=load(filename);
- tmp=tokenize(tmp1,"{\unitlength");
- head=tokenize(tmp_1,"%%%");
- head=head_(2..length(head));
- head=apply(head,"%%%"+#);
- tmp2=tmp_2;
- forall(1..5,
- tmp2=replace(tmp2,cstrL_#,chstrL_#);
- );
- body=tokenize(tmp2,"%");
- body_1="{\unitlength"+body_1;
- body=apply(body,#+"%");
- body=body_(1..(length(body)-1));
- tmp=replace(filename,".tex","new.tex");
- SCEOUT=openfile(tmp);
- forall(head,
- println(SCEOUT,#);
- );
- forall(1..length(body),
- tmp=body_#;
- if(#<length(body),
- println(SCEOUT,tmp);
- ,
- print(SCEOUT,tmp)
- );
- );
- closefile(SCEOUT);
-);
-
-GetLinestyle(str,name):=(
- regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg);
- Ltype=-1;
- Dop="";
- tmp1=indexof(str,",");
- if(tmp1>0,
- Dop=","+substring(str,tmp1,length(str));
- );
- noflg=parse(substring(str,0,1));
- if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29
- tmp1=substring(str,1,3);
- if(tmp1=="dr" % tmp1=="Dr",
- Ltype=0;
- if(noflg==0 & subflg==0, // 16.02.29
- Drwline(name+Dop);
- );
- );
- if(tmp1=="da" % tmp1=="Da",
- Ltype=1;
- if(noflg==0 & subflg==0, // 16.02.29
- Dashline(name+Dop);
- );
- );
- if(tmp1=="id" % tmp1=="Id",
- Ltype=2; // 15.11.09
- if(noflg==0 & subflg==0, // 16.02.29
- Invdashline(name+Dop);
- );
- );
- if(tmp1=="do" % tmp1=="Do",
- Ltype=3;
- if(noflg==0 & subflg==0, // 16.02.29
- Dottedline(name+Dop);
- );
- );
- if(tmp1=="dp" % tmp1=="Dp",
- Ltype=0;
- tmp1=parse(name);
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#_1,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- if(noflg==0,
- Drwpt(tmp2+Dop);
- );
- );
- if(tmp1=="no" % tmp1=="No",
- Ltype=10;
- );
- Ltype;
-);
-
-Chunderscore(str):=(
- regional(flg,tmp,tmp1,tmp2,tmp3);
- if(indexof(str,"]")>0,
- tmp1=replace(str,"]",",]");
- ,
- tmp1=str+",";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- if(indexof(str,"]")>0,
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,"[","list(");
- ,
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
- tmp1;
-);
-
-//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]);
-AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]);
-// if(isstring(Arg2),
-// AddGraph(Arg1,Arg2,[]);
-// ,
-// if(MeasureDepth(Arg2)>0,
-// Addgraph(Arg1,Arg2,[]);
-// ,
-// Addgraph("-"+Arg1,Arg1,Arg2);
-// );
-// );
-//);
-AddGraph(nm,pltdata,options):=(
-//help:AddGraph("1","imp1"); // 16.04.04
-//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]);
- regional(name,Ltype,Noflg,opcindy,pdata,fname,flg,
- tmp,tmp1,tmp2,tmp3);
- if(substring(nm,0,1)=="-",
- name=substring(nm,1,length(nm));
- ,
- name="ad"+nm;
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_9;
- if(isstring(pltdata),
- pdata=parse(pltdata)
- ,
- if(!islist(pltdata),pdata=[pltdata],pdata=pltdata);
- pdata=apply(pdata,parse(#));
- ); // 15.01.22
- pdata=Flattenlist(pdata);
- tmp1=[];
- forall(pdata,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- pdata=tmp1;
- if(Noflg<3,
- println("generate addgraph "+name);
- tmp=name+"="+textformat(pdata,5);
- parse(tmp);
- if(isstring(pltdata), // 16.04.04 from
- if(indexof(pltdata,"]")>0,
- tmp1="list(Listplot("+substring(pltdata,1,length(pltdata));
- tmp1=replace(tmp1,"]",",]");
- ,
- tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..length(tmp1),
- if(flg==0,
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,",","),Listplot(");
- if(indexof(pltdata,"[")>0,
- tmp1=tmp1+")";
- );
- GLIST=append(GLIST,name+"="+tmp1);
- ,
- if(MeasureDepth(pdata)==1,
- tmp1=name+"=Listplot("+textformat(pdata,5)+")";
- ,
- tmp1="list(";
- forall(1..length(pdata),
- tmp=name+"p"+textformat(#,5)+"=";
- if(length(pdata_#)>1, // 15.01.22
- tmp=tmp+"Listplot("+textformat(pdata_#,5)+")";
- ,
- tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")";
- );
- GLIST=append(GLIST,tmp);
- tmp1=tmp1+name+"p"+textformat(#,5)+",";
- );
- tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")";
- );
- GLIST=append(GLIST,tmp1);
- );
- ); // 16.04.04 upto
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]);
-Joincrvs(nm,plotstrL,options):=(
-//help:Joincrvs("1",["sgAB","sgDCB"]);
- regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg);
- name="join"+nm;
- plotlist=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- tmp=apply(tmp,LLcrd(#));
- ,
- tmp=str;
- );
- plotlist=append(plotlist,tmp);
- );
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Eps=tmp1_1);
- QdL=[];
- forall(plotlist,Qd,
- if(ispoint(Qd_1) % !islist(Qd_1_1),
- QdL=concat(QdL,[Qd]);
- ,
- forall(Qd,
- QdL=concat(QdL,[#]);
- );
- );
- );
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..length(QdL),Ni,
- Qd=QdL_Ni;
- if(Numptcrv(Qd)>1,
- pP=Ptend(PtL);
- pS=Ptstart(PtL);
- pQ=Ptstart(Qd);
- pR=Ptend(Qd);
- rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]);
- if(rMN==|pP-pR|,
- Qd=reverse(Qd);
- ,
- if(rMN==|pS-pQ|,
- PtL=reverse(PtL);
- ,
- if(rMN==|pS-pR|,
- PtL=reverse(PtL);
- Qd=reverse(Qd);
- );
- );
- );
- );
- if(rMN>Eps,
- PtL=concat(PtL,Qd);
- ,
- PtL=concat(PtL,Qd_(2..length(Qd)));
- );
- );
- );
- if(Noflg<3,
- println("generate joincurve "+name);
- tmp1=apply(PtL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1="";
- forall(plotstrL,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PtL;
-);
-
-Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]);
-Partcrv(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv("1",A,B,"sgABC");
-//help:Partcrv("1",1.3,2.5,"sgABC");
- regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP,
- opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg);
- name="part"+nm;
- if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr);
- DepthFlg=0;
- if(MeasureDepth(PkL)==2,
- PkL=PkL_1;
- DepthFlg=1;
- );
- PkL=apply(PkL,LLcrd(#));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- Flg=0;
- if(isreal(pA),
- if(pA>pB+Eps,
- Npt=Numptcrv(PkL);
- Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]);
- Out2=Partcrv("",1,pB,PkLstr,["nodata"]);
- tmp=Ptstart(PkL)-Ptend(PkL);
- if(|tmp|<Eps,
- Ans=Joincrvs("",[Out1,Out2],["nodata"]);
- ,
- Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))];
- );
- Flg=1;
- );
- if(Flg==0,
- nS=ceil(pA);
- nE=floor(pB);
- PPL=[];
- if(pA<nS-Eps,
- pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS;
- PPL=[pP];
- );
- PPL=concat(PPL,PkL_(nS..nE));
- if(pB>nE+Eps,
- pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1);
- PPL=concat(PPL,[pP]);
- );
- Ans=PPL;
- Flg=1;
- );
- );
- if(Flg==0,
- tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL);
- Ta=tmp_2;
- tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12
- Tb=tmp_2;
- Ans=Partcrv("",Ta,Tb,PkL,["nodata"] );
- Ans=apply(Ans,Pcrd(#));
- );
- if(Noflg<3,
- println("generate partcrv "+name);
- tmp1=apply(Ans,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST, // 16.04.03
- if(DepthFlg==0,
- tmp=PkLstr;
- ,
- tmp=PkLstr+"(1)";
- );
- tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5)
- +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03
- GLIST=append(GLIST,tmp1);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Ans;
-);
-
-Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]);
-Opcrvs(num,Fig,options):=(
- //help:Subgraph(2,"grfs");
- regional(name,tmp,tmp1);
- name="-"+Fig+text(num);
- tmp=Fig+"_"+text(num);
- tmp1=parse(tmp);
- Listplot(name,tmp1,options);
-);
-
-
-Pointdata(nm,list):=Pointdata(nm,list,[]);
-Pointdata(nm,list,options):=(
-//help:Pointdata("1",[2,4],["Size=5"]);
-//help:Pointdata("2",[[2,3],[4,1]]);
- regional(name,nameL,ptlist,opstr,opcindy,
- eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="pt"+nm;
- nameL=name+"L";
- println("generate pointdata "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- size="";
- eqL=tmp_5;
- if(length(eqL)>0,
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="s" % tmp=="S",
- tmp=indexof(#,"=");
- size=substring(#,tmp,length(#));
- );
- );
- );
- tmp=MeasureDepth(list);
- if(tmp>0, // 2015.02.21
- if(tmp==1,ptlist=list,ptlist=list_1);
- tmp=apply(ptlist,[textformat(Pcrd(#),5)]);
- tmp1=text(tmp);
- tmp2=substring(tmp1,1,length(tmp1)-1);
- tmp3=tmp1;
- ,
- ptlist=list;
- tmp1=textformat(Pcrd(ptlist),5);
- tmp2=tmp1;
- tmp3="["+tmp1+"]";
- );
- tmp=name+"="+tmp1;
- parse(tmp);
- tmp=nameL+"="+tmp3;
- parse(tmp);
- if(Noflg<3,
- GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
- );
- if(Noflg<2,
- tmp=[nameL,0,opcindy];
- GCLIST=append(GCLIST,tmp);
- if(Noflg==0,
- if(length(size)>0,
- Com2nd("Setpt("+size+")");
- );
- thick=PenThick/PenThickInit; // 16.04.09 from
- if(length(size)>0,tmp1=parse(size),tmp1=1);
- tmp1=max(tmp1,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- Com2nd("Drwpt(list("+name+")"+opstr+")");
- Setpen(thick); // 16.04.09
- if(length(size)>0,
- Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")");
- );
- );
- );
- ptlist;
-);
-
-Listplot(nm,list,options):=(
-//help:Listplot([A,B]);
-// help:Listplot(["A","B"]);
-//help:Listplot("1",[[2,1],[3,3]]);
-//help:Listplot(options2=["Msg=yes"]);
- regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg);
- if(substring(nm,0,1)=="-", // 16.01.27 from
- name=substring(nm,1,length(nm));
- ,
- name="sg"+nm;
- ); // upto
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1; // 15.09.17
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1); // 16.06.28
- if(Toupper(tmp1)=="N", // 16.06.28
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Listplot "+name);
- );
- if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24
- ptlist=apply(tmp,Pcrd(#));
- tmp=name+"="+textformat(ptlist,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp1=apply(list,Lcrd(#));
- tmp1;
-);
-Listplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Listplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Listplot(name,list,options);
- );
-);
-Listplot(list):=Listplot(list,[]);
-
-Lineplot(nm,list,options):=(
-//help:Lineplot([A,B]);
-//help:Lineplot("1",[[2,1],[3,3]]);
- regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi,
- Vec,pA,pB,Ltype,Noflg);
- name="ln"+nm;
- Mag=100;
- Semi="";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- tmp1=tmp_6;
- if(length(tmp1)>0,Mag=tmp1_1);
- tmp1=tmp_7;
- if(length(tmp1)>0,Semi=tmp1_1);
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- Vec= Mag/dist(pA,pB)*(pB-pA);
- if(length(Semi)==0,
- Out=[pA-Vec,pA+Vec];
- ,
- if(Semi=="+",
- Out=[pA,pA+Vec];
- ,
- Out=[pA-Vec,pA];
- );
- );
- if(Noflg<3,
- println("generate Lineplot "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Lineplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Lineplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Lineplot(name,list,options);
- );
-);
-Lineplot(list):=Lineplot(list,[]);
-
-Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]);
-Plotdata(name1,func,variable,options):=(
-//help:Plotdata("1","sin(x)","x",["Num=100"]);
-//help:Plotdata("2","x^2","x=[-1,1]");
-//help:Plotdata("3","Fout(x)","x",["out"]);
- regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx,
- PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gr"+name1;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- Eps=10^(-3);
- tmp=replace(func,LFmark,"");
- tmp=tokenize(variable,"=");
- Vname=tmp_1;
- if(length(tmp)>1,
- tmp=tmp_2;
- tmp=parse(tmp);
- x1=tmp_1;
- x2=tmp_2;
- ,
- x1=XMIN;
- x2=XMAX;
- );
- // dx=(x2-x2)/Num;
- Ec=append(sort(Ec),10000);
- Fun=Assign(func,Vname, "xx");
- Exfun=Assign(Exfun,Vname, "xx");
- PdL=[];
- Ke=1;
- forall(0..Num,
- xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1)
- if(length(Exfun)>0,
- tmp=parse(Exfun);
- if(abs(tmp)<Eps,
- if(length(Pdt)>0,
- PdL=concat(PdL,["inf"]);
- );
- );
- ,
- Pa=[];
- if(xx-Ec_Ke<-Eps,
- Pa=[xx,parse(Fun)];
- );
- if(abs(xx-Ec_Ke)<=Eps,
- if(length(PdL)>0,
- if(PdL_(length(PdL))_1!="inf",
- Pa=["inf"];
- );
- );
- );
- if(xx-Ec_Ke>Eps,
- Pa=[xx,parse(Fun)];
- Ke=Ke+1;
- );
- if(length(Pa)>0,
- if(Pa_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(length(PdL)==0,
- PdL=[Pa];
- ,
- tmp=PdL_(length(PdL));
- if(tmp_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(dist(tmp,Pa)<Dc,
- PdL=concat(PdL,[Pa]);
- ,
- PdL=concat(PdL,[["inf"],Pa]);
- );
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(PdL),PdL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[PdL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(PdL),
- tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]);
- );
- PdL=tmp1;
- if(length(PdL)==1,
- PdL=PdL_1;
- );
- if(Noflg<3,
- println("generate Plotdata "+name);
- if(MeasureDepth(PdL)==1,
- tmp1=apply(PdL,Pcrd(#));
- ,
- tmp1=[];
- forall(PdL,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(func,LFmark,"");
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Plotdata "+name);
- tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Plotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]);
-Paramplot(name1,funstr,variable,options):=(
-//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]");
- regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num,
- Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gp"+name1;
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- tmp=indexof(variable,"=");
- vname=substring(variable,0,tmp-1);
- str=substring(variable,tmp,length(variable));
- Rng=parse(str);
- t1=Rng_1; t2=Rng_2;
- dt=(t2-t1)/Num;// differs from Scilab ( / Num-1)
- func=Assign(funstr,vname,"tt");
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=parse(func);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=parse(func);
- ke=ke+1;
- );
- if(length(pa)>0,
- if(pa_1=="inf",
- Out=append(Out,pa);
- ,
- if(length(Out)==0,
- Out=[pa];
- ,
- tmp=Out_(length(Out));
- if(tmp_1=="inf",
- Out=append(Out,pa);
- ,
- if(|tmp-pa|<Dc,
- Out=append(Out,pa);
- ,
- Out=concat(Out,[["inf"],pa]);
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(Out),Out_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[Out_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
- );
- Out=tmp1;
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Paramplot "+name);
- if(MeasureDepth(Out)==1,
- tmp1=apply(Out,Pcrd(#));
- ,
- tmp1=[];
- forall(Out,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(funstr,LFmark,""); // 15.11.13
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Paramplot "+name);
- tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Paramplotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Circledata(cenrad):=Circledata(cenrad,[]);
-Circledata(para1,para2):=(
-//help:Circledata([A,B],["Rng=[0,pi/2]"]);
-//help:Circledata([A,B,C]);
- regional(name,cenrad,options,str,n);
- if(isstring(para1),
- name=para1;
- cenrad=para2;
- options=[];
- ,
- cenrad=para1;
- options=para2;
- name="";// 16.10.07from
- forall(cenrad,
- name=name+#.name;
- );// 16.10.07upto
- );
- Circledata(name,cenrad,options);
-);
-Circledata(nm,cenrad,options):=(
- regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy,
- tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps);
- name="cr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Rg=[0,2*pi];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="R",
- Rg=parse(tmp1);
- );
- );
- if(length(cenrad)==2,
- Ctr=Lcrd(cenrad_1);
- Ptcir=Lcrd(cenrad_2);
- ra=dist(Ctr,Ptcir);
- ,
- Eps=10^(-1);
- pA=Lcrd(cenrad_1);
- pB=Lcrd(cenrad_2);
- pC=Lcrd(cenrad_3);
- tmp=pB-pA;
- tmp1=(tmp_2,-tmp_1);
- tmp=pC-pB;
- tmp2=(tmp_2,-tmp_1);
- d1=det([tmp1,tmp2]);
- d2=det([pC-pA,tmp2]);
- if(abs(d1)<Eps & abs(d2)>10*Eps,
- println("points are in a line");
- ra=0;
- ,
- Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1;
- ra=|pA-Ctr|;
- tmp=name+"center="+Ctr;
- parse(tmp);
- Defvar(name+"center",Ctr);
- );
- );
- if(ra>0,
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- ,
- Out=Lineplot("1",[pA,pB],["nodata"]);
- );
- if(Noflg<3,
- println("generate Circledata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- if(length(cenrad)==2,
- tmp=name+"=Circledata("+cenrad+opstr+")";
- ,
- if(ra>0,
- tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")";
- ,
- tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")";
- );
- );
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata():=(
- regional(pA,pB);
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB]);
-);
-Framedata(list):=Framedata(list,[]);
-Framedata(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Framedata(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";// 16.10.07from
- forall(list,
- name=name+#.name;
- );// 16.10.07upto
- Framedata(name,list,options);
- );
-);
-
-Framedata(nm,list,options):=(
-//help:Framedata();
-//help:Framedata([A,B]);
-//help:Framedata("1",[A,B]);
-//help:Framedata("1",[C,dx,dy]);
- regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy,
- opcindy,Ltype,Noflg,cent,dx,dy);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(length(list)==2, // 15.05.12
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2);
- ,
- pA=Lcrd(list_1);
- dx=list_2; dy=list_3;
- );
- x1=pA_1-dx; x2=pA_1+dx;
- y1=pA_2-dy; y2=pA_2+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]);
-Framedata(nm,cent,dx,dy,options):=(
- regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- x1=cent.x-dx; x2=cent.x+dx;
- y1=cent.y-dy; y2=cent.y+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata2(nm,list):=Framedata2(nm,list,[]);
-Framedata2(nm,list,options):=(
-//help:Framedata2("1",[A,B]);
- regional(tmp,tmp1,pC,pB);
- pC=(Lcrd(list_1)+Lcrd(list_2))/2;
- pB=Lcrd(list_2);
- Framedata(nm,[pC,pB],options);
-);
-
-Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]);
-Ovaldata(nm,Pdata,options):=(
-//help:Ovaldata("1",[A,B]);
-//help:Ovaldata(optios=[size]);
- regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph,
- opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="ov"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- Rc=0.2;
- tmp1=tmp_6;
- if(length(tmp1)>0,Rc=tmp1_1*Rc);
-// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15
- Ctr=Lcrd(Pdata_1);
- if(ispoint(Pdata_2) % islist(Pdata_2),
- tmp1=Lcrd(Pdata_2);
- Dx=abs(tmp1_1-Ctr_1);
- Dy=abs(tmp1_2-Ctr_2);
- ,
- Dx=Pdata_2;
- Dy=Pdata_3;
- );
- Point=Ctr+[Dx-Rc,Dy-Rc];
- tmp1=Circledata("1",[Point,Point+[Rc,0]],
- ["Rng=[0,pi/2]","Num=10","nodata"]);
- tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]],
- ["nodata"]);
- tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]],
- ["nodata"]);
- Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]);
- tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]);
- Graph=Joincrvs("1",[Graph,tmp1],["nodata"]);
- tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]],
- ["nodata"]);
- Graph=Joincrvs("2",[Graph,tmp2],["nodata"]);
- if(Noflg<3,
- println("generate Ovaldata "+name);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,
- name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5);
- GLIST=append(GLIST,
- name+"=Ovaldata("+tmp+opstr+")");
- );
- Graph;
-);
-
-Segmark(nm,ptlist):=Segmark(nm,ptlist,[]);
-Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options);
-Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]);
-Drawsegmark(nm,ptlist,options):=(
-//help:Segmark("1",[A,B]);
-//help:Segmark(options=["Type=1","Width=1","Size=1"]);
- regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL,
- tmp,tmp1,tmp2);
- name="mrk"+nm;
- pA=ptlist_1;
- pB=ptlist_2;
- size=0.15;
- wid=0.05;
- tp=1;
- tmp1=Divoptions(options);
- eqL=tmp1_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- tmp1=parse(tmp1);
- tmp=substring(#,0,1);
- if(tmp=="S" % tmp=="s",
- size=size*tmp1;
- );
- if(tmp=="W" % tmp=="w",
- wid=wid*tmp1;
- );
- if(tmp=="T" % tmp=="t",
- tp=tmp1;
- );
- );
- mid=(pA+pB)/2;
- dir=(pB-pA)/|pB-pA|;
- nor=[-dir_2,dir_1];
-// nor=nor/|nor|;
- if(tp==1,
- tmp1=mid+size*nor;
- tmp2=mid-size*nor;
- Listplot(name,[tmp1,tmp2]);
- );
- if(tp==2,
- tmp1=mid+wid*dir+size*nor;
- tmp2=mid+wid*dir-size*nor;
- Listplot(name+"r",[tmp1,tmp2]);
- tmp1=mid-wid*dir+size*nor;
- tmp2=mid-wid*dir-size*nor;
- Listplot(name+"l",[tmp1,tmp2]);
- );
- if(tp==3,
- tmp1=mid;
- tmp2=mid+size*dir;
- Circledata(name,[tmp1,tmp2]);
- );
- if(tp==4,
- tmp=mid+size*2/sqrt(3)*nor;
- tmp1=mid+size*dir-size/sqrt(3)*nor;
- tmp2=mid-size*dir-size/sqrt(3)*nor;
- Listplot(name,[tmp,tmp1,tmp2,tmp]);
- );
-);
-
-Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]);
-Parabolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5,5]";
- options=Arg;
- );
- Parabolaplot(nm,ptlist,rng,options);
-);
-Parabolaplot(nm,ptlist,rng,options):=(
-//help:Parabolaplot("1",[A,B,C]):
-//help:Parabolaplot("1",[A,B,C],"[-5,5]");
- regional(pA,pB,pC,angle,tmp,tmp1,tmp2);
- tmp1=Lcrd(ptlist_1);
- tmp2=Lcrd(ptlist_3);
- pB=Lcrd(ptlist_2);
- tmp=(tmp2-pB)/|tmp2-pB|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pA=Rotatepoint(tmp1,-angle,pB);
- pC=Rotatepoint(tmp2,-angle,pB);
- tmp1=1/(2*(pA_2-pB_2));
- tmp2=1/2*(pA_2+pB_2);
- tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2";
- tmp=tmp+"+("+format(tmp2,5)+")";
- tmp1=parse(rng);
- tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2];
- tmp2="x="+textformat(tmp1,5);
- Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp"));
- Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB));
-);
-
-Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]);
-Ellipseplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[0,2*pi]";
- options=Arg;
- );
- Ellipseplot(nm,ptlist,rng,options);
-);
-Ellipseplot(nm,ptlist,rng,options):=(
-//help:Ellipseplot("1",[A,B,3]);
-//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]);
- regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=|tmp2-pA|+|tmp2-tmp1|;
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(d^2/4-f^2);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]";
- tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]";
- Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp"));
- Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA));
-);
-
-Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]);
-Hyperbolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5/2,5/2]";
- options=Arg;
- );
- Hyperbolaplot(nm,ptlist,rng,options);
-);
-Hyperbolaplot(nm,ptlist,rng,optionsorg):=(
-//help:Hyperbolaplot("1",[A,B,C],["Num=200"]):
-//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]);
- regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2);
- tmp=Divoptions(optionsorg);
- eqL=tmp_5;
- options=optionsorg;
- opasy=[];
- forall(eqL,
- if(Toupper(substring(#,0,1))=="A",
- tmp=indexof(#,"=");
- opasy=[substring(#,tmp,length(#))];
- options=remove(options,[#]);
- );
- );
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=abs(|tmp2-pA|-|tmp2-tmp1|);
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(f^2-d^2/4);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp"));
- tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp"));
- tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"];
- Rotatedata(nm+"hyp",tmp,angle,append(options,pA));
- if(length(opasy)>0,
- Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]);
- Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]);
- tmp=["ln"+nm+"asy1","ln"+nm+"asy2"];
- Rotatedata(nm+"asy",tmp,angle,append(opasy,pA));
- );
-);
-
-Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]);
-Polygonplot(nm,ptlist,number,options):=(
-//help:Polygonplot("1",[A,B],12);
- regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- pB=Lcrd(ptlist_2);
- rr=|pB-pA|;
- tmp=(pB-pA)/rr;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- ptL=[];
- forall(0..number,
- tmp=angle+#*2*pi/number;
- tmp1=pA+rr*[cos(tmp),sin(tmp)];
- if(#>0 & #<number,
- Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07
- //Pointdata(nm,ptL);
- );
- tmp2=tmp1;
- ptL=append(ptL,tmp1);
- );
- Listplot(nm+"ply",ptL,options);
-);
-
-Putintersect(nm,pdata1,pdata2):=(
-//help:Putintersect("Q","gr1","gr2");
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)==1,
- Putpoint(nm,tmp_1);
- ,
- if(length(tmp)==0,
- err("No intersect point");
- ,
- err("Multiple intersect points");
- println(tmp);
- err("Choose point number");
- );
- );
-);
-Putintersect(nm,pdata1,pdata2,ptno):=(
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)>0,
- Putpoint(nm,tmp_ptno);
- ,
- err("No intersect point");
- );
-);
-
-Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]);
-Arrowheaddata(point,direction,options):=(
-//help:Arrowheaddata(A,B);
- regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB,
- pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy);
- Eps=10^(-3);
- pP=point;
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Str=YaStyle;
- tmp=Divoptions(options);
- tmp1=tmp_6;
- if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1);
- if(length(tmp1)>1,
- tmp=tmp1_2;
- if(tmp<5,
- Hiraki=Hiraki*tmp;
- ,
- Hiraki=tmp;
- );
- );
- Flg=0;
- Hiraki=Hiraki*pi/180;
- if(isstring(direction),Houkou=parse(direction),Houkou=direction);
- if(MeasureDepth(Houkou)==2,Houkou=Houkou_1);
- if(islist(Houkou_1),
-// pP=Lcrd(pP);
-// pP=Doscaling(pP);
-// Houkou=Dosscaling(Houkou);
- pP=Pcrd(pP);
- scy=SCALEY;
- SCALEY=1;
- tmp=Nearestpt(pP,Houkou);
- pA=tmp_1;
- rF=floor(tmp_2);
- if(rF==1,
- if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps,
- rF=Numptcrv(Houkou);
- );
- );
- gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]);
- Flg=0;
- forall(1..rF,Nj,
- if(Flg==0,
- pB=Ptcrv(rF+1-Nj,Houkou);
- tmp=IntersectcrvsPp([pA,pB],gG);
- if(length(tmp)>0,
- Houkou=pP-tmp_1_1;
- Flg=1;
- );
- pA=pB;
- );
- );
- SCALEY=scy;
- if(Flg==0,
- println("Arrowhead may be too large (no intersect)");
- Flg=2;
- );
- if(Flg==1,
- Houkou=Unscaling(Houkou);
- pP=Unscaling(pP);
- );
- );
- if(Flg<2,
-// pP=Doscaling(pP);
-// Houkou=Doscaling(Houkou);
- pP=Pcrd(pP);
- if(!ispoint(point),
- Houkou=Pcrd(Houkou);
- );
-// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou));
- Ev=-1/|Houkou|*Houkou;
- Ev=Lcrd(Ev);
- Nv=[-Ev_2, Ev_1];
- if(indexof(Str,"c")>0,
- pP=pP-0.5*Ookisa*cos(Hiraki)*Ev;
- );
- if(indexof(Str,"b")>0,
- pP=pP-Ookisa*cos(Hiraki)*Ev;
- );
- pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv;
- pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv;
- list=[pA,pP,pB];
- list=apply(list,LLcrd(#));
-// Out=Unscaling(Out);
- list;
- );
-);
-
-Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]);
-Arrowhead(point,Houkou,options):=(
-//help:Arrowhead(B,B-A,[1.5,30]);
-//help:Arrowhead(A,"gr1");
- // global ArrowheadNumber
- regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list);
- name="arh"+text(ArrowheadNumber);
- ArrowheadNumber=ArrowheadNumber+1;
- ptstr=textformat(point,5);
- if(isstring(Houkou), // 15.01.11
- tmp=parse(Houkou);
- if(MeasureDepth(tmp)<2,
- hostr=Houkou;
- ,
- hostr=Houkou+"(1)";
- );
- ,
- if(ispoint(point),
- hostr=textformat(LLcrd(Houkou),5);
- ,
- hostr=textformat(Houkou,5);
- );
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- list=Arrowheaddata(point,Houkou,options);
- if(Noflg<3,
-// println("generate Arrowhead "+name);
- tmp1=apply(list,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST,name+"=Listplot("+list+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(1)+Ltype,name);
- ,
-// if(Noflg==1,Ltype=0);
- Ltype=0;
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- if(Noflg==0,
- if(length(reL)<3, // 16.04.09 from
- forall(1..(2-length(reL)),
- opstr=opstr+",1";
- );
- tmp=PenThick/PenThickInit;
- opstr=opstr+","+text(tmp);
- ); // 16.04.09 upto
- Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")");
- );
-);
-
-Arrowdata(ptlist):=Arrowdata(ptlist,[]);
-Arrowdata(Arg1,Arg2):=(
- regional(tmp,nm,ptlist,flg,pA,pB,options);
- flg=0;
- if(isstring(Arg1),
- nm=Arg1;
- ptlist=Arg2;
- Arrowdata(nm,ptlist,[]);
- flg=1;
- );
- if(flg==0,
- tmp=MeasureDepth(Arg1);
- if(tmp==0,
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,[]);
- ,
- ptlist=Arg1;
- options=Arg2;
- nm=text(ArrowlineNumber);
- ArrowlineNumber=ArrowlineNumber+1;
- Arrowdata(nm,ptlist,options);
- );
- );
-);
-Arrowdata(Arg1,Arg2,options):=(
-//help:Arrowdata([A,B],[2,10]);
- regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size,
- flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos);
- Retflg=0;
- Noflg=0;
- Ltype=0;
- if(!isstring(Arg1),
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,options,"old");
- Retflg=1;
- ptlist=[pA,pB];
- );
- if(Retflg==0,
- nm=Arg1;
- ptlist=Arg2;
- name="ar"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- realL=tmp_6;
- strL=tmp_7;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- size=1; // 15.06.11
- if(length(realL)>0,
- size=realL_1;
- );
- tmp2=select(strL,indexof(#,"l")>0); // 16.04.09
- if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09
- segpos=1;
- tmp1=tmp_5;
- if(length(tmp1)>2,
- segpos=tmp1_3;
- );
- if(Noflg<3,
-// println("generate Arrowdata "+name);
- tmp1=apply(ptlist,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=Pcrd(ptlist_1);//16.10.20
- tmp2=Pcrd(ptlist_2);//16.10.20
- if(lineflg==0, // 16.04.09 from
- tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11
- ,
- tmp=tmp2;
- ); // 16.04.09 upto
- tmp=[LLcrd(tmp1),LLcrd(tmp)];//16.10.20
- GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- tmp=textformat(ptlist,5);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp1=indexof(tmp,"],[");
- if(tmp1>0,
- pA=substring(tmp,0,tmp1);
- pB=substring(tmp,tmp1+1,length(tmp));
- ,
- tmp1=indexof(tmp,",");
- pA=substring(tmp,0,tmp1-1);
- pB=substring(tmp,tmp1,length(tmp));
- );
- tmp1="Lcrd("+pA+")+"
- +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))";
- tmp1=parse(tmp1);
- tmp2="Lcrd("+pB+")-Lcrd("+pA+")";
- tmp2=parse(tmp2);
- Arrowhead(tmp1,tmp2,options);
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- ptlist;
-);
-Arrowdata(pA,pB,options,str):=(
- regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy);
- Astr=textformat(pA,5);
- Bstr=textformat(pB,5);
- name="ar"+pA.name+pB.name;
- println("generate Arrow "+name);
- opstr="";
- opcindy="";
- forall(options,
- if(isstring(#),
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- ,
- tmp="'"+#+"'";
- );
- ,
- tmp=text(#);
- );
- opstr=opstr+","+tmp;
- );
- ptA=Lcrd(pA);
- ptB=Lcrd(pB);
- Arrowheaddata(ptB,ptB-ptA,options);
- tmp="connect("+textformat([ptA,ptB],5)
- +",linecolor->"+text(KCOLOR)+opcindy+");";
- parse(tmp); // 14.11.17
- Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04
-);
-
-Anglemark(plist):=Anglemark(plist,[]);
-Anglemark(Arg1,Arg2):=( // 2015.04.28 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Anglemark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Anglemark(nm,plist,options);
- );
-); // upto
-Anglemark(nm,plist,options):=(
-//help:Anglemark([A,B,C],["E=\theta",2]);
-//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]);
-//help:Anglemark(options=["E/L=(sep,)letter",size]);
- regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg);
- name="ag"+nm;
- ra=0.5;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- Bname="";
- Brat=1.5;
- Num=20;
- if(length(realL)>0,
- ra=realL_1*ra;
- opstr=opstr+","+text(realL_1);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Bpos+","+Dq+"c"+Dq+","+Dq;//16.10.29
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- sab=pB-pA;
- sac=pC-pA;
- Rg=[arctan2(sab)+0,arctan2(sac)+0];
- if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi);
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- if(length(Bname)>0,
- Th=(Rg_1+Rg_2)/2;
- tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
- tmp="Defvar("+Dq+Bpos+"=";
- tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(plist,5);
- tmp1=substring(tmp,1,length(tmp)-1);
- tmp=name+"=Anglemark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Paramark(plist):=Paramark(plist,[]);
-Paramark(plist,options):=(
-//help:Paramark([A,B,C],["E=\theta"]);
- regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- tmp=substring(tmp,1,length(tmp)-1);
- name="pm"+tmp;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- ra=0.5;
- Bname="";
- Brat=1.2;
- if(length(realL)>0,
- tmp=realL_1;
- ra=tmp*ra;
- opstr=opstr+","+text(tmp);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- Out=[];
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|);
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|);
- Out=append(Out,pA+ra*(pC-pA)/|pC-pA|);
- if(length(Bname)>0,
- tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|;
- tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate paramark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Paramark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-MakeBowdata(pA,pB,Hgt):=(
- regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA);
- angle=arctan2(pB-pA)+0;
- pB2=Rotatepoint(pB,-angle,pA);
- tmp=Lcrd(pA);
- pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt];
- dMA=|tmp-pB2|/2;
- ra=(dMA^2+Hgt^2)/(2*Hgt);
- pC2=[pH2_1,pB2_2+(ra-Hgt)];
- pC=Rotatepoint(pC2,angle,pA);
- Th1=arctan2(pA-pC2)+angle;
- Th2=arctan2(pB2-pC2)+angle;
- [pC,ra,Th1,Th2];
-);
-
-Bowdata(nm,plist,options):=(
-//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]);
-//help:Bowdata([A,B],["Expr=t0n3,a"]);
-//help:Bowdata([A,B],["Exprrot=t0n2r,a"]);
- regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL,
- Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC,
- Th1,Th2,Noflg,Bops,Bmov,Tmov,Nmov,rev);
- name="bw"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- pA=Lcrd(plist_1); pB=Lcrd(plist_2);
- Hgt=1/2*|pB-pA|*0.2;
- Cut=0;
- Num=24;
- Bname="";
- Tmov=0;//16.11.01from
- Nmov=0;
- Bmov="";
- rev=0;//16.11.01upto
- if(length(realL)>0,
- Hgt=realL_1*Hgt; // 15.04.12
- if(length(realL)>1,Cut=realL_2);
- );
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="L" % tmp=="l",
- if(indexof(#,"rot")>0,
- Bname="Letterrot(";
- ,
- Bname="Letter(";
- );
- );
- if(tmp=="E" % tmp=="e",
- if(indexof(#,"rot")>0,
- Bname="Exprrot(";
- ,
- Bname="Expr(";
- );
- );
- tmp=indexof(#,"=");
- Bops=substring(#,tmp,length(#)); // 16.11.01
- );
- Ydata=MakeBowdata(pA,pB,Hgt);
- pC=Ydata_1;
- ra=Ydata_2;
- Th=(Ydata_3+Ydata_4)*0.5;
- BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)];
- Bpos="md"+name; // 16.10.31from(moved)
- tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");";
- parse(tmp);// 16.10.31upto(moved)
- if(length(Bname)>0, //16.11.01from
- tmp=indexof(Bops,",");
- if(tmp>0,
- tmp1=substring(Bops,0,tmp-1);
- if(length(tmp1)>=4 & substring(tmp1,0,1)=="t" & indexof(tmp1,"n")>0,
- Bmov=tmp1;
- Bops=substring(Bops,tmp,length(Bops));
- );
- );
- if(length(Bmov)>0,
- tmp=indexof(Bmov,"t");
- if(tmp>0,
- tmp1=indexof(Bmov,"n");
- Tmov=parse(substring(Bmov,tmp,tmp1-1));
- tmp=indexof(Bmov,"r");
- if(tmp>0,
- Nmov=parse(substring(Bmov,tmp1,tmp-1));
- rev=1;
- ,
- Nmov=parse(substring(Bmov,tmp1,length(Bmov)));
- );
- );
- );
- Bname=Bname+Bpos;//16.11.01
- if(abs(Tmov)+abs(Nmov)>0,
- tmp=Pcrd(pA)-Pcrd(pB);
- tmp1=1/norm(tmp)*tmp;
- tmp2=[-tmp1_2,tmp1_1];
- tmp=MARKLEN*(Tmov*tmp1+Nmov*tmp2);
- tmp=LLcrd(tmp);
- Bname=Bname+"+"+text(tmp);
- );
- Bname=Bname+",";
- if(indexof(Bname,"rot")>0,
- if(rev==1,tmp=pB-pA,tmp=pA-pB);
- Bname=Bname+textformat(tmp,5)+",";
- ,
- Bname=Bname+Dq+"c"+Dq+",";
- );
- Bname=Bname+Dq+Bops+Dq+")";
- parse(Bname);
- );//16.11.01upto
- if(Cut==0,
- Th1=Ydata_3;
- Th2=Ydata_4;
- Out=[];
- forall(0..Num,
- tmp=Th1+#*(Th2-Th1)/Num;
- Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]);
- );
- ,
- Th1=Ydata_3;
- Th2=Th-Cut/(2*ra);
- tmp1=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Th1=Th+Cut/(2*ra);
- Th2=Ydata_4;
- tmp2=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Out=[tmp1,tmp2];
- );
- if(Noflg<3,
- println("generate bowdata "+name+" and "+Bpos);//16.10.31
- if(MeasureDepth(Out)==1,Out=[Out]);
- tmp1=[];
- forall(Out,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Bowdata("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]);
-Deqplot(nm,deq,rng,Arg1,Arg2):=(
- regional(initt,initf,options);
- if(isreal(Arg1) & length(Arg1)==1,
- initt=Arg1;
- initf=Arg2;
- options=[];
- ,
- initf=Lcrd(Arg1);
- initt=initf_1;
- options=Arg2;
- );
- Deqplot(nm,deq,rng,initt,initf,options);
-);
-Deqplot(nm,deq,rng,initt,initf,options):=(
- regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2,
- tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- tmp2=tmp_2;
- tmp3=tokenize(tmp1,"`");
- if(length(tmp3)==2,
- if(indexof(tmp1,"[")>0,
- Deqplot(nm,deq,rng,initt,initf,options,[2,3]);
- ,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- tmp=tokenize(rng2,"=");
- deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]";
- rng2="t="+tmp_2;
- if(isreal(initf) & length(initf)==1,
- initf2=[initt,initf];
- initt2=initt;
- ,
- initf2=Lcrd(initf));
- initt2=initf2_1;
- Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]);
- );
- ,
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_9;
- opstr="";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="N",
- tmp=indexof(#,"=");
- tmp1="N="+substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp1+"'";
- );
- );
- if(Noflg<1,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- var2="d"+tmp3_1;
- deq2="["+tmp3_1+","+var2+"]`=[";
- tmp=replace(tmp2,tmp3_1+"`",var2);
- deq2=deq2+var2+","+tmp+"]";
- Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]);
- parse(tmp);
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- parse("de"+nm);
- );
- );
-);
-Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
-//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]);
-//help:Deqplot("1","y``=-y","x",0, [1,0]);
-//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]);
- regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num,
- outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg,
- kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2);
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- eqL=tmp_5;
- strL=tmp_7;
-// opstr=tmp_(length(tmp)-1);
- opstr="";
- opcindy=tmp_(length(tmp));
- outstr="";
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="S",
- outstr="Sci";
- );
- );
- Num=50;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,0,1);
- tmp2=Toupper(tmp2);
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp2+"="+tmp1+"'";
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- );
- );
- if(outstr=="Sci",
- if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1);
- );
- if(Noflg<3,
- if(outstr=="Sci",
- if(Outflg==1,
- println("Output Deqplot "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Deqplot "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- ,
- Eps=10^(-3);
- Inf=10^3;
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- func=tmp_2;
- tmp=indexof(tmp1,",");
- xf=substring(tmp1,1,tmp-1);
- yf=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(yf,"]");
- yf=substring(yf,0,tmp-1);
- tmp=tokenize(rng,"=");
- Vname=tmp_1;
- tmp=parse(tmp_2);
- t1=tmp_1;
- t2=tmp_2;
- tmp="funP("+Vname+","+xf+","+yf+"):="+func+";";
- parse(tmp);
- tmp=tokenize(func,",");
- tmp1="-("+substring(tmp_1,1,length(tmp_1))+")";
- tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")";
- tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];";
- parse(tmp);
- dt=(t2-t1)/Num;
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- pdL=[[tt,x0,y0]];
- flg=0;
- forall(1..floor((t2-initt)/dt),
- if(flg==0,
- kl1=dt*funP(tt,x0,y0);
- kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt+#*dt;
- pdL=append(pdL,[tt,x0,y0]);
- if(|tmp1|>Inf,flg=1);
- );
- );
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- flg=0;
- forall(1..floor((initt-t1)/dt),
- if(flg==0,
- kl1=dt*funN(tt,x0,y0);
- kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt-#*dt;
- pdL=prepend([tt,x0,y0],pdL);
- if(|tmp1|>Inf,flg=1);
- );
- );
- println("Generate Deqplot "+name);
- pdL=apply(pdL,#_Sel);
- tmp1=apply(pdL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(Noflg<1,
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(outstr=="Sci",
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- ,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- pdL;
- );
- );
-);
-
-Enclosing(nm,plist):=EnclosingS(nm,plist);
-Enclosing(nm,plist,options):=EnclosingS(nm,plist,options);
-EnclosingS(nm,plist):=EnclosingS(nm,plist,[]);
-EnclosingS(nm,plist,options):=(
-//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]);
- regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt,
- t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy);
- name="en"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- EEps=0.1;
- Start=[];
- Flg=0;
- forall(realL,
- if(isList(#) % ispoint(#),
- Start=Lcrd(#); // 15.09.12
- ,
- Flg=Flg+1;
- if(Flg==1,Eps=#);
- if(Flg==2,EEps=#);
- );
- );
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- Fdata=plist_1;
- Gdata=plist_(length(plist));
- KL=IntersectcrvsPp(Fdata,Gdata);
- if(length(KL)==1,
- pt=KL_1_1;
- t1=KL_1_2;
- );
- if(length(KL)==0,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- pt=tmp_1;
- t1=tmp_2;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- pt=tmp_3;
- t1=tmp_4;
- );
- );
- if(length(KL)>1,
- if(Start==[],
- err("No Start Point");
- ,
- pt=KL_1_1;
- t1=KL_1_2;
- tmp=|pt-Start|;
- forall(2..length(KL),ii, // 15.04.20
- tmp1=KL_ii_1;
- tmp2=|tmp1-Start|; // 15.04.20
- if(tmp2<tmp,
- pt=tmp1;
- t1=KL_ii_2;
- tmp=tmp2;
- );
- );
- );
- );
-// pt=Pcrd(pt); // 15.09.12
- Start=pt;
- AnsL=[];
- forall(1..length(plist),nn,
- Fdata=plist_nn;
- if(nn>1, pt=qt);
- if(nn==length(plist),
- qt=Start;
- ,
- Flg=0;
- Gdata=plist_(nn+1);
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- KL=IntersectcrvsPp(Gdata,Fdata);
- if(length(KL)==1,
- tmp=KL_1;
- qt=KL_1_1;
- t3=KL_1_2;
- Flg=10;
- );
- if(length(KL)==0,Flg=1);
- if(length(KL)>1,
- tmp1=KL_1_1;
- tmp2=KL_2_1;
- tmp=|tmp1-tmp2|;
- if(tmp<Eps*10, Flg=1);
- );
- if(Flg==1,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- qt=tmp_1;
- t3=tmp_4;
- Flg=10;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- qt=tmp_3;
- t3=tmp_2;
- Flg=10;
- );
- );
- if(Flg<10,
- t2=10^6; //%inf;
- forall(1..length(KL),ii,
- tmp1=KL_ii_1;
- tmp=KL_ii_3;
- tmp2=ParamonCurve(tmp1,tmp,Fdata);
- tmp3=KL_ii_2;
- if(tmp2>t1+Eps & tmp2<t2+Eps,
- qt=tmp1;
- t2=tmp2;
- t3=tmp3;
- );
- );
- );
- );
- tmp=Partcrv("",pt,qt,Fdata,["nodata"]);
- t1=t3;
- if(nn==1,
- AnsL=tmp;
- ,
- AnsL=concat(AnsL,tmp_(2..length(tmp)));
- );
- );
- AnsL=apply(AnsL,Pcrd(#)); // 15.09.12
- AnsL_(length(AnsL))=AnsL_1;//16.10.20
- if(Noflg<3,
- println("generate Enclosing "+name);
- tmp=name+"="+textformat(AnsL,5);
- parse(tmp);
-// tmp=name+"=Enclosing(";//16.10.20from
-// tmp1="list(";
-// forall(plist,
-// tmp1=tmp1+#+",";
-// );
-// tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- tmp=apply(AnsL,LLcrd(#));
- tmp=name+"=Listplot("+textformat(tmp,5)+")";//16.10.20upto
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp=apply(AnsL,LLcrd(#));//16.10.20
- tmp;
-);
-
-Shade(plist):=Shade(plist,[]);
-Shade(plist,options):=(
-//help:Shade(["gr2","sg1"],[0.5]);
-//help:Shade([pointlist],[0.5]);
- regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg);
- if(isstring(plist_1), // 16.01.24
- println("output Shade of "+plist);
- ,
- println("output Shade of lists");
- );
- tmp=Divoptions(options);
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- flg=0;
- forall(plist,
- if(flg==0,
- if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24
- if(!islist(tmp),flg=1); upto
- );
- );
- if(flg==1,
-// err("some data not defined yet");
- ,
- G2=Joincrvs("1",plist,["nodata"]);
- G2=apply(G2,Pcrd(#));
- tmp1="fillpoly("+textformat(G2,5)+opcindy+");";
- parse(tmp1);
- );
- Str="Shade(";
- tmp1="list(";
- forall(plist,
- if(isstring(#), // from 16.01.24
- if(length(#)>1,
- tmp1=tmp1+#+",";
- ,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- ,
- tmp1=tmp1+"Listplot("+textformat(#,5)+"),";
- ); // upto 16.01.24
- );
- Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- Com2nd(Str);
-);
-
-
-//help:start();
-
-Rotatepoint(point,Theta,ctr):=(
-//help:Rotatepoint(A,2*pi/3,B);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(ctr);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- [X2,Y2];
-);
-
-Translatepoint(point,mov):=(
-//help:Translatepoint(A,[2,3]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- X2=X1+Cx;
- Y2=Y1+Cy;
- [X2,Y2];
-);
-
-Scalepoint(point,ratio,center):=(
-//help:Scalepoint(A,[3,2],[0,0]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(center);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+ratio_1*(X1-Cx);
- Y2=Cy+ratio_2*(Y1-Cy);
- [X2,Y2];
-);
-
-Reflectpoint(point,symL):=(
-//help:Reflectpoint(A,B);
-//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
- regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- [X2,Y2];
-);
-
-Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
-Rotatedata(nm,plist,angle,options):=(
-//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
- opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="rt"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- if(isstring(angle),Theta=parse(angle),Theta=angle);
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Rotatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]);
-translatedata(nm,plist,mov,options):=(
-//help:translatedata("1",["gr1"],[1,2]);
- regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
- opcindy,X2,Y2,Ltype,Noflg,name);
- name="tr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=tmp_1+Cx;
- Y2=tmp_2+Cy;
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate translatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Scaledata(nm,plist,ratioV):=(
- regional(tmp);
- tmp=Lcrd(ratioV);
- Scaledata(nm,plist,tmp_1,tmp_2,[]);
-);
-Scaledata(nm,plist,Arg1,Arg2):=(
-//help:Scaledata("1","crAB",3,2,[[0,0]]);
- regional(tmp,options);
- if(islist(Arg2),
- tmp=Lcrd(Arg1);
- options=Arg2;
- Scaledata(nm,plist,tmp_1,tmp_2,options);
- ,
- Scaledata(nm,plist,Arg1,Arg2,[]);
- );
-);
-Scaledata(nm,plist,rx,ry,options):=(
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
- name="sc"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- Pt=Lcrd(tmp1_1);
- );
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=Cx+rx*(tmp_1-Cx);
- Y2=Cy+ry*(tmp_2-Cy);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Scaledata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
-Reflectdata(nm,plist,symL,options):=(
-//help:Reflectdata("1","crAB",[C]);
- regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="re"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Reflectdata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Mksegments():=Mksegments([]);
-Mksegments(options):=(
-//help:Mksegments();
- regional(segstr,p,q,r,tmp1,tmp2,tmp3);
- forall(allsegments(),seg,
- str=text(inspect(seg,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Listplot([parse(p),parse(q)]);
- );
-);
-
-Mkcircles():=Mkcircles([]);
-Mkcircles(options):=(
-//help:Mkcircles():
- regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
- forall(allcircles(),cir,
- str=text(inspect(cir,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- tmp4=indexof(str,";",tmp2+1);
- if(tmp4==0,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Circledata([parse(p),parse(q)]);
- ,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp4-1);
- r=substring(str,tmp4,tmp3-1);
- Circledata([parse(p),parse(q),parse(r)]);
- );
- );
-);
-
-Makesciarg(arglist):=(
- regional(str,tmpstr);
- str="";
- forall(arglist,
- if(isstring(#),
- tmpstr=Dq+#+Dq;
- ,
- tmpstr=textformat(#,5);
- );
- str=str+tmpstr+",";
- );
- str=substring(str,0,length(str)-1);
- str;
-);
-
-Setax(arglist):=(
-//help:Setax(["l","x","e","y","n","O","sw"]);
-//help:Setax([7,"nw"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com1st("Setax("+tmp+")");
-);
-
-Htickmark(arglist):=(
-//help:Htickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp="";
- tmp=Makesciarg(arglist);
- Com2nd("Htickmark("+tmp+")");
-);
-
-Vtickmark(arglist):=(
-//help:Vtickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com2nd("Vtickmark("+tmp+")");
-);
-
-Drwxy():=(
-//help:Drwxy();
- Com2nd("Drwxy()");
- Addax(0); // 16.01.21
-);
-
-Drwpt(pstr):=Drawpoint(pstr);
-Drwpt(ptlist,nn):=( // 16.03.05 from
-//help:Drwpt(A);
-//help:Drwpt("[1,1],0");
-//help:Drwpt(A,0);
-//help:Drwpt([1,2],0);
- Drawpoint(ptlist,nn);
-);
-Drawpoint(pstr):=(
- if(isstring(pstr),
- println("Drwpt : "+pstr);
- Com2nd("Drwpt("+pstr+")");
- ,
- Drawpoint(pstr,1);
- );
-);
-Drawpoint(ptlistorg,nn):=(
- regional(ptlist,thick,tmp,tmp1);
- println("Drwpt : "+text(ptlistorg));
- if(islist(ptlistorg),
- if(MeasureDepth(ptlistorg)==1,
- ptlist=ptlistorg
- ,
- ptlist=[ptlistorg]
- );
- ,
- ptlist=[ptlistorg]
- );
- thick=PenThick/PenThickInit;// 16.04.09 from
- tmp1=max(TenSize/TenSizeInit,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- forall(ptlist,
- tmp=textformat(#,5)+","+text(nn);
- Com2nd("Drwpt("+tmp+")"); // 16.04.09
- );
- Setpen(thick); // 16.04.09
-);// 16.03.05 upto
-
-Addax(param):=(
-//help:Addax(0);
- ADDAXES=text(param);
-);
-
-Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
-Expr(list):=Expr(list,[]);
-Expr(listorg,options):=( //16.10.09
-//help:Expr([A,"e","f(x)=x^2"]);
- regional(list,str,tmp,tmp1,tmp2);
- list=listorg;
- forall(1..round(length(list)/3),
- str=list_(3*#);
- if(!isstring(str),str=format(str,5));
- str="$"+str+"$";
- list_(3*#)=str;
- );
- Letter(list,options);
-);
-
-Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
-Letter(list):=Letter(list,[]);
-Letter(list,options):=(
-//help:Letter([C,"c","Graph of f(x)"]);
- regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
- opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
- tmp=Divoptions(options);
- Noflg=tmp_2;
- opL=select(options,indexof(#,"->")>0); //16.10.09from
- tmp=select(opL,indexof(#,"color"));
- size=12;
- clr=[0,0,0];
- bld=false;
- ita=false;
- aln="left";
- forall(opL,
- tmp=indexof(#,"->");
- tmp1=removespace(substring(#,0,tmp-1));
- tmp2=substring(#,tmp+1,length(#));
- if(tmp1=="size",sz=parse(tmp2));
- if(tmp1=="color",clr=parse(tmp2));
- if(tmp1=="bold",bld=parse(tmp2));
- if(tmp1=="ita",ita=parse(tmp2));
- );//16.10.09upto
- Off=-4;
- Dmv=8;
- Nj=1;
- while(Nj+2<=length(list),
-// Pos=textformat(list_Nj,5);
- Pos=list_Nj;
- Dir=list_(Nj+1);
- tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from
- if(tmp>0,
- tmp=indexof(Dir,"w")+indexof(Dir,"e");
- if(tmp==0,
- Dir="c"+Dir;//16.10.08
- );
- );//16.10.19upto
- Str=list_(Nj+2);
- if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
- tmp=replace(Str,".xy","");
- tmp=replace(tmp,".x","(1)");
- Str=replace(tmp,".y","(2)");
- if(indexof(Str,"`")>0,
-// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
- tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
- ,
- tmp=Dq+","+Dq+Str+Dq+")";
- );
- if(Noflg==0,
- Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
- );
- if(Noflg<2,
- Xmv=0;//16.10.13
- Ymv=-4;
- if(indexof(Dir,"n")>0,
- Ymv=Dmv/2;
- );
- if(indexof(Dir,"s")>0,
- Ymv=-Dmv*3/2;//16.10.13
- );
- if(indexof(Dir,"e")>0,
- Xmv=Dmv/2;
- Off=0;
- aln="left";
- );
- if(indexof(Dir,"w")>0,
- Xmv=-Dmv/2;
- Off=0; // 16.09.30from
- aln="right";
- );
- if(indexof(Dir,"c")>0,
- Xmv=0;//16.10.13
- Off=0;
- if(Ymv==0,Ymv=-4);//16.10.08
- aln="mid"; // 16.09.30upto
- );
- drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
- size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
- );
- Nj=Nj+3;
- );
-);
-
-Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
-Letterrot(pt,dir,movstr,str):=(
-//help:Letterrot(C,B-A,"AB"):
-//help:Letterrot(C,B-A,0,5,"AB"):
-//help:Letterrot(C,B-A,"t0n5","AB"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Letterrot(pt,dir,tmov,nmov,str);
-);
-Letterrot(pt,dir,tmov,nmov,str):=(
- Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
-Exprrot(pt,dir,movstr,str):=(
-//help:Exprrot(C,B-A,"d"):
-//help:Exprrot(C,B-A,0,5,"d"):
-//help:Exprrot(C,B-A,"t0n5","d"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Exprrot(pt,dir,tmov,nmov,str);
-);
-Exprrot(pt,dir,tmov,nmov,str):=(
- Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
-Putpoint(name,Ptinit,Pt):=(
-//help:Putpoint("A",[1,2],[1,A.y]);
- regional(ptstr);
- ptstr=apply(allpoints(),#.name);
- if(!contains(ptstr,name),
- createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
- ,
- ptstr=name+".xy="+textformat(Pcrd(Pt),5);
- parse(ptstr);
- );
-);
-
-Bezierpt(t,ptlist,ctrlist):=(
- regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
- p0=ptlist_1;
- p3=ptlist_2;
- p1=ctrlist_1;
- if(length(ctrlist)==1,
- p2=p3;
- flg3=0;
- ,
- p2=ctrlist_2;
- flg3=1;
- );
- if(length(p0)<3, // 15.02.08
- p0=Lcrd(p0);
- p3=Lcrd(p3);
- p1=Lcrd(p1);
- p2=Lcrd(p2);
- );
- p4=(1-t)*p0+t*p1;
- p5=(1-t)*p1+t*p2;
- p6=(1-t)*p2+t*p3;
- p7=(1-t)*p4+t*p5;
- p8=(1-t)*p5+t*p6;
- p9=(1-t)*p7+t*p8;
- if(flg3==0,p7,p9);
-);
-
-Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
-Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
-Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
-BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
-//help:Bezier("1",[A,D],[B,C]);
-//help:Bezier(options=["Num=10"]);
- regional(name,Ltype,Noflg,opstr,opcindy,Num,
- ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
- name="bz"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Num=10;
- tmp1=tmp_5;
- forall(tmp1, // 14.12.31
- if(substring(#,0,1)=="N",
- tmp2=indexof(#,"=");
- Num=parse(substring(#,tmp2,length(#)));
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
- ctrlist=[]; // 14.12.31
- if(length(ctrlistorg)==length(ptlist)-1,
- forall(ctrlistorg,tmp1,
- if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- ,
- forall(1..(length(ptlist)-1),ii,
- tmp=ctrlistorg_((2*ii-1)..(2*ii));
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- );
- if(!islist(Num),
- Num=apply(ctrlist,Num);
- );
- list=[];
- forall(1..(length(ptlist)-1),ii,
- tmp1=ptlist_(ii..(ii+1));
- tmp2=ctrlist_ii;
- if(ii==1,st=0,st=1);
- forall(st..Num_ii,
- tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
- list=append(list,tmp);
- );
- );
- if(Noflg<3,
- println("generate Bezier "+name);
- out=apply(list,Pcrd(#));
- tmp=name+"="+textformat(out,5);
- parse(tmp);
- tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- list;
-);
-
-Readcsvsla(fname):=Readplotdigdata(fname,[]);
-Readcsvsla(fname,options):=Readplotdigdata(fname,options);
-Readplotdigdata(fname):=Readplotdigdata(fname,[]);
-Readplotdigdata(fname,options):=(
- regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
- tmp=Divoptions(options);
- tmp1=tmp_6;
- sc=1;//10;
- mv=[0,0];//[5,5];
- forall(tmp1,
- if(!islist(#),sc=#,mv=#);
- );
- if(indexof(fname,".")>0,
- tmp=load(fname);
- ,
- tmp=load(fname+".txt");
- );
- cmdall=tokenize(tmp,"//");
- dataL=[];
- forall(2..length(cmdall),ii,
- tmp1=parse("["+cmdall_ii+"]");
- dataL=append(dataL,tmp1);
- );
- if(length(dataL_(length(dataL)))<2,
- dataL=dataL_(1..(length(dataL)-1));
- );
- nd=length(dataL_1)/2;
- npt=length(dataL);
- ptdata=[];
- forall(1..nd,ii,
- tmp3=[];
- forall(1..npt,
- tmp1=dataL_#_(2*ii-1);
- tmp2=dataL_#_(2*ii);
- if(isreal(tmp1),
- tmp3=append(tmp3,[tmp1,tmp2]);
- );
- );
- ptdata=append(ptdata,tmp3);
- );
- tmp1=[];
- forall(ptdata,
- tmp=#/sc;
- tmp=translatedata("1",[tmp],-mv,["nodata"]);
- tmp1=append(tmp1,tmp);
- );
- ptdata=tmp1;
- ptdata;
-);
-
-Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
-Putbezierdata(name,ptL,options):=(
- regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
- tmp=Divoptions(options);
- psize=3;
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- if(substring(#,0,1)=="S",
- tmp=indexof(#,"=");
- psize=parse(substring(#,tmp,length(#)));
- );
- );
- pts=[];
- ctrs=[];
- forall(1..length(ptL),
- p2=ptL_#; // 16.08.16
- if(ispoint(p2),
- tmp1=text(p2);
- ,
- tmp1=name+text(#);
- Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
- );
- inspect(parse(tmp1),"ptsize",psize);
- pts=append(pts,parse(tmp1));
- inspect(parse(tmp1),"color",4);
- if(#>1,
- p1=Lcrd(ptL_(#-1)); // 16.08.16
- p2=Lcrd(ptL_#); // 16.08.16
- if(Deg==3,
- tmp=(2*p1+p2)/3;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- tmp=(p1+2*p2)/3;
- tmp2=name+"q"+text(#-1);
- Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
- inspect(parse(tmp2),"labeled",false); //15.01.22
- Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
- inspect(parse(tmp2),"ptsize",psize);
- inspect(parse(tmp2),"color",3);
- ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
- ,
- tmp=(p1+p2)/2;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- ctrs=append(ctrs,[parse(tmp1)]);
- );
- );
- );
- [pts,ctrs,name];
-);
-
-Bezierstart(n):=( // 2016.02.26
- BezierNumber=n;
-);
-
-Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
-Mkbezierptcrv(ptdata,options):=(
- //help:Mkbezierptcrv([A,B,C,D]);
- //help:Mkbezierptcrv([[A,B],[C,D]]);
- //help:Mkbezierptcrv(options=["Num=10"]);
- // global BezierNumber
- regional(ptlist,Out,tmp,tmp1,tmp2);
- if(isstring(ptdata),
- ptlist=Readcsvsla(ptdata,options);
- ,
- ptlist=ptdata;
- );
- if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
- Out=[];
- forall(1..length(ptlist),
- tmp=floor((BezierNumber-1)/26);// 15.02.23
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber,26);
- if(tmp2==0,tmp2=26);
- tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
- tmp2=Putbezierdata(tmp1,ptlist_#,options);
- Bezier(tmp2,options);
- BezierNumber=BezierNumber+1;
- Out=append(Out,tmp2_(1..2));
- );
- Out;
-);
-
-Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
-Mkbeziercrv(nm,ptctrL,options):=(
- //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
- regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
- if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
- forall(1..length(ptctrLL),
- name=nm+text(#);
- ptlist=ptctrLL_#_1;
- ctrlist=ptctrLL_#_2;
- Bezier(name,ptlist,ctrlist,options);
- );
-);
-
-Writebezier():=Writebezier(Fhead,"all");
-Writebezier(head):=Writebezier(head,"all");
-Writebezier(head,seL):=(
-//help:Writebezier(file);
-//help:Writebezier(file,"acd");
- regional(bz,dt,name,tmp,tmp1,tmp2);
- bz=select(GLIST,indexof(#,"=Bezier")>0);
- tmp1=[]; // 16.04.22from
- if(seL!="all",
- forall(1..length(seL),
- tmp=substring(seL,#-1,#);
- tmp=select(bz,indexof(#,"bz"+tmp)>0);
- tmp1=concat(tmp1,tmp);
- );
- bz=tmp1;// 16.04.22upto
- );
- dt=[head+"n",[[length(bz),0]]];
- forall(1..length(bz),
- tmp=indexof(bz_#,"=");
- name=substring(bz_#,0,tmp-1);
- tmp=indexof(bz_#,","+Dq);
- if(tmp>0,
- tmp1=substring(bz_#,0,tmp-1)+")";
- ,
- tmp1=bz_#;
- );
- tmp1=replace(tmp1,"Bezier(","[");
- tmp1=replace(tmp1,"list(","[");
- tmp1=replace(tmp1,")","]");
- tmp1=replace(tmp1,",",".xy,");
- tmp1=replace(tmp1,"]",".xy]");
- tmp1=replace(tmp1,".xy,[",",[");
- tmp1=replace(tmp1,"].xy","]");
- tmp1=replace(tmp1,name,head+text(#));
- parse(tmp1);
- tmp=parse(head+text(#)+"_1");
- dt=concat(dt,[head+text(#)+"k",tmp]);
- tmp=parse(head+text(#)+"_2");
- dt=concat(dt,[head+text(#)+"c",tmp]);
- );
- WriteOutData(head+".txt",dt);
- dt;
-);
-
-Readbezier(file):=Readbezier(file,[]);
-Readbezier(file,optionorg):=(
-//help:Readbezier("xsr");
-//help:Readbezier(options=["Num=10","nogeo"]);
- regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
- options=optionorg;
- tmp=Divoptions(options);
- stL=tmp_7;
- geo=0;
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="G",geo=1);
- options=remove(options,[#]);
- );
- ReadOutData(file);
- tmp=file+"n_1_1";
- nn=parse(tmp);
- out=[];
- forall(1..nn,nc,
- tmp=file+text(nc);
- tmp1=parse(tmp+"k");
- tmp2=parse(tmp+"c");
- if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
- if(geo==1,
- alpha="abcdefghijklmnopqrstuvwxyz";
- forall(1..length(tmp1),
- tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
- Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"ptsize",3);
- tmp1_#=parse(tmp+".xy");
- );
- forall(1..length(tmp2),
- tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
- Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_1=parse(tmp+".xy");
- tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
- Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_2=parse(tmp+".xy");
- );
- BezierNumber=BezierNumber+1;
- );
- Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
- out=append(out,"bz"+tmp);
- );
- out;
-);
-
-Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
-Ospline(nm,ptlist,options):=(
-//help:Ospline("1",ptlist,[options]);
- regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
- p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- name="o"+nm;
- if(isstring(ptlist),list=parse(ptlist),list=ptlist);
- if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
-// list=apply(list,LLcrd(#));
- ctrL=[];
- forall(1..(length(list)-1),
- flg=0;
- p1=Lcrd(list_#); // 16.08.16
- p2=Lcrd(list_(#+1)); // 16.08.16
- if(#==1 % #==length(list)-1,
- flg=1;
- if(closed==0,
- pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
- pR=(2*p1+p2)/3; // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- flg=2;
- ,
- if(#==1,
- p0=Lcrd(list_(length(list)-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- ,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_2); // 16.08.16
- );
- );
- );
- if(flg<=1,
- if(flg==0,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- );
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
- pR=p2+cc*(p1-p3); // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- );
- );
-// list=apply(list,LLcrd(#)); // 16.08.16
-// ctrL=apply(ctrL,LLcrd(#));
- if(closed==0, // 15.09.21
- p1=ctrL_2_1;
- p2=Lcrd(list_2); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_1=[pQ];
- tmp=length(ctrL);
- tmp1=ctrL_(tmp-1);
- p1=ctrL_(tmp-1)_2;
- p2=Lcrd(list_(tmp)); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_tmp=[pQ];
- );
- Bezier("o"+nm,list,ctrL,options);
-);
-
-CRspline(nm,ptL):=CRspline(nm,ptL,[]);
-CRspline(nm,ptL,options):=(
- // Catmull-Rom spline
-//help:CRspline("1",[A,B,C,A]);
- regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
- name="crsp"+nm;
- if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
- ptlist=tmp_1;
- if(length(tmp)==1,
- cflg=1;
- ,
- cflg=0;
- ctrpts=tmp_2;
- );
- c=1/6;
- tmp=Divoptions(options);
- eqL=tmp_5;
- opcindy=tmp_(length(tmp)); // 15.03.05
- forall(eqL,
- if(substring(#,0,1)=="R",
- tmp2=indexof(#,"=");
- c=parse(substring(#,tmp2,length(#)));
- );
- );
- ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
- ctrlist=[];
- forall(1..(length(ptlist)-1),
- if(#==1,
- if(cflg==0,
- tmp1=ctrpts_1;
- ,
- v=ptlist_2-ptlist_(length(ptlist)-1);
- tmp1=ptlist_#+c*v;
- );
- ,
- v=ptlist_(#+1)-ptlist_(#-1);
- tmp1=ptlist_#+c*v;
- );
- if(#==length(ptlist)-1,
- if(cflg==0,
- tmp2=ctrpts_2;
- ,
- v=ptlist_2-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- ,
- v=ptlist_(#+2)-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- tmp=select(options,indexof(text(#),"->")>0);
- tmp=append(tmp,"notex"); //15.03.05
- Pointdata(name+text(#),[tmp1,tmp2],tmp);
- ctrlist=append(ctrlist,[tmp1,tmp2]);
- );
- Bezier(nm,ptlist,ctrlist,options);
-);
-
-Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
-//help:Beziersmooth("1",[A,B,C,A]);
-Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
-Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
-Bzspline(nm,ptLorg,options):=(
- // smooth bezier
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzsp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- lstr="c"+text(#);
- pt=ptLorg_#; // 16.08.16
- pt1=parse("C"+text(#-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp2="C"+text(#)+"p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp2],"PointOnLine",[parse(lstr),tmp]);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- tmp1="C1p";
- Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- if(cflg==1,
- lstr="c1";
- pt=ptLorg_1; // 16.08.16
- pt1=parse("C"+text(length(ptL)-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp1="C1p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp1],"PointOnLine",[parse(lstr),tmp]);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- if(#>1 % cflg==1,
- tmp1="c"+text(#);
- inspect(parse(tmp1),"alpha",0.3);
- );
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",3);
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
-Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
-Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
-Bzsspline(nm,ptLorg,options):=(
- // smooth bezier with symmetric control points
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzssp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- pt=ptL_#;
- pt1=parse("C"+text(#-1)+"q");
- tmp2="C"+text(#)+"p=2*pt-pt1";
- parse(tmp2);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
- inspect(C1p,"ptsize",3);
- inspect(C1p,"color",3);
- );
- if(cflg==1,
- pt=ptL_1;
- pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
- tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
- parse(tmp1);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Listbspline2bz(listorg):=(
- regional(Eps,list,pcl,ptl,ctrl,k);
- Eps=10^(-3);
- list=apply(listorg,Lcrd(#)); // 16.08.16
- k=length(list);
- if(|list_1-list_k|>Eps,
- pcl=list;
- pcl_1=2*list_1-list_2;
- pcl_k=2*list_k-list_(k-1);
- ,
- pcl=concat(list,[list_2]);
- );
- ctrl=apply(2..(length(pcl)-1),[pcl_#]);
- ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
- [ptl,ctrl];
-);
-
-Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
-Bspline(nm,ctrL,options):=(
-//help:Bspline("",[A,B,C]);
- regional(list,tmp);
- list=Listbspline2bz(ctrL);
- tmp=BezierCurve("b"+nm,list_1,list_2,options);
- tmp;
-);
-
-MeetCurve(Crv,Xorg,Yorg):=(
- regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
- if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
- if(MeasureDepth(Cv)==2,Cv=Cv_1);
- Cv=apply(Cv,LLcrd(#)); // 14.12.18
- while(length(Cv)==1,
- Cv=Cv_1;
- );
- Cv=apply(Cv,Lcrd(#));
- tmp1=min(apply(Cv,#_1));
- tmp2=max(apply(Cv,#_1));
- if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
- if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
- if(X0<tmp1,
- X0=tmp1;
- ,
- if(X0>tmp2,
- X0=tmp2;
- );
- );
- tmp1=select(
- 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
- tmp2=select(
- 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
- tmp2=remove(tmp2,common(tmp2,tmp1));
- Ban=concat(tmp1,tmp2);
- Tate=select(Ban,
- abs(Cv_#_1-Cv_(#+1)_1)<=
- 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
- );
- Ban=remove(Ban,Tate);
- Ylist=[];
- forall(Ban,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
- Ylist=append(Ylist,tmp);
- );
- forall(Tate,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp1=min([y1,y2]);
- tmp2=max([y1,y2]);
- if(Y0<tmp1,
- tmp=tmp1;
- ,
- if(Y0>tmp2,
- tmp=tmp2;
- ,
- tmp=Y0;
- );
- );
- Ylist=append(Ylist,tmp);
- );
- tmp=sort(Ylist,abs(#_1-Y0));
- [X0,tmp_1];
-);
-
-PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
-PutonLine(name,p1org,p2org,options):=(
-//help:PutonLine("C","sgAB");
-//help:PutonLine("C",pA,pB);
- regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- tmp1=(1-par)*p1+par*p2;
- if(abs(dx)>abs(dy),
- tmp=name+".x";
- tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
- Putpoint(name,tmp1,parse(tmp2));
- ,
- if(abs(dy)>0,
- tmp=name+".y";
- tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
- Putpoint(name,tmp1,parse(tmp2));
- ,
- tmp2=p1;//16.10.11
- Putpoint(name,tmp1,tmp2);
- );
- );
-);
-
-PutonSeg(name,sgstr):=(
- regional(seg,p1,p2);
- if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
- PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
-);
-PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
-PutonSeg(name,p1org,p2org,options):=(
-//help:PutonSeg("C","sgAB");
-//help:PutonSeg("C",pA,pB);
- regional(par,dx,dy,p,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- PutonLine(name,p1,p2,[par]);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- p=parse(name+".xy");
- p=LLcrd(p);
- if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");
- );
- );
- if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");//16.10.11upto
- );
- );
-);
-
-PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
-PutonCurve(pn,crv,options):=(
-//help:PutonCurve("A","gr1");
- regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
- if(!islist(options),optionL=[options],optionL=options);
- leftlim=XMIN;
- rightlim=XMAX;
- Flg=0;
- Msg="y";
- forall(optionL,
- if(isstring(#), // 16.02.10 from
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="N", Msg="n"); // 16.02.10 upto
- ,
- if(Flg==0,
- leftlim=#;
- Flg=Flg+1;
- ,
- rightlim=#;
- );
- );
- );
- Pmt=MeetCurve(crv,leftlim,0);
- pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
- if(!contains(pstr,pn),
- createpoint(pn,Pcrd(Pmt));
- ,
- tmp1=parse(pn+".x");
- if(tmp1< leftlim % tmp1>rightlim,
- if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
- Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
- ,
- Pmt=MeetCurve(crv,pn+".x",pn+".y");
- );
- ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
- parse(ptstr);
- );
- if(Msg=="y",
- println("Put "+pn+" on Curve "+text(crv));
- );
-);
-
-CrossPoint(name,Crv1,Crv2,range):=(
- regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
- Mx1=range_1; Mx2=range_2;
- repeat(15,
- Mx3=(Mx1+Mx2)/2;
- Crs1=MeetCurve(Crv1,Mx1,0);
- Crs2=MeetCurve(Crv2,Mx1,0);
- Crs3=MeetCurve(Crv1,Mx3,0);
- Crs4=MeetCurve(Crv2,Mx3,0);
- df1=Crs1_2-Crs2_2;
- df2=Crs3_2-Crs4_2;
- if((df1>0 & df2>0) % (df1<0 & df2<0),
- Mx1=Mx3;
- ,
- Mx2=Mx3;
- );
- );
- Putpoint(name,Crs1);
-);
-
-Setscaling(sc):=(
-//help:Setscaling(3);
- SCALEX=1;
- SCALEY=sc;
- Com0th("Setscaling("+sc+")");
- Setwindow("Msg=no");
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledatalight "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist));
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tabledata(nm,n,m,xsize,ysize,rmvL):=
- Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
-Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
- regional(Tb,name,tmp,xLst,yLst);
- name="tb"+nm;
- xLst=apply(1..n,xsize/n);
- yLst=apply(1..m,ysize/m);
- Tabledata(nm,xLst,yLst,rmvL,options)
-);
-Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
-Tabledata(nm,xLst,yLst,rmvL,options):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2]);
- regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb,
- tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- println("Tabledata "+name+" generated");
- tmp=sum(yLst);
- upleft=[0,tmp];
- tick=1;
- tmp=Divoptions(options);
- flg=0;
- forall(tmp_6,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp="C"+text(#);
- tmp1="c"+text(#)+"r0";
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
- clist_(#+1)=parse(tmp+".xy");
- );
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp="R"+text(#);
- tmp1="c0r"+text(#);
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- rlist_(#+1)=parse(tmp+".xy");
- );
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(#<m,
- tmp1=parse("C"+text(#));
- tmp2=parse("C"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(#<n,
- tmp1=parse("R"+text(#));
- tmp2=parse("R"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist)); // 15.06.11
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- Tb;
-);
-
-Tseginfo(seg):=(
- regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
- if(substring(seg,0,2)=="sg",
- cr=substring(seg,2,length(seg));
- ,
- cr=seg;
- );
- tp=substring(cr,0,1);
- if(tp=="c",
- tpc="r";
- ,
- tpc="c";
- );
- tmp1=indexof(cr,tpc);
- tmp=substring(cr,tmp1,length(cr));
- tmp2=tmp1+indexof(tmp,tpc);
- n1=substring(cr,1,tmp1-1);
- n2=substring(cr,tmp1,tmp2-1);
- n3=substring(cr,tmp2,length(cr));
- [tp+n1,tpc,parse(n2),parse(n3)];
-);
-
-Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
-Tsegrmv(rmvL,options):=(
- regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
- forall(rmvL,cr,
- tmp1=Tseginfo(cr);
- hd=tmp1_1;
- tpc=tmp1_2;
- m1=tmp1_3;
- m2=tmp1_4;
- gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
- flg=0;
- forall(gcL,
- if(flg==0,
- tmp=Tseginfo(#_1);
- n1=tmp_3;
- n2=tmp_4;
- if(m1>=n1 & m2<=n2,
- gc=#;
- flg=1;
- );
- );
- );
- if(flg==1,
- Changestyle([gc_1],["nodisp"]);
- tail="";
- if(indexof(hd,"r")>0,
- tail=hd; hd="";
- );
- if(n1<m1,
- tmp1=tpc+text(n1);
- tmp2=tpc+text(m1);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- if(m2<n2,
- tmp1=tpc+text(m2);
- tmp2=tpc+text(n2);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- );
- );
-);
-
-Tgrid(ptstr):=(
-//help:Tgrid("c2r5");
- regional(tmp,tmp1,tmp2);
- tmp=parse(ptstr);
- if(islist(tmp),
- tmp;
- ,
- tmp=indexof(ptstr,"r");
- tmp1=substring(ptstr,1,tmp-1);
- tmp1=parse(tmp1);
- tmp2=substring(ptstr,tmp,length(ptstr));
- tmp2=parse(tmp2);
- [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
- );
-);
-
-Tlistplot(ptL):=Tlistplot(ptL,[]);
-Tlistplot(Ag1,Ag2):=(
- regional(nm,ptL,options);
- if(isstring(Ag1),
- nm=Ag1;
- ptL=Ag2;
- options=[];
- ,
- ptL=Ag1;
- options=Ag2;
- nm=ptL_1+ptL_2;
- );
- Tlistplot(nm,ptL,options);
-);
-Tlistplot(nm,ptL,options):=(
-//help:Tlistplot(["c0r0","c0r4"]);
-//help:Tlistplot("1",["c0r0","c0r4"]);
- regional(tmp);
- tmp=apply(ptL,Tgrid(#)); // 15.06.03
- Listplot(nm,tmp,append(options,"Msg=no"));
-);
-
-ChangeTablestyle(nameL,style):=(
-////help:ChangeTablestyle(["r0c0c3"],["da"]);
- regional(nmL,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- nmL=apply(nmL,"sg"+#);
- nmL=select(nmL,islist(parse(#)));
- Changestyle(nmL,style);
-);
-
-Findcell(pos1,pos2):=Findcell("",pos1,pos2);
-Findcell(Tbdata,pos1,pos2):=(
-//help:Findcell("c0r0","c2r1");
- regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
- if(isstring(pos1),
- posnw=Tgrid(pos1); // 15.05.20
- posse=Tgrid(pos2);
- //posnw=parse(pos1);
- //posse=parse(pos2);
- ,
- if(islist(pos1),
- posnw=pos1;
- posse=pos2;
- ,
- tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
- tmp2="c"+text(pos1)+"r"+text(pos2);
- posnw=Tgrid(tmp1);
- posse=Tgrid(tmp2);
-// posnw=parse(tmp1);
-// posse=parse(tmp2);
- );
- );
- ctr=(posnw+posse)/2;
- dx=abs(posse_1-ctr_1);
- dy=abs(posnw_2-ctr_2);
- [ctr,dx,dy];
-);
-
-Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
-Putcell(Tbdata,pos1,pos2,dir,lttr):=(
-//help:Putcell("c0r0","c2r1","lt","abc");
-//help:Putcell(2,3,"c","xyz");
- regional(tmp,tmp1,tmp2,posnw,posse,
- posdir,posstr,ctr,dx,dy);
- tmp=Findcell(Tbdata,pos1,pos2);
- ctr=tmp_1; dx=tmp_2; dy=tmp_3;
- posdir=ctr;
- posstr=dir;
- if(indexof(dir,"b")>0,
- posdir_2=posdir_2-dy;
- posstr=replace(posstr,"b","n");
- );
- if(indexof(dir,"t")>0,
- posdir_2=posdir_2+dy;
- posstr=replace(posstr,"t","s");
- );
- if(indexof(dir,"l")>0,
- posdir_1=posdir_1-dx;
- posstr=replace(posstr,"l","e");
- );
- if(indexof(dir,"r")>0,
- posdir_1=posdir_1+dx;
- posstr=replace(posstr,"r","w");
- );
- Letter(posdir,posstr,text(lttr));
-);
-
-Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
-Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
-//help:Putcellexpr("c0r0","c2r1","lt","abc");
-//help:Putcellexpr(2,3,"c","\sin x");
- Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
-);
-
-Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
-Putrow(Tbdata,nrow,dir,lttrL):=(
-//help:Putrow(1,"c",["x","y","z"]);
- regional(tmp,tmp1,mcol);
- mcol=length(lttrL);
- forall(1..mcol,
- Putcell(Tbdata,#,nrow,dir,lttrL_#);
- );
-);
-
-Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
-Putrowexpr(Tbdata,nrow,dir,exL):=(
-//help:Putrowexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- Putrow(Tbdata,nrow,dir,lttrL);
-);
-
-PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
-PutcoL(Tbdata,mcol,dir,lttrL):=(
-//help:PutcoL(1,"c",["x","y","z"]);
- regional(tmp,tmp1,nrow);
- nrow=length(lttrL);
- forall(1..nrow,
- Putcell(Tbdata,mcol,#,dir,lttrL_#);
- );
-);
-PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
-PutcoLexpr(Tbdata,mcol,dir,exL):=(
-//help:PutcoLexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- PutcoL(Tbdata,mcol,dir,lttrL);
-);
-
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
-// XMIN=-5; XMAX=5;
-// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
- createpoint("SW",Pcrd([XMIN,YMIN]));
- createpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
-//help:Setwindow([2,3],[-1,1]);
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
-// Setwindow();
-);
-
-Sciform(list):=(
- regional(plotlist,comp,pos,out,out2,nn,strL,flg,
- tmp,tmp1,tmp2,tmp3,Nj);
- plotlist=Flatten([list]);
- out=replace(plotlist_1,".xy","");
- out=replace(out,".x","(1)");
- out=replace(out,".y","(2)");
- if(length(plotlist)==1,
- comp=[];
- forall(1..length(out),
- comp=append(comp,substring(out,#-1,#));
- );
- out="";
- pos=0;
- forall(comp,
- if(#!="'",
- out=out+#;
- ,
- if(pos==0,
- tmp=indexof(out,"Assign(");
- if(substring(out,length(out)-7,length(out))=="Assign(",
- out=out+"'";
- pos=1;
- ,
- out=out+"Assign('";
- pos=2;
- );
- ,
- if(pos==2,
- out=out+"')";
- ,
- out=out+"'";
- );
- pos=0;
- );
- );
- );
- ,
- forall(2..length(plotlist),
- comp=plotlist_#;
- if(isstring(comp),
- pos=indexof(comp,"Assign(");
- if(pos>0,
- comp=substring(comp,6,length(comp));
- );
- out=out+"Assign(";
- comp=replace(comp,".xy","");
- comp=replace(comp,".x","(1)");
- comp=replace(comp,".y","(2)");
- out=out+"'"+comp+"'";
- out=out+"),";
- );
- if(islist(comp),
- forall(comp,
- out=out+"'"+#+"',";
- );
- );
- );
- if(length(plotlist)>1,
- out=substring(out,0,length(out)-1);
- out=out+");";
- );
- );
- pos=[];
- forall(1..length(out),
- tmp=indexof(substring(out,#-1,length(out)),"Assign");
- if(tmp>0,
- tmp1=#-1+tmp;
- if(length(pos)==0,
- pos=[tmp1];
- ,
- if(pos_(length(pos))<tmp1,
- pos=append(pos,tmp1);
- );
- );
- );
- );
- if(length(pos)>0,
- strL=[];
- Nj=0;
- forall(pos,
- tmp=substring(out,Nj,#-1);
- strL=append(strL,tmp);
- Nj=#-1;
- );
- strL=append(strL,substring(out,Nj,length(out)));
- out="";
- forall(strL,
- if(indexof(#,"Assign")==0,
- out=out+#;
- ,
- tmp=indexof(#,"('");
- tmp1=indexof(#,"')");
- tmp2=substring(#,tmp+1,tmp1-2);
- tmp3=substring(#,tmp1-2,length(#));
- if(indexof(tmp2,"=")==0,
- out=out+#;
- ,
- tmp=substring(tmp2,0,indexof(tmp2,"="));
- out=out+"'"+tmp+"'+"+"Assign('";
- tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
- out=out+tmp+tmp3;
- );
- );
- );
- );
- out2=""; // patched 16.01.21 from
- nn=length(out);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=indexof(out,"='+Assign('");
- if(tmp==0,
- out2=out2+out;
- flg=1;
- ,
- out2=out2+substring(out,0,tmp);
- out=substring(out,tmp+10,length(out));
- tmp=indexof(out,"'"); // 16.04.19 from
- tmp1=substring(out,0,tmp-1);
- tmp2="1234567890";
- tmp=apply(1..length(tmp1),
- indexof(tmp2,substring(tmp1,#-1,#)));
- tmp=min(tmp);
- if(tmp==0, // 16.04.19 upto
- out2=out2+"'+Assign('";
- ,
- tmp=indexof(out,"'");
- out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto
- );
- );
- );
- );
- out2=replace(out2,"Dist=","D=");
- out2=replace(out2,"Dis=","D=");
- out2;
-);
-
-
-Rform(list):=(
- regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
- out=list;
- out=replace(out,"[[[","list([[");
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
- out=replace(out,".xy","");
- out=replace(out,".x","[1]");
- out=replace(out,".y","[2]");
- out;
-);
-
-Defvar(varstr):=(
- regional(name,value,tmp,tmp1);
- parse(varstr);
- tmp=indexof(varstr,"=");
- name=substring(varstr,0,tmp-1);
- value=substring(varstr,tmp,length(varstr));
- value=parse(value);
- tmp1=select(1..length(VLIST),VLIST_#_1==name+"=");
- if(length(tmp1)>0,
- tmp=tmp1_1;
- VLIST_tmp=[name+"=",value];
- ,
- VLIST=prepend([name+"=",value],VLIST);
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+format(#,5)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- tmp1=format(value,5);
- );
- tmp=name+"="+tmp1; // 15.02.06
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"="); // 15.02.08
- VLIST=prepend([name+"=",value],VLIST);
-);
-
-Iftosci(strorg):=( // 16.06.10
- regional(str,ifL,ppL,cpL,kk,sL,
- tmp,tmp1,tmp2,tmp3,tmp4);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ppL=Bracket(str,"()");
- cpL=Indexall(str,",");
- tmp1=Bracket(str,"[]");
- forall(1..(length(tmp1)/2),kk,
- cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1);
- );
- forall(1..length(ifL),kk,
- tmp=select(ppL,#_1>ifL_kk);
- tmp1=tmp_1;
- tmp2=select(tmp,#_2==-tmp1_2);
- tmp2=tmp2_1;
- tmp3=select(cpL,#>tmp1_1 & #<tmp2_1);
- ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3];
- );
- forall(1..length(cpL),kk,
- tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk));
- tmp1=tmp_(length(tmp));
- cpL_kk=[cpL_kk,tmp1];
- );
- sL=apply(1..length(str),substring(str,#-1,#));
- forall(1..length(ifL),kk,
- tmp1=ifL_kk_1;
- tmp2=ifL_kk_2;
- tmp=select(cpL,#_2==kk);
- tmp3=apply(tmp,#_1);
- sL_tmp1=" ";
- sL_tmp2=";end;";
- sL_(tmp3_1)=" then,";
- if(length(tmp3)>1,
- sL_(tmp3_2)=";else,";
- );
- );
- tmp=sum(sL);
-);
-
-Fortosci(strorg):=(
- regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4,
- Out,repL,Pflg,Iflg,Cflg);
- str=strorg;
- repL=[];
- tmp1=Indexall(str,"forall");
- tmp2=Indexall(str,",");
- forall(1..length(tmp1),jj,
- tmp=select(tmp2,#>tmp1_jj);
- var=substring(str,tmp_1,tmp_2-1);
- tmp3=substring(str,tmp1_jj-1,tmp_2-1);
- tmp=indexof(tmp3,"(");
- tmp4=substring(tmp3,tmp,length(tmp3));
- tmp=indexof(tmp4,",");
- tmp4=substring(tmp4,0,tmp-1);
- tmp4="for "+var+"="+tmp4;
- tmp4=replace(tmp4,"..",":");
- repL=concat(repL,[tmp3,tmp4]);
- );
- forall(1..length(repL)/2,
- str=replace(str,repL_(2*#-1),repL_(2*#));
- );
- tmp=Bracket(str);
- tmp=select(tmp,#_2==0);
- tmp=tmp_1_1;
- tmp1=substring(str,tmp-1,length(str));
- tmp1=replace(tmp1,")",";end");
- str=substring(str,0,tmp-1)+tmp1;
- str=replace(str,";;",";");
- str;
-);
-
-Deffun(name,bodylist):=(
-//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18
- regional(funstr,tmp,tmp1,str,Pos);
- funstr=name+":=(";
- forall(bodylist,
- funstr=funstr+#+";";
- );
- funstr=funstr+");";
- parse(funstr);
- tmp=bodylist_(length(bodylist));
- str="function "+tmp+"="+name+",";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");// 16.05.26
- tmp1=replace(tmp1," ","");// 16.05.26
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
- if(Pos==0,
- tmp=replace(tmp1,".xy","");
- tmp=replace(tmp,".x","(1)");
- tmp=replace(tmp,".y","(2)");
- if(indexof(tmp,"if(")>0,
- tmp=iftosci(tmp);
- );
- if(indexof(tmp,"forall(")>0, // 16.05.26from
- tmp=Fortosci(tmp);
- ); // 16.05.26upto
- str=str+tmp+",";
- );
- );
- str=str+"endfunction;";
- FUNLIST=append(FUNLIST,str);
-);
-
-Windispg():=(
- regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy);
- gsave();
- layer(KETPIClayer);
- forall(GCLIST,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
-// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
-// tmp2=apply(tmp2,Pcrd(#));
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- forall(2..length(Nk),
- tmp3=textformat(Nk_[#-1,#],5);
- tmp3=substring(tmp3,1,length(tmp3)-1);
- if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]");
- tmp="draw("+tmp3+
- ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- );
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
-// if(ADDAXES=="1", // 16.10.08from
-// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
-// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
-// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
-// Letter([[0,0],"sw","O"]);
-// ); // 16.10.08upto
- grestore();
- layer(0);
-);
-</script>
- <script type="text/javascript">
-var cdy = CindyJS({
- scripts: "cs*",
- use: ["katex"],
- defaultAppearance: {
- dimDependent: 0.7,
- fontFamily: "sans-serif",
- lineSize: 1,
- pointSize: 5.0,
- textsize: 12.0
- },
- angleUnit: "°",
- geometry: [
- {name: "SW", type: "Free", pos: [4.0, 0.5714285714285714, -0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "NE", type: "Free", pos: [4.0, 2.857142857142857, 0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "A", type: "Free", pos: [4.0, -0.0, -2.0], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "B", type: "Free", pos: [4.0, -0.0, 2.0], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "C", type: "Free", pos: [-1.3333333333333333, -4.0, -1.3333333333333333], color: [1.0, 0.0, 0.0], labeled: true},
- {name: "Text4", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "pc=C.xy;\nptsL=[];", text: "Start", textsize: 18.0, dock: {corner: "UL", offset: [298.0, -20.0]}}
- ],
- ports: [{
- id: "CSCanvas",
- width: 753,
- height: 540,
- transform: [{visibleRect: [-8.362618329472264, 7.29077405760399, 8.451938685461288, -4.767474000914095]}],
- axes: true,
- grid: 1.0,
- snap: true,
- background: "rgb(168,176,192)"
- }],
- csconsole: false,
- cinderella: {build: 1894, version: [2, 9, 1894]}
-});
- </script>
-</head>
-<body>
- <div id="CSCanvas"></div>
-</body>
-</html>
diff --git a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/kc.sh b/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/kc.sh
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketcindy/ketsample/samplesJS/kc.sh
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketcindy/source/ketjava/KetCindyPlugin.java b/texmf-dist/doc/support/ketcindy/source/ketjava/KetCindyPlugin.java
index a054c8f3..3e7d6312 100644
--- a/texmf-dist/doc/support/ketcindy/source/ketjava/KetCindyPlugin.java
+++ b/texmf-dist/doc/support/ketcindy/source/ketjava/KetCindyPlugin.java
@@ -13,7 +13,7 @@ public class KetCindyPlugin extends CindyScriptPlugin {
@CindyScript("ketjavaversion")
public String ketjavaversion() {
- return "Ketjava 2017.09.06";
+ return "Ketjava 2017.11.08";
}
public String getName() {
@@ -53,6 +53,12 @@ public class KetCindyPlugin extends CindyScriptPlugin {
public String gethome() {
return System.getProperty("user.home");
}
+
+ @CindyScript("getname")
+ // 17.10.08
+ public String getname() {
+ return System.getProperty("user.name");
+ }
@CindyScript("iswindows")
static public boolean iswindows(){
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dscreen.png b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dscreen.png
new file mode 100644
index 00000000..7bb7441d
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dscreen.png
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dstart.png b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dstart.png
new file mode 100644
index 00000000..f4dc5106
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/3dstart.png
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL0.png b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL0.png
new file mode 100644
index 00000000..31fbe0bd
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL0.png
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL1.tex
new file mode 100644
index 00000000..dc1340de
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL1.tex
@@ -0,0 +1,68 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-9 13:39
+%%% template.sce 2016-8-9 13:39
+{\unitlength=8mm%
+\begin{picture}%
+( 7.00000, 6.00000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\special{pn 8}%
+\special{pa 4 -2}\special{pa -4 2}\special{fp}\special{pa -32 14}\special{pa -39 17}\special{fp}%
+\special{pa -68 29}\special{pa -75 32}\special{fp}\special{pa -103 44}\special{pa -111 47}\special{fp}%
+\special{pa -139 59}\special{pa -147 62}\special{fp}\special{pa -175 74}\special{pa -182 77}\special{fp}%
+\special{pa -211 89}\special{pa -218 92}\special{fp}\special{pa -246 104}\special{pa -254 107}\special{fp}%
+\special{pa -282 119}\special{pa -290 122}\special{fp}\special{pa -318 134}\special{pa -325 137}\special{fp}%
+\special{pa -354 149}\special{pa -361 153}\special{fp}\special{pa -389 164}\special{pa -397 168}\special{fp}%
+\special{pa -425 180}\special{pa -432 183}\special{fp}\special{pa -461 195}\special{pa -468 198}\special{fp}%
+\special{pa -496 210}\special{pa -504 213}\special{fp}\special{pa -532 225}\special{pa -540 228}\special{fp}%
+\special{pa -568 240}\special{pa -575 243}\special{fp}\special{pa -604 255}\special{pa -611 258}\special{fp}%
+\special{pn 8}%
+\special{pa -607 257}\special{pa 116 472}%
+\special{fp}%
+\special{pa 116 472}\special{pa 724 215}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -4 -1}\special{pa 4 1}\special{fp}\special{pa 34 10}\special{pa 42 12}\special{fp}%
+\special{pa 72 22}\special{pa 80 24}\special{fp}\special{pa 110 33}\special{pa 118 35}\special{fp}%
+\special{pa 149 44}\special{pa 156 46}\special{fp}\special{pa 187 56}\special{pa 194 58}\special{fp}%
+\special{pa 225 67}\special{pa 232 69}\special{fp}\special{pa 263 78}\special{pa 271 80}\special{fp}%
+\special{pa 301 90}\special{pa 309 92}\special{fp}\special{pa 339 101}\special{pa 347 103}\special{fp}%
+\special{pa 377 112}\special{pa 385 114}\special{fp}\special{pa 415 124}\special{pa 423 126}\special{fp}%
+\special{pa 453 135}\special{pa 461 137}\special{fp}\special{pa 491 146}\special{pa 499 148}\special{fp}%
+\special{pa 530 158}\special{pa 537 160}\special{fp}\special{pa 568 169}\special{pa 575 171}\special{fp}%
+\special{pa 606 180}\special{pa 613 182}\special{fp}\special{pa 644 192}\special{pa 651 194}\special{fp}%
+\special{pa 682 203}\special{pa 690 205}\special{fp}\special{pa 720 214}\special{pa 728 216}\special{fp}%
+\special{pn 8}%
+\special{pa 116 472}\special{pa 116 160}%
+\special{fp}%
+\special{pa 116 160}\special{pa -607 -315}%
+\special{fp}%
+\special{pa -607 257}\special{pa -607 -315}%
+\special{fp}%
+\special{pa 724 215}\special{pa 724 -539}%
+\special{fp}%
+\special{pa 116 160}\special{pa 724 -539}%
+\special{fp}%
+\special{pa 724 -539}\special{pa 367 -774}%
+\special{fp}%
+\special{pa 367 -774}\special{pa 0 -883}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 0 4}\special{pa 0 -4}\special{fp}\special{pa 0 -36}\special{pa 0 -44}\special{fp}%
+\special{pa 0 -76}\special{pa 0 -84}\special{fp}\special{pa 0 -116}\special{pa 0 -124}\special{fp}%
+\special{pa 0 -157}\special{pa 0 -165}\special{fp}\special{pa 0 -197}\special{pa 0 -205}\special{fp}%
+\special{pa 0 -237}\special{pa 0 -245}\special{fp}\special{pa 0 -277}\special{pa 0 -285}\special{fp}%
+\special{pa 0 -317}\special{pa 0 -325}\special{fp}\special{pa 0 -357}\special{pa 0 -365}\special{fp}%
+\special{pa 0 -398}\special{pa 0 -406}\special{fp}\special{pa 0 -438}\special{pa 0 -446}\special{fp}%
+\special{pa 0 -478}\special{pa 0 -486}\special{fp}\special{pa 0 -518}\special{pa 0 -526}\special{fp}%
+\special{pa 0 -558}\special{pa 0 -566}\special{fp}\special{pa 0 -598}\special{pa 0 -606}\special{fp}%
+\special{pa 0 -639}\special{pa 0 -647}\special{fp}\special{pa 0 -679}\special{pa 0 -687}\special{fp}%
+\special{pa 0 -719}\special{pa 0 -727}\special{fp}\special{pa 0 -759}\special{pa 0 -767}\special{fp}%
+\special{pa 0 -799}\special{pa 0 -807}\special{fp}\special{pa 0 -839}\special{pa 0 -847}\special{fp}%
+\special{pa 0 -879}\special{pa 0 -887}\special{fp}\special{pn 8}%
+\special{pa 0 -883}\special{pa -180 -807}%
+\special{fp}%
+\special{pa -607 -315}\special{pa -180 -807}%
+\special{fp}%
+\special{pa 367 -774}\special{pa -180 -807}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL2.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL2.tex
new file mode 100644
index 00000000..51a3442a
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/IntersectsgpL2.tex
@@ -0,0 +1,118 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-9 13:37
+%%% template.sce 2016-8-9 13:37
+{\unitlength=8mm%
+\begin{picture}%
+( 7.00000, 6.00000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\special{pn 8}%
+\special{pa 4 -2}\special{pa -4 2}\special{fp}\special{pa -32 14}\special{pa -39 17}\special{fp}%
+\special{pa -68 29}\special{pa -75 32}\special{fp}\special{pa -103 44}\special{pa -111 47}\special{fp}%
+\special{pa -139 59}\special{pa -147 62}\special{fp}\special{pa -175 74}\special{pa -182 77}\special{fp}%
+\special{pa -211 89}\special{pa -218 92}\special{fp}\special{pa -246 104}\special{pa -254 107}\special{fp}%
+\special{pa -282 119}\special{pa -290 122}\special{fp}\special{pa -318 134}\special{pa -325 137}\special{fp}%
+\special{pa -354 149}\special{pa -361 153}\special{fp}\special{pa -389 164}\special{pa -397 168}\special{fp}%
+\special{pa -425 180}\special{pa -432 183}\special{fp}\special{pa -461 195}\special{pa -468 198}\special{fp}%
+\special{pa -496 210}\special{pa -504 213}\special{fp}\special{pa -532 225}\special{pa -540 228}\special{fp}%
+\special{pa -568 240}\special{pa -575 243}\special{fp}\special{pa -604 255}\special{pa -611 258}\special{fp}%
+\special{pn 8}%
+\special{pa -607 257}\special{pa 116 472}%
+\special{fp}%
+\special{pa 116 472}\special{pa 724 215}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -4 -1}\special{pa 4 1}\special{fp}\special{pa 34 10}\special{pa 42 12}\special{fp}%
+\special{pa 72 22}\special{pa 80 24}\special{fp}\special{pa 110 33}\special{pa 118 35}\special{fp}%
+\special{pa 149 44}\special{pa 156 46}\special{fp}\special{pa 187 56}\special{pa 194 58}\special{fp}%
+\special{pa 225 67}\special{pa 232 69}\special{fp}\special{pa 263 78}\special{pa 271 80}\special{fp}%
+\special{pa 301 90}\special{pa 309 92}\special{fp}\special{pa 339 101}\special{pa 347 103}\special{fp}%
+\special{pa 377 112}\special{pa 385 114}\special{fp}\special{pa 415 124}\special{pa 423 126}\special{fp}%
+\special{pa 453 135}\special{pa 461 137}\special{fp}\special{pa 491 146}\special{pa 499 148}\special{fp}%
+\special{pa 530 158}\special{pa 537 160}\special{fp}\special{pa 568 169}\special{pa 575 171}\special{fp}%
+\special{pa 606 180}\special{pa 613 182}\special{fp}\special{pa 644 192}\special{pa 651 194}\special{fp}%
+\special{pa 682 203}\special{pa 690 205}\special{fp}\special{pa 720 214}\special{pa 728 216}\special{fp}%
+\special{pn 8}%
+\special{pa 116 472}\special{pa 116 160}%
+\special{fp}%
+\special{pa 116 160}\special{pa -607 -315}%
+\special{fp}%
+\special{pa -607 257}\special{pa -607 -315}%
+\special{fp}%
+\special{pa 724 215}\special{pa 724 -539}%
+\special{fp}%
+\special{pa 116 160}\special{pa 724 -539}%
+\special{fp}%
+\special{pa 724 -539}\special{pa 367 -774}%
+\special{fp}%
+\special{pa 367 -774}\special{pa 0 -883}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 0 4}\special{pa 0 -4}\special{fp}\special{pa 0 -36}\special{pa 0 -44}\special{fp}%
+\special{pa 0 -76}\special{pa 0 -84}\special{fp}\special{pa 0 -116}\special{pa 0 -124}\special{fp}%
+\special{pa 0 -157}\special{pa 0 -165}\special{fp}\special{pa 0 -197}\special{pa 0 -205}\special{fp}%
+\special{pa 0 -237}\special{pa 0 -245}\special{fp}\special{pa 0 -277}\special{pa 0 -285}\special{fp}%
+\special{pa 0 -317}\special{pa 0 -325}\special{fp}\special{pa 0 -357}\special{pa 0 -365}\special{fp}%
+\special{pa 0 -398}\special{pa 0 -406}\special{fp}\special{pa 0 -438}\special{pa 0 -446}\special{fp}%
+\special{pa 0 -478}\special{pa 0 -486}\special{fp}\special{pa 0 -518}\special{pa 0 -526}\special{fp}%
+\special{pa 0 -558}\special{pa 0 -566}\special{fp}\special{pa 0 -598}\special{pa 0 -606}\special{fp}%
+\special{pa 0 -639}\special{pa 0 -647}\special{fp}\special{pa 0 -679}\special{pa 0 -687}\special{fp}%
+\special{pa 0 -719}\special{pa 0 -727}\special{fp}\special{pa 0 -759}\special{pa 0 -767}\special{fp}%
+\special{pa 0 -799}\special{pa 0 -807}\special{fp}\special{pa 0 -839}\special{pa 0 -847}\special{fp}%
+\special{pa 0 -879}\special{pa 0 -887}\special{fp}\special{pn 8}%
+\special{pa 0 -883}\special{pa -180 -807}%
+\special{fp}%
+\special{pa -607 -315}\special{pa -180 -807}%
+\special{fp}%
+\special{pa 367 -774}\special{pa -180 -807}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -607 -311}\special{pa -607 -319}\special{fp}\special{pa -607 -349}\special{pa -607 -357}\special{fp}%
+\special{pa -607 -388}\special{pa -607 -396}\special{fp}\special{pa -607 -427}\special{pa -607 -435}\special{fp}%
+\special{pa -607 -466}\special{pa -607 -474}\special{fp}\special{pa -607 -505}\special{pa -607 -513}\special{fp}%
+\special{pa -607 -543}\special{pa -607 -551}\special{fp}\special{pa -607 -582}\special{pa -607 -590}\special{fp}%
+\special{pa -609 -622}\special{pa -605 -628}\special{fp}\special{pa -577 -640}\special{pa -570 -643}\special{fp}%
+\special{pa -541 -655}\special{pa -534 -658}\special{fp}\special{pa -505 -670}\special{pa -498 -673}\special{fp}%
+\special{pa -470 -685}\special{pa -462 -688}\special{fp}\special{pa -434 -700}\special{pa -427 -703}\special{fp}%
+\special{pa -398 -715}\special{pa -391 -718}\special{fp}\special{pa -363 -730}\special{pa -355 -733}\special{fp}%
+\special{pa -327 -745}\special{pa -319 -749}\special{fp}\special{pa -291 -761}\special{pa -284 -764}\special{fp}%
+\special{pa -255 -776}\special{pa -248 -779}\special{fp}\special{pa -220 -791}\special{pa -212 -794}\special{fp}%
+\special{pa -184 -806}\special{pa -176 -809}\special{fp}\special{pn 8}%
+\special{pn 8}%
+\special{pa -611 -628}\special{pa -604 -626}\special{fp}\special{pa -574 -617}\special{pa -566 -615}\special{fp}%
+\special{pa -536 -606}\special{pa -529 -603}\special{fp}\special{pa -499 -595}\special{pa -491 -592}\special{fp}%
+\special{pa -462 -584}\special{pa -454 -581}\special{fp}\special{pa -424 -572}\special{pa -417 -570}\special{fp}%
+\special{pa -387 -561}\special{pa -379 -559}\special{fp}\special{pa -349 -550}\special{pa -342 -548}\special{fp}%
+\special{pa -312 -539}\special{pa -304 -537}\special{fp}\special{pa -275 -528}\special{pa -267 -526}\special{fp}%
+\special{pa -237 -517}\special{pa -230 -514}\special{fp}\special{pa -200 -506}\special{pa -192 -503}\special{fp}%
+\special{pa -162 -495}\special{pa -155 -492}\special{fp}\special{pa -125 -483}\special{pa -117 -481}\special{fp}%
+\special{pa -88 -472}\special{pa -80 -470}\special{fp}\special{pa -50 -461}\special{pa -43 -459}\special{fp}%
+\special{pa -13 -450}\special{pa -5 -448}\special{fp}\special{pa 25 -439}\special{pa 32 -437}\special{fp}%
+\special{pa 62 -428}\special{pa 70 -425}\special{fp}\special{pa 100 -418}\special{pa 106 -413}\special{fp}%
+\special{pa 116 -390}\special{pa 117 -382}\special{fp}\special{pa 116 -351}\special{pa 116 -343}\special{fp}%
+\special{pa 116 -312}\special{pa 116 -304}\special{fp}\special{pa 116 -273}\special{pa 116 -265}\special{fp}%
+\special{pa 116 -234}\special{pa 116 -226}\special{fp}\special{pa 116 -195}\special{pa 116 -187}\special{fp}%
+\special{pa 116 -156}\special{pa 116 -148}\special{fp}\special{pa 116 -117}\special{pa 116 -109}\special{fp}%
+\special{pa 116 -78}\special{pa 116 -70}\special{fp}\special{pa 116 -39}\special{pa 116 -31}\special{fp}%
+\special{pa 116 0}\special{pa 116 8}\special{fp}\special{pa 116 39}\special{pa 116 47}\special{fp}%
+\special{pa 116 78}\special{pa 116 86}\special{fp}\special{pa 116 117}\special{pa 116 125}\special{fp}%
+\special{pa 116 156}\special{pa 116 164}\special{fp}\special{pn 8}%
+\special{pn 8}%
+\special{pa 113 -410}\special{pa 120 -413}\special{fp}\special{pa 149 -425}\special{pa 156 -428}\special{fp}%
+\special{pa 185 -441}\special{pa 193 -444}\special{fp}\special{pa 222 -456}\special{pa 229 -459}\special{fp}%
+\special{pa 258 -471}\special{pa 265 -474}\special{fp}\special{pa 294 -487}\special{pa 302 -490}\special{fp}%
+\special{pa 331 -502}\special{pa 338 -505}\special{fp}\special{pa 367 -517}\special{pa 374 -521}\special{fp}%
+\special{pa 403 -533}\special{pa 411 -536}\special{fp}\special{pa 440 -548}\special{pa 447 -551}\special{fp}%
+\special{pa 476 -564}\special{pa 484 -567}\special{fp}\special{pa 512 -579}\special{pa 520 -582}\special{fp}%
+\special{pa 549 -594}\special{pa 556 -597}\special{fp}\special{pa 585 -610}\special{pa 593 -613}\special{fp}%
+\special{pa 621 -625}\special{pa 629 -628}\special{fp}\special{pa 658 -640}\special{pa 665 -643}\special{fp}%
+\special{pa 694 -656}\special{pa 702 -658}\special{fp}\special{pa 721 -660}\special{pa 727 -654}\special{fp}%
+\special{pa 724 -621}\special{pa 724 -613}\special{fp}\special{pa 724 -582}\special{pa 724 -574}\special{fp}%
+\special{pa 724 -543}\special{pa 724 -535}\special{fp}\special{pn 8}%
+\special{pn 8}%
+\special{pa 728 -667}\special{pa 720 -669}\special{fp}\special{pa 688 -679}\special{pa 680 -681}\special{fp}%
+\special{pa 648 -691}\special{pa 641 -693}\special{fp}\special{pa 609 -702}\special{pa 601 -705}\special{fp}%
+\special{pa 569 -714}\special{pa 561 -717}\special{fp}\special{pa 529 -726}\special{pa 522 -728}\special{fp}%
+\special{pa 490 -738}\special{pa 482 -740}\special{fp}\special{pa 450 -750}\special{pa 442 -752}\special{fp}%
+\special{pa 410 -761}\special{pa 403 -764}\special{fp}\special{pa 371 -773}\special{pa 363 -776}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/bezier3d1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/bezier3d1.tex
new file mode 100644
index 00000000..477861e1
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/bezier3d1.tex
@@ -0,0 +1,123 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-14 11:12
+%%% template.sce 2016-8-14 11:12
+{\unitlength=8mm%
+\begin{picture}%
+( 9.74000, 5.94000)( -4.74000, -1.94000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.2520,-1.0065){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.3782,-1.4998){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.9050){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1209 -374}\special{pa -967 299}%
+\special{fp}%
+\special{pa -1009 -448}\special{pa 1009 448}%
+\special{fp}%
+\special{pa 0 611}\special{pa 0 -1170}%
+\special{fp}%
+\special{pa -903 254}\special{pa -967 299}\special{pa -888 300}\special{pa -896 277}%
+\special{pa -903 254}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -903 254}\special{pa -967 299}\special{pa -888 300}\special{pa -896 277}%
+\special{pa -903 254}\special{pa -967 299}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 931 440}\special{pa 1009 448}\special{pa 951 395}\special{pa 941 418}%
+\special{pa 931 440}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 931 440}\special{pa 1009 448}\special{pa 951 395}\special{pa 941 418}%
+\special{pa 931 440}\special{pa 1009 448}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1095}\special{pa 0 -1170}\special{pa -24 -1095}\special{pa 0 -1095}%
+\special{pa 24 -1095}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1095}\special{pa 0 -1170}\special{pa -24 -1095}\special{pa 0 -1095}%
+\special{pa 24 -1095}\special{pa 0 -1170}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{\Depth}%
+\put(0.1500,0.1500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pa -484 150}\special{pa -437 81}\special{pa -387 31}\special{pa -335 -1}%
+\special{pa -282 -19}\special{pa -227 -23}\special{pa -171 -16}\special{pa -115 0}%
+\special{pa -60 23}\special{pa -5 52}\special{pa 49 84}\special{pa 101 116}\special{pa 151 148}%
+\special{pa 199 177}\special{pa 243 201}\special{pa 284 219}\special{pa 321 227}\special{pa 354 225}%
+\special{pa 382 209}\special{pa 404 179}\special{pa 423 90}\special{pa 433 13}\special{pa 435 -52}%
+\special{pa 429 -108}\special{pa 417 -154}\special{pa 399 -193}\special{pa 376 -226}%
+\special{pa 349 -253}\special{pa 319 -277}\special{pa 286 -298}\special{pa 251 -319}%
+\special{pa 215 -339}\special{pa 178 -360}\special{pa 143 -384}\special{pa 108 -411}%
+\special{pa 76 -444}\special{pa 47 -483}\special{pa 21 -530}\special{pa 0 -585}%
+\special{fp}%
+\special{pn 1}%
+\special{pa -475 141}\special{pa -482 138}\special{pa -489 139}\special{pa -494 144}%
+\special{pa -495 152}\special{pa -492 158}\special{pa -485 161}\special{pa -478 160}%
+\special{pa -473 155}\special{pa -472 148}\special{pa -475 141}\special{sh 1}\special{fp}%
+\special{pa 412 171}\special{pa 406 168}\special{pa 398 169}\special{pa 393 174}\special{pa 392 181}%
+\special{pa 395 188}\special{pa 402 191}\special{pa 409 190}\special{pa 414 185}\special{pa 415 177}%
+\special{pa 412 171}\special{sh 1}\special{fp}%
+\special{pa 8 -593}\special{pa 2 -597}\special{pa -5 -596}\special{pa -11 -590}\special{pa -12 -583}%
+\special{pa -8 -577}\special{pa -2 -573}\special{pa 5 -575}\special{pa 11 -580}\special{pa 12 -587}%
+\special{pa 8 -593}\special{sh 1}\special{fp}%
+\special{pa -187 -360}\special{pa -194 -363}\special{pa -201 -362}\special{pa -206 -357}%
+\special{pa -207 -350}\special{pa -204 -343}\special{pa -197 -340}\special{pa -190 -341}%
+\special{pa -185 -346}\special{pa -184 -354}\special{pa -187 -360}\special{sh 1}\special{fp}%
+\special{pa 290 414}\special{pa 283 410}\special{pa 276 411}\special{pa 271 417}\special{pa 270 424}%
+\special{pa 273 430}\special{pa 279 434}\special{pa 287 433}\special{pa 292 427}\special{pa 293 420}%
+\special{pa 290 414}\special{sh 1}\special{fp}%
+\special{pa 563 -438}\special{pa 557 -441}\special{pa 549 -440}\special{pa 544 -435}%
+\special{pa 543 -428}\special{pa 546 -421}\special{pa 553 -418}\special{pa 560 -419}%
+\special{pa 565 -424}\special{pa 567 -432}\special{pa 563 -438}\special{sh 1}\special{fp}%
+\special{pa 126 -212}\special{pa 119 -215}\special{pa 112 -214}\special{pa 107 -209}%
+\special{pa 106 -201}\special{pa 109 -195}\special{pa 115 -192}\special{pa 123 -193}%
+\special{pa 128 -198}\special{pa 129 -205}\special{pa 126 -212}\special{sh 1}\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{A}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{-\Height}%
+\put(-1.5352,-0.5252){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{\Depth}%
+\put(1.3318,-0.5191){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{\Depth}%
+\put(0.0500,1.9075){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(-0.5703,1.1665){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\settowidth{\Width}{E}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{E}\settodepth{\Depth}{E}\setlength{\Height}{-\Height}%
+\put(0.9432,-1.3898){\hspace*{\Width}\raisebox{\Height}{E}}%
+%
+%
+\settowidth{\Width}{F}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{F}\settodepth{\Depth}{F}\setlength{\Height}{\Depth}%
+\put(1.8116,1.4146){\hspace*{\Width}\raisebox{\Height}{F}}%
+%
+%
+\settowidth{\Width}{G}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{G}\settodepth{\Depth}{G}\setlength{\Height}{\Depth}%
+\put(0.4222,0.6951){\hspace*{\Width}\raisebox{\Height}{G}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/concatobj.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/concatobj.tex
new file mode 100644
index 00000000..ce715411
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/concatobj.tex
@@ -0,0 +1,42 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-24 20:24
+%%% template.sce 2016-8-24 20:24
+{\unitlength=8mm%
+\begin{picture}%
+( 5.00000, 5.00000)( -3.00000, -1.00000)%
+\special{pn 8}%
+%
+\special{pa 483 -179}\special{pa 185 -147}%
+\special{fp}%
+\special{pa 137 -141}\special{pa -712 -48}%
+\special{fp}%
+\special{pa -712 -48}\special{pa 229 228}%
+\special{fp}%
+\special{pa 483 -179}\special{pa 229 228}%
+\special{fp}%
+\special{pa -712 -48}\special{pa 0 -1030}%
+\special{fp}%
+\special{pa 483 -179}\special{pa 0 -1030}%
+\special{fp}%
+\special{pa 229 228}\special{pa 0 -1030}%
+\special{fp}%
+\settowidth{\Width}{A}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{\Depth}%
+\put(-0.0500,3.3201){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.4118,0.1538){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{-\Height}%
+\put(0.7771,-0.7732){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(1.5848,0.6193){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata1.tex
new file mode 100644
index 00000000..26edbc69
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata1.tex
@@ -0,0 +1,74 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-24 21:8
+%%% template.sce 2016-8-24 21:8
+{\unitlength=6mm%
+\begin{picture}%
+( 6.81000, 6.95000)( -3.50000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7936,-1.0660){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.9651,-1.1310){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.4380){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 471 -14}\special{pa 461 -50}\special{pa 451 -85}\special{pa 442 -120}%
+\special{pa 432 -153}\special{pa 422 -186}\special{pa 413 -219}\special{pa 403 -250}%
+\special{pa 393 -281}\special{pa 383 -311}\special{pa 374 -341}\special{pa 364 -369}%
+\special{pa 354 -397}\special{pa 345 -424}\special{pa 335 -451}\special{pa 325 -476}%
+\special{pa 315 -501}\special{pa 306 -525}\special{pa 296 -549}\special{pa 286 -571}%
+\special{pa 277 -593}\special{pa 268 -611}\special{pa 257 -635}\special{pa 247 -654}%
+\special{pa 237 -673}\special{pa 228 -692}\special{pa 218 -709}\special{pa 208 -726}%
+\special{pa 198 -742}\special{pa 188 -757}\special{pa 178 -772}\special{pa 169 -785}%
+\special{pa 159 -798}\special{pa 149 -810}\special{pa 143 -817}\special{pa 139 -822}%
+\special{pa 129 -833}\special{pa 118 -843}\special{pa 108 -852}\special{pa 98 -861}%
+\special{pa 87 -868}\special{pa 76 -876}\special{pa 69 -880}\special{pa 53 -887}\special{pa 41 -892}%
+\special{pa 31 -895}\special{pa 25 -896}\special{pa 17 -898}\special{pa 6 -899}\special{pa -5 -899}%
+\special{pa -16 -898}\special{pa -23 -897}\special{pa -30 -895}\special{pa -39 -893}%
+\special{pa -51 -888}\special{pa -65 -882}\special{pa -76 -876}\special{pa -87 -868}%
+\special{pa -98 -861}\special{pa -108 -852}\special{pa -118 -843}\special{pa -129 -833}%
+\special{pa -135 -826}\special{pa -149 -810}\special{pa -159 -798}\special{pa -169 -785}%
+\special{pa -178 -772}\special{pa -188 -757}\special{pa -198 -742}\special{pa -208 -726}%
+\special{pa -218 -709}\special{pa -228 -692}\special{pa -237 -673}\special{pa -243 -662}%
+\special{pa -247 -654}\special{pa -257 -635}\special{pa -267 -614}\special{pa -277 -593}%
+\special{pa -286 -571}\special{pa -296 -549}\special{pa -306 -525}\special{pa -315 -501}%
+\special{pa -325 -476}\special{pa -335 -451}\special{pa -345 -424}\special{pa -354 -397}%
+\special{pa -364 -369}\special{pa -374 -341}\special{pa -383 -311}\special{pa -393 -281}%
+\special{pa -403 -250}\special{pa -413 -219}\special{pa -422 -186}\special{pa -432 -153}%
+\special{pa -442 -120}\special{pa -451 -85}\special{pa -461 -50}\special{pa -471 -14}%
+\special{fp}%
+\special{pa -309 118}\special{pa -262 130}\special{pa -210 140}\special{pa -156 147}%
+\special{pa -99 152}\special{pa -40 155}\special{pa 19 156}\special{pa 78 154}\special{pa 136 149}%
+\special{pa 192 142}\special{pa 244 133}\special{pa 293 122}\special{pa 337 109}\special{pa 376 94}%
+\special{pa 409 78}\special{pa 435 61}\special{pa 455 42}\special{pa 467 23}\special{pa 472 3}%
+\special{pa 470 -16}\special{pa 460 -35}%
+\special{fp}%
+\special{pa -467 -23}\special{pa -472 -3}\special{pa -470 16}\special{pa -460 35}%
+\special{pa -443 54}\special{pa -419 72}\special{pa -388 89}\special{pa -351 104}%
+\special{pa -309 118}%
+\special{fp}%
+\special{pa -536 -153}\special{pa -424 -191}%
+\special{fp}%
+\special{pa 241 -416}\special{pa 536 -516}%
+\special{fp}%
+\special{pa 772 -295}\special{pa 429 -164}%
+\special{fp}%
+\special{pa -309 118}\special{pa -618 236}%
+\special{fp}%
+\special{pa -827 -236}\special{pa -440 -125}%
+\special{fp}%
+\special{pa 357 102}\special{pa 782 223}%
+\special{fp}%
+\special{pa 0 472}\special{pa 0 156}%
+\special{fp}%
+\special{pa 0 -899}\special{pa 0 -1003}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata2.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata2.tex
new file mode 100644
index 00000000..130e59cb
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/crvsfparadata2.tex
@@ -0,0 +1,139 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-24 21:3
+%%% template.sce 2016-8-24 21:3
+{\unitlength=6mm%
+\begin{picture}%
+( 6.81000, 6.95000)( -3.50000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7936,-1.0660){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.9651,-1.1310){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.4380){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 471 -14}\special{pa 461 -50}\special{pa 451 -85}\special{pa 442 -120}%
+\special{pa 432 -153}\special{pa 422 -186}\special{pa 413 -219}\special{pa 403 -250}%
+\special{pa 393 -281}\special{pa 383 -311}\special{pa 374 -341}\special{pa 364 -369}%
+\special{pa 354 -397}\special{pa 345 -424}\special{pa 335 -451}\special{pa 325 -476}%
+\special{pa 315 -501}\special{pa 306 -525}\special{pa 296 -549}\special{pa 286 -571}%
+\special{pa 277 -593}\special{pa 268 -611}\special{pa 257 -635}\special{pa 247 -654}%
+\special{pa 237 -673}\special{pa 228 -692}\special{pa 218 -709}\special{pa 208 -726}%
+\special{pa 198 -742}\special{pa 188 -757}\special{pa 178 -772}\special{pa 169 -785}%
+\special{pa 159 -798}\special{pa 149 -810}\special{pa 143 -817}\special{pa 139 -822}%
+\special{pa 129 -833}\special{pa 118 -843}\special{pa 108 -852}\special{pa 98 -861}%
+\special{pa 87 -868}\special{pa 76 -876}\special{pa 69 -880}\special{pa 53 -887}\special{pa 41 -892}%
+\special{pa 31 -895}\special{pa 25 -896}\special{pa 17 -898}\special{pa 6 -899}\special{pa -5 -899}%
+\special{pa -16 -898}\special{pa -23 -897}\special{pa -30 -895}\special{pa -39 -893}%
+\special{pa -51 -888}\special{pa -65 -882}\special{pa -76 -876}\special{pa -87 -868}%
+\special{pa -98 -861}\special{pa -108 -852}\special{pa -118 -843}\special{pa -129 -833}%
+\special{pa -135 -826}\special{pa -149 -810}\special{pa -159 -798}\special{pa -169 -785}%
+\special{pa -178 -772}\special{pa -188 -757}\special{pa -198 -742}\special{pa -208 -726}%
+\special{pa -218 -709}\special{pa -228 -692}\special{pa -237 -673}\special{pa -243 -662}%
+\special{pa -247 -654}\special{pa -257 -635}\special{pa -267 -614}\special{pa -277 -593}%
+\special{pa -286 -571}\special{pa -296 -549}\special{pa -306 -525}\special{pa -315 -501}%
+\special{pa -325 -476}\special{pa -335 -451}\special{pa -345 -424}\special{pa -354 -397}%
+\special{pa -364 -369}\special{pa -374 -341}\special{pa -383 -311}\special{pa -393 -281}%
+\special{pa -403 -250}\special{pa -413 -219}\special{pa -422 -186}\special{pa -432 -153}%
+\special{pa -442 -120}\special{pa -451 -85}\special{pa -461 -50}\special{pa -471 -14}%
+\special{fp}%
+\special{pa -309 118}\special{pa -262 130}\special{pa -210 140}\special{pa -156 147}%
+\special{pa -99 152}\special{pa -40 155}\special{pa 19 156}\special{pa 78 154}\special{pa 136 149}%
+\special{pa 192 142}\special{pa 244 133}\special{pa 293 122}\special{pa 337 109}\special{pa 376 94}%
+\special{pa 409 78}\special{pa 435 61}\special{pa 455 42}\special{pa 467 23}\special{pa 472 3}%
+\special{pa 470 -16}\special{pa 460 -35}%
+\special{fp}%
+\special{pa -467 -23}\special{pa -472 -3}\special{pa -470 16}\special{pa -460 35}%
+\special{pa -443 54}\special{pa -419 72}\special{pa -388 89}\special{pa -351 104}%
+\special{pa -309 118}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 463 -33}\special{pa 457 -38}\special{fp}\special{pa 435 -60}\special{pa 428 -65}\special{fp}%
+\special{pa 402 -82}\special{pa 395 -85}\special{fp}\special{pa 366 -98}\special{pa 358 -101}\special{fp}%
+\special{pa 329 -112}\special{pa 321 -114}\special{fp}\special{pa 291 -122}\special{pa 283 -124}\special{fp}%
+\special{pa 252 -132}\special{pa 244 -133}\special{fp}\special{pa 213 -139}\special{pa 205 -140}\special{fp}%
+\special{pa 174 -145}\special{pa 166 -146}\special{fp}\special{pa 135 -149}\special{pa 127 -150}\special{fp}%
+\special{pa 96 -153}\special{pa 88 -153}\special{fp}\special{pa 56 -155}\special{pa 48 -155}\special{fp}%
+\special{pa 17 -155}\special{pa 9 -156}\special{fp}\special{pa -23 -156}\special{pa -31 -155}\special{fp}%
+\special{pa -63 -154}\special{pa -71 -154}\special{fp}\special{pa -102 -152}\special{pa -110 -151}\special{fp}%
+\special{pa -141 -149}\special{pa -149 -148}\special{fp}\special{pa -181 -144}\special{pa -189 -143}\special{fp}%
+\special{pa -220 -138}\special{pa -228 -136}\special{fp}\special{pa -258 -130}\special{pa -266 -128}\special{fp}%
+\special{pa -297 -121}\special{pa -305 -119}\special{fp}\special{pa -335 -110}\special{pa -342 -107}\special{fp}%
+\special{pa -372 -96}\special{pa -379 -93}\special{fp}\special{pa -407 -79}\special{pa -414 -75}\special{fp}%
+\special{pa -440 -56}\special{pa -446 -51}\special{fp}\special{pa -465 -26}\special{pa -470 -20}\special{fp}%
+\special{pn 8}%
+\special{pa -536 -153}\special{pa -424 -191}%
+\special{fp}%
+\special{pa 241 -416}\special{pa 536 -516}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -428 -190}\special{pa -420 -192}\special{fp}\special{pa -391 -202}\special{pa -383 -205}\special{fp}%
+\special{pa -354 -215}\special{pa -346 -217}\special{fp}\special{pa -317 -227}\special{pa -309 -230}\special{fp}%
+\special{pa -280 -240}\special{pa -272 -242}\special{fp}\special{pa -243 -252}\special{pa -235 -255}\special{fp}%
+\special{pa -206 -265}\special{pa -198 -267}\special{fp}\special{pa -169 -277}\special{pa -161 -280}\special{fp}%
+\special{pa -132 -290}\special{pa -124 -292}\special{fp}\special{pa -95 -302}\special{pa -87 -305}\special{fp}%
+\special{pa -58 -315}\special{pa -50 -317}\special{fp}\special{pa -21 -327}\special{pa -14 -330}\special{fp}%
+\special{pa 16 -340}\special{pa 23 -342}\special{fp}\special{pa 53 -352}\special{pa 60 -355}\special{fp}%
+\special{pa 90 -365}\special{pa 97 -367}\special{fp}\special{pa 127 -377}\special{pa 134 -380}\special{fp}%
+\special{pa 164 -390}\special{pa 171 -392}\special{fp}\special{pa 201 -402}\special{pa 208 -405}\special{fp}%
+\special{pa 238 -415}\special{pa 245 -418}\special{fp}\special{pn 8}%
+\special{pa 772 -295}\special{pa 429 -164}%
+\special{fp}%
+\special{pa -309 118}\special{pa -618 236}%
+\special{fp}%
+\special{pa -827 -236}\special{pa -440 -125}%
+\special{fp}%
+\special{pa 357 102}\special{pa 782 223}%
+\special{fp}%
+\special{pa 0 472}\special{pa 0 156}%
+\special{fp}%
+\special{pa 0 -899}\special{pa 0 -1003}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 433 -165}\special{pa 425 -162}\special{fp}\special{pa 396 -151}\special{pa 388 -148}\special{fp}%
+\special{pa 359 -137}\special{pa 351 -134}\special{fp}\special{pa 322 -123}\special{pa 314 -120}\special{fp}%
+\special{pa 285 -109}\special{pa 278 -106}\special{fp}\special{pa 248 -95}\special{pa 241 -92}\special{fp}%
+\special{pa 211 -81}\special{pa 204 -78}\special{fp}\special{pa 174 -67}\special{pa 167 -64}\special{fp}%
+\special{pa 137 -52}\special{pa 130 -50}\special{fp}\special{pa 101 -38}\special{pa 93 -36}\special{fp}%
+\special{pa 64 -24}\special{pa 56 -21}\special{fp}\special{pa 27 -10}\special{pa 19 -7}\special{fp}%
+\special{pa -10 4}\special{pa -18 7}\special{fp}\special{pa -47 18}\special{pa -54 21}\special{fp}%
+\special{pa -84 32}\special{pa -91 35}\special{fp}\special{pa -121 46}\special{pa -128 49}\special{fp}%
+\special{pa -158 60}\special{pa -165 63}\special{fp}\special{pa -195 74}\special{pa -202 77}\special{fp}%
+\special{pa -231 88}\special{pa -239 91}\special{fp}\special{pa -268 102}\special{pa -276 105}\special{fp}%
+\special{pa -305 116}\special{pa -313 119}\special{fp}\special{pn 8}%
+\special{pa -444 -127}\special{pa -436 -124}\special{fp}\special{pa -406 -116}\special{pa -398 -114}\special{fp}%
+\special{pa -368 -105}\special{pa -360 -103}\special{fp}\special{pa -330 -94}\special{pa -322 -92}\special{fp}%
+\special{pa -292 -83}\special{pa -284 -81}\special{fp}\special{pa -254 -72}\special{pa -246 -70}\special{fp}%
+\special{pa -216 -62}\special{pa -208 -59}\special{fp}\special{pa -178 -51}\special{pa -171 -49}\special{fp}%
+\special{pa -140 -40}\special{pa -133 -38}\special{fp}\special{pa -102 -29}\special{pa -95 -27}\special{fp}%
+\special{pa -64 -18}\special{pa -57 -16}\special{fp}\special{pa -26 -8}\special{pa -19 -5}\special{fp}%
+\special{pa 11 3}\special{pa 19 5}\special{fp}\special{pa 49 14}\special{pa 57 16}\special{fp}%
+\special{pa 87 25}\special{pa 95 27}\special{fp}\special{pa 125 36}\special{pa 133 38}\special{fp}%
+\special{pa 163 47}\special{pa 171 49}\special{fp}\special{pa 201 57}\special{pa 209 60}\special{fp}%
+\special{pa 239 68}\special{pa 247 70}\special{fp}\special{pa 277 79}\special{pa 285 81}\special{fp}%
+\special{pa 315 90}\special{pa 323 92}\special{fp}\special{pa 353 101}\special{pa 361 103}\special{fp}%
+\special{pn 8}%
+\special{pa 0 160}\special{pa 0 152}\special{fp}\special{pa 0 121}\special{pa 0 113}\special{fp}%
+\special{pa 0 82}\special{pa 0 74}\special{fp}\special{pa 0 42}\special{pa 0 34}\special{fp}%
+\special{pa 0 3}\special{pa 0 -5}\special{fp}\special{pa 0 -36}\special{pa 0 -44}\special{fp}%
+\special{pa 0 -75}\special{pa 0 -83}\special{fp}\special{pa 0 -114}\special{pa 0 -122}\special{fp}%
+\special{pa 0 -153}\special{pa 0 -161}\special{fp}\special{pa 0 -192}\special{pa 0 -200}\special{fp}%
+\special{pa 0 -231}\special{pa 0 -239}\special{fp}\special{pa 0 -270}\special{pa 0 -278}\special{fp}%
+\special{pa 0 -309}\special{pa 0 -317}\special{fp}\special{pa 0 -348}\special{pa 0 -356}\special{fp}%
+\special{pa 0 -387}\special{pa 0 -395}\special{fp}\special{pa 0 -426}\special{pa 0 -434}\special{fp}%
+\special{pa 0 -465}\special{pa 0 -473}\special{fp}\special{pa 0 -504}\special{pa 0 -512}\special{fp}%
+\special{pa 0 -543}\special{pa 0 -551}\special{fp}\special{pa 0 -582}\special{pa 0 -590}\special{fp}%
+\special{pa 0 -621}\special{pa 0 -629}\special{fp}\special{pa 0 -660}\special{pa 0 -668}\special{fp}%
+\special{pa 0 -699}\special{pa 0 -707}\special{fp}\special{pa 0 -738}\special{pa 0 -746}\special{fp}%
+\special{pa 0 -778}\special{pa 0 -786}\special{fp}\special{pa 0 -817}\special{pa 0 -825}\special{fp}%
+\special{pa 0 -856}\special{pa 0 -864}\special{fp}\special{pa 0 -895}\special{pa 0 -903}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed01.tex
new file mode 100644
index 00000000..78f074ba
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed01.tex
@@ -0,0 +1,79 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-18 19:51
+%%% template.sce 2016-8-18 19:51
+{\unitlength=8mm%
+\begin{picture}%
+( 7.09000, 7.64000)( -4.39000, -1.91000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.9477,-0.3675){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(1.5243,-1.0700){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,5.0239){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 850 -79}\special{pa -1184 110}%
+\special{fp}%
+\special{pa -1078 -757}\special{pa 431 303}%
+\special{fp}%
+\special{pa 0 602}\special{pa 0 -1522}%
+\special{fp}%
+\special{pa -1111 79}\special{pa -1184 110}\special{pa -1107 127}\special{pa -1109 103}%
+\special{pa -1111 79}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -1111 79}\special{pa -1184 110}\special{pa -1107 127}\special{pa -1109 103}%
+\special{pa -1111 79}\special{pa -1184 110}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 356 280}\special{pa 431 303}\special{pa 384 240}\special{pa 370 260}\special{pa 356 280}%
+\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 356 280}\special{pa 431 303}\special{pa 384 240}\special{pa 370 260}\special{pa 356 280}%
+\special{pa 431 303}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1448}\special{pa 0 -1522}\special{pa -24 -1448}\special{pa 0 -1448}%
+\special{pa 24 -1448}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1448}\special{pa 0 -1522}\special{pa -24 -1448}\special{pa 0 -1448}%
+\special{pa 24 -1448}\special{pa 0 -1522}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pa -888 83}\special{pa -241 537}\special{pa -241 -1290}\special{pa -888 -1744}%
+\special{pa -888 83}%
+\special{fp}%
+\special{pa -349 -453}\special{pa -351 -530}\special{pa -356 -609}\special{pa -364 -687}%
+\special{pa -376 -765}\special{pa -390 -839}\special{pa -407 -910}\special{pa -427 -977}%
+\special{pa -449 -1037}\special{pa -473 -1090}\special{pa -498 -1136}\special{pa -524 -1174}%
+\special{pa -551 -1202}\special{pa -578 -1221}\special{pa -605 -1230}\special{pa -631 -1230}%
+\special{pa -656 -1219}\special{pa -680 -1199}\special{pa -702 -1170}\special{pa -722 -1131}%
+\special{pa -739 -1084}\special{pa -753 -1030}\special{pa -765 -969}\special{pa -773 -902}%
+\special{pa -778 -830}\special{pa -780 -755}\special{pa -778 -678}\special{pa -773 -599}%
+\special{pa -765 -520}\special{pa -753 -443}\special{pa -739 -368}\special{pa -722 -297}%
+\special{pa -702 -231}\special{pa -680 -171}\special{pa -656 -117}\special{pa -631 -71}%
+\special{pa -605 -34}\special{pa -578 -6}\special{pa -551 13}\special{pa -524 23}%
+\special{pa -498 22}\special{pa -473 12}\special{pa -449 -9}\special{pa -427 -38}%
+\special{pa -407 -77}\special{pa -390 -124}\special{pa -376 -178}\special{pa -364 -239}%
+\special{pa -356 -306}\special{pa -351 -377}\special{pa -349 -453}%
+\special{fp}%
+\special{pa -565 -1213}\special{pa -751 -430}\special{pa -378 -168}\special{pa -565 -1213}%
+\special{fp}%
+\special{pn 3}%
+\special{pa -556 -612}\special{pa -563 -616}\special{pa -570 -614}\special{pa -575 -609}%
+\special{pa -576 -602}\special{pa -573 -596}\special{pa -566 -592}\special{pa -559 -593}%
+\special{pa -554 -599}\special{pa -553 -606}\special{pa -556 -612}\special{sh 1}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed02.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed02.tex
new file mode 100644
index 00000000..115ca20d
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed02.tex
@@ -0,0 +1,82 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-18 21:20
+%%% template.sce 2016-8-18 21:20
+{\unitlength=8mm%
+\begin{picture}%
+( 9.18000, 7.71000)( -4.79000, -2.03000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.4289,-1.0449){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.8060,-1.7060){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.8175){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pn 3}%
+\special{pa -92 -427}\special{pa -99 -430}\special{pa -106 -429}\special{pa -111 -424}%
+\special{pa -112 -417}\special{pa -109 -410}\special{pa -103 -407}\special{pa -95 -408}%
+\special{pa -90 -413}\special{pa -89 -421}\special{pa -92 -427}\special{sh 1}\special{fp}%
+\special{pn 8}%
+\special{pa 1337 -315}\special{pa 811 -191}%
+\special{fp}%
+\special{pa 758 -179}\special{pa 380 -90}%
+\special{fp}%
+\special{pa 305 -72}\special{pa -311 73}%
+\special{fp}%
+\special{pa -385 91}\special{pa -1166 275}%
+\special{fp}%
+\special{pa -1219 288}\special{pa -1337 315}%
+\special{fp}%
+\special{pa -1332 -810}\special{pa -1019 -619}%
+\special{fp}%
+\special{pa -976 -593}\special{pa -742 -451}%
+\special{fp}%
+\special{pa -697 -424}\special{pa -581 -353}%
+\special{fp}%
+\special{pa -538 -327}\special{pa -306 -186}%
+\special{fp}%
+\special{pa -238 -144}\special{pa 78 47}%
+\special{fp}%
+\special{pa 130 79}\special{pa 635 386}%
+\special{fp}%
+\special{pa 677 412}\special{pa 833 506}%
+\special{fp}%
+\special{pa 0 639}\special{pa 0 418}%
+\special{fp}%
+\special{pa 0 369}\special{pa 0 119}%
+\special{fp}%
+\special{pa 0 68}\special{pa 0 -117}%
+\special{fp}%
+\special{pa 0 -166}\special{pa 0 -1458}%
+\special{fp}%
+\special{pa 993 -1126}\special{pa 645 451}\special{pa -1195 289}\special{pa -846 -1288}%
+\special{pa -24 -1216}%
+\special{fp}%
+\special{pa 24 -1212}\special{pa 993 -1126}%
+\special{fp}%
+\special{pa 513 -365}\special{pa 523 -431}\special{pa 522 -497}\special{pa 513 -562}%
+\special{pa 493 -625}\special{pa 464 -684}\special{pa 426 -740}\special{pa 380 -790}%
+\special{pa 326 -834}\special{pa 266 -872}\special{pa 199 -903}\special{pa 129 -926}%
+\special{pa 54 -941}\special{pa 24 -943}%
+\special{fp}%
+\special{pa -24 -947}\special{pa -101 -946}\special{pa -180 -936}\special{pa -257 -918}%
+\special{pa -331 -892}\special{pa -402 -859}\special{pa -468 -818}\special{pa -529 -772}%
+\special{pa -582 -720}\special{pa -628 -663}\special{pa -666 -602}\special{pa -695 -538}%
+\special{pa -714 -473}\special{pa -724 -406}\special{pa -724 -340}\special{pa -714 -275}%
+\special{pa -695 -212}\special{pa -666 -153}\special{pa -628 -98}\special{pa -582 -48}%
+\special{pa -528 -3}\special{pa -467 35}\special{pa -401 65}\special{pa -330 88}\special{pa -255 103}%
+\special{pa -178 110}\special{pa -100 108}\special{pa -22 99}\special{pa 55 81}\special{pa 130 55}%
+\special{pa 201 21}\special{pa 267 -19}\special{pa 327 -66}\special{pa 381 -118}\special{pa 427 -175}%
+\special{pa 465 -235}\special{pa 493 -299}\special{pa 513 -365}%
+\special{fp}%
+\special{pa -22 -905}\special{pa -690 -202}\special{pa 372 -109}\special{pa 16 -945}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed03.png b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed03.png
new file mode 100644
index 00000000..35d19ef1
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/embed03.png
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/invparapt.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/invparapt.tex
new file mode 100644
index 00000000..0b5684e2
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/invparapt.tex
@@ -0,0 +1,110 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-23 9:12
+%%% template.sce 2016-8-23 9:12
+{\unitlength=8mm%
+\begin{picture}%
+( 7.55000, 6.27000)( -3.75000, -1.85000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.1557,-0.9707){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.5211,-1.3391){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.9488){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1171 -360}\special{pa -937 288}%
+\special{fp}%
+\special{pa -1053 -400}\special{pa 1053 400}%
+\special{fp}%
+\special{pa 0 583}\special{pa 0 -1184}%
+\special{fp}%
+\special{pa 24 144}\special{pa 187 -656}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -472 143}\special{pa -464 145}\special{fp}\special{pa -434 150}\special{pa -426 151}\special{fp}%
+\special{pa -395 157}\special{pa -387 158}\special{fp}\special{pa -356 163}\special{pa -348 164}\special{fp}%
+\special{pa -317 167}\special{pa -309 167}\special{fp}\special{pa -278 169}\special{pa -270 170}\special{fp}%
+\special{pa -239 172}\special{pa -231 172}\special{fp}\special{pa -199 173}\special{pa -191 173}\special{fp}%
+\special{pa -160 173}\special{pa -152 172}\special{fp}\special{pa -121 172}\special{pa -113 171}\special{fp}%
+\special{pa -82 171}\special{pa -74 170}\special{fp}\special{pa -42 169}\special{pa -34 168}\special{fp}%
+\special{pa -3 165}\special{pa 5 164}\special{fp}\special{pa 36 160}\special{pa 44 160}\special{fp}%
+\special{pa 75 156}\special{pa 83 155}\special{fp}\special{pa 114 151}\special{pa 122 150}\special{fp}%
+\special{pa 152 143}\special{pa 160 142}\special{fp}\special{pa 191 136}\special{pa 199 134}\special{fp}%
+\special{pa 229 128}\special{pa 237 126}\special{fp}\special{pa 267 119}\special{pa 275 117}\special{fp}%
+\special{pa 305 107}\special{pa 312 105}\special{fp}\special{pa 342 95}\special{pa 350 93}\special{fp}%
+\special{pa 380 83}\special{pa 387 81}\special{fp}\special{pa 416 68}\special{pa 423 64}\special{fp}%
+\special{pa 451 51}\special{pa 458 47}\special{fp}\special{pa 487 34}\special{pa 493 30}\special{fp}%
+\special{pa 519 12}\special{pa 526 8}\special{fp}\special{pa 550 -12}\special{pa 556 -17}\special{fp}%
+\special{pa 581 -36}\special{pa 586 -42}\special{fp}\special{pa 602 -69}\special{pa 606 -76}\special{fp}%
+\special{pa 622 -103}\special{pa 624 -110}\special{fp}\special{pa 625 -142}\special{pa 625 -150}\special{fp}%
+\special{pa 621 -179}\special{pa 619 -187}\special{fp}\special{pa 604 -215}\special{pa 599 -221}\special{fp}%
+\special{pa 581 -246}\special{pa 576 -252}\special{fp}\special{pa 552 -272}\special{pa 546 -277}\special{fp}%
+\special{pa 522 -298}\special{pa 516 -302}\special{fp}\special{pa 488 -317}\special{pa 481 -321}\special{fp}%
+\special{pa 453 -335}\special{pa 446 -339}\special{fp}\special{pa 418 -353}\special{pa 411 -357}\special{fp}%
+\special{pa 381 -367}\special{pa 374 -369}\special{fp}\special{pa 344 -379}\special{pa 337 -382}\special{fp}%
+\special{pa 307 -392}\special{pa 300 -395}\special{fp}\special{pa 270 -403}\special{pa 262 -405}\special{fp}%
+\special{pa 231 -412}\special{pa 223 -414}\special{fp}\special{pa 193 -420}\special{pa 185 -422}\special{fp}%
+\special{pa 155 -429}\special{pa 147 -430}\special{fp}\special{pa 116 -436}\special{pa 108 -437}\special{fp}%
+\special{pa 77 -441}\special{pa 69 -442}\special{fp}\special{pa 38 -445}\special{pa 30 -446}\special{fp}%
+\special{pa -1 -450}\special{pa -9 -451}\special{fp}\special{pa -40 -454}\special{pa -48 -454}\special{fp}%
+\special{pa -79 -455}\special{pa -87 -456}\special{fp}\special{pa -119 -457}\special{pa -127 -457}\special{fp}%
+\special{pa -158 -458}\special{pa -166 -459}\special{fp}\special{pa -197 -458}\special{pa -205 -458}\special{fp}%
+\special{pa -236 -457}\special{pa -244 -456}\special{fp}\special{pa -276 -455}\special{pa -284 -454}\special{fp}%
+\special{pa -315 -453}\special{pa -323 -452}\special{fp}\special{pa -354 -448}\special{pa -362 -447}\special{fp}%
+\special{pa -393 -442}\special{pa -401 -441}\special{fp}\special{pa -432 -436}\special{pa -439 -435}\special{fp}%
+\special{pa -470 -428}\special{pa -477 -425}\special{fp}\special{pa -507 -417}\special{pa -515 -414}\special{fp}%
+\special{pa -545 -405}\special{pa -552 -402}\special{fp}\special{pa -579 -386}\special{pa -586 -382}\special{fp}%
+\special{pa -610 -364}\special{pa -615 -357}\special{fp}\special{pa -627 -330}\special{pa -627 -322}\special{fp}%
+\special{pa -613 -294}\special{pa -608 -288}\special{fp}\special{pa -581 -272}\special{pa -574 -268}\special{fp}%
+\special{pa -547 -254}\special{pa -539 -251}\special{fp}\special{pa -509 -241}\special{pa -502 -239}\special{fp}%
+\special{pa -472 -229}\special{pa -464 -227}\special{fp}\special{pa -434 -222}\special{pa -426 -221}\special{fp}%
+\special{pa -395 -215}\special{pa -387 -214}\special{fp}\special{pa -356 -208}\special{pa -348 -208}\special{fp}%
+\special{pa -317 -205}\special{pa -309 -205}\special{fp}\special{pa -278 -203}\special{pa -270 -202}\special{fp}%
+\special{pa -239 -200}\special{pa -231 -200}\special{fp}\special{pa -199 -199}\special{pa -191 -199}\special{fp}%
+\special{pa -160 -199}\special{pa -152 -200}\special{fp}\special{pa -121 -200}\special{pa -113 -200}\special{fp}%
+\special{pa -82 -201}\special{pa -74 -201}\special{fp}\special{pa -42 -203}\special{pa -34 -204}\special{fp}%
+\special{pa -3 -207}\special{pa 5 -208}\special{fp}\special{pa 36 -211}\special{pa 44 -212}\special{fp}%
+\special{pa 75 -216}\special{pa 83 -217}\special{fp}\special{pa 114 -221}\special{pa 122 -222}\special{fp}%
+\special{pa 152 -229}\special{pa 160 -230}\special{fp}\special{pa 191 -236}\special{pa 199 -238}\special{fp}%
+\special{pa 229 -244}\special{pa 237 -246}\special{fp}\special{pa 267 -253}\special{pa 275 -255}\special{fp}%
+\special{pa 305 -265}\special{pa 312 -267}\special{fp}\special{pa 342 -277}\special{pa 350 -279}\special{fp}%
+\special{pa 380 -288}\special{pa 387 -291}\special{fp}\special{pa 416 -304}\special{pa 423 -308}\special{fp}%
+\special{pa 451 -321}\special{pa 458 -325}\special{fp}\special{pa 487 -338}\special{pa 493 -342}\special{fp}%
+\special{pa 519 -360}\special{pa 526 -364}\special{fp}\special{pa 550 -384}\special{pa 556 -389}\special{fp}%
+\special{pa 581 -408}\special{pa 586 -414}\special{fp}\special{pa 602 -441}\special{pa 606 -448}\special{fp}%
+\special{pa 622 -474}\special{pa 624 -482}\special{fp}\special{pa 625 -514}\special{pa 625 -522}\special{fp}%
+\special{pa 621 -551}\special{pa 619 -559}\special{fp}\special{pa 604 -586}\special{pa 599 -593}\special{fp}%
+\special{pa 581 -618}\special{pa 576 -624}\special{fp}\special{pa 552 -644}\special{pa 546 -649}\special{fp}%
+\special{pa 522 -670}\special{pa 516 -674}\special{fp}\special{pa 488 -689}\special{pa 481 -692}\special{fp}%
+\special{pa 453 -707}\special{pa 446 -711}\special{fp}\special{pa 418 -725}\special{pa 411 -728}\special{fp}%
+\special{pa 381 -739}\special{pa 374 -741}\special{fp}\special{pa 344 -751}\special{pa 337 -754}\special{fp}%
+\special{pa 307 -764}\special{pa 300 -767}\special{fp}\special{pa 270 -775}\special{pa 262 -777}\special{fp}%
+\special{pa 231 -784}\special{pa 223 -786}\special{fp}\special{pa 193 -792}\special{pa 185 -794}\special{fp}%
+\special{pa 155 -801}\special{pa 147 -802}\special{fp}\special{pa 116 -808}\special{pa 108 -809}\special{fp}%
+\special{pa 77 -813}\special{pa 69 -813}\special{fp}\special{pa 38 -817}\special{pa 30 -818}\special{fp}%
+\special{pa -1 -822}\special{pa -9 -823}\special{fp}\special{pa -40 -826}\special{pa -48 -826}\special{fp}%
+\special{pa -79 -827}\special{pa -87 -828}\special{fp}\special{pa -119 -829}\special{pa -127 -829}\special{fp}%
+\special{pa -158 -830}\special{pa -166 -830}\special{fp}\special{pa -197 -830}\special{pa -205 -830}\special{fp}%
+\special{pa -236 -828}\special{pa -244 -828}\special{fp}\special{pa -276 -827}\special{pa -284 -826}\special{fp}%
+\special{pa -315 -825}\special{pa -323 -824}\special{fp}\special{pa -354 -820}\special{pa -362 -819}\special{fp}%
+\special{pa -393 -814}\special{pa -401 -813}\special{fp}\special{pa -432 -808}\special{pa -439 -807}\special{fp}%
+\special{pa -470 -799}\special{pa -477 -797}\special{fp}\special{pa -507 -789}\special{pa -515 -786}\special{fp}%
+\special{pa -545 -777}\special{pa -552 -774}\special{fp}\special{pa -579 -758}\special{pa -586 -754}\special{fp}%
+\special{pa -610 -735}\special{pa -615 -729}\special{fp}\special{pa -627 -702}\special{pa -627 -694}\special{fp}%
+\special{pa -613 -666}\special{pa -608 -660}\special{fp}\special{pa -581 -644}\special{pa -574 -640}\special{fp}%
+\special{pa -547 -626}\special{pa -539 -623}\special{fp}\special{pa -509 -613}\special{pa -502 -611}\special{fp}%
+\special{pa -472 -601}\special{pa -465 -599}\special{fp}\special{pn 8}%
+\special{pa 140 -432}\special{pa 131 -433}\special{pa -27 -452}\special{pa -182 -458}%
+\special{pa -326 -450}\special{pa -452 -435}\special{pa -545 -406}\special{pa -607 -372}%
+\special{pa -630 -333}\special{pa -612 -294}\special{pa -560 -258}\special{pa -468 -229}%
+\special{pa -349 -208}\special{pa -208 -200}\special{pa -53 -202}\special{pa 96 -220}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces1.tex
new file mode 100644
index 00000000..6e7d1900
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces1.tex
@@ -0,0 +1,105 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-9 10:45
+%%% template.sce 2016-8-9 10:45
+{\unitlength=6mm%
+\begin{picture}%
+( 9.37000, 7.04000)( -5.00000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.3890,-1.4320){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(4.0123,-1.1937){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.8652){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 759 -321}\special{pa 301 -127}%
+\special{fp}%
+\special{pa -202 85}\special{pa -759 321}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 304 -129}\special{pa 297 -125}\special{fp}\special{pa 268 -113}\special{pa 261 -110}\special{fp}%
+\special{pa 233 -98}\special{pa 225 -95}\special{fp}\special{pa 197 -83}\special{pa 189 -80}\special{fp}%
+\special{pa 161 -68}\special{pa 153 -65}\special{fp}\special{pa 125 -53}\special{pa 117 -50}\special{fp}%
+\special{pa 89 -38}\special{pa 82 -34}\special{fp}\special{pa 53 -22}\special{pa 46 -19}\special{fp}%
+\special{pa 17 -7}\special{pa 10 -4}\special{fp}\special{pa -19 8}\special{pa -26 11}\special{fp}%
+\special{pa -55 23}\special{pa -62 26}\special{fp}\special{pa -91 38}\special{pa -98 41}\special{fp}%
+\special{pa -126 53}\special{pa -134 57}\special{fp}\special{pa -162 69}\special{pa -170 72}\special{fp}%
+\special{pa -198 84}\special{pa -206 87}\special{fp}\special{pn 8}%
+\special{pa -905 -269}\special{pa -398 -118}%
+\special{fp}%
+\special{pa 418 124}\special{pa 905 269}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -402 -120}\special{pa -394 -117}\special{fp}\special{pa -365 -109}\special{pa -357 -106}\special{fp}%
+\special{pa -328 -98}\special{pa -320 -95}\special{fp}\special{pa -291 -86}\special{pa -283 -84}\special{fp}%
+\special{pa -254 -75}\special{pa -246 -73}\special{fp}\special{pa -216 -64}\special{pa -209 -62}\special{fp}%
+\special{pa -179 -53}\special{pa -172 -51}\special{fp}\special{pa -142 -42}\special{pa -135 -40}\special{fp}%
+\special{pa -105 -31}\special{pa -98 -29}\special{fp}\special{pa -68 -20}\special{pa -60 -18}\special{fp}%
+\special{pa -31 -9}\special{pa -23 -7}\special{fp}\special{pa 6 2}\special{pa 14 4}\special{fp}%
+\special{pa 43 13}\special{pa 51 15}\special{fp}\special{pa 80 24}\special{pa 88 26}\special{fp}%
+\special{pa 117 35}\special{pa 125 37}\special{fp}\special{pa 155 46}\special{pa 162 48}\special{fp}%
+\special{pa 192 57}\special{pa 199 59}\special{fp}\special{pa 229 68}\special{pa 236 70}\special{fp}%
+\special{pa 266 79}\special{pa 273 81}\special{fp}\special{pa 303 90}\special{pa 311 92}\special{fp}%
+\special{pa 340 101}\special{pa 348 103}\special{fp}\special{pa 377 112}\special{pa 385 114}\special{fp}%
+\special{pa 414 123}\special{pa 422 125}\special{fp}\special{pn 8}%
+\special{pa 0 472}\special{pa 0 97}%
+\special{fp}%
+\special{pa 0 -764}\special{pa 0 -1104}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 0 101}\special{pa 0 93}\special{fp}\special{pa 0 62}\special{pa 0 54}\special{fp}%
+\special{pa 0 23}\special{pa 0 15}\special{fp}\special{pa 0 -16}\special{pa 0 -24}\special{fp}%
+\special{pa 0 -55}\special{pa 0 -63}\special{fp}\special{pa 0 -95}\special{pa 0 -103}\special{fp}%
+\special{pa 0 -134}\special{pa 0 -142}\special{fp}\special{pa 0 -173}\special{pa 0 -181}\special{fp}%
+\special{pa 0 -212}\special{pa 0 -220}\special{fp}\special{pa 0 -251}\special{pa 0 -259}\special{fp}%
+\special{pa 0 -290}\special{pa 0 -298}\special{fp}\special{pa 0 -330}\special{pa 0 -338}\special{fp}%
+\special{pa 0 -369}\special{pa 0 -377}\special{fp}\special{pa 0 -408}\special{pa 0 -416}\special{fp}%
+\special{pa 0 -447}\special{pa 0 -455}\special{fp}\special{pa 0 -486}\special{pa 0 -494}\special{fp}%
+\special{pa 0 -525}\special{pa 0 -533}\special{fp}\special{pa 0 -564}\special{pa 0 -572}\special{fp}%
+\special{pa 0 -604}\special{pa 0 -612}\special{fp}\special{pa 0 -643}\special{pa 0 -651}\special{fp}%
+\special{pa 0 -682}\special{pa 0 -690}\special{fp}\special{pa 0 -721}\special{pa 0 -729}\special{fp}%
+\special{pa 0 -760}\special{pa 0 -768}\special{fp}\special{pn 8}%
+\special{pn 8}%
+\special{pa 99 -192}\special{pa 92 -189}\special{fp}\special{pa 64 -177}\special{pa 56 -174}\special{fp}%
+\special{pa 28 -162}\special{pa 20 -158}\special{fp}\special{pa -8 -146}\special{pa -15 -143}\special{fp}%
+\special{pa -44 -131}\special{pa -51 -128}\special{fp}\special{pa -79 -116}\special{pa -87 -113}\special{fp}%
+\special{pa -115 -101}\special{pa -122 -98}\special{fp}\special{pa -151 -86}\special{pa -158 -83}\special{fp}%
+\special{pa -187 -71}\special{pa -194 -68}\special{fp}\special{pa -222 -56}\special{pa -230 -53}\special{fp}%
+\special{pa -258 -41}\special{pa -265 -38}\special{fp}\special{pa -294 -26}\special{pa -301 -23}\special{fp}%
+\special{pa -329 -11}\special{pa -337 -8}\special{fp}\special{pa -365 4}\special{pa -373 8}\special{fp}%
+\special{pa -401 20}\special{pa -408 23}\special{fp}\special{pa -437 35}\special{pa -444 38}\special{fp}%
+\special{pa -472 50}\special{pa -480 53}\special{fp}\special{pa -508 65}\special{pa -515 68}\special{fp}%
+\special{pn 8}%
+\special{pa -512 66}\special{pa 418 124}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 93 -193}\special{pa 98 -187}\special{fp}\special{pa 122 -164}\special{pa 128 -159}\special{fp}%
+\special{pa 151 -136}\special{pa 157 -130}\special{fp}\special{pa 181 -107}\special{pa 186 -102}\special{fp}%
+\special{pa 210 -79}\special{pa 216 -73}\special{fp}\special{pa 239 -50}\special{pa 245 -44}\special{fp}%
+\special{pa 269 -21}\special{pa 274 -16}\special{fp}\special{pa 298 7}\special{pa 304 13}\special{fp}%
+\special{pa 327 36}\special{pa 333 41}\special{fp}\special{pa 357 64}\special{pa 362 70}\special{fp}%
+\special{pa 386 93}\special{pa 392 99}\special{fp}\special{pa 415 122}\special{pa 421 127}\special{fp}%
+\special{pn 8}%
+\special{pa -512 66}\special{pa 0 -764}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 96 -186}\special{pa 95 -194}\special{fp}\special{pa 90 -225}\special{pa 89 -232}\special{fp}%
+\special{pa 83 -263}\special{pa 82 -271}\special{fp}\special{pa 77 -301}\special{pa 76 -309}\special{fp}%
+\special{pa 71 -339}\special{pa 69 -347}\special{fp}\special{pa 64 -378}\special{pa 63 -386}\special{fp}%
+\special{pa 58 -416}\special{pa 57 -424}\special{fp}\special{pa 52 -454}\special{pa 50 -462}\special{fp}%
+\special{pa 45 -492}\special{pa 44 -500}\special{fp}\special{pa 39 -531}\special{pa 38 -539}\special{fp}%
+\special{pa 33 -569}\special{pa 31 -577}\special{fp}\special{pa 26 -607}\special{pa 25 -615}\special{fp}%
+\special{pa 20 -645}\special{pa 18 -653}\special{fp}\special{pa 13 -684}\special{pa 12 -692}\special{fp}%
+\special{pa 7 -722}\special{pa 6 -730}\special{fp}\special{pa 1 -760}\special{pa -1 -768}\special{fp}%
+\special{pn 8}%
+\special{pa 418 124}\special{pa 0 -764}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces2.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces2.tex
new file mode 100644
index 00000000..d5477be0
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/nohiddenbyfaces2.tex
@@ -0,0 +1,58 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-11 15:59
+%%% template.sce 2016-8-11 15:59
+{\unitlength=6mm%
+\begin{picture}%
+( 8.39000, 6.29000)( -4.00000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.3919,-1.2682){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(4.0140,-1.0567){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.9880){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 759 -284}\special{pa -759 284}%
+\special{fp}%
+\special{pa -905 -238}\special{pa 905 238}%
+\special{fp}%
+\special{pa 0 472}\special{pa 0 -897}%
+\special{fp}%
+\special{pa 96 -168}\special{pa 60 -155}\special{fp}\special{pa 24 -142}\special{pa -12 -128}\special{fp}%
+\special{pa -47 -115}\special{pa -83 -102}\special{fp}\special{pa -119 -88}\special{pa -155 -75}\special{fp}%
+\special{pa -190 -61}\special{pa -226 -48}\special{fp}\special{pa -262 -35}\special{pa -297 -21}\special{fp}%
+\special{pa -333 -8}\special{pa -369 5}\special{fp}\special{pa -405 19}\special{pa -440 32}\special{fp}%
+\special{pa -476 45}\special{pa -512 59}\special{fp}%
+%
+\special{pn 16}%
+\special{pa -512 59}\special{pa 418 110}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 96 -168}\special{pa 125 -143}\special{fp}\special{pa 154 -118}\special{pa 184 -92}\special{fp}%
+\special{pa 213 -67}\special{pa 242 -42}\special{fp}\special{pa 271 -16}\special{pa 301 9}\special{fp}%
+\special{pa 330 34}\special{pa 359 59}\special{fp}\special{pa 389 85}\special{pa 418 110}\special{fp}%
+%
+%
+\special{pn 16}%
+\special{pa -512 59}\special{pa 0 -776}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 96 -168}\special{pa 90 -204}\special{fp}\special{pa 84 -240}\special{pa 79 -276}\special{fp}%
+\special{pa 73 -311}\special{pa 67 -347}\special{fp}\special{pa 62 -383}\special{pa 56 -419}\special{fp}%
+\special{pa 51 -454}\special{pa 45 -490}\special{fp}\special{pa 39 -526}\special{pa 34 -562}\special{fp}%
+\special{pa 28 -597}\special{pa 22 -633}\special{fp}\special{pa 17 -669}\special{pa 11 -705}\special{fp}%
+\special{pa 6 -740}\special{pa 0 -776}\special{fp}%
+%
+\special{pn 16}%
+\special{pa 418 110}\special{pa 0 -776}%
+\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/parabola.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/parabola.tex
new file mode 100644
index 00000000..437d8d61
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/parabola.tex
@@ -0,0 +1,335 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-7 19:8
+%%% template.sce 2016-8-7 19:8
+{\unitlength=6mm%
+\begin{picture}%
+( 10.01000, 7.51000)( -5.01000, -2.51000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.6011,-1.1540){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.4854,-2.2142){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.5961){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1043 -262}\special{pa -1043 262}%
+\special{fp}%
+\special{pa -554 -493}\special{pa 554 493}%
+\special{fp}%
+\special{pa 0 593}\special{pa 0 -1041}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -17 -827}\special{pa -35 -818}\special{pa -52 -807}%
+\special{pa -70 -792}\special{pa -87 -775}\special{pa -104 -754}\special{pa -122 -731}%
+\special{pa -139 -705}\special{pa -156 -676}\special{pa -174 -644}\special{pa -191 -610}%
+\special{pa -209 -572}\special{pa -226 -532}\special{pa -243 -488}\special{pa -261 -442}%
+\special{pa -278 -393}\special{pa -296 -341}\special{pa -313 -286}\special{pa -330 -228}%
+\special{pa -348 -167}\special{pa -365 -104}\special{pa -383 -37}\special{pa -400 32}%
+\special{pa -417 105}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -14 -825}\special{pa -27 -813}\special{pa -41 -800}%
+\special{pa -55 -783}\special{pa -68 -763}\special{pa -82 -740}\special{pa -96 -715}%
+\special{pa -109 -687}\special{pa -123 -655}\special{pa -137 -621}\special{pa -151 -584}%
+\special{pa -164 -544}\special{pa -178 -501}\special{pa -192 -456}\special{pa -205 -407}%
+\special{pa -219 -356}\special{pa -233 -301}\special{pa -246 -244}\special{pa -260 -184}%
+\special{pa -274 -121}\special{pa -287 -55}\special{pa -301 14}\special{pa -315 86}%
+\special{pa -328 161}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -9 -823}\special{pa -17 -810}\special{pa -26 -795}%
+\special{pa -35 -776}\special{pa -43 -755}\special{pa -52 -730}\special{pa -61 -703}%
+\special{pa -69 -673}\special{pa -78 -640}\special{pa -86 -605}\special{pa -95 -566}%
+\special{pa -104 -524}\special{pa -112 -480}\special{pa -121 -432}\special{pa -130 -382}%
+\special{pa -138 -329}\special{pa -147 -273}\special{pa -156 -214}\special{pa -164 -152}%
+\special{pa -173 -87}\special{pa -182 -20}\special{pa -190 51}\special{pa -199 124}%
+\special{pa -207 201}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -3 -822}\special{pa -6 -808}\special{pa -8 -792}\special{pa -11 -773}%
+\special{pa -14 -750}\special{pa -17 -725}\special{pa -19 -697}\special{pa -22 -666}%
+\special{pa -25 -633}\special{pa -28 -596}\special{pa -30 -556}\special{pa -33 -514}%
+\special{pa -36 -469}\special{pa -39 -420}\special{pa -41 -369}\special{pa -44 -315}%
+\special{pa -47 -258}\special{pa -50 -198}\special{pa -52 -136}\special{pa -55 -70}%
+\special{pa -58 -2}\special{pa -61 70}\special{pa -63 144}\special{pa -66 221}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 3 -822}\special{pa 7 -809}\special{pa 10 -792}\special{pa 14 -773}%
+\special{pa 17 -751}\special{pa 20 -726}\special{pa 24 -698}\special{pa 27 -667}\special{pa 31 -633}%
+\special{pa 34 -596}\special{pa 37 -557}\special{pa 41 -515}\special{pa 44 -469}\special{pa 48 -421}%
+\special{pa 51 -370}\special{pa 54 -316}\special{pa 58 -259}\special{pa 61 -199}\special{pa 65 -137}%
+\special{pa 68 -71}\special{pa 71 -3}\special{pa 75 69}\special{pa 78 143}\special{pa 82 220}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 9 -823}\special{pa 18 -810}\special{pa 28 -795}\special{pa 37 -777}%
+\special{pa 46 -755}\special{pa 55 -731}\special{pa 65 -704}\special{pa 74 -674}\special{pa 83 -642}%
+\special{pa 92 -606}\special{pa 101 -567}\special{pa 111 -526}\special{pa 120 -481}%
+\special{pa 129 -434}\special{pa 138 -384}\special{pa 148 -331}\special{pa 157 -275}%
+\special{pa 166 -216}\special{pa 175 -155}\special{pa 185 -90}\special{pa 194 -23}%
+\special{pa 203 48}\special{pa 212 121}\special{pa 221 197}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 14 -825}\special{pa 28 -814}\special{pa 42 -800}\special{pa 57 -784}%
+\special{pa 71 -764}\special{pa 85 -742}\special{pa 99 -717}\special{pa 113 -688}%
+\special{pa 127 -657}\special{pa 141 -623}\special{pa 156 -587}\special{pa 170 -547}%
+\special{pa 184 -504}\special{pa 198 -459}\special{pa 212 -410}\special{pa 226 -359}%
+\special{pa 241 -305}\special{pa 255 -248}\special{pa 269 -188}\special{pa 283 -125}%
+\special{pa 297 -59}\special{pa 311 9}\special{pa 325 81}\special{pa 340 155}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 18 -827}\special{pa 35 -819}\special{pa 53 -807}\special{pa 71 -793}%
+\special{pa 88 -776}\special{pa 106 -756}\special{pa 124 -733}\special{pa 141 -707}%
+\special{pa 159 -679}\special{pa 177 -647}\special{pa 195 -613}\special{pa 212 -575}%
+\special{pa 230 -535}\special{pa 248 -492}\special{pa 265 -446}\special{pa 283 -397}%
+\special{pa 301 -345}\special{pa 318 -291}\special{pa 336 -233}\special{pa 354 -173}%
+\special{pa 371 -109}\special{pa 389 -43}\special{pa 407 26}\special{pa 424 98}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 19 -830}\special{pa 39 -824}\special{pa 58 -816}\special{pa 78 -804}%
+\special{pa 97 -790}\special{pa 117 -773}\special{pa 136 -753}\special{pa 156 -730}%
+\special{pa 175 -704}\special{pa 195 -675}\special{pa 214 -643}\special{pa 234 -609}%
+\special{pa 253 -571}\special{pa 273 -531}\special{pa 292 -488}\special{pa 312 -442}%
+\special{pa 331 -393}\special{pa 351 -341}\special{pa 370 -286}\special{pa 390 -228}%
+\special{pa 409 -168}\special{pa 429 -104}\special{pa 448 -38}\special{pa 468 31}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 19 -833}\special{pa 39 -830}\special{pa 58 -824}\special{pa 78 -816}%
+\special{pa 97 -805}\special{pa 116 -790}\special{pa 136 -773}\special{pa 155 -753}%
+\special{pa 175 -730}\special{pa 194 -704}\special{pa 213 -675}\special{pa 233 -644}%
+\special{pa 252 -609}\special{pa 271 -572}\special{pa 291 -532}\special{pa 310 -488}%
+\special{pa 330 -442}\special{pa 349 -393}\special{pa 368 -341}\special{pa 388 -287}%
+\special{pa 407 -229}\special{pa 427 -168}\special{pa 446 -105}\special{pa 465 -39}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 17 -836}\special{pa 35 -836}\special{pa 52 -833}\special{pa 70 -827}%
+\special{pa 87 -818}\special{pa 104 -807}\special{pa 122 -792}\special{pa 139 -775}%
+\special{pa 156 -755}\special{pa 174 -732}\special{pa 191 -706}\special{pa 209 -677}%
+\special{pa 226 -645}\special{pa 243 -610}\special{pa 261 -573}\special{pa 278 -532}%
+\special{pa 296 -489}\special{pa 313 -443}\special{pa 330 -394}\special{pa 348 -342}%
+\special{pa 365 -287}\special{pa 383 -229}\special{pa 400 -168}\special{pa 417 -105}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 14 -838}\special{pa 27 -840}\special{pa 41 -840}\special{pa 55 -836}%
+\special{pa 68 -830}\special{pa 82 -821}\special{pa 96 -809}\special{pa 109 -794}%
+\special{pa 123 -776}\special{pa 137 -755}\special{pa 151 -731}\special{pa 164 -705}%
+\special{pa 178 -675}\special{pa 192 -643}\special{pa 205 -608}\special{pa 219 -570}%
+\special{pa 233 -529}\special{pa 246 -485}\special{pa 260 -438}\special{pa 274 -388}%
+\special{pa 287 -336}\special{pa 301 -280}\special{pa 315 -222}\special{pa 328 -161}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 9 -840}\special{pa 17 -844}\special{pa 26 -845}\special{pa 35 -843}%
+\special{pa 43 -838}\special{pa 52 -831}\special{pa 61 -820}\special{pa 69 -807}\special{pa 78 -791}%
+\special{pa 86 -772}\special{pa 95 -750}\special{pa 104 -725}\special{pa 112 -697}%
+\special{pa 121 -666}\special{pa 130 -633}\special{pa 138 -596}\special{pa 147 -557}%
+\special{pa 156 -515}\special{pa 164 -470}\special{pa 173 -422}\special{pa 182 -371}%
+\special{pa 190 -317}\special{pa 199 -260}\special{pa 207 -201}%
+\special{fp}%
+\special{pa 0 -833}\special{pa 3 -840}\special{pa 6 -845}\special{pa 8 -847}\special{pa 11 -846}%
+\special{pa 14 -843}\special{pa 17 -836}\special{pa 19 -826}\special{pa 22 -814}\special{pa 25 -798}%
+\special{pa 28 -780}\special{pa 30 -759}\special{pa 33 -735}\special{pa 36 -708}\special{pa 39 -678}%
+\special{pa 41 -646}\special{pa 44 -610}\special{pa 47 -572}\special{pa 50 -530}\special{pa 52 -486}%
+\special{pa 55 -439}\special{pa 58 -389}\special{pa 61 -336}\special{pa 63 -280}\special{pa 66 -221}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -3 -840}\special{pa -7 -845}\special{pa -10 -847}\special{pa -14 -846}%
+\special{pa -17 -842}\special{pa -20 -836}\special{pa -24 -826}\special{pa -27 -813}%
+\special{pa -31 -798}\special{pa -34 -780}\special{pa -37 -759}\special{pa -41 -734}%
+\special{pa -44 -707}\special{pa -48 -678}\special{pa -51 -645}\special{pa -54 -609}%
+\special{pa -58 -571}\special{pa -61 -529}\special{pa -65 -485}\special{pa -68 -438}%
+\special{pa -71 -388}\special{pa -75 -335}\special{pa -78 -279}\special{pa -82 -220}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -9 -839}\special{pa -18 -843}\special{pa -28 -844}%
+\special{pa -37 -842}\special{pa -46 -838}\special{pa -55 -830}\special{pa -65 -819}%
+\special{pa -74 -806}\special{pa -83 -790}\special{pa -92 -770}\special{pa -101 -748}%
+\special{pa -111 -723}\special{pa -120 -695}\special{pa -129 -664}\special{pa -138 -631}%
+\special{pa -148 -594}\special{pa -157 -555}\special{pa -166 -512}\special{pa -175 -467}%
+\special{pa -185 -419}\special{pa -194 -368}\special{pa -203 -314}\special{pa -212 -257}%
+\special{pa -221 -197}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -14 -838}\special{pa -28 -840}\special{pa -42 -839}%
+\special{pa -57 -835}\special{pa -71 -829}\special{pa -85 -819}\special{pa -99 -807}%
+\special{pa -113 -792}\special{pa -127 -774}\special{pa -141 -753}\special{pa -156 -729}%
+\special{pa -170 -702}\special{pa -184 -672}\special{pa -198 -640}\special{pa -212 -604}%
+\special{pa -226 -566}\special{pa -241 -525}\special{pa -255 -481}\special{pa -269 -434}%
+\special{pa -283 -384}\special{pa -297 -331}\special{pa -311 -275}\special{pa -325 -217}%
+\special{pa -340 -155}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -18 -835}\special{pa -35 -835}\special{pa -53 -832}%
+\special{pa -71 -826}\special{pa -88 -817}\special{pa -106 -805}\special{pa -124 -790}%
+\special{pa -141 -773}\special{pa -159 -752}\special{pa -177 -729}\special{pa -195 -703}%
+\special{pa -212 -674}\special{pa -230 -641}\special{pa -248 -607}\special{pa -265 -569}%
+\special{pa -283 -528}\special{pa -301 -484}\special{pa -318 -438}\special{pa -336 -388}%
+\special{pa -354 -336}\special{pa -371 -281}\special{pa -389 -223}\special{pa -407 -162}%
+\special{pa -424 -98}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -19 -833}\special{pa -39 -829}\special{pa -58 -824}%
+\special{pa -78 -815}\special{pa -97 -803}\special{pa -117 -788}\special{pa -136 -771}%
+\special{pa -156 -751}\special{pa -175 -727}\special{pa -195 -701}\special{pa -214 -672}%
+\special{pa -234 -640}\special{pa -253 -605}\special{pa -273 -568}\special{pa -292 -527}%
+\special{pa -312 -483}\special{pa -331 -437}\special{pa -351 -388}\special{pa -370 -336}%
+\special{pa -390 -280}\special{pa -409 -223}\special{pa -429 -162}\special{pa -448 -98}%
+\special{pa -468 -31}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -19 -830}\special{pa -39 -824}\special{pa -58 -815}%
+\special{pa -78 -803}\special{pa -97 -788}\special{pa -116 -771}\special{pa -136 -751}%
+\special{pa -155 -727}\special{pa -175 -701}\special{pa -194 -672}\special{pa -213 -640}%
+\special{pa -233 -605}\special{pa -252 -567}\special{pa -271 -527}\special{pa -291 -483}%
+\special{pa -310 -437}\special{pa -330 -388}\special{pa -349 -335}\special{pa -368 -280}%
+\special{pa -388 -222}\special{pa -407 -161}\special{pa -427 -98}\special{pa -446 -31}%
+\special{pa -465 39}%
+\special{fp}%
+\special{pa 0 -833}\special{pa -17 -827}\special{pa -35 -818}\special{pa -52 -807}%
+\special{pa -70 -792}\special{pa -87 -775}\special{pa -104 -754}\special{pa -122 -731}%
+\special{pa -139 -705}\special{pa -156 -676}\special{pa -174 -644}\special{pa -191 -610}%
+\special{pa -209 -572}\special{pa -226 -532}\special{pa -243 -488}\special{pa -261 -442}%
+\special{pa -278 -393}\special{pa -296 -341}\special{pa -313 -286}\special{pa -330 -228}%
+\special{pa -348 -167}\special{pa -365 -104}\special{pa -383 -37}\special{pa -400 32}%
+\special{pa -417 105}%
+\special{fp}%
+\special{pa 3 -835}\special{pa -3 -835}\special{pa -3 -830}\special{pa 3 -830}\special{pa 3 -835}%
+\special{sh 1}\special{fp}%
+\special{pa -21 -825}\special{pa -17 -823}\special{pa -13 -821}\special{pa -7 -820}%
+\special{pa -1 -819}\special{pa 5 -820}\special{pa 11 -821}\special{pa 16 -822}\special{pa 20 -825}%
+\special{pa 23 -827}\special{pa 24 -830}\special{pa 23 -833}\special{pa 21 -836}\special{pa 17 -838}%
+\special{pa 13 -840}\special{pa 7 -841}\special{pa 1 -842}\special{pa -5 -841}\special{pa -11 -840}%
+\special{pa -16 -839}\special{pa -20 -836}\special{pa -23 -834}\special{pa -24 -831}%
+\special{pa -23 -828}\special{pa -21 -825}%
+\special{fp}%
+\special{pa -42 -814}\special{pa -35 -809}\special{pa -25 -805}\special{pa -14 -803}%
+\special{pa -2 -802}\special{pa 11 -803}\special{pa 22 -805}\special{pa 32 -808}\special{pa 40 -812}%
+\special{pa 45 -818}\special{pa 47 -824}\special{pa 46 -829}\special{pa 42 -835}\special{pa 35 -840}%
+\special{pa 25 -843}\special{pa 14 -846}\special{pa 2 -847}\special{pa -11 -846}\special{pa -22 -844}%
+\special{pa -32 -841}\special{pa -40 -836}\special{pa -45 -831}\special{pa -47 -825}%
+\special{pa -46 -819}\special{pa -42 -814}%
+\special{fp}%
+\special{pa -63 -798}\special{pa -52 -791}\special{pa -38 -786}\special{pa -21 -782}%
+\special{pa -3 -780}\special{pa 16 -781}\special{pa 33 -784}\special{pa 48 -789}\special{pa 60 -796}%
+\special{pa 68 -804}\special{pa 71 -813}\special{pa 69 -821}\special{pa 63 -830}\special{pa 52 -837}%
+\special{pa 38 -842}\special{pa 21 -846}\special{pa 3 -847}\special{pa -16 -847}\special{pa -33 -844}%
+\special{pa -48 -838}\special{pa -60 -832}\special{pa -68 -824}\special{pa -71 -815}%
+\special{pa -69 -806}\special{pa -63 -798}%
+\special{fp}%
+\special{pa -83 -778}\special{pa -69 -769}\special{pa -50 -761}\special{pa -28 -757}%
+\special{pa -3 -755}\special{pa 21 -756}\special{pa 44 -760}\special{pa 64 -767}\special{pa 80 -776}%
+\special{pa 90 -786}\special{pa 94 -798}\special{pa 92 -809}\special{pa 83 -820}\special{pa 69 -830}%
+\special{pa 50 -837}\special{pa 28 -842}\special{pa 3 -844}\special{pa -21 -843}\special{pa -44 -839}%
+\special{pa -64 -832}\special{pa -80 -823}\special{pa -90 -812}\special{pa -94 -801}%
+\special{pa -92 -789}\special{pa -83 -778}%
+\special{fp}%
+\special{pa -104 -754}\special{pa -86 -743}\special{pa -63 -733}\special{pa -35 -727}%
+\special{pa -4 -725}\special{pa 26 -726}\special{pa 55 -731}\special{pa 80 -740}\special{pa 100 -751}%
+\special{pa 113 -764}\special{pa 118 -779}\special{pa 115 -793}\special{pa 104 -807}%
+\special{pa 86 -819}\special{pa 63 -828}\special{pa 35 -834}\special{pa 4 -836}\special{pa -26 -835}%
+\special{pa -55 -830}\special{pa -80 -821}\special{pa -100 -810}\special{pa -113 -797}%
+\special{pa -118 -783}\special{pa -115 -768}\special{pa -104 -754}%
+\special{fp}%
+\special{pa -125 -726}\special{pa -104 -712}\special{pa -75 -701}\special{pa -42 -694}%
+\special{pa -5 -691}\special{pa 32 -692}\special{pa 66 -699}\special{pa 97 -709}\special{pa 120 -722}%
+\special{pa 136 -738}\special{pa 142 -755}\special{pa 138 -773}\special{pa 125 -789}%
+\special{pa 104 -803}\special{pa 75 -815}\special{pa 42 -822}\special{pa 5 -825}\special{pa -32 -823}%
+\special{pa -66 -817}\special{pa -97 -807}\special{pa -120 -793}\special{pa -136 -777}%
+\special{pa -142 -760}\special{pa -138 -743}\special{pa -125 -726}%
+\special{fp}%
+\special{pa -146 -694}\special{pa -121 -677}\special{pa -88 -664}\special{pa -48 -656}%
+\special{pa -6 -653}\special{pa 37 -654}\special{pa 78 -662}\special{pa 113 -673}%
+\special{pa 140 -689}\special{pa 158 -708}\special{pa 165 -728}\special{pa 161 -748}%
+\special{pa 146 -767}\special{pa 121 -784}\special{pa 88 -797}\special{pa 48 -805}%
+\special{pa 6 -809}\special{pa -37 -807}\special{pa -78 -800}\special{pa -113 -788}%
+\special{pa -140 -772}\special{pa -158 -754}\special{pa -165 -733}\special{pa -161 -713}%
+\special{pa -146 -694}%
+\special{fp}%
+\special{pa -167 -658}\special{pa -138 -639}\special{pa -100 -624}\special{pa -55 -614}%
+\special{pa -7 -610}\special{pa 42 -612}\special{pa 89 -621}\special{pa 129 -634}%
+\special{pa 160 -652}\special{pa 181 -673}\special{pa 189 -696}\special{pa 184 -719}%
+\special{pa 167 -741}\special{pa 138 -760}\special{pa 100 -775}\special{pa 55 -785}%
+\special{pa 7 -789}\special{pa -42 -786}\special{pa -89 -778}\special{pa -129 -765}%
+\special{pa -160 -747}\special{pa -181 -726}\special{pa -189 -703}\special{pa -184 -679}%
+\special{pa -167 -658}%
+\special{fp}%
+\special{pa -188 -617}\special{pa -156 -596}\special{pa -113 -579}\special{pa -62 -568}%
+\special{pa -8 -564}\special{pa 48 -566}\special{pa 100 -575}\special{pa 145 -590}%
+\special{pa 180 -611}\special{pa 203 -635}\special{pa 212 -660}\special{pa 207 -687}%
+\special{pa 188 -711}\special{pa 156 -733}\special{pa 113 -749}\special{pa 62 -760}%
+\special{pa 8 -764}\special{pa -48 -762}\special{pa -100 -753}\special{pa -145 -738}%
+\special{pa -180 -717}\special{pa -203 -694}\special{pa -212 -668}\special{pa -207 -642}%
+\special{pa -188 -617}%
+\special{fp}%
+\special{pa -209 -572}\special{pa -173 -548}\special{pa -125 -530}\special{pa -69 -518}%
+\special{pa -8 -513}\special{pa 53 -516}\special{pa 111 -526}\special{pa 161 -543}%
+\special{pa 200 -565}\special{pa 226 -592}\special{pa 236 -620}\special{pa 230 -650}%
+\special{pa 209 -677}\special{pa 173 -701}\special{pa 125 -719}\special{pa 69 -731}%
+\special{pa 8 -736}\special{pa -53 -733}\special{pa -111 -723}\special{pa -161 -706}%
+\special{pa -200 -684}\special{pa -226 -657}\special{pa -236 -628}\special{pa -230 -599}%
+\special{pa -209 -572}%
+\special{fp}%
+\special{pa -230 -523}\special{pa -190 -497}\special{pa -138 -477}\special{pa -76 -463}%
+\special{pa -9 -458}\special{pa 58 -461}\special{pa 122 -472}\special{pa 177 -491}%
+\special{pa 220 -516}\special{pa 248 -545}\special{pa 260 -576}\special{pa 253 -608}%
+\special{pa 230 -638}\special{pa 190 -664}\special{pa 138 -685}\special{pa 76 -698}%
+\special{pa 9 -704}\special{pa -58 -700}\special{pa -122 -689}\special{pa -177 -671}%
+\special{pa -220 -646}\special{pa -248 -617}\special{pa -260 -585}\special{pa -253 -553}%
+\special{pa -230 -523}%
+\special{fp}%
+\special{pa -250 -470}\special{pa -207 -442}\special{pa -150 -419}\special{pa -83 -405}%
+\special{pa -10 -399}\special{pa 64 -402}\special{pa 133 -415}\special{pa 193 -435}%
+\special{pa 240 -462}\special{pa 271 -494}\special{pa 283 -528}\special{pa 276 -563}%
+\special{pa 250 -596}\special{pa 207 -624}\special{pa 150 -646}\special{pa 83 -661}%
+\special{pa 10 -667}\special{pa -64 -663}\special{pa -133 -651}\special{pa -193 -631}%
+\special{pa -240 -604}\special{pa -271 -572}\special{pa -283 -538}\special{pa -276 -503}%
+\special{pa -250 -470}%
+\special{fp}%
+\special{pa -271 -413}\special{pa -225 -382}\special{pa -163 -358}\special{pa -90 -342}%
+\special{pa -11 -336}\special{pa 69 -339}\special{pa 144 -353}\special{pa 209 -375}%
+\special{pa 260 -404}\special{pa 294 -438}\special{pa 307 -476}\special{pa 299 -513}%
+\special{pa 271 -549}\special{pa 225 -580}\special{pa 163 -604}\special{pa 90 -620}%
+\special{pa 11 -626}\special{pa -69 -622}\special{pa -144 -609}\special{pa -209 -587}%
+\special{pa -260 -558}\special{pa -294 -523}\special{pa -307 -486}\special{pa -299 -448}%
+\special{pa -271 -413}%
+\special{fp}%
+\special{pa -292 -351}\special{pa -242 -318}\special{pa -175 -292}\special{pa -97 -275}%
+\special{pa -12 -268}\special{pa 74 -272}\special{pa 155 -287}\special{pa 225 -310}%
+\special{pa 280 -342}\special{pa 316 -379}\special{pa 330 -419}\special{pa 322 -460}%
+\special{pa 292 -498}\special{pa 242 -531}\special{pa 175 -557}\special{pa 97 -574}%
+\special{pa 12 -581}\special{pa -74 -577}\special{pa -155 -563}\special{pa -225 -539}%
+\special{pa -280 -508}\special{pa -316 -470}\special{pa -330 -430}\special{pa -322 -390}%
+\special{pa -292 -351}%
+\special{fp}%
+\special{pa -313 -286}\special{pa -259 -250}\special{pa -188 -222}\special{pa -104 -204}%
+\special{pa -13 -197}\special{pa 79 -201}\special{pa 166 -216}\special{pa 241 -242}%
+\special{pa 300 -275}\special{pa 339 -315}\special{pa 354 -358}\special{pa 345 -402}%
+\special{pa 313 -443}\special{pa 259 -478}\special{pa 188 -506}\special{pa 104 -524}%
+\special{pa 13 -532}\special{pa -79 -528}\special{pa -166 -512}\special{pa -241 -487}%
+\special{pa -300 -453}\special{pa -339 -413}\special{pa -354 -370}\special{pa -345 -327}%
+\special{pa -313 -286}%
+\special{fp}%
+\special{pa -334 -216}\special{pa -277 -178}\special{pa -201 -148}\special{pa -111 -129}%
+\special{pa -14 -121}\special{pa 85 -126}\special{pa 177 -142}\special{pa 258 -169}%
+\special{pa 320 -205}\special{pa 361 -247}\special{pa 378 -293}\special{pa 368 -340}%
+\special{pa 334 -383}\special{pa 277 -421}\special{pa 201 -451}\special{pa 111 -471}%
+\special{pa 14 -478}\special{pa -85 -474}\special{pa -177 -458}\special{pa -258 -431}%
+\special{pa -320 -395}\special{pa -361 -352}\special{pa -378 -306}\special{pa -368 -260}%
+\special{pa -334 -216}%
+\special{fp}%
+\special{pa -355 -142}\special{pa -294 -102}\special{pa -213 -70}\special{pa -118 -50}%
+\special{pa -14 -41}\special{pa 90 -46}\special{pa 188 -63}\special{pa 274 -92}\special{pa 340 -130}%
+\special{pa 384 -175}\special{pa 401 -224}\special{pa 391 -274}\special{pa 355 -320}%
+\special{pa 294 -360}\special{pa 213 -392}\special{pa 118 -413}\special{pa 14 -421}%
+\special{pa -90 -416}\special{pa -188 -399}\special{pa -274 -370}\special{pa -340 -332}%
+\special{pa -384 -287}\special{pa -401 -238}\special{pa -391 -189}\special{pa -355 -142}%
+\special{fp}%
+\special{pa -376 -64}\special{pa -311 -21}\special{pa -226 12}\special{pa -125 34}%
+\special{pa -15 43}\special{pa 95 38}\special{pa 199 19}\special{pa 290 -11}\special{pa 360 -52}%
+\special{pa 407 -99}\special{pa 425 -151}\special{pa 414 -203}\special{pa 376 -252}%
+\special{pa 311 -295}\special{pa 226 -329}\special{pa 125 -350}\special{pa 15 -359}%
+\special{pa -95 -354}\special{pa -199 -336}\special{pa -290 -305}\special{pa -360 -265}%
+\special{pa -407 -217}\special{pa -425 -165}\special{pa -414 -113}\special{pa -376 -64}%
+\special{fp}%
+\special{pa -396 18}\special{pa -329 63}\special{pa -238 99}\special{pa -132 122}%
+\special{pa -16 131}\special{pa 101 126}\special{pa 210 106}\special{pa 306 74}\special{pa 380 31}%
+\special{pa 429 -19}\special{pa 449 -74}\special{pa 437 -129}\special{pa 396 -181}%
+\special{pa 329 -226}\special{pa 238 -261}\special{pa 132 -284}\special{pa 16 -293}%
+\special{pa -101 -288}\special{pa -210 -269}\special{pa -306 -236}\special{pa -380 -194}%
+\special{pa -429 -143}\special{pa -449 -89}\special{pa -437 -34}\special{pa -396 18}%
+\special{fp}%
+\special{pa -417 105}\special{pa -346 152}\special{pa -251 189}\special{pa -139 214}%
+\special{pa -17 223}\special{pa 106 218}\special{pa 221 197}\special{pa 322 163}\special{pa 400 119}%
+\special{pa 452 65}\special{pa 472 8}\special{pa 460 -50}\special{pa 417 -105}\special{pa 346 -152}%
+\special{pa 251 -189}\special{pa 139 -214}\special{pa 17 -223}\special{pa -106 -218}%
+\special{pa -221 -197}\special{pa -322 -163}\special{pa -400 -119}\special{pa -452 -65}%
+\special{pa -472 -8}\special{pa -460 50}\special{pa -417 105}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d1.tex
new file mode 100644
index 00000000..fcff4da5
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d1.tex
@@ -0,0 +1,78 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-11 15:44
+%%% template.sce 2016-8-11 15:44
+{\unitlength=8mm%
+\begin{picture}%
+( 8.39000, 6.29000)( -4.00000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.3919,-1.2682){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(4.0140,-1.0567){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.9880){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1012 -378}\special{pa -1012 378}%
+\special{fp}%
+\special{pa -1206 -318}\special{pa 1206 318}%
+\special{fp}%
+\special{pa 0 630}\special{pa 0 -1196}%
+\special{fp}%
+\special{pa -405 151}\special{pa -341 159}\special{pa -271 163}\special{pa -197 165}%
+\special{pa -119 164}\special{pa -40 159}\special{pa 40 152}\special{pa 119 141}\special{pa 197 127}%
+\special{pa 271 110}\special{pa 341 90}\special{pa 405 68}\special{pa 463 43}\special{pa 513 16}%
+\special{pa 555 -13}\special{pa 588 -43}\special{pa 612 -75}\special{pa 626 -107}%
+\special{pa 630 -140}\special{pa 624 -172}\special{pa 607 -205}\special{pa 581 -236}%
+\special{pa 546 -266}\special{pa 501 -294}\special{pa 449 -321}\special{pa 389 -345}%
+\special{pa 324 -367}\special{pa 253 -386}\special{pa 177 -402}\special{pa 100 -415}%
+\special{pa 20 -425}\special{pa -60 -432}\special{pa -139 -436}\special{pa -215 -436}%
+\special{pa -289 -434}\special{pa -357 -429}\special{pa -420 -421}\special{pa -476 -410}%
+\special{pa -524 -398}\special{pa -564 -384}\special{pa -595 -368}\special{pa -617 -352}%
+\special{pa -628 -335}\special{pa -629 -317}\special{pa -620 -300}\special{pa -602 -283}%
+\special{pa -573 -267}\special{pa -535 -253}\special{pa -489 -240}\special{pa -435 -229}%
+\special{pa -373 -220}\special{pa -306 -214}\special{pa -234 -211}\special{pa -158 -211}%
+\special{pa -80 -214}\special{pa 0 -220}\special{pa 80 -229}\special{pa 158 -241}%
+\special{pa 234 -257}\special{pa 306 -275}\special{pa 373 -296}\special{pa 435 -320}%
+\special{pa 489 -346}\special{pa 535 -374}\special{pa 573 -404}\special{pa 602 -435}%
+\special{pa 620 -467}\special{pa 629 -499}\special{pa 628 -532}\special{pa 617 -564}%
+\special{pa 595 -596}\special{pa 564 -627}\special{pa 524 -656}\special{pa 476 -684}%
+\special{pa 420 -709}\special{pa 357 -732}\special{pa 289 -753}\special{pa 215 -770}%
+\special{pa 139 -785}\special{pa 60 -797}\special{pa -20 -805}\special{pa -100 -810}%
+\special{pa -177 -812}\special{pa -253 -811}\special{pa -324 -807}\special{pa -389 -801}%
+\special{pa -449 -792}\special{pa -501 -780}\special{pa -546 -767}\special{pa -581 -752}%
+\special{pa -607 -736}\special{pa -624 -719}\special{pa -630 -702}\special{pa -626 -684}%
+\special{pa -612 -667}\special{pa -588 -651}\special{pa -555 -636}\special{pa -513 -622}%
+\special{pa -463 -610}\special{pa -405 -600}%
+\special{fp}%
+\special{pn 24}%
+\special{pa -265 -436}\special{pa -333 -431}\special{pa -398 -422}\special{pa -456 -415}%
+\special{pa -509 -404}\special{pa -548 -390}\special{pa -584 -376}\special{pa -609 -359}%
+\special{pa -624 -343}\special{pa -629 -325}\special{pa -626 -308}\special{pa -613 -290}%
+\special{pa -586 -275}\special{pa -555 -259}\special{pa -513 -247}\special{pa -461 -234}%
+\special{pa -405 -225}\special{pa -341 -217}\special{pa -272 -213}\special{pa -198 -210}%
+\special{pa -123 -213}\special{pa -43 -215}\special{pa 35 -224}\special{pa 114 -234}%
+\special{pa 191 -248}\special{pa 265 -263}\special{pa 333 -284}\special{pa 398 -305}%
+\special{pa 456 -330}\special{pa 509 -355}\special{pa 548 -385}\special{pa 584 -414}%
+\special{pa 609 -446}\special{pa 624 -476}\special{pa 629 -510}\special{pa 626 -541}%
+\special{pa 613 -574}\special{pa 586 -604}\special{pa 572 -621}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{C}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{\Depth}%
+\put(-0.8436,1.5307){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(1.8112,2.1196){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d2.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d2.tex
new file mode 100644
index 00000000..43f90bb4
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/partcrv3d2.tex
@@ -0,0 +1,129 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-20 11:2
+%%% template.sce 2016-8-20 11:2
+{\unitlength=8mm%
+\begin{picture}%
+( 7.89000, 5.95000)( -3.99000, -1.66000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7443,-1.2386){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.2452,-1.0313){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.8920){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1012 -457}\special{pa -810 366}%
+\special{fp}%
+\special{pa -1257 -399}\special{pa 965 307}%
+\special{fp}%
+\special{pa 0 523}\special{pa 0 -1166}%
+\special{fp}%
+\special{pa -752 313}\special{pa -810 366}\special{pa -732 357}\special{pa -742 335}%
+\special{pa -752 313}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -752 313}\special{pa -810 366}\special{pa -732 357}\special{pa -742 335}%
+\special{pa -752 313}\special{pa -810 366}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 886 307}\special{pa 965 307}\special{pa 901 261}\special{pa 894 284}\special{pa 886 307}%
+\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 886 307}\special{pa 965 307}\special{pa 901 261}\special{pa 894 284}\special{pa 886 307}%
+\special{pa 965 307}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1091}\special{pa 0 -1166}\special{pa -24 -1091}\special{pa 0 -1091}%
+\special{pa 24 -1091}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1091}\special{pa 0 -1166}\special{pa -24 -1091}\special{pa 0 -1091}%
+\special{pa 24 -1091}\special{pa 0 -1166}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pn 8}%
+\special{pa -409 183}\special{pa -401 182}\special{fp}\special{pa -370 180}\special{pa -362 180}\special{fp}%
+\special{pa -330 177}\special{pa -322 177}\special{fp}\special{pa -291 174}\special{pa -283 174}\special{fp}%
+\special{pa -252 172}\special{pa -244 171}\special{fp}\special{pa -213 169}\special{pa -205 168}\special{fp}%
+\special{pa -173 166}\special{pa -165 165}\special{fp}\special{pa -134 163}\special{pa -126 162}\special{fp}%
+\special{pa -95 160}\special{pa -87 160}\special{fp}\special{pa -56 157}\special{pa -48 157}\special{fp}%
+\special{pa -16 155}\special{pa -8 154}\special{fp}\special{pa 23 152}\special{pa 31 151}\special{fp}%
+\special{pa 62 149}\special{pa 70 148}\special{fp}\special{pa 101 146}\special{pa 109 145}\special{fp}%
+\special{pa 141 143}\special{pa 149 143}\special{fp}\special{pa 180 140}\special{pa 188 140}\special{fp}%
+\special{pa 219 137}\special{pa 227 137}\special{fp}\special{pa 258 135}\special{pa 266 134}\special{fp}%
+\special{pa 298 132}\special{pa 306 131}\special{fp}\special{pa 335 126}\special{pa 342 122}\special{fp}%
+\special{pa 361 96}\special{pa 366 90}\special{fp}\special{pa 386 66}\special{pa 391 60}\special{fp}%
+\special{pa 411 36}\special{pa 416 30}\special{fp}\special{pa 436 6}\special{pa 442 0}\special{fp}%
+\special{pa 462 -25}\special{pa 467 -31}\special{fp}\special{pa 487 -55}\special{pa 492 -61}\special{fp}%
+\special{pa 512 -85}\special{pa 517 -91}\special{fp}\special{pa 537 -115}\special{pa 542 -121}\special{fp}%
+\special{pa 562 -146}\special{pa 567 -152}\special{fp}\special{pa 588 -176}\special{pa 592 -182}\special{fp}%
+\special{pa 607 -203}\special{pa 604 -211}\special{fp}\special{pa 573 -221}\special{pa 566 -225}\special{fp}%
+\special{pa 537 -237}\special{pa 530 -241}\special{fp}\special{pa 501 -253}\special{pa 494 -257}\special{fp}%
+\special{pa 465 -269}\special{pa 458 -273}\special{fp}\special{pa 429 -285}\special{pa 422 -289}\special{fp}%
+\special{pa 393 -302}\special{pa 386 -305}\special{fp}\special{pa 358 -318}\special{pa 350 -321}\special{fp}%
+\special{pa 322 -334}\special{pa 314 -337}\special{fp}\special{pa 286 -350}\special{pa 278 -353}\special{fp}%
+\special{pa 250 -366}\special{pa 242 -369}\special{fp}\special{pa 214 -382}\special{pa 207 -385}\special{fp}%
+\special{pa 178 -398}\special{pa 171 -401}\special{fp}\special{pa 142 -414}\special{pa 135 -417}\special{fp}%
+\special{pa 106 -430}\special{pa 99 -433}\special{fp}\special{pa 70 -446}\special{pa 63 -449}\special{fp}%
+\special{pa 33 -456}\special{pa 25 -456}\special{fp}\special{pa -6 -452}\special{pa -14 -451}\special{fp}%
+\special{pa -45 -447}\special{pa -53 -446}\special{fp}\special{pa -84 -442}\special{pa -92 -441}\special{fp}%
+\special{pa -123 -438}\special{pa -131 -437}\special{fp}\special{pa -162 -433}\special{pa -170 -432}\special{fp}%
+\special{pa -201 -428}\special{pa -209 -427}\special{fp}\special{pa -240 -424}\special{pa -248 -423}\special{fp}%
+\special{pa -279 -419}\special{pa -287 -418}\special{fp}\special{pa -318 -414}\special{pa -326 -413}\special{fp}%
+\special{pa -357 -410}\special{pa -365 -409}\special{fp}\special{pa -396 -405}\special{pa -404 -404}\special{fp}%
+\special{pa -436 -400}\special{pa -443 -399}\special{fp}\special{pa -475 -396}\special{pa -483 -395}\special{fp}%
+\special{pa -514 -391}\special{pa -522 -390}\special{fp}\special{pa -553 -387}\special{pa -561 -384}\special{fp}%
+\special{pa -576 -378}\special{pa -577 -370}\special{fp}\special{pa -552 -347}\special{pa -547 -341}\special{fp}%
+\special{pa -526 -318}\special{pa -521 -312}\special{fp}\special{pa -500 -289}\special{pa -494 -283}\special{fp}%
+\special{pa -473 -260}\special{pa -468 -254}\special{fp}\special{pa -447 -230}\special{pa -442 -224}\special{fp}%
+\special{pa -421 -200}\special{pa -415 -196}\special{fp}\special{pa -389 -186}\special{pa -381 -184}\special{fp}%
+\special{pa -350 -188}\special{pa -342 -188}\special{fp}\special{pa -311 -190}\special{pa -303 -191}\special{fp}%
+\special{pa -272 -193}\special{pa -264 -194}\special{fp}\special{pa -232 -196}\special{pa -224 -197}\special{fp}%
+\special{pa -193 -199}\special{pa -185 -200}\special{fp}\special{pa -154 -202}\special{pa -146 -202}\special{fp}%
+\special{pa -115 -205}\special{pa -107 -205}\special{fp}\special{pa -75 -208}\special{pa -67 -208}\special{fp}%
+\special{pa -36 -210}\special{pa -28 -211}\special{fp}\special{pa 3 -213}\special{pa 11 -214}\special{fp}%
+\special{pa 42 -216}\special{pa 50 -217}\special{fp}\special{pa 82 -219}\special{pa 90 -220}\special{fp}%
+\special{pa 121 -222}\special{pa 129 -222}\special{fp}\special{pa 160 -225}\special{pa 168 -225}\special{fp}%
+\special{pa 199 -227}\special{pa 207 -228}\special{fp}\special{pa 239 -230}\special{pa 247 -231}\special{fp}%
+\special{pa 278 -233}\special{pa 286 -234}\special{fp}\special{pa 317 -235}\special{pa 325 -238}\special{fp}%
+\special{pa 348 -255}\special{pa 354 -261}\special{fp}\special{pa 374 -285}\special{pa 379 -291}\special{fp}%
+\special{pa 399 -315}\special{pa 404 -321}\special{fp}\special{pa 424 -345}\special{pa 429 -352}\special{fp}%
+\special{pa 449 -376}\special{pa 454 -382}\special{fp}\special{pa 474 -406}\special{pa 479 -412}\special{fp}%
+\special{pa 499 -436}\special{pa 505 -442}\special{fp}\special{pa 525 -466}\special{pa 530 -473}\special{fp}%
+\special{pa 550 -497}\special{pa 555 -503}\special{fp}\special{pa 575 -527}\special{pa 580 -533}\special{fp}%
+\special{pa 603 -556}\special{pa 603 -564}\special{fp}\special{pa 591 -579}\special{pa 584 -584}\special{fp}%
+\special{pa 555 -596}\special{pa 548 -599}\special{fp}\special{pa 519 -612}\special{pa 512 -615}\special{fp}%
+\special{pa 483 -628}\special{pa 476 -631}\special{fp}\special{pa 447 -644}\special{pa 440 -647}\special{fp}%
+\special{pa 411 -660}\special{pa 404 -663}\special{fp}\special{pa 376 -676}\special{pa 368 -679}\special{fp}%
+\special{pa 340 -692}\special{pa 332 -695}\special{fp}\special{pa 304 -708}\special{pa 296 -711}\special{fp}%
+\special{pa 268 -724}\special{pa 260 -727}\special{fp}\special{pa 232 -740}\special{pa 225 -743}\special{fp}%
+\special{pa 196 -756}\special{pa 189 -759}\special{fp}\special{pa 160 -772}\special{pa 153 -775}\special{fp}%
+\special{pa 124 -788}\special{pa 117 -792}\special{fp}\special{pa 88 -804}\special{pa 81 -808}\special{fp}%
+\special{pa 52 -821}\special{pa 45 -823}\special{fp}\special{pa 14 -820}\special{pa 6 -820}\special{fp}%
+\special{pa -25 -816}\special{pa -33 -815}\special{fp}\special{pa -64 -811}\special{pa -72 -810}\special{fp}%
+\special{pa -103 -806}\special{pa -111 -805}\special{fp}\special{pa -142 -802}\special{pa -150 -801}\special{fp}%
+\special{pa -182 -797}\special{pa -190 -796}\special{fp}\special{pa -221 -792}\special{pa -229 -791}\special{fp}%
+\special{pa -260 -788}\special{pa -268 -787}\special{fp}\special{pa -299 -783}\special{pa -307 -782}\special{fp}%
+\special{pa -338 -778}\special{pa -346 -777}\special{fp}\special{pa -377 -774}\special{pa -385 -773}\special{fp}%
+\special{pa -416 -769}\special{pa -424 -768}\special{fp}\special{pa -455 -764}\special{pa -463 -763}\special{fp}%
+\special{pa -494 -760}\special{pa -502 -759}\special{fp}\special{pa -533 -755}\special{pa -541 -754}\special{fp}%
+\special{pa -574 -753}\special{pa -578 -746}\special{fp}\special{pa -565 -729}\special{pa -561 -722}\special{fp}%
+\special{pa -539 -699}\special{pa -534 -693}\special{fp}\special{pa -513 -670}\special{pa -508 -664}\special{fp}%
+\special{pa -487 -641}\special{pa -481 -635}\special{fp}\special{pa -460 -611}\special{pa -455 -605}\special{fp}%
+\special{pa -434 -582}\special{pa -429 -576}\special{fp}\special{pa -408 -553}\special{pa -402 -547}\special{fp}%
+\special{pn 8}%
+\special{pa 441 -281}\special{pa 43 -457}\special{pa -584 -383}\special{pa -405 -185}%
+\special{pa 333 -238}\special{pa 613 -571}\special{pa 328 -696}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perpplane.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perpplane.tex
new file mode 100644
index 00000000..9ec431c8
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perpplane.tex
@@ -0,0 +1,69 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-8 16:15
+%%% template.sce 2016-8-8 16:15
+{\unitlength=6mm%
+\begin{picture}%
+( 10.06000, 7.68000)( -5.06000, -2.68000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.9153,-0.6687){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(1.7543,-2.0089){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.7841){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\settowidth{\Width}{P}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{P}\settodepth{\Depth}{P}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-0.6695,0.4170){\hspace*{\Width}\raisebox{\Height}{P}}%
+%
+%
+\settowidth{\Width}{A}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{\Depth}%
+\put(1.7342,2.0313){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.7225,-1.8389){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{-\Height}%
+\put(-2.9733,-1.1973){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(-1.9616,2.7230){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\special{pa 1117 -152}\special{pa 304 -41}%
+\special{fp}%
+\special{pa 265 -36}\special{pa -622 85}%
+\special{fp}%
+\special{pa -661 90}\special{pa -1117 152}%
+\special{fp}%
+\special{pa -385 -441}\special{pa 196 225}%
+\special{fp}%
+\special{pa 224 257}\special{pa 385 441}%
+\special{fp}%
+\special{pa 0 633}\special{pa 0 422}%
+\special{fp}%
+\special{pa 0 384}\special{pa 0 -525}%
+\special{fp}%
+\special{pa 0 -562}\special{pa 0 -1085}%
+\special{fp}%
+\special{pa -146 -99}\special{pa 0 0}%
+\special{fp}%
+\special{pa 398 -467}\special{pa 159 434}\special{pa -691 270}\special{pa -452 -631}%
+\special{pa 398 -467}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perppt.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perppt.tex
new file mode 100644
index 00000000..e03004d7
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/perppt.tex
@@ -0,0 +1,58 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-11 21:22
+%%% template.sce 2016-8-11 21:22
+{\unitlength=8mm%
+\begin{picture}%
+( 8.04000, 6.29000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-1.9908,-1.0008){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(4.8460,-0.3726){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.1119){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 574 -288}\special{pa -574 288}%
+\special{fp}%
+\special{pa -945 -73}\special{pa 1467 113}%
+\special{fp}%
+\special{pa 0 630}\special{pa 0 -1235}%
+\special{fp}%
+\special{pa -344 173}\special{pa 880 68}\special{pa 0 -926}\special{pa -344 173}%
+\special{fp}%
+\special{pa 0 0}\special{pa 179 -229}%
+\special{fp}%
+\settowidth{\Width}{A}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{\Depth}%
+\put(-1.1426,-0.4993){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{\Depth}%
+\put(2.8439,-0.1648){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{\Depth}%
+\put(0.0500,2.9915){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{\Depth}%
+\put(-0.0500,0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\settowidth{\Width}{H}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{H}\settodepth{\Depth}{H}\setlength{\Height}{\Depth}%
+\put(0.6171,0.7758){\hspace*{\Width}\raisebox{\Height}{H}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata01.png b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata01.png
new file mode 100644
index 00000000..9e3c0696
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata01.png
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata02.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata02.tex
new file mode 100644
index 00000000..050bcbd6
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata02.tex
@@ -0,0 +1,118 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-11 22:26
+%%% template.sce 2016-8-11 22:26
+{\unitlength=6mm%
+\begin{picture}%
+( 7.60000, 7.37000)( -3.60000, -3.37000)%
+\special{pn 8}%
+%
+\special{pa -98 -684}\special{pa -242 -660}%
+\special{fp}%
+\special{pa -242 -660}\special{pa -52 -640}%
+\special{fp}%
+\special{pa -52 -640}\special{pa 210 -651}%
+\special{fp}%
+\special{pa 210 -651}\special{pa 182 -678}%
+\special{fp}%
+\special{pa 182 -678}\special{pa -98 -684}%
+\special{fp}%
+\special{pa 182 -678}\special{pa 363 -543}%
+\special{fp}%
+\special{pa -582 -380}\special{pa -484 -508}%
+\special{fp}%
+\special{pa -484 -508}\special{pa -242 -660}%
+\special{fp}%
+\special{pa -662 100}\special{pa -694 -128}%
+\special{fp}%
+\special{pa -694 -128}\special{pa -582 -380}%
+\special{fp}%
+\special{pa -694 -128}\special{pa -666 -101}%
+\special{fp}%
+\special{pa -666 -101}\special{pa -536 -336}%
+\special{fp}%
+\special{pa -536 -336}\special{pa -484 -508}%
+\special{fp}%
+\special{pa -536 -336}\special{pa -346 -316}%
+\special{fp}%
+\special{pa -346 -316}\special{pa -104 -468}%
+\special{fp}%
+\special{pa -104 -468}\special{pa -52 -640}%
+\special{fp}%
+\special{pa 210 -651}\special{pa 420 -490}%
+\special{fp}%
+\special{pa 420 -490}\special{pa 602 -355}%
+\special{fp}%
+\special{pa 602 -355}\special{pa 573 -382}%
+\special{fp}%
+\special{pa 573 -382}\special{pa 363 -543}%
+\special{fp}%
+\special{pa -602 355}\special{pa -662 100}%
+\special{fp}%
+\special{pa -602 355}\special{pa -573 382}%
+\special{fp}%
+\special{pa -573 382}\special{pa -605 154}%
+\special{fp}%
+\special{pa -605 154}\special{pa -666 -101}%
+\special{fp}%
+\special{pa -605 154}\special{pa -415 174}%
+\special{fp}%
+\special{pa -415 174}\special{pa -285 -61}%
+\special{fp}%
+\special{pa -285 -61}\special{pa -346 -316}%
+\special{fp}%
+\special{pa -285 -61}\special{pa -6 -56}%
+\special{fp}%
+\special{pa -6 -56}\special{pa 106 -307}%
+\special{fp}%
+\special{pa 106 -307}\special{pa -104 -468}%
+\special{fp}%
+\special{pa 106 -307}\special{pa 368 -318}%
+\special{fp}%
+\special{pa 368 -318}\special{pa 420 -490}%
+\special{fp}%
+\special{pa 602 -355}\special{pa 662 -100}%
+\special{fp}%
+\special{pa 662 -100}\special{pa 694 128}%
+\special{fp}%
+\special{pa -182 678}\special{pa -363 543}%
+\special{fp}%
+\special{pa -363 543}\special{pa -573 382}%
+\special{fp}%
+\special{pa -363 543}\special{pa -265 415}%
+\special{fp}%
+\special{pa -265 415}\special{pa -415 174}%
+\special{fp}%
+\special{pa -265 415}\special{pa 14 420}%
+\special{fp}%
+\special{pa 14 420}\special{pa 144 185}%
+\special{fp}%
+\special{pa 144 185}\special{pa -6 -56}%
+\special{fp}%
+\special{pa 144 185}\special{pa 406 174}%
+\special{fp}%
+\special{pa 406 174}\special{pa 518 -77}%
+\special{fp}%
+\special{pa 518 -77}\special{pa 368 -318}%
+\special{fp}%
+\special{pa 518 -77}\special{pa 662 -100}%
+\special{fp}%
+\special{pa 694 128}\special{pa 582 380}%
+\special{fp}%
+\special{pa 582 380}\special{pa 484 508}%
+\special{fp}%
+\special{pa 484 508}\special{pa 242 660}%
+\special{fp}%
+\special{pa 242 660}\special{pa 98 684}%
+\special{fp}%
+\special{pa 98 684}\special{pa -182 678}%
+\special{fp}%
+\special{pa 98 684}\special{pa 196 555}%
+\special{fp}%
+\special{pa 196 555}\special{pa 14 420}%
+\special{fp}%
+\special{pa 196 555}\special{pa 438 403}%
+\special{fp}%
+\special{pa 438 403}\special{pa 406 174}%
+\special{fp}%
+\special{pa 438 403}\special{pa 582 380}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata03.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata03.tex
new file mode 100644
index 00000000..2b5d91ad
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/phparadata03.tex
@@ -0,0 +1,272 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-11 22:33
+%%% template.sce 2016-8-11 22:33
+{\unitlength=6mm%
+\begin{picture}%
+( 7.60000, 7.37000)( -3.60000, -3.37000)%
+\special{pn 8}%
+%
+\special{pn 16}%
+\special{pa -98 -684}\special{pa -242 -660}%
+\special{fp}%
+\special{pa -242 -660}\special{pa -52 -640}%
+\special{fp}%
+\special{pa -52 -640}\special{pa 210 -651}%
+\special{fp}%
+\special{pa 210 -651}\special{pa 182 -678}%
+\special{fp}%
+\special{pa 182 -678}\special{pa -98 -684}%
+\special{fp}%
+\special{pa 182 -678}\special{pa 363 -543}%
+\special{fp}%
+\special{pa -582 -380}\special{pa -484 -508}%
+\special{fp}%
+\special{pa -484 -508}\special{pa -242 -660}%
+\special{fp}%
+\special{pa -662 100}\special{pa -694 -128}%
+\special{fp}%
+\special{pa -694 -128}\special{pa -582 -380}%
+\special{fp}%
+\special{pa -694 -128}\special{pa -666 -101}%
+\special{fp}%
+\special{pa -666 -101}\special{pa -536 -336}%
+\special{fp}%
+\special{pa -536 -336}\special{pa -484 -508}%
+\special{fp}%
+\special{pa -536 -336}\special{pa -346 -316}%
+\special{fp}%
+\special{pa -346 -316}\special{pa -104 -468}%
+\special{fp}%
+\special{pa -104 -468}\special{pa -52 -640}%
+\special{fp}%
+\special{pa 210 -651}\special{pa 420 -490}%
+\special{fp}%
+\special{pa 420 -490}\special{pa 602 -355}%
+\special{fp}%
+\special{pa 602 -355}\special{pa 573 -382}%
+\special{fp}%
+\special{pa 573 -382}\special{pa 363 -543}%
+\special{fp}%
+\special{pa -602 355}\special{pa -662 100}%
+\special{fp}%
+\special{pa -602 355}\special{pa -573 382}%
+\special{fp}%
+\special{pa -573 382}\special{pa -605 154}%
+\special{fp}%
+\special{pa -605 154}\special{pa -666 -101}%
+\special{fp}%
+\special{pa -605 154}\special{pa -415 174}%
+\special{fp}%
+\special{pa -415 174}\special{pa -285 -61}%
+\special{fp}%
+\special{pa -285 -61}\special{pa -346 -316}%
+\special{fp}%
+\special{pa -285 -61}\special{pa -6 -56}%
+\special{fp}%
+\special{pa -6 -56}\special{pa 106 -307}%
+\special{fp}%
+\special{pa 106 -307}\special{pa -104 -468}%
+\special{fp}%
+\special{pa 106 -307}\special{pa 368 -318}%
+\special{fp}%
+\special{pa 368 -318}\special{pa 420 -490}%
+\special{fp}%
+\special{pa 602 -355}\special{pa 662 -100}%
+\special{fp}%
+\special{pa 662 -100}\special{pa 694 128}%
+\special{fp}%
+\special{pa -182 678}\special{pa -363 543}%
+\special{fp}%
+\special{pa -363 543}\special{pa -573 382}%
+\special{fp}%
+\special{pa -363 543}\special{pa -265 415}%
+\special{fp}%
+\special{pa -265 415}\special{pa -415 174}%
+\special{fp}%
+\special{pa -265 415}\special{pa 14 420}%
+\special{fp}%
+\special{pa 14 420}\special{pa 144 185}%
+\special{fp}%
+\special{pa 144 185}\special{pa -6 -56}%
+\special{fp}%
+\special{pa 144 185}\special{pa 406 174}%
+\special{fp}%
+\special{pa 406 174}\special{pa 518 -77}%
+\special{fp}%
+\special{pa 518 -77}\special{pa 368 -318}%
+\special{fp}%
+\special{pa 518 -77}\special{pa 662 -100}%
+\special{fp}%
+\special{pa 694 128}\special{pa 582 380}%
+\special{fp}%
+\special{pa 582 380}\special{pa 484 508}%
+\special{fp}%
+\special{pa 484 508}\special{pa 242 660}%
+\special{fp}%
+\special{pa 242 660}\special{pa 98 684}%
+\special{fp}%
+\special{pa 98 684}\special{pa -182 678}%
+\special{fp}%
+\special{pa 98 684}\special{pa 196 555}%
+\special{fp}%
+\special{pa 196 555}\special{pa 14 420}%
+\special{fp}%
+\special{pa 196 555}\special{pa 438 403}%
+\special{fp}%
+\special{pa 438 403}\special{pa 406 174}%
+\special{fp}%
+\special{pa 438 403}\special{pa 582 380}%
+\special{fp}%
+\special{pn 8}%
+\special{pn 8}%
+\special{pa -95 -687}\special{pa -100 -680}\special{fp}\special{pa -120 -655}\special{pa -125 -648}\special{fp}%
+\special{pa -144 -622}\special{pa -149 -616}\special{fp}\special{pa -169 -590}\special{pa -174 -584}\special{fp}%
+\special{pa -193 -558}\special{pa -198 -552}\special{fp}\special{pn 8}%
+\special{pa -192 -557}\special{pa -199 -553}\special{fp}\special{pa -227 -535}\special{pa -234 -531}\special{fp}%
+\special{pa -261 -513}\special{pa -268 -509}\special{fp}\special{pa -296 -492}\special{pa -303 -488}\special{fp}%
+\special{pa -331 -470}\special{pa -337 -466}\special{fp}\special{pa -365 -448}\special{pa -372 -444}\special{fp}%
+\special{pa -400 -427}\special{pa -407 -422}\special{fp}\special{pa -434 -405}\special{pa -441 -401}\special{fp}%
+\special{pn 8}%
+\special{pa -586 -379}\special{pa -578 -380}\special{fp}\special{pa -550 -385}\special{pa -542 -386}\special{fp}%
+\special{pa -514 -391}\special{pa -506 -392}\special{fp}\special{pa -478 -396}\special{pa -470 -398}\special{fp}%
+\special{pa -442 -402}\special{pa -434 -403}\special{fp}\special{pn 8}%
+\special{pa -438 -407}\special{pa -437 -399}\special{fp}\special{pa -433 -369}\special{pa -432 -361}\special{fp}%
+\special{pa -428 -331}\special{pa -426 -323}\special{fp}\special{pa -422 -293}\special{pa -421 -285}\special{fp}%
+\special{pa -417 -254}\special{pa -416 -247}\special{fp}\special{pa -412 -216}\special{pa -410 -209}\special{fp}%
+\special{pa -406 -178}\special{pa -405 -170}\special{fp}\special{pn 8}%
+\special{pa -404 -178}\special{pa -407 -171}\special{fp}\special{pa -420 -142}\special{pa -423 -135}\special{fp}%
+\special{pa -436 -106}\special{pa -439 -99}\special{fp}\special{pa -452 -70}\special{pa -455 -63}\special{fp}%
+\special{pa -468 -34}\special{pa -471 -27}\special{fp}\special{pa -484 2}\special{pa -487 9}\special{fp}%
+\special{pa -500 38}\special{pa -504 45}\special{fp}\special{pa -516 74}\special{pa -520 81}\special{fp}%
+\special{pn 8}%
+\special{pa -666 101}\special{pa -658 100}\special{fp}\special{pa -630 95}\special{pa -622 94}\special{fp}%
+\special{pa -594 89}\special{pa -586 88}\special{fp}\special{pa -558 84}\special{pa -550 82}\special{fp}%
+\special{pa -522 78}\special{pa -514 77}\special{fp}\special{pn 8}%
+\special{pa -410 -174}\special{pa -402 -175}\special{fp}\special{pa -372 -176}\special{pa -364 -176}\special{fp}%
+\special{pa -335 -177}\special{pa -327 -178}\special{fp}\special{pa -297 -179}\special{pa -289 -179}\special{fp}%
+\special{pa -260 -180}\special{pa -252 -181}\special{fp}\special{pa -223 -182}\special{pa -215 -182}\special{fp}%
+\special{pa -185 -183}\special{pa -177 -184}\special{fp}\special{pa -148 -185}\special{pa -140 -185}\special{fp}%
+\special{pn 8}%
+\special{pa 366 -547}\special{pa 361 -540}\special{fp}\special{pa 341 -514}\special{pa 336 -508}\special{fp}%
+\special{pa 317 -482}\special{pa 312 -476}\special{fp}\special{pa 292 -450}\special{pa 287 -444}\special{fp}%
+\special{pa 268 -418}\special{pa 263 -411}\special{fp}\special{pn 8}%
+\special{pa 269 -414}\special{pa 261 -415}\special{fp}\special{pa 229 -415}\special{pa 221 -415}\special{fp}%
+\special{pa 190 -416}\special{pa 182 -416}\special{fp}\special{pa 150 -417}\special{pa 142 -417}\special{fp}%
+\special{pa 110 -418}\special{pa 102 -418}\special{fp}\special{pa 70 -419}\special{pa 62 -419}\special{fp}%
+\special{pa 30 -419}\special{pa 22 -420}\special{fp}\special{pa -10 -420}\special{pa -18 -420}\special{fp}%
+\special{pn 8}%
+\special{pa -199 -557}\special{pa -192 -552}\special{fp}\special{pa -169 -535}\special{pa -162 -530}\special{fp}%
+\special{pa -138 -512}\special{pa -132 -508}\special{fp}\special{pa -108 -490}\special{pa -102 -485}\special{fp}%
+\special{pa -78 -467}\special{pa -71 -463}\special{fp}\special{pa -48 -445}\special{pa -41 -440}\special{fp}%
+\special{pa -17 -423}\special{pa -11 -418}\special{fp}\special{pn 8}%
+\special{pa -146 -182}\special{pa -142 -189}\special{fp}\special{pa -127 -215}\special{pa -123 -222}\special{fp}%
+\special{pa -109 -249}\special{pa -105 -256}\special{fp}\special{pa -90 -282}\special{pa -86 -289}\special{fp}%
+\special{pa -72 -316}\special{pa -68 -323}\special{fp}\special{pa -53 -350}\special{pa -49 -357}\special{fp}%
+\special{pa -35 -383}\special{pa -31 -390}\special{fp}\special{pa -16 -417}\special{pa -12 -424}\special{fp}%
+\special{pn 8}%
+\special{pa -520 74}\special{pa -516 81}\special{fp}\special{pa -499 108}\special{pa -494 115}\special{fp}%
+\special{pa -477 143}\special{pa -473 149}\special{fp}\special{pa -456 177}\special{pa -452 184}\special{fp}%
+\special{pa -435 211}\special{pa -430 218}\special{fp}\special{pa -413 246}\special{pa -409 253}\special{fp}%
+\special{pa -392 280}\special{pa -388 287}\special{fp}\special{pa -370 315}\special{pa -366 321}\special{fp}%
+\special{pn 8}%
+\special{pa -367 314}\special{pa -369 322}\special{fp}\special{pa -378 349}\special{pa -380 356}\special{fp}%
+\special{pa -388 383}\special{pa -390 391}\special{fp}\special{pa -398 417}\special{pa -401 425}\special{fp}%
+\special{pa -409 452}\special{pa -411 459}\special{fp}\special{pa -419 486}\special{pa -421 494}\special{fp}%
+\special{pn 8}%
+\special{pa -605 353}\special{pa -599 358}\special{fp}\special{pa -575 375}\special{pa -568 380}\special{fp}%
+\special{pa -544 398}\special{pa -538 403}\special{fp}\special{pa -514 420}\special{pa -508 425}\special{fp}%
+\special{pa -484 443}\special{pa -477 447}\special{fp}\special{pa -454 465}\special{pa -447 470}\special{fp}%
+\special{pa -423 488}\special{pa -417 492}\special{fp}\special{pn 8}%
+\special{pa -146 -189}\special{pa -142 -182}\special{fp}\special{pa -125 -154}\special{pa -120 -147}\special{fp}%
+\special{pa -103 -120}\special{pa -99 -113}\special{fp}\special{pa -82 -85}\special{pa -78 -79}\special{fp}%
+\special{pa -60 -51}\special{pa -56 -44}\special{fp}\special{pa -39 -17}\special{pa -35 -10}\special{fp}%
+\special{pa -18 18}\special{pa -13 25}\special{fp}\special{pa 4 52}\special{pa 8 59}\special{fp}%
+\special{pn 8}%
+\special{pa 7 52}\special{pa 4 59}\special{fp}\special{pa -9 88}\special{pa -12 95}\special{fp}%
+\special{pa -25 124}\special{pa -28 131}\special{fp}\special{pa -41 160}\special{pa -44 167}\special{fp}%
+\special{pa -57 196}\special{pa -60 203}\special{fp}\special{pa -73 232}\special{pa -76 239}\special{fp}%
+\special{pa -89 268}\special{pa -92 275}\special{fp}\special{pa -105 304}\special{pa -108 311}\special{fp}%
+\special{pn 8}%
+\special{pa -372 318}\special{pa -364 318}\special{fp}\special{pa -335 317}\special{pa -327 316}\special{fp}%
+\special{pa -298 315}\special{pa -290 315}\special{fp}\special{pa -260 314}\special{pa -252 313}\special{fp}%
+\special{pa -223 312}\special{pa -215 312}\special{fp}\special{pa -185 310}\special{pa -177 310}\special{fp}%
+\special{pa -148 309}\special{pa -140 309}\special{fp}\special{pa -110 307}\special{pa -102 307}\special{fp}%
+\special{pn 8}%
+\special{pa 263 -418}\special{pa 268 -411}\special{fp}\special{pa 285 -384}\special{pa 289 -377}\special{fp}%
+\special{pa 306 -349}\special{pa 310 -342}\special{fp}\special{pa 327 -315}\special{pa 332 -308}\special{fp}%
+\special{pa 349 -280}\special{pa 353 -274}\special{fp}\special{pa 370 -246}\special{pa 374 -239}\special{fp}%
+\special{pa 392 -212}\special{pa 396 -205}\special{fp}\special{pa 413 -177}\special{pa 417 -170}\special{fp}%
+\special{pn 8}%
+\special{pa 417 -177}\special{pa 413 -170}\special{fp}\special{pa 398 -144}\special{pa 395 -137}\special{fp}%
+\special{pa 380 -110}\special{pa 376 -103}\special{fp}\special{pa 361 -77}\special{pa 357 -70}\special{fp}%
+\special{pa 343 -43}\special{pa 339 -36}\special{fp}\special{pa 324 -9}\special{pa 320 -2}\special{fp}%
+\special{pa 306 24}\special{pa 302 31}\special{fp}\special{pa 287 58}\special{pa 283 65}\special{fp}%
+\special{pn 8}%
+\special{pa 2 56}\special{pa 10 56}\special{fp}\special{pa 42 56}\special{pa 50 57}\special{fp}%
+\special{pa 82 57}\special{pa 90 57}\special{fp}\special{pa 122 58}\special{pa 130 58}\special{fp}%
+\special{pa 161 59}\special{pa 169 59}\special{fp}\special{pa 201 60}\special{pa 209 60}\special{fp}%
+\special{pa 241 60}\special{pa 249 61}\special{fp}\special{pa 281 61}\special{pa 289 61}\special{fp}%
+\special{pn 8}%
+\special{pa 573 -386}\special{pa 574 -378}\special{fp}\special{pa 578 -348}\special{pa 579 -340}\special{fp}%
+\special{pa 583 -310}\special{pa 585 -302}\special{fp}\special{pa 589 -272}\special{pa 590 -264}\special{fp}%
+\special{pa 594 -234}\special{pa 595 -226}\special{fp}\special{pa 599 -196}\special{pa 601 -188}\special{fp}%
+\special{pa 605 -158}\special{pa 606 -150}\special{fp}\special{pn 8}%
+\special{pa 411 -174}\special{pa 419 -173}\special{fp}\special{pa 449 -170}\special{pa 457 -169}\special{fp}%
+\special{pa 487 -166}\special{pa 495 -165}\special{fp}\special{pa 525 -162}\special{pa 533 -161}\special{fp}%
+\special{pa 563 -158}\special{pa 571 -157}\special{fp}\special{pa 601 -154}\special{pa 609 -153}\special{fp}%
+\special{pn 8}%
+\special{pa 56 640}\special{pa 48 641}\special{fp}\special{pa 18 642}\special{pa 10 642}\special{fp}%
+\special{pa -19 643}\special{pa -27 644}\special{fp}\special{pa -56 645}\special{pa -64 645}\special{fp}%
+\special{pa -94 646}\special{pa -102 647}\special{fp}\special{pa -131 648}\special{pa -139 648}\special{fp}%
+\special{pa -169 649}\special{pa -177 650}\special{fp}\special{pa -206 651}\special{pa -214 651}\special{fp}%
+\special{pn 8}%
+\special{pa -423 488}\special{pa -417 492}\special{fp}\special{pa -393 511}\special{pa -387 515}\special{fp}%
+\special{pa -363 534}\special{pa -357 538}\special{fp}\special{pa -333 557}\special{pa -327 561}\special{fp}%
+\special{pa -303 580}\special{pa -297 584}\special{fp}\special{pa -273 603}\special{pa -267 608}\special{fp}%
+\special{pa -243 626}\special{pa -237 631}\special{fp}\special{pa -213 649}\special{pa -207 654}\special{fp}%
+\special{pn 8}%
+\special{pa -213 648}\special{pa -207 654}\special{fp}\special{pa -185 675}\special{pa -179 681}\special{fp}%
+\special{pn 8}%
+\special{pa 284 57}\special{pa 286 65}\special{fp}\special{pa 293 94}\special{pa 295 102}\special{fp}%
+\special{pa 302 130}\special{pa 303 138}\special{fp}\special{pa 310 167}\special{pa 312 175}\special{fp}%
+\special{pa 319 203}\special{pa 321 211}\special{fp}\special{pa 327 240}\special{pa 329 247}\special{fp}%
+\special{pa 336 276}\special{pa 338 284}\special{fp}\special{pa 345 313}\special{pa 347 320}\special{fp}%
+\special{pn 8}%
+\special{pa 349 314}\special{pa 342 319}\special{fp}\special{pa 314 336}\special{pa 308 340}\special{fp}%
+\special{pa 280 358}\special{pa 273 362}\special{fp}\special{pa 245 379}\special{pa 239 384}\special{fp}%
+\special{pa 211 401}\special{pa 204 405}\special{fp}\special{pa 176 423}\special{pa 169 427}\special{fp}%
+\special{pa 142 445}\special{pa 135 449}\special{fp}\special{pa 107 466}\special{pa 100 471}\special{fp}%
+\special{pn 8}%
+\special{pa -110 305}\special{pa -103 310}\special{fp}\special{pa -80 328}\special{pa -73 333}\special{fp}%
+\special{pa -50 351}\special{pa -43 356}\special{fp}\special{pa -20 374}\special{pa -13 379}\special{fp}%
+\special{pa 10 397}\special{pa 17 402}\special{fp}\special{pa 40 420}\special{pa 47 425}\special{fp}%
+\special{pa 70 443}\special{pa 77 448}\special{fp}\special{pa 100 466}\special{pa 107 471}\special{fp}%
+\special{pn 8}%
+\special{pa 51 644}\special{pa 53 637}\special{fp}\special{pa 61 610}\special{pa 63 602}\special{fp}%
+\special{pa 71 575}\special{pa 74 568}\special{fp}\special{pa 82 541}\special{pa 84 533}\special{fp}%
+\special{pa 92 507}\special{pa 94 499}\special{fp}\special{pa 102 472}\special{pa 105 465}\special{fp}%
+\special{pn 8}%
+\special{pa 697 131}\special{pa 691 125}\special{fp}\special{pa 669 104}\special{pa 663 99}\special{fp}%
+\special{pn 8}%
+\special{pa 604 -158}\special{pa 606 -150}\special{fp}\special{pa 613 -121}\special{pa 615 -113}\special{fp}%
+\special{pa 622 -85}\special{pa 623 -77}\special{fp}\special{pa 630 -48}\special{pa 632 -41}\special{fp}%
+\special{pa 639 -12}\special{pa 641 -4}\special{fp}\special{pa 648 25}\special{pa 649 32}\special{fp}%
+\special{pa 656 61}\special{pa 658 69}\special{fp}\special{pa 665 97}\special{pa 667 105}\special{fp}%
+\special{pn 8}%
+\special{pa 668 98}\special{pa 664 105}\special{fp}\special{pa 649 131}\special{pa 645 138}\special{fp}%
+\special{pa 631 165}\special{pa 627 172}\special{fp}\special{pa 612 199}\special{pa 608 206}\special{fp}%
+\special{pa 593 232}\special{pa 590 239}\special{fp}\special{pa 575 266}\special{pa 571 273}\special{fp}%
+\special{pa 556 299}\special{pa 553 306}\special{fp}\special{pa 538 333}\special{pa 534 340}\special{fp}%
+\special{pn 8}%
+\special{pa 342 316}\special{pa 350 317}\special{fp}\special{pa 380 320}\special{pa 388 321}\special{fp}%
+\special{pa 418 324}\special{pa 426 325}\special{fp}\special{pa 456 328}\special{pa 464 329}\special{fp}%
+\special{pa 494 332}\special{pa 502 333}\special{fp}\special{pa 532 336}\special{pa 540 337}\special{fp}%
+\special{pn 8}%
+\special{pa 537 333}\special{pa 535 340}\special{fp}\special{pa 527 367}\special{pa 524 375}\special{fp}%
+\special{pa 516 401}\special{pa 514 409}\special{fp}\special{pa 506 436}\special{pa 504 443}\special{fp}%
+\special{pa 496 470}\special{pa 493 478}\special{fp}\special{pa 485 505}\special{pa 483 512}\special{fp}%
+\special{pn 8}%
+\special{pa 48 640}\special{pa 56 641}\special{fp}\special{pa 86 644}\special{pa 94 645}\special{fp}%
+\special{pa 124 648}\special{pa 132 649}\special{fp}\special{pa 162 652}\special{pa 170 653}\special{fp}%
+\special{pa 200 656}\special{pa 208 657}\special{fp}\special{pa 238 660}\special{pa 246 661}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rasen.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rasen.tex
new file mode 100644
index 00000000..479ba81a
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rasen.tex
@@ -0,0 +1,55 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-8 19:50
+%%% template.sce 2016-8-8 19:50
+{\unitlength=6mm%
+\begin{picture}%
+( 10.06000, 7.68000)( -5.06000, -2.68000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.7562,-0.7329){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.1820,-1.6994){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.8804){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1079 -166}\special{pa -1079 166}%
+\special{fp}%
+\special{pa -480 -374}\special{pa 480 374}%
+\special{fp}%
+\special{pa 0 633}\special{pa 0 -1108}%
+\special{fp}%
+\special{pa -432 67}\special{pa -404 79}\special{pa -370 91}\special{pa -329 100}%
+\special{pa -284 108}\special{pa -234 114}\special{pa -180 118}\special{pa -123 119}%
+\special{pa -64 117}\special{pa -5 113}\special{pa 55 106}\special{pa 114 97}\special{pa 171 85}%
+\special{pa 226 71}\special{pa 276 54}\special{pa 323 35}\special{pa 364 14}\special{pa 399 -8}%
+\special{pa 428 -32}\special{pa 450 -57}\special{pa 464 -82}\special{pa 472 -109}%
+\special{pa 471 -135}\special{pa 463 -161}\special{pa 448 -187}\special{pa 425 -212}%
+\special{pa 396 -236}\special{pa 360 -258}\special{pa 318 -278}\special{pa 272 -297}%
+\special{pa 221 -313}\special{pa 166 -328}\special{pa 109 -339}\special{pa 50 -348}%
+\special{pa -10 -355}\special{pa -70 -359}\special{pa -129 -360}\special{pa -185 -359}%
+\special{pa -239 -355}\special{pa -288 -349}\special{pa -333 -341}\special{pa -373 -331}%
+\special{pa -407 -319}\special{pa -434 -307}\special{pa -454 -293}\special{pa -467 -278}%
+\special{pa -472 -263}\special{pa -470 -248}\special{pa -460 -233}\special{pa -443 -219}%
+\special{pa -419 -205}\special{pa -388 -193}\special{pa -350 -183}\special{pa -307 -174}%
+\special{pa -259 -167}\special{pa -207 -162}\special{pa -152 -160}\special{pa -94 -160}%
+\special{pa -35 -163}\special{pa 25 -168}\special{pa 85 -177}\special{pa 143 -187}%
+\special{pa 199 -200}\special{pa 251 -216}\special{pa 300 -234}\special{pa 344 -253}%
+\special{pa 382 -275}\special{pa 414 -298}\special{pa 440 -323}\special{pa 458 -348}%
+\special{pa 469 -374}\special{pa 472 -400}\special{pa 468 -427}\special{pa 457 -453}%
+\special{pa 438 -478}\special{pa 411 -502}\special{pa 379 -525}\special{pa 340 -547}%
+\special{pa 296 -566}\special{pa 247 -584}\special{pa 194 -599}\special{pa 138 -612}%
+\special{pa 79 -623}\special{pa 20 -630}\special{pa -40 -636}\special{pa -100 -638}%
+\special{pa -157 -638}\special{pa -212 -636}\special{pa -264 -631}\special{pa -312 -624}%
+\special{pa -354 -615}\special{pa -391 -604}\special{pa -421 -592}\special{pa -445 -578}%
+\special{pa -461 -564}\special{pa -471 -549}\special{pa -472 -534}\special{pa -466 -519}%
+\special{pa -452 -504}\special{pa -432 -490}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/readobj.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/readobj.tex
new file mode 100644
index 00000000..5b9d71e6
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/readobj.tex
@@ -0,0 +1,64 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-9 20:2
+%%% template.sce 2016-8-9 20:2
+{\unitlength=8mm%
+\begin{picture}%
+( 6.00000, 5.00000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\special{pn 8}%
+\special{pa -59 -253}\special{pa -51 -251}\special{fp}\special{pa -21 -240}\special{pa -13 -238}\special{fp}%
+\special{pa 17 -228}\special{pa 25 -225}\special{fp}\special{pa 55 -215}\special{pa 62 -212}\special{fp}%
+\special{pa 93 -202}\special{pa 100 -200}\special{fp}\special{pa 130 -189}\special{pa 138 -187}\special{fp}%
+\special{pa 168 -177}\special{pa 176 -174}\special{fp}\special{pa 206 -164}\special{pa 214 -161}\special{fp}%
+\special{pa 244 -151}\special{pa 251 -148}\special{fp}\special{pa 282 -138}\special{pa 289 -136}\special{fp}%
+\special{pa 319 -125}\special{pa 327 -123}\special{fp}\special{pa 357 -113}\special{pa 365 -110}\special{fp}%
+\special{pa 395 -100}\special{pa 403 -97}\special{fp}\special{pa 433 -87}\special{pa 440 -85}\special{fp}%
+\special{pa 471 -74}\special{pa 478 -72}\special{fp}\special{pa 508 -62}\special{pa 516 -59}\special{fp}%
+\special{pa 546 -49}\special{pa 554 -46}\special{fp}\special{pa 584 -36}\special{pa 592 -34}\special{fp}%
+\special{pa 622 -23}\special{pa 629 -21}\special{fp}\special{pn 8}%
+\special{pa 626 -22}\special{pa 0 577}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -55 -256}\special{pa -54 -248}\special{fp}\special{pa -52 -216}\special{pa -52 -208}\special{fp}%
+\special{pa -50 -177}\special{pa -49 -169}\special{fp}\special{pa -47 -138}\special{pa -47 -130}\special{fp}%
+\special{pa -45 -98}\special{pa -44 -90}\special{fp}\special{pa -42 -59}\special{pa -41 -51}\special{fp}%
+\special{pa -39 -19}\special{pa -39 -11}\special{fp}\special{pa -37 20}\special{pa -36 28}\special{fp}%
+\special{pa -34 60}\special{pa -34 68}\special{fp}\special{pa -32 99}\special{pa -31 107}\special{fp}%
+\special{pa -29 139}\special{pa -28 147}\special{fp}\special{pa -26 178}\special{pa -26 186}\special{fp}%
+\special{pa -24 218}\special{pa -23 226}\special{fp}\special{pa -21 257}\special{pa -21 265}\special{fp}%
+\special{pa -19 296}\special{pa -18 304}\special{fp}\special{pa -16 336}\special{pa -15 344}\special{fp}%
+\special{pa -13 375}\special{pa -13 383}\special{fp}\special{pa -11 415}\special{pa -10 423}\special{fp}%
+\special{pa -8 454}\special{pa -8 462}\special{fp}\special{pa -5 494}\special{pa -5 502}\special{fp}%
+\special{pa -3 533}\special{pa -2 541}\special{fp}\special{pa 0 573}\special{pa 0 581}\special{fp}%
+\special{pn 8}%
+\special{pa -626 22}\special{pa 0 577}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -51 -254}\special{pa -58 -250}\special{fp}\special{pa -87 -237}\special{pa -94 -233}\special{fp}%
+\special{pa -122 -219}\special{pa -130 -216}\special{fp}\special{pa -158 -202}\special{pa -165 -199}\special{fp}%
+\special{pa -194 -185}\special{pa -201 -182}\special{fp}\special{pa -230 -168}\special{pa -237 -165}\special{fp}%
+\special{pa -265 -151}\special{pa -272 -147}\special{fp}\special{pa -301 -134}\special{pa -308 -130}\special{fp}%
+\special{pa -337 -117}\special{pa -344 -113}\special{fp}\special{pa -372 -100}\special{pa -379 -96}\special{fp}%
+\special{pa -408 -82}\special{pa -415 -79}\special{fp}\special{pa -444 -65}\special{pa -451 -62}\special{fp}%
+\special{pa -479 -48}\special{pa -487 -45}\special{fp}\special{pa -515 -31}\special{pa -522 -28}\special{fp}%
+\special{pa -551 -14}\special{pa -558 -10}\special{fp}\special{pa -586 3}\special{pa -594 7}\special{fp}%
+\special{pa -622 20}\special{pa -629 24}\special{fp}\special{pn 8}%
+\special{pa -626 22}\special{pa 0 -577}%
+\special{fp}%
+\special{pn 8}%
+\special{pa -55 -248}\special{pa -54 -256}\special{fp}\special{pa -49 -289}\special{pa -47 -296}\special{fp}%
+\special{pa -42 -329}\special{pa -40 -337}\special{fp}\special{pa -35 -370}\special{pa -34 -378}\special{fp}%
+\special{pa -28 -410}\special{pa -27 -418}\special{fp}\special{pa -21 -451}\special{pa -20 -459}\special{fp}%
+\special{pa -14 -491}\special{pa -13 -499}\special{fp}\special{pa -8 -532}\special{pa -6 -540}\special{fp}%
+\special{pa -1 -573}\special{pa 1 -581}\special{fp}\special{pn 8}%
+\special{pa 626 -22}\special{pa 0 -577}%
+\special{fp}%
+\special{pa 626 -22}\special{pa 55 252}%
+\special{fp}%
+\special{pa 55 252}\special{pa 0 577}%
+\special{fp}%
+\special{pa 55 252}\special{pa 0 -577}%
+\special{fp}%
+\special{pa 55 252}\special{pa -626 22}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d01.tex
new file mode 100644
index 00000000..1ab86842
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d01.tex
@@ -0,0 +1,85 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-15 20:33
+%%% template.sce 2016-8-15 20:33
+{\unitlength=8mm%
+\begin{picture}%
+( 7.77000, 5.78000)( -4.42000, -1.51000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.5455,-0.5866){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.8935,-1.1428){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1055 -175}\special{pa -1058 175}%
+\special{fp}%
+\special{pa -856 -338}\special{pa 856 338}%
+\special{fp}%
+\special{pa 0 476}\special{pa 0 -1218}%
+\special{fp}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{pa -1058 175}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{pa 856 338}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{pa 0 -1218}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pa -342 -135}\special{pa -871 -48}\special{pa -607 -700}\special{pa -342 -135}%
+\special{fp}%
+\special{pa -607 -700}\special{pa -607 -1005}%
+\special{fp}%
+\special{pn 16}%
+\special{pa -529 87}\special{pa -187 223}\special{pa -358 -454}\special{pa -529 87}%
+\special{fp}%
+\special{pa -358 -454}\special{pa -358 -758}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{A}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{-\Height}%
+\put(-1.0867,0.3792){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.8157,0.1514){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{\Depth}%
+\put(-1.8762,2.2739){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(-1.8762,3.2406){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d02.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d02.tex
new file mode 100644
index 00000000..35cbc525
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/rotatedata3d02.tex
@@ -0,0 +1,85 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-15 20:32
+%%% template.sce 2016-8-15 20:32
+{\unitlength=8mm%
+\begin{picture}%
+( 7.77000, 5.78000)( -4.42000, -1.51000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.5455,-0.5866){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.8935,-1.1428){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1055 -175}\special{pa -1058 175}%
+\special{fp}%
+\special{pa -856 -338}\special{pa 856 338}%
+\special{fp}%
+\special{pa 0 476}\special{pa 0 -1218}%
+\special{fp}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{pa -1058 175}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{pa 856 338}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{pa 0 -1218}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pa -342 -135}\special{pa -871 -48}\special{pa -607 -700}\special{pa -342 -135}%
+\special{fp}%
+\special{pa -607 -700}\special{pa -607 -1005}%
+\special{fp}%
+\special{pn 16}%
+\special{pa -964 64}\special{pa -622 199}\special{pa -793 -478}\special{pa -964 64}%
+\special{fp}%
+\special{pa -793 -478}\special{pa -793 -782}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{A}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{A}\settodepth{\Depth}{A}\setlength{\Height}{-\Height}%
+\put(-1.0867,0.3792){\hspace*{\Width}\raisebox{\Height}{A}}%
+%
+%
+\settowidth{\Width}{B}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{B}\settodepth{\Depth}{B}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.8157,0.1514){\hspace*{\Width}\raisebox{\Height}{B}}%
+%
+%
+\settowidth{\Width}{C}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{C}\settodepth{\Depth}{C}\setlength{\Height}{\Depth}%
+\put(-1.8762,2.2739){\hspace*{\Width}\raisebox{\Height}{C}}%
+%
+%
+\settowidth{\Width}{D}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{D}\settodepth{\Depth}{D}\setlength{\Height}{\Depth}%
+\put(-1.8762,3.2406){\hspace*{\Width}\raisebox{\Height}{D}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/saddle1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/saddle1.tex
new file mode 100644
index 00000000..3ff0ce04
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/saddle1.tex
@@ -0,0 +1,326 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-7 16:45
+%%% template.sce 2016-8-7 16:45
+{\unitlength=4mm%
+\begin{picture}%
+( 10.00000, 10.00000)( -5.00000, -5.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.6011,-1.1540){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.4854,-2.2142){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.5961){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 696 -174}\special{pa -696 174}%
+\special{fp}%
+\special{pa -369 -329}\special{pa 369 329}%
+\special{fp}%
+\special{pa 0 694}\special{pa 0 -694}%
+\special{fp}%
+\special{pa 131 -201}\special{pa 107 -107}\special{pa 84 -20}\special{pa 61 59}\special{pa 38 130}%
+\special{pa 15 194}\special{pa -9 250}\special{pa -32 298}\special{pa -55 339}\special{pa -78 371}%
+\special{pa -101 397}\special{pa -124 414}\special{pa -148 424}\special{pa -171 426}%
+\special{pa -194 420}\special{pa -217 406}\special{pa -240 385}\special{pa -264 356}%
+\special{pa -287 320}\special{pa -310 275}\special{pa -333 223}\special{pa -356 164}%
+\special{pa -379 96}\special{pa -403 21}\special{pa -426 -62}%
+\special{fp}%
+\special{pa 145 -294}\special{pa 122 -199}\special{pa 99 -112}\special{pa 76 -33}%
+\special{pa 53 38}\special{pa 29 102}\special{pa 6 158}\special{pa -17 206}\special{pa -40 246}%
+\special{pa -63 279}\special{pa -86 304}\special{pa -110 322}\special{pa -133 331}%
+\special{pa -156 333}\special{pa -179 327}\special{pa -202 314}\special{pa -226 293}%
+\special{pa -249 264}\special{pa -272 227}\special{pa -295 183}\special{pa -318 131}%
+\special{pa -342 71}\special{pa -365 4}\special{pa -388 -71}\special{pa -411 -154}%
+\special{fp}%
+\special{pa 160 -375}\special{pa 137 -280}\special{pa 114 -194}\special{pa 91 -115}%
+\special{pa 67 -43}\special{pa 44 20}\special{pa 21 76}\special{pa -2 125}\special{pa -25 165}%
+\special{pa -49 198}\special{pa -72 223}\special{pa -95 240}\special{pa -118 250}%
+\special{pa -141 252}\special{pa -164 246}\special{pa -188 233}\special{pa -211 212}%
+\special{pa -234 183}\special{pa -257 146}\special{pa -280 102}\special{pa -304 50}%
+\special{pa -327 -10}\special{pa -350 -77}\special{pa -373 -152}\special{pa -396 -235}%
+\special{fp}%
+\special{pa 175 -445}\special{pa 152 -350}\special{pa 129 -264}\special{pa 105 -185}%
+\special{pa 82 -113}\special{pa 59 -50}\special{pa 36 6}\special{pa 13 54}\special{pa -11 95}%
+\special{pa -34 128}\special{pa -57 153}\special{pa -80 170}\special{pa -103 180}%
+\special{pa -127 182}\special{pa -150 176}\special{pa -173 163}\special{pa -196 142}%
+\special{pa -219 113}\special{pa -242 76}\special{pa -266 32}\special{pa -289 -20}%
+\special{pa -312 -80}\special{pa -335 -147}\special{pa -358 -223}\special{pa -382 -305}%
+\special{fp}%
+\special{pa 190 -504}\special{pa 166 -409}\special{pa 143 -323}\special{pa 120 -244}%
+\special{pa 97 -172}\special{pa 74 -109}\special{pa 51 -53}\special{pa 27 -5}\special{pa 4 36}%
+\special{pa -19 69}\special{pa -42 94}\special{pa -65 111}\special{pa -89 121}\special{pa -112 123}%
+\special{pa -135 117}\special{pa -158 104}\special{pa -181 83}\special{pa -205 54}%
+\special{pa -228 17}\special{pa -251 -27}\special{pa -274 -79}\special{pa -297 -139}%
+\special{pa -320 -206}\special{pa -344 -282}\special{pa -367 -364}%
+\special{fp}%
+\special{pa 204 -552}\special{pa 181 -457}\special{pa 158 -371}\special{pa 135 -292}%
+\special{pa 112 -220}\special{pa 88 -157}\special{pa 65 -101}\special{pa 42 -52}\special{pa 19 -12}%
+\special{pa -4 21}\special{pa -27 46}\special{pa -51 63}\special{pa -74 73}\special{pa -97 75}%
+\special{pa -120 69}\special{pa -143 56}\special{pa -167 35}\special{pa -190 6}\special{pa -213 -31}%
+\special{pa -236 -75}\special{pa -259 -127}\special{pa -282 -187}\special{pa -306 -254}%
+\special{pa -329 -329}\special{pa -352 -412}%
+\special{fp}%
+\special{pa 219 -589}\special{pa 196 -494}\special{pa 173 -407}\special{pa 150 -328}%
+\special{pa 126 -257}\special{pa 103 -193}\special{pa 80 -137}\special{pa 57 -89}%
+\special{pa 34 -49}\special{pa 11 -16}\special{pa -13 9}\special{pa -36 27}\special{pa -59 36}%
+\special{pa -82 38}\special{pa -105 32}\special{pa -129 19}\special{pa -152 -2}\special{pa -175 -31}%
+\special{pa -198 -68}\special{pa -221 -112}\special{pa -245 -164}\special{pa -268 -224}%
+\special{pa -291 -291}\special{pa -314 -366}\special{pa -337 -449}%
+\special{fp}%
+\special{pa 234 -614}\special{pa 211 -520}\special{pa 188 -433}\special{pa 164 -354}%
+\special{pa 141 -283}\special{pa 118 -219}\special{pa 95 -163}\special{pa 72 -115}%
+\special{pa 48 -74}\special{pa 25 -42}\special{pa 2 -17}\special{pa -21 1}\special{pa -44 11}%
+\special{pa -67 12}\special{pa -91 7}\special{pa -114 -7}\special{pa -137 -28}\special{pa -160 -57}%
+\special{pa -183 -93}\special{pa -207 -138}\special{pa -230 -190}\special{pa -253 -249}%
+\special{pa -276 -317}\special{pa -299 -392}\special{pa -323 -475}%
+\special{fp}%
+\special{pa 249 -629}\special{pa 226 -535}\special{pa 202 -448}\special{pa 179 -369}%
+\special{pa 156 -297}\special{pa 133 -234}\special{pa 110 -178}\special{pa 86 -130}%
+\special{pa 63 -89}\special{pa 40 -56}\special{pa 17 -31}\special{pa -6 -14}\special{pa -30 -4}%
+\special{pa -53 -2}\special{pa -76 -8}\special{pa -99 -21}\special{pa -122 -43}\special{pa -145 -71}%
+\special{pa -169 -108}\special{pa -192 -152}\special{pa -215 -204}\special{pa -238 -264}%
+\special{pa -261 -331}\special{pa -285 -407}\special{pa -308 -489}%
+\special{fp}%
+\special{pa 263 -632}\special{pa 240 -538}\special{pa 217 -451}\special{pa 194 -372}%
+\special{pa 171 -301}\special{pa 148 -237}\special{pa 124 -181}\special{pa 101 -133}%
+\special{pa 78 -93}\special{pa 55 -60}\special{pa 32 -35}\special{pa 8 -17}\special{pa -15 -8}%
+\special{pa -38 -6}\special{pa -61 -11}\special{pa -84 -25}\special{pa -108 -46}\special{pa -131 -75}%
+\special{pa -154 -111}\special{pa -177 -156}\special{pa -200 -208}\special{pa -223 -268}%
+\special{pa -247 -335}\special{pa -270 -410}\special{pa -293 -493}%
+\special{fp}%
+\special{pa 278 -625}\special{pa 255 -530}\special{pa 232 -444}\special{pa 209 -365}%
+\special{pa 185 -293}\special{pa 162 -230}\special{pa 139 -174}\special{pa 116 -125}%
+\special{pa 93 -85}\special{pa 70 -52}\special{pa 46 -27}\special{pa 23 -10}\special{pa 0 0}%
+\special{pa -23 2}\special{pa -46 -4}\special{pa -70 -17}\special{pa -93 -38}\special{pa -116 -67}%
+\special{pa -139 -104}\special{pa -162 -148}\special{pa -185 -200}\special{pa -209 -260}%
+\special{pa -232 -327}\special{pa -255 -402}\special{pa -278 -485}%
+\special{fp}%
+\special{pa 293 -606}\special{pa 270 -512}\special{pa 247 -425}\special{pa 223 -346}%
+\special{pa 200 -275}\special{pa 177 -211}\special{pa 154 -155}\special{pa 131 -107}%
+\special{pa 108 -66}\special{pa 84 -33}\special{pa 61 -8}\special{pa 38 9}\special{pa 15 19}%
+\special{pa -8 21}\special{pa -32 15}\special{pa -55 1}\special{pa -78 -20}\special{pa -101 -49}%
+\special{pa -124 -85}\special{pa -148 -129}\special{pa -171 -181}\special{pa -194 -241}%
+\special{pa -217 -309}\special{pa -240 -384}\special{pa -263 -467}%
+\special{fp}%
+\special{pa 308 -576}\special{pa 285 -482}\special{pa 261 -395}\special{pa 238 -316}%
+\special{pa 215 -245}\special{pa 192 -181}\special{pa 169 -125}\special{pa 145 -77}%
+\special{pa 122 -36}\special{pa 99 -4}\special{pa 76 21}\special{pa 53 39}\special{pa 30 49}%
+\special{pa 6 50}\special{pa -17 45}\special{pa -40 31}\special{pa -63 10}\special{pa -86 -19}%
+\special{pa -110 -55}\special{pa -133 -100}\special{pa -156 -152}\special{pa -179 -211}%
+\special{pa -202 -279}\special{pa -226 -354}\special{pa -249 -437}%
+\special{fp}%
+\special{pa 323 -535}\special{pa 299 -441}\special{pa 276 -354}\special{pa 253 -275}%
+\special{pa 230 -204}\special{pa 207 -140}\special{pa 183 -84}\special{pa 160 -36}%
+\special{pa 137 4}\special{pa 114 37}\special{pa 91 62}\special{pa 67 80}\special{pa 44 89}%
+\special{pa 21 91}\special{pa -2 86}\special{pa -25 72}\special{pa -48 51}\special{pa -72 22}%
+\special{pa -95 -14}\special{pa -118 -59}\special{pa -141 -111}\special{pa -164 -170}%
+\special{pa -188 -238}\special{pa -211 -313}\special{pa -234 -396}%
+\special{fp}%
+\special{pa 337 -483}\special{pa 314 -389}\special{pa 291 -302}\special{pa 268 -223}%
+\special{pa 245 -152}\special{pa 221 -88}\special{pa 198 -32}\special{pa 175 16}\special{pa 152 56}%
+\special{pa 129 89}\special{pa 105 114}\special{pa 82 132}\special{pa 59 141}\special{pa 36 143}%
+\special{pa 13 138}\special{pa -11 124}\special{pa -34 103}\special{pa -57 74}\special{pa -80 38}%
+\special{pa -103 -7}\special{pa -126 -59}\special{pa -150 -118}\special{pa -173 -186}%
+\special{pa -196 -261}\special{pa -219 -344}%
+\special{fp}%
+\special{pa 352 -420}\special{pa 329 -326}\special{pa 306 -239}\special{pa 282 -160}%
+\special{pa 259 -89}\special{pa 236 -25}\special{pa 213 31}\special{pa 190 79}\special{pa 167 120}%
+\special{pa 143 152}\special{pa 120 177}\special{pa 97 195}\special{pa 74 205}\special{pa 51 206}%
+\special{pa 27 201}\special{pa 4 187}\special{pa -19 166}\special{pa -42 137}\special{pa -65 101}%
+\special{pa -88 56}\special{pa -112 4}\special{pa -135 -55}\special{pa -158 -123}%
+\special{pa -181 -198}\special{pa -204 -281}%
+\special{fp}%
+\special{pa 367 -346}\special{pa 344 -252}\special{pa 320 -165}\special{pa 297 -86}%
+\special{pa 274 -14}\special{pa 251 49}\special{pa 228 105}\special{pa 205 153}\special{pa 181 194}%
+\special{pa 158 227}\special{pa 135 252}\special{pa 112 269}\special{pa 89 279}\special{pa 65 281}%
+\special{pa 42 275}\special{pa 19 261}\special{pa -4 240}\special{pa -27 211}\special{pa -51 175}%
+\special{pa -74 131}\special{pa -97 79}\special{pa -120 19}\special{pa -143 -49}\special{pa -166 -124}%
+\special{pa -190 -207}%
+\special{fp}%
+\special{pa 382 -261}\special{pa 358 -166}\special{pa 335 -80}\special{pa 312 -1}%
+\special{pa 289 71}\special{pa 266 134}\special{pa 242 190}\special{pa 219 239}\special{pa 196 279}%
+\special{pa 173 312}\special{pa 150 337}\special{pa 127 354}\special{pa 103 364}\special{pa 80 366}%
+\special{pa 57 360}\special{pa 34 347}\special{pa 11 326}\special{pa -13 297}\special{pa -36 260}%
+\special{pa -59 216}\special{pa -82 164}\special{pa -105 104}\special{pa -129 37}%
+\special{pa -152 -38}\special{pa -175 -121}%
+\special{fp}%
+\special{pa 396 -164}\special{pa 373 -70}\special{pa 350 17}\special{pa 327 96}\special{pa 304 167}%
+\special{pa 280 231}\special{pa 257 287}\special{pa 234 335}\special{pa 211 376}\special{pa 188 408}%
+\special{pa 164 433}\special{pa 141 451}\special{pa 118 460}\special{pa 95 462}\special{pa 72 457}%
+\special{pa 49 443}\special{pa 25 422}\special{pa 2 393}\special{pa -21 357}\special{pa -44 312}%
+\special{pa -67 260}\special{pa -91 201}\special{pa -114 133}\special{pa -137 58}%
+\special{pa -160 -25}%
+\special{fp}%
+\special{pa 411 -57}\special{pa 388 38}\special{pa 365 124}\special{pa 342 203}\special{pa 318 275}%
+\special{pa 295 338}\special{pa 272 394}\special{pa 249 443}\special{pa 226 483}\special{pa 202 516}%
+\special{pa 179 541}\special{pa 156 558}\special{pa 133 568}\special{pa 110 570}\special{pa 86 564}%
+\special{pa 63 551}\special{pa 40 530}\special{pa 17 501}\special{pa -6 464}\special{pa -29 420}%
+\special{pa -53 368}\special{pa -76 308}\special{pa -99 241}\special{pa -122 166}%
+\special{pa -145 83}%
+\special{fp}%
+\special{pa 426 62}\special{pa 403 156}\special{pa 379 243}\special{pa 356 322}\special{pa 333 393}%
+\special{pa 310 457}\special{pa 287 513}\special{pa 264 561}\special{pa 240 602}\special{pa 217 634}%
+\special{pa 194 660}\special{pa 171 677}\special{pa 148 687}\special{pa 124 689}\special{pa 101 683}%
+\special{pa 78 669}\special{pa 55 648}\special{pa 32 619}\special{pa 9 583}\special{pa -15 538}%
+\special{pa -38 486}\special{pa -61 427}\special{pa -84 359}\special{pa -107 284}%
+\special{pa -131 201}%
+\special{fp}%
+\special{pa 131 -201}\special{pa 143 -279}\special{pa 155 -349}\special{pa 168 -411}%
+\special{pa 180 -466}\special{pa 192 -513}\special{pa 204 -552}\special{pa 217 -583}%
+\special{pa 229 -607}\special{pa 241 -623}\special{pa 254 -631}\special{pa 266 -632}%
+\special{pa 278 -625}\special{pa 291 -610}\special{pa 303 -588}\special{pa 315 -557}%
+\special{pa 327 -519}\special{pa 340 -474}\special{pa 352 -420}\special{pa 364 -359}%
+\special{pa 377 -290}\special{pa 389 -214}\special{pa 401 -130}\special{pa 414 -38}%
+\special{pa 426 62}%
+\special{fp}%
+\special{pa 103 -89}\special{pa 115 -167}\special{pa 127 -237}\special{pa 140 -299}%
+\special{pa 152 -353}\special{pa 164 -400}\special{pa 177 -439}\special{pa 189 -471}%
+\special{pa 201 -495}\special{pa 213 -511}\special{pa 226 -519}\special{pa 238 -520}%
+\special{pa 250 -512}\special{pa 263 -498}\special{pa 275 -475}\special{pa 287 -445}%
+\special{pa 300 -407}\special{pa 312 -361}\special{pa 324 -308}\special{pa 337 -247}%
+\special{pa 349 -178}\special{pa 361 -102}\special{pa 373 -17}\special{pa 386 75}%
+\special{pa 398 174}%
+\special{fp}%
+\special{pa 75 12}\special{pa 87 -65}\special{pa 100 -135}\special{pa 112 -197}\special{pa 124 -252}%
+\special{pa 136 -299}\special{pa 149 -338}\special{pa 161 -370}\special{pa 173 -393}%
+\special{pa 186 -409}\special{pa 198 -418}\special{pa 210 -418}\special{pa 223 -411}%
+\special{pa 235 -396}\special{pa 247 -374}\special{pa 259 -344}\special{pa 272 -306}%
+\special{pa 284 -260}\special{pa 296 -207}\special{pa 309 -145}\special{pa 321 -77}%
+\special{pa 333 0}\special{pa 346 84}\special{pa 358 176}\special{pa 370 276}%
+\special{fp}%
+\special{pa 47 103}\special{pa 59 25}\special{pa 72 -45}\special{pa 84 -107}\special{pa 96 -162}%
+\special{pa 109 -209}\special{pa 121 -248}\special{pa 133 -279}\special{pa 146 -303}%
+\special{pa 158 -319}\special{pa 170 -327}\special{pa 182 -328}\special{pa 195 -321}%
+\special{pa 207 -306}\special{pa 219 -284}\special{pa 232 -253}\special{pa 244 -215}%
+\special{pa 256 -170}\special{pa 269 -116}\special{pa 281 -55}\special{pa 293 14}%
+\special{pa 305 90}\special{pa 318 174}\special{pa 330 266}\special{pa 342 366}%
+\special{fp}%
+\special{pa 19 182}\special{pa 32 104}\special{pa 44 34}\special{pa 56 -28}\special{pa 69 -83}%
+\special{pa 81 -130}\special{pa 93 -169}\special{pa 105 -200}\special{pa 118 -224}%
+\special{pa 130 -240}\special{pa 142 -248}\special{pa 155 -249}\special{pa 167 -242}%
+\special{pa 179 -227}\special{pa 192 -204}\special{pa 204 -174}\special{pa 216 -136}%
+\special{pa 228 -91}\special{pa 241 -37}\special{pa 253 24}\special{pa 265 93}\special{pa 278 169}%
+\special{pa 290 253}\special{pa 302 345}\special{pa 315 445}%
+\special{fp}%
+\special{pa -9 250}\special{pa 4 172}\special{pa 16 102}\special{pa 28 40}\special{pa 41 -15}%
+\special{pa 53 -61}\special{pa 65 -101}\special{pa 78 -132}\special{pa 90 -156}\special{pa 102 -172}%
+\special{pa 115 -180}\special{pa 127 -181}\special{pa 139 -174}\special{pa 151 -159}%
+\special{pa 164 -136}\special{pa 176 -106}\special{pa 188 -68}\special{pa 201 -22}%
+\special{pa 213 31}\special{pa 225 92}\special{pa 238 161}\special{pa 250 237}\special{pa 262 321}%
+\special{pa 274 413}\special{pa 287 513}%
+\special{fp}%
+\special{pa -36 307}\special{pa -24 229}\special{pa -12 159}\special{pa 1 97}\special{pa 13 42}%
+\special{pa 25 -5}\special{pa 37 -44}\special{pa 50 -75}\special{pa 62 -99}\special{pa 74 -115}%
+\special{pa 87 -123}\special{pa 99 -124}\special{pa 111 -117}\special{pa 124 -102}%
+\special{pa 136 -79}\special{pa 148 -49}\special{pa 160 -11}\special{pa 173 34}\special{pa 185 88}%
+\special{pa 197 149}\special{pa 210 218}\special{pa 222 294}\special{pa 234 378}\special{pa 247 470}%
+\special{pa 259 570}%
+\special{fp}%
+\special{pa -64 353}\special{pa -52 275}\special{pa -40 205}\special{pa -27 143}\special{pa -15 88}%
+\special{pa -3 41}\special{pa 10 2}\special{pa 22 -29}\special{pa 34 -53}\special{pa 47 -69}%
+\special{pa 59 -77}\special{pa 71 -78}\special{pa 83 -71}\special{pa 96 -56}\special{pa 108 -34}%
+\special{pa 120 -3}\special{pa 133 35}\special{pa 145 80}\special{pa 157 134}\special{pa 170 195}%
+\special{pa 182 263}\special{pa 194 340}\special{pa 206 424}\special{pa 219 516}\special{pa 231 616}%
+\special{fp}%
+\special{pa -92 387}\special{pa -80 310}\special{pa -67 240}\special{pa -55 177}\special{pa -43 123}%
+\special{pa -30 76}\special{pa -18 37}\special{pa -6 5}\special{pa 6 -18}\special{pa 19 -34}%
+\special{pa 31 -43}\special{pa 43 -43}\special{pa 56 -36}\special{pa 68 -21}\special{pa 80 1}%
+\special{pa 93 31}\special{pa 105 69}\special{pa 117 115}\special{pa 129 168}\special{pa 142 229}%
+\special{pa 154 298}\special{pa 166 375}\special{pa 179 459}\special{pa 191 551}\special{pa 203 650}%
+\special{fp}%
+\special{pa -120 411}\special{pa -108 333}\special{pa -95 263}\special{pa -83 201}%
+\special{pa -71 147}\special{pa -58 100}\special{pa -46 60}\special{pa -34 29}\special{pa -21 5}%
+\special{pa -9 -11}\special{pa 3 -19}\special{pa 16 -20}\special{pa 28 -13}\special{pa 40 2}%
+\special{pa 52 25}\special{pa 65 55}\special{pa 77 93}\special{pa 89 139}\special{pa 102 192}%
+\special{pa 114 253}\special{pa 126 322}\special{pa 139 398}\special{pa 151 483}\special{pa 163 574}%
+\special{pa 175 674}%
+\special{fp}%
+\special{pa -148 424}\special{pa -135 346}\special{pa -123 276}\special{pa -111 214}%
+\special{pa -98 159}\special{pa -86 112}\special{pa -74 73}\special{pa -62 42}\special{pa -49 18}%
+\special{pa -37 2}\special{pa -25 -6}\special{pa -12 -7}\special{pa 0 0}\special{pa 12 15}%
+\special{pa 25 37}\special{pa 37 68}\special{pa 49 106}\special{pa 62 151}\special{pa 74 205}%
+\special{pa 86 266}\special{pa 98 334}\special{pa 111 411}\special{pa 123 495}\special{pa 135 587}%
+\special{pa 148 687}%
+\special{fp}%
+\special{pa -175 425}\special{pa -163 347}\special{pa -151 277}\special{pa -139 215}%
+\special{pa -126 160}\special{pa -114 114}\special{pa -102 74}\special{pa -89 43}%
+\special{pa -77 19}\special{pa -65 3}\special{pa -52 -5}\special{pa -40 -6}\special{pa -28 1}%
+\special{pa -16 16}\special{pa -3 39}\special{pa 9 69}\special{pa 21 107}\special{pa 34 153}%
+\special{pa 46 206}\special{pa 58 267}\special{pa 71 336}\special{pa 83 412}\special{pa 95 497}%
+\special{pa 108 588}\special{pa 120 688}%
+\special{fp}%
+\special{pa -203 415}\special{pa -191 338}\special{pa -179 268}\special{pa -166 205}%
+\special{pa -154 151}\special{pa -142 104}\special{pa -129 65}\special{pa -117 33}%
+\special{pa -105 10}\special{pa -93 -6}\special{pa -80 -15}\special{pa -68 -15}\special{pa -56 -8}%
+\special{pa -43 7}\special{pa -31 29}\special{pa -19 59}\special{pa -6 97}\special{pa 6 143}%
+\special{pa 18 196}\special{pa 30 257}\special{pa 43 326}\special{pa 55 403}\special{pa 67 487}%
+\special{pa 80 579}\special{pa 92 678}%
+\special{fp}%
+\special{pa -231 395}\special{pa -219 317}\special{pa -206 247}\special{pa -194 185}%
+\special{pa -182 130}\special{pa -170 83}\special{pa -157 44}\special{pa -145 13}%
+\special{pa -133 -11}\special{pa -120 -27}\special{pa -108 -36}\special{pa -96 -36}%
+\special{pa -83 -29}\special{pa -71 -14}\special{pa -59 8}\special{pa -47 39}\special{pa -34 76}%
+\special{pa -22 122}\special{pa -10 176}\special{pa 3 237}\special{pa 15 305}\special{pa 27 382}%
+\special{pa 40 466}\special{pa 52 558}\special{pa 64 658}%
+\special{fp}%
+\special{pa -259 363}\special{pa -247 285}\special{pa -234 215}\special{pa -222 153}%
+\special{pa -210 98}\special{pa -197 51}\special{pa -185 12}\special{pa -173 -19}%
+\special{pa -160 -43}\special{pa -148 -59}\special{pa -136 -67}\special{pa -124 -68}%
+\special{pa -111 -61}\special{pa -99 -46}\special{pa -87 -24}\special{pa -74 7}\special{pa -62 45}%
+\special{pa -50 90}\special{pa -37 144}\special{pa -25 205}\special{pa -13 273}\special{pa -1 350}%
+\special{pa 12 434}\special{pa 24 526}\special{pa 36 626}%
+\special{fp}%
+\special{pa -287 320}\special{pa -274 242}\special{pa -262 172}\special{pa -250 110}%
+\special{pa -238 55}\special{pa -225 8}\special{pa -213 -31}\special{pa -201 -62}%
+\special{pa -188 -86}\special{pa -176 -102}\special{pa -164 -110}\special{pa -151 -111}%
+\special{pa -139 -104}\special{pa -127 -89}\special{pa -115 -67}\special{pa -102 -36}%
+\special{pa -90 2}\special{pa -78 47}\special{pa -65 101}\special{pa -53 162}\special{pa -41 231}%
+\special{pa -28 307}\special{pa -16 391}\special{pa -4 483}\special{pa 9 583}%
+\special{fp}%
+\special{pa -315 266}\special{pa -302 188}\special{pa -290 118}\special{pa -278 56}%
+\special{pa -265 1}\special{pa -253 -46}\special{pa -241 -85}\special{pa -228 -116}%
+\special{pa -216 -140}\special{pa -204 -156}\special{pa -192 -164}\special{pa -179 -165}%
+\special{pa -167 -158}\special{pa -155 -143}\special{pa -142 -121}\special{pa -130 -90}%
+\special{pa -118 -52}\special{pa -105 -7}\special{pa -93 47}\special{pa -81 108}\special{pa -69 176}%
+\special{pa -56 253}\special{pa -44 337}\special{pa -32 429}\special{pa -19 529}%
+\special{fp}%
+\special{pa -342 200}\special{pa -330 123}\special{pa -318 53}\special{pa -305 -10}%
+\special{pa -293 -64}\special{pa -281 -111}\special{pa -269 -150}\special{pa -256 -182}%
+\special{pa -244 -205}\special{pa -232 -221}\special{pa -219 -230}\special{pa -207 -230}%
+\special{pa -195 -223}\special{pa -182 -208}\special{pa -170 -186}\special{pa -158 -156}%
+\special{pa -146 -118}\special{pa -133 -72}\special{pa -121 -19}\special{pa -109 42}%
+\special{pa -96 111}\special{pa -84 188}\special{pa -72 272}\special{pa -59 364}\special{pa -47 463}%
+\special{fp}%
+\special{pa -370 124}\special{pa -358 46}\special{pa -346 -24}\special{pa -333 -86}%
+\special{pa -321 -140}\special{pa -309 -187}\special{pa -296 -226}\special{pa -284 -258}%
+\special{pa -272 -282}\special{pa -259 -298}\special{pa -247 -306}\special{pa -235 -307}%
+\special{pa -223 -299}\special{pa -210 -285}\special{pa -198 -262}\special{pa -186 -232}%
+\special{pa -173 -194}\special{pa -161 -148}\special{pa -149 -95}\special{pa -136 -34}%
+\special{pa -124 35}\special{pa -112 111}\special{pa -100 196}\special{pa -87 288}%
+\special{pa -75 387}%
+\special{fp}%
+\special{pa -398 37}\special{pa -386 -41}\special{pa -373 -111}\special{pa -361 -173}%
+\special{pa -349 -228}\special{pa -337 -275}\special{pa -324 -314}\special{pa -312 -345}%
+\special{pa -300 -369}\special{pa -287 -385}\special{pa -275 -393}\special{pa -263 -394}%
+\special{pa -250 -387}\special{pa -238 -372}\special{pa -226 -349}\special{pa -213 -319}%
+\special{pa -201 -281}\special{pa -189 -236}\special{pa -177 -182}\special{pa -164 -121}%
+\special{pa -152 -52}\special{pa -140 24}\special{pa -127 108}\special{pa -115 200}%
+\special{pa -103 300}%
+\special{fp}%
+\special{pa -426 -62}\special{pa -414 -139}\special{pa -401 -209}\special{pa -389 -272}%
+\special{pa -377 -326}\special{pa -364 -373}\special{pa -352 -412}\special{pa -340 -444}%
+\special{pa -327 -467}\special{pa -315 -484}\special{pa -303 -492}\special{pa -291 -492}%
+\special{pa -278 -485}\special{pa -266 -471}\special{pa -254 -448}\special{pa -241 -418}%
+\special{pa -229 -380}\special{pa -217 -334}\special{pa -204 -281}\special{pa -192 -220}%
+\special{pa -180 -151}\special{pa -168 -74}\special{pa -155 10}\special{pa -143 102}%
+\special{pa -131 201}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata3.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata3.tex
new file mode 100644
index 00000000..a2585b31
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata3.tex
@@ -0,0 +1,312 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-7 19:12
+%%% template.sce 2016-8-7 19:12
+{\unitlength=6mm%
+\begin{picture}%
+( 10.01000, 7.51000)( -5.01000, -2.51000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.6011,-1.1540){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.4854,-2.2142){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.5961){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1043 -262}\special{pa -1043 262}%
+\special{fp}%
+\special{pa -554 -493}\special{pa 554 493}%
+\special{fp}%
+\special{pa 0 593}\special{pa 0 -1041}%
+\special{fp}%
+\special{pa 0 0}\special{pa -26 -19}\special{pa -52 -38}\special{pa -78 -57}\special{pa -104 -74}%
+\special{pa -130 -89}\special{pa -156 -103}\special{pa -183 -114}\special{pa -209 -123}%
+\special{pa -235 -129}\special{pa -261 -132}\special{pa -287 -132}\special{pa -313 -129}%
+\special{pa -339 -123}\special{pa -365 -113}\special{pa -391 -100}\special{pa -417 -85}%
+\special{pa -443 -66}\special{pa -469 -44}\special{pa -496 -20}\special{pa -522 6}%
+\special{pa -548 35}\special{pa -574 64}\special{pa -600 96}\special{pa -626 128}%
+\special{fp}%
+\special{pa 0 0}\special{pa -21 -16}\special{pa -41 -31}\special{pa -62 -46}\special{pa -82 -60}%
+\special{pa -103 -72}\special{pa -123 -82}\special{pa -144 -90}\special{pa -164 -95}%
+\special{pa -185 -98}\special{pa -205 -97}\special{pa -226 -94}\special{pa -246 -87}%
+\special{pa -267 -77}\special{pa -287 -64}\special{pa -308 -48}\special{pa -328 -29}%
+\special{pa -349 -6}\special{pa -370 19}\special{pa -390 46}\special{pa -411 76}\special{pa -431 108}%
+\special{pa -452 141}\special{pa -472 176}\special{pa -493 211}%
+\special{fp}%
+\special{pa 0 0}\special{pa -13 -13}\special{pa -26 -26}\special{pa -39 -39}\special{pa -52 -50}%
+\special{pa -65 -59}\special{pa -78 -67}\special{pa -91 -72}\special{pa -104 -75}%
+\special{pa -117 -75}\special{pa -130 -72}\special{pa -143 -66}\special{pa -156 -57}%
+\special{pa -169 -45}\special{pa -182 -29}\special{pa -195 -11}\special{pa -207 11}%
+\special{pa -220 36}\special{pa -233 64}\special{pa -246 94}\special{pa -259 126}%
+\special{pa -272 161}\special{pa -285 196}\special{pa -298 234}\special{pa -311 272}%
+\special{fp}%
+\special{pa 0 0}\special{pa -4 -12}\special{pa -8 -24}\special{pa -12 -35}\special{pa -17 -45}%
+\special{pa -21 -53}\special{pa -25 -59}\special{pa -29 -63}\special{pa -33 -65}\special{pa -37 -63}%
+\special{pa -41 -59}\special{pa -45 -52}\special{pa -50 -42}\special{pa -54 -28}\special{pa -58 -11}%
+\special{pa -62 9}\special{pa -66 32}\special{pa -70 58}\special{pa -74 87}\special{pa -79 118}%
+\special{pa -83 152}\special{pa -87 187}\special{pa -91 225}\special{pa -95 263}\special{pa -99 302}%
+\special{fp}%
+\special{pa 0 0}\special{pa 5 -12}\special{pa 10 -24}\special{pa 15 -35}\special{pa 20 -45}%
+\special{pa 26 -53}\special{pa 31 -59}\special{pa 36 -64}\special{pa 41 -65}\special{pa 46 -64}%
+\special{pa 51 -60}\special{pa 56 -53}\special{pa 61 -43}\special{pa 66 -29}\special{pa 71 -12}%
+\special{pa 77 8}\special{pa 82 31}\special{pa 87 57}\special{pa 92 85}\special{pa 97 117}%
+\special{pa 102 150}\special{pa 107 186}\special{pa 112 223}\special{pa 117 261}\special{pa 122 301}%
+\special{fp}%
+\special{pa 0 0}\special{pa 14 -14}\special{pa 28 -27}\special{pa 42 -39}\special{pa 55 -50}%
+\special{pa 69 -60}\special{pa 83 -68}\special{pa 97 -73}\special{pa 111 -77}\special{pa 125 -77}%
+\special{pa 138 -74}\special{pa 152 -69}\special{pa 166 -60}\special{pa 180 -48}\special{pa 194 -32}%
+\special{pa 208 -14}\special{pa 221 8}\special{pa 235 33}\special{pa 249 60}\special{pa 263 90}%
+\special{pa 277 122}\special{pa 291 156}\special{pa 304 192}\special{pa 318 229}\special{pa 332 267}%
+\special{fp}%
+\special{pa 0 0}\special{pa 21 -16}\special{pa 42 -32}\special{pa 64 -47}\special{pa 85 -61}%
+\special{pa 106 -73}\special{pa 127 -84}\special{pa 149 -92}\special{pa 170 -98}\special{pa 191 -100}%
+\special{pa 212 -101}\special{pa 233 -97}\special{pa 255 -91}\special{pa 276 -82}%
+\special{pa 297 -69}\special{pa 318 -53}\special{pa 340 -34}\special{pa 361 -12}\special{pa 382 13}%
+\special{pa 403 40}\special{pa 424 70}\special{pa 446 101}\special{pa 467 134}\special{pa 488 168}%
+\special{pa 509 204}%
+\special{fp}%
+\special{pa 0 0}\special{pa 27 -20}\special{pa 53 -39}\special{pa 80 -58}\special{pa 106 -75}%
+\special{pa 133 -91}\special{pa 159 -105}\special{pa 186 -117}\special{pa 212 -126}%
+\special{pa 239 -133}\special{pa 265 -136}\special{pa 292 -137}\special{pa 318 -134}%
+\special{pa 345 -128}\special{pa 371 -119}\special{pa 398 -107}\special{pa 424 -91}%
+\special{pa 451 -73}\special{pa 478 -52}\special{pa 504 -28}\special{pa 531 -2}\special{pa 557 26}%
+\special{pa 584 55}\special{pa 610 86}\special{pa 637 118}%
+\special{fp}%
+\special{pa 0 0}\special{pa 29 -24}\special{pa 58 -48}\special{pa 88 -70}\special{pa 117 -92}%
+\special{pa 146 -112}\special{pa 175 -130}\special{pa 205 -146}\special{pa 234 -160}%
+\special{pa 263 -170}\special{pa 292 -178}\special{pa 322 -183}\special{pa 351 -184}%
+\special{pa 380 -182}\special{pa 409 -177}\special{pa 439 -169}\special{pa 468 -158}%
+\special{pa 497 -144}\special{pa 526 -127}\special{pa 555 -107}\special{pa 585 -85}%
+\special{pa 614 -62}\special{pa 643 -36}\special{pa 672 -10}\special{pa 702 18}%
+\special{fp}%
+\special{pa 0 0}\special{pa 29 -28}\special{pa 58 -56}\special{pa 87 -83}\special{pa 116 -109}%
+\special{pa 145 -134}\special{pa 175 -156}\special{pa 204 -177}\special{pa 233 -194}%
+\special{pa 262 -210}\special{pa 291 -222}\special{pa 320 -231}\special{pa 349 -237}%
+\special{pa 378 -239}\special{pa 407 -239}\special{pa 436 -235}\special{pa 465 -228}%
+\special{pa 494 -218}\special{pa 524 -205}\special{pa 553 -190}\special{pa 582 -173}%
+\special{pa 611 -153}\special{pa 640 -133}\special{pa 669 -110}\special{pa 698 -87}%
+\special{fp}%
+\special{pa 0 0}\special{pa 26 -32}\special{pa 52 -65}\special{pa 78 -96}\special{pa 104 -126}%
+\special{pa 130 -155}\special{pa 156 -181}\special{pa 183 -206}\special{pa 209 -227}%
+\special{pa 235 -247}\special{pa 261 -263}\special{pa 287 -276}\special{pa 313 -286}%
+\special{pa 339 -293}\special{pa 365 -296}\special{pa 391 -297}\special{pa 417 -294}%
+\special{pa 443 -288}\special{pa 469 -280}\special{pa 496 -269}\special{pa 522 -255}%
+\special{pa 548 -240}\special{pa 574 -223}\special{pa 600 -205}\special{pa 626 -186}%
+\special{fp}%
+\special{pa 0 0}\special{pa 21 -36}\special{pa 41 -72}\special{pa 62 -106}\special{pa 82 -140}%
+\special{pa 103 -172}\special{pa 123 -202}\special{pa 144 -230}\special{pa 164 -255}%
+\special{pa 185 -278}\special{pa 205 -298}\special{pa 226 -315}\special{pa 246 -328}%
+\special{pa 267 -338}\special{pa 287 -345}\special{pa 308 -349}\special{pa 328 -350}%
+\special{pa 349 -348}\special{pa 370 -343}\special{pa 390 -335}\special{pa 411 -325}%
+\special{pa 431 -313}\special{pa 452 -300}\special{pa 472 -286}\special{pa 493 -270}%
+\special{fp}%
+\special{pa 0 0}\special{pa 13 -38}\special{pa 26 -77}\special{pa 39 -114}\special{pa 52 -150}%
+\special{pa 65 -184}\special{pa 78 -217}\special{pa 91 -248}\special{pa 104 -275}%
+\special{pa 117 -301}\special{pa 130 -323}\special{pa 143 -342}\special{pa 156 -358}%
+\special{pa 169 -371}\special{pa 182 -380}\special{pa 195 -387}\special{pa 207 -390}%
+\special{pa 220 -390}\special{pa 233 -388}\special{pa 246 -383}\special{pa 259 -375}%
+\special{pa 272 -366}\special{pa 285 -355}\special{pa 298 -343}\special{pa 311 -330}%
+\special{fp}%
+\special{pa 0 0}\special{pa 4 -40}\special{pa 8 -79}\special{pa 12 -118}\special{pa 17 -155}%
+\special{pa 21 -191}\special{pa 25 -225}\special{pa 29 -257}\special{pa 33 -286}\special{pa 37 -312}%
+\special{pa 41 -336}\special{pa 45 -356}\special{pa 50 -373}\special{pa 54 -388}\special{pa 58 -398}%
+\special{pa 62 -406}\special{pa 66 -410}\special{pa 70 -412}\special{pa 74 -411}\special{pa 79 -407}%
+\special{pa 83 -401}\special{pa 87 -393}\special{pa 91 -383}\special{pa 95 -373}\special{pa 99 -361}%
+\special{fp}%
+\special{pa 0 0}\special{pa -5 -40}\special{pa -10 -79}\special{pa -15 -117}\special{pa -20 -155}%
+\special{pa -26 -191}\special{pa -31 -224}\special{pa -36 -256}\special{pa -41 -285}%
+\special{pa -46 -312}\special{pa -51 -335}\special{pa -56 -355}\special{pa -61 -373}%
+\special{pa -66 -387}\special{pa -71 -397}\special{pa -77 -405}\special{pa -82 -409}%
+\special{pa -87 -411}\special{pa -92 -409}\special{pa -97 -406}\special{pa -102 -400}%
+\special{pa -107 -392}\special{pa -112 -382}\special{pa -117 -371}\special{pa -122 -359}%
+\special{fp}%
+\special{pa 0 0}\special{pa -14 -38}\special{pa -28 -76}\special{pa -42 -113}\special{pa -55 -149}%
+\special{pa -69 -183}\special{pa -83 -216}\special{pa -97 -246}\special{pa -111 -274}%
+\special{pa -125 -299}\special{pa -138 -321}\special{pa -152 -340}\special{pa -166 -356}%
+\special{pa -180 -368}\special{pa -194 -377}\special{pa -208 -384}\special{pa -221 -387}%
+\special{pa -235 -387}\special{pa -249 -384}\special{pa -263 -379}\special{pa -277 -371}%
+\special{pa -291 -362}\special{pa -304 -351}\special{pa -318 -338}\special{pa -332 -325}%
+\special{fp}%
+\special{pa 0 0}\special{pa -21 -36}\special{pa -42 -71}\special{pa -64 -105}\special{pa -85 -139}%
+\special{pa -106 -170}\special{pa -127 -200}\special{pa -149 -228}\special{pa -170 -253}%
+\special{pa -191 -275}\special{pa -212 -295}\special{pa -233 -311}\special{pa -255 -324}%
+\special{pa -276 -334}\special{pa -297 -341}\special{pa -318 -344}\special{pa -340 -345}%
+\special{pa -361 -342}\special{pa -382 -337}\special{pa -403 -329}\special{pa -424 -319}%
+\special{pa -446 -307}\special{pa -467 -293}\special{pa -488 -278}\special{pa -509 -262}%
+\special{fp}%
+\special{pa 0 0}\special{pa -27 -32}\special{pa -53 -64}\special{pa -80 -95}\special{pa -106 -124}%
+\special{pa -133 -152}\special{pa -159 -179}\special{pa -186 -203}\special{pa -212 -224}%
+\special{pa -239 -243}\special{pa -265 -259}\special{pa -292 -272}\special{pa -318 -281}%
+\special{pa -345 -288}\special{pa -371 -291}\special{pa -398 -291}\special{pa -424 -287}%
+\special{pa -451 -281}\special{pa -478 -272}\special{pa -504 -261}\special{pa -531 -247}%
+\special{pa -557 -232}\special{pa -584 -214}\special{pa -610 -196}\special{pa -637 -176}%
+\special{fp}%
+\special{pa 0 0}\special{pa -29 -28}\special{pa -58 -55}\special{pa -88 -82}\special{pa -117 -108}%
+\special{pa -146 -132}\special{pa -175 -154}\special{pa -205 -173}\special{pa -234 -191}%
+\special{pa -263 -205}\special{pa -292 -217}\special{pa -322 -226}\special{pa -351 -231}%
+\special{pa -380 -233}\special{pa -409 -232}\special{pa -439 -228}\special{pa -468 -221}%
+\special{pa -497 -210}\special{pa -526 -197}\special{pa -555 -182}\special{pa -585 -164}%
+\special{pa -614 -144}\special{pa -643 -122}\special{pa -672 -100}\special{pa -702 -76}%
+\special{fp}%
+\special{pa 0 0}\special{pa -29 -24}\special{pa -58 -47}\special{pa -87 -69}\special{pa -116 -90}%
+\special{pa -145 -110}\special{pa -175 -127}\special{pa -204 -143}\special{pa -233 -156}%
+\special{pa -262 -166}\special{pa -291 -173}\special{pa -320 -178}\special{pa -349 -179}%
+\special{pa -378 -177}\special{pa -407 -171}\special{pa -436 -162}\special{pa -465 -151}%
+\special{pa -494 -136}\special{pa -524 -119}\special{pa -553 -99}\special{pa -582 -76}%
+\special{pa -611 -52}\special{pa -640 -26}\special{pa -669 1}\special{pa -698 29}%
+\special{fp}%
+\special{pa 0 0}\special{pa -26 -19}\special{pa -52 -38}\special{pa -78 -57}\special{pa -104 -74}%
+\special{pa -130 -89}\special{pa -156 -103}\special{pa -183 -114}\special{pa -209 -123}%
+\special{pa -235 -129}\special{pa -261 -132}\special{pa -287 -132}\special{pa -313 -129}%
+\special{pa -339 -123}\special{pa -365 -113}\special{pa -391 -100}\special{pa -417 -85}%
+\special{pa -443 -66}\special{pa -469 -44}\special{pa -496 -20}\special{pa -522 6}%
+\special{pa -548 35}\special{pa -574 64}\special{pa -600 96}\special{pa -626 128}%
+\special{fp}%
+\special{pa 3 -3}\special{pa -3 -3}\special{pa -3 3}\special{pa 3 3}\special{pa 3 -3}%
+\special{sh 1}\special{fp}%
+\special{pa -31 -23}\special{pa -26 -20}\special{pa -19 -17}\special{pa -10 -15}\special{pa -1 -14}%
+\special{pa 8 -15}\special{pa 17 -16}\special{pa 24 -19}\special{pa 30 -22}\special{pa 34 -26}%
+\special{pa 35 -31}\special{pa 35 -35}\special{pa 31 -39}\special{pa 26 -43}\special{pa 19 -45}%
+\special{pa 10 -47}\special{pa 1 -48}\special{pa -8 -47}\special{pa -17 -46}\special{pa -24 -43}%
+\special{pa -30 -40}\special{pa -34 -36}\special{pa -35 -32}\special{pa -35 -27}\special{pa -31 -23}%
+\special{fp}%
+\special{pa -63 -46}\special{pa -52 -39}\special{pa -38 -33}\special{pa -21 -29}\special{pa -3 -28}%
+\special{pa 16 -29}\special{pa 33 -32}\special{pa 48 -37}\special{pa 60 -44}\special{pa 68 -52}%
+\special{pa 71 -60}\special{pa 69 -69}\special{pa 63 -77}\special{pa 52 -84}\special{pa 38 -90}%
+\special{pa 21 -94}\special{pa 3 -95}\special{pa -16 -94}\special{pa -33 -91}\special{pa -48 -86}%
+\special{pa -60 -79}\special{pa -68 -71}\special{pa -71 -63}\special{pa -69 -54}\special{pa -63 -46}%
+\special{fp}%
+\special{pa -94 -67}\special{pa -78 -56}\special{pa -56 -48}\special{pa -31 -43}\special{pa -4 -40}%
+\special{pa 24 -42}\special{pa 50 -46}\special{pa 72 -54}\special{pa 90 -64}\special{pa 102 -76}%
+\special{pa 106 -89}\special{pa 104 -102}\special{pa 94 -114}\special{pa 78 -125}%
+\special{pa 56 -133}\special{pa 31 -139}\special{pa 4 -141}\special{pa -24 -140}\special{pa -50 -135}%
+\special{pa -72 -127}\special{pa -90 -117}\special{pa -102 -105}\special{pa -106 -92}%
+\special{pa -104 -79}\special{pa -94 -67}%
+\special{fp}%
+\special{pa -125 -86}\special{pa -104 -72}\special{pa -75 -61}\special{pa -42 -53}%
+\special{pa -5 -51}\special{pa 32 -52}\special{pa 66 -58}\special{pa 97 -69}\special{pa 120 -82}%
+\special{pa 136 -98}\special{pa 142 -115}\special{pa 138 -133}\special{pa 125 -149}%
+\special{pa 104 -163}\special{pa 75 -174}\special{pa 42 -182}\special{pa 5 -184}\special{pa -32 -183}%
+\special{pa -66 -177}\special{pa -97 -167}\special{pa -120 -153}\special{pa -136 -137}%
+\special{pa -142 -120}\special{pa -138 -103}\special{pa -125 -86}%
+\special{fp}%
+\special{pa -156 -103}\special{pa -130 -85}\special{pa -94 -71}\special{pa -52 -62}%
+\special{pa -6 -58}\special{pa 40 -60}\special{pa 83 -68}\special{pa 121 -81}\special{pa 150 -97}%
+\special{pa 169 -117}\special{pa 177 -139}\special{pa 173 -161}\special{pa 156 -181}%
+\special{pa 130 -199}\special{pa 94 -213}\special{pa 52 -222}\special{pa 6 -226}\special{pa -40 -224}%
+\special{pa -83 -216}\special{pa -121 -203}\special{pa -150 -186}\special{pa -169 -166}%
+\special{pa -177 -145}\special{pa -173 -123}\special{pa -156 -103}%
+\special{fp}%
+\special{pa -188 -116}\special{pa -156 -95}\special{pa -113 -78}\special{pa -62 -67}%
+\special{pa -8 -63}\special{pa 48 -65}\special{pa 100 -74}\special{pa 145 -90}\special{pa 180 -110}%
+\special{pa 203 -134}\special{pa 212 -159}\special{pa 207 -186}\special{pa 188 -210}%
+\special{pa 156 -232}\special{pa 113 -248}\special{pa 62 -259}\special{pa 8 -263}%
+\special{pa -48 -261}\special{pa -100 -252}\special{pa -145 -237}\special{pa -180 -216}%
+\special{pa -203 -193}\special{pa -212 -167}\special{pa -207 -141}\special{pa -188 -116}%
+\special{fp}%
+\special{pa -219 -126}\special{pa -182 -101}\special{pa -132 -81}\special{pa -73 -68}%
+\special{pa -9 -63}\special{pa 56 -66}\special{pa 116 -77}\special{pa 169 -95}\special{pa 210 -118}%
+\special{pa 237 -146}\special{pa 248 -176}\special{pa 242 -207}\special{pa 219 -236}%
+\special{pa 182 -260}\special{pa 132 -280}\special{pa 73 -293}\special{pa 9 -298}%
+\special{pa -56 -295}\special{pa -116 -284}\special{pa -169 -266}\special{pa -210 -243}%
+\special{pa -237 -215}\special{pa -248 -185}\special{pa -242 -154}\special{pa -219 -126}%
+\special{fp}%
+\special{pa -250 -131}\special{pa -207 -103}\special{pa -150 -80}\special{pa -83 -66}%
+\special{pa -10 -60}\special{pa 64 -63}\special{pa 133 -76}\special{pa 193 -96}\special{pa 240 -123}%
+\special{pa 271 -155}\special{pa 283 -189}\special{pa 276 -224}\special{pa 250 -257}%
+\special{pa 207 -285}\special{pa 150 -308}\special{pa 83 -322}\special{pa 10 -328}%
+\special{pa -64 -325}\special{pa -133 -312}\special{pa -193 -292}\special{pa -240 -265}%
+\special{pa -271 -233}\special{pa -283 -199}\special{pa -276 -164}\special{pa -250 -131}%
+\special{fp}%
+\special{pa -282 -132}\special{pa -233 -100}\special{pa -169 -75}\special{pa -94 -59}%
+\special{pa -11 -52}\special{pa 71 -56}\special{pa 149 -70}\special{pa 217 -93}\special{pa 270 -123}%
+\special{pa 305 -159}\special{pa 319 -198}\special{pa 311 -237}\special{pa 282 -274}%
+\special{pa 233 -306}\special{pa 169 -331}\special{pa 94 -347}\special{pa 11 -354}%
+\special{pa -71 -350}\special{pa -149 -336}\special{pa -217 -313}\special{pa -270 -283}%
+\special{pa -305 -247}\special{pa -319 -209}\special{pa -311 -169}\special{pa -282 -132}%
+\special{fp}%
+\special{pa -313 -129}\special{pa -259 -94}\special{pa -188 -66}\special{pa -104 -48}%
+\special{pa -13 -40}\special{pa 79 -44}\special{pa 166 -60}\special{pa 241 -85}\special{pa 300 -119}%
+\special{pa 339 -159}\special{pa 354 -202}\special{pa 345 -245}\special{pa 313 -286}%
+\special{pa 259 -322}\special{pa 188 -350}\special{pa 104 -368}\special{pa 13 -375}%
+\special{pa -79 -371}\special{pa -166 -356}\special{pa -241 -330}\special{pa -300 -297}%
+\special{pa -339 -257}\special{pa -354 -214}\special{pa -345 -170}\special{pa -313 -129}%
+\special{fp}%
+\special{pa -344 -121}\special{pa -285 -82}\special{pa -207 -51}\special{pa -114 -31}%
+\special{pa -14 -23}\special{pa 87 -28}\special{pa 183 -45}\special{pa 266 -73}\special{pa 330 -110}%
+\special{pa 373 -153}\special{pa 390 -201}\special{pa 380 -249}\special{pa 344 -294}%
+\special{pa 285 -333}\special{pa 207 -364}\special{pa 114 -384}\special{pa 14 -392}%
+\special{pa -87 -387}\special{pa -183 -370}\special{pa -266 -342}\special{pa -330 -305}%
+\special{pa -373 -262}\special{pa -390 -214}\special{pa -380 -166}\special{pa -344 -121}%
+\special{fp}%
+\special{pa -376 -109}\special{pa -311 -66}\special{pa -226 -32}\special{pa -125 -11}%
+\special{pa -15 -2}\special{pa 95 -7}\special{pa 199 -25}\special{pa 290 -56}\special{pa 360 -96}%
+\special{pa 407 -144}\special{pa 425 -196}\special{pa 414 -248}\special{pa 376 -297}%
+\special{pa 311 -340}\special{pa 226 -373}\special{pa 125 -395}\special{pa 15 -404}%
+\special{pa -95 -399}\special{pa -199 -380}\special{pa -290 -350}\special{pa -360 -309}%
+\special{pa -407 -262}\special{pa -425 -210}\special{pa -414 -158}\special{pa -376 -109}%
+\special{fp}%
+\special{pa -407 -91}\special{pa -337 -45}\special{pa -244 -9}\special{pa -135 15}%
+\special{pa -16 24}\special{pa 103 19}\special{pa 216 -1}\special{pa 314 -34}\special{pa 390 -78}%
+\special{pa 440 -130}\special{pa 460 -186}\special{pa 449 -242}\special{pa 407 -295}%
+\special{pa 337 -342}\special{pa 244 -378}\special{pa 135 -402}\special{pa 16 -411}%
+\special{pa -103 -406}\special{pa -216 -386}\special{pa -314 -353}\special{pa -390 -309}%
+\special{pa -440 -257}\special{pa -460 -201}\special{pa -449 -145}\special{pa -407 -91}%
+\special{fp}%
+\special{pa -438 -70}\special{pa -363 -20}\special{pa -263 19}\special{pa -145 44}%
+\special{pa -18 55}\special{pa 111 49}\special{pa 233 27}\special{pa 338 -8}\special{pa 420 -55}%
+\special{pa 474 -111}\special{pa 496 -171}\special{pa 483 -232}\special{pa 438 -290}%
+\special{pa 363 -339}\special{pa 263 -378}\special{pa 145 -404}\special{pa 18 -414}%
+\special{pa -111 -408}\special{pa -233 -387}\special{pa -338 -351}\special{pa -420 -304}%
+\special{pa -474 -248}\special{pa -496 -188}\special{pa -483 -127}\special{pa -438 -70}%
+\special{fp}%
+\special{pa -469 -44}\special{pa -389 9}\special{pa -282 51}\special{pa -156 78}\special{pa -19 89}%
+\special{pa 119 83}\special{pa 249 60}\special{pa 362 22}\special{pa 450 -29}\special{pa 508 -88}%
+\special{pa 531 -153}\special{pa 518 -218}\special{pa 469 -280}\special{pa 389 -333}%
+\special{pa 282 -375}\special{pa 156 -402}\special{pa 19 -413}\special{pa -119 -407}%
+\special{pa -249 -384}\special{pa -362 -346}\special{pa -450 -295}\special{pa -508 -236}%
+\special{pa -531 -171}\special{pa -518 -106}\special{pa -469 -44}%
+\special{fp}%
+\special{pa -501 -15}\special{pa -415 42}\special{pa -301 87}\special{pa -166 116}%
+\special{pa -20 127}\special{pa 127 121}\special{pa 266 96}\special{pa 386 56}\special{pa 481 2}%
+\special{pa 542 -62}\special{pa 567 -131}\special{pa 553 -201}\special{pa 501 -266}%
+\special{pa 415 -323}\special{pa 301 -368}\special{pa 166 -397}\special{pa 20 -408}%
+\special{pa -127 -402}\special{pa -266 -377}\special{pa -386 -337}\special{pa -481 -283}%
+\special{pa -542 -219}\special{pa -567 -150}\special{pa -553 -81}\special{pa -501 -15}%
+\special{fp}%
+\special{pa -532 17}\special{pa -441 78}\special{pa -320 125}\special{pa -177 156}%
+\special{pa -22 168}\special{pa 135 161}\special{pa 282 135}\special{pa 410 92}\special{pa 511 35}%
+\special{pa 576 -33}\special{pa 602 -106}\special{pa 587 -180}\special{pa 532 -250}%
+\special{pa 441 -310}\special{pa 320 -357}\special{pa 177 -388}\special{pa 22 -401}%
+\special{pa -135 -394}\special{pa -282 -368}\special{pa -410 -324}\special{pa -511 -267}%
+\special{pa -576 -200}\special{pa -602 -126}\special{pa -587 -52}\special{pa -532 17}%
+\special{fp}%
+\special{pa -563 52}\special{pa -467 116}\special{pa -338 167}\special{pa -187 199}%
+\special{pa -23 212}\special{pa 143 205}\special{pa 299 177}\special{pa 435 132}\special{pa 541 71}%
+\special{pa 610 -1}\special{pa 637 -78}\special{pa 622 -157}\special{pa 563 -230}%
+\special{pa 467 -294}\special{pa 338 -344}\special{pa 187 -377}\special{pa 23 -390}%
+\special{pa -143 -383}\special{pa -299 -355}\special{pa -435 -310}\special{pa -541 -249}%
+\special{pa -610 -177}\special{pa -637 -100}\special{pa -622 -21}\special{pa -563 52}%
+\special{fp}%
+\special{pa -595 89}\special{pa -493 157}\special{pa -357 210}\special{pa -197 244}%
+\special{pa -24 258}\special{pa 151 250}\special{pa 316 221}\special{pa 459 173}\special{pa 571 109}%
+\special{pa 644 33}\special{pa 673 -48}\special{pa 656 -131}\special{pa 595 -209}%
+\special{pa 493 -277}\special{pa 357 -330}\special{pa 197 -364}\special{pa 24 -378}%
+\special{pa -151 -370}\special{pa -316 -341}\special{pa -459 -293}\special{pa -571 -229}%
+\special{pa -644 -153}\special{pa -673 -71}\special{pa -656 11}\special{pa -595 89}%
+\special{fp}%
+\special{pa -626 128}\special{pa -519 199}\special{pa -376 255}\special{pa -208 291}%
+\special{pa -25 305}\special{pa 159 297}\special{pa 332 267}\special{pa 483 216}\special{pa 601 148}%
+\special{pa 678 69}\special{pa 708 -17}\special{pa 691 -104}\special{pa 626 -186}%
+\special{pa 519 -258}\special{pa 376 -313}\special{pa 208 -350}\special{pa 25 -364}%
+\special{pa -159 -356}\special{pa -332 -325}\special{pa -483 -275}\special{pa -601 -207}%
+\special{pa -678 -128}\special{pa -708 -41}\special{pa -691 46}\special{pa -626 128}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata4.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata4.tex
new file mode 100644
index 00000000..7c4fa9d6
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sf3ddata4.tex
@@ -0,0 +1,326 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-13 20:36
+%%% template.sce 2016-8-13 20:36
+{\unitlength=6mm%
+\begin{picture}%
+( 9.80000, 7.34000)( -4.79000, -3.00000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.8116,-0.8391){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.2443,-2.2778){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.7149){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1071 -236}\special{pa -857 189}%
+\special{fp}%
+\special{pa -499 -506}\special{pa 499 506}%
+\special{fp}%
+\special{pa 0 709}\special{pa 0 -833}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -56 -400}\special{pa -111 -378}\special{pa -164 -349}%
+\special{pa -214 -313}\special{pa -261 -273}\special{pa -303 -228}\special{pa -340 -179}%
+\special{pa -371 -127}\special{pa -396 -72}\special{pa -414 -17}\special{pa -425 39}%
+\special{pa -428 94}\special{pa -425 148}\special{pa -414 199}\special{pa -396 246}%
+\special{pa -371 290}\special{pa -340 328}\special{pa -303 361}\special{pa -261 388}%
+\special{pa -214 408}\special{pa -164 421}\special{pa -111 427}\special{pa -56 425}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -45 -393}\special{pa -89 -363}\special{pa -132 -326}%
+\special{pa -173 -284}\special{pa -210 -238}\special{pa -244 -187}\special{pa -274 -133}%
+\special{pa -299 -76}\special{pa -319 -19}\special{pa -334 39}\special{pa -343 97}%
+\special{pa -346 152}\special{pa -343 205}\special{pa -334 255}\special{pa -319 300}%
+\special{pa -299 340}\special{pa -274 374}\special{pa -244 402}\special{pa -210 423}%
+\special{pa -173 437}\special{pa -132 443}\special{pa -89 442}\special{pa -45 433}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -30 -387}\special{pa -59 -352}\special{pa -88 -310}%
+\special{pa -115 -263}\special{pa -140 -211}\special{pa -162 -156}\special{pa -182 -99}%
+\special{pa -199 -39}\special{pa -212 21}\special{pa -221 81}\special{pa -227 139}%
+\special{pa -229 195}\special{pa -227 248}\special{pa -221 296}\special{pa -212 340}%
+\special{pa -199 377}\special{pa -182 408}\special{pa -162 432}\special{pa -140 449}%
+\special{pa -115 458}\special{pa -88 459}\special{pa -59 453}\special{pa -30 438}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -12 -384}\special{pa -23 -345}\special{pa -35 -301}%
+\special{pa -45 -251}\special{pa -55 -197}\special{pa -64 -139}\special{pa -72 -80}%
+\special{pa -78 -18}\special{pa -83 43}\special{pa -87 104}\special{pa -90 163}\special{pa -90 219}%
+\special{pa -90 272}\special{pa -87 319}\special{pa -83 362}\special{pa -78 398}\special{pa -72 427}%
+\special{pa -64 449}\special{pa -55 464}\special{pa -45 470}\special{pa -35 469}\special{pa -23 459}%
+\special{pa -12 441}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 7 -384}\special{pa 15 -345}\special{pa 22 -300}\special{pa 29 -250}%
+\special{pa 35 -195}\special{pa 41 -138}\special{pa 46 -78}\special{pa 50 -16}\special{pa 53 45}%
+\special{pa 55 106}\special{pa 57 165}\special{pa 57 222}\special{pa 57 274}\special{pa 55 322}%
+\special{pa 53 364}\special{pa 50 400}\special{pa 46 429}\special{pa 41 451}\special{pa 35 465}%
+\special{pa 29 471}\special{pa 22 469}\special{pa 15 460}\special{pa 7 442}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 26 -386}\special{pa 52 -350}\special{pa 76 -307}\special{pa 100 -259}%
+\special{pa 121 -207}\special{pa 141 -151}\special{pa 158 -93}\special{pa 173 -33}%
+\special{pa 184 28}\special{pa 193 88}\special{pa 198 146}\special{pa 199 202}\special{pa 198 255}%
+\special{pa 193 303}\special{pa 184 346}\special{pa 173 383}\special{pa 158 414}\special{pa 141 438}%
+\special{pa 121 454}\special{pa 100 462}\special{pa 76 462}\special{pa 52 455}\special{pa 26 439}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 42 -391}\special{pa 83 -360}\special{pa 123 -322}\special{pa 161 -279}%
+\special{pa 196 -231}\special{pa 228 -179}\special{pa 255 -124}\special{pa 279 -67}%
+\special{pa 298 -8}\special{pa 311 50}\special{pa 319 108}\special{pa 322 163}\special{pa 319 216}%
+\special{pa 311 266}\special{pa 298 310}\special{pa 279 350}\special{pa 255 383}\special{pa 228 410}%
+\special{pa 196 430}\special{pa 161 442}\special{pa 123 447}\special{pa 83 444}\special{pa 42 434}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 54 -399}\special{pa 107 -374}\special{pa 158 -343}%
+\special{pa 207 -306}\special{pa 251 -264}\special{pa 292 -218}\special{pa 328 -167}%
+\special{pa 358 -114}\special{pa 382 -59}\special{pa 399 -3}\special{pa 410 53}\special{pa 413 108}%
+\special{pa 410 162}\special{pa 399 212}\special{pa 382 259}\special{pa 358 302}\special{pa 328 339}%
+\special{pa 292 371}\special{pa 251 396}\special{pa 207 415}\special{pa 158 426}\special{pa 107 430}%
+\special{pa 54 427}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 61 -407}\special{pa 120 -391}\special{pa 177 -368}%
+\special{pa 232 -339}\special{pa 282 -304}\special{pa 328 -264}\special{pa 368 -220}%
+\special{pa 402 -171}\special{pa 428 -120}\special{pa 448 -66}\special{pa 460 -12}%
+\special{pa 464 43}\special{pa 460 97}\special{pa 448 149}\special{pa 428 199}\special{pa 402 245}%
+\special{pa 368 287}\special{pa 328 325}\special{pa 282 356}\special{pa 232 382}\special{pa 177 401}%
+\special{pa 120 413}\special{pa 61 418}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 61 -416}\special{pa 121 -409}\special{pa 179 -395}%
+\special{pa 234 -374}\special{pa 285 -347}\special{pa 332 -314}\special{pa 372 -275}%
+\special{pa 406 -232}\special{pa 433 -184}\special{pa 453 -134}\special{pa 465 -81}%
+\special{pa 469 -27}\special{pa 465 27}\special{pa 453 82}\special{pa 433 134}\special{pa 406 185}%
+\special{pa 372 232}\special{pa 332 275}\special{pa 285 314}\special{pa 234 347}\special{pa 179 374}%
+\special{pa 121 395}\special{pa 61 409}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 56 -425}\special{pa 111 -427}\special{pa 164 -421}%
+\special{pa 214 -408}\special{pa 261 -388}\special{pa 303 -361}\special{pa 340 -328}%
+\special{pa 371 -290}\special{pa 396 -246}\special{pa 414 -199}\special{pa 425 -148}%
+\special{pa 428 -94}\special{pa 425 -39}\special{pa 414 17}\special{pa 396 72}\special{pa 371 127}%
+\special{pa 340 179}\special{pa 303 228}\special{pa 261 273}\special{pa 214 313}\special{pa 164 349}%
+\special{pa 111 378}\special{pa 56 400}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 45 -433}\special{pa 89 -442}\special{pa 132 -443}\special{pa 173 -437}%
+\special{pa 210 -423}\special{pa 244 -402}\special{pa 274 -374}\special{pa 299 -340}%
+\special{pa 319 -300}\special{pa 334 -255}\special{pa 343 -205}\special{pa 346 -152}%
+\special{pa 343 -97}\special{pa 334 -39}\special{pa 319 19}\special{pa 299 76}\special{pa 274 133}%
+\special{pa 244 187}\special{pa 210 238}\special{pa 173 284}\special{pa 132 326}\special{pa 89 363}%
+\special{pa 45 393}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 30 -438}\special{pa 59 -453}\special{pa 88 -459}\special{pa 115 -458}%
+\special{pa 140 -449}\special{pa 162 -432}\special{pa 182 -408}\special{pa 199 -377}%
+\special{pa 212 -340}\special{pa 221 -296}\special{pa 227 -248}\special{pa 229 -195}%
+\special{pa 227 -139}\special{pa 221 -81}\special{pa 212 -21}\special{pa 199 39}\special{pa 182 99}%
+\special{pa 162 156}\special{pa 140 211}\special{pa 115 263}\special{pa 88 310}\special{pa 59 352}%
+\special{pa 30 387}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa 12 -441}\special{pa 23 -459}\special{pa 35 -469}\special{pa 45 -470}%
+\special{pa 55 -464}\special{pa 64 -449}\special{pa 72 -427}\special{pa 78 -398}\special{pa 83 -362}%
+\special{pa 87 -319}\special{pa 90 -272}\special{pa 90 -219}\special{pa 90 -163}\special{pa 87 -104}%
+\special{pa 83 -43}\special{pa 78 18}\special{pa 72 80}\special{pa 64 139}\special{pa 55 197}%
+\special{pa 45 251}\special{pa 35 301}\special{pa 23 345}\special{pa 12 384}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -7 -442}\special{pa -15 -460}\special{pa -22 -469}%
+\special{pa -29 -471}\special{pa -35 -465}\special{pa -41 -451}\special{pa -46 -429}%
+\special{pa -50 -400}\special{pa -53 -364}\special{pa -55 -322}\special{pa -57 -274}%
+\special{pa -57 -222}\special{pa -57 -165}\special{pa -55 -106}\special{pa -53 -45}%
+\special{pa -50 16}\special{pa -46 78}\special{pa -41 138}\special{pa -35 195}\special{pa -29 250}%
+\special{pa -22 300}\special{pa -15 345}\special{pa -7 384}\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -26 -439}\special{pa -52 -455}\special{pa -76 -462}%
+\special{pa -100 -462}\special{pa -121 -454}\special{pa -141 -438}\special{pa -158 -414}%
+\special{pa -173 -383}\special{pa -184 -346}\special{pa -193 -303}\special{pa -198 -255}%
+\special{pa -199 -202}\special{pa -198 -146}\special{pa -193 -88}\special{pa -184 -28}%
+\special{pa -173 33}\special{pa -158 93}\special{pa -141 151}\special{pa -121 207}%
+\special{pa -100 259}\special{pa -76 307}\special{pa -52 350}\special{pa -26 386}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -42 -434}\special{pa -83 -444}\special{pa -123 -447}%
+\special{pa -161 -442}\special{pa -196 -430}\special{pa -228 -410}\special{pa -255 -383}%
+\special{pa -279 -350}\special{pa -298 -310}\special{pa -311 -266}\special{pa -319 -216}%
+\special{pa -322 -163}\special{pa -319 -108}\special{pa -311 -50}\special{pa -298 8}%
+\special{pa -279 67}\special{pa -255 124}\special{pa -228 179}\special{pa -196 231}%
+\special{pa -161 279}\special{pa -123 322}\special{pa -83 360}\special{pa -42 391}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -54 -427}\special{pa -107 -430}\special{pa -158 -426}%
+\special{pa -207 -415}\special{pa -251 -396}\special{pa -292 -371}\special{pa -328 -339}%
+\special{pa -358 -302}\special{pa -382 -259}\special{pa -399 -212}\special{pa -410 -162}%
+\special{pa -413 -108}\special{pa -410 -53}\special{pa -399 3}\special{pa -382 59}%
+\special{pa -358 114}\special{pa -328 167}\special{pa -292 218}\special{pa -251 264}%
+\special{pa -207 306}\special{pa -158 343}\special{pa -107 374}\special{pa -54 399}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -61 -418}\special{pa -120 -413}\special{pa -177 -401}%
+\special{pa -232 -382}\special{pa -282 -356}\special{pa -328 -325}\special{pa -368 -287}%
+\special{pa -402 -245}\special{pa -428 -199}\special{pa -448 -149}\special{pa -460 -97}%
+\special{pa -464 -43}\special{pa -460 12}\special{pa -448 66}\special{pa -428 120}%
+\special{pa -402 171}\special{pa -368 220}\special{pa -328 264}\special{pa -282 304}%
+\special{pa -232 339}\special{pa -177 368}\special{pa -120 391}\special{pa -61 407}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -61 -409}\special{pa -121 -395}\special{pa -179 -374}%
+\special{pa -234 -347}\special{pa -285 -314}\special{pa -332 -275}\special{pa -372 -232}%
+\special{pa -406 -185}\special{pa -433 -134}\special{pa -453 -82}\special{pa -465 -27}%
+\special{pa -469 27}\special{pa -465 81}\special{pa -453 134}\special{pa -433 184}%
+\special{pa -406 232}\special{pa -372 275}\special{pa -332 314}\special{pa -285 347}%
+\special{pa -234 374}\special{pa -179 395}\special{pa -121 409}\special{pa -61 416}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 0 -416}\special{pa -56 -400}\special{pa -111 -378}\special{pa -164 -349}%
+\special{pa -214 -313}\special{pa -261 -273}\special{pa -303 -228}\special{pa -340 -179}%
+\special{pa -371 -127}\special{pa -396 -72}\special{pa -414 -17}\special{pa -425 39}%
+\special{pa -428 94}\special{pa -425 148}\special{pa -414 199}\special{pa -396 246}%
+\special{pa -371 290}\special{pa -340 328}\special{pa -303 361}\special{pa -261 388}%
+\special{pa -214 408}\special{pa -164 421}\special{pa -111 427}\special{pa -56 425}%
+\special{pa 0 416}%
+\special{fp}%
+\special{pa 3 -419}\special{pa -3 -419}\special{pa -3 -414}\special{pa 3 -414}\special{pa 3 -419}%
+\special{sh 1}\special{fp}%
+\special{pa -67 -396}\special{pa -57 -389}\special{pa -42 -383}\special{pa -25 -378}%
+\special{pa -6 -376}\special{pa 13 -377}\special{pa 31 -380}\special{pa 47 -384}\special{pa 61 -391}%
+\special{pa 69 -399}\special{pa 74 -408}\special{pa 73 -417}\special{pa 67 -426}\special{pa 57 -434}%
+\special{pa 42 -440}\special{pa 25 -444}\special{pa 6 -446}\special{pa -13 -446}\special{pa -31 -443}%
+\special{pa -47 -438}\special{pa -61 -431}\special{pa -69 -423}\special{pa -74 -414}%
+\special{pa -73 -405}\special{pa -67 -396}%
+\special{fp}%
+\special{pa -132 -367}\special{pa -112 -352}\special{pa -84 -339}\special{pa -50 -331}%
+\special{pa -13 -327}\special{pa 25 -328}\special{pa 62 -333}\special{pa 94 -343}%
+\special{pa 120 -356}\special{pa 137 -372}\special{pa 145 -390}\special{pa 144 -408}%
+\special{pa 132 -425}\special{pa 112 -440}\special{pa 84 -452}\special{pa 50 -461}%
+\special{pa 13 -465}\special{pa -25 -464}\special{pa -62 -459}\special{pa -94 -449}%
+\special{pa -120 -436}\special{pa -137 -420}\special{pa -145 -402}\special{pa -144 -384}%
+\special{pa -132 -367}%
+\special{fp}%
+\special{pa -194 -328}\special{pa -164 -306}\special{pa -123 -288}\special{pa -73 -276}%
+\special{pa -19 -270}\special{pa 37 -271}\special{pa 91 -279}\special{pa 138 -293}%
+\special{pa 176 -313}\special{pa 202 -336}\special{pa 214 -362}\special{pa 211 -389}%
+\special{pa 194 -414}\special{pa 164 -436}\special{pa 123 -454}\special{pa 73 -466}%
+\special{pa 19 -472}\special{pa -37 -471}\special{pa -91 -463}\special{pa -138 -449}%
+\special{pa -176 -429}\special{pa -202 -406}\special{pa -214 -380}\special{pa -211 -353}%
+\special{pa -194 -328}%
+\special{fp}%
+\special{pa -252 -281}\special{pa -213 -252}\special{pa -159 -229}\special{pa -95 -213}%
+\special{pa -24 -206}\special{pa 48 -208}\special{pa 117 -218}\special{pa 178 -236}%
+\special{pa 227 -261}\special{pa 261 -292}\special{pa 277 -325}\special{pa 273 -360}%
+\special{pa 252 -392}\special{pa 213 -421}\special{pa 159 -444}\special{pa 95 -460}%
+\special{pa 24 -468}\special{pa -48 -466}\special{pa -117 -456}\special{pa -178 -437}%
+\special{pa -227 -412}\special{pa -261 -382}\special{pa -277 -348}\special{pa -273 -314}%
+\special{pa -252 -281}%
+\special{fp}%
+\special{pa -303 -228}\special{pa -256 -193}\special{pa -192 -165}\special{pa -114 -146}%
+\special{pa -29 -137}\special{pa 58 -139}\special{pa 141 -151}\special{pa 215 -173}%
+\special{pa 274 -204}\special{pa 314 -240}\special{pa 333 -281}\special{pa 329 -322}%
+\special{pa 303 -361}\special{pa 256 -396}\special{pa 192 -424}\special{pa 114 -443}%
+\special{pa 29 -452}\special{pa -58 -450}\special{pa -141 -438}\special{pa -215 -415}%
+\special{pa -274 -385}\special{pa -314 -348}\special{pa -333 -308}\special{pa -329 -267}%
+\special{pa -303 -228}%
+\special{fp}%
+\special{pa -346 -168}\special{pa -293 -129}\special{pa -219 -97}\special{pa -131 -75}%
+\special{pa -33 -65}\special{pa 66 -67}\special{pa 161 -81}\special{pa 246 -106}\special{pa 313 -141}%
+\special{pa 359 -183}\special{pa 381 -229}\special{pa 376 -276}\special{pa 346 -321}%
+\special{pa 293 -361}\special{pa 219 -393}\special{pa 131 -414}\special{pa 33 -425}%
+\special{pa -66 -423}\special{pa -161 -408}\special{pa -246 -383}\special{pa -313 -348}%
+\special{pa -359 -307}\special{pa -381 -261}\special{pa -376 -213}\special{pa -346 -168}%
+\special{fp}%
+\special{pa -382 -105}\special{pa -323 -61}\special{pa -242 -26}\special{pa -144 -2}%
+\special{pa -37 9}\special{pa 73 7}\special{pa 178 -9}\special{pa 270 -37}\special{pa 345 -75}%
+\special{pa 395 -121}\special{pa 419 -172}\special{pa 415 -223}\special{pa 382 -273}%
+\special{pa 323 -317}\special{pa 242 -352}\special{pa 144 -376}\special{pa 37 -387}%
+\special{pa -73 -385}\special{pa -178 -369}\special{pa -270 -341}\special{pa -345 -303}%
+\special{pa -395 -257}\special{pa -419 -206}\special{pa -415 -155}\special{pa -382 -105}%
+\special{fp}%
+\special{pa -407 -39}\special{pa -344 8}\special{pa -258 45}\special{pa -154 71}\special{pa -39 83}%
+\special{pa 78 81}\special{pa 190 64}\special{pa 289 34}\special{pa 368 -7}\special{pa 422 -56}%
+\special{pa 448 -110}\special{pa 443 -165}\special{pa 407 -218}\special{pa 344 -265}%
+\special{pa 258 -303}\special{pa 154 -328}\special{pa 39 -340}\special{pa -78 -338}%
+\special{pa -190 -321}\special{pa -289 -291}\special{pa -368 -251}\special{pa -422 -201}%
+\special{pa -448 -147}\special{pa -443 -92}\special{pa -407 -39}%
+\special{fp}%
+\special{pa -423 28}\special{pa -358 77}\special{pa -268 115}\special{pa -160 142}%
+\special{pa -41 155}\special{pa 81 152}\special{pa 197 135}\special{pa 300 104}\special{pa 382 61}%
+\special{pa 438 10}\special{pa 465 -46}\special{pa 460 -103}\special{pa 423 -158}%
+\special{pa 358 -207}\special{pa 268 -246}\special{pa 160 -272}\special{pa 41 -285}%
+\special{pa -81 -282}\special{pa -197 -265}\special{pa -300 -234}\special{pa -382 -192}%
+\special{pa -438 -141}\special{pa -465 -84}\special{pa -460 -27}\special{pa -423 28}%
+\special{fp}%
+\special{pa -428 94}\special{pa -362 143}\special{pa -271 183}\special{pa -162 210}%
+\special{pa -41 222}\special{pa 82 220}\special{pa 199 202}\special{pa 304 171}\special{pa 387 128}%
+\special{pa 444 76}\special{pa 471 20}\special{pa 465 -39}\special{pa 428 -94}\special{pa 362 -143}%
+\special{pa 271 -183}\special{pa 162 -210}\special{pa 41 -222}\special{pa -82 -220}%
+\special{pa -199 -202}\special{pa -304 -171}\special{pa -387 -128}\special{pa -444 -76}%
+\special{pa -471 -20}\special{pa -465 39}\special{pa -428 94}%
+\special{fp}%
+\special{pa -423 158}\special{pa -358 207}\special{pa -268 246}\special{pa -160 272}%
+\special{pa -41 285}\special{pa 81 282}\special{pa 197 265}\special{pa 300 234}\special{pa 382 192}%
+\special{pa 438 141}\special{pa 465 84}\special{pa 460 27}\special{pa 423 -28}\special{pa 358 -77}%
+\special{pa 268 -115}\special{pa 160 -142}\special{pa 41 -155}\special{pa -81 -152}%
+\special{pa -197 -135}\special{pa -300 -104}\special{pa -382 -61}\special{pa -438 -10}%
+\special{pa -465 46}\special{pa -460 103}\special{pa -423 158}%
+\special{fp}%
+\special{pa -407 218}\special{pa -344 265}\special{pa -258 303}\special{pa -154 328}%
+\special{pa -39 340}\special{pa 78 338}\special{pa 190 321}\special{pa 289 291}\special{pa 368 251}%
+\special{pa 422 201}\special{pa 448 147}\special{pa 443 92}\special{pa 407 39}\special{pa 344 -8}%
+\special{pa 258 -45}\special{pa 154 -71}\special{pa 39 -83}\special{pa -78 -81}\special{pa -190 -64}%
+\special{pa -289 -34}\special{pa -368 7}\special{pa -422 56}\special{pa -448 110}%
+\special{pa -443 165}\special{pa -407 218}%
+\special{fp}%
+\special{pa -382 273}\special{pa -323 317}\special{pa -242 352}\special{pa -144 376}%
+\special{pa -37 387}\special{pa 73 385}\special{pa 178 369}\special{pa 270 341}\special{pa 345 303}%
+\special{pa 395 257}\special{pa 419 206}\special{pa 415 155}\special{pa 382 105}\special{pa 323 61}%
+\special{pa 242 26}\special{pa 144 2}\special{pa 37 -9}\special{pa -73 -7}\special{pa -178 9}%
+\special{pa -270 37}\special{pa -345 75}\special{pa -395 121}\special{pa -419 172}%
+\special{pa -415 223}\special{pa -382 273}%
+\special{fp}%
+\special{pa -346 321}\special{pa -293 361}\special{pa -219 393}\special{pa -131 414}%
+\special{pa -33 425}\special{pa 66 423}\special{pa 161 408}\special{pa 246 383}\special{pa 313 348}%
+\special{pa 359 307}\special{pa 381 261}\special{pa 376 213}\special{pa 346 168}\special{pa 293 129}%
+\special{pa 219 97}\special{pa 131 75}\special{pa 33 65}\special{pa -66 67}\special{pa -161 81}%
+\special{pa -246 106}\special{pa -313 141}\special{pa -359 183}\special{pa -381 229}%
+\special{pa -376 276}\special{pa -346 321}%
+\special{fp}%
+\special{pa -303 361}\special{pa -256 396}\special{pa -192 424}\special{pa -114 443}%
+\special{pa -29 452}\special{pa 58 450}\special{pa 141 438}\special{pa 215 415}\special{pa 274 385}%
+\special{pa 314 348}\special{pa 333 308}\special{pa 329 267}\special{pa 303 228}\special{pa 256 193}%
+\special{pa 192 165}\special{pa 114 146}\special{pa 29 137}\special{pa -58 139}\special{pa -141 151}%
+\special{pa -215 173}\special{pa -274 204}\special{pa -314 240}\special{pa -333 281}%
+\special{pa -329 322}\special{pa -303 361}%
+\special{fp}%
+\special{pa -252 392}\special{pa -213 421}\special{pa -159 444}\special{pa -95 460}%
+\special{pa -24 468}\special{pa 48 466}\special{pa 117 456}\special{pa 178 437}\special{pa 227 412}%
+\special{pa 261 382}\special{pa 277 348}\special{pa 273 314}\special{pa 252 281}\special{pa 213 252}%
+\special{pa 159 229}\special{pa 95 213}\special{pa 24 206}\special{pa -48 208}\special{pa -117 218}%
+\special{pa -178 236}\special{pa -227 261}\special{pa -261 292}\special{pa -277 325}%
+\special{pa -273 360}\special{pa -252 392}%
+\special{fp}%
+\special{pa -194 414}\special{pa -164 436}\special{pa -123 454}\special{pa -73 466}%
+\special{pa -19 472}\special{pa 37 471}\special{pa 91 463}\special{pa 138 449}\special{pa 176 429}%
+\special{pa 202 406}\special{pa 214 380}\special{pa 211 353}\special{pa 194 328}\special{pa 164 306}%
+\special{pa 123 288}\special{pa 73 276}\special{pa 19 270}\special{pa -37 271}\special{pa -91 279}%
+\special{pa -138 293}\special{pa -176 313}\special{pa -202 336}\special{pa -214 362}%
+\special{pa -211 389}\special{pa -194 414}%
+\special{fp}%
+\special{pa -132 425}\special{pa -112 440}\special{pa -84 452}\special{pa -50 461}%
+\special{pa -13 465}\special{pa 25 464}\special{pa 62 459}\special{pa 94 449}\special{pa 120 436}%
+\special{pa 137 420}\special{pa 145 402}\special{pa 144 384}\special{pa 132 367}\special{pa 112 352}%
+\special{pa 84 339}\special{pa 50 331}\special{pa 13 327}\special{pa -25 328}\special{pa -62 333}%
+\special{pa -94 343}\special{pa -120 356}\special{pa -137 372}\special{pa -145 390}%
+\special{pa -144 408}\special{pa -132 425}%
+\special{fp}%
+\special{pa -67 426}\special{pa -57 434}\special{pa -42 440}\special{pa -25 444}\special{pa -6 446}%
+\special{pa 13 446}\special{pa 31 443}\special{pa 47 438}\special{pa 61 431}\special{pa 69 423}%
+\special{pa 74 414}\special{pa 73 405}\special{pa 67 396}\special{pa 57 389}\special{pa 42 383}%
+\special{pa 25 378}\special{pa 6 376}\special{pa -13 377}\special{pa -31 380}\special{pa -47 384}%
+\special{pa -61 391}\special{pa -69 399}\special{pa -74 408}\special{pa -73 417}\special{pa -67 426}%
+\special{fp}%
+\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}%
+\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}%
+\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}%
+\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}\special{pa 0 416}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara01.tex
new file mode 100644
index 00000000..d96415aa
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara01.tex
@@ -0,0 +1,72 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 17:52
+%%% template.sce 2016-8-22 17:52
+{\unitlength=5mm%
+\begin{picture}%
+( 7.04000, 9.33000)( -3.57000, -4.74000)%
+\special{pn 8}%
+%
+\special{pa -260 -469}\special{pa -253 -441}\special{pa -250 -430}\special{pa -240 -393}%
+\special{pa -235 -374}\special{pa -231 -357}\special{pa -221 -323}\special{pa -218 -312}%
+\special{pa -211 -291}\special{pa -201 -261}\special{pa -191 -232}\special{pa -182 -206}%
+\special{pa -172 -179}\special{pa -165 -161}\special{pa -162 -156}\special{pa -152 -134}%
+\special{pa -147 -122}\special{pa -143 -114}\special{pa -133 -95}\special{pa -129 -89}%
+\special{pa -123 -78}\special{pa -113 -63}\special{pa -104 -50}\special{pa -94 -38}%
+\special{pa -84 -28}\special{pa -76 -21}\special{pa -65 -13}\special{pa -59 -10}\special{pa -45 -5}%
+\special{pa -35 -4}\special{pa -26 -4}\special{pa -16 -6}\special{pa -6 -9}\special{pa 4 -15}%
+\special{pa 12 -20}\special{pa 23 -30}\special{pa 30 -37}\special{pa 33 -41}\special{pa 43 -53}%
+\special{pa 47 -59}\special{pa 53 -67}\special{pa 62 -82}\special{pa 65 -87}\special{pa 72 -100}%
+\special{pa 82 -119}\special{pa 92 -139}\special{pa 100 -159}\special{pa 111 -186}%
+\special{pa 118 -203}\special{pa 121 -211}\special{pa 131 -239}\special{pa 136 -253}%
+\special{pa 140 -268}\special{pa 150 -299}\special{pa 153 -309}\special{pa 160 -331}%
+\special{pa 170 -366}\special{pa 179 -402}\special{pa 188 -436}\special{pa 199 -479}%
+\special{pa 206 -509}\special{pa 209 -520}\special{pa 219 -563}%
+\special{fp}%
+\special{pa -535 -55}\special{pa -527 -107}\special{pa -520 -158}\special{pa -512 -206}%
+\special{pa -505 -252}\special{pa -497 -295}\special{pa -489 -336}\special{pa -482 -375}%
+\special{pa -474 -411}\special{pa -466 -445}\special{pa -459 -477}\special{pa -451 -506}%
+\special{pa -444 -533}\special{pa -436 -558}\special{pa -428 -580}\special{pa -421 -600}%
+\special{pa -413 -617}\special{pa -405 -632}\special{pa -398 -645}\special{pa -390 -656}%
+\special{pa -383 -664}\special{pa -375 -669}\special{pa -367 -673}\special{pa -360 -674}%
+\special{pa -352 -672}\special{pa -345 -669}\special{pa -337 -663}\special{pa -329 -654}%
+\special{pa -322 -643}\special{pa -314 -630}\special{pa -306 -615}\special{pa -299 -597}%
+\special{pa -291 -577}\special{pa -284 -554}\special{pa -276 -529}\special{pa -268 -502}%
+\special{pa -261 -472}\special{pa -253 -440}\special{pa -245 -406}\special{pa -238 -369}%
+\special{pa -230 -330}\special{pa -223 -289}\special{pa -215 -245}\special{pa -207 -199}%
+\special{pa -200 -151}\special{pa -192 -100}\special{pa -184 -47}\special{pa -177 9}%
+\special{pa -169 67}\special{pa -162 127}\special{pa -154 190}%
+\special{fp}%
+\special{pa 535 55}\special{pa 521 115}\special{pa 508 173}\special{pa 494 229}\special{pa 480 282}%
+\special{pa 466 333}\special{pa 452 382}\special{pa 439 428}\special{pa 425 472}\special{pa 411 514}%
+\special{pa 397 553}\special{pa 383 590}\special{pa 370 624}\special{pa 356 656}\special{pa 342 686}%
+\special{pa 328 714}\special{pa 315 739}\special{pa 301 761}\special{pa 287 782}\special{pa 273 800}%
+\special{pa 259 815}\special{pa 246 829}\special{pa 232 840}\special{pa 218 848}\special{pa 204 855}%
+\special{pa 191 858}\special{pa 177 860}\special{pa 163 859}\special{pa 149 856}\special{pa 135 850}%
+\special{pa 122 842}\special{pa 108 832}\special{pa 94 820}\special{pa 80 805}\special{pa 66 787}%
+\special{pa 53 768}\special{pa 39 746}\special{pa 25 721}\special{pa 11 694}\special{pa -2 665}%
+\special{pa -16 634}\special{pa -30 600}\special{pa -44 564}\special{pa -58 525}\special{pa -71 484}%
+\special{pa -85 441}\special{pa -99 396}\special{pa -113 348}\special{pa -126 297}%
+\special{pa -140 245}\special{pa -154 190}%
+\special{fp}%
+\special{pa 219 -563}\special{pa 223 -580}\special{pa 230 -612}\special{pa 238 -641}%
+\special{pa 245 -668}\special{pa 253 -693}\special{pa 261 -715}\special{pa 268 -735}%
+\special{pa 276 -752}\special{pa 284 -768}\special{pa 291 -780}\special{pa 299 -791}%
+\special{pa 306 -799}\special{pa 314 -804}\special{pa 322 -808}\special{pa 329 -809}%
+\special{pa 337 -808}\special{pa 345 -804}\special{pa 352 -798}\special{pa 360 -789}%
+\special{pa 367 -779}\special{pa 375 -765}\special{pa 383 -750}\special{pa 390 -732}%
+\special{pa 398 -712}\special{pa 405 -689}\special{pa 413 -664}\special{pa 421 -637}%
+\special{pa 428 -608}\special{pa 436 -576}\special{pa 444 -541}\special{pa 451 -505}%
+\special{pa 459 -465}\special{pa 466 -424}\special{pa 474 -380}\special{pa 482 -334}%
+\special{pa 489 -286}\special{pa 497 -235}\special{pa 505 -182}\special{pa 512 -126}%
+\special{pa 520 -68}\special{pa 527 -8}\special{pa 535 55}%
+\special{fp}%
+\special{pa -66 494}\special{pa -80 517}\special{pa -94 537}\special{pa -108 555}%
+\special{pa -122 571}\special{pa -135 584}\special{pa -149 595}\special{pa -163 604}%
+\special{pa -177 610}\special{pa -191 614}\special{pa -204 616}\special{pa -218 615}%
+\special{pa -232 612}\special{pa -246 606}\special{pa -259 598}\special{pa -273 588}%
+\special{pa -287 575}\special{pa -301 560}\special{pa -315 543}\special{pa -328 523}%
+\special{pa -342 501}\special{pa -356 477}\special{pa -370 450}\special{pa -383 421}%
+\special{pa -397 390}\special{pa -411 356}\special{pa -425 320}\special{pa -439 281}%
+\special{pa -452 240}\special{pa -466 197}\special{pa -480 151}\special{pa -494 103}%
+\special{pa -508 53}\special{pa -521 0}\special{pa -535 -55}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara02.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara02.tex
new file mode 100644
index 00000000..dcf3cd7f
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara02.tex
@@ -0,0 +1,91 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 17:51
+%%% template.sce 2016-8-22 17:51
+{\unitlength=5mm%
+\begin{picture}%
+( 7.04000, 9.33000)( -3.57000, -4.74000)%
+\special{pn 8}%
+%
+\special{pn 16}%
+\special{pa -260 -469}\special{pa -253 -441}\special{pa -250 -430}\special{pa -240 -393}%
+\special{pa -235 -374}\special{pa -231 -357}\special{pa -221 -323}\special{pa -218 -312}%
+\special{pa -211 -291}\special{pa -201 -261}\special{pa -191 -232}\special{pa -182 -206}%
+\special{pa -172 -179}\special{pa -165 -161}\special{pa -162 -156}\special{pa -152 -134}%
+\special{pa -147 -122}\special{pa -143 -114}\special{pa -133 -95}\special{pa -129 -89}%
+\special{pa -123 -78}\special{pa -113 -63}\special{pa -104 -50}\special{pa -94 -38}%
+\special{pa -84 -28}\special{pa -76 -21}\special{pa -65 -13}\special{pa -59 -10}\special{pa -45 -5}%
+\special{pa -35 -4}\special{pa -26 -4}\special{pa -16 -6}\special{pa -6 -9}\special{pa 4 -15}%
+\special{pa 12 -20}\special{pa 23 -30}\special{pa 30 -37}\special{pa 33 -41}\special{pa 43 -53}%
+\special{pa 47 -59}\special{pa 53 -67}\special{pa 62 -82}\special{pa 65 -87}\special{pa 72 -100}%
+\special{pa 82 -119}\special{pa 92 -139}\special{pa 100 -159}\special{pa 111 -186}%
+\special{pa 118 -203}\special{pa 121 -211}\special{pa 131 -239}\special{pa 136 -253}%
+\special{pa 140 -268}\special{pa 150 -299}\special{pa 153 -309}\special{pa 160 -331}%
+\special{pa 170 -366}\special{pa 179 -402}\special{pa 188 -436}\special{pa 199 -479}%
+\special{pa 206 -509}\special{pa 209 -520}\special{pa 219 -563}%
+\special{fp}%
+\special{pa -535 -55}\special{pa -527 -107}\special{pa -520 -158}\special{pa -512 -206}%
+\special{pa -505 -252}\special{pa -497 -295}\special{pa -489 -336}\special{pa -482 -375}%
+\special{pa -474 -411}\special{pa -466 -445}\special{pa -459 -477}\special{pa -451 -506}%
+\special{pa -444 -533}\special{pa -436 -558}\special{pa -428 -580}\special{pa -421 -600}%
+\special{pa -413 -617}\special{pa -405 -632}\special{pa -398 -645}\special{pa -390 -656}%
+\special{pa -383 -664}\special{pa -375 -669}\special{pa -367 -673}\special{pa -360 -674}%
+\special{pa -352 -672}\special{pa -345 -669}\special{pa -337 -663}\special{pa -329 -654}%
+\special{pa -322 -643}\special{pa -314 -630}\special{pa -306 -615}\special{pa -299 -597}%
+\special{pa -291 -577}\special{pa -284 -554}\special{pa -276 -529}\special{pa -268 -502}%
+\special{pa -261 -472}\special{pa -253 -440}\special{pa -245 -406}\special{pa -238 -369}%
+\special{pa -230 -330}\special{pa -223 -289}\special{pa -215 -245}\special{pa -207 -199}%
+\special{pa -200 -151}\special{pa -192 -100}\special{pa -184 -47}\special{pa -177 9}%
+\special{pa -169 67}\special{pa -162 127}\special{pa -154 190}%
+\special{fp}%
+\special{pa 535 55}\special{pa 521 115}\special{pa 508 173}\special{pa 494 229}\special{pa 480 282}%
+\special{pa 466 333}\special{pa 452 382}\special{pa 439 428}\special{pa 425 472}\special{pa 411 514}%
+\special{pa 397 553}\special{pa 383 590}\special{pa 370 624}\special{pa 356 656}\special{pa 342 686}%
+\special{pa 328 714}\special{pa 315 739}\special{pa 301 761}\special{pa 287 782}\special{pa 273 800}%
+\special{pa 259 815}\special{pa 246 829}\special{pa 232 840}\special{pa 218 848}\special{pa 204 855}%
+\special{pa 191 858}\special{pa 177 860}\special{pa 163 859}\special{pa 149 856}\special{pa 135 850}%
+\special{pa 122 842}\special{pa 108 832}\special{pa 94 820}\special{pa 80 805}\special{pa 66 787}%
+\special{pa 53 768}\special{pa 39 746}\special{pa 25 721}\special{pa 11 694}\special{pa -2 665}%
+\special{pa -16 634}\special{pa -30 600}\special{pa -44 564}\special{pa -58 525}\special{pa -71 484}%
+\special{pa -85 441}\special{pa -99 396}\special{pa -113 348}\special{pa -126 297}%
+\special{pa -140 245}\special{pa -154 190}%
+\special{fp}%
+\special{pa 219 -563}\special{pa 223 -580}\special{pa 230 -612}\special{pa 238 -641}%
+\special{pa 245 -668}\special{pa 253 -693}\special{pa 261 -715}\special{pa 268 -735}%
+\special{pa 276 -752}\special{pa 284 -768}\special{pa 291 -780}\special{pa 299 -791}%
+\special{pa 306 -799}\special{pa 314 -804}\special{pa 322 -808}\special{pa 329 -809}%
+\special{pa 337 -808}\special{pa 345 -804}\special{pa 352 -798}\special{pa 360 -789}%
+\special{pa 367 -779}\special{pa 375 -765}\special{pa 383 -750}\special{pa 390 -732}%
+\special{pa 398 -712}\special{pa 405 -689}\special{pa 413 -664}\special{pa 421 -637}%
+\special{pa 428 -608}\special{pa 436 -576}\special{pa 444 -541}\special{pa 451 -505}%
+\special{pa 459 -465}\special{pa 466 -424}\special{pa 474 -380}\special{pa 482 -334}%
+\special{pa 489 -286}\special{pa 497 -235}\special{pa 505 -182}\special{pa 512 -126}%
+\special{pa 520 -68}\special{pa 527 -8}\special{pa 535 55}%
+\special{fp}%
+\special{pa -66 494}\special{pa -80 517}\special{pa -94 537}\special{pa -108 555}%
+\special{pa -122 571}\special{pa -135 584}\special{pa -149 595}\special{pa -163 604}%
+\special{pa -177 610}\special{pa -191 614}\special{pa -204 616}\special{pa -218 615}%
+\special{pa -232 612}\special{pa -246 606}\special{pa -259 598}\special{pa -273 588}%
+\special{pa -287 575}\special{pa -301 560}\special{pa -315 543}\special{pa -328 523}%
+\special{pa -342 501}\special{pa -356 477}\special{pa -370 450}\special{pa -383 421}%
+\special{pa -397 390}\special{pa -411 356}\special{pa -425 320}\special{pa -439 281}%
+\special{pa -452 240}\special{pa -466 197}\special{pa -480 151}\special{pa -494 103}%
+\special{pa -508 53}\special{pa -521 0}\special{pa -535 -55}%
+\special{fp}%
+\special{pn 8}%
+\special{pn 8}%
+\special{pa 153 -186}\special{pa 155 -194}\special{fp}\special{pa 159 -223}\special{pa 160 -231}\special{fp}%
+\special{pa 164 -261}\special{pa 166 -269}\special{fp}\special{pa 170 -298}\special{pa 171 -306}\special{fp}%
+\special{pa 176 -335}\special{pa 177 -343}\special{fp}\special{pa 182 -373}\special{pa 183 -381}\special{fp}%
+\special{pa 189 -410}\special{pa 190 -418}\special{fp}\special{pa 195 -447}\special{pa 197 -455}\special{fp}%
+\special{pa 202 -485}\special{pa 204 -492}\special{fp}\special{pa 210 -522}\special{pa 211 -529}\special{fp}%
+\special{pa 218 -559}\special{pa 219 -566}\special{fp}\special{pn 8}%
+\special{pa 155 -194}\special{pa 153 -186}\special{fp}\special{pa 146 -155}\special{pa 144 -147}\special{fp}%
+\special{pa 137 -116}\special{pa 135 -108}\special{fp}\special{pa 128 -77}\special{pa 126 -69}\special{fp}%
+\special{pa 118 -38}\special{pa 116 -30}\special{fp}\special{pa 108 1}\special{pa 106 9}\special{fp}%
+\special{pa 98 40}\special{pa 96 48}\special{fp}\special{pa 88 79}\special{pa 86 86}\special{fp}%
+\special{pa 77 117}\special{pa 75 125}\special{fp}\special{pa 66 156}\special{pa 64 163}\special{fp}%
+\special{pa 54 194}\special{pa 52 202}\special{fp}\special{pa 42 232}\special{pa 40 240}\special{fp}%
+\special{pa 30 270}\special{pa 27 278}\special{fp}\special{pa 16 308}\special{pa 14 315}\special{fp}%
+\special{pa 2 345}\special{pa -1 353}\special{fp}\special{pa -13 383}\special{pa -16 390}\special{fp}%
+\special{pa -29 419}\special{pa -32 427}\special{fp}\special{pa -46 455}\special{pa -49 463}\special{fp}%
+\special{pa -65 491}\special{pa -68 498}\special{fp}\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara03.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara03.tex
new file mode 100644
index 00000000..15121319
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara03.tex
@@ -0,0 +1,42 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 17:46
+%%% template.sce 2016-8-22 17:46
+{\unitlength=6mm%
+\begin{picture}%
+( 6.00000, 6.59000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\special{pa 470 -16}\special{pa 461 -52}\special{pa 451 -87}\special{pa 441 -121}%
+\special{pa 432 -154}\special{pa 422 -187}\special{pa 412 -219}\special{pa 402 -250}%
+\special{pa 393 -281}\special{pa 383 -311}\special{pa 373 -340}\special{pa 364 -368}%
+\special{pa 354 -396}\special{pa 344 -423}\special{pa 334 -449}\special{pa 325 -474}%
+\special{pa 315 -499}\special{pa 305 -523}\special{pa 296 -546}\special{pa 286 -568}%
+\special{pa 276 -590}\special{pa 266 -611}\special{pa 256 -631}\special{pa 247 -651}%
+\special{pa 240 -664}\special{pa 237 -669}\special{pa 227 -687}\special{pa 217 -705}%
+\special{pa 207 -721}\special{pa 197 -737}\special{pa 188 -752}\special{pa 178 -767}%
+\special{pa 168 -780}\special{pa 158 -793}\special{pa 148 -805}\special{pa 138 -816}%
+\special{pa 127 -827}\special{pa 117 -837}\special{pa 107 -846}\special{pa 96 -855}%
+\special{pa 85 -863}\special{pa 74 -870}\special{pa 63 -876}\special{pa 53 -880}\special{pa 41 -885}%
+\special{pa 32 -888}\special{pa 24 -889}\special{pa 18 -890}\special{pa 10 -891}\special{pa -1 -891}%
+\special{pa -13 -891}\special{pa -19 -890}\special{pa -26 -889}\special{pa -35 -887}%
+\special{pa -45 -883}\special{pa -59 -878}\special{pa -74 -870}\special{pa -85 -863}%
+\special{pa -96 -855}\special{pa -107 -846}\special{pa -117 -837}\special{pa -127 -827}%
+\special{pa -137 -817}\special{pa -148 -805}\special{pa -158 -793}\special{pa -165 -783}%
+\special{pa -178 -767}\special{pa -188 -752}\special{pa -197 -737}\special{pa -207 -721}%
+\special{pa -217 -705}\special{pa -227 -687}\special{pa -237 -669}\special{pa -247 -651}%
+\special{pa -256 -631}\special{pa -266 -611}\special{pa -276 -590}\special{pa -286 -568}%
+\special{pa -296 -546}\special{pa -305 -523}\special{pa -315 -499}\special{pa -325 -474}%
+\special{pa -327 -468}\special{pa -334 -449}\special{pa -344 -422}\special{pa -354 -396}%
+\special{pa -364 -368}\special{pa -373 -340}\special{pa -383 -311}\special{pa -393 -281}%
+\special{pa -402 -250}\special{pa -412 -219}\special{pa -422 -187}\special{pa -432 -154}%
+\special{pa -441 -121}\special{pa -451 -87}\special{pa -461 -52}\special{pa -470 -16}%
+\special{fp}%
+\special{pa -413 81}\special{pa -382 99}\special{pa -344 115}\special{pa -300 129}%
+\special{pa -252 142}\special{pa -200 152}\special{pa -145 159}\special{pa -87 165}%
+\special{pa -28 167}\special{pa 31 167}\special{pa 90 164}\special{pa 147 159}\special{pa 202 151}%
+\special{pa 254 141}\special{pa 302 129}\special{pa 345 114}\special{pa 383 98}\special{pa 415 80}%
+\special{pa 440 61}\special{pa 458 41}\special{pa 469 21}\special{pa 472 0}\special{pa 470 -16}%
+\special{fp}%
+\special{pa -469 -21}\special{pa -472 0}\special{pa -469 21}\special{pa -457 42}\special{pa -439 62}%
+\special{pa -413 81}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara04.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara04.tex
new file mode 100644
index 00000000..4ea7e247
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/sfbdpara04.tex
@@ -0,0 +1,51 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 17:48
+%%% template.sce 2016-8-22 17:48
+{\unitlength=6mm%
+\begin{picture}%
+( 6.00000, 6.59000)( -3.00000, -2.00000)%
+\special{pn 8}%
+%
+\special{pa 470 -16}\special{pa 461 -52}\special{pa 451 -87}\special{pa 441 -121}%
+\special{pa 432 -154}\special{pa 422 -187}\special{pa 412 -219}\special{pa 402 -250}%
+\special{pa 393 -281}\special{pa 383 -311}\special{pa 373 -340}\special{pa 364 -368}%
+\special{pa 354 -396}\special{pa 344 -423}\special{pa 334 -449}\special{pa 325 -474}%
+\special{pa 315 -499}\special{pa 305 -523}\special{pa 296 -546}\special{pa 286 -568}%
+\special{pa 276 -590}\special{pa 266 -611}\special{pa 256 -631}\special{pa 247 -651}%
+\special{pa 240 -664}\special{pa 237 -669}\special{pa 227 -687}\special{pa 217 -705}%
+\special{pa 207 -721}\special{pa 197 -737}\special{pa 188 -752}\special{pa 178 -767}%
+\special{pa 168 -780}\special{pa 158 -793}\special{pa 148 -805}\special{pa 138 -816}%
+\special{pa 127 -827}\special{pa 117 -837}\special{pa 107 -846}\special{pa 96 -855}%
+\special{pa 85 -863}\special{pa 74 -870}\special{pa 63 -876}\special{pa 53 -880}\special{pa 41 -885}%
+\special{pa 32 -888}\special{pa 24 -889}\special{pa 18 -890}\special{pa 10 -891}\special{pa -1 -891}%
+\special{pa -13 -891}\special{pa -19 -890}\special{pa -26 -889}\special{pa -35 -887}%
+\special{pa -45 -883}\special{pa -59 -878}\special{pa -74 -870}\special{pa -85 -863}%
+\special{pa -96 -855}\special{pa -107 -846}\special{pa -117 -837}\special{pa -127 -827}%
+\special{pa -137 -817}\special{pa -148 -805}\special{pa -158 -793}\special{pa -165 -783}%
+\special{pa -178 -767}\special{pa -188 -752}\special{pa -197 -737}\special{pa -207 -721}%
+\special{pa -217 -705}\special{pa -227 -687}\special{pa -237 -669}\special{pa -247 -651}%
+\special{pa -256 -631}\special{pa -266 -611}\special{pa -276 -590}\special{pa -286 -568}%
+\special{pa -296 -546}\special{pa -305 -523}\special{pa -315 -499}\special{pa -325 -474}%
+\special{pa -327 -468}\special{pa -334 -449}\special{pa -344 -422}\special{pa -354 -396}%
+\special{pa -364 -368}\special{pa -373 -340}\special{pa -383 -311}\special{pa -393 -281}%
+\special{pa -402 -250}\special{pa -412 -219}\special{pa -422 -187}\special{pa -432 -154}%
+\special{pa -441 -121}\special{pa -451 -87}\special{pa -461 -52}\special{pa -470 -16}%
+\special{fp}%
+\special{pa -413 81}\special{pa -382 99}\special{pa -344 115}\special{pa -300 129}%
+\special{pa -252 142}\special{pa -200 152}\special{pa -145 159}\special{pa -87 165}%
+\special{pa -28 167}\special{pa 31 167}\special{pa 90 164}\special{pa 147 159}\special{pa 202 151}%
+\special{pa 254 141}\special{pa 302 129}\special{pa 345 114}\special{pa 383 98}\special{pa 415 80}%
+\special{pa 440 61}\special{pa 458 41}\special{pa 469 21}\special{pa 472 0}\special{pa 470 -16}%
+\special{fp}%
+\special{pa -469 -21}\special{pa -472 0}\special{pa -469 21}\special{pa -457 42}\special{pa -439 62}%
+\special{pa -413 81}%
+\special{fp}%
+\special{pa 470 -16}\special{pa 469 -21}\special{pa 457 -42}\special{pa 451 -48}\special{fp}%
+\special{pa 423 -74}\special{pa 413 -81}\special{pa 391 -94}\special{fp}\special{pa 356 -109}\special{pa 344 -115}\special{pa 321 -123}\special{fp}%
+\special{pa 284 -133}\special{pa 252 -142}\special{pa 248 -143}\special{fp}\special{pa 210 -150}\special{pa 200 -152}\special{pa 173 -156}\special{fp}%
+\special{pa 135 -160}\special{pa 97 -164}\special{fp}\special{pa 59 -166}\special{pa 28 -167}\special{pa 21 -167}\special{fp}%
+\special{pa -17 -167}\special{pa -31 -167}\special{pa -55 -166}\special{fp}\special{pa -92 -164}\special{pa -130 -161}\special{fp}%
+\special{pa -168 -156}\special{pa -202 -151}\special{pa -206 -151}\special{fp}\special{pa -243 -143}\special{pa -254 -141}\special{pa -280 -135}\special{fp}%
+\special{pa -316 -124}\special{pa -345 -114}\special{pa -352 -111}\special{fp}\special{pa -387 -96}\special{pa -415 -80}\special{pa -419 -77}\special{fp}%
+\special{pa -448 -52}\special{pa -458 -41}\special{pa -469 -21}\special{fp}%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata01.tex
new file mode 100644
index 00000000..0d8dfb8d
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata01.tex
@@ -0,0 +1,81 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-17 20:38
+%%% template.sce 2016-8-17 20:38
+{\unitlength=6mm%
+\begin{picture}%
+( 5.73000, 5.88000)( -2.98000, -1.69000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7060,-0.4477){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.3501,-0.9282){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 650 -107}\special{pa 479 -79}%
+\special{fp}%
+\special{pa 434 -72}\special{pa -595 98}%
+\special{fp}%
+\special{pa -642 -253}\special{pa 115 45}%
+\special{fp}%
+\special{pa 167 66}\special{pa 513 203}%
+\special{fp}%
+\special{pa 0 399}\special{pa 0 94}%
+\special{fp}%
+\special{pa 0 57}\special{pa 0 -193}%
+\special{fp}%
+\special{pa 0 -230}\special{pa 0 -913}%
+\special{fp}%
+\special{pa -257 355}\special{pa -111 100}%
+\special{fp}%
+\special{pa -90 64}\special{pa -71 29}%
+\special{fp}%
+\special{pa -35 -33}\special{pa -14 -70}%
+\special{fp}%
+\special{pa 14 -120}\special{pa 61 -201}%
+\special{fp}%
+\special{pa 83 -240}\special{pa 327 -667}%
+\special{fp}%
+\special{pa -397 66}\special{pa -361 72}\special{pa -319 77}\special{pa -273 81}\special{pa -222 83}%
+\special{pa -167 84}\special{pa -110 83}\special{pa -51 79}\special{pa 9 74}\special{pa 69 67}%
+\special{pa 127 58}\special{pa 184 47}\special{pa 238 35}\special{pa 287 21}\special{pa 332 5}%
+\special{pa 372 -13}\special{pa 406 -31}\special{pa 433 -51}\special{pa 454 -71}\special{pa 467 -91}%
+\special{pa 472 -113}\special{pa 470 -134}\special{pa 460 -155}\special{pa 443 -175}%
+\special{pa 419 -195}\special{pa 388 -214}\special{pa 351 -232}\special{pa 308 -248}%
+\special{pa 293 -253}%
+\special{fp}%
+\special{pa 242 -268}\special{pa 208 -277}\special{pa 153 -288}\special{pa 133 -292}%
+\special{fp}%
+\special{pa 96 -298}\special{pa 95 -298}\special{pa 36 -306}\special{pa 18 -308}%
+\special{fp}%
+\special{pa -18 -311}\special{pa -24 -312}\special{pa -84 -316}\special{pa -142 -318}%
+\special{pa -198 -318}\special{pa -250 -317}\special{pa -299 -314}\special{pa -343 -309}%
+\special{pa -381 -303}\special{pa -414 -296}\special{pa -439 -288}\special{pa -458 -279}%
+\special{pa -469 -270}\special{pa -472 -261}\special{pa -468 -251}\special{pa -457 -242}%
+\special{pa -438 -233}\special{pa -412 -225}\special{pa -380 -218}\special{pa -341 -212}%
+\special{pa -297 -207}\special{pa -248 -204}\special{pa -195 -203}\special{pa -139 -203}%
+\special{pa -81 -206}\special{pa -21 -210}\special{pa 39 -216}\special{pa 98 -224}%
+\special{pa 156 -234}\special{pa 211 -246}\special{pa 263 -259}\special{pa 311 -274}%
+\special{pa 353 -291}\special{pa 390 -309}\special{pa 421 -328}\special{pa 444 -348}%
+\special{pa 461 -368}\special{pa 470 -389}\special{pa 472 -410}\special{pa 466 -431}%
+\special{pa 453 -452}\special{pa 432 -472}\special{pa 405 -491}\special{pa 370 -510}%
+\special{pa 330 -527}\special{pa 285 -543}\special{pa 277 -545}%
+\special{fp}%
+\special{pa 242 -555}\special{pa 235 -557}\special{pa 181 -570}\special{pa 124 -580}%
+\special{pa 66 -589}\special{pa 18 -595}%
+\special{fp}%
+\special{pa -18 -598}\special{pa -54 -601}\special{pa -113 -604}\special{pa -170 -605}%
+\special{pa -224 -605}\special{pa -275 -603}\special{pa -322 -599}\special{pa -363 -593}%
+\special{pa -398 -587}\special{pa -427 -579}\special{pa -449 -571}\special{pa -464 -562}%
+\special{pa -472 -552}\special{pa -471 -543}\special{pa -464 -533}\special{pa -448 -524}%
+\special{pa -426 -516}\special{pa -397 -508}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata02.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata02.tex
new file mode 100644
index 00000000..1f60f627
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata02.tex
@@ -0,0 +1,76 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-17 20:38
+%%% template.sce 2016-8-17 20:38
+{\unitlength=6mm%
+\begin{picture}%
+( 5.73000, 5.88000)( -2.98000, -1.69000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7060,-0.4477){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.3501,-0.9282){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 650 -107}\special{pa 502 -83}%
+\special{fp}%
+\special{pa 412 -68}\special{pa -595 98}%
+\special{fp}%
+\special{pa -642 -253}\special{pa 90 35}%
+\special{fp}%
+\special{pa 192 76}\special{pa 513 203}%
+\special{fp}%
+\special{pa 0 399}\special{pa 0 112}%
+\special{fp}%
+\special{pa 0 39}\special{pa 0 -176}%
+\special{fp}%
+\special{pa 0 -248}\special{pa 0 -913}%
+\special{fp}%
+\special{pa -257 355}\special{pa -122 118}%
+\special{fp}%
+\special{pa 28 -144}\special{pa 50 -182}%
+\special{fp}%
+\special{pa 93 -258}\special{pa 327 -667}%
+\special{fp}%
+\special{pa -397 66}\special{pa -361 72}\special{pa -319 77}\special{pa -273 81}\special{pa -222 83}%
+\special{pa -167 84}\special{pa -110 83}\special{pa -51 79}\special{pa 9 74}\special{pa 69 67}%
+\special{pa 127 58}\special{pa 184 47}\special{pa 238 35}\special{pa 287 21}\special{pa 332 5}%
+\special{pa 372 -13}\special{pa 406 -31}\special{pa 433 -51}\special{pa 454 -71}\special{pa 467 -91}%
+\special{pa 472 -113}\special{pa 470 -134}\special{pa 460 -155}\special{pa 443 -175}%
+\special{pa 419 -195}\special{pa 388 -214}\special{pa 351 -232}\special{pa 319 -244}%
+\special{fp}%
+\special{pa 216 -274}\special{pa 208 -277}\special{pa 153 -288}\special{pa 151 -288}%
+\special{fp}%
+\special{pa 77 -300}\special{pa 36 -306}\special{pa 35 -306}%
+\special{fp}%
+\special{pa -36 -313}\special{pa -84 -316}\special{pa -142 -318}\special{pa -198 -318}%
+\special{pa -250 -317}\special{pa -299 -314}\special{pa -343 -309}\special{pa -381 -303}%
+\special{pa -414 -296}\special{pa -439 -288}\special{pa -458 -279}\special{pa -469 -270}%
+\special{pa -472 -261}\special{pa -468 -251}\special{pa -457 -242}\special{pa -438 -233}%
+\special{pa -412 -225}\special{pa -380 -218}\special{pa -341 -212}\special{pa -297 -207}%
+\special{pa -248 -204}\special{pa -195 -203}\special{pa -139 -203}\special{pa -81 -206}%
+\special{pa -21 -210}\special{pa 39 -216}\special{pa 98 -224}\special{pa 156 -234}%
+\special{pa 211 -246}\special{pa 263 -259}\special{pa 311 -274}\special{pa 353 -291}%
+\special{pa 390 -309}\special{pa 421 -328}\special{pa 444 -348}\special{pa 461 -368}%
+\special{pa 470 -389}\special{pa 472 -410}\special{pa 466 -431}\special{pa 453 -452}%
+\special{pa 432 -472}\special{pa 405 -491}\special{pa 370 -510}\special{pa 330 -527}%
+\special{pa 295 -539}%
+\special{fp}%
+\special{pa 225 -559}\special{pa 181 -570}\special{pa 124 -580}\special{pa 66 -589}%
+\special{pa 35 -593}%
+\special{fp}%
+\special{pa -35 -600}\special{pa -54 -601}\special{pa -113 -604}\special{pa -170 -605}%
+\special{pa -224 -605}\special{pa -275 -603}\special{pa -322 -599}\special{pa -363 -593}%
+\special{pa -398 -587}\special{pa -427 -579}\special{pa -449 -571}\special{pa -464 -562}%
+\special{pa -472 -552}\special{pa -471 -543}\special{pa -464 -533}\special{pa -448 -524}%
+\special{pa -426 -516}\special{pa -397 -508}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata03.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata03.tex
new file mode 100644
index 00000000..9eaf162b
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/skeletonparadata03.tex
@@ -0,0 +1,68 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-17 20:36
+%%% template.sce 2016-8-17 20:36
+{\unitlength=6mm%
+\begin{picture}%
+( 5.73000, 5.88000)( -2.98000, -1.69000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7060,-0.4477){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.3501,-0.9282){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa -397 66}\special{pa -361 72}\special{pa -319 77}\special{pa -273 81}\special{pa -222 83}%
+\special{pa -167 84}\special{pa -110 83}\special{pa -51 79}\special{pa 9 74}\special{pa 69 67}%
+\special{pa 127 58}\special{pa 184 47}\special{pa 238 35}\special{pa 287 21}\special{pa 332 5}%
+\special{pa 372 -13}\special{pa 406 -31}\special{pa 433 -50}\special{pa 454 -71}\special{pa 467 -91}%
+\special{pa 472 -113}\special{pa 470 -134}\special{pa 460 -155}\special{pa 443 -175}%
+\special{pa 419 -195}\special{pa 388 -214}\special{pa 351 -232}\special{pa 308 -248}%
+\special{pa 260 -263}\special{pa 208 -277}\special{pa 153 -288}\special{pa 95 -298}%
+\special{pa 36 -306}\special{pa -24 -312}\special{pa -84 -316}\special{pa -142 -318}%
+\special{pa -198 -318}\special{pa -250 -317}\special{pa -299 -314}\special{pa -343 -309}%
+\special{pa -381 -303}\special{pa -414 -296}\special{pa -439 -288}\special{pa -458 -279}%
+\special{pa -469 -270}\special{pa -472 -261}\special{pa -468 -251}\special{pa -457 -242}%
+\special{pa -438 -233}\special{pa -412 -225}\special{pa -380 -218}\special{pa -341 -212}%
+\special{pa -297 -207}\special{pa -248 -204}\special{pa -195 -203}\special{pa -139 -203}%
+\special{pa -81 -206}\special{pa -21 -210}\special{pa 39 -216}\special{pa 98 -224}%
+\special{pa 156 -234}\special{pa 211 -246}\special{pa 263 -259}\special{pa 311 -274}%
+\special{pa 353 -291}\special{pa 390 -309}\special{pa 421 -328}\special{pa 444 -347}%
+\special{pa 461 -368}\special{pa 470 -389}\special{pa 472 -410}\special{pa 466 -431}%
+\special{pa 453 -452}\special{pa 432 -472}\special{pa 405 -491}\special{pa 370 -510}%
+\special{pa 330 -527}\special{pa 285 -543}\special{pa 235 -557}\special{pa 181 -570}%
+\special{pa 124 -580}\special{pa 66 -589}\special{pa 6 -596}\special{pa -54 -601}%
+\special{pa -113 -604}\special{pa -170 -605}\special{pa -224 -605}\special{pa -275 -603}%
+\special{pa -322 -599}\special{pa -363 -593}\special{pa -398 -587}\special{pa -427 -579}%
+\special{pa -449 -571}\special{pa -464 -562}\special{pa -472 -552}\special{pa -471 -543}%
+\special{pa -464 -533}\special{pa -448 -524}\special{pa -426 -516}\special{pa -397 -508}%
+\special{fp}%
+\special{pa -257 355}\special{pa -111 100}%
+\special{fp}%
+\special{pa -90 64}\special{pa 61 -201}%
+\special{fp}%
+\special{pa 83 -240}\special{pa 327 -667}%
+\special{fp}%
+\special{pa 650 -107}\special{pa 479 -79}%
+\special{fp}%
+\special{pa 434 -72}\special{pa -595 98}%
+\special{fp}%
+\special{pa -642 -253}\special{pa 115 45}%
+\special{fp}%
+\special{pa 167 66}\special{pa 513 203}%
+\special{fp}%
+\special{pa 0 399}\special{pa 0 94}%
+\special{fp}%
+\special{pa 0 57}\special{pa 0 -193}%
+\special{fp}%
+\special{pa 0 -230}\special{pa 0 -913}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/translate01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/translate01.tex
new file mode 100644
index 00000000..19281c08
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/translate01.tex
@@ -0,0 +1,53 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-12 20:47
+%%% template.sce 2016-8-12 20:47
+{\unitlength=8mm%
+\begin{picture}%
+( 7.59000, 6.02000)( -3.60000, -2.65000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-2.7342,-0.4211){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.3490,-1.3293){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,3.0968){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1257 -194}\special{pa -802 124}%
+\special{fp}%
+\special{pa -833 -330}\special{pa 999 397}%
+\special{fp}%
+\special{pa 0 835}\special{pa 0 -916}%
+\special{fp}%
+\special{pa 476 -20}\special{pa 947 167}%
+\special{fp}%
+\special{pa 947 167}\special{pa 333 743}%
+\special{fp}%
+\special{pa 476 -20}\special{pa 333 743}%
+\special{fp}%
+\special{pa -281 97}\special{pa 333 743}%
+\special{fp}%
+\special{pa 476 -20}\special{pa -281 97}%
+\special{fp}%
+\special{pa -281 97}\special{pa 333 -478}%
+\special{fp}%
+\special{pa 476 -20}\special{pa 333 -478}%
+\special{fp}%
+\special{pa 947 167}\special{pa 333 -478}%
+\special{fp}%
+\special{pa 947 167}\special{pa 191 284}%
+\special{fp}%
+\special{pa 191 284}\special{pa 333 743}%
+\special{fp}%
+\special{pa 191 284}\special{pa 333 -478}%
+\special{fp}%
+\special{pa 191 284}\special{pa -281 97}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/vertex01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/vertex01.tex
new file mode 100644
index 00000000..574b3b29
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/vertex01.tex
@@ -0,0 +1,20 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-9 9:51
+%%% template.sce 2016-8-9 9:51
+{\unitlength=8mm%
+\begin{picture}%
+( 6.32000, 5.44000)( -3.32000, -1.44000)%
+\special{pn 8}%
+%
+\special{pa 375 -221}\special{pa -727 -5}%
+\special{fp}%
+\special{pa -727 -5}\special{pa 352 226}%
+\special{fp}%
+\special{pa 375 -221}\special{pa 352 226}%
+\special{fp}%
+\special{pa -727 -5}\special{pa 0 -1020}%
+\special{fp}%
+\special{pa 375 -221}\special{pa 0 -1020}%
+\special{fp}%
+\special{pa 352 226}\special{pa 0 -1020}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara1.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara1.tex
new file mode 100644
index 00000000..c8ba75ae
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara1.tex
@@ -0,0 +1,202 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-13 19:41
+%%% template.sce 2016-8-13 19:41
+{\unitlength=4mm%
+\begin{picture}%
+( 10.01000, 9.42000)( -5.01000, -4.42000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.4262,-1.3033){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.7950,-2.1209){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.5961){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 668 -197}\special{pa -668 197}%
+\special{fp}%
+\special{pa -416 -316}\special{pa 416 316}%
+\special{fp}%
+\special{pa 0 694}\special{pa 0 -694}%
+\special{fp}%
+\special{pa -190 -298}\special{pa -183 -272}\special{pa -180 -262}\special{pa -177 -248}%
+\special{pa -170 -225}\special{pa -163 -204}\special{pa -159 -190}\special{pa -157 -183}%
+\special{pa -150 -163}\special{pa -148 -159}\special{pa -143 -145}\special{pa -137 -130}%
+\special{pa -130 -112}\special{pa -127 -105}\special{pa -123 -97}\special{pa -116 -83}%
+\special{pa -110 -70}\special{pa -105 -62}\special{pa -103 -58}\special{pa -96 -48}%
+\special{pa -90 -39}\special{pa -84 -31}\special{pa -76 -23}\special{pa -73 -20}\special{pa -70 -17}%
+\special{pa -63 -12}\special{pa -56 -9}\special{pa -52 -7}\special{pa -43 -5}\special{pa -36 -4}%
+\special{pa -30 -5}\special{pa -23 -7}\special{pa -16 -10}\special{pa -10 -15}\special{pa -3 -20}%
+\special{pa 2 -24}\special{pa 10 -34}\special{pa 17 -43}\special{pa 23 -52}\special{pa 30 -64}%
+\special{pa 34 -70}\special{pa 37 -76}\special{pa 44 -89}\special{pa 50 -104}\special{pa 55 -115}%
+\special{pa 57 -119}\special{pa 64 -136}\special{pa 66 -142}\special{pa 71 -154}\special{pa 77 -172}%
+\special{pa 84 -193}\special{pa 88 -204}\special{pa 91 -214}\special{pa 97 -236}\special{pa 98 -240}%
+\special{pa 104 -260}\special{pa 109 -279}\special{pa 111 -284}\special{pa 117 -310}%
+\special{pa 120 -320}\special{pa 124 -337}\special{pa 131 -364}\special{pa 137 -394}%
+\special{fp}%
+\special{pa -434 -48}\special{pa -427 -87}\special{pa -420 -124}\special{pa -413 -160}%
+\special{pa -407 -193}\special{pa -400 -225}\special{pa -393 -255}\special{pa -386 -283}%
+\special{pa -379 -310}\special{pa -373 -334}\special{pa -366 -357}\special{pa -359 -377}%
+\special{pa -352 -396}\special{pa -345 -413}\special{pa -339 -429}\special{pa -332 -442}%
+\special{pa -325 -453}\special{pa -318 -463}\special{pa -312 -471}\special{pa -305 -477}%
+\special{pa -298 -481}\special{pa -291 -483}\special{pa -284 -483}\special{pa -278 -482}%
+\special{pa -271 -479}\special{pa -264 -474}\special{pa -257 -467}\special{pa -250 -458}%
+\special{pa -244 -447}\special{pa -237 -434}\special{pa -230 -420}\special{pa -223 -404}%
+\special{pa -216 -386}\special{pa -210 -366}\special{pa -203 -344}\special{pa -196 -320}%
+\special{pa -189 -295}\special{pa -182 -267}\special{pa -176 -238}\special{pa -169 -207}%
+\special{pa -162 -174}\special{pa -155 -140}\special{pa -148 -103}\special{pa -142 -64}%
+\special{pa -135 -24}\special{pa -128 18}\special{pa -121 62}\special{pa -114 108}%
+\special{pa -108 156}\special{pa -101 205}%
+\special{fp}%
+\special{pa 434 48}\special{pa 423 95}\special{pa 412 141}\special{pa 401 185}\special{pa 390 227}%
+\special{pa 379 267}\special{pa 368 306}\special{pa 357 342}\special{pa 347 377}\special{pa 336 409}%
+\special{pa 325 440}\special{pa 314 470}\special{pa 303 497}\special{pa 292 522}\special{pa 281 546}%
+\special{pa 270 567}\special{pa 259 587}\special{pa 248 605}\special{pa 237 622}\special{pa 227 636}%
+\special{pa 216 648}\special{pa 205 659}\special{pa 194 668}\special{pa 183 675}\special{pa 172 680}%
+\special{pa 161 683}\special{pa 150 684}\special{pa 139 684}\special{pa 128 681}\special{pa 117 677}%
+\special{pa 107 671}\special{pa 96 663}\special{pa 85 654}\special{pa 74 642}\special{pa 63 629}%
+\special{pa 52 613}\special{pa 41 596}\special{pa 30 577}\special{pa 19 556}\special{pa 8 534}%
+\special{pa -3 509}\special{pa -14 483}\special{pa -24 454}\special{pa -35 424}\special{pa -46 392}%
+\special{pa -57 359}\special{pa -68 323}\special{pa -79 286}\special{pa -90 246}\special{pa -101 205}%
+\special{fp}%
+\special{pa 137 -394}\special{pa 142 -413}\special{pa 148 -441}\special{pa 155 -467}%
+\special{pa 162 -492}\special{pa 169 -514}\special{pa 176 -535}\special{pa 182 -554}%
+\special{pa 189 -571}\special{pa 196 -586}\special{pa 203 -599}\special{pa 210 -611}%
+\special{pa 216 -620}\special{pa 223 -628}\special{pa 230 -634}\special{pa 237 -638}%
+\special{pa 244 -641}\special{pa 250 -641}\special{pa 257 -639}\special{pa 264 -636}%
+\special{pa 271 -631}\special{pa 278 -624}\special{pa 284 -615}\special{pa 291 -604}%
+\special{pa 298 -592}\special{pa 305 -577}\special{pa 312 -561}\special{pa 318 -543}%
+\special{pa 325 -523}\special{pa 332 -501}\special{pa 339 -478}\special{pa 345 -452}%
+\special{pa 352 -425}\special{pa 359 -396}\special{pa 366 -365}\special{pa 373 -332}%
+\special{pa 379 -297}\special{pa 386 -260}\special{pa 393 -222}\special{pa 400 -182}%
+\special{pa 407 -139}\special{pa 413 -95}\special{pa 420 -50}\special{pa 427 -2}\special{pa 434 48}%
+\special{fp}%
+\special{pa -68 324}\special{pa -74 335}\special{pa -85 353}\special{pa -96 369}\special{pa -107 383}%
+\special{pa -117 396}\special{pa -128 406}\special{pa -139 415}\special{pa -150 422}%
+\special{pa -161 427}\special{pa -172 430}\special{pa -183 431}\special{pa -194 431}%
+\special{pa -205 429}\special{pa -216 424}\special{pa -227 418}\special{pa -237 411}%
+\special{pa -248 401}\special{pa -259 389}\special{pa -270 376}\special{pa -281 361}%
+\special{pa -292 343}\special{pa -303 324}\special{pa -314 304}\special{pa -325 281}%
+\special{pa -336 256}\special{pa -347 230}\special{pa -357 202}\special{pa -368 172}%
+\special{pa -379 140}\special{pa -390 106}\special{pa -401 70}\special{pa -412 33}%
+\special{pa -423 -6}\special{pa -434 -48}%
+\special{fp}%
+\special{pa 67 -135}\special{pa 72 -153}\special{pa 78 -175}\special{pa 85 -196}\special{pa 92 -215}%
+\special{pa 98 -232}\special{pa 105 -247}\special{pa 112 -261}\special{pa 118 -273}%
+\special{pa 125 -283}\special{pa 132 -291}\special{pa 138 -298}\special{pa 145 -302}%
+\special{pa 152 -305}\special{pa 158 -306}\special{pa 165 -306}\special{pa 172 -303}%
+\special{pa 178 -299}\special{pa 185 -293}\special{pa 192 -286}\special{pa 198 -276}%
+\special{pa 205 -265}\special{pa 212 -252}\special{pa 218 -237}\special{pa 225 -220}%
+\special{pa 232 -202}\special{pa 238 -182}\special{pa 245 -160}\special{pa 251 -136}%
+\special{pa 258 -111}\special{pa 265 -83}\special{pa 271 -54}\special{pa 278 -24}%
+\special{pa 285 9}\special{pa 291 43}\special{pa 298 80}\special{pa 305 117}\special{pa 311 157}%
+\special{pa 318 199}\special{pa 325 242}\special{pa 331 287}\special{pa 338 334}\special{pa 345 382}%
+\special{fp}%
+\special{pa -77 341}\special{pa -72 310}%
+\special{fp}%
+\special{pa 19 -42}\special{pa 23 -50}\special{pa 29 -61}\special{pa 36 -72}\special{pa 42 -80}%
+\special{pa 49 -86}\special{pa 56 -91}\special{pa 62 -94}\special{pa 69 -95}\special{pa 76 -94}%
+\special{pa 82 -92}\special{pa 89 -88}\special{pa 96 -82}\special{pa 102 -74}\special{pa 109 -65}%
+\special{pa 116 -53}\special{pa 122 -40}\special{pa 129 -26}\special{pa 136 -9}\special{pa 142 9}%
+\special{pa 149 30}\special{pa 156 51}\special{pa 162 75}\special{pa 169 101}\special{pa 176 128}%
+\special{pa 182 157}\special{pa 189 188}\special{pa 196 220}\special{pa 202 255}\special{pa 209 291}%
+\special{pa 216 329}\special{pa 222 368}\special{pa 229 410}\special{pa 236 453}\special{pa 242 498}%
+\special{pa 249 545}\special{pa 256 594}%
+\special{fp}%
+\special{pa -167 429}\special{pa -160 390}\special{pa -153 354}\special{pa -147 319}%
+\special{pa -140 286}\special{pa -133 254}\special{pa -127 225}\special{pa -120 197}%
+\special{pa -113 171}\special{pa -109 155}%
+\special{fp}%
+\special{pa -30 -5}\special{pa -27 -6}\special{pa -20 -7}\special{pa -13 -7}\special{pa -7 -4}%
+\special{pa 0 0}\special{pa 7 6}\special{pa 13 14}\special{pa 20 23}\special{pa 27 34}%
+\special{pa 33 47}\special{pa 40 62}\special{pa 47 79}\special{pa 53 97}\special{pa 60 117}%
+\special{pa 67 139}\special{pa 73 163}\special{pa 80 189}\special{pa 87 216}\special{pa 93 245}%
+\special{pa 100 276}\special{pa 107 308}\special{pa 113 343}\special{pa 120 379}\special{pa 127 417}%
+\special{pa 133 456}\special{pa 140 498}\special{pa 147 541}\special{pa 153 586}\special{pa 160 633}%
+\special{pa 167 681}%
+\special{fp}%
+\special{pa -256 393}\special{pa -249 355}\special{pa -242 318}\special{pa -236 283}%
+\special{pa -229 250}\special{pa -222 219}\special{pa -216 189}\special{pa -209 161}%
+\special{pa -202 135}\special{pa -196 111}\special{pa -189 89}\special{pa -182 68}%
+\special{pa -176 49}\special{pa -169 32}\special{pa -162 16}\special{pa -156 3}\special{pa -149 -9}%
+\special{pa -142 -19}\special{pa -136 -27}%
+\special{fp}%
+\special{pa -84 -31}\special{pa -82 -29}\special{pa -76 -22}\special{pa -69 -12}\special{pa -62 -1}%
+\special{pa -56 12}\special{pa -49 27}\special{pa -42 43}\special{pa -36 62}\special{pa -29 82}%
+\special{pa -23 104}\special{pa -16 128}\special{pa -9 153}\special{pa -3 180}\special{pa 4 209}%
+\special{pa 11 240}\special{pa 17 273}\special{pa 24 307}\special{pa 31 343}\special{pa 37 381}%
+\special{pa 44 421}\special{pa 51 462}\special{pa 57 506}\special{pa 64 551}\special{pa 71 597}%
+\special{pa 77 646}%
+\special{fp}%
+\special{pa -345 235}\special{pa -338 196}\special{pa -331 159}\special{pa -325 124}%
+\special{pa -318 91}\special{pa -311 60}\special{pa -305 30}\special{pa -298 3}\special{pa -291 -23}%
+\special{pa -285 -48}\special{pa -278 -70}\special{pa -271 -91}\special{pa -265 -110}%
+\special{pa -258 -127}\special{pa -251 -142}\special{pa -245 -156}\special{pa -238 -168}%
+\special{pa -232 -178}\special{pa -225 -186}\special{pa -218 -193}\special{pa -212 -197}%
+\special{pa -205 -200}\special{pa -198 -201}\special{pa -192 -201}\special{pa -185 -198}%
+\special{pa -178 -194}\special{pa -172 -188}\special{pa -165 -181}\special{pa -163 -177}%
+\special{fp}%
+\special{pa -152 -160}\special{pa -145 -147}\special{pa -138 -132}\special{pa -132 -115}%
+\special{pa -125 -97}\special{pa -118 -77}\special{pa -112 -55}\special{pa -105 -31}%
+\special{pa -98 -6}\special{pa -92 22}\special{pa -85 51}\special{pa -78 81}\special{pa -72 114}%
+\special{pa -65 148}\special{pa -58 185}\special{pa -52 222}\special{pa -45 262}\special{pa -38 304}%
+\special{pa -32 347}\special{pa -25 392}\special{pa -18 439}\special{pa -12 487}%
+\special{fp}%
+\special{pa 167 -510}\special{pa 157 -463}\special{pa 146 -418}\special{pa 135 -375}%
+\special{pa 125 -334}\special{pa 114 -294}\special{pa 103 -256}\special{pa 93 -220}%
+\special{pa 82 -186}\special{pa 71 -154}\special{pa 60 -123}\special{pa 50 -94}\special{pa 47 -88}%
+\special{fp}%
+\special{pa -111 126}\special{pa -121 127}\special{pa -132 125}\special{pa -143 122}%
+\special{pa -153 118}\special{pa -164 111}\special{pa -175 103}\special{pa -185 92}%
+\special{pa -196 80}\special{pa -207 67}\special{pa -218 51}\special{pa -228 34}\special{pa -239 15}%
+\special{pa -250 -6}\special{pa -260 -29}\special{pa -271 -53}\special{pa -282 -79}%
+\special{pa -292 -107}\special{pa -303 -137}\special{pa -314 -168}\special{pa -324 -202}%
+\special{pa -335 -237}\special{pa -346 -273}\special{pa -357 -312}\special{pa -367 -352}%
+\special{fp}%
+\special{pa 234 -637}\special{pa 223 -590}\special{pa 213 -545}\special{pa 202 -502}%
+\special{pa 191 -461}\special{pa 181 -421}\special{pa 170 -384}\special{pa 159 -348}%
+\special{pa 148 -313}\special{pa 138 -281}\special{pa 127 -250}\special{pa 116 -221}%
+\special{pa 106 -194}\special{pa 95 -169}\special{pa 84 -145}\special{pa 74 -123}%
+\special{pa 63 -103}\special{pa 52 -85}\special{pa 42 -69}\special{pa 31 -54}\special{pa 20 -41}%
+\special{pa 9 -30}\special{pa -1 -21}\special{pa -12 -13}\special{pa -23 -7}\special{pa -30 -4}%
+\special{fp}%
+\special{pa -140 -60}\special{pa -151 -76}\special{pa -162 -93}\special{pa -172 -112}%
+\special{pa -183 -133}\special{pa -194 -156}\special{pa -204 -180}\special{pa -215 -206}%
+\special{pa -226 -234}\special{pa -236 -264}\special{pa -247 -295}\special{pa -258 -329}%
+\special{pa -269 -364}\special{pa -279 -400}\special{pa -290 -439}\special{pa -301 -479}%
+\special{fp}%
+\special{pa 301 -586}\special{pa 290 -540}\special{pa 279 -495}\special{pa 269 -452}%
+\special{pa 258 -410}\special{pa 247 -371}\special{pa 236 -333}\special{pa 226 -297}%
+\special{pa 215 -263}\special{pa 204 -230}\special{pa 194 -200}\special{pa 183 -171}%
+\special{pa 172 -144}\special{pa 162 -118}\special{pa 151 -95}\special{pa 140 -73}%
+\special{pa 130 -53}\special{pa 119 -35}\special{pa 108 -18}\special{pa 97 -3}\special{pa 87 10}%
+\special{pa 76 21}\special{pa 65 30}\special{pa 55 38}\special{pa 44 43}\special{pa 33 47}%
+\special{pa 23 50}\special{pa 12 50}\special{pa 1 49}\special{pa -9 46}\special{pa -20 41}%
+\special{pa -31 34}\special{pa -42 26}\special{pa -52 16}\special{pa -63 4}\special{pa -74 -10}%
+\special{pa -84 -25}\special{pa -95 -43}\special{pa -106 -62}\special{pa -116 -83}%
+\special{pa -127 -105}\special{pa -138 -130}\special{pa -148 -156}\special{pa -159 -184}%
+\special{pa -161 -189}%
+\special{fp}%
+\special{pa -170 -213}\special{pa -181 -245}\special{pa -191 -278}\special{pa -202 -313}%
+\special{pa -213 -350}\special{pa -223 -389}\special{pa -234 -429}%
+\special{fp}%
+\special{pa 367 -358}\special{pa 357 -311}\special{pa 346 -267}\special{pa 335 -223}%
+\special{pa 324 -182}\special{pa 314 -143}\special{pa 303 -105}\special{pa 292 -69}%
+\special{pa 282 -35}\special{pa 271 -2}\special{pa 260 29}\special{pa 250 57}\special{pa 239 85}%
+\special{pa 228 110}\special{pa 218 134}\special{pa 207 155}\special{pa 196 175}\special{pa 185 194}%
+\special{pa 175 210}\special{pa 164 225}\special{pa 153 238}\special{pa 143 249}\special{pa 132 258}%
+\special{pa 121 266}\special{pa 111 272}\special{pa 100 276}\special{pa 89 278}\special{pa 79 278}%
+\special{pa 68 277}\special{pa 57 274}\special{pa 46 269}\special{pa 36 263}\special{pa 25 254}%
+\special{pa 14 244}\special{pa 4 232}\special{pa -7 218}\special{pa -18 203}\special{pa -28 186}%
+\special{pa -39 166}\special{pa -50 146}\special{pa -60 123}\special{pa -71 99}\special{pa -82 73}%
+\special{pa -93 45}\special{pa -103 15}\special{pa -114 -17}\special{pa -125 -50}%
+\special{pa -135 -85}\special{pa -146 -122}\special{pa -157 -160}\special{pa -167 -201}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara2.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara2.tex
new file mode 100644
index 00000000..7f2d41c4
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara2.tex
@@ -0,0 +1,179 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-13 20:26
+%%% template.sce 2016-8-13 20:26
+{\unitlength=4mm%
+\begin{picture}%
+( 10.01000, 9.42000)( -5.01000, -4.42000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-4.7181,-1.0387){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.2443,-2.2778){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.5961){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 714 -157}\special{pa -714 157}%
+\special{fp}%
+\special{pa -332 -337}\special{pa 332 337}%
+\special{fp}%
+\special{pa 0 694}\special{pa 0 -694}%
+\special{fp}%
+\special{pa 312 -20}\special{pa 306 -42}\special{pa 299 -64}\special{pa 293 -86}\special{pa 286 -107}%
+\special{pa 280 -128}\special{pa 273 -148}\special{pa 267 -167}\special{pa 260 -186}%
+\special{pa 254 -205}\special{pa 247 -223}\special{pa 241 -241}\special{pa 234 -259}%
+\special{pa 227 -275}\special{pa 221 -292}\special{pa 214 -308}\special{pa 208 -323}%
+\special{pa 201 -338}\special{pa 195 -353}\special{pa 188 -367}\special{pa 182 -381}%
+\special{pa 175 -394}\special{pa 170 -403}\special{pa 162 -419}\special{pa 155 -431}%
+\special{pa 148 -442}\special{pa 142 -453}\special{pa 135 -463}\special{pa 128 -473}%
+\special{pa 121 -483}\special{pa 115 -492}\special{pa 108 -499}\special{pa 101 -508}%
+\special{pa 94 -516}\special{pa 87 -523}\special{pa 79 -530}\special{pa 72 -536}\special{pa 64 -542}%
+\special{pa 58 -546}\special{pa 48 -552}\special{pa 45 -554}\special{pa 39 -556}\special{pa 34 -558}%
+\special{pa 29 -560}\special{pa 19 -563}\special{pa 15 -564}\special{pa 7 -565}\special{pa 2 -565}%
+\special{pa -3 -565}\special{pa -9 -565}\special{pa -15 -564}\special{pa -21 -563}%
+\special{pa -29 -561}\special{pa -37 -557}\special{pa -48 -552}\special{pa -57 -547}%
+\special{pa -63 -543}\special{pa -72 -536}\special{pa -79 -530}\special{pa -85 -525}%
+\special{pa -94 -516}\special{pa -101 -508}\special{pa -108 -500}\special{pa -115 -492}%
+\special{pa -121 -483}\special{pa -128 -473}\special{pa -135 -463}\special{pa -142 -453}%
+\special{pa -148 -442}\special{pa -155 -431}\special{pa -162 -419}\special{pa -168 -407}%
+\special{pa -175 -394}\special{pa -182 -381}\special{pa -188 -367}\special{pa -195 -353}%
+\special{pa -201 -338}\special{pa -208 -323}\special{pa -214 -308}\special{pa -221 -292}%
+\special{pa -228 -275}\special{pa -234 -259}\special{pa -241 -241}\special{pa -247 -223}%
+\special{pa -254 -205}\special{pa -260 -186}\special{pa -267 -167}\special{pa -273 -148}%
+\special{pa -280 -128}\special{pa -286 -107}\special{pa -293 -86}\special{pa -299 -64}%
+\special{pa -306 -42}\special{pa -312 -20}%
+\special{fp}%
+\special{pa -286 63}\special{pa -266 80}\special{pa -242 95}\special{pa -215 109}%
+\special{pa -184 121}\special{pa -149 131}\special{pa -113 139}\special{pa -74 145}%
+\special{pa -34 148}\special{pa 6 149}\special{pa 46 147}\special{pa 86 143}\special{pa 124 137}%
+\special{pa 160 128}\special{pa 193 118}\special{pa 223 105}\special{pa 250 91}\special{pa 272 75}%
+\special{pa 290 58}\special{pa 304 40}\special{pa 312 21}\special{pa 315 2}\special{pa 313 -17}%
+\special{pa 306 -36}%
+\special{fp}%
+\special{pa -308 -30}\special{pa -314 -11}\special{pa -315 8}\special{pa -310 27}%
+\special{pa -300 45}\special{pa -286 63}%
+\special{fp}%
+\special{pa -48 -529}\special{pa -44 -526}\special{pa -41 -524}\special{pa -36 -522}%
+\special{pa -31 -520}\special{pa -25 -518}\special{pa -20 -517}\special{pa -13 -516}%
+\special{pa -7 -515}\special{pa 0 -515}\special{pa 6 -515}\special{pa 13 -516}\special{pa 19 -517}%
+\special{pa 25 -518}\special{pa 31 -520}\special{pa 36 -522}\special{pa 40 -524}\special{pa 44 -526}%
+\special{pa 47 -529}\special{pa 52 -535}\special{pa 52 -541}\special{pa 50 -547}\special{pa 44 -553}%
+\special{pa 41 -555}\special{pa 36 -558}\special{pa 31 -560}\special{pa 25 -561}\special{pa 20 -563}%
+\special{pa 13 -564}\special{pa 7 -564}\special{pa 0 -565}\special{pa -6 -564}\special{pa -13 -564}%
+\special{pa -19 -563}\special{pa -25 -561}\special{pa -31 -560}\special{pa -36 -558}%
+\special{pa -40 -556}\special{pa -44 -553}\special{pa -47 -550}\special{pa -52 -544}%
+\special{pa -52 -538}\special{pa -50 -532}\special{pa -48 -529}%
+\special{fp}%
+\special{pa -95 -472}\special{pa -89 -467}\special{pa -81 -462}\special{pa -72 -457}%
+\special{pa -62 -453}\special{pa -51 -450}\special{pa -39 -447}\special{pa -27 -445}%
+\special{pa -14 -444}\special{pa 0 -444}\special{pa 13 -444}\special{pa 26 -445}\special{pa 38 -447}%
+\special{pa 50 -450}\special{pa 61 -453}\special{pa 72 -457}\special{pa 81 -462}\special{pa 88 -467}%
+\special{pa 95 -472}\special{pa 100 -478}\special{pa 103 -484}\special{pa 105 -490}%
+\special{pa 105 -496}\special{pa 103 -503}\special{pa 100 -509}\special{pa 95 -514}%
+\special{pa 89 -520}\special{pa 86 -522}%
+\special{fp}%
+\special{pa -94 -516}\special{pa -95 -515}\special{pa -100 -509}\special{pa -103 -503}%
+\special{pa -105 -497}\special{pa -105 -491}\special{pa -103 -484}\special{pa -100 -478}%
+\special{pa -95 -472}%
+\special{fp}%
+\special{pa -143 -385}\special{pa -133 -377}\special{pa -122 -369}\special{pa -108 -362}%
+\special{pa -93 -356}\special{pa -76 -351}\special{pa -59 -347}\special{pa -40 -344}%
+\special{pa -20 -343}\special{pa -1 -342}\special{pa 19 -342}\special{pa 39 -344}%
+\special{pa 57 -347}\special{pa 75 -351}\special{pa 92 -356}\special{pa 107 -362}%
+\special{pa 121 -369}\special{pa 133 -376}\special{pa 142 -384}\special{pa 150 -393}%
+\special{pa 155 -402}\special{pa 157 -411}\special{pa 157 -421}\special{pa 155 -430}%
+\special{pa 150 -439}%
+\special{fp}%
+\special{pa -148 -442}\special{pa -150 -440}\special{pa -155 -431}\special{pa -157 -421}%
+\special{pa -157 -412}\special{pa -155 -403}\special{pa -150 -394}\special{pa -143 -385}%
+\special{fp}%
+\special{pa -190 -266}\special{pa -178 -256}\special{pa -162 -245}\special{pa -144 -236}%
+\special{pa -124 -228}\special{pa -102 -222}\special{pa -78 -216}\special{pa -53 -212}%
+\special{pa -27 -210}\special{pa -1 -209}\special{pa 25 -210}\special{pa 51 -212}%
+\special{pa 77 -216}\special{pa 100 -221}\special{pa 123 -228}\special{pa 143 -236}%
+\special{pa 161 -245}\special{pa 177 -255}\special{pa 190 -266}\special{pa 199 -277}%
+\special{pa 206 -289}\special{pa 210 -302}\special{pa 210 -314}\special{pa 206 -327}%
+\special{pa 200 -338}%
+\special{fp}%
+\special{pa -199 -339}\special{pa -206 -327}\special{pa -210 -315}\special{pa -210 -303}%
+\special{pa -206 -290}\special{pa -200 -278}\special{pa -190 -266}%
+\special{fp}%
+\special{pa -238 -117}\special{pa -222 -104}\special{pa -203 -91}\special{pa -180 -80}%
+\special{pa -155 -70}\special{pa -127 -61}\special{pa -98 -54}\special{pa -66 -50}%
+\special{pa -34 -47}\special{pa -1 -46}\special{pa 32 -46}\special{pa 64 -49}\special{pa 96 -54}%
+\special{pa 126 -61}\special{pa 153 -69}\special{pa 179 -79}\special{pa 202 -90}\special{pa 221 -103}%
+\special{pa 237 -116}\special{pa 249 -131}\special{pa 258 -146}\special{pa 262 -161}%
+\special{pa 262 -177}\special{pa 258 -192}\special{pa 252 -204}%
+\special{fp}%
+\special{pa -252 -204}\special{pa -258 -193}\special{pa -262 -178}\special{pa -262 -162}%
+\special{pa -258 -147}\special{pa -250 -132}\special{pa -238 -117}%
+\special{fp}%
+\special{pa 0 -555}\special{pa -4 -549}\special{pa -6 -545}\special{pa -9 -540}\special{pa -11 -536}%
+\special{pa -13 -530}\special{pa -15 -525}\special{pa -17 -519}\special{pa -19 -512}%
+\special{pa -22 -505}\special{pa -24 -497}\special{pa -26 -490}\special{pa -28 -481}%
+\special{pa -30 -472}\special{pa -32 -463}\special{pa -35 -453}\special{pa -37 -443}%
+\special{pa -39 -433}\special{pa -41 -422}\special{pa -43 -410}\special{pa -45 -398}%
+\special{pa -47 -386}\special{pa -50 -373}\special{pa -52 -360}\special{pa -54 -346}%
+\special{pa -56 -332}\special{pa -58 -318}\special{pa -60 -303}\special{pa -63 -287}%
+\special{pa -65 -271}\special{pa -67 -255}\special{pa -69 -238}\special{pa -71 -221}%
+\special{pa -73 -203}\special{pa -76 -185}\special{pa -78 -167}\special{pa -80 -148}%
+\special{pa -82 -128}\special{pa -84 -108}\special{pa -86 -88}\special{pa -88 -67}%
+\special{pa -91 -46}\special{pa -93 -24}\special{pa -95 -2}\special{pa -97 20}\special{pa -99 43}%
+\special{pa -101 67}\special{pa -104 91}\special{pa -106 115}\special{pa -108 140}%
+\special{fp}%
+\special{pa 0 -555}\special{pa 3 -552}\special{pa 5 -549}\special{pa 8 -545}\special{pa 11 -541}%
+\special{pa 13 -536}\special{pa 16 -531}\special{pa 19 -525}\special{pa 21 -519}\special{pa 24 -513}%
+\special{pa 27 -506}\special{pa 29 -499}\special{pa 32 -491}\special{pa 35 -482}\special{pa 37 -474}%
+\special{pa 40 -465}\special{pa 43 -455}\special{pa 45 -445}\special{pa 48 -435}\special{pa 51 -424}%
+\special{pa 53 -412}\special{pa 56 -401}\special{pa 59 -388}\special{pa 61 -376}\special{pa 64 -362}%
+\special{pa 66 -349}\special{pa 69 -335}\special{pa 72 -320}\special{pa 74 -305}\special{pa 77 -290}%
+\special{pa 80 -274}\special{pa 82 -258}\special{pa 85 -241}\special{pa 88 -224}\special{pa 90 -207}%
+\special{pa 93 -189}\special{pa 96 -170}\special{pa 98 -151}\special{pa 101 -132}%
+\special{pa 104 -112}\special{pa 106 -92}\special{pa 109 -71}\special{pa 112 -50}%
+\special{pa 114 -28}\special{pa 117 -6}\special{pa 120 16}\special{pa 122 39}\special{pa 125 62}%
+\special{pa 128 86}\special{pa 130 110}\special{pa 133 135}%
+\special{fp}%
+\special{pa 0 -555}\special{pa 6 -554}\special{pa 12 -552}\special{pa 18 -550}\special{pa 24 -547}%
+\special{pa 30 -544}\special{pa 36 -541}\special{pa 41 -537}\special{pa 47 -533}\special{pa 53 -528}%
+\special{pa 59 -523}\special{pa 65 -517}\special{pa 71 -511}\special{pa 77 -504}\special{pa 83 -497}%
+\special{pa 89 -490}\special{pa 95 -482}\special{pa 101 -474}\special{pa 107 -465}%
+\special{pa 112 -456}\special{pa 118 -446}\special{pa 124 -436}\special{pa 130 -425}%
+\special{pa 136 -414}\special{pa 142 -403}\special{pa 148 -391}\special{pa 154 -378}%
+\special{pa 160 -366}\special{pa 166 -352}\special{pa 172 -339}\special{pa 178 -325}%
+\special{pa 183 -310}\special{pa 189 -295}\special{pa 195 -280}\special{pa 201 -264}%
+\special{pa 207 -247}\special{pa 213 -231}\special{pa 219 -213}\special{pa 225 -196}%
+\special{pa 231 -178}\special{pa 237 -159}\special{pa 243 -140}\special{pa 249 -121}%
+\special{pa 254 -101}\special{pa 260 -80}\special{pa 266 -60}\special{pa 272 -38}%
+\special{pa 278 -17}\special{pa 284 5}\special{pa 290 28}\special{pa 296 51}%
+\special{fp}%
+\special{pa 0 -555}\special{pa 6 -556}\special{pa 11 -557}\special{pa 17 -557}\special{pa 23 -557}%
+\special{pa 29 -556}\special{pa 34 -555}\special{pa 40 -553}\special{pa 46 -551}\special{pa 51 -548}%
+\special{pa 57 -545}\special{pa 63 -542}\special{pa 69 -538}\special{pa 74 -534}\special{pa 80 -529}%
+\special{pa 86 -524}\special{pa 91 -518}\special{pa 97 -512}\special{pa 103 -506}%
+\special{pa 108 -499}\special{pa 114 -491}\special{pa 120 -484}\special{pa 126 -475}%
+\special{pa 131 -467}\special{pa 137 -457}\special{pa 143 -448}\special{pa 148 -438}%
+\special{pa 153 -429}%
+\special{fp}%
+\special{pa 0 -555}\special{pa 4 -560}\special{pa 9 -563}\special{pa 13 -564}%
+\special{fp}%
+\special{pa 0 -555}\special{pa -5 -560}\special{pa -11 -562}\special{pa -15 -563}%
+\special{fp}%
+\special{pa 0 -555}\special{pa -6 -556}\special{pa -12 -556}\special{pa -18 -556}%
+\special{pa -24 -556}\special{pa -30 -555}\special{pa -36 -553}\special{pa -41 -551}%
+\special{pa -47 -549}\special{pa -53 -546}\special{pa -59 -543}\special{pa -65 -539}%
+\special{pa -71 -535}\special{pa -77 -531}\special{pa -83 -526}\special{pa -89 -520}%
+\special{pa -95 -515}\special{pa -101 -508}\special{pa -107 -502}\special{pa -112 -494}%
+\special{pa -118 -487}\special{pa -124 -479}\special{pa -130 -470}\special{pa -136 -461}%
+\special{pa -142 -452}\special{pa -148 -442}\special{pa -154 -432}\special{pa -160 -421}%
+\special{pa -166 -410}\special{pa -172 -398}\special{pa -178 -386}\special{pa -183 -373}%
+\special{pa -189 -360}\special{pa -195 -347}\special{pa -201 -333}\special{pa -207 -319}%
+\special{pa -213 -304}\special{pa -218 -291}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara3.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara3.tex
new file mode 100644
index 00000000..988e49b7
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara3.tex
@@ -0,0 +1,265 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 21:51
+%%% template.sce 2016-8-22 21:51
+{\unitlength=6mm%
+\begin{picture}%
+( 7.17000, 6.03000)( -3.65000, -2.44000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.2384,-1.6002){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.3633,-2.3750){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,2.6107){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 831 -411}\special{pa -725 358}%
+\special{fp}%
+\special{pa -758 -535}\special{pa 758 535}%
+\special{fp}%
+\special{pa 0 576}\special{pa 0 -572}%
+\special{fp}%
+\special{pa -272 386}\special{pa -261 394}\special{pa -226 415}\special{pa -215 421}%
+\special{pa -183 436}\special{pa -156 446}\special{pa -142 451}\special{pa -103 461}%
+\special{pa -66 468}\special{pa -52 470}\special{pa -29 472}\special{pa 7 472}\special{pa 42 471}%
+\special{pa 53 470}\special{pa 79 466}\special{pa 117 458}\special{pa 156 446}\special{pa 198 429}%
+\special{pa 215 421}\special{pa 243 405}\special{pa 261 394}\special{pa 290 373}\special{pa 300 365}%
+\special{pa 333 335}\special{pa 339 330}\special{pa 362 304}\special{pa 387 272}\special{pa 409 237}%
+\special{pa 427 202}\special{pa 442 167}\special{pa 454 130}\special{pa 460 107}\special{pa 463 93}%
+\special{pa 469 56}\special{pa 472 19}\special{pa 472 7}\special{pa 472 -19}\special{pa 469 -56}%
+\special{pa 463 -93}\special{pa 454 -130}\special{pa 442 -167}\special{pa 434 -186}%
+\special{pa 427 -202}\special{pa 409 -237}\special{pa 393 -263}\special{pa 387 -271}%
+\special{pa 362 -304}\special{pa 345 -323}\special{pa 333 -335}\special{pa 300 -365}%
+\special{pa 261 -394}\special{pa 249 -402}\special{pa 215 -421}\special{pa 204 -426}%
+\special{pa 162 -444}\special{pa 156 -446}\special{pa 122 -456}\special{pa 84 -465}%
+\special{pa 53 -469}\special{pa 47 -470}\special{pa 11 -472}\special{pa -24 -472}%
+\special{pa -53 -469}\special{pa -61 -469}\special{pa -98 -462}\special{pa -136 -452}%
+\special{pa -155 -446}\special{pa -177 -438}\special{pa -215 -421}\special{pa -220 -418}%
+\special{pa -261 -394}\special{pa -266 -390}\special{pa -300 -365}\special{pa -314 -353}%
+\special{pa -333 -335}\special{pa -362 -304}\special{pa -387 -271}\special{pa -409 -237}%
+\special{pa -427 -202}\special{pa -442 -167}\special{pa -447 -154}\special{pa -454 -130}%
+\special{pa -463 -94}\special{pa -469 -58}\special{pa -472 -19}\special{pa -472 19}%
+\special{pa -470 44}\special{pa -469 56}\special{pa -463 94}\special{pa -454 130}%
+\special{pa -451 142}\special{pa -442 167}\special{pa -427 202}\special{pa -415 226}%
+\special{pa -409 237}\special{pa -387 271}\special{pa -369 295}\special{pa -362 304}%
+\special{pa -333 335}\special{pa -321 347}\special{pa -300 365}\special{pa -272 386}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -23 -369}\special{pa -45 -356}\special{pa -68 -341}%
+\special{pa -90 -325}\special{pa -112 -307}\special{pa -133 -289}\special{pa -154 -269}%
+\special{pa -175 -248}\special{pa -194 -226}\special{pa -213 -203}\special{pa -231 -180}%
+\special{pa -248 -155}\special{pa -264 -130}\special{pa -279 -105}\special{pa -293 -79}%
+\special{pa -306 -53}\special{pa -318 -27}\special{pa -328 0}\special{pa -337 26}%
+\special{pa -345 52}\special{pa -351 79}\special{pa -356 104}\special{pa -360 130}%
+\special{pa -362 155}\special{pa -362 179}\special{pa -362 203}\special{pa -360 225}%
+\special{pa -356 247}\special{pa -351 268}\special{pa -345 288}\special{pa -337 307}%
+\special{pa -328 324}\special{pa -318 341}\special{pa -306 355}\special{pa -293 369}%
+\special{pa -279 381}\special{pa -264 391}\special{pa -248 400}\special{pa -231 408}%
+\special{fp}%
+\special{pa -87 -327}\special{pa -77 -321}\special{pa -66 -316}\special{pa -54 -311}%
+\special{pa -41 -308}\special{pa -28 -305}\special{pa -14 -304}\special{pa 1 -303}%
+\special{pa 15 -304}\special{pa 29 -306}\special{pa 42 -308}\special{pa 55 -312}\special{pa 67 -316}%
+\special{pa 78 -322}\special{pa 88 -328}\special{pa 96 -335}\special{pa 103 -342}%
+\special{pa 108 -350}\special{pa 111 -358}\special{pa 113 -366}\special{pa 113 -375}%
+\special{pa 111 -383}\special{pa 107 -391}\special{pa 102 -399}\special{pa 95 -406}%
+\special{pa 87 -413}\special{pa 77 -419}\special{pa 66 -424}\special{pa 54 -429}\special{pa 41 -432}%
+\special{pa 28 -435}\special{pa 14 -436}\special{pa -1 -437}\special{pa -15 -436}%
+\special{pa -29 -435}\special{pa -42 -432}\special{pa -55 -428}\special{pa -67 -424}%
+\special{pa -78 -419}\special{pa -88 -412}\special{pa -96 -406}\special{pa -103 -398}%
+\special{pa -108 -390}\special{pa -111 -382}\special{pa -113 -374}\special{pa -113 -366}%
+\special{pa -111 -357}\special{pa -107 -349}\special{pa -102 -341}\special{pa -95 -334}%
+\special{pa -87 -327}%
+\special{fp}%
+\special{pa -168 -254}\special{pa -149 -243}\special{pa -128 -232}\special{pa -105 -224}%
+\special{pa -80 -217}\special{pa -53 -212}\special{pa -26 -209}\special{pa 1 -208}%
+\special{pa 29 -209}\special{pa 56 -212}\special{pa 82 -217}\special{pa 107 -224}%
+\special{pa 130 -233}\special{pa 151 -243}\special{pa 170 -255}\special{pa 186 -269}%
+\special{pa 199 -283}\special{pa 209 -298}\special{pa 216 -314}\special{pa 219 -330}%
+\special{pa 219 -346}\special{pa 215 -363}\special{pa 208 -378}\special{pa 198 -393}%
+\special{pa 185 -408}\special{pa 168 -421}\special{pa 149 -433}\special{pa 128 -443}%
+\special{pa 105 -452}\special{pa 80 -458}\special{pa 53 -463}\special{pa 26 -466}%
+\special{pa -1 -467}\special{pa -29 -466}\special{pa -56 -463}\special{pa -82 -458}%
+\special{pa -107 -451}\special{pa -130 -442}\special{pa -151 -432}\special{pa -170 -420}%
+\special{pa -186 -406}\special{pa -199 -392}\special{pa -209 -377}\special{pa -216 -361}%
+\special{pa -219 -345}\special{pa -219 -329}\special{pa -215 -313}\special{pa -208 -297}%
+\special{pa -198 -282}\special{pa -185 -267}\special{pa -168 -254}%
+\special{fp}%
+\special{pa -240 -167}\special{pa -213 -150}\special{pa -183 -135}\special{pa -149 -123}%
+\special{pa -114 -113}\special{pa -76 -106}\special{pa -38 -102}\special{pa 2 -100}%
+\special{pa 41 -102}\special{pa 80 -106}\special{pa 117 -114}\special{pa 152 -124}%
+\special{pa 186 -136}\special{pa 216 -151}\special{pa 242 -168}\special{pa 265 -187}%
+\special{pa 284 -207}\special{pa 298 -229}\special{pa 308 -252}\special{pa 313 -275}%
+\special{pa 313 -298}\special{pa 307 -321}\special{pa 297 -343}\special{pa 283 -365}%
+\special{pa 264 -385}\special{pa 240 -404}\special{pa 213 -421}\special{pa 183 -436}%
+\special{pa 149 -448}\special{pa 114 -458}\special{pa 76 -465}\special{pa 38 -469}%
+\special{pa -2 -470}\special{pa -41 -469}\special{pa -80 -464}\special{pa -117 -457}%
+\special{pa -152 -447}\special{pa -186 -434}\special{pa -216 -420}\special{pa -242 -403}%
+\special{pa -265 -384}\special{pa -284 -363}\special{pa -298 -342}\special{pa -308 -319}%
+\special{pa -313 -296}\special{pa -313 -273}\special{pa -307 -250}\special{pa -297 -227}%
+\special{pa -283 -206}\special{pa -264 -185}\special{pa -240 -167}%
+\special{fp}%
+\special{pa -298 -69}\special{pa -265 -48}\special{pa -227 -30}\special{pa -185 -15}%
+\special{pa -141 -3}\special{pa -95 6}\special{pa -47 11}\special{pa 2 13}\special{pa 51 11}%
+\special{pa 99 6}\special{pa 145 -3}\special{pa 189 -16}\special{pa 230 -31}\special{pa 268 -50}%
+\special{pa 301 -71}\special{pa 329 -95}\special{pa 353 -120}\special{pa 370 -147}%
+\special{pa 382 -175}\special{pa 388 -203}\special{pa 388 -232}\special{pa 382 -261}%
+\special{pa 369 -289}\special{pa 351 -315}\special{pa 327 -341}\special{pa 298 -364}%
+\special{pa 265 -385}\special{pa 245 -394}%
+\special{fp}%
+\special{pa -258 -388}\special{pa -268 -383}\special{pa -301 -362}\special{pa -329 -339}%
+\special{pa -353 -313}\special{pa -370 -286}\special{pa -382 -258}\special{pa -388 -230}%
+\special{pa -388 -201}\special{pa -382 -172}\special{pa -369 -144}\special{pa -351 -118}%
+\special{pa -327 -92}\special{pa -298 -69}%
+\special{fp}%
+\special{pa -339 32}\special{pa -301 56}\special{pa -258 77}\special{pa -211 94}\special{pa -160 108}%
+\special{pa -108 118}\special{pa -53 124}\special{pa 2 126}\special{pa 58 124}\special{pa 112 117}%
+\special{pa 165 107}\special{pa 215 93}\special{pa 262 75}\special{pa 304 54}\special{pa 342 30}%
+\special{pa 374 3}\special{pa 401 -25}\special{pa 421 -56}\special{pa 434 -88}\special{pa 441 -120}%
+\special{pa 441 -153}\special{pa 433 -185}\special{pa 419 -217}\special{pa 399 -248}%
+\special{pa 388 -259}%
+\special{fp}%
+\special{pa -381 -266}\special{pa -401 -245}\special{pa -421 -214}\special{pa -434 -183}%
+\special{pa -441 -150}\special{pa -441 -117}\special{pa -433 -85}\special{pa -419 -53}%
+\special{pa -399 -23}\special{pa -372 6}\special{pa -339 32}%
+\special{fp}%
+\special{pa -360 132}\special{pa -319 157}\special{pa -274 179}\special{pa -224 198}%
+\special{pa -170 212}\special{pa -114 223}\special{pa -56 229}\special{pa 3 231}\special{pa 61 229}%
+\special{pa 119 222}\special{pa 175 211}\special{pa 228 196}\special{pa 278 177}\special{pa 323 155}%
+\special{pa 363 129}\special{pa 397 101}\special{pa 425 71}\special{pa 447 38}\special{pa 461 4}%
+\special{pa 468 -30}\special{pa 468 -65}\special{pa 462 -93}%
+\special{fp}%
+\special{pa -461 -96}\special{pa -468 -62}\special{pa -468 -27}\special{pa -460 7}%
+\special{pa -445 41}\special{pa -423 73}\special{pa -395 104}\special{pa -360 132}%
+\special{fp}%
+\special{pa -360 224}\special{pa -319 249}\special{pa -274 271}\special{pa -224 289}%
+\special{pa -170 304}\special{pa -114 315}\special{pa -56 321}\special{pa 3 323}\special{pa 61 321}%
+\special{pa 119 314}\special{pa 175 303}\special{pa 228 288}\special{pa 278 269}\special{pa 323 247}%
+\special{pa 363 221}\special{pa 397 193}\special{pa 425 163}\special{pa 447 130}%
+\special{fp}%
+\special{pa 457 106}\special{pa 461 96}\special{pa 468 63}%
+\special{fp}%
+\special{pa -468 56}\special{pa -468 65}\special{pa -460 99}\special{pa -445 133}%
+\special{pa -423 165}\special{pa -395 196}\special{pa -360 224}%
+\special{fp}%
+\special{pa -339 303}\special{pa -301 326}\special{pa -258 347}\special{pa -211 365}%
+\special{pa -160 378}\special{pa -108 388}\special{pa -53 394}\special{pa 2 396}\special{pa 58 394}%
+\special{pa 112 388}\special{pa 165 377}\special{pa 215 363}\special{pa 262 345}\special{pa 304 324}%
+\special{pa 342 300}\special{pa 374 274}\special{pa 401 245}\special{pa 421 214}\special{pa 434 183}%
+\special{pa 438 166}%
+\special{fp}%
+\special{pa -433 185}\special{pa -419 217}\special{pa -399 248}\special{pa -372 276}%
+\special{pa -339 303}%
+\special{fp}%
+\special{pa -298 364}\special{pa -265 385}\special{pa -227 403}\special{pa -185 418}%
+\special{pa -141 431}\special{pa -95 439}\special{pa -47 445}\special{pa 2 446}\special{pa 51 444}%
+\special{pa 99 439}\special{pa 145 430}\special{pa 189 417}\special{pa 230 402}\special{pa 268 383}%
+\special{pa 301 362}\special{pa 329 339}\special{pa 353 313}\special{pa 360 302}%
+\special{fp}%
+\special{pa -369 289}\special{pa -351 315}\special{pa -327 341}\special{pa -298 364}%
+\special{fp}%
+\special{pa -240 404}\special{pa -213 421}\special{pa -183 436}\special{pa -149 448}%
+\special{pa -114 458}\special{pa -76 465}\special{pa -38 469}\special{pa 2 470}\special{pa 41 469}%
+\special{pa 80 464}\special{pa 117 457}\special{pa 152 447}\special{pa 186 434}\special{pa 216 420}%
+\special{pa 242 403}\special{pa 258 390}%
+\special{fp}%
+\special{pa -264 385}\special{pa -240 404}%
+\special{fp}%
+\special{pa -26 466}\special{pa 1 467}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -11 -364}\special{pa -23 -346}\special{pa -34 -326}%
+\special{pa -45 -305}\special{pa -56 -283}\special{pa -66 -259}\special{pa -77 -235}%
+\special{pa -87 -210}\special{pa -96 -184}\special{pa -106 -157}\special{pa -115 -129}%
+\special{pa -123 -101}\special{pa -131 -73}\special{pa -139 -44}\special{pa -146 -15}%
+\special{pa -152 14}\special{pa -158 42}\special{pa -163 71}\special{pa -167 100}%
+\special{pa -171 128}\special{pa -174 155}\special{pa -177 182}\special{pa -179 208}%
+\special{pa -180 234}\special{pa -180 258}\special{pa -180 281}\special{pa -179 304}%
+\special{pa -177 325}\special{pa -174 345}\special{pa -171 363}\special{pa -167 380}%
+\special{pa -163 396}\special{pa -158 410}\special{pa -152 422}\special{pa -146 433}%
+\special{pa -139 442}\special{pa -131 449}\special{pa -123 455}\special{pa -115 458}%
+\special{pa -106 460}\special{pa -103 460}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 3 -363}\special{pa 5 -343}\special{pa 8 -322}\special{pa 11 -300}%
+\special{pa 13 -277}\special{pa 16 -252}\special{pa 19 -227}\special{pa 21 -200}\special{pa 23 -173}%
+\special{pa 26 -145}\special{pa 28 -117}\special{pa 30 -88}\special{pa 32 -58}\special{pa 34 -29}%
+\special{pa 35 1}\special{pa 37 30}\special{pa 38 60}\special{pa 39 89}\special{pa 41 118}%
+\special{pa 41 146}\special{pa 42 174}\special{pa 43 202}\special{pa 43 228}\special{pa 44 253}%
+\special{pa 44 278}\special{pa 44 301}\special{pa 43 323}\special{pa 43 344}\special{pa 42 364}%
+\special{pa 41 382}\special{pa 41 399}\special{pa 39 414}\special{pa 38 427}\special{pa 37 439}%
+\special{pa 35 449}\special{pa 34 457}\special{pa 32 464}\special{pa 28 471}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 16 -366}\special{pa 32 -349}\special{pa 48 -331}\special{pa 64 -311}%
+\special{pa 79 -290}\special{pa 95 -268}\special{pa 110 -245}\special{pa 124 -221}%
+\special{pa 138 -196}\special{pa 151 -171}\special{pa 164 -145}\special{pa 176 -118}%
+\special{pa 188 -90}\special{pa 198 -63}\special{pa 208 -35}\special{pa 217 -7}\special{pa 225 21}%
+\special{pa 233 49}\special{pa 239 77}\special{pa 245 105}\special{pa 249 132}\special{pa 253 159}%
+\special{pa 255 184}\special{pa 257 210}\special{pa 257 234}\special{pa 257 258}\special{pa 255 280}%
+\special{pa 253 301}\special{pa 249 322}\special{pa 245 340}\special{pa 239 358}\special{pa 233 374}%
+\special{pa 225 389}\special{pa 217 402}\special{pa 208 413}\special{pa 198 423}\special{pa 188 432}%
+\special{pa 176 438}\special{pa 164 443}\special{pa 163 443}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 26 -372}\special{pa 52 -361}\special{pa 77 -349}\special{pa 102 -335}%
+\special{pa 127 -320}\special{pa 152 -304}\special{pa 175 -287}\special{pa 198 -268}%
+\special{pa 221 -249}\special{pa 242 -228}\special{pa 263 -207}\special{pa 282 -184}%
+\special{pa 300 -161}\special{pa 317 -138}\special{pa 333 -114}\special{pa 348 -89}%
+\special{pa 361 -64}\special{pa 373 -39}\special{pa 383 -13}\special{pa 392 12}\special{pa 399 38}%
+\special{pa 405 63}\special{pa 409 88}\special{pa 411 112}\special{pa 412 137}\special{pa 411 160}%
+\special{pa 409 183}\special{pa 405 206}\special{pa 399 227}\special{pa 392 248}\special{pa 383 267}%
+\special{pa 373 286}\special{pa 361 303}\special{pa 348 320}\special{pa 333 335}\special{pa 317 348}%
+\special{pa 300 361}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 30 -380}\special{pa 59 -377}\special{pa 88 -373}\special{pa 117 -367}%
+\special{pa 146 -360}\special{pa 174 -352}\special{pa 201 -342}\special{pa 228 -330}%
+\special{pa 253 -318}\special{pa 278 -304}\special{pa 301 -289}\special{pa 323 -272}%
+\special{pa 344 -255}\special{pa 364 -237}\special{pa 382 -218}\special{pa 399 -198}%
+\special{pa 414 -177}\special{pa 427 -155}\special{pa 439 -133}\special{pa 449 -110}%
+\special{pa 457 -87}\special{pa 464 -64}\special{pa 469 -40}\special{pa 471 -16}\special{pa 472 8}%
+\special{pa 471 32}\special{pa 469 56}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 27 -388}\special{pa 53 -394}\special{pa 80 -397}\special{pa 106 -400}%
+\special{pa 131 -400}\special{pa 156 -400}\special{pa 181 -397}\special{pa 204 -393}%
+\special{pa 227 -388}\special{pa 249 -380}\special{pa 271 -372}\special{pa 291 -362}%
+\special{pa 309 -350}\special{pa 327 -337}\special{pa 343 -323}\special{pa 358 -308}%
+\special{pa 372 -291}\special{pa 384 -273}\special{pa 391 -261}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 18 -395}\special{pa 35 -406}\special{pa 52 -417}\special{pa 69 -425}%
+\special{pa 86 -432}\special{pa 103 -437}\special{pa 119 -441}\special{pa 135 -442}%
+\special{pa 150 -442}\special{pa 164 -441}\special{pa 178 -437}\special{pa 191 -432}%
+\special{pa 195 -430}%
+\special{fp}%
+\special{pa 0 -381}\special{pa 4 -398}\special{pa 9 -413}\special{pa 13 -426}\special{pa 17 -438}%
+\special{pa 22 -448}\special{pa 26 -456}\special{pa 30 -462}\special{pa 34 -467}\special{pa 41 -471}%
+\special{pa 45 -470}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -10 -397}\special{pa -19 -411}\special{pa -29 -424}%
+\special{pa -39 -435}\special{pa -48 -444}\special{pa -57 -451}\special{pa -66 -457}%
+\special{pa -75 -461}\special{pa -83 -463}\special{pa -91 -463}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -22 -392}\special{pa -43 -402}\special{pa -65 -410}%
+\special{pa -86 -417}\special{pa -106 -422}\special{pa -127 -425}\special{pa -147 -426}%
+\special{pa -166 -426}\special{pa -185 -424}\special{pa -203 -421}\special{pa -220 -415}%
+\special{pa -236 -409}\special{pa -251 -400}\special{pa -266 -390}\special{pa -266 -390}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -29 -385}\special{pa -57 -388}\special{pa -85 -388}%
+\special{pa -113 -388}\special{pa -141 -386}\special{pa -168 -382}\special{pa -194 -377}%
+\special{pa -219 -370}\special{pa -244 -362}\special{pa -268 -352}\special{pa -290 -341}%
+\special{pa -312 -329}\special{pa -332 -315}\special{pa -351 -300}\special{pa -368 -284}%
+\special{pa -384 -267}\special{pa -399 -249}\special{pa -412 -230}\special{pa -423 -210}%
+\special{pa -433 -189}\special{pa -441 -167}%
+\special{fp}%
+\special{pa 0 -381}\special{pa -29 -377}\special{pa -58 -371}\special{pa -87 -363}%
+\special{pa -115 -355}\special{pa -143 -344}\special{pa -170 -333}\special{pa -197 -320}%
+\special{pa -222 -306}\special{pa -247 -290}\special{pa -271 -274}\special{pa -294 -256}%
+\special{pa -316 -237}\special{pa -337 -218}\special{pa -356 -197}\special{pa -374 -176}%
+\special{pa -390 -154}\special{pa -405 -132}\special{pa -418 -109}\special{pa -429 -85}%
+\special{pa -439 -62}\special{pa -447 -38}\special{pa -454 -13}\special{pa -458 11}%
+\special{pa -461 35}\special{pa -462 59}\special{pa -461 83}\special{pa -458 106}%
+\special{pa -454 129}\special{pa -447 152}\special{pa -439 174}\special{pa -429 195}%
+\special{pa -418 216}\special{pa -405 235}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara4.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara4.tex
new file mode 100644
index 00000000..82c5a44e
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara4.tex
@@ -0,0 +1,320 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-22 22:0
+%%% template.sce 2016-8-22 22:0
+{\unitlength=8mm%
+\begin{picture}%
+( 7.17000, 6.03000)( -3.65000, -2.44000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.2384,-1.6002){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(3.3633,-2.3750){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,2.6107){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa -363 515}\special{pa -348 525}\special{pa -302 553}\special{pa -286 561}%
+\special{pa -243 581}\special{pa -207 595}\special{pa -189 601}\special{pa -137 615}%
+\special{pa -87 624}\special{pa -70 626}\special{pa -39 629}\special{pa 9 630}\special{pa 57 627}%
+\special{pa 70 626}\special{pa 105 621}\special{pa 156 610}\special{pa 208 594}\special{pa 264 572}%
+\special{pa 286 561}\special{pa 324 540}\special{pa 348 525}\special{pa 386 498}\special{pa 400 487}%
+\special{pa 444 447}\special{pa 451 439}\special{pa 482 405}\special{pa 515 362}\special{pa 545 316}%
+\special{pa 569 270}\special{pa 589 222}\special{pa 605 174}\special{pa 613 143}\special{pa 617 125}%
+\special{pa 625 75}\special{pa 629 25}\special{pa 630 9}\special{pa 629 -25}\special{pa 625 -75}%
+\special{pa 617 -125}\special{pa 605 -174}\special{pa 589 -222}\special{pa 579 -248}%
+\special{pa 569 -270}\special{pa 545 -316}\special{pa 524 -350}\special{pa 516 -361}%
+\special{pa 483 -405}\special{pa 460 -430}\special{pa 444 -447}\special{pa 400 -487}%
+\special{pa 348 -525}\special{pa 332 -535}\special{pa 286 -561}\special{pa 272 -568}%
+\special{pa 216 -592}\special{pa 208 -595}\special{pa 163 -609}\special{pa 112 -620}%
+\special{pa 71 -626}\special{pa 63 -627}\special{pa 15 -630}\special{pa -33 -629}%
+\special{pa -71 -626}\special{pa -81 -625}\special{pa -130 -616}\special{pa -182 -603}%
+\special{pa -207 -595}\special{pa -236 -584}\special{pa -287 -561}\special{pa -294 -557}%
+\special{pa -348 -525}\special{pa -355 -521}\special{pa -399 -487}\special{pa -419 -471}%
+\special{pa -444 -447}\special{pa -483 -405}\special{pa -516 -361}\special{pa -545 -316}%
+\special{pa -569 -270}\special{pa -589 -222}\special{pa -595 -206}\special{pa -605 -174}%
+\special{pa -617 -125}\special{pa -625 -77}\special{pa -629 -25}\special{pa -629 25}%
+\special{pa -627 59}\special{pa -625 75}\special{pa -617 125}\special{pa -605 174}%
+\special{pa -601 189}\special{pa -589 222}\special{pa -569 270}\special{pa -553 302}%
+\special{pa -545 316}\special{pa -516 361}\special{pa -492 393}\special{pa -483 405}%
+\special{pa -444 447}\special{pa -427 463}\special{pa -399 487}\special{pa -363 515}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -30 -492}\special{pa -61 -474}\special{pa -91 -455}%
+\special{pa -120 -433}\special{pa -149 -410}\special{pa -178 -385}\special{pa -206 -358}%
+\special{pa -233 -330}\special{pa -259 -301}\special{pa -284 -271}\special{pa -308 -239}%
+\special{pa -331 -207}\special{pa -352 -174}\special{pa -372 -140}\special{pa -391 -106}%
+\special{pa -408 -71}\special{pa -423 -36}\special{pa -437 0}\special{pa -449 35}%
+\special{pa -460 70}\special{pa -468 105}\special{pa -475 139}\special{pa -479 173}%
+\special{pa -482 206}\special{pa -483 239}\special{pa -482 270}\special{pa -479 301}%
+\special{pa -475 330}\special{pa -468 358}\special{pa -460 384}\special{pa -449 409}%
+\special{pa -437 432}\special{pa -423 454}\special{pa -408 474}\special{pa -391 492}%
+\special{pa -372 508}\special{pa -352 522}\special{pa -331 534}\special{pa -308 544}%
+\special{fp}%
+\special{pa -116 -436}\special{pa -103 -428}\special{pa -88 -421}\special{pa -72 -415}%
+\special{pa -55 -411}\special{pa -37 -407}\special{pa -18 -405}\special{pa 1 -404}%
+\special{pa 20 -405}\special{pa 38 -407}\special{pa 56 -411}\special{pa 73 -416}\special{pa 89 -422}%
+\special{pa 104 -429}\special{pa 117 -437}\special{pa 128 -446}\special{pa 137 -456}%
+\special{pa 144 -466}\special{pa 148 -477}\special{pa 150 -488}\special{pa 150 -500}%
+\special{pa 148 -511}\special{pa 143 -521}\special{pa 136 -532}\special{pa 127 -542}%
+\special{pa 116 -551}\special{pa 103 -559}\special{pa 88 -566}\special{pa 72 -572}%
+\special{pa 55 -576}\special{pa 37 -580}\special{pa 18 -582}\special{pa -1 -583}\special{pa -20 -582}%
+\special{pa -38 -580}\special{pa -56 -576}\special{pa -73 -571}\special{pa -89 -565}%
+\special{pa -104 -558}\special{pa -117 -550}\special{pa -128 -541}\special{pa -137 -531}%
+\special{pa -144 -521}\special{pa -148 -510}\special{pa -150 -499}\special{pa -150 -487}%
+\special{pa -148 -476}\special{pa -143 -466}\special{pa -136 -455}\special{pa -127 -445}%
+\special{pa -116 -436}%
+\special{fp}%
+\special{pa -225 -339}\special{pa -199 -323}\special{pa -171 -310}\special{pa -140 -298}%
+\special{pa -106 -289}\special{pa -71 -282}\special{pa -35 -278}\special{pa 2 -277}%
+\special{pa 38 -279}\special{pa 74 -283}\special{pa 109 -290}\special{pa 142 -299}%
+\special{pa 173 -311}\special{pa 202 -325}\special{pa 227 -341}\special{pa 248 -358}%
+\special{pa 266 -377}\special{pa 279 -398}\special{pa 288 -419}\special{pa 292 -440}%
+\special{pa 292 -462}\special{pa 287 -483}\special{pa 278 -504}\special{pa 264 -525}%
+\special{pa 246 -544}\special{pa 225 -561}\special{pa 199 -577}\special{pa 171 -591}%
+\special{pa 140 -602}\special{pa 106 -611}\special{pa 71 -618}\special{pa 35 -622}%
+\special{pa -2 -623}\special{pa -38 -621}\special{pa -74 -617}\special{pa -109 -610}%
+\special{pa -142 -601}\special{pa -173 -589}\special{pa -202 -575}\special{pa -227 -560}%
+\special{pa -248 -542}\special{pa -266 -523}\special{pa -279 -503}\special{pa -288 -482}%
+\special{pa -292 -460}\special{pa -292 -438}\special{pa -287 -417}\special{pa -278 -396}%
+\special{pa -264 -376}\special{pa -246 -357}\special{pa -225 -339}%
+\special{fp}%
+\special{pa -320 -222}\special{pa -284 -200}\special{pa -244 -180}\special{pa -199 -164}%
+\special{pa -152 -151}\special{pa -102 -141}\special{pa -50 -135}\special{pa 2 -134}%
+\special{pa 55 -136}\special{pa 106 -142}\special{pa 156 -152}\special{pa 203 -165}%
+\special{pa 247 -182}\special{pa 288 -202}\special{pa 323 -224}\special{pa 354 -249}%
+\special{pa 379 -277}\special{pa 398 -305}\special{pa 411 -336}\special{pa 417 -366}%
+\special{pa 417 -397}\special{pa 410 -428}\special{pa 397 -458}\special{pa 377 -487}%
+\special{pa 351 -514}\special{pa 320 -539}\special{pa 284 -561}\special{pa 244 -581}%
+\special{pa 199 -597}\special{pa 152 -610}\special{pa 102 -620}\special{pa 50 -625}%
+\special{pa -2 -627}\special{pa -55 -625}\special{pa -106 -619}\special{pa -156 -609}%
+\special{pa -203 -596}\special{pa -247 -579}\special{pa -288 -559}\special{pa -323 -537}%
+\special{pa -354 -512}\special{pa -379 -484}\special{pa -398 -455}\special{pa -411 -425}%
+\special{pa -417 -395}\special{pa -417 -364}\special{pa -410 -333}\special{pa -397 -303}%
+\special{pa -377 -274}\special{pa -351 -247}\special{pa -320 -222}%
+\special{fp}%
+\special{pa -398 -92}\special{pa -353 -64}\special{pa -302 -40}\special{pa -247 -20}%
+\special{pa -188 -3}\special{pa -126 8}\special{pa -62 15}\special{pa 3 17}\special{pa 68 15}%
+\special{pa 132 7}\special{pa 193 -5}\special{pa 252 -21}\special{pa 307 -42}\special{pa 357 -67}%
+\special{pa 401 -95}\special{pa 439 -126}\special{pa 470 -160}\special{pa 494 -196}%
+\special{pa 510 -233}\special{pa 518 -271}\special{pa 517 -310}\special{pa 509 -348}%
+\special{pa 492 -385}\special{pa 468 -421}\special{pa 436 -454}\special{pa 398 -485}%
+\special{pa 353 -513}\special{pa 327 -526}%
+\special{fp}%
+\special{pa -344 -517}\special{pa -357 -511}\special{pa -401 -483}\special{pa -439 -451}%
+\special{pa -470 -418}\special{pa -494 -382}\special{pa -510 -344}\special{pa -518 -306}%
+\special{pa -517 -268}\special{pa -509 -230}\special{pa -492 -193}\special{pa -468 -157}%
+\special{pa -436 -123}\special{pa -398 -92}%
+\special{fp}%
+\special{pa -452 43}\special{pa -401 75}\special{pa -344 102}\special{pa -281 126}%
+\special{pa -214 144}\special{pa -143 157}\special{pa -71 165}\special{pa 3 168}\special{pa 77 165}%
+\special{pa 150 156}\special{pa 220 143}\special{pa 287 124}\special{pa 349 100}\special{pa 406 72}%
+\special{pa 456 40}\special{pa 499 5}\special{pa 534 -34}\special{pa 561 -75}\special{pa 579 -117}%
+\special{pa 588 -160}\special{pa 588 -204}\special{pa 578 -247}\special{pa 559 -290}%
+\special{pa 532 -330}\special{pa 518 -345}%
+\special{fp}%
+\special{pa -509 -355}\special{pa -534 -327}\special{pa -561 -286}\special{pa -579 -244}%
+\special{pa -588 -200}\special{pa -588 -157}\special{pa -578 -113}\special{pa -559 -71}%
+\special{pa -532 -30}\special{pa -496 8}\special{pa -452 43}%
+\special{fp}%
+\special{pa -480 176}\special{pa -426 209}\special{pa -365 239}\special{pa -298 263}%
+\special{pa -227 283}\special{pa -152 297}\special{pa -75 305}\special{pa 3 308}\special{pa 82 305}%
+\special{pa 159 296}\special{pa 233 281}\special{pa 304 261}\special{pa 370 236}\special{pa 431 207}%
+\special{pa 484 173}\special{pa 530 135}\special{pa 567 94}\special{pa 596 51}\special{pa 615 6}%
+\special{pa 624 -40}\special{pa 624 -86}\special{pa 615 -124}%
+\special{fp}%
+\special{pa -615 -129}\special{pa -624 -82}\special{pa -624 -36}\special{pa -614 10}%
+\special{pa -594 55}\special{pa -564 98}\special{pa -526 138}\special{pa -480 176}%
+\special{fp}%
+\special{pa -480 298}\special{pa -426 332}\special{pa -365 361}\special{pa -298 386}%
+\special{pa -227 405}\special{pa -152 420}\special{pa -75 428}\special{pa 3 431}\special{pa 82 427}%
+\special{pa 159 419}\special{pa 233 404}\special{pa 304 384}\special{pa 370 359}\special{pa 431 329}%
+\special{pa 484 295}\special{pa 530 257}\special{pa 567 217}\special{pa 596 173}%
+\special{fp}%
+\special{pa 609 141}\special{pa 615 129}\special{pa 624 84}%
+\special{fp}%
+\special{pa -624 75}\special{pa -624 86}\special{pa -614 132}\special{pa -594 177}%
+\special{pa -564 220}\special{pa -526 261}\special{pa -480 298}%
+\special{fp}%
+\special{pa -452 403}\special{pa -401 435}\special{pa -344 463}\special{pa -281 486}%
+\special{pa -214 504}\special{pa -143 518}\special{pa -71 526}\special{pa 3 528}\special{pa 77 525}%
+\special{pa 150 517}\special{pa 220 503}\special{pa 287 484}\special{pa 349 461}\special{pa 406 433}%
+\special{pa 456 401}\special{pa 499 365}\special{pa 534 327}\special{pa 561 286}\special{pa 579 244}%
+\special{pa 584 221}%
+\special{fp}%
+\special{pa -578 247}\special{pa -559 290}\special{pa -532 330}\special{pa -496 368}%
+\special{pa -452 403}%
+\special{fp}%
+\special{pa -398 485}\special{pa -353 513}\special{pa -302 537}\special{pa -247 558}%
+\special{pa -188 574}\special{pa -126 586}\special{pa -62 593}\special{pa 3 595}\special{pa 68 592}%
+\special{pa 132 585}\special{pa 193 573}\special{pa 252 556}\special{pa 307 535}\special{pa 357 511}%
+\special{pa 401 483}\special{pa 439 451}\special{pa 470 418}\special{pa 480 403}%
+\special{fp}%
+\special{pa -492 385}\special{pa -468 421}\special{pa -436 454}\special{pa -398 485}%
+\special{fp}%
+\special{pa -320 539}\special{pa -284 561}\special{pa -244 581}\special{pa -199 597}%
+\special{pa -152 610}\special{pa -102 620}\special{pa -50 625}\special{pa 2 627}\special{pa 55 625}%
+\special{pa 106 619}\special{pa 156 609}\special{pa 203 596}\special{pa 247 579}\special{pa 288 559}%
+\special{pa 323 537}\special{pa 344 520}%
+\special{fp}%
+\special{pa -351 514}\special{pa -320 539}%
+\special{fp}%
+\special{pa -35 622}\special{pa 2 623}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -15 -486}\special{pa -30 -461}\special{pa -45 -435}%
+\special{pa -60 -407}\special{pa -74 -377}\special{pa -88 -346}\special{pa -102 -313}%
+\special{pa -116 -280}\special{pa -129 -245}\special{pa -141 -209}\special{pa -153 -172}%
+\special{pa -164 -135}\special{pa -175 -97}\special{pa -185 -59}\special{pa -194 -20}%
+\special{pa -203 18}\special{pa -210 57}\special{pa -217 95}\special{pa -223 133}%
+\special{pa -228 170}\special{pa -232 207}\special{pa -236 243}\special{pa -238 278}%
+\special{pa -240 311}\special{pa -240 344}\special{pa -240 375}\special{pa -238 405}%
+\special{pa -236 433}\special{pa -232 460}\special{pa -228 484}\special{pa -223 507}%
+\special{pa -217 528}\special{pa -210 546}\special{pa -203 563}\special{pa -194 577}%
+\special{pa -185 589}\special{pa -175 599}\special{pa -164 606}\special{pa -153 611}%
+\special{pa -141 613}\special{pa -137 613}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 4 -484}\special{pa 7 -458}\special{pa 11 -430}\special{pa 14 -400}%
+\special{pa 18 -369}\special{pa 21 -336}\special{pa 25 -302}\special{pa 28 -267}\special{pa 31 -231}%
+\special{pa 34 -193}\special{pa 37 -155}\special{pa 40 -117}\special{pa 42 -78}\special{pa 45 -39}%
+\special{pa 47 1}\special{pa 49 40}\special{pa 51 80}\special{pa 53 119}\special{pa 54 157}%
+\special{pa 55 195}\special{pa 56 232}\special{pa 57 269}\special{pa 58 304}\special{pa 58 338}%
+\special{pa 58 370}\special{pa 58 402}\special{pa 58 431}\special{pa 57 459}\special{pa 56 485}%
+\special{pa 55 509}\special{pa 54 532}\special{pa 53 552}\special{pa 51 570}\special{pa 49 585}%
+\special{pa 47 598}\special{pa 45 609}\special{pa 42 618}\special{pa 37 628}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 22 -488}\special{pa 43 -465}\special{pa 64 -441}\special{pa 85 -415}%
+\special{pa 106 -387}\special{pa 126 -358}\special{pa 146 -327}\special{pa 165 -295}%
+\special{pa 184 -262}\special{pa 202 -228}\special{pa 219 -193}\special{pa 235 -157}%
+\special{pa 250 -120}\special{pa 264 -84}\special{pa 277 -46}\special{pa 290 -9}\special{pa 301 29}%
+\special{pa 310 66}\special{pa 319 103}\special{pa 326 140}\special{pa 332 176}\special{pa 337 211}%
+\special{pa 340 246}\special{pa 342 280}\special{pa 343 312}\special{pa 342 343}\special{pa 340 373}%
+\special{pa 337 402}\special{pa 332 429}\special{pa 326 454}\special{pa 319 477}\special{pa 310 499}%
+\special{pa 301 518}\special{pa 290 536}\special{pa 277 551}\special{pa 264 564}\special{pa 250 575}%
+\special{pa 235 584}\special{pa 219 591}\special{pa 217 591}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 34 -496}\special{pa 69 -481}\special{pa 103 -465}\special{pa 137 -447}%
+\special{pa 170 -427}\special{pa 202 -406}\special{pa 234 -382}\special{pa 265 -358}%
+\special{pa 294 -332}\special{pa 323 -304}\special{pa 350 -275}\special{pa 376 -246}%
+\special{pa 400 -215}\special{pa 423 -184}\special{pa 444 -151}\special{pa 464 -119}%
+\special{pa 481 -85}\special{pa 497 -52}\special{pa 511 -18}\special{pa 522 16}\special{pa 532 50}%
+\special{pa 540 84}\special{pa 545 117}\special{pa 548 150}\special{pa 549 182}\special{pa 548 214}%
+\special{pa 545 244}\special{pa 540 274}\special{pa 532 303}\special{pa 522 330}\special{pa 511 357}%
+\special{pa 497 381}\special{pa 481 405}\special{pa 464 426}\special{pa 444 446}\special{pa 423 464}%
+\special{pa 400 481}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 40 -507}\special{pa 79 -503}\special{pa 118 -497}\special{pa 157 -490}%
+\special{pa 195 -480}\special{pa 232 -469}\special{pa 268 -455}\special{pa 303 -440}%
+\special{pa 337 -423}\special{pa 370 -405}\special{pa 401 -385}\special{pa 431 -363}%
+\special{pa 459 -340}\special{pa 485 -316}\special{pa 509 -290}\special{pa 532 -263}%
+\special{pa 552 -236}\special{pa 570 -207}\special{pa 585 -177}\special{pa 599 -147}%
+\special{pa 610 -116}\special{pa 619 -85}\special{pa 625 -53}\special{pa 628 -21}%
+\special{pa 630 11}\special{pa 628 42}\special{pa 625 74}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 36 -518}\special{pa 71 -525}\special{pa 106 -530}\special{pa 141 -533}%
+\special{pa 175 -534}\special{pa 208 -533}\special{pa 241 -530}\special{pa 273 -524}%
+\special{pa 303 -517}\special{pa 333 -507}\special{pa 361 -496}\special{pa 387 -482}%
+\special{pa 412 -467}\special{pa 436 -450}\special{pa 458 -431}\special{pa 478 -410}%
+\special{pa 496 -388}\special{pa 512 -364}\special{pa 521 -349}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 23 -526}\special{pa 47 -542}\special{pa 70 -556}\special{pa 93 -567}%
+\special{pa 115 -576}\special{pa 137 -583}\special{pa 159 -588}\special{pa 179 -590}%
+\special{pa 200 -590}\special{pa 219 -588}\special{pa 237 -583}\special{pa 255 -576}%
+\special{pa 259 -573}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 6 -530}\special{pa 12 -550}\special{pa 18 -568}\special{pa 23 -584}%
+\special{pa 29 -597}\special{pa 34 -608}\special{pa 40 -617}\special{pa 45 -623}\special{pa 55 -627}%
+\special{pa 60 -626}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -13 -529}\special{pa -26 -548}\special{pa -39 -565}%
+\special{pa -51 -580}\special{pa -64 -592}\special{pa -76 -602}\special{pa -88 -610}%
+\special{pa -100 -615}\special{pa -111 -618}\special{pa -121 -618}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -29 -523}\special{pa -58 -536}\special{pa -86 -547}%
+\special{pa -114 -556}\special{pa -142 -562}\special{pa -169 -566}\special{pa -196 -568}%
+\special{pa -221 -568}\special{pa -246 -566}\special{pa -270 -561}\special{pa -293 -554}%
+\special{pa -315 -545}\special{pa -335 -533}\special{pa -354 -520}\special{pa -354 -520}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -38 -514}\special{pa -76 -517}\special{pa -114 -518}%
+\special{pa -151 -517}\special{pa -188 -514}\special{pa -223 -509}\special{pa -258 -502}%
+\special{pa -292 -493}\special{pa -325 -482}\special{pa -357 -470}\special{pa -387 -455}%
+\special{pa -416 -438}\special{pa -443 -420}\special{pa -468 -400}\special{pa -491 -379}%
+\special{pa -513 -356}\special{pa -532 -332}\special{pa -549 -306}\special{pa -564 -279}%
+\special{pa -577 -251}\special{pa -588 -223}%
+\special{fp}%
+\special{pa 0 -508}\special{pa -39 -502}\special{pa -77 -494}\special{pa -115 -485}%
+\special{pa -153 -473}\special{pa -190 -459}\special{pa -227 -444}\special{pa -262 -426}%
+\special{pa -297 -407}\special{pa -330 -387}\special{pa -362 -365}\special{pa -392 -341}%
+\special{pa -421 -317}\special{pa -449 -291}\special{pa -474 -263}\special{pa -498 -235}%
+\special{pa -520 -206}\special{pa -539 -176}\special{pa -557 -145}\special{pa -572 -114}%
+\special{pa -586 -82}\special{pa -596 -50}\special{pa -605 -18}\special{pa -611 14}%
+\special{pa -614 47}\special{pa -616 79}\special{pa -614 111}\special{pa -611 142}%
+\special{pa -605 173}\special{pa -596 203}\special{pa -586 232}\special{pa -572 260}%
+\special{pa -557 288}\special{pa -540 313}%
+\special{fp}%
+\special{pa 1109 -548}\special{pa 565 -279}%
+\special{fp}%
+\special{pa -483 239}\special{pa -966 477}%
+\special{fp}%
+\special{pa -1010 -714}\special{pa -515 -363}%
+\special{fp}%
+\special{pa 404 285}\special{pa 1010 714}%
+\special{fp}%
+\special{pa 0 769}\special{pa 0 630}%
+\special{fp}%
+\special{pa 0 -508}\special{pa 0 -762}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 568 -281}\special{pa 561 -277}\special{fp}\special{pa 533 -264}\special{pa 526 -260}\special{fp}%
+\special{pa 498 -246}\special{pa 491 -243}\special{fp}\special{pa 463 -229}\special{pa 456 -225}\special{fp}%
+\special{pa 429 -212}\special{pa 421 -208}\special{fp}\special{pa 394 -195}\special{pa 386 -191}\special{fp}%
+\special{pa 359 -177}\special{pa 352 -174}\special{fp}\special{pa 324 -160}\special{pa 317 -156}\special{fp}%
+\special{pa 289 -143}\special{pa 282 -139}\special{fp}\special{pa 254 -125}\special{pa 247 -122}\special{fp}%
+\special{pa 219 -108}\special{pa 212 -105}\special{fp}\special{pa 184 -91}\special{pa 177 -87}\special{fp}%
+\special{pa 149 -74}\special{pa 142 -70}\special{fp}\special{pa 114 -56}\special{pa 107 -53}\special{fp}%
+\special{pa 79 -39}\special{pa 72 -36}\special{fp}\special{pa 44 -22}\special{pa 37 -18}\special{fp}%
+\special{pa 9 -5}\special{pa 2 -1}\special{fp}\special{pa -26 13}\special{pa -33 16}\special{fp}%
+\special{pa -60 30}\special{pa -68 33}\special{fp}\special{pa -95 47}\special{pa -103 51}\special{fp}%
+\special{pa -130 64}\special{pa -137 68}\special{fp}\special{pa -165 82}\special{pa -172 85}\special{fp}%
+\special{pa -200 99}\special{pa -207 102}\special{fp}\special{pa -235 116}\special{pa -242 120}\special{fp}%
+\special{pa -270 133}\special{pa -277 137}\special{fp}\special{pa -305 151}\special{pa -312 154}\special{fp}%
+\special{pa -340 168}\special{pa -347 171}\special{fp}\special{pa -375 185}\special{pa -382 189}\special{fp}%
+\special{pa -410 202}\special{pa -417 206}\special{fp}\special{pa -445 220}\special{pa -452 223}\special{fp}%
+\special{pa -480 237}\special{pa -487 241}\special{fp}\special{pn 8}%
+\special{pa -518 -366}\special{pa -511 -361}\special{fp}\special{pa -486 -343}\special{pa -480 -339}\special{fp}%
+\special{pa -454 -321}\special{pa -448 -316}\special{fp}\special{pa -423 -299}\special{pa -416 -294}\special{fp}%
+\special{pa -391 -276}\special{pa -385 -272}\special{fp}\special{pa -359 -254}\special{pa -353 -249}\special{fp}%
+\special{pa -328 -231}\special{pa -321 -227}\special{fp}\special{pa -296 -209}\special{pa -290 -204}\special{fp}%
+\special{pa -264 -187}\special{pa -258 -182}\special{fp}\special{pa -233 -164}\special{pa -226 -160}\special{fp}%
+\special{pa -201 -142}\special{pa -195 -137}\special{fp}\special{pa -169 -120}\special{pa -163 -115}\special{fp}%
+\special{pa -138 -97}\special{pa -131 -93}\special{fp}\special{pa -106 -75}\special{pa -100 -70}\special{fp}%
+\special{pa -74 -53}\special{pa -68 -48}\special{fp}\special{pa -43 -30}\special{pa -36 -26}\special{fp}%
+\special{pa -11 -8}\special{pa -5 -3}\special{fp}\special{pa 21 15}\special{pa 27 19}\special{fp}%
+\special{pa 52 37}\special{pa 59 42}\special{fp}\special{pa 84 59}\special{pa 91 64}\special{fp}%
+\special{pa 116 82}\special{pa 122 86}\special{fp}\special{pa 147 104}\special{pa 154 109}\special{fp}%
+\special{pa 179 126}\special{pa 186 131}\special{fp}\special{pa 211 149}\special{pa 217 153}\special{fp}%
+\special{pa 242 171}\special{pa 249 176}\special{fp}\special{pa 274 193}\special{pa 281 198}\special{fp}%
+\special{pa 306 216}\special{pa 312 220}\special{fp}\special{pa 337 238}\special{pa 344 243}\special{fp}%
+\special{pa 369 261}\special{pa 376 265}\special{fp}\special{pa 401 283}\special{pa 407 288}\special{fp}%
+\special{pn 8}%
+\special{pa 0 634}\special{pa 0 626}\special{fp}\special{pa 0 595}\special{pa 0 587}\special{fp}%
+\special{pa 0 555}\special{pa 0 547}\special{fp}\special{pa 0 516}\special{pa 0 508}\special{fp}%
+\special{pa 0 477}\special{pa 0 469}\special{fp}\special{pa 0 438}\special{pa 0 430}\special{fp}%
+\special{pa 0 398}\special{pa 0 390}\special{fp}\special{pa 0 359}\special{pa 0 351}\special{fp}%
+\special{pa 0 320}\special{pa 0 312}\special{fp}\special{pa 0 281}\special{pa 0 273}\special{fp}%
+\special{pa 0 241}\special{pa 0 233}\special{fp}\special{pa 0 202}\special{pa 0 194}\special{fp}%
+\special{pa 0 163}\special{pa 0 155}\special{fp}\special{pa 0 124}\special{pa 0 116}\special{fp}%
+\special{pa 0 84}\special{pa 0 76}\special{fp}\special{pa 0 45}\special{pa 0 37}\special{fp}%
+\special{pa 0 6}\special{pa 0 -2}\special{fp}\special{pa 0 -33}\special{pa 0 -41}\special{fp}%
+\special{pa 0 -73}\special{pa 0 -81}\special{fp}\special{pa 0 -112}\special{pa 0 -120}\special{fp}%
+\special{pa 0 -151}\special{pa 0 -159}\special{fp}\special{pa 0 -190}\special{pa 0 -198}\special{fp}%
+\special{pa 0 -230}\special{pa 0 -238}\special{fp}\special{pa 0 -269}\special{pa 0 -277}\special{fp}%
+\special{pa 0 -308}\special{pa 0 -316}\special{fp}\special{pa 0 -347}\special{pa 0 -355}\special{fp}%
+\special{pa 0 -387}\special{pa 0 -395}\special{fp}\special{pa 0 -426}\special{pa 0 -434}\special{fp}%
+\special{pa 0 -465}\special{pa 0 -473}\special{fp}\special{pa 0 -504}\special{pa 0 -512}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara5.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara5.tex
new file mode 100644
index 00000000..990f901f
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Fig3d/wirepara5.tex
@@ -0,0 +1,253 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-23 7:29
+%%% template.sce 2016-8-23 7:29
+{\unitlength=8mm%
+\begin{picture}%
+( 7.17000, 6.03000)( -3.65000, -2.44000)%
+\special{pn 8}%
+%
+\special{pa 270 0}\special{pa 261 -5}\special{pa 247 -11}\special{pa 223 -21}\special{pa 178 -35}%
+\special{pa 128 -46}\special{pa 74 -53}\special{pa 18 -57}\special{pa -39 -56}\special{pa -94 -51}%
+\special{pa -147 -42}\special{pa -195 -30}\special{pa -238 -15}\special{pa -247 -11}%
+\special{pa -270 0}%
+\special{fp}%
+\special{pa -324 -38}\special{pa -317 -31}\special{pa -305 -21}\special{pa -276 -3}%
+\special{pa -247 11}\special{pa -201 28}\special{pa -154 41}\special{pa -102 50}\special{pa -46 56}%
+\special{pa 10 57}\special{pa 67 54}\special{pa 121 47}\special{pa 172 36}\special{pa 217 23}%
+\special{pa 247 11}\special{pa 256 7}\special{pa 286 -9}\special{pa 305 -21}\special{pa 320 -34}%
+\special{pa 324 -38}%
+\special{fp}%
+\special{pa -665 496}\special{pa -603 536}\special{pa -578 550}\special{pa -487 594}%
+\special{pa -391 629}\special{pa -325 648}\special{pa -291 655}\special{pa -189 674}%
+\special{pa -85 684}\special{pa 19 687}\special{pa 123 682}\special{pa 227 668}\special{pa 328 647}%
+\special{pa 426 617}\special{pa 521 579}\special{pa 603 536}\special{pa 611 531}\special{pa 695 474}%
+\special{pa 738 437}\special{pa 772 405}\special{pa 824 345}\special{pa 839 324}\special{pa 880 257}%
+\special{pa 894 229}\special{pa 917 171}\special{pa 931 122}\special{pa 938 85}\special{pa 945 8}%
+\special{pa 945 0}%
+\special{fp}%
+\special{pa -945 0}\special{pa -941 -66}\special{pa -938 -85}\special{pa -917 -170}%
+\special{pa -880 -257}\special{pa -869 -278}\special{pa -824 -345}\special{pa -807 -366}%
+\special{pa -739 -437}\special{pa -653 -504}\special{pa -603 -536}\special{pa -566 -556}%
+\special{pa -474 -599}\special{pa -377 -633}\special{pa -324 -648}\special{pa -278 -658}%
+\special{pa -175 -676}\special{pa -71 -685}\special{pa 33 -687}\special{pa 137 -680}%
+\special{pa 240 -666}\special{pa 326 -647}\special{pa 341 -643}\special{pa 439 -612}%
+\special{pa 533 -573}\special{pa 603 -536}\special{pa 622 -524}\special{pa 706 -465}%
+\special{pa 738 -437}\special{pa 782 -395}\special{pa 824 -345}\special{pa 848 -312}%
+\special{pa 880 -257}\special{pa 900 -215}\special{pa 917 -171}\special{pa 934 -107}%
+\special{pa 938 -85}\special{pa 945 0}%
+\special{fp}%
+\special{pa -945 0}\special{pa -943 50}\special{pa -938 85}\special{pa -920 162}\special{pa -917 171}%
+\special{pa -880 257}\special{pa -876 265}\special{pa -824 345}\special{pa -816 355}%
+\special{pa -745 432}\special{pa -739 437}\special{pa -679 485}%
+\special{fp}%
+\special{pa -725 358}\special{pa -723 325}\special{pa -717 291}\special{pa -708 256}%
+\special{pa -695 221}\special{pa -679 186}\special{pa -659 152}\special{pa -637 119}%
+\special{pa -613 88}\special{pa -586 60}\special{pa -558 34}\special{pa -528 11}\special{pa -498 -7}%
+\special{pa -468 -22}\special{pa -438 -33}\special{pa -409 -40}\special{pa -380 -42}%
+\special{pa -354 -40}\special{pa -329 -33}\special{pa -307 -22}\special{pa -288 -7}%
+\special{fp}%
+\special{pa -613 517}\special{pa -637 511}\special{pa -659 500}\special{pa -679 485}%
+\special{pa -695 466}\special{pa -708 443}\special{pa -717 418}\special{pa -723 389}%
+\special{pa -725 358}%
+\special{fp}%
+\special{pa -697 226}\special{pa -618 275}\special{pa -530 318}\special{pa -433 354}%
+\special{pa -330 382}\special{pa -221 403}\special{pa -109 415}\special{pa 5 419}%
+\special{pa 119 414}\special{pa 231 401}\special{pa 339 380}\special{pa 442 351}\special{pa 538 314}%
+\special{pa 626 271}\special{pa 703 222}\special{pa 770 167}\special{pa 824 108}\special{pa 866 45}%
+\special{pa 894 -20}\special{pa 907 -87}\special{pa 907 -155}\special{pa 892 -222}%
+\special{pa 863 -287}\special{pa 820 -349}\special{pa 765 -408}\special{pa 701 -459}%
+\special{fp}%
+\special{pa -647 -494}\special{pa -703 -458}\special{pa -770 -403}\special{pa -824 -344}%
+\special{pa -866 -281}\special{pa -894 -216}\special{pa -907 -149}\special{pa -907 -81}%
+\special{pa -892 -15}\special{pa -863 51}\special{pa -820 113}\special{pa -765 172}%
+\special{pa -697 226}%
+\special{fp}%
+\special{pa -620 97}\special{pa -550 141}\special{pa -472 179}\special{pa -386 211}%
+\special{pa -294 236}\special{pa -197 254}\special{pa -97 265}\special{pa 4 269}\special{pa 106 265}%
+\special{pa 205 253}\special{pa 302 234}\special{pa 394 208}\special{pa 479 176}\special{pa 557 137}%
+\special{pa 626 93}\special{pa 685 45}\special{pa 734 -8}\special{pa 771 -64}\special{pa 795 -122}%
+\special{pa 807 -182}\special{pa 807 -242}\special{pa 794 -301}\special{pa 768 -359}%
+\special{pa 730 -415}\special{pa 681 -467}\special{pa 620 -516}\special{pa 550 -559}%
+\special{pa 472 -597}\special{pa 386 -629}\special{pa 294 -654}\special{pa 197 -673}%
+\special{pa 97 -683}\special{pa -4 -687}\special{pa -106 -683}\special{pa -205 -671}%
+\special{pa -302 -652}\special{pa -394 -627}\special{pa -479 -594}\special{pa -557 -556}%
+\special{pa -626 -512}\special{pa -685 -463}\special{pa -734 -410}\special{pa -771 -354}%
+\special{pa -795 -296}\special{pa -807 -237}\special{pa -807 -177}\special{pa -794 -117}%
+\special{pa -768 -59}\special{pa -730 -3}\special{pa -681 49}\special{pa -620 97}%
+\special{fp}%
+\special{pa -512 1}\special{pa -455 37}\special{pa -390 68}\special{pa -319 94}\special{pa -242 115}%
+\special{pa -163 130}\special{pa -80 139}\special{pa 4 142}\special{pa 87 139}\special{pa 170 129}%
+\special{pa 249 114}\special{pa 325 92}\special{pa 396 66}\special{pa 460 34}\special{pa 517 -2}%
+\special{pa 566 -43}\special{pa 606 -86}\special{pa 636 -132}\special{pa 657 -180}%
+\special{pa 667 -230}\special{pa 666 -279}\special{pa 655 -328}\special{pa 634 -376}%
+\special{pa 603 -422}\special{pa 562 -466}\special{pa 512 -505}\special{pa 455 -541}%
+\special{pa 390 -573}\special{pa 319 -599}\special{pa 242 -620}\special{pa 163 -635}%
+\special{pa 80 -644}\special{pa -4 -647}\special{pa -87 -643}\special{pa -170 -634}%
+\special{pa -249 -618}\special{pa -325 -597}\special{pa -396 -570}\special{pa -460 -538}%
+\special{pa -517 -502}\special{pa -566 -462}\special{pa -606 -418}\special{pa -636 -372}%
+\special{pa -657 -324}\special{pa -667 -275}\special{pa -666 -225}\special{pa -655 -176}%
+\special{pa -634 -128}\special{pa -603 -82}\special{pa -562 -39}\special{pa -512 1}%
+\special{fp}%
+\special{pa -397 -41}\special{pa -353 -13}\special{pa -302 11}\special{pa -247 31}%
+\special{pa -188 48}\special{pa -126 59}\special{pa -62 66}\special{pa 3 68}\special{pa 68 66}%
+\special{pa 132 58}\special{pa 193 46}\special{pa 252 30}\special{pa 307 9}\special{pa 357 -16}%
+\special{pa 401 -44}\special{pa 439 -75}\special{pa 470 -109}\special{pa 494 -145}%
+\special{pa 510 -182}\special{pa 517 -220}\special{pa 517 -259}\special{pa 509 -297}%
+\special{pa 492 -334}\special{pa 468 -369}\special{pa 436 -403}\special{pa 397 -434}%
+\special{pa 353 -462}\special{pa 302 -486}\special{pa 247 -507}\special{pa 188 -523}%
+\special{pa 126 -535}\special{pa 62 -542}\special{pa -3 -544}\special{pa -68 -541}%
+\special{pa -132 -534}\special{pa -193 -522}\special{pa -252 -505}\special{pa -307 -484}%
+\special{pa -357 -460}\special{pa -401 -431}\special{pa -439 -400}\special{pa -470 -366}%
+\special{pa -494 -331}\special{pa -510 -293}\special{pa -517 -255}\special{pa -517 -217}%
+\special{pa -509 -179}\special{pa -492 -141}\special{pa -468 -106}\special{pa -436 -72}%
+\special{pa -397 -41}%
+\special{fp}%
+\special{pa -302 -19}\special{pa -268 2}\special{pa -230 21}\special{pa -188 36}\special{pa -143 48}%
+\special{pa -96 57}\special{pa -47 63}\special{pa 2 64}\special{pa 52 62}\special{pa 100 57}%
+\special{pa 147 47}\special{pa 192 35}\special{pa 233 19}\special{pa 271 0}\special{pa 305 -21}%
+\special{pa 334 -45}\special{pa 358 -71}\special{pa 376 -98}\special{pa 388 -126}%
+\special{pa 394 -155}\special{pa 393 -184}\special{pa 387 -213}\special{pa 374 -242}%
+\special{pa 356 -269}\special{pa 332 -294}\special{pa 302 -318}\special{pa 268 -339}%
+\special{pa 230 -358}\special{pa 188 -373}\special{pa 143 -385}\special{pa 96 -394}%
+\special{pa 47 -400}\special{pa -2 -401}\special{pa -52 -399}\special{pa -100 -394}%
+\special{pa -147 -385}\special{pa -192 -372}\special{pa -233 -356}\special{pa -271 -337}%
+\special{pa -305 -316}\special{pa -334 -292}\special{pa -358 -267}\special{pa -376 -239}%
+\special{pa -388 -211}\special{pa -394 -182}\special{pa -393 -153}\special{pa -387 -124}%
+\special{pa -374 -95}\special{pa -356 -68}\special{pa -332 -43}\special{pa -302 -19}%
+\special{fp}%
+\special{pa 320 -34}\special{pa 324 -50}\special{pa 323 -74}\special{pa 318 -98}\special{pa 308 -121}%
+\special{pa 293 -143}\special{pa 273 -164}\special{pa 249 -184}\special{pa 221 -201}%
+\special{pa 189 -216}\special{pa 155 -229}\special{pa 118 -239}\special{pa 79 -247}%
+\special{pa 39 -251}\special{pa -2 -252}\special{pa -42 -251}\special{pa -82 -246}%
+\special{pa -121 -238}\special{pa -158 -228}\special{pa -192 -215}\special{pa -223 -200}%
+\special{pa -251 -182}\special{pa -275 -163}\special{pa -294 -141}\special{pa -309 -119}%
+\special{pa -319 -96}\special{pa -324 -72}\special{pa -323 -48}\special{pa -320 -34}%
+\special{fp}%
+\special{pa 297 -16}\special{pa 293 -22}\special{pa 273 -43}\special{pa 249 -62}\special{pa 221 -79}%
+\special{pa 189 -95}\special{pa 155 -107}\special{pa 118 -118}\special{pa 79 -125}%
+\special{pa 39 -129}\special{pa -2 -131}\special{pa -42 -129}\special{pa -82 -124}%
+\special{pa -121 -117}\special{pa -158 -106}\special{pa -192 -93}\special{pa -223 -78}%
+\special{pa -251 -60}\special{pa -275 -41}\special{pa -294 -20}%
+\special{fp}%
+\special{pa 271 -1}\special{pa 268 -2}\special{pa 230 -21}\special{pa 188 -36}\special{pa 143 -48}%
+\special{pa 96 -57}\special{pa 47 -63}\special{pa -2 -64}\special{pa -52 -62}\special{pa -100 -57}%
+\special{pa -147 -47}\special{pa -192 -35}\special{pa -233 -19}\special{pa -271 -1}%
+\special{fp}%
+\special{pa 75 -65}\special{pa 62 -66}\special{pa -3 -68}\special{pa -39 -67}%
+\special{fp}%
+\special{pa -620 516}\special{pa -550 559}\special{pa -472 597}\special{pa -386 629}%
+\special{pa -294 654}\special{pa -197 673}\special{pa -97 683}\special{pa 4 687}\special{pa 106 683}%
+\special{pa 205 671}\special{pa 302 652}\special{pa 394 627}\special{pa 479 594}\special{pa 557 556}%
+\special{pa 599 529}%
+\special{fp}%
+\special{pa -633 506}\special{pa -620 516}%
+\special{fp}%
+\special{pa -697 463}\special{pa -618 511}\special{pa -530 554}\special{pa -433 590}%
+\special{pa -330 618}\special{pa -221 639}\special{pa -109 651}\special{pa 5 655}%
+\special{pa 119 650}\special{pa 231 637}\special{pa 339 616}\special{pa 442 587}\special{pa 538 551}%
+\special{pa 626 507}\special{pa 703 458}\special{pa 770 403}\special{pa 824 344}\special{pa 866 281}%
+\special{pa 889 227}%
+\special{fp}%
+\special{pa -877 255}\special{pa -863 287}\special{pa -820 349}\special{pa -765 408}%
+\special{pa -697 463}%
+\special{fp}%
+\special{pa -360 516}\special{pa -359 483}\special{pa -356 447}\special{pa -352 410}%
+\special{pa -345 372}\special{pa -337 334}\special{pa -327 295}\special{pa -316 258}%
+\special{pa -304 222}\special{pa -291 187}\special{pa -277 155}\special{pa -262 127}%
+\special{pa -248 101}\special{pa -232 80}\special{pa -218 62}\special{pa -203 49}%
+\special{pa -189 41}\special{pa -176 37}\special{pa -163 39}%
+\special{fp}%
+\special{pa -316 650}\special{pa -316 649}\special{pa -327 643}\special{pa -337 633}%
+\special{pa -345 617}\special{pa -352 598}\special{pa -356 574}\special{pa -359 547}%
+\special{pa -360 516}%
+\special{fp}%
+\special{pa 74 684}\special{pa 82 670}\special{pa 84 655}\special{pa 85 636}\special{pa 86 613}%
+\special{pa 87 586}\special{pa 87 556}\special{pa 87 522}\special{pa 86 487}\special{pa 85 449}%
+\special{pa 84 410}\special{pa 82 371}\special{pa 79 332}\special{pa 77 293}\special{pa 74 255}%
+\special{pa 71 219}\special{pa 67 186}\special{pa 64 156}\special{pa 60 129}\special{pa 56 105}%
+\special{pa 53 86}\special{pa 49 72}\special{pa 46 62}\special{pa 43 57}%
+\special{fp}%
+\special{pa 514 468}\special{pa 513 435}\special{pa 509 400}\special{pa 502 364}\special{pa 493 326}%
+\special{pa 482 289}\special{pa 468 252}\special{pa 452 216}\special{pa 435 181}\special{pa 416 149}%
+\special{pa 396 119}\special{pa 375 92}\special{pa 354 68}\special{pa 332 49}\special{pa 311 33}%
+\special{pa 290 22}\special{pa 270 16}\special{pa 251 14}\special{pa 234 17}\special{pa 218 24}%
+\special{fp}%
+\special{pa 448 608}\special{pa 452 607}\special{pa 468 600}\special{pa 482 588}\special{pa 493 571}%
+\special{pa 502 551}\special{pa 509 526}\special{pa 513 499}\special{pa 514 468}%
+\special{fp}%
+\special{pa 824 273}\special{pa 822 241}\special{pa 815 207}\special{pa 805 173}\special{pa 790 140}%
+\special{pa 771 107}\special{pa 749 75}\special{pa 724 44}\special{pa 696 16}\special{pa 666 -9}%
+\special{pa 634 -31}\special{pa 601 -50}\special{pa 566 -66}\special{pa 532 -77}\special{pa 498 -85}%
+\special{pa 464 -88}\special{pa 432 -87}\special{pa 402 -81}\special{pa 374 -72}\special{pa 349 -58}%
+\special{pa 327 -41}\special{pa 309 -20}%
+\special{fp}%
+\special{pa 771 405}\special{pa 790 384}\special{pa 805 360}\special{pa 815 334}\special{pa 822 304}%
+\special{pa 824 273}%
+\special{fp}%
+\special{pa 945 16}\special{pa 942 -16}\special{pa 935 -48}\special{pa 922 -78}\special{pa 906 -107}%
+\special{pa 884 -135}\special{pa 859 -160}\special{pa 830 -182}\special{pa 798 -201}%
+\special{pa 764 -217}\special{pa 727 -230}\special{pa 689 -238}\special{pa 649 -243}%
+\special{pa 610 -243}\special{pa 571 -240}\special{pa 532 -233}\special{pa 496 -222}%
+\special{pa 461 -207}\special{pa 429 -189}\special{pa 400 -167}\special{pa 375 -143}%
+\special{pa 354 -117}\special{pa 337 -88}\special{pa 325 -58}\special{pa 319 -34}%
+\special{fp}%
+\special{pa 941 52}\special{pa 942 48}\special{pa 945 16}%
+\special{fp}%
+\special{pa 822 -344}\special{pa 814 -358}\special{pa 795 -379}\special{pa 772 -397}%
+\special{pa 746 -411}\special{pa 717 -422}\special{pa 686 -428}\special{pa 653 -430}%
+\special{pa 619 -428}\special{pa 584 -422}\special{pa 548 -412}\special{pa 513 -398}%
+\special{pa 478 -380}\special{pa 445 -359}\special{pa 414 -334}\special{pa 386 -307}%
+\special{pa 360 -278}\special{pa 337 -247}\special{pa 318 -214}\special{pa 303 -181}%
+\special{pa 292 -148}\special{pa 285 -114}\special{pa 283 -82}\special{pa 285 -51}%
+\special{pa 292 -21}\special{pa 295 -14}%
+\special{fp}%
+\special{pa 508 -583}\special{pa 508 -583}\special{pa 491 -592}\special{pa 472 -595}%
+\special{pa 452 -594}\special{pa 430 -588}\special{pa 407 -578}\special{pa 384 -563}%
+\special{pa 361 -544}\special{pa 338 -522}\special{pa 315 -495}\special{pa 293 -466}%
+\special{pa 273 -434}\special{pa 254 -400}\special{pa 237 -365}\special{pa 222 -328}%
+\special{pa 209 -291}\special{pa 199 -254}\special{pa 192 -218}\special{pa 188 -183}%
+\special{pa 186 -150}\special{pa 188 -119}\special{pa 192 -92}\special{pa 199 -67}%
+\special{pa 209 -46}\special{pa 222 -29}\special{pa 237 -17}\special{pa 254 -9}\special{pa 273 -5}%
+\special{pa 280 -6}%
+\special{fp}%
+\special{pa 123 -681}\special{pa 114 -676}\special{pa 108 -667}\special{pa 102 -652}%
+\special{pa 97 -633}\special{pa 91 -610}\special{pa 85 -583}\special{pa 79 -553}\special{pa 74 -520}%
+\special{pa 69 -484}\special{pa 64 -446}\special{pa 59 -408}\special{pa 56 -369}\special{pa 53 -329}%
+\special{pa 50 -290}\special{pa 48 -253}\special{pa 47 -217}\special{pa 47 -184}\special{pa 47 -154}%
+\special{pa 48 -127}\special{pa 50 -103}\special{pa 53 -84}\special{pa 56 -70}\special{pa 59 -60}%
+\special{pa 64 -55}%
+\special{fp}%
+\special{pa -277 -657}\special{pa -272 -659}\special{pa -262 -660}\special{pa -251 -656}%
+\special{pa -238 -648}\special{pa -226 -634}\special{pa -213 -616}\special{pa -200 -594}%
+\special{pa -187 -568}\special{pa -175 -539}\special{pa -163 -507}\special{pa -151 -472}%
+\special{pa -141 -435}\special{pa -131 -397}\special{pa -123 -359}\special{pa -116 -320}%
+\special{pa -111 -282}\special{pa -107 -244}\special{pa -104 -209}\special{pa -103 -176}%
+\special{pa -104 -145}\special{pa -107 -118}\special{pa -111 -95}\special{pa -116 -75}%
+\special{pa -123 -60}\special{pa -131 -49}\special{pa -141 -44}%
+\special{fp}%
+\special{pa -650 -501}\special{pa -645 -507}\special{pa -627 -521}\special{pa -606 -531}%
+\special{pa -583 -537}\special{pa -557 -539}\special{pa -530 -536}\special{pa -503 -528}%
+\special{pa -474 -516}\special{pa -445 -500}\special{pa -416 -480}\special{pa -388 -457}%
+\special{pa -362 -430}\special{pa -336 -401}\special{pa -313 -369}\special{pa -292 -336}%
+\special{pa -274 -301}\special{pa -258 -265}\special{pa -246 -230}\special{pa -237 -194}%
+\special{pa -232 -160}\special{pa -230 -127}\special{pa -232 -96}\special{pa -237 -68}%
+\special{pa -246 -43}\special{pa -258 -21}\special{pa -273 -3}%
+\special{fp}%
+\special{pa -902 -205}\special{pa -901 -211}\special{pa -889 -239}\special{pa -873 -265}%
+\special{pa -853 -289}\special{pa -828 -309}\special{pa -801 -327}\special{pa -770 -340}%
+\special{pa -736 -350}\special{pa -701 -356}\special{pa -664 -358}\special{pa -626 -356}%
+\special{pa -588 -350}\special{pa -550 -340}\special{pa -513 -326}\special{pa -478 -308}%
+\special{pa -444 -287}\special{pa -414 -263}\special{pa -386 -237}\special{pa -362 -208}%
+\special{pa -341 -178}\special{pa -325 -147}\special{pa -313 -114}\special{pa -306 -82}%
+\special{pa -304 -50}\special{pa -306 -22}%
+\special{fp}%
+\special{pa -923 118}\special{pa -921 86}\special{pa -914 54}\special{pa -902 22}%
+\special{pa -885 -9}\special{pa -865 -39}\special{pa -840 -66}\special{pa -812 -92}%
+\special{pa -781 -115}\special{pa -747 -134}\special{pa -711 -151}\special{pa -673 -163}%
+\special{pa -635 -172}\special{pa -596 -177}\special{pa -558 -178}\special{pa -521 -175}%
+\special{pa -485 -168}\special{pa -451 -157}\special{pa -419 -142}\special{pa -391 -124}%
+\special{pa -367 -102}\special{pa -346 -78}\special{pa -329 -51}\special{pa -317 -23}%
+\special{fp}%
+\special{pa -898 214}\special{pa -902 209}\special{pa -914 180}\special{pa -921 150}%
+\special{pa -923 118}%
+\special{fp}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/Gfig/oresenex01.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/Gfig/oresenex01.tex
new file mode 100644
index 00000000..6c2c54f0
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/Gfig/oresenex01.tex
@@ -0,0 +1,83 @@
+%%% /Users/Hannya/ketcindy/ketwork/template.tex 2016-8-16 19:45
+%%% template.sce 2016-8-16 19:45
+{\unitlength=8mm%
+\begin{picture}%
+( 7.77000, 5.78000)( -4.42000, -1.51000)%
+\special{pn 8}%
+%
+\settowidth{\Width}{$x$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(-3.5455,-0.5866){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(2.8935,-1.1428){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{$z$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$z$}\settodepth{\Depth}{$z$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(0.0000,4.0571){\hspace*{\Width}\raisebox{\Height}{$z$}}%
+%
+%
+\special{pa 1055 -175}\special{pa -1058 175}%
+\special{fp}%
+\special{pa -856 -338}\special{pa 856 338}%
+\special{fp}%
+\special{pa 0 476}\special{pa 0 -1218}%
+\special{fp}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa -988 139}\special{pa -1058 175}\special{pa -980 187}\special{pa -984 163}%
+\special{pa -988 139}\special{pa -1058 175}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 777 333}\special{pa 856 338}\special{pa 795 288}\special{pa 786 310}\special{pa 777 333}%
+\special{pa 856 338}%
+\special{fp}%
+\special{pn 8}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{sh 1}\special{ip}%
+\special{pn 1}%
+\special{pa 24 -1143}\special{pa 0 -1218}\special{pa -24 -1143}\special{pa 0 -1143}%
+\special{pa 24 -1143}\special{pa 0 -1218}%
+\special{fp}%
+\special{pn 8}%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\special{pa -529 87}\special{pa -529 -521}\special{pa -187 -386}\special{pa 342 -474}%
+\special{pa 685 -339}\special{pa 685 -948}%
+\special{fp}%
+\special{pn 4}%
+\special{pa -518 76}\special{pa -525 72}\special{pa -533 72}\special{pa -540 76}\special{pa -544 83}%
+\special{pa -544 92}\special{pa -540 99}\special{pa -533 103}\special{pa -525 103}%
+\special{pa -518 99}\special{pa -514 92}\special{pa -514 83}\special{pa -518 76}\special{sh 1}\special{fp}%
+\special{pa -518 -533}\special{pa -525 -537}\special{pa -533 -537}\special{pa -540 -533}%
+\special{pa -544 -526}\special{pa -544 -517}\special{pa -540 -510}\special{pa -533 -506}%
+\special{pa -525 -506}\special{pa -518 -510}\special{pa -514 -517}\special{pa -514 -526}%
+\special{pa -518 -533}\special{sh 1}\special{fp}%
+\special{pa -175 -397}\special{pa -182 -402}\special{pa -191 -402}\special{pa -198 -397}%
+\special{pa -202 -390}\special{pa -202 -382}\special{pa -198 -375}\special{pa -191 -371}%
+\special{pa -182 -371}\special{pa -175 -375}\special{pa -171 -382}\special{pa -171 -390}%
+\special{pa -175 -397}\special{sh 1}\special{fp}%
+\special{pa 353 -485}\special{pa 346 -489}\special{pa 338 -489}\special{pa 331 -485}%
+\special{pa 327 -478}\special{pa 327 -470}\special{pa 331 -463}\special{pa 338 -459}%
+\special{pa 346 -459}\special{pa 353 -463}\special{pa 357 -470}\special{pa 357 -478}%
+\special{pa 353 -485}\special{sh 1}\special{fp}%
+\special{pa 696 -350}\special{pa 689 -354}\special{pa 680 -354}\special{pa 673 -350}%
+\special{pa 669 -343}\special{pa 669 -335}\special{pa 673 -327}\special{pa 680 -323}%
+\special{pa 689 -323}\special{pa 696 -327}\special{pa 700 -335}\special{pa 700 -343}%
+\special{pa 696 -350}\special{sh 1}\special{fp}%
+\special{pa 696 -959}\special{pa 689 -963}\special{pa 680 -963}\special{pa 673 -959}%
+\special{pa 669 -952}\special{pa 669 -944}\special{pa 673 -936}\special{pa 680 -932}%
+\special{pa 689 -932}\special{pa 696 -936}\special{pa 700 -944}\special{pa 700 -952}%
+\special{pa 696 -959}\special{sh 1}\special{fp}%
+\special{pn 8}%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.pdf b/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.pdf
new file mode 100644
index 00000000..9915d80d
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.pdf
Binary files differ
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.tex b/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.tex
index e004a0ea..7c2eb756 100644
--- a/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.tex
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/KeTCindyReferenceJ.tex
@@ -1,6 +1,7 @@
\documentclass[papersize,a4paper,12pt,uplatex]{jsarticle}
\usepackage{ketpic,ketlayer}
-\usepackage{amsmath,newtxmath}
+\usepackage{amsmath}
+\usepackage{newtxmath}
\usepackage[dvipdfmx]{graphicx,color}
\usepackage{wrapfig}
\usepackage[dvipdfmx,bookmarks=false,colorlinks=true,linkcolor=blue]{hyperref}
diff --git a/texmf-dist/doc/support/ketcindy/source/ketmanual/refketpic161211J.pdf b/texmf-dist/doc/support/ketcindy/source/ketmanual/refketpic161211J.pdf
new file mode 100644
index 00000000..ba47aa36
--- /dev/null
+++ b/texmf-dist/doc/support/ketcindy/source/ketmanual/refketpic161211J.pdf
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf b/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf
deleted file mode 100644
index e2b52ddd..00000000
--- a/texmf-dist/scripts/ketcindy/data/polyhedrons_obj/整面凸多面体データ.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketcindy.sh b/texmf-dist/scripts/ketcindy/ketcindy.sh
index fe8f8155..23465f4b 100755
--- a/texmf-dist/scripts/ketcindy/ketcindy.sh
+++ b/texmf-dist/scripts/ketcindy/ketcindy.sh
@@ -7,7 +7,8 @@
#
BinaryName=Cinderella2
-TemplateFile=template.cdy
+TemplateFile=template1basic.cdy
+systype=`uname`
if [ "$1" = "-c" ]
then
@@ -19,8 +20,21 @@ fi
if [ -z "$cinderella" ]
then
- echo "Cannot find $BinaryName!" >&2
- exit 1
+ case $systype in
+ Darwin)
+ if [ -r /Applications/Cinderella2.app/Contents/MacOS/Cinderella2 ]
+ then
+ cinderella=/Applications/Cinderella2.app/Contents/MacOS/Cinderella2
+ else
+ echo "Cannot find $BinaryName!" >&2
+ exit 1
+ fi
+ ;;
+ *)
+ echo "Cannot find $BinaryName!" >&2
+ exit 1
+ ;;
+ esac
fi
if [ ! -x "$cinderella" ] ; then
@@ -30,7 +44,13 @@ fi
# find real path
realcind=`realpath "$cinderella"`
cinddir=`dirname "$realcind"`
-plugindir="$cinddir/Plugins"
+case $systype in
+ Darwin)
+ plugindir="$cinddir/../PlugIns";;
+ *)
+ plugindir="$cinddir/Plugins";;
+esac
+
plugin="$plugindir/KetCindyPlugin.jar"
# find Jar
@@ -56,8 +76,14 @@ if [ ! -r "$plugin" ] ; then
fi
# check whether the .jar md5sum is fine, but don't make this an error
-myjarmd=`cat "$KetCdyJar" | md5sum`
-sysjarmd=`cat "$plugin" | md5sum`
+case $systype in
+ Darwin)
+ __md5sum=md5;;
+ *)
+ __md5sum=md5sum;;
+esac
+myjarmd=`cat "$KetCdyJar" | $__md5sum`
+sysjarmd=`cat "$plugin" | $__md5sum`
if [ ! "$myjarmd" = "$sysjarmd" ]
then
echo "The installed version of the plugin in"
diff --git a/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy b/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy
deleted file mode 100644
index bf1d86fe..00000000
--- a/texmf-dist/scripts/ketcindy/ketfiles/allbuttons.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketfiles/template.cdy b/texmf-dist/scripts/ketcindy/ketfiles/template.cdy
deleted file mode 100644
index 1165f833..00000000
--- a/texmf-dist/scripts/ketcindy/ketfiles/template.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar b/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar
index cee8f4ca..ad013a20 100644
--- a/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar
+++ b/texmf-dist/scripts/ketcindy/ketjava/KetCindyPlugin.jar
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs
deleted file mode 100644
index 53b542a0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3d.cs
+++ /dev/null
@@ -1,4517 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindylib3d(2017.06.02) loaded");
-
-//help:start();
-
-Ketinit3d():=Ketinit3d(1);
-Ketinit3d(sf):=(
- regional(tmp);
- tmp=round(4*SW.y)/4;
-// Ketinit3d(sf,[round(SW.x)+1,tmp-0.5,tmp-1]);
- Ketinit3d(sf,[-5,tmp-0.5,tmp-1]);
-);
-Ketinit3d(subflg,position):=(
-//help:Ketinit3d(subflg=1)
- regional(ctr,tmp,tmp1,tmp2,tmp3,tmp4,xPos,yTh,yPh);
-// println("KETCindy3d V.2.3.5(2016.02.03)");
- BezierNumber3=1; //15.02.28
- if(!islist(BZLIST3),
- BZLIST3=[]; //15.02.28
- ,
- tmp=apply(allpoints(),text(#));
- tmp1=select(tmp,substring(#,length(#)-1,length(#))=="p");
- tmp2=[];
- forall(tmp1,ctr,
- tmp=substring(ctr,0,length(ctr)-1);
- tmp=select(BZLIST3,#_1==tmp);
- if(length(tmp)>0,
- tmp2=append(tmp2,tmp_1);
- );
- );
- BZLIST3=tmp2;
- );
- SUBSCR=subflg;
- Setwindow("Msg=no");
- if(length(position)>2,
- xPos=position_1;
- yTh=position_2;
- yPh=position_3;
- ,
- xPos=0;
- yTh=position_1;
- yPh=position_2;
- );
-// THETA=60*pi/180;
-// PHI=30*pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- Listplot("th",[[xPos,yTh],[xPos+9,yTh]],["notex","linecolor->[0,1,0]","Msg=no"]);
- Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],["notex","linecolor->[0,1,0]","Msg=no"]);
- //16.02.10
- PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
- PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
- THETA=(TH.x-xPos)*20*pi/180;
- PHI=(FI.x-xPos)*40*pi/180;
-// Defvar("THETA",THETA); // 16.06.20
-// Defvar("PHI",PHI); // 16.06.20
- drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
- drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
- tmp="Setangle("+text((TH.x-xPos)*20)+","+text((FI.x-xPos)*40)+")";
- GLIST=append(GLIST,tmp);
- Addax(0);
- TSIZE=10;
- TSIZEZ=10;
- ErrFlg=0;
-);
-
-Start3d():=Start3d([]); //16.11.12
-Start3d(ptexception):=( //16.11.12
-//help:Start3d();
-//help:Start3d(execptionptlist);
- regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
- xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
- GCLIST=[];
- GLIST=[];
- FUNLIST=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SEG3dlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- OutFileList=[];
- FigPdfList=[]; // 16.04.08
- ErrFlag=0;
- OBJCMD=[]; // 16.11.29from
- OCNAME=Fhead;
- OCOPTION=["m","v"];// 16.11.29upto
- ArrowlineNumber=1; // 16.01.31
- ArrowheadNumber=1;
- BezierNumber=1; //16.01.31
- BezierNumber3=1; //16.08.19
- Fnametex=Fhead+".tex"; // 15.04.06
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
-// Ketinit3d(SUBSCR); // 16.06.20
- Setwindow("Msg=no"); // 16.06.20from
- tmp=round(4*SW.y)/4;
- xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
- Listplot("th",[[xPos,yTh],[xPos+9,yTh]],
- ["notex","linecolor->[0,1,0]","Msg=no"]);
- Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],
- ["notex","linecolor->[0,1,0]","Msg=no"]);
- //16.02.10
- PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
- PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
- drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
- drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
- tmp="Setangle("
- +format((TH.x-xPos)*20,5)+","
- +format((FI.x-xPos)*40,5)+")";
- GLIST=append(GLIST,tmp);
- THETA=(TH.x-xPos)*20*pi/180;
- PHI=(FI.x-xPos)*40*pi/180; // 16.06.20upto
- if(isselected(TH) % isselected(FI), // 17.05.18from
- if(length(Ch)>0,
- ChNum=Ch_(length(Ch));
- if(ChNum==0, ChNum=1);
- ,
- ChNum=1;
- );
- Ch=[0];
- );// 17.05.18upto
- if(length(VLIST)==0, // 16.06.20
- tmp=remove(allpoints(),[NE,SW,TH,FI,O,X,Y,Z]);//17.06.02
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=parse(tmp1+"z.y");
- pt3=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",pt3);
- pt2=Parapt(pt3); // 16.05.28from
- Defvar(tmp1+"2d",pt2); // 16.05.28upto
- );
- );
- ,
- if(isselected(NE) % isselected(SW),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=select(VLIST,#_1==tmp1+"3d=");
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
-// if(SUBSCR==1,
-// tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
-// parse(tmp);
-// );
- );
- );
- ,
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp2=parse(tmp1+"z");
- if(isselected(pt) % isselected(tmp2),
- Defvar(tmp1+"2d",pt.xy);
- tmp=parse(tmp1+"z.y");
- tmp=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",tmp);
- );
- );
- );
- );
- );
- if(SUBSCR==1,
- xmn=SW.x+NE.x-SW.x;
- xMx=NE.x+NE.x-SW.x;
- ymn=SW.y;
- yMx=NE.y;
- drawpoly([[xMx,yMx],[xmn,yMx],
- [xmn,ymn],[xMx,ymn]],color->[1,1,1]);
- connect([[NE.x-SW.x,yMx],[NE.x-SW.x,ymn]],
- color->[0.5,0.5,0.5]);
- );
- // for Presentation //17.07.01from
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- ThinDense=0.1; //17.07.01upto
- Ptseg3data(ptexception); //16.08.23
-);
-
-Setangle(theta,phi):=( //16.12.24
-//help:Setangle(60,30);
- regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
- xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=round(4*SW.y)/4;
- xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
- if(theta=="",theta=THETA*180/pi); // 17.01.19
- if(phi=="",phi=PHI*180/pi);
- THETA=theta*pi/180;
- TH.x=theta/20+xPos;
- PHI=phi*pi/180;
- FI.x=phi/40+xPos;
-// drawtext([xPos-0.8,yTh-0.1],text(theta)); //17.05.05
-// drawtext([xPos-0.8,yPh-0.1],text(phi));
- tmp="Setangle("
- +format(theta,5)+","+format(phi,5)+")";
- GLIST=append(GLIST,tmp);
- if(length(VLIST)==0, // 16.06.20
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=parse(tmp1+"z.y");
- pt3=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",pt3);
- pt2=Parapt(pt3); // 16.05.28from
- Defvar(tmp1+"2d",pt2); // 16.05.28upto
- );
- );
- ,
- if(isselected(NE) % isselected(SW),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=select(VLIST,#_1==tmp1+"3d=");
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
- );
- );
- ,
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp2=parse(tmp1+"z");
- if(isselected(pt) % isselected(tmp2),
- Defvar(tmp1+"2d",pt.xy);
- tmp=parse(tmp1+"z.y");
- tmp=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",tmp);
- );
- );
- );
- );
- );
- forall(Datalist3d(),#,
- tmp1=replace(#,"3d","2d");
- tmp2=Projpara(#,["nodata"]);
- tmp=tmp1+"="+textformat(tmp2,5);
- parse(tmp);
- );
- Ptseg3data(ptexception);
-);
-
-Changestyle3d(nameL,style):=(
-//help:Changestyle3d(["geoseg3d","ax3d"],["notex"]);
- regional(nmL,name,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- tmp1=[];
- forall(nmL,name,
- tmp=parse(name);
- if(isstring(tmp_1),
- tmp1=concat(tmp1,tmp);
- ,
- tmp1=append(tmp1,name);
- );
- tmp=apply(tmp1,replace(#,"3d","2d"));
- Changestyle(tmp,style);
- tmp=apply(tmp,"sub"+#); // 15.05.24
- Changestyle(tmp,style);
- );
-);
-
-Dist3d(pt1):=Dist3d(pt1,[0,0,0]);
-Dist3d(pt1,pt2):=(
-//help:Dist3d(A3d,B3d);
-//help:Dist3d(A,B);
-//help:Dist3d("A","B");
- regional(p1,p2);
- if(islist(pt1),
- p1=pt1;
- ,
- if(ispoint(pt1),p1=text(pt1),p1=pt1);
- p1=parse(p1+"3d");
- );
- if(islist(pt2),
- p2=pt2;
- ,
- if(ispoint(pt2),p2=text(pt2),p2=pt2);
- p2=parse(p2+"3d");
- );
- sqrt((p2-p1)*(p2-p1));
-);
-
-Findangle(vec):=(
-//help:Findangle([2,1,4]);
-//help:Findangle([0,0,1,0]);
- regional(vec3,vec2,Eps,th,ph,tmp);
- Eps=10^(-4);
- vec3=vec_(1..3);
- vec2=vec_(1..2);
- th=arccos(vec_3/|vec3|);
- if(|vec2|>Eps,
- ph=arccos(vec_1/|vec2|);
- if(vec_2<0,
- ph=2*pi-ph; // 15.03.28
- );
- ,
- if(length(vec)>3,ph=vec_4*pi/180,ph=PHI);
- );
- [th,ph];
-);
-
-Cancoordpara(pc):=(
-//help:Cancoordpara([1,2,0]);
- regional(Xz,Yz,Zz,tmp1,tmp2,tmp3);
- Xz=pc_1; Yz=pc_2; Zz=pc_3;
- tmp1=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- tmp2=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- tmp3=Yz*sin(THETA)+Zz*cos(THETA);
- [tmp1,tmp2,tmp3];
-);
-
-Zparapt(cc):=(
- regional(x,y,z);
- x=cc_1; y=cc_2; z=cc_3;
- x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-);
-
-Projcoordpara(cc):=(
-//help:Projcoordpara([3,1,2]);
- regional(tmp);
- tmp=Parapt(cc);
- [tmp_1,tmp_2,Zparapt(cc)];
-);
-
-Parapt(pt):=(
-//help:Parapt([2,1,5]);
- regional(Xz,Yz);
- Xz=-pt_1*sin(PHI)+pt_2*cos(PHI);
- Yz=-pt_1*cos(PHI)*cos(THETA)-pt_2*sin(PHI)*cos(THETA)+pt_3*sin(THETA);
- [Xz,Yz];
-);
-
-ProjCurve(crv):=(
-//help:Projcurve("sl3d1");
- regional(CurveL,Curve,Eps,AnsL,Out,sp,cp,st,,ct,ii,pt,
- Xz,Yz,tmp,tmp1,tmp2);
- Eps=10^(-6);
- sp=sin(PHI); cp=cos(PHI);
- st=sin(THETA); ct=cos(THETA);
- if(isstring(crv),CurveL=parse(crv),CurveL=crv);
- if(MeasureDepth(CurveL)==1,CurveL=[CurveL]);
- Out=[];
- forall(CurveL,Curve,
- AnsL=[];
- forall(1..length(Curve),ii,
- pt=Curve_ii;
- if(pt_1!="inf",
- Xz=-pt_1*sp+pt_2*cp;
- Yz=-pt_1*cp*ct-pt_2*sp*ct+pt_3*st;
- tmp=[Xz,Yz];
- if(ii==1,
- AnsL=[tmp];
- ,
- tmp1=AnsL_(length(AnsL));
- if(tmp1_1=="inf" % |tmp-tmp1|>Eps,
- AnsL=append(AnsL,tmp);
- );
- );
- ,
- AnsL=append(AnsL,["inf"]);
- );
- );
- tmp1=[];
- tmp2=select(1..length(AnsL),AnsL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[AnsL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(AnsL),
- tmp1=concat(tmp1,[AnsL_(tmp..length(AnsL))]);
- );
- AnsL=tmp1;
- if(length(AnsL)==1,AnsL=AnsL_1);
- Out=append(Out,AnsL);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- Out;
-);
-
-Projpara(ptdata):=Projpara(ptdata,[]);
-Projpara(ptdata,options):=(
- regional(name2,name3,Ltype,Noflg,opcindy,dtL,ptL,tmp,Out);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(ptdata),dtL=ptdata,dtL=[ptdata]);
- Out=[];
- forall(dtL,name3,
-// name3=#;
- if(indexof(name3,"3d")>0, //17.05.24
- name2=replace(name3,"3d","2d");
- ,
- name2="para"+name3;
- );
- ptL=Projcurve(name3);
- ptL=select(ptL,length(#)>1);//17.06.02
- if(length(ptL)==1,
- ptL=ptL_1;
- );
- Out=append(Out,ptL);
- if(Noflg<3,
- println("generate projparadata "+name2);
- tmp=name2+"="+textformat(ptL,5);
- parse(tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(length(Out)==1,Out=Out_1);
-// Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1); // 15.02.24
- tmp=[];
- forall(Out,
- if(length(#)>0,tmp=append(tmp,#));
- );
- Out=tmp;
- Out;
-);
-
-InvparaptPp(pt,pd):=(
- regional(Eps,fk,nfk,ph,fh,ah,bh,ak,bk,v1,v2,
- nn,s0,t2,out,tmp,tmp1,tmp2,flg);
- Eps=10^(-4);
- if(isstring(pd),
- fk=pd;
- ,
- fk=textformat(pd,5);
- );
- nfk=Numptcrv(parse(fk));
- flg=0;
- tmp=pt;
- if(length(tmp)==1,
- ph=tmp;
- fh=pd;
- ,
- fh=Projpara(fk,["nodata"]);
- if(nfk>2,
- tmp1=Nearestpt(tmp,fh);
- ph=tmp1_2;
- ,
- ah=Ptcrv(1,fh); bh=Ptcrv(2,fh);
- v1=tmp-ah; v2=bh-ah;
- tmp1=Crossprod(v1,v2);
- if(abs(tmp1)>Eps,
- println(" Not on the line");
- out=[];
- flg=1;
- ,
- ph=Dotprod(v1,v2)/|v2|^2+1;
- );
- );
- );
- if(flg==0,
- if(nfk>2,
- nn=floor(ph);
- s0=ph-nn;
- if(ph>Numptcrv(fh)-Eps,
- out=[Ptend(fk),Numptcrv(fh)];
- flg=1;
- );
- ,
- nn=1;
- s0=ph-1;
- );
- );
- if(flg==0,
- ak=Ptcrv(nn,fk); bk=Ptcrv(nn+1,fk);
- ah=Ptcrv(nn,fh); bh=Ptcrv(nn+1,fh);
- ph=(1-s0)*ah+a0*bh;
- t2=s0;
- pk=(1-t2)*ak+t2*bk;
- out=[pk,nn+t2];
- );
- out;
-);
-
-Invparapt(pt,pd):=(
- regional(tmp);
- tmp=InvparaptPp(pt,pd);
- tmp_1;
-);
-
-Subgraph(name,opcindy):=(
- regional(tht,tmp,tmp1);
- tht=THETA; THETA=pi/2;
- tmp=Projpara(name3,["nodata"]);
- if(length(tmp)>0, //15.08.17
- tmp=Translatedata("",[tmp],[NE.x-SW.x,0],["nodata"]);
- tmp1=replace("sub"+name,"3d","2d");
- tmp=tmp1+"="+Textformat(tmp,5);
- parse(tmp);
- GCLIST=append(GCLIST,[tmp1,0,opcindy]);
- );
- THETA=tht; // 15.11.03
-);
-
-Spaceline(ptlist):=Spaceline(ptlist,[]); // 16.02.22 from
-Spaceline(Arg1,Arg2):=(
- regional(name,tmp,tmp1,tmp2);
- if(isstring(Arg1),
- Spaceline(Arg1,Arg2,[]);
- ,
- tmp=text(Arg1);
- tmp=substring(tmp,1,length(tmp)-1);
- name="-"+replace(tmp,",","");
- Spaceline(name,Arg1,Arg2);
- );
-); // 16.02.22 upto
-Spaceline(nm,ptlistorg,optionorg):=(
-//help:Spaceline("1",[[2,5,1],[4,2,3]]);
-//help:Spaceline([A,B]);
- regional(name2,name3,options,Out,tmp,tmp1,tmp2,
- opstr,opcindy,Ltype,Noflg,eqL,ptlist, Msg);
- ptlist=apply(ptlistorg,if(ispoint(#),parse(text(#)+"3d"),#)); // 16.02.10
- if(substring(nm,0,2)=="bz",
- name2=replace(nm,"bz","bz2d");
- name3=replace(nm,"bz","bz3d");
- ,
- if(substring(nm,0,1)=="-",
- tmp=substring(nm,1,length(nm));
- if(indexof(tmp,"3d")>0,name3=tmp,name3=tmp+"3d");
- name2=replace(name3,"3d","2d");
- ,
- name2="sl2d"+nm;
- name3="sl3d"+nm;
- );
- );
- options=select(optionorg,length(#)>0); // 160415
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1;
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1);
- if(Toupper(tmp1)=="N",
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Spaceline "+name3);
- );
- tmp=name3+"="+ptlist;
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp="[";
- forall(ptlist, //17.07.13from
- if(isstring(#),
- tmp=tmp+#+",";
- ,
- tmp=tmp+textformat(#,5)+",";
- );
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- tmp=name3+"=Spaceline("+tmp+")"; //17.07.13upto
-// tmp=name3+"=Spaceline("+textformat(ptlist,5)+")"; //17.05.24
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- ptlist;
-);
-
-Spacecurve(nm,funstr,variable):=Spacecurve(nm,funstr,variable,[]);
-Spacecurve(nm,funstr,variable,optionorg):=(
-//help:Spacecurve("1","[cos(t),sin(t),0.5*t]","t=[0,4*pi]",["Num=200"]);
- regional(name2,name3,options,Out,tmp,tmp1,tmp2,vname,tmpfn,str,Rng,Num,Msg,
- Ec,Exfun,Dc,opstr,opcindy,Fntmp,Vatmp,Ltype,Noflg,eqL,t1,t2,dt,tt,pa,ke);
- if(substring(nm,0,2)=="bz",
- name2=replace(nm,"bz","bz2d");
- name3=replace(nm,"bz","bz3d");
- ,
- name2="sc2d"+nm;
- name3="sc3d"+nm;
- );
- Eps=10^(-4);
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- options=select(optionorg,length(#)>0); // 160415
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Msg=1;
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+2);
- if(Toupper(tmp1)=="NO",
- Msg=0;
- );
- );
- tmp=indexof(#,"N=");
- if(tmp>0,
- tmp1=substring(#,tmp+1,length(#));
- Num=parse(tmp1);
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"Num=");
- if(tmp>0,
- tmp1=substring(#,tmp+3,length(#));
- Num=parse(tmp1);
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"E=");
- if(tmp>0,
- tmp1=substring(#,tmp+1,length(#));
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"Exc=");
- if(tmp>0,
- tmp1=substring(#,tmp+3,length(#));
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- );
- tmp=indexof(variable,"=");
- vname=substring(variable,0,tmp-1);
- str=substring(variable,tmp,length(variable));
- Rng=parse(str);
- t1=Rng_1; t2=Rng_2;
- dt=(t2-t1)/Num; // differ from Scilab
- tmp="tmpfn("+vname+"):="+funstr+";";
- parse(tmp);
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=tmpfn(tt);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=tmpfn(tt);
- ke=ke+1;
- );
- if(length(pa)>0,
- if(pa_1=="inf",
- Out=append(Out,pa);
- ,
- if(length(Out)==0,
- Out=[pa];
- ,
- tmp=Out_(length(Out));
- if(tmp_1=="inf",
- Out=append(Out,pa);
- ,
- if(|tmp-pa|<Dc,
- Out=append(Out,pa);
- ,
- Out=concat(Out,[["inf"],pa]);
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..length(Out),Out_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[Out_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..length(Out))]);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Spacecurve "+name3);
- );
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=name3+"=Spacecurve(Assign('"+funstr+"'),'"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- tmp=parse(name2); // 15.08.17
- if(length(tmp)>0,
- Subgraph(name3,opcindy);
- ); // 15.08.17
- );
- );
- Out;
-);
-
-Partcrv3d(nm,pA,pB,PkLstr):=Partcrv3d(nm,pA,pB,PkLstr,[]);
-Partcrv3d(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv3d("1",A,B,"sl3d1");
-//help:Partcrv3d("1",1.3,2.5,"sl3d1");
- regional(p1,p2,q1,q2,dt1,dts,dt3,tmp,tmp1,tmp2);
- if(isreal(pA),
- p1=pA; q1=pA;
- ,
- if(islist(pA),
- tmp=pA;
- ,
- if(ispoint(pA),tmp=text(pA),tmp=pA);
- tmp=parse(tmp+"3d");
- );
- p1=parapt(tmp);
- q1=[p1_1,tmp_3]+[NE.x-SW.x,0];
- );
- if(isreal(pB),
- p2=pB; q2=pB;
- ,
- if(islist(pB),
- tmp=pB;
- ,
- if(ispoint(pB),tmp=text(pB),tmp=pB);
- tmp=parse(tmp+"3d");
- );
- p2=parapt(tmp);
- q2=[p2_1,tmp_3]+[NE.x-SW.x,0];
- );
- tmp=replace(PkLstr,"3d","2d");
- dt1=partcrv("",p1,p2,tmp,["nodata"]);
- dts=partcrv("",q1,q2,"sub"+tmp,["nodata"]);
- dt=apply(1..length(dt1),
- Xyzcoord(dt1_#_1,dt1_#_2,dts_#_2));
- Spaceline("-part3d"+nm,dt,options);
-);
-
-Joincrvs3d(nm,plotstrL):=Joincrvs3d(nm,plotstrL,[]);//16.10.06
-Joincrvs3d(nm,plotstrL,options):=(
-//help:Joincrvs3d("1",["bz3da1","bz3da1"]);
- regional(PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name2,name3,Ltype,Noflg);
- name2="join2d"+nm;
- name3="join3d"+nm;
- QdL=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- ,
- tmp=str;
- );
- QdL=append(QdL,tmp);
- );
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Eps=tmp1_1);
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..length(QdL),Ni,
- Qd=QdL_Ni;
- if(length(Qd)>1,
- pP=PtL_1;
- pS=PtL_(length(PtL));
- pQ=Qd_1;
- pR=Qd_(length(Qd));
- rMN=min([norm(pP-pQ),norm(pP-pR),
- norm(pS-pQ),norm(pS-pR)]);
- if(rMN==norm(pP-pR),
- Qd=reverse(Qd);
- ,
- if(rMN==norm(pS-pQ),
- PtL=reverse(PtL);
- ,
- if(rMN==norm(pS-pR),
- PtL=reverse(PtL);
- Qd=reverse(Qd);
- );
- );
- );
- );
- if(rMN>Eps,
- PtL=concat(PtL,Qd);
- ,
- PtL=concat(PtL,Qd_(2..length(Qd)));
- );
- );
- );
- if(Noflg<3,
- println("generate Joincurves3d "+name3);
- tmp=name3+"="+textformat(PtL,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(plotstrL);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp=name3+"=Joincrvs("+tmp+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- tmp=parse(name2); // 15.08.17
- if(length(tmp)>0,
- Subgraph(name3,opcindy);
- ); // 15.08.17
- );
- );
- PtL;
-);
-
-Xyzax3data(nm,Xrange,Yrange,Zrange):=
- Xyzax3data(nm,Xrange,Yrange,Zrange,[]);
-Xyzax3data(nm,Xrange,Yrange,Zrange,options):=(
-//help:Xyzax3data("","x=[-5,5]","y=[-5,5]","z=[-5,5]");
-//help:Xyzax3data(Options2=["a1","Osw"]);
- regional(name2,name3,Out,tmp,tmp1,tmp2,eqL,reL,strL,
- opstr,opcindy,Ltype,Noflg,Axname,Arrow,Origin);
- name2="ax2d"+nm;
- name3="ax3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- opcindy=tmp_(length(tmp));
- Axname=1;
- Arrow=0; // 16.08.14
- Origin=""; // 16.08.14
- if(length(reL)>0,
- Axname=reL_1;
- );
- forall(strL, // 16.08.14from
- tmp1=Toupper(substring(#,0,1));
- if(tmp1=="A",
- tmp=substring(#,1,length(#));
- if(length(tmp)>0,
- Arrow=parse(tmp);
- ,
- Arrow=1;
- );
- );
- if(tmp1=="O",
- tmp=indexof(#,",");
- if(tmp>0,
- Origin=substring(#,tmp,length(#));
- ,
- tmp=substring(#,1,length(#));
- if(length(tmp)>0,
- Origin=tmp;
- ,
- Origin="sw";
- );
- );
- );
- ); // 16.08.14upto
- tmp1=indexof(Xrange,"=");
- tmp=parse(substring(Xrange,tmp1,length(Xrange)));
- Px=[tmp_1,0,0]; Qx=[tmp_2,0,0];
- tmp1=indexof(Yrange,"=");
- tmp=parse(substring(Yrange,tmp1,length(Yrange)));
- Py=[0,tmp_1,0]; Qy=[0,tmp_2,0];
- tmp1=indexof(Zrange,"=");
- tmp=parse(substring(Zrange,tmp1,length(Zrange)));
- Pz=[0,0,tmp_1]; Qz=[0,0,tmp_2];
- Out=[[Px,Qx],[Py,Qy],[Pz,Qz]];
- if(Axname>0,
- Xyzaxparaname(Xrange,Yrange,Zrange,[Axname]);
- );
- if(Noflg<3,
- println("generate axes "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara([name3],["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=name3+"=Xyzax3data("+
- Dq+Xrange+Dq+","+Dq+Yrange+Dq+","+Dq+Zrange+Dq+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(Noflg<1, // 16.08.14from
- if(Arrow>0,
- tmp1=Parapt(Px); tmp2=Parapt(Qx);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- tmp1=Parapt(Py); tmp2=Parapt(Qy);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- tmp1=Parapt(Pz); tmp2=Parapt(Qz);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- );
- if(length(Origin)>0,
- Letter([Parapt([0,0,0]),Origin,"O"]);
- );
- ); // 16.08.14upto
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Xyzaxparaname(Xrange,Yrange,Zrange):=
- Xyzaxparaname(Xrange,Yrange,Zrange,[]);
-Xyzaxparaname(Xrange,Yrange,Zrange,options):=(
- regional(tmp,tmp1,tmp2,Eps,Dr,Noflg,Xname,Yname,Zname,
- px,qx,py,qy,pz,qz,ph,qh,rr,ch);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Noflg=0;
- forall(options,
- if(isreal(#),Dr=Dr*#);
- );
- tmp=indexof(Xrange,"=");
- Xname=substring(Xrange,0,tmp-1);
- tmp=parse(substring(Xrange,tmp,length(Xrange)));
- px=[tmp_1,0,0]; qx=[tmp_2,0,0];
- tmp=indexof(Yrange,"=");
- Yname=substring(Yrange,0,tmp-1);
- tmp=parse(substring(Yrange,tmp,length(Yrange)));
- py=[0,tmp_1,0]; qy=[0,tmp_2,0];
- tmp=indexof(Zrange,"=");
- Zname=substring(Zrange,0,tmp-1);
- tmp=parse(substring(Zrange,tmp,length(Zrange)));
- pz=[0,0,tmp_1]; qz=[0,0,tmp_2];
- ph=Parapt(px); qh=Parapt(qx); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Xname);
- );
- ph=Parapt(py); qh=Parapt(qy); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Yname);
- );
- ph=Parapt(pz); qh=Parapt(qz); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Zname);
- );
-);
-
-Datalist3d():=(
-//help:Datalist3d();
- regional(out,tmp,tmp2,tmp3);
- tmp=apply(GCLIST,#_1);
- tmp=select(tmp,indexof(#,"2d")>0);
- tmp2=select(tmp,indexof(#,"sub")==0);
- tmp3=apply(tmp2,replace(#,"2d","3d"));
- out=tmp3;
-);
-
-Datalist2d():=(
-//help:Datalist2d();
- regional(out,tmp,tmp2,tmp3);
- tmp=apply(GCLIST,#_1);
- tmp=select(tmp,indexof(#,"2d")>0);
- tmp2=select(tmp,indexof(#,"sub")==0);
-// tmp3=apply(tmp2,replace(#,"2d","3d"));
- out=tmp2;
-);
-
-Embed(nm,Pd2str,funstr,varstr):=
- Embed(nm,Pd2str,funstr,varstr,[]);
-Embed(nm,Pd2str,funstr,varstr,options):=(
-//help:Embed("1",["gr1"],"A3d+x*(B3d-A3d)+y*(C3d-A3d)","[x,y]");
- regional(name2,name3,Pd2L,Pd2,tmp,tmp1,xstr,ystr,
- Ltype,Noflg,opstr,opcindy,Out);
- name2="em2d"+nm;
- name3="em3d"+nm;
- if(!islist(Pd2str),Pd2L=[Pd2str],Pd2L=Pd2str); // 15.03.06
- tmp1=[]; // 15.10.31
- forall(Pd2L,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(MeasureDepth(tmp)==2,
- tmp1=concat(tmp1,tmp);
- );
- if(MeasureDepth(tmp)==1,
- tmp1=append(tmp1,tmp);
- );
- );
- Pd2L=tmp1;
- tmp=substring(varstr,0,1);
- if(tmp=="[" % tmp=="(",
- tmp1=substring(varstr,1,length(varstr)-1);
- ,
- tmp1=varstr;
- );
- tmp=indexof(tmp1,",");
- xstr=substring(tmp1,0,tmp-1);
- ystr=substring(tmp1,tmp,length(tmp1));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Out=[];
- forall(Pd2L,Pd2,
- tmp1=[];
- forall(Pd2,
- tmp=Assign(funstr,xstr,"("+textformat(#_1,5)+")");
- tmp=Assign(tmp,ystr,"("+textformat(#_2,5)+")");
- tmp=parse(tmp);
- tmp1=append(tmp1,tmp);
- );
- Out=append(Out,tmp1);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Embed "+name3);
- if(length(Out)>0,
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(!islist(Pd2str),
- tmp=Pd2str;
- ,
- tmp=text(Pd2str);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- );
- tmp=name3+"=Embed("+tmp+",'"+funstr+"','"+varstr+"'"+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(length(Out)>0,
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- );
- Out;
-);
-
-Rotatept3d(point,w1,w2):=Rotate3pt(point,w1,w2);
-Rotatept3d(point,w1,w2,center):=Rotate3pt(point,w1,w2,center);
-//help:Rotatept3d(pt3d,[0,0,1],pi/2);
-//help:Rotatept3d(pt3d,[0,0,1],pi/2,[1,1,1]);
-Rotate3pt(point,w1,w2):=Rotate3pt(point,w1,w2,[0,0,0]);
-Rotate3pt(point,w1,w2,center):=(
-//help:Rotate3pt(pt3d,[0,0,1],pi/2);
-//help:Rotate3pt(pt3d,[0,0,1],pi/2,[1,1,1]);
- regional(Eps,ct,st,v3,v1,v2,Ans,ns,PtL,num,
- pt,tmp,tmp1,tmp2,Retflg,x,y,z,xx,yy,zz,flg);
- Eps=10^(-4);
- Retflg=0;
- if(length(w2)==1,
- ct=cos(w2);
- st=sin(w2);
- v3=1/|w1|*w1;
- if(v3_1==0,
- tmp=[1,0,0];
- ,
- tmp=[0,1,0];
- );
- w1=[tmp_2*v3_3-tmp_3*v3_2,
- tmp_3*v3_1-tmp_1*v3_3,
- tmp_1*v3_2-tmp_2*v3_1];
- v1=1/|w1|*w1;
- v2=[v3_2*v1_3-v3_3*v1_2,
- v3_3*v1_1-v3_1*v1_3,
- v3_1*v1_2-v3_2*v1_1];
- ,
- tmp=[w1_2*w2_3-w1_3*w2_2,
- w1_3*w2_1-w1_1*w2_3,
- w1_1*w2_2-w1_2*w2_1];
- if(|tmp|<Eps,
- Ans=point;
- Retflg=1;
- );
- if(Retflg==0,
- v1=1/|w1|*w1;
- ns=v1_1*w2_1+v1_2*w2_2+v1_3*w2_3;
- tmp=w2-ns*v1;
- v2=1/|tmp|*tmp;
- tmp=[v1_2*v2_3-v1_3*v2_2,
- v1_3*v2_1-v1_1*v2_3,
- v1_1*v2_2-v1_2*v2_1];
- v3=1/|tmp|*tmp;
- ct=ns/|w2|;
- st=sqrt(1-ct^2);
- );
- );
- if(Retflg==0,
- if(|tmp|<Eps,
- Ans=point;
- Retflg=1;
- );
- );
- if(Retflg==0,
- if(MeasureDepth(point)>0,
- PtL=point;
- ,
- PtL=[point];
- );
- Ans=[];
- flg=0;
- forall(1..length(PtL),num,
- pt=PtL_num;
- if(pt_1=="inf",
- Ans=append(Ans,["inf"]);
- flg=1;
- );
- if(flg==0,
- x=pt_1-center_1; y=pt_2-center_2; z=pt_3-center_3;
- xx=((v1_1*ct+v2_1*st)*v1_1+ (-v1_1*st+v2_1*ct)*v2_1+v3_1^2)*x
- +((v1_1*ct+v2_1*st)*v1_2+(-v1_1*st+v2_1*ct)*v2_2+v3_1*v3_2)*y
- +((v1_1*ct+v2_1*st)*v1_3+(-v1_1*st+v2_1*ct)*v2_3+v3_1*v3_3)*z;
- yy=((v1_2*ct+v2_2*st)*v1_1+(-v1_2*st+v2_2*ct)*v2_1+v3_1*v3_2)*x
- +((v1_2*ct+v2_2*st)*v1_2+(-v1_2*st+v2_2*ct)*v2_2+v3_2^2)*y
- +((v1_2*ct+v2_2*st)*v1_3+(-v1_2*st+v2_2*ct)*v2_3+v3_2*v3_3)*z;
- zz=((v1_3*ct+v2_3*st)*v1_1+(-v1_3*st+v2_3*ct)*v2_1+v3_1*v3_3)*x
- +((v1_3*ct+v2_3*st)*v1_2+(-v1_3*st+v2_3*ct)*v2_2+v3_2*v3_3)*y
- +((v1_3*ct+v2_3*st)*v1_3+(-v1_3*st+v2_3*ct)*v2_3+v3_3^2)*z;
- Ans=append(Ans,center+[xx,yy,zz]);
- );
- );
- if(length(Ans)==1,
- Ans=Ans_1;
- );
- );
- Ans;
-);
-
-Rotatedata3d(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2);
-Rotatedata3d(nm,P3data,w1,w2,options):=
- Rotate3data(nm,P3data,w1,w2,options);
-//help:Rotatedata3d("1",["sl3d1","sc3d2"],[0,0,1],pi/3);
-Rotate3data(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2,[]);
-Rotate3data(nm,P3data,w1,w2,options):=(
- regional(name3,name2,center,pdata,Pd3,Pd,Out,tmp,tmp1,
- Ltype,Noflg,opcindy,opstr);
- name3="rot3d"+nm;
- name2="rot2d"+nm;
- center=[0,0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- center=tmp1_1;
- );
- if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
- Out=[];
- forall(Pd3,Pd,
- if(isstring(Pd),Pd=parse(Pd));
- if(MeasureDepth(Pd)==1,Pd=[Pd]);
- Ans=[];
- forall(Pd,
- tmp=Rotate3pt(#,w1,w2,center);
- Ans=append(Ans,tmp);
- );
- Out=append(Out,Ans);
- );
- Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1);
- if(Noflg<3,
- println("generate Rotate3data "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- tmp=name3+"=Rotate3data("+tmp+","
- +textformat(w1,5)+","+textformat(w2,5)+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Translatept3d(point,w1):=Translate3pt(point,w1);
-//help:Translatept3d(pt3d,[1,2,3]);
-Translate3pt(point,w1):=(
- regional(Eps,Ans,PtL,pt,num,xx,yy,zz,flg);
- Eps=10^(-4);
- if(MeasureDepth(point)>0,
- PtL=point;
- ,
- PtL=[point];
- );
- Ans=[];
- flg=0;
- forall(1..length(PtL),num,
- pt=PtL_num;
- if(pt_1=="inf",
- Ans=append(Ans,["inf"]);
- flg=1;
- );
- if(flg==0,
- xx=pt_1+w1_1; yy=pt_2+w1_2; zz=pt_3+w1_3;
- Ans=append(Ans,[xx,yy,zz]);
- );
- );
- if(length(Ans)==1,
- Ans=Ans_1;
- );
- Ans;
-);
-
-Translatedata3d(nm,P3data,w1):=Translate3data(nm,P3data,w1);
-Translatedata3d(nm,P3data,w1,options):=
- Translate3data(nm,P3data,w1,options);
-//help:Translatedata3d("1",["sl3d1"],[1,2,3]);
-Translate3data(nm,P3data,w1):=Translate3data(nm,P3data,w1,[]);
-Translate3data(nm,P3data,w1,options):=(
- regional(name3,name2,pdata,Pd3,Pd,Out,tmp,tmp1,
- Ltype,Noflg,opcindy);
- name3="tra3d"+nm;
- name2="tra2d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
- Out=[];
- forall(Pd3,Pd,
- if(isstring(Pd),Pd=parse(Pd));
- if(MeasureDepth(Pd)==1,Pd=[Pd]);
- Ans=[];
- forall(Pd,
- tmp=Translate3pt(#,w1);
- Ans=append(Ans,tmp);
- );
- Out=append(Out,Ans);
- );
- Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1);
- if(Noflg<3,
- println("generate Translate3data "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Reflectpoint3d(point,vecL):=Reflect3point(point,vecL);
-Reflectpt3d(point,vecL):=Reflect3pt(point,vecL);
-//help:Reflectpoint3d(pt3d,[v1,v2,v3]);
-Reflect3point(point,vecL):=Reflect3pt(point,vecL);
-Reflect3pt(point,vecL):=(
- regional(ans,v1,v2,v3,tmp,tmp1);
- if(length(vecL)==1,
- v1=vecL_1;
- ans=2*v1-point;
- );
- if(length(vecL)==2,
- v1=vecL_1;
- v2=vecL_2;
- v3=(v2-v1)/|v2-v1|;
- tmp=v1+Dotprod(point-v1,v3)*v3;
- ans=2*tmp-point;
- );
- if(length(vecL)==3,
- v1=vecL_1;
- v2=vecL_2;
- v3=vecL_3;
- tmp=Crossprod(v2-v1,v3-v1);
- tmp1=point-Dotprod(tmp,point-v1)/|tmp|^2*tmp;
- ans=2*tmp1-point;
- );
- ans;
-);
-
-Xyzcoord(X,Y,z):=(
-//help:Xyzcoord(A.x,A.y,Az.y);
- regional(Eps,x3d,y3d,z3d);
- x3d=(-X*sin(PHI)*cos(THETA)-Y*cos(PHI)+z*cos(PHI)*sin(THETA))/cos(THETA);
- y3d=(X*cos(PHI)*cos(THETA)-Y*sin(PHI)+z*sin(PHI)*sin(THETA))/cos(THETA);
- z3d=z;
- [x3d,y3d,z3d];
-);
-
-PutonCurve3d(name,pdstr):=(
-//help:PutonCurve3d("T","sc3d1");
- regional(pt,pd2str,tmp,tmp1,tmp2);
- pd2str=replace(pdstr,"3d","2d");
- PutonCurve(name,pd2str);
- pt=parse(name+".xy");
- tmp=Nearestpt(pt,pd2str); // 15.03.13
- tmp1=ParamonCurve(tmp_1,tmp_2,pd2str);
- tmp="sub"+pd2str;
- tmp2=PointonCurve(tmp1,tmp);
- pt=append(pt,tmp2_2);
- pt=Xyzcoord(pt_1,pt_2,pt_3); // 15.03.13
- tmp=name+"z.xy="+textformat(tmp2,5);
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"3d=");
- Defvar(name+"3d",pt);
-);
-
-Mkpointlist():=Mkpointlist([]); //16.11.12
-Mkpointlist(options):=( //16.11.12
- regional(Eps,pos,ptL,plist,ilist,plistrest,
- inforest,free,pt,pt3,ptz,par,vlistpre,
- tmp,tmp1,tmp2,tmp3,tmp4,p1,p2,flg);
- Eps=10^(-4);
- tmp=Finddef(NE);
- free=tmp_1;
- pos=[NE.x+1,NE.y];
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp=remove(tmp,options); //16.11.12
- plist=select(tmp,
- substring(text(#),length(text(#))-1,length(text(#)))!="z"
- );
- if(SUBSCR==0,plist=[]);
- ptL=[];
- plistrest=[];
- inforest=[];
- forall(plist,pt,
- inspect(pt,"ptsize",3);
- inspect(pt,"color",2);
- inspect(pt,"textsize",TSIZE);
- ptz=text(pt)+"z";
- tmp=Finddef(pt);
- if(indexof(tmp_1,free)>0, // free point
- tmp=select(VLIST,#_1==text(pt)+"3d=");
- if(length(tmp)==0,
- tmp=pt.x+NE.x-SW.x;
- Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- Defvar(text(pt)+"3d",pt3);
- Defvar(text(pt)+"fix",0);
- vlistpre=VLIST; //16.08.20
- );
- flg=0;
- if(isselected(pt),
- if(parse(text(pt)+"fix")!=1, // 15.03.01
- tmp=pt.x+NE.x-SW.x;
- Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- VLIST=select(VLIST,#_1!=text(pt)+"3d=");
- Defvar(text(pt)+"3d",pt3);
- vlistpre=VLIST; //16.08.20
- flg=1;
- );
- );
- inspect(parse(ptz),"ptsize",3);
- inspect(parse(ptz),"color",3);
- inspect(parse(ptz),"textsize",TSIZEZ);
- if(isselected(parse(ptz)),
- if(parse(ptz+"fix")!=1, // 15.03.01
- tmp=select(vlistpre,#_1==text(pt)+"3d="); //16.08.20
- pt3=tmp_1_2;
- pt3_3=parse(ptz+".y");
- pt.xy=Parapt(pt3);
- tmp=ptz+".x=pt.x+NE.x-SW.x";
- parse(tmp);
- VLIST=select(VLIST,#_1!=text(pt)+"3d=");
- Defvar(text(pt)+"3d",pt3);
- flg=2;
- );
- );
- if(flg==0,
- tmp=select(VLIST,#_1==text(pt)+"3d=");
- pt3=tmp_1_2;
- pt.xy=Parapt(pt3);
- tmp=ptz+".x=pt.x+NE.x-SW.x";
- parse(tmp);
- );
- if(isselected(pt) % isselected(parse(ptz)),
- drawtext(pos,text(pt3));
- );
- if(!contains(["p","q"],text(pt)),
- ptL=append(ptL,pt);
- );
- ,
- tmp=Findgeoinfo(pt);
- tmp1=[parse(tmp_1),parse(tmp_2),parse(tmp_3)];
- plistrest=append(plistrest,pt);
- inforest=append(inforest,tmp);
- );
- );
- if(length(plistrest)>0,
- tmp=Sortpointlist([plistrest,inforest]);
- plist=tmp_1;
- ilist=tmp_2;
- forall(1..length(plist),
- pt=plist_#;
- ptz=text(pt)+"z";
- tmp=ilist_#;
- p1=parse(tmp_3);
- p2=p1+parse(tmp_2)-parse(tmp_1);
- tmp1=p2-p1;
- tmp2=pt-p1;
- if(abs(tmp1_1)>abs(tmp1_2),
- par=tmp2_1/tmp1_1;
- ,
- par=tmp2_2/tmp1_2;
- );
- tmp=ilist_#;
- tmp1=parse(tmp_1+"3d");
- tmp2=parse(tmp_2+"3d");
- tmp3=parse(tmp_3+"3d");
- tmp1=(1-par)*tmp3+par*(tmp3+tmp2-tmp1);
- Putpoint(ptz,[pt.x+NE.x-SW.x,tmp1_3]);
- inspect(parse(ptz),"ptsize",3);
- inspect(parse(ptz),"color",3);
- inspect(parse(ptz),"textsize",TSIZEZ);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
- Defvar(text(pt)+"3d",pt3);
- vlistpre=VLIST; //16.08.20
- if(isselected(pt) % isselected(parse(ptz)),
- drawtext(pos,text(pt3));
- );
- if(!contains(["p","q"],text(pt)),
- ptL=append(ptL,pt);
- );
- );
- );
- ptL;
-);
-
-Mkseg3d():=Mkseg3d([]);
-Mkseg3d(options):=(
- regional(seg,nmseg,def,ptA,ptB,segL,opstr,opcindy,
- name,strg,Ltype,Noflg,tht,tmp,tmp1,tmp2,tmp3);
- name="geoseg3d";
- strg=name+"=list(";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- segL=[];
- forall(allsegments(),seg,
- inspect(seg,"labeled",false);
- tmp=Finddef(seg);
- def=tmp_1;
- ptA=tmp_2;
- ptB=tmp_3;
- if(ispoint(parse(ptA)) & ispoint(parse(ptB)),
- tmp1=select(VLIST,indexof(#_1,ptA+"3d=")>0);
- tmp2=select(VLIST,indexof(#_1,ptB+"3d=")>0);
- if(length(tmp1)>0 & length(tmp2)>0,
- tmp1="["+ptA+"3d,"+ptB+"3d]";
- nmseg=ptA+ptB;
-// Spaceline(nmseg,parse(tmp1),append(options,"Msg=nodisp")); //15.06.15
- Spaceline("-"+nmseg+"3d",[ptA+"3d",ptB+"3d"], // 16.04.07
- append(options,"Msg=nodisp")); //15.06.15
- segL=append(segL,nmseg+"3d");// 16.04.07
- strg=strg+nmseg+"3d,";// 16.04.07
- );
- );
- );
- println("generate totally "+name);
- if(length(segL)>0, // 15.03.06
- strg=substring(strg,0,length(strg)-1)+")";
- if(Noflg<3,
- GLIST=append(GLIST,strg);
- );
- tmp1=apply(segL,Dq+#+Dq); //15.03.02
- tmp=name+"="+text(tmp1);
- parse(tmp);
- );
- segL;
-);
-
-Ptseg3data():=Ptseg3data([]);
-//help:Ptseg3data();
-//help:Ptseg3data([A,B]);
-Ptseg3data(options):=(
- regional(pt,pt3,plist,tmp,tmp1,tmp2);
- if(isselected(TH) % isselected(FI),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp=remove(tmp,options); //16.11.12
- tmp=apply(tmp,text(#));
- plist=select(tmp,substring(#,length(#)-1,length(#))!="z");
- forall(plist,pt,
- tmp1=text(pt);
- tmp=select(VLIST,#_1==tmp1+"3d=");
- if(length(tmp)>0,
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
- if(SUBSCR==1,
- tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
- parse(tmp);
- );
- );
- );
- ,
- Mkpointlist(options); // 16.12.18
- );
- forall(alllines(),
- #.color=[0.5,0.5,1];
- );
- SEG3dlist=Mkseg3d(options);
- SEG3dlist;
-);
-
-Putonseg3d(name,ptL):=Putonseg3d(name,ptL_1,ptL_2,[]);
-Putonseg3d(name,Arg1,Arg2):=(
- if(islist(Arg1),
- Putonseg3d(name,Arg1_1,Arg1_2,Arg2);
- ,
- Putonseg3d(name,Arg1,Arg2,[]);
- );
-);
-Putonseg3d(name,pt1,pt2,options):=(
-//help:Putonseg3d("C",[A,B]);
-//help:Putonseg3d("C",A,B);
- regional(par,pn1,pn2,tmp,tmp1,tmp2,tmp3);
- par=0.5;
- tmp=divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- Putonseg(name,pt1,pt2,[par]);
- inspect(parse(name),"ptsize",3);
- inspect(parse(name),"color",2);
- inspect(parse(name),"textsize",TSIZEZ);
- Putpoint(name+"z",[parse(name+".x"),0]);
- inspect(parse(name+"z"),"ptsize",3);
- inspect(parse(name+"z"),"color",3);
- inspect(parse(name+"z"),"textsize",TSIZEZ);
- pn1=text(pt1);
- pn2=text(pt2);
- tmp1=replace("PTCz.y=PTAz.y+|PTC-PTA|/|PTB-PTA|*(PTBz.y-PTAz.y)","PTC",name);
- tmp1=replace(tmp1,"PTA",pn1);
- tmp1=replace(tmp1,"PTB",pn2);
- tmp2=replace("PTCz.x=PTAz.x+|PTC-PTA|/|PTB-PTA|*(PTBz.x-PTAz.x)","PTC",name);
- tmp2=replace(tmp2,"PTA",pn1);
- tmp2=replace(tmp2,"PTB",pn2);
- parse(tmp2);
- parse(tmp1);
- tmp1=parse(name+".x");
- tmp2=parse(name+".y");
- tmp3=parse(name+"z.y");
- tmp=Xyzcoord(tmp1,tmp2,tmp3);
- Defvar(name+"3d",tmp);
-);
-
-Putpoint3d(ptslist):=Putpoint3d(ptslist,"",0);
-Putpoint3d(Arg1,Arg2):=( // 16.03.02 from
- if(islist(Arg1),
- Putpoint3d(Arg1,Arg2,0);
- ,
- Putpoint3d(Arg1,Arg2,"fix");
- );
-);
-Putpoint3d(Arg1,Arg2,Arg3):=(
-//help:Putpoint3d(["A",[2,1,3]]);
-//help:Putpoint3d(["A",[2,1,3]],"fix");
-//help:Putpoint3d("A",[2,1,3]);
-//help:Putpoint3d(["A",[2,1,3]],["fix"]);
- regional(nn,kk,pt,pt3,ptslist,fixstr,tmp,tmp1,tmp2,tmp3); //16.08.19
- if(isstring(Arg1),
- ptslist=[Arg1,Arg2];
- fixstr=Arg3;
- ,
- ptslist=Arg1;
- fixstr=Arg2;
- );
- if(islist(fixstr),fixstr=fixstr_1);// 16.03.02 upto
- nn=length(ptslist)/2;
- forall(1..nn,kk, // 16.08.19from
- tmp1=ptslist_(2*kk-1);
- pt3=ptslist_(2*kk); // 16.08.19upto
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
- tmp2=parse(tmp1);
- if(ispoint(tmp2), // 16.05.26from
- if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
- tmp=Toupper(tmp);
- if(tmp!="FIX",
- tmp=Xyzcoord(tmp2.x,tmp2.y,parse(tmp1+"z").y);
- ,
- tmp=pt3;
- );
- Defvar(tmp1+"3d",tmp);
- ,
- Defvar(tmp1+"3d",pt3);
- ); // 16.05.26upto
- Defvar(tmp1+"fix",0);
- pt=Parapt(pt3);
- Putpoint(tmp1,pt,parse(tmp1+".xy"));
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",2);
- inspect(parse(tmp1),"textsize",TSIZE);
- if(SUBSCR==1,
- tmp2=tmp1+"z";
- tmp=[pt.x+NE.x-SW.x,pt3_3];
- tmp1="[NE.x-SW.x+"+tmp1+".x,"+tmp2+"y]";
- Putpoint(tmp2,tmp,parse(tmp1));
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- inspect(parse(tmp2),"textsize",TSIZEZ);
- );
- );
- if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
- if(tmp=="fix" % tmp=="Fix",
- Fixpoint3d(ptslist);
- );
-);
-
-Fixpoint3d(ptlist):=(
-// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]);
- regional(name,pt3,pt2,tmp,tmp1,tmp2);
- forall(1..(length(ptlist)/2),
- name=ptlist_(2*#-1);
- Defvar(name+"fix",1);
- pt3=ptlist_(2*#);
- pt2=Parapt(pt3);
- tmp1=textformat(pt2_1,5);
- tmp2=textformat(pt2_2,5);
- tmp=name+".xy=["+tmp1+","+tmp2+"]";
- parse(tmp);
- tmp1=name+".x+NE.x-SW.x";
- tmp2=textformat(pt3_3,5);
- tmp=name+"z.xy=["+tmp1+","+tmp2+"];";
- parse(tmp);
- );
-);
-
-Perppt(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"draw");
-Perppt(name,ptstr,pLstr,option):=Putperp(name,ptstr,pLstr,option);
-Putperp(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"put");
-Putperp(name,ptstr,pLstr,option):=(
-//help:Perppt("N","O","A-B-C");
-//help:Perppt("N","O","A-B-C","put");
-//help:Perppt("N","O","A-B","none");
- regional(out,Eps,N3d,sgstr,pP,pA,pB,pC,tmp,tmp1,flgpL);
- Eps=10^(-4);
- pP=parse(ptstr+"3d");
- tmp=indexof(pLstr,"-");
- pA=parse(substring(pLstr,0,tmp-1)+"3d");
- tmp1=substring(pLstr,tmp,length(pLstr));
- tmp=indexof(tmp1,"-");
- if(tmp>0,
- pB=parse(substring(tmp1,0,tmp-1)+"3d");
- pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
- flgpL=1;
- ,
- pB=parse(tmp1+"3d");
- flgpL=0;
- );
- if(flgpL==1,
- tmp=Crossprod(pB-pA,pC-pA);
- if(abs(tmp)<Eps,
- err("not a plane");
- ,
- tmp=tmp/|tmp|;
- N3d=pP+tmp;
- Defvar("tmp3d",N3d); // temporary
- sgstr=ptstr+"-tmp";
- tmp=IntersectsgpL(name,sgstr,pLstr,"none");
- VLIST=select(VLIST,#_1!="tmp3d=");
- out=tmp_1;
- Defvar(name+"3d",tmp_1);
- );
- ,
- if(|pB-pA|<Eps,
- err("on the line");
- ,
- tmp1=(pB-pA)/|pB-pA|;
- tmp=Dotprod(pP-pA,tmp1);
- out=pA+tmp*tmp1;
- Defvar(name+"3d",out);
- );
- );
- if(islist(option),tmp=option_1,tmp=option);
- tmp=substring(tmp,0,1);
- if(tmp=="P" % tmp=="p",
- Putpoint3d([name,out]);
- Fixpoint3d([name,out]);
- );
- if(tmp=="D" % tmp=="d",
- Drawpoint3d(out);
- );
- out;
-);
-
-Perpplane(name,ptstr,nvec):=
- Perpplane(name,ptstr,nvec,"draw");
-Perpplane(name,ptstr,nstr,option):=(
-//help:Perpplane("A-B","P",[1,3,2]);
-//help:Perpplane("A-B","P",[0,0,1,0]);
- regional(Eps,nvec,sgstr,pP,v1,v2,v3,
- th,ph,pA,pB,tmp,tmp1,tmp2);
- Eps=10^(-4);
- if(isstring(nstr),nvec=parse(nstr+"3d"),nvec=nstr);
- pP=parse(ptstr+"3d");
- v3=nvec/|nvec|;
- th=THETA; ph=PHI;
- tmp=findangle(v3);
- THETA=tmp_1; PHI=tmp_2;
- v1=Cancoordpara([1,0,0]);
- v2=Cancoordpara([0,1,0]);
- THETA=th; PHI=ph;
- tmp=indexof(pLstr,"-");
- pA=pP+v1;
- pB=pP+v2;
- if(islist(option),tmp=option_1,tmp=option);
- tmp=Toupper(substring(tmp,0,1)); // 16.06.19
- if(tmp=="P",
- tmp=indexof(name,"-");
- tmp1=substring(name,0,tmp-1);
- tmp2=substring(name,tmp,length(name));
- Putpoint3d([tmp1,pA,tmp2,pB],["fix"]);
- );
- if(tmp=="D",
- Drawpoint3d(pA);
- Drawpoint3d(pB);
- );
- [pA,pB];
-);
-
-Drawpoint3d(pt3):=(
-//help:Drawpoint3d(pt3d);
- regional(ptL,tmp,tmp1,tmp2);
- if(MeasureDepth(pt3)==0,ptL=[pt3],ptL=pt3);
- forall(ptL,
- tmp=parapt(#);
- draw(tmp_(1..2));
- if(SUBSCR==1,
- draw([tmp_1+NE.x-SW.x, #_3]);
- );
- );
-);
-
-Putaxes3d(size):=(
-//help:Putaxes3d(5);
-//help:Putaxes3d([1,2,3]);
- regional(sL);
- if(islist(size),sL=size,sL=[size,size,size]);
- Putpoint3d(["O",[0,0,0]],"fix"); //17.06.02from
- Putpoint3d(["X",[sL_1,0,0]],"fix");
- Putpoint3d(["Y",[0,sL_2,0]],"fix");
- Putpoint3d(["Z",[0,0,sL_3]],"fix");
-// Fixpoint3d(["O",[0,0,0]]);
-// Fixpoint3d(["X",[sL_1,0,0],"Y",[0,sL_2,0],"Z",[0,0,sL_3]]);//17.06.02fupto
-);
-
-IntersectsgpL(name,sgstr,pLstr):=
- IntersectsgpL(name,sgstr,pLstr,"draw");
-IntersectsgpL(name,sgstr,pLstr,option):=(
-//help:IntersectsgpL("R","P-Q","A-B-C");
-//help:IntersectsgpL("R","P-Q","A-B-C","put");
-//// help:IntersectsgpL("","P-Q","A-B-C","none");
-//help:IntersectsgpL("",[p1,p2],[p3,p4,p5],"draw");
- regional(opstr,out,pP,pQ,pA,pB,pC,pH,pK,pR,tseg,tt,ss,Eps,flg,
- nvec,tmp,tmp1,tmp2,tmp3,tmp4);
- if(islist(option),opstr=option_1,opstr=option);
- Eps=10^(-4);
- flg=0;
- if(!isstring(sgstr), // 15.05.29
- pP=sgstr_1;
- pQ=sgstr_2;
- ,
- tmp=indexof(sgstr,"-");
- if(tmp>0, // 15.05.28
- pP=parse(substring(sgstr,0,tmp-1)+"3d");
- pQ=parse(substring(sgstr,tmp,length(sgstr))+"3d");
- ,
- tmp1=parse(sgstr);
- pP=tmp1_1;
- pQ=tmp1_2;
- );
- );
- if(!isstring(pLstr), // 16.02.02
- pA=pLstr_1;
- pB=pLstr_2;
- pC=pLstr_3;
- ,
- tmp=indexof(pLstr,"-");
- pA=parse(substring(pLstr,0,tmp-1)+"3d");
- tmp1=substring(pLstr,tmp,length(pLstr));
- tmp=indexof(tmp1,"-");
- pB=parse(substring(tmp1,0,tmp-1)+"3d");
- pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
- );
- nvec=Crossprod(pB-pA,pC-pA);
- if(abs(Dotprod(nvec,pQ-pP))>Eps,
- pH=(Reflect3point(pP,[pA,pB,pC])+pP)/2;
- pK=(Reflect3point(pQ,[pA,pB,pC])+pQ)/2;
- tmp1=pP-pH;
- tmp2=tmp1+pK-pQ;
- tmp=select(tmp2,abs(#)==max(apply(tmp2,abs(#))));
- tmp=select(1..3,tmp2_#==tmp_1);
- tmp=tmp_1;
- tseg=tmp1_tmp/tmp2_tmp;
- pR=(1-tseg)*pH+tseg*pK;
- tmp=substring(opstr,0,1);
- if(Toupper(tmp)=="P",
- Putpoint3d([name,pR]);
- Fixpoint3d([name,pR]);
- );
- if(Toupper(tmp)=="D",
- Drawpoint3d(pR);
- );
- tmp=Dotprod(pB-pA,pC-pA);
- tmp1=Dotprod(pB-pA,pB-pA);
- tmp2=Dotprod(pC-pA,pC-pA);
- tmp3=Dotprod(pR-pA,pB-pA);
- tmp4=Dotprod(pR-pA,pC-pA);
- ss=-(tmp*tmp4-tmp3*tmp2)/(tmp1*tmp2-tmp^2);
- tt=(tmp1*tmp4-tmp*tmp3)/(tmp1*tmp2-tmp^2);
- out=[pR,tseg,ss,tt];
- ,
- if(Toupper(substring(opstr,0,1))!="N",
- println(" "+sgstr+","+pLstr+" are parallel");
- );
- out=[];
- );
- out;
-);
-
-Bezier3d(nm,ptctrlist):=Bezier3(nm,ptctrlist);
-Bezier3d(nm,Ag1,Ag2):=Bezier3(nm,Ag1,Ag2);
-Bezier3d(nm,ptlistorg,ctrlistorg,options):=
- Bezier3(nm,ptlistorg,ctrlistorg,options);
-//help:Bezier3d("1",["A","B","C"],["D","E","F","G"]);
-Bezier3(nm,ptctrlist):=Bezier3(nm,ptctrlist_1,ptctrlist_2,[]);
-Bezier3(nm,Ag1,Ag2):=(
- if(MeasureDepth(Ag1)==0,
- Bezier3(nm,Ag1,Ag2,[]);
- ,
- if(MeasureDepth(Ag1)>1,
- Bezier3(nm,Ag1_1,Ag1_2,Ag2);
- ,
- if(isstring(Ag_1_1),
- Bezier3(nm,Ag1,Ag2,[]);
- ,
- Bezier3(nm,Ag1_1,Ag1_2,Ag2);
- );
- );
- );
-);
-Bezier3(nm,ptlistorg,ctrlistorg,options):=(
- regional(name,name3,name2,tmp,tmp1,tmp2,
- Ltype,Noflg,opstr,eqL,ii,knt,ctr,out);
- name="bz"+nm;
- name3="bz3d"+nm;
- name2="bz2d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- tmp1=select(eqL,indexof(#,"Num")>0);
- if(length(tmp1)==0,eqL=append(eqL,"Num=20"));
- ptlist=ptlistorg;
- if(isstring(ptlistorg_1),ptlist=apply(ptlistorg,parse(#+"3d")));
- ctrlist=ctrlistorg;
- if(isstring(ctrlistorg_1),ctrlist=apply(ctrlistorg,parse(#+"3d")));
- out=[];
- forall(1..(length(ptlist)-1),ii,
- knt=[ptlist_ii,ptlist_(ii+1)];
- ctr=[ctrlist_(2*ii-1),ctrlist_(2*ii)];
- tmp="Bezierpt(T,ptlist,ctrlist)";//17.01.04
- tmp=Assign(tmp,"ptlist",knt);
- tmp=Assign(tmp,"ctrlist",ctr);
- Spacecurve(name+text(ii),tmp,"T=[0,1]",append(eqL,"nodisp"));//17.01.04
- out=append(out,name3+text(ii));
- );
- tmp1=[];
- forall(1..length(out),
- tmp=parse(out_#);
- if(#==1,tmp1=tmp,tmp1=concat(tmp1,tmp_(2..length(tmp))));
- );
- if(Noflg<3,
- println("generate Beziercurve "+name3);
- tmp2=Spaceline("",tmp1,["nodata"]);
- tmp=name3+"="+tmp2;
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(out);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=name3+"=Joincrvs("+tmp1+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- out;
-);
-
-Putbezier3data(name,pt3Lorg):=Putbezier3data(name,pt3Lorg,[]);
-Putbezier3data(name,pt3Lorg,options):=(
- regional(pt3L,psize,Deg,nn,numstr,
- tmp,tmp1,tmp2,tmp3,pts,ctrpts);
- tmp=Divoptions(options);
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- );
- pt3L=pt3Lorg;
- if(isstring(pt3L_1),pt3L=apply(pt3L,parse(#+"3d")));
- ctrpts=[];
- forall(2..length(pt3L),nn, // 16.08.19from
-// if(nn==2,numstr="",numstr=text(nn-2));
- numstr=text(nn-1); // 16.08.19
- if(Deg==3,
- tmp1=name+numstr+"p";
- tmp2=(2*pt3L_(nn-1)+pt3L_(nn))/3;
- VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19from
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp2]);
-// );// 16.08.19upto
- ctrpts=append(ctrpts,tmp1);
- tmp1=name+numstr+"q";
- tmp3=(pt3L_(nn-1)+2*pt3L_nn)/3;
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp3]);
-// );
- ctrpts=append(ctrpts,tmp1);
- ,
- tmp1=name+numstr+"p";
- tmp2=(pt3L_(nn-1)+pt3L_nn)/2;
- VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19upto
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp2]);
-// );
- ctrpts=append(ctrpts,tmp1);
- );
- );
- ctrpts;
-);
-
-Mkbezierptcrv3d(ptdata):=Mkbezierptcrv3(ptdata);
-Mkbezierptcrv3d(ptdata,options):=Mkbezierptcrv3(ptdata,options);
-//help:Mkbezierptcrv3d(["A","B","C","D"]);
-Mkbezierptcrv3(ptdata):=Mkbezierptcrv3(ptdata,[]);
-Mkbezierptcrv3(ptdata,options):=(
- regional(Eps,ptlist,nn,pt3L,name,bz,pt,p1,p2,p13d,p23d,pt3,
- Out,tt,pos,tmp,tmp1,tmp2);
- Eps=10^(-4);
- pos=[NE.x+1,NE.y];
- if(MeasureDepth(ptdata)==0,ptlist=[ptdata],ptlist=[ptdata]);
- Out=[];
- forall(1..length(ptlist),nn,
- nn=1;
- pt3L=ptlist_nn;
- tmp=floor((BezierNumber3-1)/26);// 15.02.23 from
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber3,26);
- if(tmp2==0,tmp2=26);
- name=unicode(text(96+tmp2),base->10)+tmp;
- tmp2=Putbezier3data(name,pt3L,options);
- Bezier3(name,pt3L,tmp2,options);
-// BZLIST3=append(BZLIST3,[name,pt3L]);
- Out=append(Out,tmp2);
- BezierNumber3=BezierNumber3+1;
- );
- Out;
-);
-
-
-///////////////////////////////////////////
-
-Readobj(filename):=Readobj(filename,[]);
-Readobj(filename,options):=(
-//help:Readobj("file.obj",["size=-3"]);
- regional(eqL,size,vL,fnL,tmp,tmp1,tmp2);
- size=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- if(Toupper(substring(#,0,1))=="S",
- tmp=indexof(#,"=");
- size=parse(substring(#,tmp,length(#)));
- );
- );
- tmp=load(filename);
- tmp=tokenize(tmp,"v");
- tmp1=tmp_(2..(length(tmp)-1));
- tmp2=tmp_(length(tmp));
- tmp2=tokenize(tmp2,"f");
- tmp1=append(tmp1,tmp2_1);
- tmp1=apply(tmp1,Removespace(#));
- tmp1=apply(tmp1,replace(#," "," "));
- tmp1=apply(tmp1,"["+replace(#," ",",")+"]");
- vL=apply(tmp1,size*parse(#));
- tmp2=tmp2_(2..(length(tmp2)));
- tmp2=apply(tmp2,Removespace(#));
- tmp2=apply(tmp2,replace(#," "," "));
- tmp2=apply(tmp2,"["+replace(#," ",",")+"]");
- fnL=apply(tmp2,parse(#));
- [vL,fnL];
-);
-
-/////////////////////////////////////////
-
-Readobj(filename,options):=(
-//help:Readobj("file.obj",["size=-3"]);
- regional(eqL,size,vL,fnL,dtL,numer,flg,flg2,
- tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
- size=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- if(Toupper(substring(#,0,1))=="S",
- tmp=indexof(#,"=");
- size=parse(substring(#,tmp,length(#)));
- );
- );
- numer="-0123456789";
- tmp=load(filename);
- dtL=tokenize(tmp,"v ");
- vL=[];
- fnL=[];
- flg=0;
- flg2=0;
- forall(dtL,dt,
- tmp1=Removespace(dt);
- if(indexof(numer,substring(tmp1,0,1))>0,
- tmp2="";
- tmp=indexof(tmp1,"f");
- if(tmp>0,
- tmp2=substring(tmp1,tmp-1,length(tmp1));
- tmp1=substring(tmp1,0,tmp-1);
- if(substring(tmp1,length(tmp1)-1,length(tmp1))=="#",
- tmp2="#"+tmp2;
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
-// tmp=indexof(tmp2,"#");
-// if(tmp>0,
-// tmp2=substring(tmp2,0,tmp-1);
-// );
- );
- if(flg==1,
- tmp1="";
- flg=0;
- );
- if(length(tmp1)>0,
- tmp=indexof(tmp1,"#");
- if(tmp>0,
- tmp1=substring(tmp1,0,tmp-1);
- flg=1;
- );
- tmp=indexof(tmp1,"vt");
- if(tmp>0,
- tmp1=substring(tmp1,0,tmp-1);
- );
- tmp1=replace(tmp1," ",",");
- tmp1=replace(tmp1," ",",");
- tmp1="["+tmp1+"]";
- tmp1=size*parse(tmp1);
- vL=append(vL,tmp1);
- );
- if(length(tmp2)>0,
- tmp2=tokenize(tmp2,"f");
- if(length(tmp2_1)==0,
- tmp2=tmp2_(2..length(tmp2));
- // ,
- // if(tmp2_1=="#",
-// tmp2=tmp2_(2..length(tmp2));
-// tmp2_1="#"+tmp2_1;
-// );
- );
- forall(1..length(tmp2),tmp3,
- tmp=tmp2_tmp3;
- if(substring(tmp,length(tmp)-1,length(tmp))=="#",
- tmp2_(tmp3+1)="#"+Removespace(tmp2_(tmp3+1));
- tmp2_tmp3=substring(tmp,0,length(tmp)-1);
- );
- tmp5="";
- if(length(tmp2_tmp3)>0,
- tmp4=tokenize(tmp2_tmp3," ");
- forall(tmp4,
- if(length(text(#))>0,
- if(indexof(text(#),"/")==0,
- tmp=text(#);
- ,
- tmp=tokenize(text(#),"/");
- tmp=tmp_1;
- );
- if(length(tmp)>0,
- tmp5=tmp5+tmp+",";
- );
- );
- );
- tmp5=substring(tmp5,0,length(tmp5)-1);
- if(length(tmp5)>0,
- if(substring(tmp5,0,1)!="#",
- tmp5="["+tmp5+"]";
- fnL=append(fnL,parse(tmp5));
- );
- );
- );
- );
- );
- );
- );
- [vL,fnL];
-);
-
-Concatobj(objL):=Concatobj(objL,[]);
-Concatobj(objL,options):=(
-//help:Concatobj([polyhed,triangle]);
-//help:Concatobj([polyhed,triangle],["Rmf=no"]);
-//help:Concatobj([[A,B,C],[A,C,D]]);
- regional(obj,vL,fL,vadd,vtx,faces,fnew,face,jj,kk,vctr,eps,
- tmp,tmp1,tmp2,tmp3,eqL,rmf);
- tmp=divoptions(options);
- eqL=tmp_5;
- rmf="y"; // 16.08.19
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="R",
- if(tmp2=="Y",rmf="y"); // 16.08.14
- );
- );
- eps=10^(-4);
- vL=[];
- fL=[];
- vctr=0;
- forall(objL,obj,
- if(isstring(obj),
- tmp1=parse(obj);
- ,
- tmp1=obj;
- );
- if(length(tmp1)>2, // 16.02.28
- tmp=1..length(tmp1);
- tmp1=[tmp1,[tmp]];
- );
- vtx=tmp1_1; // 16.02.11 from
- faces=tmp1_2;
- fnew=faces;
- vctr=0;
- vadd=[];
- forall(1..length(vtx),jj,
- tmp1=vtx_jj;
- tmp=select(1..length(vL),dist3d(vL_#,tmp1)<eps);
- if(length(tmp)==0,
- vadd=append(vadd,tmp1);
- vctr=vctr+1;
- tmp2=length(vL)+vctr;
- ,
- tmp2=tmp_1;
- );
- forall(1..length(faces),kk,
- face=faces_kk;
- tmp=select(1..length(face),face_#==jj);
- if(length(tmp)>0,
- tmp1=tmp_1;
- fnew_kk_tmp1=tmp2;
- );
- );
- );
- vL=concat(vL,vadd);
- fL=concat(fL,fnew); // 16.02.11 upto
- );
- tmp2=apply(1..length(fL),1);
- if(rmf=="y",
- forall(1..length(fL),jj,
- tmp=fL_jj;
- tmp1=select((jj+1)..length(fL),fL_#==tmp);
- forall(tmp1,tmp2_#=0);
- );
- tmp=select(1..length(tmp2),tmp2_#==1);
- fL=fL_tmp;
- );
- [vL,fL];
-);
-
-if(1==0,
-
-Mkobjfile(fname,objL):=Mkobjfile(Dirwork,fname,objL);
-Mkobjfile(path,fnameorg,objL):=(
-//help:Mkobj(filename,objlist);
- regional(fname,obj,vtx,face,tmp,tmp1,tmp2);
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- vtx=objL_1;
- face=objL_2;
- setdirectory(path);
- SCEOUTPUT = openfile(fname);
- forall(vtx,tmp1,
- tmp2=tmp1;
- if(ispoint(tmp1),
- tmp2=parse(text(tmp1)+"3d");
- );
- tmp="v "+format(tmp2_1,5)+" "+format(tmp2_2,5)+" "+format(tmp2_3,5);
- println(SCEOUTPUT,tmp);
- );
- forall(face,tmp1,
- tmp="f";
- forall(tmp1,
- tmp=tmp+" "+text(#);
- );
- println(SCEOUTPUT,tmp);
- );
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
-);
-
-);
-
-VertexandEdge(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]);
-VertexandEdge(nm,vfnL,options):=VertexEdgeFace(nm,vfnL,options);
-VertexEdgeFace(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]); // 16.02.10
-//help:VertexEdgeFace("1",[vL,fnL]);
-//help:VertexEdgeFace("1",["A","B","C"]);
-//help:VertexEdgeFace(options=["Pt=fix","Edg=geo"]);
-VertexEdgeFace(nm,vfnLorg,optionorg):=(
- regional(name3,namev,namee,namef,vfnL,options,Noflg,eqL,strL,
- vL,eL,enL,face,edge,vtx,vname,fixflg,edgflg,tmp,tmp1,tmp2);
- name3="phvef"+nm;
- namev="phv3d"+nm;
- namee="phe3d"+nm;
- namef="phf3d"+nm;
- options=optionorg;
- vfnL=vfnLorg; // 16.06.19from
- if(length(vfnL)>2,
- vfnL=[vfnL,[1..length(vfnL)]];
- );
- if(length(vfnL)==1,
- vfnL=[vfnL_1,[1..length(vfnL_1)]];
- ); // 16.06.19upto
- tmp=Divoptions(options);
- Noflg=tmp_2;
- eqL=tmp_5;
- strL=tmp_7;
- fixflg=1;
- edgflg=1;
- forall(eqL,
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="P",
- if(tmp2=="FREE", fixflg=0);
- options=remove(options,[#]);
- );
- if(tmp1=="E",
- if(substring(tmp2,0,1)=="N", edgflg=0);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- if(Toupper(#)=="FREE",
- fixflg=0;
- options=remove(options,[#]);
- );
- );
- vL=[];
- forall(1..length(vfnL_1),
- vtx=vfnL_1_#; // 16.02.10 from
- if(isstring(vtx),vtx=parse(vtx)); // 16.06.19
- if(ispoint(vtx),
- tmp=parse(text(vtx)+"3d");
- vname=text(vtx);
-// tmp=parse(text(vtx)+"3d");
-// tmp="v"+text(#)+"3d="+textformat(tmp,5);
-// parse(tmp);
- ,
- vname="v"+text(#);
- if(fixflg==1,
- Putpoint3d(["v"+text(#),vtx],"fix");
- );
- );
- vL=append(vL,vname); // 16.02.10 upto
- );
- eL=[];
- forall(vfnL_2,face,
- forall(1..length(face),
- tmp1=face_#;
- if(#<length(face),
- tmp2=face_(#+1);
- ,
- tmp2=face_1;
- );
- if(tmp2<tmp1,
- tmp=tmp2; tmp2=tmp1; tmp1=tmp;
- );
-// tmp1="v"+text(tmp1)+"3d";
-// tmp2="v"+text(tmp2)+"3d";
- tmp1=vL_tmp1+"3d";
- tmp2=vL_tmp2+"3d";
- tmp=select(eL,#==[tmp1,tmp2] % #==[tmp2,tmp1]);
- if(length(tmp)==0,
- eL=append(eL,[tmp1,tmp2]);
- );
- );
- );
- if(Noflg<3,
- enL=[];
- forall(eL,edge,
- if(edgflg==0,
- if(Noflg<2,
- tmp1=edge_1;//parse(edge_1);
- tmp2=edge_2;//parse(edge_2);
- tmp="sl3d"+edge_1+edge_2;
- if(islist(parse(tmp)),
- Changestyle3d([tmp],["nodisp"]);
- );
- tmp="sl3d"+edge_2+edge_1;
- if(islist(parse(tmp)),
- Changestyle3d([tmp],["nodisp"]);
- );
- tmp=replace(edge_1+edge_2,"3d","");
- options=append(options,"Msg=no");
- Spaceline("-"+tmp,[tmp1,tmp2],options); //16.02.28
- );
- enL=append(enL,tmp+"3d"); //16.02.29
- ,
- tmp1=replace(edge_1,"3d","");
- tmp2=replace(edge_2,"3d","");
- tmp=tmp1+tmp2;
- create([tmp],"Segment",[parse(tmp1),parse(tmp2)]);
- enL=append(enL,tmp+"3d");//16.02.29
- );
- );
- if(Noflg<2,
- println("generate "+name3);
- println(" generate totally "+namee);
- println(" generate vertexes "+namev);
- println(" generate faces "+namef);
- );
- tmp1="";
- forall(enL,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp=namee+"=["+tmp1+"]";
- parse(tmp);
- tmp=namee+"=list("+tmp1+")";
- tmp=replace(tmp,Dq,"");
- GLIST=append(GLIST,tmp);
- tmp1=apply(vL,Dq+#+"3d"+Dq);
- tmp1=text(tmp1);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=namev+"=["+tmp1+"]";
- parse(tmp);
- tmp1=replace(tmp1,Dq,"");
- tmp=namev+"=list("+tmp1+")";
- GLIST=append(GLIST,tmp);
- tmp1=text(vfnL_2);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=namef+"=["+tmp1+"]";
- parse(tmp);
- tmp=namef+"=list("+tmp1+")";
- GLIST=append(GLIST,tmp);
- );
- [namev,namee,namef];
-);
-
-Phparadata(nm,nmvf):=(
- regional(tmp1,tmp2);
- tmp1=parse("phv3d"+nmvf);
- tmp2=parse("phf3d"+nmvf);
- Phparadata(nm,nmvf,[tmp1,tmp2]);
-);
-Phparadata(nm,nmvf,Arg1):=(
- regional(vfL,options,tmp1,tmp2);
- if(islist(Arg1) & !islist(Arg1_1),
- tmp1=parse("phv3d"+nmvf);
- tmp2=parse("phf3d"+nmvf);
- vfL=[tmp1,tmp2];
- options=Arg1;
- ,
- vfL=Arg1;
- options=[];
- );
- Phparadata(nm,nmvf,vfL,options);
-);
-Phparadata(nm,nmvf,vfL,options):=(
-//help:Phparadata("1","1",["do"]);
- regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
- opstr,opcindy,Outflg,Inflg,pdata1,tmp,tmp1,tmp2);
- name2="php2d"+nm;
- name3="php3d"+nm;
- nameh2="phh2d"+nm;
- nameh3="phh3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Hidden="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="H",
- Hidden=tmp2;
- );
- );
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Phparadata "+name3);
- if(isstring(vfL_1), // 2015.05.27 from
- tmp1=vfL_1;
- ,
- tmp1="list(";
- forall(vfL_1,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+")";
- );
- if(isstring(vfL_2),
- tmp2=vfL_2;
- ,
- tmp2="list(";
- forall(vfL_2,
- tmp2=tmp2+text(#)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1)+")";
- ); // 2015.05.27 upto
- tmp=name3+"=Phparadata("+tmp1+","+tmp2+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- tmp=nameh3+"=PhHiddenData()";
- GLIST=append(GLIST,tmp);
- tmp=nameh2+"=Projpara("+nameh3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- SCIWRLIST=append(SCIWRLIST,nameh3);
- SCIWRLIST=append(SCIWRLIST,nameh2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
-// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
- Changestyle3d("phe3d"+nmvf,["nodisp"]);
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(Hidden!="",
- Drawlinetype(nameh2,Hidden);
- if(Inflg==1,
- tmp1=Toupper(substring(Hidden,0,2));
- if(tmp1=="DR",Ltype=0);
- if(tmp1=="DA",Ltype=1);
- if(tmp1=="DO",Ltype=3);
- if(tmp1=="ID",Ltype=1);
- GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
- );
- );
-);
-
-Nohiddenseg(seg,rng,triang):=(
-// help:Nohiddenseg("1",seg1,[0,1],["v1","v2","v3"]);
- regional(Eps,pA3,pB3,pC3,pA,pB,pC,sg1,sg2,ss1,ss2,parL,flgL,flg1,flg2,
- veB,veC,sgnoh,sghid,added,tristr,tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
- Eps=10^(-4);
- sgnoh=[0,1];
- pA3=if(isstring(triang_1),parse(triang_1+"3d"),triang_1); //16.06.19
- pA=Parapt(pA3);
- pB3=if(isstring(triang_2),parse(triang_2+"3d"),triang_2); //16.06.19
- pB=Parapt(pB3);
- pC3=if(isstring(triang_3),parse(triang_3+"3d"),triang_3); //16.06.19
- pC=Parapt(pC3);
- sg1=seg_1+rng_1*(seg_2-seg_1);
- sg2=seg_1+rng_2*(seg_2-seg_1);
- ss1=Parapt(sg1);
- ss2=Parapt(sg2);
- tristr=replace(text(triang),",","-");
- tristr=substring(tristr,1,length(tristr)-1);
- if(|ss2-ss1|>Eps & abs(Crossprod(pB-pA,pC-pA))>Eps,
- tmp=IntersectcrvsPp([ss1,ss2],[pA,pB,pC,pA]);
- parL=apply(tmp,#_2-1);
- parL=sort(parL);
- if(length(parL)==0,
- parL=[0,1];
- ,
- if(parL_1>Eps,parL=prepend(0,parL));
- if(parL_(length(parL))<1-Eps,parL=append(parL,1));
- );
- tmp1=Crossprod(pB3-pA3,pC3-pA3);
- if(abs(Dotprod(tmp1,sg2-sg1))>Eps,
- tmp=IntersectsgpL("",[sg1,sg2],tristr,["nodisp"]);
- if(tmp_2>-Eps & tmp_2<1+Eps,
- if(tmp_3>-Eps & tmp_4>-Eps & tmp_3+tmp_4<1+Eps,
- tmp1=select(parL,abs(tmp_2-#)<Eps);
- if(length(tmp1)==0,
- parL=sort(append(parL,tmp_2));
- );
- );
- );
- );
- flgL=[];
- forall(parL,
- tmp1=sg1+#*(sg2-sg1);
- tmp=Projcoordpara(tmp1);
- tmp_3=tmp_3+1;
- tmp2=Cancoordpara(tmp);
- tmp=IntersectsgpL("",[tmp1,tmp2],tristr,["nodisp"]);
- tmp1=Projcoordpara(tmp1);
- tmp2=Projcoordpara(tmp_1);
- flg1=0;
- if(tmp1_3<tmp2_3-Eps,flg1=-1);
- if(tmp1_3>tmp2_3+Eps,flg1=1);
- flgL=append(flgL,flg1);
- );
- sgnoh=[];
- forall(2..length(flgL),
- added=[];
- flg1=flgL_(#-1);
- flg2=flgL_#;
- if(max([flg1,flg2])==1 % flg1+flg2==0,
- added=[parL_(#-1),parL_#];
- ,
- sghid=[parL_(#-1),parL_#];
- tmp1=ss1+sghid_1*(ss2-ss1);
- tmp2=ss1+sghid_2*(ss2-ss1);
- tmp=IntersectcrvsPp([tmp1,tmp2],[pA,pB,pC,pA]);
- if(length(tmp)<2,
- veB=pB-pA;
- veC=pC-pA;
- tmp3=tmp1-pA;
- tmp4=tmp2-pA;
- tmp5=Crossprod(veB,veC);
- tmp1=(tmp3_1*veC_2-tmp3_2*veC_1)/tmp5;
- tmp2=(-tmp3_1*veB_2+tmp3_2*veB_1)/tmp5;
- if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg1=1,flg1=0);
- tmp1=(tmp4_1*veC_2-tmp4_2*veC_1)/tmp5;
- tmp2=(-tmp4_1*veB_2+tmp4_2*veB_1)/tmp5;
- if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg2=1,flg2=0);
- if(flg1==1 & flg2==0,
- if(length(tmp)>0,
- tmp1=tmp_1_2-1;
- tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
- ,
- tmp1=sghid_1;
- );
- added=[tmp1,sghid_2];
-// added=[tmp1+Eps,sghid_2]; // <--- USUI 2016.02.27
- );
- if(flg1==0 & flg2==1,
- if(length(tmp)>0,
- tmp1=tmp_1_2-1;
- tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
- ,
- tmp1=sghid_2;
- );
- added=[sghid_1,tmp1];
- );
- if(flg1+flg2==0,
- added=sghid;
- );
- );
- if(length(tmp)==2,
- if(min([flg1,flg2])>=0,added=sghid,added=[]);
- );
- );
- if(length(added)>0,
- if(length(sgnoh)==0,
- sgnoh=added;
- ,
- if(sgnoh_(length(sgnoh))<added_1-Eps,
- sgnoh=concat(sgnoh,added);
- ,
- sgnoh=sgnoh_(1..(length(sgnoh)-1));
- sgnoh=concat(sgnoh,added_(2..length(added)));
- );
- );
- );
- );
- );
- sgnoh=apply(sgnoh,rng_1+#*(rng_2-rng_1));
- sgnoh;
-);
-
-Nohiddensegs(seg,range,faceno,vtxL):=(
- regional(Eps,rng,face,vtx,out,ra,rb,tmp,tmp1,tmp2);
- Eps=10^(-4);
- face=apply(faceno,vtxL_#); // 16.02.10
- rng=range;
- out=rng;
- forall(2..(length(face)-1),vtx,
- tmp1=[face_1,face_vtx,face_(vtx+1)];
- forall(1..(length(rng)/2),
- tmp=[rng_(2*#-1),rng_(2*#)];
- out=remove(out,tmp);
- tmp2=Nohiddenseg(seg,tmp,tmp1);
- if(length(tmp2)>0,
- out=remove(out,tmp);
- out=concat(out,tmp2);
- );
- );
- tmp=sort(out);
- out=[];
- forall(1..(length(tmp)/2),
- ra=tmp_(2*#-1);
- rb=tmp_(2*#);
- if(ra<rb-Eps,
- if(length(out)==0,
- out=[ra,rb];
- ,
- if(out_(length(out))<ra-Eps,
- out=concat(out,[ra,rb]);
- ,
- out_(length(out))=rb;
- );
- );
- );
- );
- rng=out;
- );
- rng;
-);
-
-Nohiddenbyfaces(nm,facestr):=
- Nohiddenbyfaces(nm,Datalist3d(),facestr,[],["do"]);
-Nohiddenbyfaces(nm,Arg1,Arg2):=(
- regional(segstr,facestr,options);
- if(islist(Arg2),
- segstr=Datalist3d();
- facestr=Arg1;
- options=Arg2;
- ,
- segstr=Arg1;
- facestr=Arg2;
- options=[];
- );
- Nohiddenbyfaces(nm,segstr,facestr,options,["do"]);
-);
-Nohiddenbyfaces(nm,Arg1,Arg2,Arg3):=(
- regional(segstr,facestr,options,optionsh);
- if(islist(Arg2),
- segstr=Datalist3d();
- facestr=Arg1;
- options=Arg2;
- optionsh=Arg3;
- ,
- segstr=Arg1;
- facestr=Arg2;
- options=Arg3;
- optionsh=["do"];
- );
- Nohiddenbyfaces(nm,segstr,facestr,options,optionsh); // 16.02.21
-);
-Nohiddenbyfaces(nm,segstr,facestr,optionorg,optionsh):=(
-//help:Nohiddenbyfaces("1","phf3d1");
-//help:Nohiddenbyfaces("1","ax3d","phf3d1");
-//help:Nohiddenbyfaces(options1=["dr"]);
-//help:Nohiddenbyfaces(options2=["do"]);
- regional(Eps,namen,nameh,options,segL,faceL,vtxL,rng,seg,face,
- flg,ctr,tmp,tmp1,tmp2,Ltype,Noflg,eqL,opstr,opcindy,frnL,frhL);
- Eps=10^(-4);
- namen="frn"+nm;
- nameh="frh"+nm;
- if(isstring(segstr),
-// segL=parse(segstr);
- segL=[segstr]; // 16.08.19
- ,
- segL=segstr;
- );
- tmp2=[]; // 16.02.29 from
- forall(segL,seg,
- tmp=replace(seg,"3d","2d");
- tmp1=select(GCLIST,#_1==tmp);
- tmp1=tmp1_1;
- if(tmp1_2==0,
- tmp2=append(tmp2,seg);
- );
- );
- segL=tmp2;
- Changestyle3d(segL,["nodisp"]); // 16.02.29 upto
- if(islist(segL),
- if(isstring(segL_1),
- segL=apply(segL,parse(#));
- );
- );
- segL=Flattenlist(segL);
- flg=0;
- if(isstring(facestr),
- if(substring(facestr,0,3)=="phf", // 16.08.19from
- faceL=parse(facestr);
- tmp=replace(facestr,"phf","phv"); // 16.02.10 from
- tmp=parse(tmp);
- vtxL=apply(tmp,replace(#,"3d","")); // 16.02.10 upto
- flg=1;
- ,
- faceL=parse(facestr);
- );
- );
- if(flg==0,
- if(length(faceL)==2, // 16.08.19upto
- vtxL=facestr_1;
- faceL=facestr_2;
- ,
- vtxL=facestr;
- faceL=[1..length(vtxL)];
- );
- );
-// Hidden="";
- options=optionorg;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
-// forall(eqL,
-// tmp=indexof(#,"=");
-// tmp1=Toupper(substring(#,0,1));
-// tmp2=substring(#,tmp,length(#));
-// if(tmp1=="H",
-// Hidden=tmp2;
-// );
-// );
-
- ctr=1;
- frnL=[];
- frhL=[];
- forall(segL,seg,
- rng=[0,1];
- forall(faceL,face,
- rng=Nohiddensegs(seg,rng,face,vtxL);
- );
- forall(1..length(rng)/2,
- tmp=rng_(2*#-1);
- tmp1=seg_1+tmp*(seg_2-seg_1);
- tmp=rng_(2*#);
- tmp2=seg_1+tmp*(seg_2-seg_1);
-// tmp=remove(options,eqL);
- tmp=append(options,"Msg=nodisp"); // 15.06.22
- Spaceline("-"+namen+"n"+text(ctr),[tmp1,tmp2],tmp);
- frnL=append(frnL,namen+"n"+text(ctr)+"3d");
- ctr=ctr+1;
- );
- if(length(rng)==0,
- rng=[0,1];
- ,
- if(rng_1>0+Eps,
- rng=prepend(0,rng);
- ,
- rng=rng_(2..length(rng));
- );
- if(rng_(length(rng))<1-Eps,
- rng=append(rng,1);
- ,
- rng=rng_(1..(length(rng)-1));
- );
- );
- forall(1..length(rng)/2,
- tmp=rng_(2*#-1);
- tmp1=seg_1+tmp*(seg_2-seg_1);
- tmp=rng_(2*#);
- tmp2=seg_1+tmp*(seg_2-seg_1);
- if(length(optionsh)>0,tmp=optionsh,tmp=["do"]);
- tmp=append(tmp,"Msg=nodisp"); // 15.06.22
- Spaceline("-"+nameh+"n"+text(ctr),[tmp1,tmp2],tmp);
- frhL=append(frhL,nameh+"n"+text(ctr)+"3d");
- ctr=ctr+1;
- );
- );
- tmp1=apply(frnL,Dq+#+Dq);
- tmp="frn3d"+nm+"="+text(tmp1);
- parse(tmp);
- println(" generate totally "+"frn3d"+nm);
- tmp1=apply(frhL,Dq+#+Dq);
- tmp="frh3d"+nm+"="+text(tmp1);
- parse(tmp);
- println(" generate totally "+"frh3d"+nm);
-);
-
-Faceremovaldata(nm,vfdata,crvdata):=Faceremovaldata(nm,vfdata,crvdata,[]);
-Faceremovaldata(nm,vfdata,crvdata,options):=(
- regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
- opstr,opcindy,Outflg,Inflg,tmp,tmp1,tmp2);
- name2="frc2d"+nm;
- name3="frc3d"+nm;
- nameh2="frch2d"+nm;
- nameh3="frch3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Hidden="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="H",
- Hidden=tmp2;
- );
- );
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Faceremovaldata "+name3);
- if(MeasureDepth(vfdata)==1,
- tmp1=text(apply(vfdata,#_[1,3]));
- ,
- tmp1=text([vfdata_[1,3]]);
- );
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp2=text(crvdata);
- tmp2=replace(tmp2,"[","list(");
- tmp2=replace(tmp2,"]",")");
-// tmp2="Flattenlist("+tmp2+")";
- tmp=name3+"=Faceremovaldata("+tmp1+","+tmp2+opstr+","+Dq+"para"+Dq+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- tmp=nameh3+"=PhHiddenData()";
- GLIST=append(GLIST,tmp);
- tmp=nameh2+"=Projpara("+nameh3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- SCIWRLIST=append(SCIWRLIST,nameh3);
- SCIWRLIST=append(SCIWRLIST,nameh2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- if(MeasureDepth(vfdata)==1,
- tmp1=apply(vfdata,parse(#_2));
- ,
- tmp1=[parse(vfdata_2)];
- );
- forall(tmp1,
- Changestyle3d(#,["nodisp"]);
- );
- Changestyle3d(crvdata,["nodisp"]);
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(Hidden!="",
- Drawlinetype(nameh2,Hidden);
- if(Inflg==1,
- tmp1=Toupper(substring(Hidden,0,2));
- if(tmp1=="DR",Ltype=0);
- if(tmp1=="DA",Ltype=1);
- if(tmp1=="DO",Ltype=3);
- if(tmp1=="ID",Ltype=1);
- GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
- );
- );
-);
-
-Fullformfunc(FdL):=(
- regional(Out,nn,ii,Jrg,flg,Urg,Vrg,kk,Uname,
- Zf,Xname,Xf,Yname,Yf,tmp,tmp1,tmp2);
- Out=[FdL_1];
- nn=length(FdL);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=FdL_#;
- if(substring(tmp,length(tmp)-1,length(tmp))=="]",
- Jrg=#;
- Urg=FdL_Jrg;
- flg=1;
- );
- );
- );
- kk=indexof(Urg,"=");
- Uname=Removespace(substring(Urg,0,kk-1));
- tmp=substring(Urg,kk,length(Urg));
- Urg=Uname+"="+tmp;
-// tmp1=parse(tmp);
-// Urg=Uname+"="+textformat(tmp1,5);
- Vrg=FdL_(Jrg+1);
- kk=indexof(Vrg,"=");
- Vname=Removespace(substring(Vrg,0,kk-1));
- tmp=substring(Vrg,kk,length(Vrg));
- Vrg=Vname+"="+tmp;
-// tmp1=parse(tmp);
-// Vrg=Vname+"="+textformat(tmp1,5);
- if(Jrg==2,
- tmp=FdL_1;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=[Uname,Vname,Zf,Urg,Vrg];
- Out=concat(Out,tmp);
- ,
- if(Jrg==4,
- tmp=FdL_1;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=FdL_2;
- kk=indexof(tmp,"=");
- Xname=Removespace(substring(tmp,0,kk-1));
- Xf=substring(tmp,kk,length(tmp));
- tmp=FdL_3;
- kk=indexof(tmp,"=");
- Yname=Removespace(substring(tmp,0,kk-1));
- Yf=substring(tmp,kk,length(tmp));
- tmp=replace(Zf,Xname,"("+Xf+")");
- Zf=replace(tmp,Yname,"("+Yf+")");
- Tmp=[Xf,Yf,Zf,Urg,Vrg];
- Out=concat(Out,Tmp);
- ,
- tmp=FdL_2;
- kk=indexof(tmp,"=");
- Xf=substring(tmp,kk,length(tmp));
- tmp=FdL_3;
- kk=indexof(tmp,"=");
- Yf=substring(tmp,kk,length(tmp));
- tmp=FdL_4;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=[Xf,Yf,Zf,Urg,Vrg];
- Out=concat(Out,tmp);
- );
- );
- DrwS="enws";
- BdyL=[];
- forall((Jrg+2)..length(FdL),ii,
- tmp=FdL_ii;
- if(isstring(tmp),
- if(length(tmp)==0,
- tmp=" ";
- );
- DrwS=tmp;
- );
- if(islist(tmp) & length(tmp_1)>1,
- BdyL=tmp;
- );
- );
- tmp=[DrwS,BdyL];
- Out=concat(Out,tmp);
-);
-
-Surffun(nm,Fd):=(
- regional(name,coord,var1,var2,rng1,rng2,bdy,tmp,tmp1,tmp2);
- tmp=Fullformfunc(Fd);
- rng1=tmp_5;
- rng2=tmp_6;
- bdy=tmp_7;
- coord="["+tmp_2+","+tmp_3+","+tmp_4+"]";
- tmp=indexof(rng1,"=");
- var1=substring(rng1,0,tmp-1);
- rng1=substring(rng1,tmp,length(rng1));
- tmp=indexof(rng2,"=");
- var2=substring(rng2,0,tmp-1);
- rng2=substring(rng2,tmp,length(rng2));
- name="Sfn"+nm+"("+var1+","+var2+")";
- Deffun(name,["regional(tmp)","tmp="+coord,"tmp"]);
- [name,var1,rng1,var2,rng2,bdy];
-);
-
-Sf3data(nm,fdata):=Sf3data(nm,fdata,[]);
-Sf3data(nm,fdata,optionorg):=(
- regional(tmp,tmp1,tmp2);
- tmp=Surffun(nm,fdata);
- tmp1=tmp_2+"="+tmp_3;
- tmp2=tmp_4+"="+tmp_5;
- Sf3data(nm,tmp_1,tmp1,tmp2,optionorg);
-);
-Sf3data(nm,funstr,var1,var2):=Sf3data(nm,funstr,var1,var2,[]);
-Sf3data(nm,funstr,var1org,var2org,optionorg):=(
-//help:Sf3data("1",Fd);
-//help:Sf3data(options=["Num=[25,25]","Wire=[20,20]"]);
- regional(name2,name3,var1,var2,Ltype,Noflg,opstr,opcindy,eqL,Num,
- Wire,varu,varv,rngu,rngv,sfdtuL,sfdtvL,options,
- tmp,tmp1,tmp2,tmp3);
- var1=replace(var1org,"%pi","pi");
- var2=replace(var2org,"%pi","pi");
- tmp=Divoptions(optionorg);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- options=optionorg;
- Num=[25,25];
- Wire=[20,20];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#)); // 16.05.25
- tmp=Toupper(substring(tmp1,0,1));
- if(tmp=="N",
- tmp2=parse(tmp2);
- if(!islist(tmp2),tmp2=[tmp2,tmp2]);
- Num=tmp2;
- options=remove(options,[#]);
- );
- if(tmp=="W",
- tmp2=parse(tmp2);
- if(!islist(tmp2),tmp2=[tmp2,tmp2]);
- Wire=tmp2;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(var1,"=");
- varu=substring(var1,0,tmp-1);
- rngu=parse(substring(var1,tmp,length(var1)));
- tmp=indexof(var2,"=");
- varv=substring(var2,0,tmp-1);
- rngv=parse(substring(var2,tmp,length(var2)));
- sfdtuL=[];
- forall(0..Wire_2,
- tmp=rngv_1+#/Wire_2*(rngv_2-rngv_1);
- tmp1=replace(funstr,varv,textformat(tmp,5));
- tmp="Num="+text(Num_2);
- tmp2=concat(options,["Msg=no",tmp]);
- Spacecurve(nm+"u"+#,tmp1,var1,tmp2);
- sfdtuL=append(sfdtuL,"sc3d"+nm+"u"+#);
- );
- sfdtvL=[];
- forall(0..Wire_1,
- tmp=rngu_1+#/Wire_1*(rngu_2-rngu_1);
- tmp1=replace(funstr,varu,textformat(tmp,5));
- tmp="Num="+text(Num_1);
- tmp2=concat(options,["Msg=no",tmp]);
- Spacecurve(nm+"v"+#,tmp1,var2,tmp2);
- sfdtvL=append(sfdtvL,"sc3d"+nm+"v"+#);
- );
- if(Noflg<3,
- println(" generate totally "+"sf3d"+nm);
- tmp1="";
- forall(sfdtuL,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp2="";
- forall(sfdtvL,
- tmp2=tmp2+Dq+#+Dq+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp="sf3d"+nm+"=[["+tmp1+"],["+tmp2+"]]";
- parse(tmp);
- );
- [sfdtuL,sfdtvL];
-);
-
-Sfbdparadata(nm,fd):=
- Sfbdparadata(nm,fd,[],["nodisp"]);
-Sfbdparadata(nm,fd,options):=
- Sfbdparadata(nm,fd,options,["nodisp"]);
-Sfbdparadata(nm,fdorg,optionorg,optionsh):=(
-//help:Sfbdparadata("1",Fd);
-//help:Sfbdparadata(options2=["Wait=30",limit1([0.05,1], limit2(0.2)]);
- regional(fd,options,name2,name3,name2h,name3h,waiting,
- eqL,reL,strL,fname,outreg,tmp,tmp1,tmp2,flg,wflg);
- name2="sfbd2d"+nm;
- name3="sfbd3d"+nm;
- name2h="sfbdh2d"+nm;
- name3h="sfbdh3d"+nm;
- fname=Fhead+"sfbd"+nm+".txt";
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=30;
- outreg=0; // 16.08.20
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O", // 16.08.20
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h,
- Dq+"HIDDENDATA"+Dq,"HIDDENDATA", // 16.08.20from
- Dq+"PARTITIONPT"+Dq,"PARTITIONPT",
- Dq+"OTHERPARTITION"+Dq,"OTHERPARTITION" // 16.08.20upto
- ];
- fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
- fd=apply(fd,replace(#,"_2","(2)"));
- fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
- cmdL=concat(cmdL,[
- name3+"=Sfbdparadata",concat([fd,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=BorderHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "function Ot=Hiddend(),global HIDDENDATA,Ot=HIDDENDATA,endfunction)"
- ,[], // 16.08.20from
- "function Ot=Otherp(),global OTHERPARTITION,Ot=OTHERPARTITION,endfunction)"
- ,[],
- "HIDDENDATA=Hiddend()",[],
- "PARTITIONPT=PartitionPt()",[],
- "OTHERPARTITION=Otherp()",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp1=OTHERPARTITION(J)",[],
- " Tmp2=[]",[],
- " for K=1:length(Tmp1)",[],
- " Tmp2=[Tmp2;Tmp1(K),1000]",[],
- " end",[],
- " OTHERPARTITION(J)=Tmp2",[],
- "end",[],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"])); // 16.08.20
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("sfbd"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Sfbdparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(islist(parse(name2)),
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- ,
- ErrFlag=1;
- );
- );
-);
-
-Wireparadata(nm,out,wr1,wr2,fd):=
- Wireparadata(nm,out,fd,wr1,wr2,[],["nodisp"]);
-Wireparadata(nm,out,fd,wr1,wr2,options):=
- Wireparadata(nm,out,fd,wr1,wr2,options,["nodisp"]);
-Wireparadata(nm,outstr,fdorg,wr1,wr2,optionorg,optionsh):=(
-//help:Wireparadata("1","sfbd3d1",fd,5,5);
-//help:Wireparadata(options2=["Wait=40"]);
- regional(out,fd,options,name2,name3,name2h,name3h,outreg,
- eqL,reL,strL,fname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
- name2="wire2d"+nm;
- name3="wiref3d"+nm;
- name2h="wireh2d"+nm;
- name3h="wireh3d"+nm;
- fname=Fhead+"wire"+nm+".txt";
- tmp=replace(outstr,"3d","");
- outfname=Fhead+tmp+".txt"; // 16.08.20
- out=parse(outstr);
- if(!islist(out), ErrFlag=1);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=40;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O", // 16.08.20from
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );// 16.08.20upto
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- flg=0;
- tmp1=floor(5*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(Fhead+replace(outstr,"3d","")+".txt");
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- flg=1;
- );
- ,
- wait(WaitUnit);
- );
- );
- );
- if(flg==0,
- Err(outstr+" file not copleted");
- ErrFlag=1;
- );
- if(ErrFlag==0,
-// Writeoutdata(outfname,["Out",out]);
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h
- ];
- fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
- fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
- fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
- cmdL=concat(cmdL,[
- "disp('Running Wireparadata')",[],
- "tmp=ReadOutData",[Dq+outfname+Dq],
- "execstr(tmp)",[],
- "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
- [], // 16.08.20from
- "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
- [],
- "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
- [],
- "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
- "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
- "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp=OTHERPARTITION(J)",[],
- " OTHERPARTITION(J)=Tmp(:,1)",[],
- "end",[],
- "SetHidd(HIDDENDATA)",[],
- "SetPart(PARTITIONPT)",[],
- "SetOther(OTHERPARTITION)",[],
- "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
- name3+"=Wireparadata",concat([outstr,fd,wr1,wr2,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=WireHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("wire"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Wireparadata not completed");
- ,
- if(outreg==1,
-// OutFileList=remove(OutFileList,[fname]);
-// OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(!islist(parse(name2)), ErrFlag=1);
- if(ErrFlag==0,
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- );
- );
-);
-
-Crvsfparadata(nm,gd,out,fd):=
- Crvsfparadata(nm,gd,out,fd,[],["nodisp"]);
-Crvsfparadata(nm,gd,out,fd,options):=
- Crvsfparadata(nm,gd,out,fd,options,["nodisp"]);
-Crvsfparadata(nm,gdstr,outstr,fdorg,optionorg,optionsh):=(
-//help:Crvsfparadata("1","ax3d","sfbd3d1",fd);
-//help:Crvsfparadata(options2=["Wait=20"]);
- regional(gd,out,fd,options,name2,name3,name2h,name3h,outreg,
- eqL,reL,strL,fname,gdfname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
- name2="crvsf2d"+nm;
- name3="crvsf3d"+nm;
- name2h="crvsfh2d"+nm;
- name3h="crvsfh3d"+nm;
- fname=Fhead+"crvsf"+nm+".txt";
- gdfname=Fhead+"crv"+nm+".txt";
- tmp=replace(outstr,"3d","");
- outfname=Fhead+tmp+".txt"; // 16.08.20
- gd=parse(gdstr);
- out=parse(outstr);
- if(!islist(out), ErrFlag=1);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=20;
- outreg=1;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O",
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- flg=0;
- tmp1=floor(5*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(Fhead+replace(outstr,"3d","")+".txt");
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- flg=1;
- );
- ,
- wait(WaitUnit);
- );
- );
- );
- if(flg==0,
- Err(outstr+" file not copleted");
- ErrFlag=1;
- );
- if(wflg==0,
- tmp=load(fname);
- if(length(tmp)==0,wflg=1);
- );
- if(ErrFlag==0,
-// Writeoutdata(outfname,["Gc",gd,"Out",out]);
-// wait(WaitUnit);
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h
- ];
- fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
- fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
- fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
- cmdL=concat(cmdL,[
- "disp('Running Crvsfparadata')",[],
- "tmp=ReadOutData",[Dq+outfname+Dq],
- "execstr(tmp)",[],
- "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
- [], // 16.08.20from
- "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
- [],
- "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
- [],
- "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
- "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
- "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp=OTHERPARTITION(J)",[],
- " OTHERPARTITION(J)=Tmp(:,1)",[],
- "end",[],
- "SetHidd(HIDDENDATA)",[],
- "SetPart(PARTITIONPT)",[],
- "SetOther(OTHERPARTITION)",[],
- "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
- name3+"=Crvsfparadata",concat([gdstr,outstr,fd,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=CrvsfHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("crvsf"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Crvsfparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- tmp=replace(gdstr,"3d","2d");
- Changestyle([tmp],["nodisp"]);
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- );
-);
-
-Intersectcrvsf(nm,gd,fd):=
- Intersectcrvsf(nm,gd,fd,[]);
-Intersectcrvsf(nm,gdstr,fdorg,optionorg):=(
-//help:Intersectcrvsf("1",ax3d_1,fd);
-//help:Intersectcrvsf(options=["Wait=10",50,0.05]);
- regional(name,gd,fd,options,reL,fname,gdfname,
- waiting,tmp,tmp1,tmp2,flg,wflg,pts);
- name="intpts"+nm;
- fname=Fhead+name+".txt";
- gdfname=Fhead+"crv"+nm+".txt";
- gd=parse(gdstr);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=10;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(wflg>-1,
- Writeoutdata(gdfname,["Gd",gd]);
-// wait(WaitUnit);
- );
- fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
- fd=apply(fd,replace(#,"_2","(2)"));
- fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
- cmdL=[
- "disp('Finding Intersectcrvsf')",[],
- "Setangle",[THETA,PHI]*180/pi,
- "tmp=ReadOutData",[Dq+gdfname+Dq],
- "execstr(tmp)",[],
- "Intpts=Intersectcrvsf",concat(["Gd",fd,"Error"],reL),
- "tmp1='['",[],
- "for J=1:length(Intpts)",[],
- " tmp2=Intpts(J)",[],
- " for K=1:length(tmp2)",[],
- " if K==1",[],
- " tmp1=tmp1+'['",[],
- " end",[],
- " tmp1=tmp1+string(tmp2(K))",[],
- " if K<length(tmp2)",[],
- " tmp1=tmp1+','",[],
- " else",[],
- " tmp1=tmp1+']'",[],
- " end",[],
- " end",[],
- " if J<length(Intpts)",[],
- " tmp1=tmp1+','",[],
- " else",[],
- " tmp1=tmp1+']||||'",[], //16.08.09
- " end",[],
- "end",[],
- "fid=mopen('"+fname+"','w')",[],
- " mputl(tmp1,fid)",[],
- "mclose(fid)",[]
- ];
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options); // 16.08.14
- );
- if(ErrFlag==1,
- err("Intersectcrvsf not completed");
- ,
- println(name+" obtained"); //16.08.14from
- pts=load(fname);
- pts=replace(pts,"||||","");
- tmp=name+"="+pts;
- parse(tmp);
- parse(pts); //16.08.14upto
- );
-);
-
-Skeletonparadata2(nm):=Skeletonparadata2(nm,[]);
-Skeletonparadata2(nm,options):=(
- regional(tmp,tmp2,tmp3);
- // tmp=apply(GCLIST,#_1);
- // tmp=select(tmp,indexo(#,"2d")>0);
- // tmp2=select(tmp,indexof(#,"sub")==0);
- tmp3=Datalist3d();
- Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
- // tmp3=apply(tmp2,replace(#,"2d","3d"));
- Skeletonparadata2(nm,"",tmp3,tmp3,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2):=(
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=(
- regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2,
- opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Skeletonparadata2 "+name3);
- if(isstring(pltdata1), // 15.05.27 from
- tmp1=pltdata1;
- ,
- tmp1="";
- forall(pltdata1,
- tmp1=tmp1+#+",";
- );
- tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")";
- );
- if(isstring(pltdata2),
- tmp2=pltdata2;
- ,
- tmp2="";
- forall(pltdata2,
- tmp2=tmp2+#+",";
- );
- tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")";
- );
- Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto
- GLIST=append(GLIST,name3+"="+Str);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
-// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
- if(nme!="", // 15.05.27
- Changestyle3d("phe3d"+nme,["nodisp"]);
- ,
- forall(pltdata1, // 15.07.16
- tmp=replace(#,"3d","2d");
- if(contains(GCLIST,tmp),
- Changestyle3d(#,["nodisp"]);
- );
- );
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
-);
-
-Skeletonparadata(nm):=Skeletonparadata(nm,[]);
-Skeletonparadata(nm,options):=(
- regional(tmp,tmp2,tmp3);
- tmp3=Datalist3d();
- Skeletonparadata(nm,"",tmp3,tmp3,options);
-// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
-);
-Skeletonparadata(nm,Arg1,Arg2):=(
-//help:Skeletonparadata("1");
-//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletonparadata(options2=[width(1), "Wait=20]);
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=(
- regional(name2,name3,eqL,strL,options,fname,outreg,waiting,
- reL, pltdata1,pltdata2,wflg,opcindy,width,pdata,
- tmp,tmp1,tmp2);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- fname=Fhead+"sk"+nm+".txt";
- pltdata1=[];// 16.01.31
- forall(pltdata1org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata1=concat(pltdata1,tmp);
- ,
- pltdata1=append(pltdata1,tmp1);
- );
- );
- pltdata2=[];// 16.01.31
- forall(pltdata2org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata2=concat(pltdata2,tmp);
- ,
- pltdata2=append(pltdata2,tmp1);
- );
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6; //16.02.28
- strL=tmp_7;
- opcindy=tmp_9;
- waiting=20;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- width=1;
- if(length(reL)>0, //16.02.28
- width=reL_1;
- );
- forall(pltdata1,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- forall(pltdata2,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- tmp=select(VLIST,#_1==pdata+"=");
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- );
- cmdL=MkprecommandS(4);
- tmp2=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2
- ];
- cmdL=concat(cmdL,[
- "Setangle",[THETA,PHI]*180/pi,
- name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"],
- name2+"=Projpara",[name3],
- "WriteOutData",tmp2
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("sk"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Skeletonparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(islist(parse(name2)),
- Extractdata(name2,options);
-// if(isstring(pltdata1_1), // 16.01.31
- tmp=apply(pltdata1,replace(#,"3d","2d"));
-// ,
-// tmp=replace(pltdata1org,"3d","2d");
-// );
- Changestyle(tmp,["nodisp"]);
-// Changestyle3d(pltdata1,["nodisp"]);
- ,
- ErrFlag=1;
- );
- );
-);
-
-Skeletondatacindy(nm):=Skeletondatacindy(nm,[]);
-Skeletondatacindy(nm,options):=(
- regional(tmp);
- tmp=Datalist3d();
- Skeletondatacindy(nm,tmp,tmp,options);
-);
-Skeletondatacindy(nm,pltdata1,pltdata2):=
- Skeletondatacindy(nm,pltdata1,pltdata2,[]);
-Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
-//help:Skeletondatacindy("1");
-//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletondatacindy(options2=[1(width)]);
- regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy,
- Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data,
- Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- pltdata1=[];// 16.01.31
- forall(pltdata1org,tmp1,
- tmp=parse(tmp1);
- pltdata1=append(pltdata1,tmp);
- );
- pltdata2=[];// 16.01.31
- forall(pltdata2org,tmp1,
- tmp=parse(tmp1);
- pltdata2=append(pltdata2,tmp);
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6; //16.02.28
- opcindy=tmp_9;
- Rr=0.075*1000/2.54/MilliIn;
- size=1;
- Eps2=0.05;
- if(length(reL)>0, //16.02.28
- size=reL_1;
- Rr=size*Rr;
- if(length(reL)>1,Eps2=reL_2);
- );
- Eps=10^(-4);
- ObjL=Flattenlist(pltdata1);
- Plt3L=Flattenlist(pltdata2);
- tmp=apply(Plt3L,ProjcoordCurve(#));
- Plt2L=Flattenlist(tmp);
-/////////// tmp=apply(pltdata1,replace(#,"3d","2d"));
- Out=[];
- forall(1..(length(ObjL)),ii,
- Obj3=ObjL_ii;
- tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2);
- forall(1..(length(Data)),jj,
- Gd=Data_jj;
- if((length(Gd)>1)
- & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps),
- PtD=[];
- forall(1..(length(Gd)),
- tmp=Gd_#;
- tmp1=Invparapt(tmp,Obj3);
- PtD=append(PtD,tmp1);
- );
- Out=append(Out,PtD);
- );
- );
- );
- Out=select(Out,length(Projcurve(#))>0); // 16.12.19
- tmp1=apply(Out,textformat(#,5));
- tmp=name3+"="+tmp1;
- parse(tmp);
- tmp=name2+"=Projcurve("+tmp1+");";
- parse(tmp);
- Changestyle3d(pltdata1org,["nodisp"]);
- if(Noflg<3,
- println("generate skeleton :"+name3);
- tmp1=text(pltdata1org);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=text(pltdata2org);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- tmp=name3+"=Skeletonpara3data("+tmp1+","+tmp2+",";
- tmp=tmp+text(size)+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1,
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=(
- regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj,
- Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te,
- koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg);
- Eps=10.0^(-4);
- Dmat=[];
- Dind=[];
- forall(1..(length(Plt2L)),ii,
- Dt=Plt2L_ii;
- nn1=length(Dmat)+1;
- Dmat=concat(Dmat,Dt);
- nn2=length(Dmat);
- Dind=append(Dind,[nn1,nn2]);
- );
- Nind=length(Dind);
- Allres=[];
- forall(1..(length(Obj2L)),Nobj,
- Plt2=Obj2L_Nobj;
- PhL=Columnlist(Plt2,1..2);
- ClipL=[];
- forall(1..(length(PhL)-1),ns,
- pt1=PhL_(ns..(ns+1));
- forall(1..(length(Dind)),ii,
- tmp=Dind_ii;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- pt2=Columnlist(tmp,1..2);
- koc=IntersectcrvsPp(pt1,pt2,[Eps]);
- if(length(koc)>0,
- breakflg=0;
- forall(1..(length(koc)),jj,
- contflg=0;
- if(breakflg==0,
- pt=Op(1,Op(jj,koc));
- tmp=Op(2,Op(jj,koc));
- if((tmp<1+Eps) & (ns==1),
- contflg=1;
- );
- if(contflg==0,
- if((tmp>length(pt1)-Eps)
- & (ns==length(PhL)-1),
- contflg=1;
- );
- );
- if(contflg==0,
- nn1=ns;
- nn2=Op(3,Op(jj,koc));
- tmp=Plt2_nn1;
- pta=tmp_(1..2);
- za=tmp_3;
- tmp=Plt2_(nn1+1);
- ptb=tmp_(1..2);
- zb=tmp_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t1=norm(pta-pt)/norm(pta-ptb);
- z1=(1-t1)*za+t1*zb;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- tmp1=tmp_nn2;
- pta=tmp1_(1..2);
- za=tmp1_3;
- tmp2=tmp_(nn2+1);
- ptb=tmp2_(1..2);
- zb=tmp2_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t2=norm(pta-pt)/norm(pta-ptb);
- z2=(1-t2)*za+t2*zb;
- if(z1<z2-Eps2,
- if(length(ClipL)==0,
- tmp=1;
- ,
- tmp1=column(ClipL,1);
- tmp1=apply(tmp1,#-pt_1);
- tmp2=column(ClipL,2);
- tmp2=apply(tmp2,#-pt_2);
- tmp3=apply(tmp1,#^2)+apply(tmp2,#^2);
- tmp=min(tmp3);
- );
- if(tmp>Eps^2,
- tmp1=pt1_2-pt1_1;
- tmp2=ptb-pta;
- tmp3=Dotprod(tmp1,tmp2);
- tmp3=tmp3/norm(tmp1)/norm(tmp2);
- tmp=1-0.5*tmp3^2;
- tmp1=concat(pt,[nn1,t1,R0/tmp]);
- ClipL=append(ClipL,tmp1);
- );
- );
- );
- );
- );
- );
- );
- );
- te=length(Plt2);
- KukanL=[[1.0,te]];
- pt1=PhL;
- if(length(ClipL)>0,
- forall(1..(length(ClipL)),ii,
- tmp=ClipL_ii;
- pt=tmp_(1..2);
- nn=tmp_3;
- tt=nn+tmp_4;
- Rr=tmp_5;
- Flg=0;
- breakflg=0;
- forall(reverse(1..nn),jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
- );
- );
- if(Flg==0,
- t1=1;
- ,
- t1=Flg; t2=tt;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t2=t2-hh;
- ,
- t1=t1+hh;
- );
- );
- );
- Ku=[t1];
- Flg=0;
- breakflg=0;
- forall((nn+1)..te,jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
- );
- );
- if(Flg==0,
- t2=te;
- ,
- t1=tt; t2=Flg;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t1=t1+hh;
- ,
- t2=t2-hh;
- );
- );
- );
- Ku=append(Ku,t2);
- KukanL=Kukannozoku(Ku,KukanL);
- );
- );
- Res=[];
- forall(1..(length(KukanL)),ii,
- tmp=KukanL_ii;
- t1=tmp_1; nn1=floor(t1);
- t2=tmp_2; nn2=floor(t2);
- PtL=[];
- if(t1-nn1<1-Eps,
- tmp=PointonCurve(t1,pt1);
- PtL=[tmp];
- );
- forall((nn1+1)..nn2,jj,
- tmp=PointonCurve(jj,pt1);
- PtL=append(PtL,tmp);
- );
- if(t2-nn2>Eps,
- tmp=PointonCurve(t2,pt1);
- PtL=append(PtL,tmp);
- );
- tmp=Listplot("",PtL,["nodata"]);
- Res=append(Res,tmp);
- );
- Allres=concat(Allres,Res);
- );
- Allres;
-);
-
-Kukannozoku(Jokyo,KukanL):=(
- regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1);
- Eps=10^(-6);
- nn=length(KukanL);
- t1=Jokyo_1; t2=Jokyo_2;
- tmp=KukanL_1;
- t1=max(t1,tmp_1);
- tmp=KukanL_nn;
- t2=min(t2,tmp_2);
- Res=[];
- Flg=0;
- contflg=0;
- forall(1..nn,ii,
- if(contflg==0,
- Ku=KukanL_ii;
- if(Flg==0,
- if(Ku_2<t1,
- Res=append(Res,Ku);
- ,
- Flg=1;
- if(Ku_1<t1-Eps,
- tmp=[Ku_1,t1];
- Res=append(Res,tmp);
- );
- if(Ku_2>t2+Eps,
- tmp=[t2,Ku_2];
- Res=append(Res,tmp);
- );
- );
- ,
- if(Flg==1,
- if(Ku_2<t2,
- contflg=1;
- ,
- if(contflg==0,
- Flg=2;
- if(Ku_1<t2-Eps,
- Ku=[t2,Ku_2];
- );
- Res=append(Res,Ku);
- );
- );
- ,
- if(contflg==0,
- Res=append(Res,Ku);
- );
- );
- );
- );
- );
- Res;
-);
-
-ProjcoordCurve(Curve):=(
- regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz);
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- forall(1..(length(Curve)),jj,
- pt=Curve_jj;
- x=pt_1; y=pt_2; z=pt_3;
- xz=-x*SP+y*CP;
- yz=-x*CP*CT-y*SP*CT+z*ST;
- zz=x*CP*ST+y*SP*ST+z*CT;
- Out=append(Out,[xz,yz,zz]);
- );
- Out;
-);
-
-Divnohidhid(nm,dt3dorg,nvec):=Divnohidhid(nm,dt3dorg,nvec,[],["do"]);
-Divnohidhid(nm,dt3dorg,nvec,optionorg,options2):=(
-//help:Divnohidhid("1","sc3d1",nvec,["Num=100"],["Num=100","do"]);
- regional(name,dt3d,options,pvec,disp,nohid,hid,flg,tmp,tmp1,eqL);
- name="nh"+nm;
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- disp="Y";
- forall(eqL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="D",
- tmp=indexof(#,"=");
- disp=Toupper(substring(#,tmp,tmp+1));
- options=remove(options,[#]);
- );
- );
- if(isstring(dt3dorg),dt3d=parse(dt3dorg),dt3d=dt3dorg);
- pvec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- nohid=[];
- hid=[];
- flg=0;
- forall(1..(length(dt3d)-1),
- p1=dt3d_#;
- p2=dt3d_(#+1);
- tmp=assign(nvec,["x",p1_1,"y",p1_2,"z",p1_3]);
- tmp=parse(tmp);
- if(Dotprod(tmp,pvec)>0,
- if(flg==0 % flg==-1,
- nohid=append(nohid,[p1,p2]);
- flg=1;
- );
- if(flg==1,
- nohid_(length(nohid))=append(nohid_(length(nohid)),p2);
- );
- ,
- if(flg==0 % flg==1,
- hid=append(hid,[p1,p2]);
- flg=-1;
- );
- if(flg==-1,
- hid_(length(hid))=append(hid_(length(hid)),p2);
- );
- );
- );
- if(disp=="Y",
- Changestyle3d([dt3dorg],["nodisp"]);
- forall(1..length(nohid),
- Spaceline(name+"nh"+text(#),nohid_#,options);
- );
- forall(1..length(hid),
- Spaceline(name+"h"+text(#),hid_#,options2);
- );
- );
- tmp1="[";
- forall(nohid,tmp1=tmp1+textformat(#,5)+",");
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"nh="+tmp1);
- tmp1="[";
- forall(hid,tmp1=tmp1+textformat(#,5)+",");
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"h="+tmp1);
- [nohid,hid];
-);
-
-Beziersurf(nm,m,n,pL):=(
-//help:Beziersurf("pt",2,2,pL);
- regional(p3dL,ptlistx,ptlilsty,ptlistz);
- factorial(n):=(
- regional(out);
- out=1;
- forall(1..n,
- out=out*#;
- );
- out;
- );
- Deffun("Comb(n,r)",[
- "regional(y)",
- "y=factorial(n)/(factorial(r)*factorial(n-r))",
- "y"
- ]);
- Deffun("Bterm(u,v,m,n,i,j)",[
- "regional(y)",
- "y=Comb(m,i)*u^i*(1-u)^(m-i)",
- "y=y*Comb(n,j)*v^j*(1-v)^(n-j)",
- "y"
- ]);
- Deffun("Ball(u,v,m,n,pL)",[
- "regional(y,ii,jj,tmp,tmp1)",
- "y=0",
- "forall(0..m,ii,
- forall(0..n,jj,
- tmp=(n+1)*ii+jj+1;
- tmp1=Op(tmp,pL);
- tmp1=tmp1*Bterm(u,v,m,n,ii,jj);
- y=y+tmp1;
- )
- )",
- "y"
- ]);
- if(ispoint(pL_1),
- p3dL=apply(pL,parse(text(#)+"3d"));
- ,
- p3dL=apply(pL,parse(#+"3d"));
- );
- ptlistx=apply(p3dL,#_1);
- ptlisty=apply(p3dL,#_2);
- ptlistz=apply(p3dL,#_3);
- Defvar(nm+"x",ptlistx);
- Defvar(nm+"y",ptlisty);
- Defvar(nm+"z",ptlistz);
- tmp=[
- "p",
- "x=Ball(U,V,2,2,"+nm+"x)",
- "y=Ball(U,V,2,2,"+nm+"y)",
- "z=Ball(U,V,2,2,"+nm+"z)",
- "U=[0,1]",
- "V=[0,1]"
- ];
- tmp;
-);
-
-//help:end();
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt
deleted file mode 100644
index 63f107b7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlog.txt
+++ /dev/null
@@ -1,295 +0,0 @@
-// s: 2017.07.13
-// Spaceline debugged ( ["A3d","B3d"] =>[A3d,B3d] )
-// s: 2017.07.01
-// Start3d changed (debugged) ( Initialize SlideColorList )
-// s: 2017.06.02
-// Putaxes3d debugged ( for THETA=90 )
-// Projpara debugged ( list with length <2 removed)
-// s: 2017.05.18
-// Start3d changed ( Ch,ChNum added )
-// s: 2017.05.02
-// Ketinit3d, Start3d changed ( Sprintf(*.2) used )
-// s: 2017.04.14
-// Makeskeleton debugged ( Eps=10^(-4) )
-// s: 2017.01.19
-// Setangle changed ( for "" )
-// s: 2017.01.04
-// Bezier3 debugged ( t => T)
-// s: 2016.12.24
-// Setangle added
-// s: 2016.12.19
-// Skeletondatacindy debugged ( for null 2d data);
-// s: 2016.12.18
-// Ptseg3data debugged ( points to be removed );
-// s: 2016.11.29
-// Start3d changed ( CONCATCMD,OCNAME added )
-// s: 2016.11.12
-// Start3d changed ( option:ptexception added )
-// ( with Ptseg3data, Mkpointlist );
-// s: 2016.11.11
-// Skeletondatacindy added
-// ( with Makeskeletondata, Kukannozoku,ProjcoordCurve )
-// s: 2016.11.02
-// Divnohidhid added
-// s: 2016.10.06
-// Joincrvs3d added
-// s: 2016.08.20(22)
-// Ptseg3data included in Start3d
-// Wait option adjusted
-// s: 2016.08.20(21)
-// Mkpointlist changed ( x,y fixed when ptz changes )
-// Sfbdparadata,Wireparadata,Crvsfparadata debugged ( global var, for non list )
-// s: 2016.08.19
-// Nohiddenbyfaces, Mkbezierptcrv3d changed
-// Start3d debugged ( BezierNumber3 added )
-// Concatobj changed ( Default : "rmf=y" )
-// s: 2016.08.17
-// Wireparadata debugged
-// s: 2016.08.14
-// Xyzax3data changed ( options "a1","Osw" added )
-// Intersectcrvsf debugged
-// s: 2016.08.09
-// Intersectcrvsf debugged ( //// => |||| )
-// s: 2016.06.20
-// Start3d changed ( no ketinit3d )
-// s: 2016.06.19
-// VertexEdgeFace changed ( for ptdata alone )
-// Putpoint3d debugged
-// s: 2016.05.26
-// Putpoint3d debugged
-// Beziersurf added
-// s: 2016.05.26
-// Start3d changed ( pt2d added)
-
-/////////////
-// s: 2014.12.13 v1.0.0(beta)
-// Ketinit3d, Projpara, Parapt, Spaceline, Spacecurve, Xyzax3data
-// e: 2014.12.14
-// Skeletonparadata
-// e: 2014.12.18
-// Embed added
-// e: 2014.12.19
-// Skeletonparadata debugged ( Extractdata used )
-// Dotprod, Crossprod added
-// e: 2014.12.22
-// Skeletonparadata changed and debugged
-// Rotate3pt, Rotate3data added
-// Translate3pt, Translate3data added
-// e: 2014.12.27
-// Projcurve changed ( options )
-// e: 2015.02.02
-// Ketinit3d changed ( slider position )
-// e: 2015.02.06
-// xyzcoord, Mkpointlist, Mkseg3d, Putpoint3d, Makescreen added
-// e: 2015.02.07
-// Mkseg3d changed ( LineSeg )
-// 2nd frame changed (10 -> Pne.x-Psw.x )
-// e: 2015.02.08
-// Spacecurve changed ( Assign written to Scilab)
-// Ketinit changed ( position of slider)
-// e: 2015.02.09
-// Bezierpt3sub,Bezier3,Putbezier3data,Mkbezierptcrv3 added
-// e: 2015.02.10
-// Spacecurve changed ( Num )
-// e: 2015.02.11
-// Ketinit3d, Ptseg3data,Putpoint3d changed ( SUBSCR )
-// Subscreen, Subgraph added
-// Spaceline,Spacecurve, Rotate3data, Tranlate3data changed (SUBSCR)
-// Bezier3 changed
-// e: 2015,02.12
-// Bezier3, Putbezierpt debugged
-// Spacecurve changed ( name when "bz")
-// e: 2015.02.14
-// Ptseg3data changed ( alllines => allsegments )
-// e: 2015.02.15
-// Subscreen renamed to Start3d
-// e: 2015.02.16
-// Ptseg3data, Mkpointlist changed
-// e: 2015.02.17
-// Skeletonparadata debugged ( textformat was wrongly used)
-// Mkpointlist debugged ( not finished )
-// e: 2015.02.18
-// Rotate3data, Translate3data changed ( available for pdlist )
-// Puttickmark3d ( not yet )
-// Putonaxes3 added
-// drawpoint3d added
-// e: 2015.02.23
-// help(example) added
-// Pne,Psw,Th,Ph changed to NE,SW,TH,FI
-// e: 2015.02.24
-// Bezier3 debugged
-// Projpara changed ( for single data )
-// Reflectpt, PutonCurve3d added
-// e: 2015.02.25 v1.2.1
-// Puonaxes changed ( sizelist for each axis )
-// e: 2015.02.26
-// Mkpointlist changed ( point moves perpendicular to xy-plain)
-// e: 2015.02.27
-// IntersectsgpL, Fixpoint3d added
-// Puonaxes3 renamed to Putaxes3d and changed
-// e: 2015.02.28
-// Fixaxes3d removed
-// Mkbezierptcrv changed
-// Ketinit3d changed ( global BezierNumber3, BZLIST3)
-// e: 2015.03.01
-// Findangle, Cancoordpara,Zparapt, Projcoordpara,added
-// Putpoint3d changed ( fix option );
-// Putperp added
-// e: 2015.03.02
-// Mkseg3d changed ( geoseg3 defined )
-// Changestyle3d added
-// IntersectsgpL changed ( option put, draw, none )
-// Putperp rename to Perppt, available for segment, option added
-// e: 2015.03.05
-// Start3d changed ( VLIST defined if empty )
-// e: 2015.03.06 v1.2.2
-// Keinit3d, Putpoint3d changed (TSIZE,TSIZEZ)
-// Perpplane added
-// Embed debugged (for data as string )
-// Pseg3d debugged (case of empty )
-// e: 2015:03.13 v1.2.3
-// Help ( Putoncurve3d ) added
-// Putoncurve3d debugged
-// e: 2015.03.25 v1.2.4
-// Skeletonparadata changed ( nm, options );
-// e: 2015.03.26
-// Bezier3, Mkbezierptcrv3d debugged
-// e: 2015.03.28
-// Findangle ( and Perpplane ) debugged
-// e: 2015.04.06
-// Start3d changed ( Var from Fhead )
-// e: 2015.05.12 v1.3.1
-// Datalist3d added
-// e: 2015.05.14
-// Start3d debugged (SCEWRLIST, SCEWRLIST reset )
-// Skeletonpara changed (Divoptions used )
-// e: 2015.05.17 v1.3.2
-// Skeletonpara changed (out/in )
-// e: 2015.05.24 v1.3.3
-// Bezier3,Rotate3data,.. renamed to Bezier3d, ...
-// help:start(), help:end() added
-// VertexandEdge, Readobj, Removespace added
-// Changestyle3d changed
-// e: 2015.05.26 v1.4.1
-// Readobj, VertexandEdge added
-// Phparadata added
-// e: 2015.05.27 v1.4.1a
-// Skeletonpara, Phparadata changed ( for string ) and debugged
-// e: 2015.05.28
-// IntersectsgpL changed ( with segdata )
-// e: 2015.05.29 v1.4.2
-// Findhiddenseg added
-// e: 2015.05.30
-// Spaceline changed ( name when "-" )
-// Datalist3d changed, Datalist2d added;
-// Nohiddenbyfaces, Nohiddensegs, Nohiddenseg added
-// e: 2015.06.02 v1.4.3
-// Nohiddenseg revised/debugged ( major revision )
-// Skeletonparadata changed
-// e: 2015.06.06 v1.4.4
-// Readobj changed ( for #, f / )
-// Spaceline changed ( Message option )
-// e: 2015.06.08 v1.4.5
-// Nohiddenbyfaces changed
-// e: 2015.06.15 v1.4.6
-// Vertexedgeface changed ( edge drawn as geometric figure )
-// Mkseg3data changed ( Points of Spaceline changed to vertex name )
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// e: 2015.07.06 v1.5.1
-// Vertexedgeface changed ( options "Pt=..", "Sg=.." );
-// e: 2015.07.09 v1.5.2
-// Skeletonparadata debugged
-// e: 2015.07.16 v1.5.3
-// Skeletonparadata debugged
-// e: 2015.07.22 v1.5.4
-// Skeletonparadata debugged
-// e: 2015.08.11 v1.5.6
-// Fullformfunc added
-// e: 2015.08.14 v1.5.7
-// Spacecurve changed ( Msg option, tmpfn defined )
-// Start3d debugged ( FUNLIST initialized )
-// e: 2015.08.17
-// Spacecurve debugged
-// Subgraph debugged
-// e: 2015.10.04 v1.8.0
-// Sf3data, Sfbdparadata added
-// Ketinit3d changed ( Position of Th,Phi sliders)
-// e: 2015.10.05
-// Sfbdparadata changed
-// Crvsfparadata added
-// e: 2015.10.09 v1.8.1
-// Sfbdparadata,Crvsfparadata changed
-// e: 2015.10.10
-// Sf3data debugged
-// e: 2015.10.12 v1.8.2
-// Wireparadata, Intersectcrvsf added
-// e: 2015.10.19 v1.8.4
-// Concatobj added
-// Nohiddenbyseg changed ( optionh )
-// e: 2015.10.19 v1.8.5
-// Intersectcrvsf changed ( according to the mod of ReadOutData of Scilab)
-// Drawpoint3d changed ( for pointlist)
-// e: 2015.10.31 v2.0.0
-// Bugs fixed
-// Embed debugged
-// e: 2015.11.01 v2.0.1
-// Skeletonparadata changed to new version
-// ( old version renamed to Skeletonparadata2 )
-// e: 2015.11.03 v2.0.1
-// Subgraph debugged
-// e: 2015.11.05 v2.1.0
-// Start3d changed ( OutFileList reset )
-// e: 2015.12.16
-// VertexEdgeFace changed (help )
-// e:2016.01.24
-// Concatobj debugged ( major revision )
-// e:2016.01.30
-// geoseg3 => geoseg3d
-// e:2016.01.31
-// Skeletonparadata debugged
-// Start3d changed ( Arrow..counter reset )
-// e:2016.02.01
-// Skeletonparadata changed ( prec=4 )
-// Sfbdparadata changed ( precommandS added )
-// e:2016.02.02
-// IntersectsgpL changed ( for pointlist )
-// e:2016.02.02
-// Skeletonparadata debugged ( linestyle options )
-// e:2016.02.07
-// Dist3d added
-// e:2016.02.10
-// Partcrv3d added
-// Ketinit3d changed ( no display for sgTH,sgFI and TH,FI ,setwindow)
-// Spaceline changed ( for [A,B,C,...] )
-// Vertexedgeface changed ( for [A,B,C,...] )
-// Nohiddenbyfaces, Nohiddenbyseg changed
-// e:2016.02.11
-// Concatobj changed ( for duplicated point, removeface option )
-// e:2016.02.21
-// Nohiddenbyfaces debugged ( optionorg )
-// e:2016.02.22
-// Putonseg3d added
-// Spaceline changed ( name defined automatically when no name )
-// e:2016.02.23
-// Nohiddenbyfaces debugged
-// e:2016.02.28
-// Skeletonparadata debugged ( width option )
-// Concatobj changed ( for the list of points )
-// e:2016.02.29
-// Nohiddenbyfaces, Vertexedgeface debugged ( width option )
-// e:2016.03.02
-// Putpoint3d changed ( ("A",[1,2,3],"fix") is OK )
-// e:2016.03.30
-// Invparapt, InvparaptPp added
-// e:2016.04.07
-// Mkseg3d debugged
-// e:2016.04.08
-// Start3d changed (FigPdfList added )
-// e:2016.04.15
-// Spacecurve debugged ( option empty case )
-// e:2016.05.25
-// Sf3data debugged (parse in options )
-// Sfbdparadata, Wireparadata, Crvsfparadata debugged ( Sciform)
-///////// To Reverse Sequence ////////////////
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt
index 7cef6fc7..5afce0d3 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dlogr.txt
@@ -1,3 +1,7 @@
+// 2018.01.04
+// Skeletonparadata(Skeletondatacindy) majorly changed
+// 2017.10.23
+// Rotatedata3d, Translatedata3d debugged ([])
// 2017.10.08
// Bezier3,Putbezier3data,Mkbezierptcrv3d greatly changed
// 2017.10.07
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
index 9732be4b..1b6f69e1 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylib3dr.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindylib3d(2017.10.07) loaded");
+println("ketcindylib3d(2018.01.05) loaded");
//help:start();
@@ -1290,9 +1290,10 @@ Rotate3data(nm,P3data,w1,w2,options):=(
tmp1=Projpara(name3,["nodata"]);
tmp=name2+"="+textformat(tmp1,5);
parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
+ tmp=textformat(P3data,5); // 17.12.23
+ tmp=RSform(tmp); // 17.12.23
+// tmp=replace(tmp,"[","list(");
+// tmp=replace(tmp,"]",")");
tmp=name3+"=Rotate3data("+tmp+","
+textformat(w1,5)+","+textformat(w2,5)+opstr+")";
GLIST=append(GLIST,tmp);
@@ -1377,9 +1378,11 @@ Translate3data(nm,P3data,w1,options):=(
tmp1=Projpara(name3,["nodata"]);
tmp=name2+"="+textformat(tmp1,5);
parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
+ tmp=textformat(P3data,5); // 17.12.23
+ tmp=RSform(tmp); // 17.12.23
+// tmp=text(P3data);
+// tmp=replace(tmp,"[","list(");
+// tmp=replace(tmp,"]",")");
tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")";
GLIST=append(GLIST,tmp);
tmp=name2+"=Projpara("+name3+")";
@@ -3693,286 +3696,13 @@ Intersectcrvsf(nm,gdstr,fdorg,optionorg):=(
);
);
-Skeletonparadata2(nm):=Skeletonparadata2(nm,[]);
-Skeletonparadata2(nm,options):=(
- regional(tmp,tmp2,tmp3);
- // tmp=apply(GCLIST,#_1);
- // tmp=select(tmp,indexo(#,"2d")>0);
- // tmp2=select(tmp,indexof(#,"sub")==0);
- tmp3=Datalist3d();
- Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
- // tmp3=apply(tmp2,replace(#,"2d","3d"));
- Skeletonparadata2(nm,"",tmp3,tmp3,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2):=(
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=(
- regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2,
- opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Skeletonparadata2 "+name3);
- if(isstring(pltdata1), // 15.05.27 from
- tmp1=pltdata1;
- ,
- tmp1="";
- forall(pltdata1,
- tmp1=tmp1+#+",";
- );
- tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")";
- );
- if(isstring(pltdata2),
- tmp2=pltdata2;
- ,
- tmp2="";
- forall(pltdata2,
- tmp2=tmp2+#+",";
- );
- tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")";
- );
- Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto
- GLIST=append(GLIST,name3+"="+Str);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
-// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
- if(nme!="", // 15.05.27
- Changestyle3d("phe3d"+nme,["nodisp"]);
- ,
- forall(pltdata1, // 15.07.16
- tmp=replace(#,"3d","2d");
- if(contains(GCLIST,tmp),
- Changestyle3d(#,["nodisp"]);
- );
- );
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
-);
-
-Skeletonparadata(nm):=Skeletonparadata(nm,[]);
-Skeletonparadata(nm,options):=(
- regional(tmp,tmp2,tmp3);
- tmp3=Datalist3d();
- Skeletonparadata(nm,"",tmp3,tmp3,options);
-// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
-);
-Skeletonparadata(nm,Arg1,Arg2):=(
-//help:Skeletonparadata("1");
-//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletonparadata(options2=[width(1), "Wait=20]);
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=(
- regional(name2,name3,eqL,strL,options,fname,outreg,waiting,
- reL, pltdata1,pltdata2,wflg,opcindy,width,pdata,
- tmp,tmp1,tmp2);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- fname=Fhead+"sk"+nm+".txt";
- pltdata1=[];// 16.01.31
- forall(pltdata1org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata1=concat(pltdata1,tmp);
- ,
- pltdata1=append(pltdata1,tmp1);
- );
- );
- pltdata2=[];// 16.01.31
- forall(pltdata2org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata2=concat(pltdata2,tmp);
- ,
- pltdata2=append(pltdata2,tmp1);
- );
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6; //16.02.28
- strL=tmp_7;
- opcindy=tmp_9;
- waiting=20;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- width=1;
- if(length(reL)>0, //16.02.28
- width=reL_1;
- );
- forall(pltdata1,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- forall(pltdata2,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- tmp=select(VLIST,#_1==pdata);
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- );
- cmdL=MkprecommandS(4);
- tmp2=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2
- ];
- cmdL=concat(cmdL,[
- "Setangle",[THETA,PHI]*180/pi,
- name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"],
- name2+"=Projpara",[name3],
- "WriteOutData",tmp2
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("sk"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Skeletonparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(islist(parse(name2)),
- Extractdata(name2,options);
-// if(isstring(pltdata1_1), // 16.01.31
- tmp=apply(pltdata1,replace(#,"3d","2d"));
-// ,
-// tmp=replace(pltdata1org,"3d","2d");
-// );
- Changestyle(tmp,["nodisp"]);
-// Changestyle3d(pltdata1,["nodisp"]);
- ,
- ErrFlag=1;
- );
- );
-);
+////////////// new skeleton 2018.01.04from ////////////////
+Skeletonparadata(nm):=Skeletondatacindy(nm,[]);
+Skeletonparadata(nm,options):=Skeletondatacindy(nm,options);
+Skeletonparadata(nm,pltdata1,pltdata2):=Skeletondatacindy(nm,pltdata1,pltdata2);
+Skeletonparadata(nm,pltdata1org,pltdata2org,options):=
+ Skeletondatacindy(nm,pltdata1org,pltdata2org,options);
Skeletondatacindy(nm):=Skeletondatacindy(nm,[]);
Skeletondatacindy(nm,options):=(
regional(tmp);
@@ -3982,11 +3712,11 @@ Skeletondatacindy(nm,options):=(
Skeletondatacindy(nm,pltdata1,pltdata2):=
Skeletondatacindy(nm,pltdata1,pltdata2,[]);
Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
-//help:Skeletondatacindy("1");
-//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletondatacindy(options2=[1(width)]);
+//help:Skeletonparadata("1");
+//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]);
+//help:Skeletondata(options2=[1(width)]);
regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy,
- Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data,
+ Data,Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data,
Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2);
name2="sk2d"+nm;
name3="sk3d"+nm;
@@ -4005,7 +3735,7 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
Noflg=tmp_2;
reL=tmp_6; //16.02.28
opcindy=tmp_9;
- Rr=0.075*1000/2.54/MilliIn;
+ Rr=0.15*1000/2.54/MilliIn;
size=1;
Eps2=0.05;
if(length(reL)>0, //16.02.28
@@ -4015,34 +3745,14 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
);
Eps=10^(-4);
ObjL=Flattenlist(pltdata1);
- Plt3L=Flattenlist(pltdata2);
- tmp=apply(Plt3L,ProjcoordCurve(#));
- Plt2L=Flattenlist(tmp);
-/////////// tmp=apply(pltdata1,replace(#,"3d","2d"));
- Out=[];
- forall(1..(length(ObjL)),ii,
- Obj3=ObjL_ii;
- tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2);
- forall(1..(length(Data)),jj,
- Gd=Data_jj;
- if((length(Gd)>1)
- & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps),
- PtD=[];
- forall(1..(length(Gd)),
- tmp=Gd_#;
- tmp1=Invparapt(tmp,Obj3);
- PtD=append(PtD,tmp1);
- );
- Out=append(Out,PtD);
- );
- );
- );
- Out=select(Out,length(Projcurve(#))>0); // 16.12.19
+ PltL=Flattenlist(pltdata2);
+ Data=Makeskeletondata(ObjL,PltL,Rr);
+ Out=select(Data,length(Projcurve(#))>0);
+ Out=Flattenlist(Out);
tmp1=apply(Out,textformat(#,5));
tmp=name3+"="+tmp1;
parse(tmp);
- tmp=name2+"=Projcurve("+tmp1+");";
+ tmp=name2+"=Projcurve("+name3+");";
parse(tmp);
Changestyle3d(pltdata1org,["nodisp"]);
if(Noflg<3,
@@ -4071,262 +3781,121 @@ Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
Out;
);
-Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=(
- regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj,
- Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te,
- koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg);
- Eps=10.0^(-4);
- Dmat=[];
- Dind=[];
- forall(1..(length(Plt2L)),ii,
- Dt=Plt2L_ii;
- nn1=length(Dmat)+1;
- Dmat=concat(Dmat,Dt);
- nn2=length(Dmat);
- Dind=append(Dind,[nn1,nn2]);
- );
- Nind=length(Dind);
+Makeskeletondata(ObjL,PltL,R0):=(
+ regional(Allres,res,Eps1,obj,plt,obj2,remov,flg,koc,z1,z2,Rr,str,
+ mm,nn,kk,ptk,pL,pt,ptL,tmp,tmp1,tmp2,tmp3,tmp3d);
+ Eps1=10.0^(-2);
Allres=[];
- forall(1..(length(Obj2L)),Nobj,
- Plt2=Obj2L_Nobj;
- PhL=Columnlist(Plt2,1..2);
- ClipL=[];
- forall(1..(length(PhL)-1),ns,
- pt1=PhL_(ns..(ns+1));
- forall(1..(length(Dind)),ii,
- tmp=Dind_ii;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- pt2=Columnlist(tmp,1..2);
- koc=IntersectcrvsPp(pt1,pt2,[Eps]);
- if(length(koc)>0,
- breakflg=0;
- forall(1..(length(koc)),jj,
- contflg=0;
- if(breakflg==0,
- pt=Op(1,Op(jj,koc));
- tmp=Op(2,Op(jj,koc));
- if((tmp<1+Eps) & (ns==1),
- contflg=1;
- );
- if(contflg==0,
- if((tmp>length(pt1)-Eps)
- & (ns==length(PhL)-1),
- contflg=1;
- );
- );
- if(contflg==0,
- nn1=ns;
- nn2=Op(3,Op(jj,koc));
- tmp=Plt2_nn1;
- pta=tmp_(1..2);
- za=tmp_3;
- tmp=Plt2_(nn1+1);
- ptb=tmp_(1..2);
- zb=tmp_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t1=norm(pta-pt)/norm(pta-ptb);
- z1=(1-t1)*za+t1*zb;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- tmp1=tmp_nn2;
- pta=tmp1_(1..2);
- za=tmp1_3;
- tmp2=tmp_(nn2+1);
- ptb=tmp2_(1..2);
- zb=tmp2_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t2=norm(pta-pt)/norm(pta-ptb);
- z2=(1-t2)*za+t2*zb;
- if(z1<z2-Eps2,
- if(length(ClipL)==0,
- tmp=1;
- ,
- tmp1=column(ClipL,1);
- tmp1=apply(tmp1,#-pt_1);
- tmp2=column(ClipL,2);
- tmp2=apply(tmp2,#-pt_2);
- tmp3=apply(tmp1,#^2)+apply(tmp2,#^2);
- tmp=min(tmp3);
- );
- if(tmp>Eps^2,
- tmp1=pt1_2-pt1_1;
- tmp2=ptb-pta;
- tmp3=Dotprod(tmp1,tmp2);
- tmp3=tmp3/norm(tmp1)/norm(tmp2);
- tmp=1-0.5*tmp3^2;
- tmp1=concat(pt,[nn1,t1,R0/tmp]);
- ClipL=append(ClipL,tmp1);
- );
- );
+ forall(1..(length(ObjL)),mm,
+ obj=ObjL_mm;
+ remov=[];
+ obj2=Projcurve(obj);
+ forall(1..(length(PltL)),nn,
+
+ plt=PltL_nn;
+ tmp=Projcurve(plt);
+ koc=Intersectcurves(obj2,tmp);
+ forall(1..(length(koc)),kk,
+ ptk=koc_kk;
+ tmp=PointonCurve(ptk_2,obj);
+ z1=Zparapt(tmp);
+ tmp=PointonCurve(ptk_3,plt);
+ z2=Zparapt(tmp);
+ if(z1<z2-Eps1,
+ tmp=max([sqrt(1-(ptk_5)^2),0.75]);
+ Rr=R0/tmp;
+ tmp2=[];
+ flg=0;
+ tmp=reverse(1..(floor(ptk_2)));
+ forall(tmp,
+ if(flg==0,
+ if(|obj2_#-ptk_1|>Rr,
+ tmp2=[#];
+ flg=1;
);
);
);
- );
- );
- );
- te=length(Plt2);
- KukanL=[[1.0,te]];
- pt1=PhL;
- if(length(ClipL)>0,
- forall(1..(length(ClipL)),ii,
- tmp=ClipL_ii;
- pt=tmp_(1..2);
- nn=tmp_3;
- tt=nn+tmp_4;
- Rr=tmp_5;
- Flg=0;
- breakflg=0;
- forall(reverse(1..nn),jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
- );
- );
- if(Flg==0,
- t1=1;
- ,
- t1=Flg; t2=tt;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t2=t2-hh;
- ,
- t1=t1+hh;
+ if(length(tmp2)==0,tmp2=[1]);
+ flg=0;
+ tmp=(ceil(ptk_2))..(length(obj2));
+ forall(tmp,
+ if(flg==0,
+ if(|obj2_#-ptk_1|>Rr,
+ tmp2=append(tmp2,#);
+ flg=1;
+ );
);
);
- );
- Ku=[t1];
- Flg=0;
- breakflg=0;
- forall((nn+1)..te,jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
+ if(length(tmp2)==1,tmp2=append(tmp2,length(obj2)));
+ tmp=obj2_((tmp2_1)..(tmp2_2));
+ tmp1=Circledata("",[ptk_1,ptk_1+[Rr,0]],["Num=8","nodata"]);
+ tmp1=Intersectcurves(tmp,tmp1);
+ if(length(tmp1)==2,
+ tmp=sort([tmp1_1_2,tmp1_2_2]);
+ tmp=[[tmp2_1-1+tmp_1,1],[tmp2_1-1+tmp_2,-1]];
+ remov=concat(remov,tmp);
);
- );
- if(Flg==0,
- t2=te;
- ,
- t1=tt; t2=Flg;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t1=t1+hh;
+ if(length(tmp1)==1,
+ if(tmp2_1==1,
+ tmp=[[1,1],[tmp2_1-1+tmp1_1_2,-1]];
,
- t2=t2-hh;
+ tmp=[[tmp2_1-1+tmp1_1_2,1],[length(obj2),-1]];
);
+ remov=concat(remov,tmp);
);
);
- Ku=append(Ku,t2);
- KukanL=Kukannozoku(Ku,KukanL);
- );
- );
- Res=[];
- forall(1..(length(KukanL)),ii,
- tmp=KukanL_ii;
- t1=tmp_1; nn1=floor(t1);
- t2=tmp_2; nn2=floor(t2);
- PtL=[];
- if(t1-nn1<1-Eps,
- tmp=PointonCurve(t1,pt1);
- PtL=[tmp];
- );
- forall((nn1+1)..nn2,jj,
- tmp=PointonCurve(jj,pt1);
- PtL=append(PtL,tmp);
);
- if(t2-nn2>Eps,
- tmp=PointonCurve(t2,pt1);
- PtL=append(PtL,tmp);
- );
- tmp=Listplot("",PtL,["nodata"]);
- Res=append(Res,tmp);
);
- Allres=concat(Allres,Res);
- );
- Allres;
-);
-
-Kukannozoku(Jokyo,KukanL):=(
- regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1);
- Eps=10^(-6);
- nn=length(KukanL);
- t1=Jokyo_1; t2=Jokyo_2;
- tmp=KukanL_1;
- t1=max(t1,tmp_1);
- tmp=KukanL_nn;
- t2=min(t2,tmp_2);
- Res=[];
- Flg=0;
- contflg=0;
- forall(1..nn,ii,
- if(contflg==0,
- Ku=KukanL_ii;
- if(Flg==0,
- if(Ku_2<t1,
- Res=append(Res,Ku);
- ,
- Flg=1;
- if(Ku_1<t1-Eps,
- tmp=[Ku_1,t1];
- Res=append(Res,tmp);
- );
- if(Ku_2>t2+Eps,
- tmp=[t2,Ku_2];
- Res=append(Res,tmp);
- );
- );
+ if(length(remov)==0,
+ res=obj;
+ ,
+ res=[];
+ remov=sort(remov,[#_1,#_2]);
+ tmp=select(remov,#_1<1-Eps1);
+ if(length(tmp)==0,
+ flg=0;
+ res=[1];
,
- if(Flg==1,
- if(Ku_2<t2,
- contflg=1;
- ,
- if(contflg==0,
- Flg=2;
- if(Ku_1<t2-Eps,
- Ku=[t2,Ku_2];
- );
- Res=append(Res,Ku);
- );
- );
- ,
- if(contflg==0,
- Res=append(Res,Ku);
- );
+ flg=length(tmp);
+ res=[];
+ );
+ forall(remov,
+ tmp=flg;
+ if(#_2==-1,
+ flg=flg-1;
+ if(flg==0,res=append(res,#_1));
+ );
+ if(#_2==1,
+ flg=flg+1;
+ if(tmp==0,res=append(res,#_1));
+ );
+ );
+ if((flg==0)&(res_(length(res))<length(obj)),
+ res=append(res,length(obj));
+ );
+ tmp=res;
+ res=[];
+ forall(1..(length(tmp)/2),nn,
+ tmp1=tmp_(2*nn-1);
+ tmp2=tmp_(2*nn);
+ pL=(ceil(tmp1))..(floor(tmp2));
+ if(tmp1<ceil(tmp1)-Eps1,pL=prepend(tmp1,pL));
+ if(tmp2>floor(tmp2)+Eps1,pL=append(pL,tmp2));
+ ptL=[];
+ forall(pL,
+ pt=PointonCurve(#,obj);
+ ptL=append(ptL,pt);
);
+ res=append(res,ptL);
);
);
+ Allres=append(Allres,res);
);
- Res;
+ Allres;
);
+////////////// new skeleton 2018.01.04upto ////////////////
+
ProjcoordCurve(Curve):=(
regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz);
SP=sin(PHI); CP=cos(PHI);
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs
deleted file mode 100644
index d98cfe7c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1.cs
+++ /dev/null
@@ -1,4874 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("KETCindy V.3.0.3(2017.09.10)");
-println(ketjavaversion());//17.06.05
-println("ketcindylibbasic1(2017.08.23) loaded");
-
-//help:start();
-
-//help:drawimage([0,0],"picture.png",scale->2,alpha->0.4);
-//help:drawtext((2,1),"Text",size->2);
-//help:system(list=append(list,"a"););
-//help:system(list=concat(list,["a","b"]););
-//help:system(arccos,arcsin,arctan);
-//help:system(abs,round,floor,ceil);
-
-//help:Option1(["dr","dr,2","da","da,2,1","do","do,1,2"]);
-//help:Option2(["notex","nodisp","nodata"]);
-//help :Option3(["in","out","in-","out-"]);
-
-//help:getdirhead();
-//help:gedirhead("/Applications");
-//help:gedirhead("C:\Users\(username)");
-
-Ch=[0]; ChNum=1;
-
-Ketinit():=Ketinit(1);
-//help:Ketinit();
-Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
-Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc,sep);
- PenThickInit=8;
- ULEN="1cm";
- MARKLEN=0.2; //16.11.01
- KETPICLAYER=20;
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- KETPICCOUNT=1;
- KCOLOR=[0,0,0];
- GLIST=[];
- GCLIST=[];
-// GDATALIST=[];
- GOUTLIST=[];
- POUTLIST=[];
- VLIST=[];
- FUNLIST=[];
- LETTERlist=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- ADDAXES="1";
- LFmark=unicode("000a");
- CRmark=unicode("000d");//16.12.13
- Dq=unicode("0022");
- WaitUnit=10;
- CONTINUED=0;
- OutComList=[];
- OutFileLIst=[]; // 15.10.22
- FigPdfList=[]; // 16.04.08
- ADDPACK=[]; // 16.05.16
- ErrFlag=0;
- setdirectory(Dirwork);
- if(isstring(Fhead), // 15.04.06
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
- );
- if(!isstring(Mackc),// 16.06.07
- Mackc="sh";
- );
- ArrowlineNumber=1; // 15.01.05
- ArrowheadNumber=1;
- BezierNumber=1; //15.01.03
- SCALEX=1;
- SCALEY=sy;
-// Setscaling(sy);
- XMIN=rangex_1/SCALEX;
- XMAX=rangex_2/SCALEX;
- YMIN=rangey_1/SCALEY;
- YMAX=rangey_2/SCALEY;
- Setwindow("Msg=n"); // 16.05.31
- // for Presentation
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- ThinDense=0.1;//17.01.08
- if(indexof(PathS,"-6.")>0,//17.04.14from
- if(iswindows(),sep="\",sep="/");
- if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0),
- Libname=Dirlib+sep+"ketpicscifiles6";
- ,
- Libname=Dirlib+sep+"ketpic2escifiles6";
- );
- );//17.04.14upto
-);
-
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
-// XMIN=-5; XMAX=5;
-// YMIN=Lcrdy(-5); YMAX=Lcrdy(5);
-// createpoint("SW",Pcrd([XMIN,YMIN]));
-// createpoint("NE", Pcrd([XMAX,YMAX]));
- Putpoint("SW",Pcrd([XMIN,YMIN]));
- Putpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
-//help:Setwindow([2,3],[-1,1]);
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
- Putpoint("SW",Pcrd([XMIN,YMIN]));//17.05.30
- Putpoint("NE",Pcrd([XMAX,YMAX]));//17.05.30
-// Ketinit();
-);
-
-Setfiles(file):=( // 17.01.16
-//help:Setfiles(file);
- Fhead=file;
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
-);
-
-Setcindyname():=Setcindyname("");//16.12.25
-Setcindyname(file):=(
-//help:Setcindyname("Fhead");
-//help:Setcindyname(<only when on the terminal "ketcindy/cindy.sh "+file>);
- regional(tmp,tmp1,tmp2);
- setdirectory(Dirhead);
- CindyPathName="";
- CindyFileName="";
- CindyPathName=load("cindypath.txt");
- tmp2=load("cindyfile.txt");
- tmp2=replace(tmp2,".cdy","");
- if(length(tmp2)>0,
- CindyFileName=tmp2;
- if(length(file)>0,
- tmp=file+"="+DqDq(tmp2);
- parse(tmp);
- println(file+" set to "+DqDq(tmp2));
- );
- ,
- println("set "+file+" manually");
- );
- setdirectory(Dirwork);
- CindyFileName;
-);
-
-Cindypath():=( // 16.12.26
-//help:Cindypath();
- regional(out);
- CindyPathName="";
- setdirectory(Dirhead);
- CindyPathName=load("cindypath.txt");
- setdirectory(Dirwork);
- if(length(CindyPathName)==0,
- out=Dirwork;
- ,
- out=CindyPathName;
- );
- println(" path name="+out);
- out;
-);
-
-Cindyfile():=( // 16.12.26
-//help:Cindyfile();
- regional(out);
- CindyFileName="";
- setdirectory(Dirhead);
- out=load("cindyfile.txt");
- out=replace(out,".cdy","");
- setdirectory(Dirwork);
- CindyFileName=out;
- println(" file name="+out);
- out;
-);
-
-DqDq(str):=unicode("0022")+str+unicode("0022");
-
-Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstrorg,options):=(
-//help:Tab2list(datastr);
-//help:Tab2list(options=["Blank=(null)","Sep=tab"]);
- regional(dtstr,dtall,dt,rep,out,crm,lfm,htm,first,eqL,sep,
- tmp,tmp1,tmp2);
- crm=unicode("000d");
- lfm=unicode("000a");
- htm=unicode("0009");
- tmp=Divoptions(options);
- eqL=tmp_5;
- rep="";
- sep=htm;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="B",
- tmp1="0123456789+-."; // 16.09.28from
- tmp=substring(tmp2,0,1);
- if(indexof(tmp1,tmp)>0,rep=parse(tmp2),rep=tmp2); // 16.09.28upto
- );
- if(tmp1=="S", // 16.12.04
- if(tmp2!="tab",sep=tmp2);
- );
- );
- first=lfm; // 16.09.05from
- if(indexof(dtstr,crm)>0,
- first=crm;
- if(indexof(dtstr,crm+lfm)>0,
- first=first+lfm;
- ); // 16.09.05upto
- );
- dtstr=dtstrorg;// 16.09.19from
- tmp=substring(dtstr,length( dtstr)-1,length(dtstr));
- if(tmp!=lfm,
- dtstr=dtstr+first;
- );// 16.09.19upto
- tmp1=Indexall(dtstr,first);
- tmp1=prepend(0,tmp1);
- tmp1=append(tmp1,length(dtstr));
- dtall=[];
- forall(1..(length(tmp1)-1),
- tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1);
- if(length(tmp)>0,
- dtall=append(dtall,tmp);
- );
- );
- out=[];
- forall(dtall,dt,
- tmp1=tokenize(dt,sep); //16.12.04
- tmp2=[];
- forall(tmp1,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(!isreal(tmp),
- if(length(#)>0,tmp=#,tmp=rep);
- );
- tmp2=append(tmp2,tmp);
- );
- out=append(out,tmp2);
- );
- out;
-);
-
-Columnlist(dt,list):=( // 16.09.04
-//help:Columnlist(dt,1..3);
- apply(dt,#_list);
-);
-
-Dispmat(dt):=( // 16.09.16
-//help:Dispmat(dt);
- regional(htm,crm,lfm,row,tmp,tmp1,tmp2);
- htm=unicode("0009");
- crm=unicode("000d");
- lfm=unicode("000a");
- tmp2="";
- forall(dt,row,
- tmp1="";
- forall(row,
- if(isstring(#),
- tmp1=tmp1+#+htm;
- ,
- tmp1=tmp1+text(#)+htm;
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp1=tmp1+lfm;
- tmp2=tmp2+tmp1;
- );
- print(tmp2);
- println();
-);
-
-Sep1000(va):=( //17.07.18
-//help:Sep1000(1344555);
-//help:Sep1000([12456,55567]);
- regional(str,nall,out);
- if(islist(va),
- out=apply(va,Sep1000(#));
- ,
- str=text(va);
- nall=length(str);
- out="";
- forall(1..nall,
- out=str_(nall+1-#)+out;
- if((#<nall)&(mod(#,3)==0),
- out=","+out;
- );
- );
- );
- out;
-);
-
-factorial(n):=(
-//help:factorial(5);
- regional(out);
- out=1;
- forall(1..n,
- out=out*#;
- );
- out;
-);
-
-norm(v1):=( // 16.09.01
-//help:norm([2,1,3]);
- regional(out,tmp,tmp1,tmp2);
- out=0;
- forall(1..(length(v1)),
- out=out+(v1_#)^2;
- );
- out=sqrt(out);
- out;
-);
-norm(v1,v2):=(
- norm(v2-v1);
-);
-
-// 16.03.28
-Removespace(str):=(
-//help:Removespace(" a b c ");
- regional(tmp,flg,out);
- tmp=length(str)+1;
- flg=0;
- forall(1..(length(str)),
- if(flg==0,
- if((str_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(str,tmp-1,length(str));
- flg=0;
- tmp=0;
- forall(reverse(1..(length(out))),
- if(flg==0,
- if((out_#)!=" ",
- tmp=#;
- flg=1;
- );
- );
- );
- out=substring(out,0,tmp);
-);
-
-Indexall(str,key):=(
- regional(rest,out,flg,tmp,tmp1,);
- out=[];
- rest=str;
- flg=0;
- forall(1..(length(str)),
- if(flg==0,
- tmp=indexof(rest,key);
- if(tmp>0,
- tmp1=tmp+length(str)-length(rest);
- out=append(out,tmp1);
- rest=substring(rest,tmp,length(rest));
- ,
- flg=1;
- );
- );
- );
- out;
-);
-
-Parlevel(str):=Bracket(str); // 16.05.22from
-Bracket(str):=Bracket(str,"()");
-Bracket(str,br):=(
-//help:Bracket(string,"()");
- regional(ph,pt,out,noL,ncL,nall,level,tmp);
- ph=substring(br,0,1);
- pt=substring(br,1,2);
- noL=Indexall(str,ph);
- ncL=Indexall(str,pt); // 16.05.22upto
- nall=sort(concat(noL,ncL));
- level=0;
- out=[];
- forall(nall,
- if(contains(noL,#),
- level=level+1;
- tmp=[#,level];
- ,
- tmp=[#,-level];
- level=level-1;
- );
- out=append(out,tmp);
- );
- out;
-);
-
-Pardiagram(str):=Pardiagram(str,[20]);
-Pardiagram(str,options):=(
-//help:Pardiagram(exprstr);
-//help:Pardiagram(options=[20,"Disp=y","Fig=y"]);
- regional(reL,eqL,len,disp,scheme,bra,nn,sta,out,
- opos,cpos,all,dx,dh,mxh,start,nn,p1,p2,p3,p4,tmp,tmp1,tmp2,tmp3);
- len=20;
- disp=1;
- scheme=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="D",
- if(tmp2=="N" % tmp2=="F",disp=0);
- );
- if(tmp1=="F",
- if(tmp2=="N" % tmp2=="F",scheme=0);
- );
- );
- forall(reL,
- len=#;
- );
- bra=Bracket(str);
- tmp1=select(bra,#_2>0);
- tmp2=select(bra,#_2<0);
- out=[];
- forall(1..(length(tmp1)),nn,
- sta=tmp1_nn;
- tmp=select(tmp2,#_2==-sta_2 & #_1>sta_1);
- tmp=tmp_1;
- out=append(out, [substring(str,sta_1-1,tmp_1),
- nn,sta_2,sta_1,tmp_1,
- substring(str,sta_1-1,sta_1+len-1),
- substring(str,tmp_1-len,tmp_1)] );
- );
- if(disp==1,
- println("Printing from 2 to 7. (Extract full string using _1)");
- apply(out,println(#_(2..7)));
- );
- if(scheme==1,
- opos=sort(apply(out,#_4));
- cpos=sort(apply(out,#_5));
- tmp=concat(opos,cpos);
- all=sort(tmp);
- mxh=max(apply(out,#_3));
- dx=1;
- dh=1;
- start=[-5,5];
- forall(1..(length(all)),nn,
- tmp=select(out,#_4==all_nn);
- if(length(tmp)>0,
- tmp1=tmp_1_3;
- tmp2=tmp_1_4;
- tmp3=tmp_1_5;
- tmp=select(1..(length(all)),all_#==tmp3);
- tmp4=tmp_1;
- p1=start+[(nn-1)*dx,-0.5];
- p2=p1+[0,(tmp1-mxh-1)*dh];
- p3=p2+[(tmp4-nn)*dx,0];
- p4=p3+[0,(mxh+1-tmp1)*dh];
- Listplot("ch"+text(nn),[p1,p2,p3,p4],["Message=n"]);
- Letter([p2,"s",text(tmp2),p3,"s",text(tmp3)]);
- tmp=select(1..(length(opos)),opos_#==tmp2);
- tmp=tmp_1;
- if(tmp==1,
- tmp=substring(str,tmp2-1,tmp2);
- ,
- if(opos_(tmp-1)==opos_tmp-1,
- tmp=substring(str,tmp2-1,tmp2);
- ,
- tmp=substring(str,tmp2-2,tmp2);
- );
- );
- tmp=replace(tmp,"^","**");
- Expr(p1,"n",tmp);
- tmp=select(1..(length(cpos)),cpos_#==tmp3);
- tmp=tmp_1;
- if(tmp==length(cpos),
- tmp=substring(str,tmp3-1,tmp3);
- ,
- if(cpos_(tmp+1)==cpos_tmp+1,
- tmp=substring(str,tmp3-1,tmp3);
- ,
- tmp=substring(str,tmp3-1,tmp3+1);
- );
- );
- tmp=replace(tmp,"^","**");
- Expr(p4,"n",tmp);
- );
- );
- );
- out;
-);
-
-Changelib(path):=(
- Dirlib=path;
- setdirectory(Dirlib);
- import("ketcindyset.txt");
- setdirectory(Dirwork); // 16.04.23
-);
-
-Changework(path):=( //16.10.21
-//help:Changework(directory);
- regional(tmp);
- if(path=="" % !isexists(path,""),
- println("Directory "+path+" not exist, so set to "+Dirwork);
- ErrFlag=-1;
- ,
- Dirwork=path;
- setdirectory(Dirwork);
- if(!iswindows(), //17.04.11
- if(!iskcexists(Dirwork),
- SCEOUTPUT = openfile(Shellparent);
- closefile(SCEOUTPUT);
- println(setexec(Dirwork,Shellparent));
- );
- );
- );
-);
-
-Changestyle(nameL,style):=(
-//help:Changestyle(["sgAB"],["da"]);
- regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp);
- tmp=Divoptions(style);
- Ltypeorg=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,name,
- Ltype=Ltypeorg;
- GCLIST=select(GCLIST,#_1!=name);
- COM2ndlist=select(COM2ndlist,
- (indexof(#,"("+name)==0)%(indexof(#,"Shade")>0)); // 15.05.23,16.12.13
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Op(n,object):=( // 16.05.25
-//help:Op(4,[1,2,3,4]);
-//help:Op(3,"abcd");
- regional(out);
- if(islist(object),
- out=object_n;
- ,
- if(isstring(object),
- out=substring(object,n-1,n);
- );
- );
- out;
-);
-
-Finddef(G):=(
- regional(def,tmp,tmp1,tmp2,tmp3);
- if(isstring(G),tmp=parse(G),tmp=G);
- def=text(inspect(tmp,"definition"));
- tmp1=indexof(def,"(");
- tmp2=indexof(def,";");
- tmp3=indexof(def,")");
- tmp=[substring(def,0,tmp1-1)];
- if(tmp2>0,
- tmp=append(tmp,substring(def,tmp1,tmp2-1));
- if(indexof(def,")",tmp3+1)==0,
- tmp=append(tmp,substring(def,tmp2,tmp3-1));
- ,
- tmp=append(tmp,substring(def,tmp2,tmp3));
- );
- ,
- tmp=append(tmp,substring(def,tmp1-1,tmp3));
- );
- tmp;
-);
-
-Findgeoinfo(geo):=(
- regional(out,tmp,tmp1,tmp2);
- tmp=Finddef(geo);
- if(ispoint(parse(tmp_2)),
- out=[tmp_2,tmp_3];
- ,
- tmp1=Findgeoinfo(parse(tmp_2));
- if(ispoint(parse(tmp1_1)),
- out=[tmp1_1,tmp1_2];
- ,
- tmp2=Findgeoinfo(parse(tmp1_2));
- out=[tmp2_1,tmp2_2];
- );
- );
- if(ispoint(geo),
- if(!ispoint(parse(tmp_2)),
- tmp1=Finddef(parse(tmp_2));
- ,
- tmp1=tmp;
- );
- out=append(out,tmp1_3);
- ,
- out=append(out,tmp_3);
- );
- out;
-);
-
-Dependgeo(geo):=(
- regional(tmp,tmp1,tmp2,out);
- tmp=Finddef(geo);
- if(!iscircle(geo),
- out=[text(geo)];
- ,
- out=[geo];
- );
- if(length(tmp)<3,
- out=concat(out,[tmp_1,[]]);
- ,
- out=concat(out,[tmp_1]);
- tmp1=[tmp_2,tmp_3];
- tmp=parse(tmp1_2);
- if(islist(tmp) % isreal(tmp),
- tmp1=[tmp1_1];
- );
- out=append(out,tmp1);
- );
- out;
-);
-
-Workprocess():=Workprocess(300);
-Workprocess(nn):=Drawprocess(nn);
-Drawprocess():=Drawprocess(300);
-Drawprocess(nn):=(
-//help:Workprocess();
- regional(All,added,remain,out,flg,tmp,tmp1,tmp2);
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp1=select(tmp,
- substring(text(#),length(text(#))-1,length(text(#)))!="z");
- tmp1=concat(tmp1,alllines());
-// tmp1=concat(tmp1,allcircles());
- All=apply(tmp1,Dependgeo(#));
- added=select(All,length(#_3)==0);
- out=sort(apply(added,#_1));
- remain=remove(All,added);
- flg=0;
- repeat(nn,
- if(flg==0,
- tmp1=select(remain,remove(#_3,out)==[]);
- tmp2=sort(apply(tmp1,#_1));
- out=concat(out,tmp2);
- remain=remove(remain,tmp1);
- if(length(remain)==0,flg=1);
- );
- );
- println("Process of drawing");
- forall(out,
- println(Dependgeo(parse(#)));
- );
- out;
-);
-
-Sortpointlist(list):=(
- regional(plist,ilist,jj,kk,flg,p1,p2,in1,in2,
- tmp,tmp1,tmp2,out);
- out=list;
- plist=list_1;
- ilist=list_2;
- flg=0;
- forall(1..(length(plist)),jj,
- p1=plist_jj;
- in1=ilist_jj;
- forall((jj+1)..(length(plist)),kk,
- if(flg==0,
- p2=plist_kk;
- in2=ilist_kk;
- if(contains(in1,p2),
- tmp1=plist_(1..(jj-1));
- tmp1=append(tmp1,p2);
- tmp1=concat(tmp1,plist_((jj+1)..(kk-1)));
- tmp1=append(tmp1,p1);
- tmp1=concat(tmp1,plist_((kk+1)..(length(plist))));
- tmp2=ilist_(1..(jj-1));
- tmp2=append(tmp2,in2);
- tmp2=concat(tmp2,ilist_((jj+1)..(kk-1)));
- tmp2=append(tmp2,in1);
- tmp2=concat(tmp2,ilist_((kk+1)..(length(plist))));
- out=Sortpointlist([tmp1,tmp2]);
- flg=1;
- );
- );
- );
- );
- out;
-);
-
-Toupper(str):=(
-//help:Toupper("Abc");
- regional(alphabet,out,tmp,tmp1);
- alphabet="abcdefghijklmnopqrstuvwxyz";
- out="";
- forall(1..(length(str)),
- tmp=substring(str,#-1,#);
- tmp1=indexof(alphabet,tmp);
- if(tmp1>0,
- out=out+unicode(text(tmp1+64),base->10);
- ,
- out=out+tmp;
- );
- );
- out;
-);
-
-Textformat(value,dig):=(
-//help:Textformat(2/3,4);
-//help:Textformat([gr1,gr2],5);
- regional(vv,tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+Textformat(#,dig)+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- if(ispoint(value) % isstring(value),
-// vv=Lcrd(value);
-// tmp1=Textformat(vv,dig);
-// tmp1=text(value); // 15.04.07
- if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02
- ,
- tmp1=format(value,dig);
- );
- );
- tmp1;
-);
-
-Sprintf(value,dig):=(
-//help:Sprintf(5.1,4);
- regional(vv,tmp,tmp1);
- if(!islist(value), // 17.03.12from
- if(isstring(value),
- vv=value;
- ,
- vv=Textformat(value,dig);
- ); // 17.03.12from
- if(indexof(vv,".")==0,vv=vv+".");
- vv=vv+"0000000000000000";
- tmp=indexof(vv,".")+dig;
- vv=substring(vv,0,tmp);
- ,
- vv=apply(value,Sprintf(#,dig));
- );
- vv;
-);
-
-Assign(str):=( // old
- regional(out);
- out=str;
- forall(VLIST,
- tmp=substring(#_1,0,length(#_1)-1);
- out=replace(out,tmp,"("+#_2+")");
- );
- out;
-);
-
-Assign(funstr,vrL):=(
- regional(nn,out,tmp,tmp1);
- nn=length(vrL)/2;
- out=funstr;
- forall(1..nn,
- out=Assign(out,vrL_(2*#-1),vrL_(2*#));
- );
- out;
-);
-
-Assign(funstr,varname,rep):=(
-//help:Assign("x^2+a*x","a",1.3);
-//help:Assign("a*x^2+b*x",["a",1,"b",2]);
- regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg);
- if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,6)+")");
- // 15.02.09, 07.06,17.08.24
- tmp=[46]; // 12.20
- tmp=concat(tmp,48..57);
- tmp=concat(tmp,65..90);
- tmp=concat(tmp,97..122);
- Notvar=apply(tmp,unicode(text(#),base->10));
- tmp2="";
- forall(1..100,
- ii=indexof(funstr,varname);
- if(ii>0,
- Flg=0;
- if(ii>1,
- tmp=substring(funstr,ii-2,ii-1);
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,ii);
- funstr=substring(funstr,ii,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- jj=ii-1+length(varname);
- if(jj<length(funstr),
- tmp=substring(funstr,jj,jj+1));
- if(contains(Notvar,tmp),
- tmp2=tmp2+substring(funstr,0,jj);
- funstr=substring(funstr,jj,length(funstr));
- Flg=1;
- );
- );
- if(Flg==0,
- tmp2=tmp2+substring(funstr,0,ii-1)+repstr;
- funstr=substring(funstr,jj,length(funstr));
- );
- );
- );
- funstr=tmp2+funstr;
- funstr;
-);
-
-MeasureDepth(list):=(
- regional(tmp,tmp1,Depth,Flg);
- Flg=0;
- Depth=0;
- if(ispoint(list), // 15.01.22
- Depth=0;
- Flg=1;
- ,
- tmp1=select(1..(length(list)),length(list_#)>0);//17.05.21from
- tmp=list_(tmp1_1);//17.05.21upto
- );
- repeat(4,
- if(Flg==0,
- if(islist(tmp),
- tmp=tmp_1;
- Depth=Depth+1;
- ,
- if(ispoint(tmp),Depth=Depth+1);
- Flg=1;
- );
- );
- );
- Depth;
-);
-
-Flattenlist(pltlist):=(
-//help:Flattenlist([[2,3],[[1,2],[5,6]]]);
- regional(Out,nn,Dt,ii,tmp,flg);
- Out=[];
- if(MeasureDepth(pltlist)==1,
- Out=[pltlist];
- ,
- forall(1..(length(pltlist)),nn,
- Dt=pltlist_nn;
- if(MeasureDepth(Dt)<2,
- Out=append(Out,Dt);
- ,
- forall(1..(length(Dt)),ii,
- tmp=Flattenlist(Dt_ii);
- Out=concat(Out,tmp);
- );
- );
- );
- );
- Out;
-);
-
-Divoptions(options):=(
-//help:Divoptions(options);
- regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1);
- Ltype="dr"; // 2015.01.13
- Noflg=0;
- Inflg=0;
- Outflg=0;
- eqL=[];
- realL=[];
- strL=[];
- opstr="";
- opcindy="";
- forall(options,
- flg=0;
- if(flg==0,
- if(isreal(#) % ispoint(#) % islist(#),
- realL=append(realL,#);
- opstr=opstr+","+text(#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"=")>0,
- eqL=append(eqL,#);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"no")+indexof(#,"No")>0,
- if(indexof(#,"tex")>0,Noflg=1);
- if(indexof(#,"disp")>0,Noflg=2);
- if(indexof(#,"data")>0,Noflg=3);
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"out")+indexof(#,"Out")>0,
- if(indexof(#,"-")==0,
- Outflg=1;
- ,
- Outflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- if(indexof(#,"in")+indexof(#,"In")>0,
- if(indexof(#,"-")==0,
- Inflg=1;
- ,
- Inflg=2;
- );
- flg=1;
- );
- );
- if(flg==0,
- tmp=substring(#,0,2);
- tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr");
- tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da");
- tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id");
- tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do");
- tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp");
- if(tmp1>0,
- Ltype=#;
- flg=1;
- );
- if(flg==0,
- strL=append(strL,#);
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- );
- if(indexof(opcindy,"color->")==0,// 16.10.07from
- opcindy=opcindy+",color->[0,0,0]";
- );
- [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy];
-);
-
-Dotprod(vec1,vec2):=(
-//help:Dotprod(vec1,vec2);
- regional(v1,v2,tmp);
- if(ispoint(vec1),v1=vec1.xy,v1=vec1);
- if(ispoint(vec2),v2=vec2.xy,v2=vec2);
- v1*v2;
-);
-
-Crossprod(a,b):=(
-//help:Crossprod(vec1,vec2);
- regional(tmp1,tmp2,tmp3,Out);
- 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];
- ,
- Out=a_1*b_2-a_2*b_1;
- );
- Out;
-);
-
-Ptstart(Fig):=(
-//help:Ptstart("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21
- tmp_1;
-);
-
-Ptend(Fig):=(
-//help:Ptend("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_(length(tmp)); // 15.04.12
-);
-
-Numptcrv(Fig):=(
-//help:Numptcrv("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23
- length(tmp);
-);
-
-Ptcrv(Num,Fig):=(
-//help:Ptcrv(10,"gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig);
- tmp_Num;
-);
-
-Invert(Fig):=(
-//help:Invert("gr1");
- regional(tmp);
- if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27
- reverse(tmp);
-);
-Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27
-Invert(nm,Fig,options):=(
-//help:Invert("1","gr1");
- regional(name,tmp);
- name="-inv"+nm;
- tmp=Invert(Fig);
- Listplot(name,tmp,options);
-);// upto 16.01.27
-
-Paramoncrv(pP,Gdata):=(
- regional(Tmp,PtL);
-// Eps=10^(-8);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- Tmp=Nearestpt(pP,PtL);
- Tmp_2;
-);
-
-ParamonCurve(pP,nN,plist):=(
-//help:ParamonCurve(A,10,"gr1");
- regional(PtL,Out,Pa,Pb,vV,vW,sS);
- if(isstring(plist),PtL=parse(plist),PtL=plist);
- PtL=apply(PtL,LLcrd(#));//16.10.16
- if(nN==length(PtL),
- Out=nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- vV=Pb-Pa;
- vW=pP-Pa;
- sS=vV*vW/|vV|^2;
- sS=min([max([sS,0]),1]);
- Out=nN+sS;
- );
- Out;
-);
-
-Pointoncrv(tT,PtL):=PointonCurve(tT,PtL);
-PointonCurve(tT,Gdata):=(
-//help:PointonCurve(20.5,"gr1");
- regional(Out,Eps,nN,sS,Pa,Pb,PtL);
- if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
- if(length(PtL)==1,PtL=PtL_1);
- Eps=10^(-4);
- nN=floor(tT+Eps);
- sS=max([tT-nN,0]);
- if(nN==length(PtL),
- Out=PtL_nN;
- ,
- Pa=PtL_nN;
- Pb=PtL_(nN+1);
- Out=(1-sS)*Pa+sS*Pb;
- );
- Out;
-);
-
-Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]);
-Koutenseg(pA,pB,pC,pD,options):=(
- regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2,
- em1,eM1,em2,eM2,rT,Tmp1,Tmp2);
- Eps0=10^(-4);
- pV=pB-pA;
- Sv2=|pV|;
- pP=pC-pA; pQ=pD-pA;
- Eps=10^(-3);
- Eps2=0.2;
- Tmp1=0;
- forall(options,
- if(Tmp1==0,
- Eps=#;
- Tmp1=1;
- ,
- Eps2=#;
- );
- );
- Flg=0;
- if(Sv2<10^(-3),
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- Eps=min([Eps2,Eps/Sv2]);
- p1=pP*pV/Sv2^2;
- p2=[pP_2,-pP_1]*pV/Sv2^2;
- q1=pQ*pV/Sv2^2;
- q2=[pQ_2,-pQ_1]*pV/Sv2^2;
- em1=-Eps; eM1=1+Eps;
- em2=-Eps; eM2=Eps;
- if(max([p1,q1])<em1 % min([p1,q1])>eM1,
- Out=["inf","inf"];
- Flg=1;
- );
- if(max([p2,q2])<em2 % min([p2,q2])>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- );
- if(Flg==0 & p2*q2<0,
- rT=p1-(q1-p1)/(q2-p2)*p2;
- if(rT>em1 & rT<eM1,
- if(rT>-Eps0 & rT<1+Eps0,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,0];
- ,
- Tmp1=pA+rT*pV;
- Tmp2=min([max([rT,0]),1]);
- Out=[Tmp1,Tmp2,1];
- );
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- );
- if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0),
- rT= p1;
- Tmp1=pA+rT*pV;
- Out= [Tmp1, rT, 0];
- Flg=1;
- );
- if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0),
- rT= q1;
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,0];
- Flg=1;
- );
- if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2),
- if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2,
- Out=["inf","inf"];
- Flg=1;
- );
- if(Flg==0,
- rT=min([max([q1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- );
- if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2),
- rT=min([max([p1,0]),1]);
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- Flg=1;
- );
- if(Flg==0,
- if(abs(p2)<abs(q2),
- rT=min([max([p1,0]),1]);
- ,
- rT=min([max([q1,0]),1]);
- );
- Tmp1=pA+rT*pV;
- Out=[Tmp1,rT,1];
- );
- Out;
-);
-
-IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
-IntersectcrvsPp(Gr1,Gr2,options):=(
-//help:IntersectcrvsPp("gr1","pa1");
-//help:IntersectcrvsPp(options=[Eps2(0.1),"Dif=0.05"]);
- regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2,
- Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj,
- pP,pQ,rT,Flg,eqL,realL,opstr,Dif);
- Eps=10^(-4);
- Eps2=0.1;
- Dif=0.05; // 2015.05.31
- Flg=0;
- Tmp1=Divoptions(options); //
- eqL=Tmp1_5;
- realL=Tmp1_6;
- opstr=Tmp1_(length(Tmp1));
- forall(eqL,
- if(substring(#,0,1)=="D",
- Tmp1=indexof(#,"=");
- Dif=parse(substring(#,Tmp1,length(#)));
- );
- );
- Tmp1=length(realL);
- if(Tmp1>0,
- Eps=realL_1;
- if(Tmp1>1,
- Eps2=realL_2;
- );
- );
- Flg=0;
- if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1);
- if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2);
- if(MeasureDepth(Data1)==2,Data1=Data1_1);
- if(MeasureDepth(Data2)==2,Data2=Data2_1);
- Data1=apply(Data1,LLcrd(#));
- Data2=apply(Data2,LLcrd(#));
- if(length(Data1)==length(Data2),
- Tmp1=Reverse(Data2);
- Eps0=10^(-6);
- Tmp2=0;
- forall(1..(length(Data1)),
- Tmp2=Tmp2+abs(Data1_#-Data2_#);
- );
- Tmp3=0;
- forall(1..(length(Data1)),
- Tmp3=Tmp3+abs(Data1_#-Tmp1_#);
- );
- if(Tmp2<Eps0 % Tmp3<Eps0,
- Out=[];
- Flg=1;
- );
- );
- if(Flg==0,
- KL1=[];
- KL2=[];
- forall(1..(length(Data1)-1),Ni,
- pA=Data1_Ni;
- pB=Data1_(Ni+1);
- forall(1..(length(Data2)-1),
- pP=Data2_#; pQ=Data2_(#+1);
- Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]);
- if(Tmp!=["inf","inf"],
- if(Tmp_3==0,
- Tmp1=[Tmp_1,Tmp_2,Ni,#];
- KL1=concat(KL1,[Tmp1]);
- ,
- Tmp2=[Tmp_1,Tmp_2,Ni,#];
- KL2=concat(KL2,[Tmp2]);
- );
- );
- );
- );
- Out=[];
- if(length(KL1)>0,
- Tmp=KL1_1;
- pP=Tmp_1;
- rT=Tmp_2;
- Ni=Tmp_3;
- Nj=Tmp_4;
- Tmp=[pP,Ni+rT,Nj];
- Out=[Tmp];
- );
- forall(2..(length(KL1)),Ni,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..(length(Out)),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL1_Ni;
- pP=Tmp_1;
- rT=Tmp_2;
- Tmp1=Tmp_3;
- Tmp2=Tmp_4;
- Tmp=[pP,Tmp1+rT,Tmp2];
- Out=concat(Out,[Tmp]);
- );
- );
- forall(1..(length(KL2)),Ni,
- Tmp=KL2_Ni; // 15.11.21 Usui
- pP=Tmp_1;
- Tmp2=0;
- Flg=0;
- forall(1..(length(Out)),Nj,
- if(Flg==0,
- Tmp=Out_Nj;
- if(|pP-Tmp_1|<Eps,
- Tmp2=1;
- Flg=1;
- );
- );
- );
- if(Tmp2==0,
- Tmp=KL2_Ni;
- rT=Tmp_2;
- rT=min([max([rT,0]),1]); // 15.11.21 Usui
- Tmp=[pP,Tmp_3+rT,Tmp_4];
- Out=concat(Out,[Tmp]);
- );
- );
- );
- Tmp1=Out; // 15.04.06 from
- Out=[];
- forall(Tmp1,Tmp2,
- Tmp3=select(1..(length(Out)),//16.11.27,
- |Out_#_1-Tmp2_1|<Dif & |Out_#_2-Tmp2_2|<=1& |Out_#_3-Tmp2_3|<=1);
- //17.04.13
- if(length(Tmp3)==0,
- Out=append(Out,Tmp2);
- ,
- forall(Tmp3, //16.11.27
- Out_#_1=(Out_#_1+Tmp2_1)/2;//17.04.14
- );
- );
- ); // 15.04.06 upto
- Out;
-);
-
-Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]);
-//help:Intersectcrvs("gr1","pa1");
-Intersectcrvs(Gr1,Gr2,options):=(
- regional(tmp,tmp1,tmp2);
- tmp1=IntersectcrvsPp(Gr1,Gr2,options);
- apply(tmp1,#_1);
-);
-
-NearestptcrvPhy(point,PL):=(
- regional(tmp,pP,plist);
- pP=Pcrd(point);
- if(isstring(PL),plist=parse(PL),plist=PL);
- if(MeasureDepth(plist)==2,plist=plist_1);
- plist=apply(plist,#); // 14.12.18
- tmp=Nearestpt(pP,plist);
- tmp=tmp_1;
- [tmp_1/SCALEX,tmp_2/SCALEY];
-);
-
-Nearestptcrv(point,plist):=(
-//help:Nearestptcrv(A,"gr1");
- regional(tmp);
- tmp=Nearestpt(point,plist);
- tmp_1;
-);
-
-Nearestpt(point,PL2):=(
- regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni,
- a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg);
-//help:Nearestpt("gr1","gr2");
- if(isstring(point),PL1=parse(point),PL1=point);
- if(MeasureDepth(PL1)==2,PL1=PL1_1);
- if(!islist(PL1_1),
- PL1=[PL1];
- Flg=0;
- ,
- Flg=1;
- );
- if(isstring(PL2),PL=parse(PL2),PL=PL2);
- if(MeasureDepth(PL)==2,PL=PL_1);
- Eps=10^(-6);
- Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|];
- forall(1..(length(PL1)),Nn, // 16.05.04
- pA=PL1_Nn;
- Pm=PL_1;
- Im=1;
- Sm=|Pm-pA|;
- forall(1..(length(PL)-1),Ni,
- a1=PL_Ni_1; a2=PL_Ni_2;
- b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2;
- v1=b1-a1; v2=b2-a2;
- x1=pA_1; x2=pA_2;
- Tmp=v2^2+v1^2;
- if(abs(Tmp)>Eps,
- rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp;
- if(rT<-Eps,
- pP=[a1,a2];
- ,
- if(rT>1+Eps,
- pP=[b1,b2];
- ,
- pP=[a1+rT*v1,a2+rT*v2];
- );
- );
- sS=|pP-pA|;
- if(sS<Sm-Eps,
- Tmp=ParamonCurve(pP,Ni,PL);
- Pm=pP; Lm=Tmp; Sm=sS;
- );
- );
- if(Sm<Ans_5, // 16.05.03from
- Ans=[pA,Nn,Pm,Lm,Sm];
- );
- ); // 16.05.03upto
- );
- if(Flg==0,
- Ans=Ans_(3..5);
- );
- Ans;
-);
-
-Derivative(fun,var,value):=(
-//help:Derivative("x^3","x",2);
- regional(str,tmp);
- str="d(";
- str=str+replace(fun,var,"#")+",";
- str=str+value+")";
- tmp=Pcrd([1,parse(str)]); // 14.11.08
- tmp_2;
-);
-
-Integrate(pltdata,range):=Integrate(pltdata,range,[]);
-Intergrate(Arg1,Arg2,Arg3):=(
- regional(pltdata,range,options,fnstr,vartr);
- if(islist(Arg2),
- pltdata=Arg1;
- range=Arg2;
- options=Arg3;
- Integrate(pltdata,range,options);
- ,
- fnstr=Arg1;
- vastr=Arg2;
- range=Arg3;
- Integrate(fnstr,vastr,range,[]);
- );
-);
-
-Integrate(pltdata,range,options):=(
-//help:Integrate("gr1",[1,3]);
-//help:Integrate(options=["Rule=o"]);
- regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2);
- tmp=Divoptions(options);
- eqL=tmp_5;
- Rule="o";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Rule=substring(#,tmp,tmp+1);
- );
- );
- if(Rule=="o",
- Sm= IntegrateO(pltdata,range);
- ,
- if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata);
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- list=apply(list,LLcrd(#)); // 15.09.14
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- ptP=list_#; // 15.09.14
- ptQ=list_(#+1);
- Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2;
- );
- Sm;
- );
-);
-
-Integrate(fnstr,vastr,range,options):=(
-//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]);
- regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2);
- Num=100;
- Way="t";
- forall(options,
- if(indexof(#,"=")>0,
- if(indexof(#,"N=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(indexof(#,"Num=")>0,
- Num=parse(substring(#,indexof(#,"="),length(#)));
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp=indexof(#,"=");
- Way=substring(#,tmp,tmp+1);
- );
- );
- );
- Sm=0;
- if(Way=="t",
- forall(1..Num,
- Lx=range_1+(range_2-range_1)*(#-1)/Num;
- Rx=range_1+(range_2-range_1)*#/Num;
- va1=parse(replace(fnstr,vastr,textformat(Lx,5)));
- va2=parse(replace(fnstr,vastr,textformat(Rx,5)));
- Sm=Sm+(va1+va2)*(Rx-Lx)/2;
- );
- ,
- sx=range_1;
- ex=range_2;
- dx=(ex-sx)/Num;
- xn=apply(0..Num,sx+#*dx);
- yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5))));
- dx=dx/2;
- repeat(Num,s,
- x0=xn_s;
- x1=(xn_s+xn_(s+1))/2;
- x2=xn_(s+1);
- y0=yn_s;
- y1=parse(replace(fnstr,vastr,textformat(x1,5)));
- y2=yn_(s+1);
- Sm=Sm+dx*(y0+4*y1+y2)/3;
- );
- );
- Sm;
-);
-
-IntegrateO(p0org,p1org,p2org,p3org):=(
- regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02,
- p11,p12,p21,p22,p31,p32, tmp);
- if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10
- if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16
- if(ispoint(p2org),p2=p2org.xy,p2=p2org);
- if(ispoint(p3org),p3=p3org.xy,p3=p3org);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp=tmp/20;
-);
-IntegrateO(pltdata,rangeorg):=(
-//help:IntegrateO("gr1",[0,2]);
- regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg,
- Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- if(isstring(pltdata),
- pdata=parse(pltdata);
- ,
- pdata=pltdata;
- );
- if(MeasureDepth(pdata)==2,pdata=pdata_1);
- range=rangeorg;
- pmflg=1;
- if(range_2<range_1,
- range=reverse(range);
- pmflg=-1;
- );
- va1=MeetCurve(pdata,range_1,0);
- va2=MeetCurve(pdata,range_2,0);
- list=select(pdata,(#_1>range_1 & #_1<range_2));
- if(length(list)>0, // 16.09.25
- if(list_1_1>list_(length(list))_1, //16.11.03
- list=reverse(list);
-// pmflg=pmflg*(-1);
- );
- );
- list=apply(list,LLcrd(#));
- list=concat([va1],list);
- list=concat(list,[va2]);
- Sm=0;
- forall(1..(length(list)-1),
- p1=list_#;
- p2=list_(#+1);
- if(#==1 % #==length(list)-1,
- tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2;
- Sm=Sm+tmp1;
- ,
- p0=list_(#-1);
- p3=list_(#+2);
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0);
- pR=p2+cc*(p1-p3);
- p01=p1_1; p02=p1_2;
- p31=p2_1; p32=p2_2;
- p11=pQ_1; p12=pQ_2;
- p21=pR_1; p22=pR_2;
- tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11-
- 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11-
- 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01-
- 6*p32*p21+10*p32*p31;
- tmp1=tmp1/20;
- Sm=Sm+tmp1;
- );
- );
- if(pmflg==-1,
- Sm=-Sm;
- );
- Sm;
-);
-
-Findarea(pdstr):=(
-//help:Findarea("sgABCA");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=(p1_2+p2_2)*(p2_1-p1_1)/2;
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findarea(pdstr):=( // 15.11.27
-//help:Findarea("cr1");
- regional(pd,p0,p1,p2,p3,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=pd_#;
- p2=pd_(#+1);
- if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1));
- if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2));
- tmp=IntegrateO(p0,p1,p2,p3);
- s=s+tmp;
- );
- if(s<0,s=-s);
- s;
-);
-
-Findlength(pdstr):=(
-//help:Findlength("gr1");
- regional(pd,p1,p2,s,tmp);
- if(isstring(pdstr),pd=parse(pdstr),pd=pdstr);
- s=0;
- forall(1..(length(pd)-1),
- p1=Lcrd(pd_#);
- p2=Lcrd(pd_(#+1));
- tmp=|p2-p1|;
- s=s+tmp;
- );
- s;
-);
-
-Inversefun(fnstr,rngstr,value):=(
- regional(tmp,varstr,range,x1,x2,x3,va1,va2);
- tmp=indexof(rngstr,"=");
- varstr=substring(rngstr,0,tmp-1);
- range=parse(substring(rngstr,tmp,length(rngstr)));
- x1=range_1; x2=range_2;
- repeat(15,
- x3=(x1+x2)/2;
- va1=parse(replace(fnstr,varstr,textformat(x1,5)));
- va2=parse(replace(fnstr,varstr,textformat(x3,5)));
- if((va1>value & va2>value) % (va1<value & va2<value),
- x1=x3;
- ,
- x2=x3;
- );
- );
- va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value;
- va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value;
- if(x1==range_1 % x2==range_2,
- println("not found in ("+textformat(range_1,5)
- +","+textformat(range_2,5)+")");
- );
- if(abs(va1)<=abs(va2),x1,x2);
-);
-
-Com0th(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- COM0thlist=append(COM0thlist,str);
-);
-
-Com1st(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- GLIST=append(GLIST,str); // 15.05.27
-// COM1stlist=append(COM1stlist,str);
-);
-
-Com2nd(String):=(
-// help:Com2nd("");
- regional(str);
- str=replace(String,LFmark,"");
- COM2ndlist=append(COM2ndlist,str);
-);
-
-Com2ndpre(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- COM2ndlist=prepend(str,COM2ndlist);
-);
-
-Texcom(String):=(
-//help:Texcom("\color[cmyk]{0,0,0,0.5}");
- regional(str);
- str="Texcom("+Dq+String+Dq+")";
- Com2nd(str);
-);
-
-Ketcindylogo():=(
-//help:Ketcindylogo();
- Com2nd("Texcom("+Dq+"\def\ketcindy{{K\kern-.20em
- \lower.5ex\hbox{E}\kern-.125em{TCindy}}}"+Dq+")");
-);
-
-Drwline():=Drwline(textformat(GrL,5));
-Drwline(gstr):=(
- Com2nd("Drwline("+gstr+")");
-);
-
-Dashline(gstr):=(
- Com2nd("Dashline("+gstr+")");
-);
-
-Invdashline(gstr):=(
- Com2nd("Invdashline("+gstr+")");
-);
-
-Dottedline(gstr):=(
- Com2nd("Dottedline("+gstr+")");
-);
-
-SetEnglish():=(
-//help:SetEnglish();
- Com0th("setlanguage('en')");
-);
-
-Drawlinetype(name,type):=(
-//help:Drawlinetype("gr1","da,1");
- regional(Dop,tmp,tmp1,tmp2);
- Dop="";
- tmp1=indexof(type,",");
- if(tmp1>0,
- Dop=","+substring(type,tmp1,length(type));
- );
- tmp1=Toupper(substring(type,0,3));
- if(tmp1=="DR",
- Drwline(name+Dop);
- );
- if(tmp1=="DA",
- Dashline(name+Dop);
- );
- if(tmp1=="ID",
- Invdashline(name+Dop);
- );
- if(tmp1=="DO",
- Dottedline(name+Dop);
- );
-);
-
-Setunitlen(string):=(
-//help:Setunitlen("5mm");
- ULEN=string;
- GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")");
-);
-
-Setmarklen(ratio):=(
-//help:Setmarklen(0.2);
- MARKLEN=ratio*0.2;//16.11.01
- Com2nd("Setmarklen("+textformat(ratio,5)+")");
-);
-
-Setorigin(point):=(
-//help:Setorigin([1,2]);
- Com2nd("Setorigin("+textformat(point,5)+")");
-);
-
-Fontsize(sizestr):=(
-//help:Fontsize("s");
- Com2nd("Fontsize('"+sizestr+"')");
-);
-
-Setpen(width):=(
-//help:Setpen(2);
- PenThick=PenThickInit*width; // 16.04.09
- Com2nd("Setpen("+text(width)+")");
-);
-
-Lcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=[pt.x/SCALEX,pt.y/SCALEY];
- ,
- tmp=pt;
- );
- tmp;
-);
-
-Pcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=re(pt.xy); // 15.07.24
- ,
- tmp=[pt_1*SCALEX,pt_2*SCALEY];
- );
- tmp;
-);
-
-LLcrd(pt):=(
- regional(tmp);
- if(ispoint(pt),
- tmp=pt.xy
- ,
- tmp=pt;
- );
- tmp=[tmp_1/SCALEX,tmp_2/SCALEY];
- tmp;
-);
-
-Doscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Unscaling(pltdata):=(
- regional(Level,Out,gL,gr,tmp);
- if(ispoint(pltdata) % isreal(pltdata_1),
- gL=[[pltdata]];
- Level=0;
- ,
- if(ispoint(pltdata_1) % isreal(pltdata_1_1),
- gL=[pltdata];
- Level=1;
- ,
- gL=pltdata;
- Level=2;
- );
- );
- Out=[];
- forall(gL,gr,
- tmp=apply(gr,Lcrd(#));
- tmp=apply(tmp,LLcrd(#));
- Out=concat(Out,[tmp]);
- );
- if(Level==0,
- Out=Out_1_1;
- );
- if(Level==1,
- Out=Out_1;
- );
- Out;
-);
-
-Setpt(n):=Ptsize(n);
-//help:Setpt(5);
-Ptsize(n):=(
- println("Setpt("+text(n)+")");
- TenSize=TenSizeInit*n;
- Com2nd("Setpt("+text(n)+")"); // 14.01.19
-);
-
-Definecolor(name,data):=(
-//help:Definecolor("mycolor",[1,1,1,0]);
- regional(type,tmp);
- if(length(data)>3,type="cmyk",type="rgb");
- tmp=text(data);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}";
- Texcom(tmp);
-);
-
-Setcolor(Par):=(
-//help:Setcolor([1,0,0,1]);
-//help:Setcolor([1,1,0]);
- if(islist(Par),
- if(length(Par)==3,
- Setcolorrgb(Par); // 2015.04.28
-// KCOLOR=Par;
- );
- if(length(Par)==4,
- Setcolor(Par,[]);
- );
- ,
- Setcolor(Par,[]);
- );
-);
-
-Setcolor(colorname,options):=(
-//help:Setcolor("greenyellow",0.3);
- regional(tmp);
- if(isstring(colorname),
- tmp="Setcolor("+Dq+colorname+Dq;
- if(length(options)>0,
- tmp=tmp+","+text(options_1);
- );
- Com2nd(tmp+")");
- );
- if(islist(colorname),
- tmp=text(colorname);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
- );
-);
-
-Setcolorrgb(colorlist):=(
-// help:Setcolorrgb([0.5,0.3,0.4]);
- regional(tmp);
- tmp=text(colorlist);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")";
- Com2nd(tmp);
-);
-
-ColorRgb2Cmyk(clr):=(
-// help:ColorRgb([0.2,0.5,0.1]);
- regional(clrnew,tmp,black);
- tmp=apply(clr,1-#);
- black=min(tmp);
- tmp=apply(clr,(1-#-black)/(1-black));
- clrnew=append(tmp,black);
- clrnew;
-);
-
-ColorCmyk2Rgb(clr):=(
-// help:ColorRgb([0.2,0.5,0.1,0.2]);
- regional(clrnew,tmp,black);
- black=clr_4;
- tmp=apply(clr,1-min(1,#*(1-black)+black));
- clrnew=tmp_(1..3);
- clrnew;
-);
-
-Colorrgbhsv(rgb):=(
- regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB);
- varR = rgb_1;
- varG = rgb_2;
- varB = rgb_3;
- varMin = min( [varR, varG, varB] );
- varMax = max( [varR, varG, varB] );
- delMax = varMax - varMin ;
- vv = varMax;
- if ( delMax == 0 ,
- hh = 0 ;
- ss = 0 ;
- ,
- ss = delMax / varMax;
- delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax;
- delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax;
- if( varR == varMax ,
- hh = delB - delG;
- ,
- if ( varG == varMax,
- hh = ( 1 / 3 ) + delR - delB;
- ,
- if ( varB == varMax ,
- hh = ( 2 / 3 ) + delG - delR;
- );
- );
- );
- if ( hh < 0 ,hh = hh+1);
- if ( hh > 1 ,hh = hh-1);
- );
- [hh*360,ss,vv];
-);
-
-Colorhsvrgb(sL):=(
- regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL);
- tmp=[sL_1/60,sL_2,sL_3];
- hi=mod(floor(tmp_1),6);
- ff=tmp_1-floor(tmp_1);
- tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)];
- tmp2=append(tmp2,tmp_3);
- if(hi==0,dL=tmp2_[4,3,1]);
- if(hi==1,dL=tmp2_[2,4,1]);
- if(hi==2,dL=tmp2_[1,4,3]);
- if(hi==3,dL=tmp2_[1,2,4]);
- if(hi==4,dL=tmp2_[3,1,4]);
- if(hi==5,dL=tmp2_[4,1,2]);
- dL;
-);
-
-Colorrgbhsl(rgb):=(
- regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll);
- rr = rgb_1 ;
- gg = rgb_2 ;
- bb = rgb_3 ;
- mn = min([rr, gg, bb]);
- mx = max([rr, gg, bb]);
- delta = mx - mn;
- ll = (mx + mn) / 2;
- if (delta == 0,
- hh=0;
- ss=0;
- ,
- if (ll < 0.5,
- ss = delta/ (mx + mn);
- ,
- ss = delta / (2 - mx - mn);
- );
- deltaR = (((mx - rr) / 6) + (delta / 2)) / delta;
- deltaG = (((mx - gg) / 6) + (delta / 2)) / delta;
- deltaB = (((mx - bb) / 6) + (delta / 2)) / delta;
- if (rr == mx,
- hh = deltaB - deltaG;
- ,
- if (gg == mx,
- hh = (1 / 3) + deltaR - deltaB;
- ,
- if (bb == mx,
- hh = (2 / 3) + deltaG - deltaR;
- );
- );
- );
- if ( hh < 0, hh = hh+1);
- if ( hh > 1, hh = hh-1);
- );
- [hh*360,ss,ll];
-);
-
-Colorhslrgb(hsl):=(
- regional(hh,ss,ll,rr,gg,bb,var1,var2);
- hh=hsl_1/360;
- ss=hsl_2;
- ll=hsl_3;
- if ( ss == 0.0,
- rr = ll ;
- gg = ll ;
- bb = ll ;
- ,
- if ( ll < 0.5 ,
- var2 = ll * ( 1.0 + ss );
- ,
- var2 = ( ll + ss ) - ( ss * ll );
- );
- var1 = 2.0 * ll - var2;
- rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) );
- gg = hue2rgb( var1, var2, hh );
- bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) );
- );
- [rr,gg,bb];
-);
-
-hue2rgb(vv1,vv2,vh):=(
- regional(out);
- if ( vh < 0.0 ,vh =vh+1);
- if ( vh > 1.0 ,vh =vh-1);
- if ( 6.0*vh < 1.0 ,
- out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ;
- ,
- if( 2.0*vh < 1.0 ,
- out = vv2;
- ,
- if ( 3.0*vh < 2.0 ,
- out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ;
- ,
- out= vv1 ;
- );
- );
- );
- out;
-);
-
-Colorrgbhwb(sL):=(
- regional(dl1,dl2,dl3);
- dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1;
- dl2 = min(sL);
- dl3 = 1 - max(sL);
- dL= [dl1, dl2 , dl3 ];
-);
-
-Colorhwbrgb(sLorg):=(
- regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg);
- sL=sLorg;
- sL=[sL_1/360,sL_2,sL_3];
- ratio = sL_2 + sL_3;
- // sL_2 + sL_3 cant be > 1
- if (ratio > 1.,
- sL_2 =sL_2 / ratio;
- sL_3 = sL_3 / ratio;
- );
- ii = floor(6 * sL_1);
- vv = 1 - sL_3;
- ff = 6 * sL_1 - ii;
- if(mod(ii,2)==1,ff = 1 - ff);
- nn = sL_2 + ff * (vv - sL_2); // linear interpolation
- tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn],
- [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]];
- flg=0;
- forall(0..6,
- if(flg==0 & ii == # ,
- dL=tmp_(#+1);
- flg=1;
- );
- );
- dL;
-);
-
-Colorhslhsv(sL):=(
- regional(dl1,dl2,dl3,dL);
- dl1=sL_1;
- if(sL_3 == 0,
- // no need to do calc on black
- // also avoids divide by 0 error
- dL= [0, 0, 0];
- ,
- sL_3 = sL_3 * 2;
- if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3));
- dl3 = (sL_3 + sL_2) / 2;
- dl2 = (2 * sL_2) / (sL_3 + sL_2);
- dL = [dl1, dl2, dl3];
- );
- dL;
-);
-
-Colorcode(src,dest,sL):=(
-//help:Colorcode("rgb","cmyk",[1,0.5,0]);
- regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg);
- regional(dl1,dl2,dl3);
- if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL));
- if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL));
- if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL));
- if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL));
- if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL));
- if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL));
- if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL));
- if(src=="hsv" & dest=="hsl",
- dl1 = sL_1;
- dl3 = (2 - sL_2) * sL_3;
- dl2 = sL_2 * sL_3;
- if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3));
- dl3 =d l3/ 2;
- dL = [dl1, dl2 , dl3 ];
- );
-
- if(src=="rgb" & dest=="cmyk",
- tmp=apply(sL,1-#);
- black=min(tmp);
- tmp=apply(sL,(1-#-black)/(1-black));
- dL=append(tmp,black);
- );
- if(src=="cmyk" & dest=="rgb",
- black=sL_4;
- tmp=apply(sL,1-min(1,#*(1-black)+black));
- dL=tmp_(1..3);
- );
- if(src=="hsv" & dest=="cmyk",
- tmp=Colorcode("hsv","rgb",sL);
- dL=Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsv",
- tmp=Colorcode("cmyk","rgb",sL);
- dL=Colorcode("rgb","hsv",tmp);
- );
-
- if(src=="hsv" & dest=="hwb",
- tmp = Colorcode("hsv","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsv",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsv",tmp);
- );
- if(src=="hsl" & dest=="hwb",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hwb" & dest=="hsl",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="hsl" & dest=="cmyk",
- tmp = Colorcode("hsl","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="hwb" & dest=="cmyk",
- tmp = Colorcode("hwb","rgb",sL);
- dL = Colorcode("rgb","cmyk",tmp);
- );
- if(src=="cmyk" & dest=="hsl",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hsl",tmp);
- );
- if(src=="cmyk" & dest=="hwb",
- tmp = Colorcode("cmyk","rgb",sL);
- dL = Colorcode("rgb","hwb",tmp);
- );
- if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL));
- if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL));
-
- if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL));
- if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL));
-
- if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL));
- if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL));
-
- if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL));
- if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL));
-
- dL;
-);
-
-Addcolor(cmdorg,list):=(
-//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]);
- regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4);
- cmd=replace(cmdorg,"'",Dq);
- if(length(list)==3,
- rgb=list;
- cmyk=Colorcode("rgb","cmyk",list);
- ,
- cmyk=list;
- rgb=Colorcode("cmyk","rgb",list);
- );
- tmp1="color->"+text(rgb);
- tmp2="Setcolor("+text(cmyk)+");";
- tmp3=substring(cmd,0,length(cmd)-2);
- tmp=substring(tmp3,length(tmp3)-1,length(tmp3));
- if(tmp!="[",
- tmp3=tmp3+",";
- );
- tmp3=tmp3+Dq+tmp1+Dq+"])";
- parse(tmp2);
- parse(tmp3);
- Setcolor("black");
-);
-
-Colorinfile(filename,clrf,clrt):=(
- regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body);
- if(length(clrf_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrf,text(#));
- cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- if(length(clrt_1)==3,
- head="[rgb]{";
- ,
- head="[cmyk]{";
- );
- tmp=apply(clrt,text(#));
- chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}");
- tmp1=load(filename);
- tmp=tokenize(tmp1,"{\unitlength");
- head=tokenize(tmp_1,"%%%");
- head=head_(2..(length(head)));
- head=apply(head,"%%%"+#);
- tmp2=tmp_2;
- forall(1..5,
- tmp2=replace(tmp2,cstrL_#,chstrL_#);
- );
- body=tokenize(tmp2,"%");
- body_1="{\unitlength"+body_1;
- body=apply(body,#+"%");
- body=body_(1..(length(body)-1));
- tmp=replace(filename,".tex","new.tex");
- SCEOUT=openfile(tmp);
- forall(head,
- println(SCEOUT,#);
- );
- forall(1..(length(body)),
- tmp=body_#;
- if(#<length(body),
- println(SCEOUT,tmp);
- ,
- print(SCEOUT,tmp)
- );
- );
- closefile(SCEOUT);
-);
-
-GetLinestyle(str,name):=(
- regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg);
- Ltype=-1;
- Dop="";
- tmp1=indexof(str,",");
- if(tmp1>0,
- Dop=","+substring(str,tmp1,length(str));
- );
- noflg=parse(substring(str,0,1));
- if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29
- tmp1=substring(str,1,3);
- if(tmp1=="dr" % tmp1=="Dr",
- Ltype=0;
- if(noflg==0 & subflg==0, // 16.02.29
- Drwline(name+Dop);
- );
- );
- if(tmp1=="da" % tmp1=="Da",
- Ltype=1;
- if(noflg==0 & subflg==0, // 16.02.29
- Dashline(name+Dop);
- );
- );
- if(tmp1=="id" % tmp1=="Id",
- Ltype=2; // 15.11.09
- if(noflg==0 & subflg==0, // 16.02.29
- Invdashline(name+Dop);
- );
- );
- if(tmp1=="do" % tmp1=="Do",
- Ltype=3;
- if(noflg==0 & subflg==0, // 16.02.29
- Dottedline(name+Dop);
- );
- );
- if(tmp1=="dp" % tmp1=="Dp",
- Ltype=0;
- tmp1=parse(name);
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#_1,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- if(noflg==0,
- Drwpt(tmp2+Dop);
- );
- );
- if(tmp1=="no" % tmp1=="No",
- Ltype=10;
- );
- Ltype;
-);
-
-Chunderscore(str):=(
- regional(flg,tmp,tmp1,tmp2,tmp3);
- if(indexof(str,"]")>0,
- tmp1=replace(str,"]",",]");
- ,
- tmp1=str+",";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..(length(tmp1)),
- if(flg==0,
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=substring(tmp1,tmp3,length(tmp1));
- tmp=indexof(tmp,",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- if(indexof(str,"]")>0,
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,"[","list(");
- ,
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
- tmp1;
-);
-
-//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]);
-AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]);
-// if(isstring(Arg2),
-// AddGraph(Arg1,Arg2,[]);
-// ,
-// if(MeasureDepth(Arg2)>0,
-// Addgraph(Arg1,Arg2,[]);
-// ,
-// Addgraph("-"+Arg1,Arg1,Arg2);
-// );
-// );
-//);
-AddGraph(nm,pltdata,options):=(
-//help:AddGraph("1","imp1"); // 16.04.04
-//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]);
- regional(name,Ltype,Noflg,opcindy,pdata,fname,flg,
- tmp,tmp1,tmp2,tmp3);
- if(substring(nm,0,1)=="-",
- name=substring(nm,1,length(nm));
- ,
- name="ad"+nm;
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_9;
- if(isstring(pltdata),
- pdata=parse(pltdata)
- ,
- if(!islist(pltdata),pdata=[pltdata],pdata=pltdata);
- pdata=apply(pdata,parse(#));
- ); // 15.01.22
- pdata=Flattenlist(pdata);
- tmp1=[];
- forall(pdata,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- pdata=tmp1;
- if(Noflg<3,
- println("generate addgraph "+name);
- tmp=name+"="+textformat(pdata,5);
- parse(tmp);
- if(isstring(pltdata), // 16.04.04 from
- if(indexof(pltdata,"]")>0,
- tmp1="list(Listplot("+substring(pltdata,1,length(pltdata));
- tmp1=replace(tmp1,"]",",]");
- ,
- tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]";
- );
- flg=0;
- tmp2=[];
- tmp3=0;
- forall(1..(length(tmp1)),
- if(flg==0,
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_");
- if(tmp==0,
- flg=1;
- ,
- tmp3=tmp3+tmp;
- tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1;
- tmp=substring(tmp1,tmp3,tmp3+tmp);
- tmp2=append(tmp2,tmp);
- );
- );
- );
- forall(tmp2,
- tmp1=replace(tmp1,"_"+#,"("+#+")");
- );
- tmp1=replace(tmp1,",]",")");
- tmp1=replace(tmp1,",","),Listplot(");
- if(indexof(pltdata,"[")>0,
- tmp1=tmp1+")";
- );
- GLIST=append(GLIST,name+"="+tmp1);
- ,
- if(MeasureDepth(pdata)==1,
- tmp1=name+"=Listplot("+textformat(pdata,5)+")";
- ,
- tmp1="list(";
- forall(1..(length(pdata)),
- tmp=name+"p"+textformat(#,5)+"=";
- if(length(pdata_#)>1, // 15.01.22
- tmp=tmp+"Listplot("+textformat(pdata_#,5)+")";
- ,
- tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")";
- );
- GLIST=append(GLIST,tmp);
- tmp1=tmp1+name+"p"+textformat(#,5)+",";
- );
- tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")";
- );
- GLIST=append(GLIST,tmp1);
- );
- ); // 16.04.04 upto
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]);
-Joincrvs(nm,plotstrL,options):=(
-//help:Joincrvs("1",["sgAB","sgDCB"]);
- regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg);
- name="join"+nm;
- plotlist=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- tmp=apply(tmp,LLcrd(#));
- ,
- tmp=str;
- );
- plotlist=append(plotlist,tmp);
- );
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Eps=tmp1_1);
- QdL=[];
- forall(plotlist,Qd,
- if(ispoint(Qd_1) % !islist(Qd_1_1),
- QdL=concat(QdL,[Qd]);
- ,
- forall(Qd,
- QdL=concat(QdL,[#]);
- );
- );
- );
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..(length(QdL)),Ni,
- Qd=QdL_Ni;
- if(Numptcrv(Qd)>1,
- pP=Ptend(PtL);
- pS=Ptstart(PtL);
- pQ=Ptstart(Qd);
- pR=Ptend(Qd);
- rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]);
- if(rMN==|pP-pR|,
- Qd=reverse(Qd);
- ,
- if(rMN==|pS-pQ|,
- PtL=reverse(PtL);
- ,
- if(rMN==|pS-pR|,
- PtL=reverse(PtL);
- Qd=reverse(Qd);
- );
- );
- );
- );
- if(rMN>Eps,
- PtL=concat(PtL,Qd);
- ,
- PtL=concat(PtL,Qd_(2..(length(Qd))));
- );
- );
- );
- if(Noflg<3,
- println("generate joincurve "+name);
- tmp1=apply(PtL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1="";
- forall(plotstrL,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PtL;
-);
-
-Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]);
-Partcrv(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv("1",A,B,"sgABC");
-//help:Partcrv("1",1.3,2.5,"sgABC");
- regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP,
- opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg);
- name="part"+nm;
- if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr);
- DepthFlg=0;
- if(MeasureDepth(PkL)==2,
- PkL=PkL_1;
- DepthFlg=1;
- );
- PkL=apply(PkL,LLcrd(#));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Eps=10^(-3);
- Flg=0;
- if(isreal(pA),
- if(pA>pB+Eps,
- Npt=Numptcrv(PkL);
- Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]);
- Out2=Partcrv("",1,pB,PkLstr,["nodata"]);
- tmp=Ptstart(PkL)-Ptend(PkL);
- if(|tmp|<Eps,
- Ans=Joincrvs("",[Out1,Out2],["nodata"]);
- ,
- Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))];
- );
- Flg=1;
- );
- if(Flg==0,
- nS=ceil(pA);
- nE=floor(pB);
- PPL=[];
- if(pA<nS-Eps,
- pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS;
- PPL=[pP];
- );
- PPL=concat(PPL,PkL_(nS..nE));
- if(pB>nE+Eps,
- pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1);
- PPL=concat(PPL,[pP]);
- );
- Ans=PPL;
- Flg=1;
- );
- );
- if(Flg==0,
- tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL);
- Ta=tmp_2;
- tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12
- Tb=tmp_2;
- Ans=Partcrv("",Ta,Tb,PkL,["nodata"] );
- Ans=apply(Ans,Pcrd(#));
- );
- if(Noflg<3,
- println("generate partcrv "+name);
- tmp1=apply(Ans,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST, // 16.04.03
- if(DepthFlg==0,
- tmp=PkLstr;
- ,
- tmp=PkLstr+"(1)";
- );
- tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5)
- +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03
- GLIST=append(GLIST,tmp1);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Ans;
-);
-
-Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]);
-Opcrvs(num,Fig,options):=(
- //help:Subgraph(2,"grfs");
- regional(name,tmp,tmp1);
- name="-"+Fig+text(num);
- tmp=Fig+"_"+text(num);
- tmp1=parse(tmp);
- Listplot(name,tmp1,options);
-);
-
-
-Pointdata(nm,list):=Pointdata(nm,list,[]);
-Pointdata(nm,list,options):=(
-//help:Pointdata("1",[2,4],["Size=5"]);
-//help:Pointdata("2",[[2,3],[4,1]]);
- regional(name,nameL,ptlist,opstr,opcindy,
- eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="pt"+nm;
- nameL=name+"L";
- println("generate pointdata "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- size="";
- eqL=tmp_5;
- if(length(eqL)>0,
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="s" % tmp=="S",
- tmp=indexof(#,"=");
- size=substring(#,tmp,length(#));
- );
- );
- );
- tmp=MeasureDepth(list);
- if(tmp>0, // 2015.02.21
- if(tmp==1,ptlist=list,ptlist=list_1);
- tmp=apply(ptlist,[textformat(Pcrd(#),5)]);
- tmp1=text(tmp);
- tmp2=substring(tmp1,1,length(tmp1)-1);
- tmp3=tmp1;
- ,
- ptlist=list;
- tmp1=textformat(Pcrd(ptlist),5);
- tmp2=tmp1;
- tmp3="["+tmp1+"]";
- );
- tmp=name+"="+tmp1;
- parse(tmp);
- tmp=nameL+"="+tmp3;
- parse(tmp);
- if(Noflg<3,
- GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
- );
- if(Noflg<2,
- tmp=[nameL,0,opcindy];
- GCLIST=append(GCLIST,tmp);
- if(Noflg==0,
- if(length(size)>0,
- Com2nd("Setpt("+size+")");
- );
- thick=PenThick/PenThickInit; // 16.04.09 from
- if(length(size)>0,tmp1=parse(size),tmp1=1);
- tmp1=max(tmp1,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- Com2nd("Drwpt(list("+name+")"+opstr+")");
- Setpen(thick); // 16.04.09
- if(length(size)>0,
- Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")");
- );
- );
- );
- ptlist;
-);
-
-Listplot(nm,list,options):=(
-//help:Listplot([A,B]);
-// help:Listplot(["A","B"]);
-//help:Listplot("1",[[2,1],[3,3]]);
-//help:Listplot(options2=["Msg=yes"]);
- regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg);
- if(substring(nm,0,1)=="-", // 16.01.27 from
- name=substring(nm,1,length(nm));
- ,
- name="sg"+nm;
- ); // upto
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1; // 15.09.17
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1); // 16.06.28
- if(Toupper(tmp1)=="N", // 16.06.28
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Listplot "+name);
- );
- if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24
- ptlist=apply(tmp,Pcrd(#));
- tmp=name+"="+textformat(ptlist,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp1=apply(list,Lcrd(#));
- tmp1;
-);
-Listplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Listplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Listplot(name,list,options);
- );
-);
-Listplot(list):=Listplot(list,[]);
-
-Lineplot(nm,list,options):=(
-//help:Lineplot([A,B]);
-//help:Lineplot("1",[[2,1],[3,3]]);
- regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi,
- Vec,pA,pB,Ltype,Noflg);
- name="ln"+nm;
- Mag=100;
- Semi="";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- tmp1=tmp_6;
- if(length(tmp1)>0,Mag=tmp1_1);
- tmp1=tmp_7;
- if(length(tmp1)>0,Semi=tmp1_1);
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- Vec= Mag/dist(pA,pB)*(pB-pA);
- if(length(Semi)==0,
- Out=[pA-Vec,pA+Vec];
- ,
- if(Semi=="+",
- Out=[pA,pA+Vec];
- ,
- Out=[pA-Vec,pA];
- );
- );
- if(Noflg<3,
- println("generate Lineplot "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Lineplot(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Lineplot(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";
- forall(list, // 16.10.07from
- name=name+#.name;
- );// 16.10.07upto
- Lineplot(name,list,options);
- );
-);
-Lineplot(list):=Lineplot(list,[]);
-
-Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]);
-Plotdata(name1,func,variable,options):=(
-//help:Plotdata("1","sin(x)","x",["Num=100"]);
-//help:Plotdata("2","x^2","x=[-1,1]");
-//help:Plotdata("3","Fout(x)","x",["out"]);
- regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx,
- PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gr"+name1;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- Eps=10^(-3);
- tmp=replace(func,LFmark,"");
- tmp=tokenize(variable,"=");
- Vname=tmp_1;
- if(length(tmp)>1,
- tmp=tmp_2;
- tmp=parse(tmp);
- x1=tmp_1;
- x2=tmp_2;
- ,
- x1=XMIN;
- x2=XMAX;
- );
- // dx=(x2-x2)/Num;
- Ec=append(sort(Ec),10000);
- Fun=Assign(func,Vname, "xx");
- Exfun=Assign(Exfun,Vname, "xx");
- PdL=[];
- Ke=1;
- forall(0..Num,
- xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1)
- if(length(Exfun)>0,
- tmp=parse(Exfun);
- if(abs(tmp)<Eps,
- if(length(Pdt)>0,
- PdL=concat(PdL,["inf"]);
- );
- );
- ,
- Pa=[];
- if(xx-Ec_Ke<-Eps,
- Pa=[xx,parse(Fun)];
- );
- if(abs(xx-Ec_Ke)<=Eps,
- if(length(PdL)>0,
- if(PdL_(length(PdL))_1!="inf",
- Pa=["inf"];
- );
- );
- );
- if(xx-Ec_Ke>Eps,
- Pa=[xx,parse(Fun)];
- Ke=Ke+1;
- );
- if(length(Pa)>0,
- if(Pa_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(length(PdL)==0,
- PdL=[Pa];
- ,
- tmp=PdL_(length(PdL));
- if(tmp_1=="inf",
- PdL=concat(PdL,[Pa]);
- ,
- if(dist(tmp,Pa)<Dc,
- PdL=concat(PdL,[Pa]);
- ,
- PdL=concat(PdL,[["inf"],Pa]);
- );
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..(length(PdL)),PdL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[PdL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(PdL),
- tmp1=concat(tmp1,[PdL_(tmp..(length(PdL)))]);
- );
- PdL=tmp1;
- if(length(PdL)==1,
- PdL=PdL_1;
- );
- if(Noflg<3,
- println("generate Plotdata "+name);
- if(MeasureDepth(PdL)==1,
- tmp1=apply(PdL,Pcrd(#));
- ,
- tmp1=[];
- forall(PdL,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(func,LFmark,"");
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Plotdata "+name);
- tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Plotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]);
-Paramplot(name1,funstr,variable,options):=(
-//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]");
- regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num,
- Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke,
- Ltype,Noflg,Inflg,Outflg,opstr,opcindy);
- name="gp"+name1;
- Eps=10^(-4);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="E",
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- if(substring(#,0,1)=="D",
- Dc=parse(tmp1);
- );
- );
- if(Inflg==0 & Outflg==0,
- tmp=indexof(variable,"=");
- vname=substring(variable,0,tmp-1);
- str=substring(variable,tmp,length(variable));
- Rng=parse(str);
- t1=Rng_1; t2=Rng_2;
- dt=(t2-t1)/Num;// differs from Scilab ( / Num-1)
- func=Assign(funstr,vname,"tt");
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=parse(func);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=parse(func);
- ke=ke+1;
- );
- if(length(pa)>0,
- if(pa_1=="inf",
- Out=append(Out,pa);
- ,
- if(length(Out)==0,
- Out=[pa];
- ,
- tmp=Out_(length(Out));
- if(tmp_1=="inf",
- Out=append(Out,pa);
- ,
- if(|tmp-pa|<Dc,
- Out=append(Out,pa);
- ,
- Out=concat(Out,[["inf"],pa]);
- );
- );
- );
- );
- );
- );
- tmp1=[];
- tmp2=select(1..(length(Out)),Out_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[Out_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(Out),
- tmp1=concat(tmp1,[Out_(tmp..(length(Out)))]);
- );
- Out=tmp1;
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Paramplot "+name);
- if(MeasureDepth(Out)==1,
- tmp1=apply(Out,Pcrd(#));
- ,
- tmp1=[];
- forall(Out,tmp2,
- tmp1=append(tmp1,apply(tmp2,Pcrd(#)));
- );
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=replace(funstr,LFmark,""); // 15.11.13
- tmp2=replace(variable,LFmark,"");
- tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
- ,
- // Inflg or Outflg >0 15.05.15
- if(Noflg<3,
- if(Outflg==1,
- println("Output Paramplot "+name);
- tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- SCIWRLIST=append(SCIWRLIST,name);
- if(Inflg==0,Inflg=1); // 15.05.17
- );
- if(Inflg==1,
- println("Input Paramplotdata "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")";
- Com1st(tmp);
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- );
-);
-
-Circledata(cenrad):=Circledata(cenrad,[]);
-Circledata(para1,para2):=(
-//help:Circledata([A,B],["Rng=[0,pi/2]"]);
-//help:Circledata([A,B,C]);
- regional(name,cenrad,options,str,n);
- if(isstring(para1),
- name=para1;
- cenrad=para2;
- options=[];
- ,
- cenrad=para1;
- options=para2;
- name="";// 16.10.07from
- forall(cenrad,
- name=name+#.name;
- );// 16.10.07upto
- );
- Circledata(name,cenrad,options);
-);
-Circledata(nm,cenrad,options):=(
- regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy,
- tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps);
- name="cr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- Num=50;
- Rg=[0,2*pi];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+#+"'";
- if(substring(#,0,1)=="N",
- Num=parse(tmp1);
- );
- if(substring(#,0,1)=="R",
- Rg=parse(tmp1);
- );
- );
- if(length(cenrad)==2,
- Ctr=Lcrd(cenrad_1);
- Ptcir=Lcrd(cenrad_2);
- ra=dist(Ctr,Ptcir);
- ,
- Eps=10^(-1);
- pA=Lcrd(cenrad_1);
- pB=Lcrd(cenrad_2);
- pC=Lcrd(cenrad_3);
- tmp=pB-pA;
- tmp1=(tmp_2,-tmp_1);
- tmp=pC-pB;
- tmp2=(tmp_2,-tmp_1);
- d1=det([tmp1,tmp2]);
- d2=det([pC-pA,tmp2]);
- if(abs(d1)<Eps & abs(d2)>10*Eps,
- println("points are in a line");
- ra=0;
- ,
- Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1;
- ra=|pA-Ctr|;
- tmp=name+"center="+Ctr;
- parse(tmp);
- Defvar(name+"center",Ctr);
- );
- );
- if(ra>0,
- Out=[];
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- ,
- Out=Lineplot("1",[pA,pB],["nodata"]);
- );
- if(Noflg<3,
- println("generate Circledata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- if(length(cenrad)==2,
- tmp=name+"=Circledata("+cenrad+opstr+")";
- ,
- if(ra>0,
- tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")";
- ,
- tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")";
- );
- );
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata():=Framedata(["dr"]);//16.10.29from
-Framedata(list):=(
- regional(pA,pB);
- if(MeasureDepth(list)==0,
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB],list);
- ,
- Framedata(list,[]);
- );
-);//16.10.29upto
-Framedata(Arg1,Arg2):=(
- regional(name,list,options,str);
- if(isstring(Arg1),
- name=Arg1;
- list=Arg2;
- Framedata(name,list,[]);
- ,
- list=Arg1;
- options=Arg2;
- name="";// 16.10.07from
- forall(list,
- name=name+#.name;
- );// 16.10.07upto
- Framedata(name,list,options);
- );
-);
-Framedata(nm,list,options):=(
-//help:Framedata();
-//help:Framedata([C,A]);
-//help:Framedata("1",[C,A]);
-//help:Framedata("1",[C,dx,dy]);
- regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy,
- opcindy,Ltype,Noflg,cent,dx,dy);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(length(list)==2, // 15.05.12
- pA=Lcrd(list_1); pB=Lcrd(list_2);
- dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2);
- ,
- pA=Lcrd(list_1);
- dx=list_2; dy=list_3;
- );
- x1=pA_1-dx; x2=pA_1+dx;
- y1=pA_2-dy; y2=pA_2+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]);
-Framedata(nm,cent,dx,dy,options):=(
- regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg);
- name="fr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- x1=cent.x-dx; x2=cent.x+dx;
- y1=cent.y-dy; y2=cent.y+dy;
- Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]];
- if(Noflg<3,
- println("generate Framedata "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-Framedata2(nm,list):=Framedata2(nm,list,[]);
-Framedata2(nm,list,options):=(
-//help:Framedata2("1",[A,B]);
- regional(tmp,tmp1,pC,pB);
- pC=(Lcrd(list_1)+Lcrd(list_2))/2;
- pB=Lcrd(list_2);
- Framedata(nm,[pC,pB],options);
-);
-
-Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]);
-Ovaldata(nm,Pdata,options):=(
-//help:Ovaldata("1",[A,B]);
-//help:Ovaldata(optios=[size]);
- regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph,
- opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
- name="ov"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- opstr=tmp_(length(tmp)-1);
- Rc=0.2;
- tmp1=tmp_6;
- if(length(tmp1)>0,Rc=tmp1_1*Rc);
-// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15
- Ctr=Lcrd(Pdata_1);
- if(ispoint(Pdata_2) % islist(Pdata_2),
- tmp1=Lcrd(Pdata_2);
- Dx=abs(tmp1_1-Ctr_1);
- Dy=abs(tmp1_2-Ctr_2);
- ,
- Dx=Pdata_2;
- Dy=Pdata_3;
- );
- Point=Ctr+[Dx-Rc,Dy-Rc];
- tmp1=Circledata("1",[Point,Point+[Rc,0]],
- ["Rng=[0,pi/2]","Num=10","nodata"]);
- tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]],
- ["nodata"]);
- tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]],
- ["nodata"]);
- Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]);
- tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]);
- Graph=Joincrvs("1",[Graph,tmp1],["nodata"]);
- tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]],
- ["nodata"]);
- Graph=Joincrvs("2",[Graph,tmp2],["nodata"]);
- if(Noflg<3,
- println("generate Ovaldata "+name);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- GLIST=append(GLIST,
- name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- tmp1=apply(Graph,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5);
- );
- Graph;
-);
-
-Segmark(nm,ptlist):=Segmark(nm,ptlist,[]);
-Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options);
-Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]);
-Drawsegmark(nm,ptlist,options):=(
-//help:Segmark("1",[A,B]);
-//help:Segmark(options=["Type=1","Width=1","Size=1"]);
- regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL,
- tmp,tmp1,tmp2);
- name="mrk"+nm;
- pA=ptlist_1;
- pB=ptlist_2;
- size=0.15;
- wid=0.05;
- tp=1;
- tmp1=Divoptions(options);
- eqL=tmp1_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- tmp1=parse(tmp1);
- tmp=substring(#,0,1);
- if(tmp=="S" % tmp=="s",
- size=size*tmp1;
- );
- if(tmp=="W" % tmp=="w",
- wid=wid*tmp1;
- );
- if(tmp=="T" % tmp=="t",
- tp=tmp1;
- );
- );
- mid=(pA+pB)/2;
- dir=(pB-pA)/|pB-pA|;
- nor=[-dir_2,dir_1];
-// nor=nor/|nor|;
- if(tp==1,
- tmp1=mid+size*nor;
- tmp2=mid-size*nor;
- Listplot(name,[tmp1,tmp2]);
- );
- if(tp==2,
- tmp1=mid+wid*dir+size*nor;
- tmp2=mid+wid*dir-size*nor;
- Listplot(name+"r",[tmp1,tmp2]);
- tmp1=mid-wid*dir+size*nor;
- tmp2=mid-wid*dir-size*nor;
- Listplot(name+"l",[tmp1,tmp2]);
- );
- if(tp==3,
- tmp1=mid;
- tmp2=mid+size*dir;
- Circledata(name,[tmp1,tmp2]);
- );
- if(tp==4,
- tmp=mid+size*2/sqrt(3)*nor;
- tmp1=mid+size*dir-size/sqrt(3)*nor;
- tmp2=mid-size*dir-size/sqrt(3)*nor;
- Listplot(name,[tmp,tmp1,tmp2,tmp]);
- );
-);
-
-Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]);
-Parabolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5,5]";
- options=Arg;
- );
- Parabolaplot(nm,ptlist,rng,options);
-);
-Parabolaplot(nm,ptlist,rng,options):=(
-//help:Parabolaplot("1",[A,B,C]):
-//help:Parabolaplot("1",[A,B,C],"[-5,5]");
- regional(pA,pB,pC,angle,tmp,tmp1,tmp2);
- tmp1=Lcrd(ptlist_1);
- tmp2=Lcrd(ptlist_3);
- pB=Lcrd(ptlist_2);
- tmp=(tmp2-pB)/|tmp2-pB|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pA=Rotatepoint(tmp1,-angle,pB);
- pC=Rotatepoint(tmp2,-angle,pB);
- tmp1=1/(2*(pA_2-pB_2));
- tmp2=1/2*(pA_2+pB_2);
- tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2";
- tmp=tmp+"+("+format(tmp2,5)+")";
- tmp1=parse(rng);
- tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2];
- tmp2="x="+textformat(tmp1,5);
- Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp"));
- Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB));
-);
-
-Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]);
-Ellipseplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[0,2*pi]";
- options=Arg;
- );
- Ellipseplot(nm,ptlist,rng,options);
-);
-Ellipseplot(nm,ptlist,rng,options):=(
-//help:Ellipseplot("1",[A,B,3]);
-//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]);
- regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=|tmp2-pA|+|tmp2-tmp1|;
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(d^2/4-f^2);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]";
- tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]";
- Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp"));
- Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA));
-);
-
-Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]);
-Hyperbolaplot(nm,ptlist,Arg):=(
- regional(rng,options);
- if(isstring(Arg),
- rng=Arg;
- options=[];
- ,
- rng="[-5/2,5/2]";
- options=Arg;
- );
- Hyperbolaplot(nm,ptlist,rng,options);
-);
-Hyperbolaplot(nm,ptlist,rng,optionsorg):=(
-//help:Hyperbolaplot("1",[A,B,C],["Num=200"]):
-//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]);
- regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2);
- tmp=Divoptions(optionsorg);
- eqL=tmp_5;
- options=optionsorg;
- opasy=[];
- forall(eqL,
- if(Toupper(substring(#,0,1))=="A",
- tmp=indexof(#,"=");
- opasy=[substring(#,tmp,length(#))];
- options=remove(options,[#]);
- );
- );
- pA=Lcrd(ptlist_1);
- tmp1=Lcrd(ptlist_2);
- if(ispoint(ptlist_3),
- tmp2=Lcrd(ptlist_3);
- d=abs(|tmp2-pA|-|tmp2-tmp1|);
- ,
- d=ptlist_3;
- );
- tmp=(tmp1-pA)/|tmp1-pA|;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- pB=Rotatepoint(tmp1,-angle,pA);
- f=|pB_1-pA_1|/2;
- a=d/2;
- b=sqrt(f^2-d^2/4);
- pM=(pA+pB)/2;
- tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp"));
- tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,";
- tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]";
- Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp"));
- tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"];
- Rotatedata(nm+"hyp",tmp,angle,append(options,pA));
- if(length(opasy)>0,
- Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]);
- Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]);
- tmp=["ln"+nm+"asy1","ln"+nm+"asy2"];
- Rotatedata(nm+"asy",tmp,angle,append(opasy,pA));
- );
-);
-
-Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]);
-Polygonplot(nm,ptlist,number,options):=(
-//help:Polygonplot("1",[A,B],12);
- regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2);
- pA=Lcrd(ptlist_1);
- pB=Lcrd(ptlist_2);
- rr=|pB-pA|;
- tmp=(pB-pA)/rr;
- if(tmp_2>=0,
- angle=arccos(tmp_1);
- ,
- if(tmp_1>=0,
- angle=arcsin(tmp_2);
- ,
- angle=-arccos(tmp_1);
- );
- );
- ptL=[];
- forall(0..number,
- tmp=angle+#*2*pi/number;
- tmp1=pA+rr*[cos(tmp),sin(tmp)];
- if(#>0 & #<number,
- Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07
- //Pointdata(nm,ptL);
- );
- tmp2=tmp1;
- ptL=append(ptL,tmp1);
- );
- Listplot(nm+"ply",ptL,options);
-);
-
-Putintersect(nm,pdata1,pdata2):=(
-//help:Putintersect("Q","gr1","gr2");
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)==1,
- Putpoint(nm,tmp_1);
- ,
- if(length(tmp)==0,
- err("No intersect point");
- ,
- err("Multiple intersect points");
- println(tmp);
- err("Choose point number");
- );
- );
-);
-Putintersect(nm,pdata1,pdata2,ptno):=(
- regional(pd1,pd2,tmp);
- if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1);
- if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2);
- tmp=Intersectcrvs(pd1,pd2);
- if(length(tmp)>0,
- Putpoint(nm,tmp_ptno);
- ,
- err("No intersect point");
- );
-);
-
-Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]);
-Arrowheaddata(point,direction,options):=(
-//help:Arrowheaddata(A,B);
- regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB,
- pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy);
- Eps=10^(-3);
- pP=point;
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Str=YaStyle;
- tmp=Divoptions(options);
- tmp1=tmp_6;
- if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1);
- if(length(tmp1)>1,
- tmp=tmp1_2;
- if(tmp<5,
- Hiraki=Hiraki*tmp;
- ,
- Hiraki=tmp;
- );
- );
- Flg=0;
- Hiraki=Hiraki*pi/180;
- if(isstring(direction),Houkou=parse(direction),Houkou=direction);
- if(MeasureDepth(Houkou)==2,Houkou=Houkou_1);
- if(islist(Houkou_1),
-// pP=Lcrd(pP);
-// pP=Doscaling(pP);
-// Houkou=Dosscaling(Houkou);
- pP=Pcrd(pP);
- scy=SCALEY;
- SCALEY=1;
- tmp=Nearestpt(pP,Houkou);
- pA=tmp_1;
- rF=floor(tmp_2);
- if(rF==1,
- if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps,
- rF=Numptcrv(Houkou);
- );
- );
- gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]);
- Flg=0;
- forall(1..rF,Nj,
- if(Flg==0,
- pB=Ptcrv(rF+1-Nj,Houkou);
- tmp=IntersectcrvsPp([pA,pB],gG);
- if(length(tmp)>0,
- Houkou=pP-tmp_1_1;
- Flg=1;
- );
- pA=pB;
- );
- );
- SCALEY=scy;
- if(Flg==0,
- println("Arrowhead may be too large (no intersect)");
- Flg=2;
- );
- if(Flg==1,
- Houkou=Unscaling(Houkou);
- pP=Unscaling(pP);
- );
- );
- if(Flg<2,
-// pP=Doscaling(pP);
-// Houkou=Doscaling(Houkou);
- pP=Pcrd(pP);
- if(!ispoint(point),
- Houkou=Pcrd(Houkou);
- );
-// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou));
- Ev=-1/|Houkou|*Houkou;
- Ev=Lcrd(Ev);
- Nv=[-Ev_2, Ev_1];
- if(indexof(Str,"c")>0,
- pP=pP-0.5*Ookisa*cos(Hiraki)*Ev;
- );
- if(indexof(Str,"b")>0,
- pP=pP-Ookisa*cos(Hiraki)*Ev;
- );
- pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv;
- pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv;
- list=[pA,pP,pB];
- list=apply(list,LLcrd(#));
-// Out=Unscaling(Out);
- list;
- );
-);
-
-Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]);
-Arrowhead(point,Houkou,options):=(
-//help:Arrowhead(B,B-A,[1.5,30]);
-//help:Arrowhead(A,"gr1");
- // global ArrowheadNumber
- regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list);
- name="arh"+text(ArrowheadNumber);
- ArrowheadNumber=ArrowheadNumber+1;
- ptstr=textformat(point,5);
- if(isstring(Houkou), // 15.01.11
- tmp=parse(Houkou);
- if(MeasureDepth(tmp)<2,
- hostr=Houkou;
- ,
- hostr=Houkou+"(1)";
- );
- ,
- if(ispoint(point),
- hostr=textformat(LLcrd(Houkou),5);
- ,
- hostr=textformat(Houkou,5);
- );
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- list=Arrowheaddata(point,Houkou,options);
- if(Noflg<3,
-// println("generate Arrowhead "+name);
- tmp1=apply(list,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// GLIST=append(GLIST,name+"=Listplot("+list+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(1)+Ltype,name);
- ,
-// if(Noflg==1,Ltype=0);
- Ltype=0;
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- if(Noflg==0,
- if(length(reL)<3, // 16.04.09 from
- forall(1..(2-length(reL)),
- opstr=opstr+",1";
- );
- tmp=PenThick/PenThickInit;
- opstr=opstr+","+text(tmp);
- ); // 16.04.09 upto
- Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")");
- );
-);
-
-Arrowdata(ptlist):=Arrowdata(ptlist,[]);
-Arrowdata(Arg1,Arg2):=(
- regional(tmp,nm,ptlist,flg,pA,pB,options);
- flg=0;
- if(isstring(Arg1),
- nm=Arg1;
- ptlist=Arg2;
- Arrowdata(nm,ptlist,[]);
- flg=1;
- );
- if(flg==0,
- tmp=MeasureDepth(Arg1);
- if(tmp==0,
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,[]);
- ,
- ptlist=Arg1;
- options=Arg2;
- nm=text(ArrowlineNumber);
- ArrowlineNumber=ArrowlineNumber+1;
- Arrowdata(nm,ptlist,options);
- );
- );
-);
-Arrowdata(Arg1,Arg2,options):=(
-//help:Arrowdata([A,B],[2,10]);
- regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size,
- flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos);
- Retflg=0;
- Noflg=0;
- Ltype=0;
- if(!isstring(Arg1),
- pA=Arg1;
- pB=Arg2;
- Arrowdata(pA,pB,options,"old");
- Retflg=1;
- ptlist=[pA,pB];
- );
- if(Retflg==0,
- nm=Arg1;
- ptlist=Arg2;
- name="ar"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- realL=tmp_6;
- strL=tmp_7;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- size=1; // 15.06.11
- if(length(realL)>0,
- size=realL_1;
- );
- tmp2=select(strL,indexof(#,"l")>0); // 16.04.09
- if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09
- segpos=1;
- tmp1=tmp_5;
- if(length(tmp1)>2,
- segpos=tmp1_3;
- );
- if(Noflg<3,
-// println("generate Arrowdata "+name);
- tmp1=apply(ptlist,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=Pcrd(ptlist_1);//16.10.20
- tmp2=Pcrd(ptlist_2);//16.10.20
- if(lineflg==0, // 16.04.09 from
- tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11
- ,
- tmp=tmp2;
- ); // 16.04.09 upto
- tmp=[LLcrd(tmp1),LLcrd(tmp)];//16.10.20
- GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- tmp=textformat(ptlist,5);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp1=indexof(tmp,"],[");
- if(tmp1>0,
- pA=substring(tmp,0,tmp1);
- pB=substring(tmp,tmp1+1,length(tmp));
- ,
- tmp1=indexof(tmp,",");
- pA=substring(tmp,0,tmp1-1);
- pB=substring(tmp,tmp1,length(tmp));
- );
- tmp1="Lcrd("+pA+")+"
- +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))";
- tmp1=parse(tmp1);
- tmp2="Lcrd("+pB+")-Lcrd("+pA+")";
- tmp2=parse(tmp2);
- Arrowhead(tmp1,tmp2,options);
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- ptlist;
-);
-Arrowdata(pA,pB,options,str):=(
- regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy);
- Astr=textformat(pA,5);
- Bstr=textformat(pB,5);
- name="ar"+pA.name+pB.name;
- println("generate Arrow "+name);
- opstr="";
- opcindy="";
- forall(options,
- if(isstring(#),
- if(indexof(#,"->")>0,
- opcindy=opcindy+","+#;
- ,
- tmp="'"+#+"'";
- );
- ,
- tmp=text(#);
- );
- opstr=opstr+","+tmp;
- );
- ptA=Lcrd(pA);
- ptB=Lcrd(pB);
- Arrowheaddata(ptB,ptB-ptA,options);
- tmp="connect("+textformat([ptA,ptB],5)
- +",linecolor->"+text(KCOLOR)+opcindy+");";
- parse(tmp); // 14.11.17
- Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04
-);
-
-Anglemark(plist):=Anglemark(plist,[]);
-Anglemark(Arg1,Arg2):=( // 2015.04.28 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Anglemark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Anglemark(nm,plist,options);
- );
-); // upto
-Anglemark(nm,plist,options):=(
-//help:Anglemark([A,B,C],["E=\theta",2]);
-//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]);
-//help:Anglemark(options=["E/L=(sep,)letter",size]);
- regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg);
- name="ag"+nm;
- Bpos="md"+name;
- ra=0.5;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- Bname="";
- Brat=1.5;
- Num=20;
- if(length(realL)>0,
- ra=realL_1*ra;
- opstr=opstr+","+text(realL_1);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bname=Bname+Bpos+","+Dq+"c"+Dq+","+Dq;//16.10.29
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- sab=pB-pA;
- sac=pC-pA;
- Rg=[arctan2(sab)+0,arctan2(sac)+0];
- if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi);
- Out=[];
- if(ra>min(|sab|,|sac|), // 16.12.29
- println(" segments too short");
- ,
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- Th=(Rg_1+Rg_2)/2; //16.10.31from(moved)
- tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
- tmp="Defvar("+Dq+Bpos+"=";
- tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);//16.10.31upto(moved)
- if(length(Bname)>0,
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name+" and "+Bpos);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=textformat(plist,5);
- tmp1=substring(tmp,1,length(tmp)-1);
- tmp=name+"=Anglemark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- Out;
-);
-
-Paramark(plist):=Paramark(plist,[]);
-Paramark(Arg1,Arg2):=( // 17.03.27 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Paramark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Paramark(nm,plist,options);
- );
-);// upto
-Paramark(nm,plist,options):=(
-//help:Paramark([A,B,C],["E=\theta"]);
-//help:Paramark("1",[p1,p2,p3],["E=\theta"]);
- regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- name="pm"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- ra=0.5;
- Bname="";
- Brat=1.2;
- if(length(realL)>0,
- tmp=realL_1;
- ra=tmp*ra;
- opstr=opstr+","+text(tmp);
- );
- forall(eqL,
- if(substring(#,0,1)=="L",Bname="Letter(");
- if(substring(#,0,1)=="E",Bname="Expr(");
- Bpos="md"+name;
- Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq;
- tmp=substring(#,indexof(#,"="),length(#));
- tmp1=indexof(tmp,",");
- Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")";
- if(tmp1>0,
- Brat=parse(substring(tmp,0,tmp1-1));
- );
- );
- pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3);
- Ctr=Lcrd(pA);
- Out=[];
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|);
- Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|);
- Out=append(Out,pA+ra*(pC-pA)/|pC-pA|);
- if(length(Bname)>0,
- tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|;
- tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");";
- parse(tmp);
- parse(Bname);
- );
- if(Noflg<3,
- println("generate paramark "+name);
- tmp1=apply(Out,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Paramark("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- Out;
-);
-
-MakeBowdata(pA,pB,Hgt):=(
- regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA);
- angle=arctan2(pB-pA)+0;
- pB2=Rotatepoint(pB,-angle,pA);
- tmp=Lcrd(pA);
- pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt];
- dMA=|tmp-pB2|/2;
- ra=(dMA^2+Hgt^2)/(2*Hgt);
- pC2=[pH2_1,pB2_2+(ra-Hgt)];
- pC=Rotatepoint(pC2,angle,pA);
- Th1=arctan2(pA-pC2)+angle;
- Th2=arctan2(pB2-pC2)+angle;
- [pC,ra,Th1,Th2];
-);
-
-Bowdata(plist):=Bowdata(plist,[]);
-Bowdata(plist,options):=(
- regional(nm,tmp);
- if(islist(plist), // 16.12.04from
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Bowdata(nm,plist,options);
- ,
- nm=plist;
- tmp=options;
- Bowdata(nm,tmp,[]);
- ); // 16.12.04upto
-);
-Bowdata(nm,plist,options):=(
-//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]);
-//help:Bowdata([A,B],["Expr=t0n3,a"]);
-//help:Bowdata([A,B],["Exprrot=t0n2r,a"]);
- regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL,
- Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC,
- Th1,Th2,Noflg,Bops,Bmov,Tmov,Nmov,rev);
- name="bw"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- eqL=tmp_5;
- realL=tmp_6;
- pA=Lcrd(plist_1); pB=Lcrd(plist_2);
- Hgt=1/2*|pB-pA|*0.2;
- Cut=0;
- Num=24;
- Bname="";
- Tmov=0;//16.11.01from
- Nmov=0;
- Bmov="";
- rev=0;//16.11.01upto
- if(length(realL)>0,
- Hgt=realL_1*Hgt; // 15.04.12
- if(length(realL)>1,Cut=realL_2);
- );
- forall(eqL,
- tmp=substring(#,0,1);
- if(tmp=="L" % tmp=="l",
- if(indexof(#,"rot")>0,
- Bname="Letterrot(";
- ,
- Bname="Letter(";
- );
- );
- if(tmp=="E" % tmp=="e",
- if(indexof(#,"rot")>0,
- Bname="Exprrot(";
- ,
- Bname="Expr(";
- );
- );
- tmp=indexof(#,"=");
- Bops=substring(#,tmp,length(#)); // 16.11.01
- );
- Ydata=MakeBowdata(pA,pB,Hgt);
- pC=Ydata_1;
- ra=Ydata_2;
- Th=(Ydata_3+Ydata_4)*0.5;
- BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)];
- Bpos="md"+name; // 16.10.31from(moved)
- tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");";
- parse(tmp);// 16.10.31upto(moved)
- if(length(Bname)>0, //16.11.01from
- tmp=indexof(Bops,",");
- if(tmp>0,
- tmp1=substring(Bops,0,tmp-1);
- if(length(tmp1)>=4 & substring(tmp1,0,1)=="t" & indexof(tmp1,"n")>0,
- Bmov=tmp1;
- Bops=substring(Bops,tmp,length(Bops));
- );
- );
- if(length(Bmov)>0,
- tmp=indexof(Bmov,"t");
- if(tmp>0,
- tmp1=indexof(Bmov,"n");
- Tmov=parse(substring(Bmov,tmp,tmp1-1));
- tmp=indexof(Bmov,"r");
- if(tmp>0,
- Nmov=parse(substring(Bmov,tmp1,tmp-1));
- rev=1;
- ,
- Nmov=parse(substring(Bmov,tmp1,length(Bmov)));
- );
- );
- );
- Bname=Bname+Bpos;//16.11.01
- if(abs(Tmov)+abs(Nmov)>0,
- tmp=Pcrd(pA)-Pcrd(pB);
- tmp1=1/norm(tmp)*tmp;
- tmp2=[-tmp1_2,tmp1_1];
- tmp=MARKLEN*(Tmov*tmp1+Nmov*tmp2);
- tmp=LLcrd(tmp);
- Bname=Bname+"+"+text(tmp);
- );
- Bname=Bname+",";
- if(indexof(Bname,"rot")>0,
- if(rev==1,tmp=pB-pA,tmp=pA-pB);
- Bname=Bname+textformat(tmp,5)+",";
- ,
- Bname=Bname+Dq+"c"+Dq+",";
- );
- Bname=Bname+Dq+Bops+Dq+")";
- parse(Bname);
- );//16.11.01upto
- if(Cut==0,
- Th1=Ydata_3;
- Th2=Ydata_4;
- Out=[];
- forall(0..Num,
- tmp=Th1+#*(Th2-Th1)/Num;
- Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]);
- );
- ,
- Th1=Ydata_3;
- Th2=Th-Cut/(2*ra);
- tmp1=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Th1=Th+Cut/(2*ra);
- Th2=Ydata_4;
- tmp2=[];
- forall(0..Num/2,
- tmp=Th1+#*(Th2-Th1)/(Num/2);
- tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]);
- );
- Out=[tmp1,tmp2];
- );
- if(Noflg<3,
- println("generate bowdata "+name+" and "+Bpos);//16.10.31
- if(MeasureDepth(Out)==1,Out=[Out]);
- tmp1=[];
- forall(Out,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1);
- tmp=name+"=Bowdata("+tmp1+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
-);
-
-Bowname(str):=Bowname("c",str);
-Bowname(dir,str):=(
- Expr([BOWMIDDLE,dir,str]);
-);
-
-Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1);
-Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown);
-Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1);
-Bownamerot(bwdata,tmov,nmov,str,updown):=(
- regional(bdata,tmp);
- tmp=MeasureDepth(bwdata);
- if(tmp==1,bdata=[bwdata],bdata=bwdata);
- if(length(bdata)>1,
- tmp=Ptend(bdata_2)-Ptstart(bdata_1);
- ,
- tmp=Ptend(bdata_1)-Ptstart(bdata_1);
- );
- if(updown<0,tmp=-tmp);
- Exprrot(BOWMIDDLE,tmp,tmov,nmov,str);
-);
-
-Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]);
-Deqplot(nm,deq,rng,Arg1,Arg2):=(
- regional(initt,initf,options);
- if(isreal(Arg1) & !islist(Arg1),
- initt=Arg1;
- initf=Arg2;
- options=[];
- ,
- initf=Lcrd(Arg1);
- initt=initf_1;
- options=Arg2;
- );
- Deqplot(nm,deq,rng,initt,initf,options);
-);
-Deqplot(nm,deq,rng,initt,initf,options):=(
- regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2,
- tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- tmp2=tmp_2;
- tmp3=tokenize(tmp1,"`");
- if(length(tmp3)==2,
- if(indexof(tmp1,"[")>0,
- Deqplot(nm,deq,rng,initt,initf,options,[2,3]);
- ,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- tmp=tokenize(rng2,"=");
- deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]";
- rng2="tvar="+tmp_2; //17.02.26
- if(isreal(initf) & !islist(initf),
- initf2=[initt,initf];
- initt2=initt;
- ,
- initf2=Lcrd(initf);
- initt2=initf2_1;
- );
- Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]);
- );
- ,
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_9;
- opstr="";
- forall(eqL,
- if(Toupper(substring(#,0,1))=="N",
- tmp=indexof(#,"=");
- tmp1="N="+substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp1+"'";
- );
- );
- if(Noflg<1,
- if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]");
- var2="d"+tmp3_1;
- deq2="["+tmp3_1+","+var2+"]`=[";
- tmp=replace(tmp2,tmp3_1+"`",var2);
- deq2=deq2+var2+","+tmp+"]";
- Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]);
- parse(tmp);
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- parse("de"+nm);
- );
- );
-);
-Deqplot(nm,deq,rng,initt,initf,options,Sel):=(
-//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]);
-//help:Deqplot("1","y``=-y","x",0, [1,0]);
-//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]);
- regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num,
- outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg,
- kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2);
- name="de"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- eqL=tmp_5;
- strL=tmp_7;
-// opstr=tmp_(length(tmp)-1);
- opstr="";
- opcindy=tmp_(length(tmp));
- outstr="";
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="S",
- outstr="Sci";
- );
- );
- Num=50;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,0,1);
- tmp2=Toupper(tmp2);
- tmp1=substring(#,tmp,length(#));
- opstr=opstr+",'"+tmp2+"="+tmp1+"'";
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- );
- );
- if(outstr=="Sci",
- if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1);
- );
- if(Noflg<3,
- if(outstr=="Sci",
- if(Outflg==1,
- println("Output Deqplot "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Deqplot "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- ,
- Eps=10^(-3);
- Inf=10^3;
- tmp=tokenize(deq,"=");
- tmp1=tmp_1;
- func=tmp_2;
- tmp=indexof(tmp1,",");
- xf=substring(tmp1,1,tmp-1);
- yf=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(yf,"]");
- yf=substring(yf,0,tmp-1);
- tmp=tokenize(rng,"=");
- Vname=tmp_1;
- tmp=parse(tmp_2);
- t1=tmp_1;
- t2=tmp_2;
- tmp="funP("+Vname+","+xf+","+yf+"):="+func+";";
- parse(tmp);
- tmp=tokenize(func,",");
- tmp1="-("+substring(tmp_1,1,length(tmp_1))+")";
- tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")";
- tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];";
- parse(tmp);
- dt=(t2-t1)/Num;
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- pdL=[[tt,x0,y0]];
- flg=0;
- forall(1..floor((t2-initt)/dt),
- if(flg==0,
- kl1=dt*funP(tt,x0,y0);
- kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt+#*dt;
- pdL=append(pdL,[tt,x0,y0]);
- if(|tmp1|>Inf,flg=1);
- );
- );
- tt=initt;
- tmp=Lcrd(initf);
- x0=tmp_1;
- y0=tmp_2;
- flg=0;
- forall(1..floor((initt-t1)/dt),
- if(flg==0,
- kl1=dt*funN(tt,x0,y0);
- kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2);
- kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2);
- kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2);
- tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6;
- x0=tmp1_1;
- y0=tmp1_2;
- tt=initt-#*dt;
- pdL=prepend([tt,x0,y0],pdL);
- if(|tmp1|>Inf,flg=1);
- );
- );
- println("Generate Deqplot "+name);
- pdL=apply(pdL,#_Sel);
- tmp1=apply(pdL,Pcrd(#));
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(Noflg<1,
- tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',";
- tmp=tmp+initt+","+initf+opstr+")";
- GLIST=append(GLIST,tmp);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(outstr=="Sci",
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- ,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
- if(outstr!="Sci",pdL); // 17.02.17
-);
-
-Enclosing(nm,plist):=EnclosingS(nm,plist);
-Enclosing(nm,plist,options):=EnclosingS(nm,plist,options);
-EnclosingS(nm,plist):=EnclosingS(nm,plist,[]);
-EnclosingS(nm,plist,options):=(
-//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]);
- regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt,
- t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy);
- name="en"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Eps=10^(-5); // 16.12.05
- EEps=0.05;
- Start=[];
- Flg=0;
- forall(realL,
- if(isList(#) % ispoint(#),
- Start=Lcrd(#); // 15.09.12
- ,
- Flg=Flg+1;
- if(Flg==1,Eps=#);
- if(Flg==2,EEps=#);
- );
- );
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- Fdata=plist_1;
- Gdata=plist_(length(plist));
- KL=IntersectcrvsPp(Fdata,Gdata);
- if(length(KL)==1,
- pt=KL_1_1;
- t1=KL_1_2;
- );
- if(length(KL)==0,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- pt=tmp_1;
- t1=tmp_2;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- pt=tmp_3;
- t1=tmp_4;
- );
- );
- if(length(KL)>1,
- if(Start==[],
- err("No Start Point");
- ,
- pt=KL_1_1;
- t1=KL_1_2;
- tmp=|pt-Start|;
- forall(2..(length(KL)),ii, // 15.04.20
- tmp1=KL_ii_1;
- tmp2=|tmp1-Start|; // 15.04.20
- if(tmp2<tmp,
- pt=tmp1;
- t1=KL_ii_2;
- tmp=tmp2;
- );
- );
- );
- );
-// pt=Pcrd(pt); // 15.09.12
- Start=pt;
- AnsL=[];
- forall(1..(length(plist)),nn,
- Fdata=plist_nn;
- if(nn>1, pt=qt);
- if(nn==length(plist),
- qt=Start;
- ,
- Flg=0;
- Gdata=plist_(nn+1);
-// tmp1=concat([Eps,EEps],eqL); // 15.04.06
- KL=IntersectcrvsPp(Gdata,Fdata);
- if(length(KL)==1,
- tmp=KL_1;
- qt=KL_1_1;
- t3=KL_1_2;
- Flg=10;
- );
- if(length(KL)==0,Flg=1);
- if(length(KL)>1,
- tmp1=KL_1_1;
- tmp2=KL_2_1;
- tmp=|tmp1-tmp2|;
- if(tmp<Eps*10, Flg=1);
- );
- if(Flg==1,
- if(Numptcrv(Fdata)>Numptcrv(Gdata),
- tmp=Nearestpt(Fdata,Gdata);
- qt=tmp_1;
- t3=tmp_4;
- Flg=10;
- ,
- tmp=Nearestpt(Gdata,Fdata);
- qt=tmp_3;
- t3=tmp_2;
- Flg=10;
- );
- );
- if(Flg<10,
- t2=10^6; //%inf;
- forall(1..(length(KL)),ii,
- tmp1=KL_ii_1;
- tmp=KL_ii_3;
- tmp2=ParamonCurve(tmp1,tmp,Fdata);
- tmp3=KL_ii_2;
- if(tmp2>t1+Eps & tmp2<t2+Eps,
- qt=tmp1;
- t2=tmp2;
- t3=tmp3;
- );
- );
- );
- );
- tmp=Partcrv("",pt,qt,Fdata,["nodata"]);
- t1=t3;
- if(nn==1,
- AnsL=tmp;
- ,
- AnsL=concat(AnsL,tmp_(2..(length(tmp))));
- );
- );
- AnsL=apply(AnsL,Pcrd(#)); // 15.09.12
- AnsL_(length(AnsL))=AnsL_1;//16.10.20
- if(Noflg<3,
- println("generate Enclosing "+name);
- tmp=name+"="+textformat(AnsL,5);
- parse(tmp);
- tmp=name+"=Enclosing(";//16.11.07from
- tmp1="list(";
- forall(plist,
- tmp1=tmp1+#+",";
- );
- tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- GLIST=append(GLIST,tmp);//16.11.07upto
- // GLIST=append(GLIST,"Tmp=[]"); // 16.11.05from
-// nn=floor(length(AnsL)/20);
-// forall(1..nn,ii,
-// tmp=AnsL_(((ii-1)*20+1)..(ii*20));
-// tmp=apply(tmp,LLcrd(#));
-// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
-// GLIST=append(GLIST,tmp);
-// );
-// if(length(AnsL)>nn*20,
-// tmp=AnsL_((nn*20+1)..(length(AnsL)));
-// tmp=apply(tmp,LLcrd(#));
-// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
-// GLIST=append(GLIST,tmp);
-// );
-// GLIST=append(GLIST,name+"=Listplot(Tmp)"); // 16.11.05upto
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp=apply(AnsL,LLcrd(#));//16.10.20
- tmp;
-);
-
-Shade(plist):=Shade(plist,[]);
-Shade(plist,options):=(
-//help:Shade(["gr2","sg1"],[0.5]);
-//help:Shade([pointlist],[0.5]);
- regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg);
- if(isstring(plist_1), // 16.01.24
- println("output Shade of "+plist);
- ,
- println("output Shade of lists");
- );
- tmp=Divoptions(options);
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- flg=0;
- forall(plist,
- if(flg==0,
- if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24
- if(!islist(tmp),flg=1); upto
- );
- );
- if(flg==1,
-// err("some data not defined yet");
- ,
- G2=Joincrvs("1",plist,["nodata"]);
- G2=apply(G2,Pcrd(#));
- tmp1="fillpoly("+textformat(G2,5)+opcindy+");";
- parse(tmp1);
- );
- Str="Shade(";
- tmp1="list(";
- forall(plist,
- if(isstring(#), // from 16.01.24
- if(length(#)>1,
- tmp1=tmp1+#+",";
- ,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- ,
- tmp1=tmp1+"Listplot("+textformat(#,5)+"),";
- ); // upto 16.01.24
- );
- Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- Com2nd(Str);
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt
deleted file mode 100644
index cf775fa8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1log.txt
+++ /dev/null
@@ -1,647 +0,0 @@
-// s:2017.08.23
-// Help of getdirhead changed
-// s:2017.07.19
-// Sep1000 added;
-// s:2017.07.03
-// Deqplot debugged ( )); )
-// s:2017.06.26
-// Ch added at the first line
-// s:2017.06.19
-// factorial added
-// s:2017.06.05
-// Ketinit changed (ketjavaversion added)
-// s:2017.05.21
-// Ketinit() debugged (Ch removed to setketcindy.txt)
-// MeasureDepth debugged (in the case of null list)
-// s:2017.05.18
-// Ketinit() debugged (Chnum => ChNum)
-// s:2017.05.16
-// Ketinit() changed (Ch added)
-// s:2017.05.15
-// C command for surface drawing are added (partly)
-// s:2017.04.14
-// IntersectcrvPp debugged ( in samepoint )
-// Ketinit changed ( to change Libname for scilab6 )
-// s:2017.04.10(all)
-// Buttons can be removed
-// s:2017.04.08
-// bugs fixed
-// e: 2017.03.27
-// Paramark changed ( name supported)
-// e: 2017.03.12
-// Sprintf changed ( for string input )
-// e: 2017.03.02
-// Ketinit debugged ( regional changed from bodyc to mboxc)
-// e: 2017.02.26
-// Deqplot debugged ( "t=" changed to "tvar=" )
-// e: 2017.02.17
-// Deqplot debugged ( for data output for "nodata" )
-// e: 2017.01.16
-// Setfiles added (Fhead,Fnamesci, Fnametex )
-// e: 2017.01.09
-// Ketinit changed ( slidecolor )
-// e: 2017.01.08
-// Ketinit changed ( for presentation )
-// e: 2016.12.29
-// Anglemark changed ( for too short segment )
-// e: 2016.12.26
-// Cindypathname,Cindyfilename added
-// e: 2016.12.25
-// Setcindyname added
-// Only avalable when Cinderella has been started in terminal mode.
-// e: 2016.12.22
-// Changework changed ( ErrFlg=-1 if path not exists )
-// e: 2016.12.13
-// Changestyle changed ( "Shade" not removed from COM2ndlist)
-// Ketinit change ( CRmark added);
-// e: 2016.12.04
-// Bowdata debugged ( for 3 arguments )
-// Tab2list ( sep option added )
-// e: 2016.11.27
-// IntersectcrvsPp Changed ( for adjacent points )
-// e: 2016.11.22
-// Ovaldata debugged ( Double written to GLIST)
-// e: 2016.11.07
-// Enclosing changed ( back to old version)
-// e: 2016.11.05
-// Enclosing debugged
-// e: 2016.11.03
-// Integrate(0) debugged
-// e: 2016.11.01
-// Bowdata changed ( "Expr(rot)=t0n1(r),a" )
-// e: 2016.10.31
-// Bowdata,Anglemark changed ( Bpos )
-// e: 2016.10.30
-// Bowdata debugged ( Bname )
-// e: 2016.10.29
-// Framedata changed ( option for window size )
-// Anglemark debugged ( Bname )
-// e: 2016.10.21
-// Changework changed
-// e: 2016.10.20
-// Arrowdata debugged ( Scaling )
-// Enclosing debugged ( data passed directly )
-// e: 2016.10.19
-// Changework changed ( Case that directory not exists, java "iskcexists" )
-// e: 2016.10.16
-// ParamonCurve debugged (scaling)
-// e: 2016.10.14
-// Deqplot debugged (mistake of formula)
-// e: 2016.10.10
-// Arrowdata debugged ( for scaling)
-// e: 2016.10.07
-// Listplot,Lineplot,Circledata Framedata changed ( auto naming)
-// Polygonplot changed ( Putpoint )
-// Divoptions changed ( opcindy)
-// e: 2016.10.02
-// Changework debugged ( Fnametex)
-// e: 2016.09.28
-// tab2list debugged ( for option "Blank" )
-// e: 2016.09.25
-// small bug-fix
-// IntegrateO debugged
-// e: 2016.09.19
-// Tab2list changed ( for numbers / mac )
-// e: 2016.09.16
-// Dispmat added
-// e: 2016.09.01
-// Tab2list, Columnlist added
-// e: 2016.09.01
-// norm added
-// e: 2016.08.15
-// DqDq added
-// e: 2016.07.30
-// Changework changed (Dq)
-// e: 2016.07.23
-// Changework changed
-// e: 2016.07.21
-// basic2 : makeshell,makebat changed
-// e: 2016.06.28
-// StringinPar changed ( Chart implemented )
-// StringPar renamed to Pardiagram ( Chart => Fig )
-// Listplot changed (Message option 2chars => 1char)
-// e: 2016.06.23
-// StringinPar added
-// e: 2016.06.07
-// Mackc added
-// Changework changed (iskcexists )
-// e: 2016.06.06
-// Changework changed ( "c" removed )
-// e: 2016.06.04
-// Ketinit, Changework changed (kc )
-// setketcindy.txt changed , kc changed in KetcindyPlugin
-// e: 2016.05.31
-// Ketinit() changed ( Setwindow message=n )
-// e: 2016.05.29
-// Ketinit() changed ( for /Users )
-
-
-//////////////////
-// s: 2014.12.01 v1.0.0
-// e: 2014.12.03 v1.0.1
-// e: 2014.12.05 v1.0.2
-// Paramplot debugged ( negative number )
-// e: 2014.12.09 v1.1.0
-// Setscaling changed ( Setwindow() added )
-// Arrowdata debugged ( Arrowhead options )
-// Arrowheadata debugged (Scaling )
-// Writetosci changed (XMIN,... assigned )
-// Coordinate System changed
-// Pcrd used for GCLIST, Lcrd used calculating
-// Extractdata added
-// Plotdata debugged (Exc option)
-// Assign added
-// Plotdata, Paramplot changed ( Assign used )
-// e: 2014.12.11
-// Circledata through 3 pts supported
-// e: 2014.12.14
-// ReadOutData changed ( for 3d )
-// e: 2014.12.16 v1.1.1
-// nodata option added
-// Makeshell added
-// e: 2014.12.17
-// Extractdata changed (GLIST )
-// e: 2014.12.18
-// Exptractdata changed ( case of list length==1)
-// Integrate changed ( for scaling )
-// IntersectcrvPhy, Intersectcrv, Meetcurve changed ( for scaling)
-// Arrowheaddata debugged ( for scaling )
-// e: 2014.12.19
-// Windispg changed ( empty case )
-// hatchdata changed ( Extractdata used )
-// e: 2014.12.20
-// Assign debugged ( case of .x )
-// Plotdata, Paramplot changed ( Num changed to number of intervals )
-// e: 2014.12.21
-// ReadOutData changed ( comment if headchar="#" )
-// e: 2014.12.22
-// Windispg changed ( case of empty data )
-// ReadOutData debugged
-// Flattenlist, WriteOutData added
-// e: 2014.12.24
-// Divoptions added
-// Addgraph added ( need to be revised )
-// e: 2014.12.27
-// Dotprod, Crossprod moved from 3dlib
-// BezierCurve added
-// e: 2014.12.28
-// Bezier changed (2 & 3 )
-// e: 2014.12.30
-// ViewTeX added
-// Bezier changed ( choosable 2/3 )
-// Hatchdata debugged ( iostr to list )
-// v1.1.3
-// e: 2014.12.31
-// Bezier changed ( varirous forms of Num, ctrlist usable)
-// Pointdata changed ( opcindy supported )
-// e: 2015.01.01
-// Bezier(list) supported ([ptlist,ctrlist,name]);
-// Readpcsvsla, Putbezierdata added
-// e: 2015.01.02
-// Bezier changed ( corresponded to Bezier in ketsciL5.1.4 )
-// Mkbezierptcrv added
-// e: 2015.01.03
-// Mkbeziercrv added
-// Putbezierdata changed (option "Size=")
-// BezierNumber added to Ketinit
-// Mkbezierptcrv changed ( ptctrLL returned )
-// Shade changed ( case of not defined yet )
-// e: 2015.01.04 v1.1.4
-// ketcindylogo added
-// e: 2015.01.05
-// CRspline added
-// e: 2015.01.05
-// CRspline changed ( "Rat=" added )
-// Com2ndpre added ( ex) shade
-// e: 2015.01.07
-// Com2ndpre added
-// Shade changed ( Com2ndpre used );
-// Bzspline added
-// e: 2015.01.08
-// Shade (Com2nd ) restored
-// Bzsspline added
-// Bspline added ( Usui )
-// e:2015.01.11
-// Beziersmooth, Beziersym = Bzspline, Bzsspline
-// Arrowheaddata,Arrowhead, Arrowdata changed ( option etc)
-// e: 2015.01.12
-// Setunitlen changed (added to GLIST )
-// e: 2015.01.13
-// Makeshell, Makebat changed ( case of Texmain=="");
-// Divoptions used for options of all commands
-// e: 2015.01.14
-// Arrowhead debugged
-// e: 2015.01.15
-// Makesh, Makebat debugged and changed ( Warning message )
-// e: 2015.01.17
-// WriteOutData changed ( list of Gname permitted)
-// e: 2015.01.20
-// Setpt changed ( written to COM2nd )
-// AddGraph debugged & changed
-// e: 2015.01.22
-// AddGraph changed ( for, stringdata, for pointdata)
-// MeasureDepth changed ( singlepoint =0)
-// Mkbezierptcrv changed (label of points )
-// Setcolor changed ( Setcolor (ketpic)command supported)
-// e: 2015.01.27
-// Plist, Vlist changed (format(. , 5 ) used )
-// e: 2015.01.31
-// Windispg(pltlist) added (changed from Windispg(GoutL))
-// e: 2015.02.05
-// format(.., 5) changed ( to remove "i" )
-// e: 2015.02.06
-// Defvar(name,value) changed (parse executed )
-// WritetoSci changed ( VLIST )
-// e: 2015.02.08
-// Defvar(name,value) debugged
-// Bezierpt changed ( available for 3d )
-// e: 2015.02.09
-// Changestyle, ChangeTablestyle, Textformat added
-// Assign changed (Textformat used )
-// e: 2015.02.13
-// Tabledata, Putpttable changed ( made from up to down )
-// e: 2015.02.14
-// Putpttable changed ( R0 fixed )
-// e: 2015.02.15
-// Putpttable debugged
-// Mksegments, Mkcircles added
-// PtonLine, PtonSeg added
-// e: 2015.02.16
-// Finddef added
-// e: 2015.02.18
-// Rotatedata,... debugged ( for pdlist )
-// e: 2015.02.19
-// Findgeoinfo,Sortpointlist added
-// e: 2015.02.21
-// Pointdata changed ( for non list, and "size=" added )
-// e: 2015.02.22
-// Letter, Expr changed ( ` )
-// PtonLine,... renamed to PutonLine,..
-// Pne, Psw renamed to NE, SE
-// e: 2015.02.23
-// help(example) added
-// Mkbezierptcrv changed ( available for BezierNumber >26)
-// Makehelplist,Makecmdlist,Savecmdlist,Quicksort,Lessstr added
-// Helplist,Help added
-// e: 2015.02.24
-// Help ( PointonCurve ) revised
-// e: 2015.02.25 v1.2.1
-// Helplist changed
-// Dependgeo, Viewprocess added
-// e: 2015.02.27
-// Drawprocess renamed to Workprocess
-// Help changed ( Capital transform quitted )
-// e: 2015.02.28
-// Makecmd changed ( Dirlb )
-// Mkbezierptcrv debugged ( name )
-// Shade changed ( err message removed )
-// system help added
-// e: 2015.03.05
-// CRspline changed (cinderella options available )
-// e: 2015.03.06 v1.2.2
-// Findarea added
-// e: 2015.03.07
-// Findlength added
-// e: 2015.03.11 v1.2.3
-// Mkbezierptcrv changed ( A,... => a,... )
-// e: 2015.03.12
-// Bowdata debugged
-// e: 2015.03.24 v.1.2.4
-// Listplot changed ( for stringdata )
-// e: 2015.03.25
-// Enclosing changed ( implemented to Cindy )
-// e: 2015.04.06 v.1.2.5
-// Ketinit changed ( for Fhead not defined )
-// IntersectcrvsPp changed ( Dif option added )
-// EnclosingS changed
-// Letter, Expr changed ( options "nodisp" )
-// Textformat changed ( for point )
-// text => textformat
-// e: 2015.04.10 v.1.2.6
-// Textformat debugged
-// Writetosci changed ( ThisVersion written )
-// e: 2015.04.12
-// Anglemark debugged
-// Bowdata debugged
-// Ptend debugged
-// e: 2015.04.20 v1.2.7
-// Enclosing debugged
-// e: 2015.04.21
-// Setcolor changed (for [c,m,y,k] )
-// e: 2015.04.28 v1.2.8
-// Setcolorrgb added
-// Setcolor changed ( KCOLOR abolished )
-// e: 2015.05.04
-// Toupper, Definecolor added
-// e: 2015.05.11 v1.3.1
-// Widispg(Pdata) debugged
-// Framedata changed ( for Findcell )
-// e: 2015.05.15
-// Writesci changed (arccos,.. added )
-// Plotdata, Paramplot changed (for out/in )
-// Deqplot added ( only executed externally )
-// Hatchdata changed ( in and out executed as default)
-// Writetosci changed ( load only if the file exists )
-// e: 2015.20 v1.3.2
-// Framedata debugged
-// Plotdata,Paramplot changed (for outdata )
-// Divoptions changed (Out-, In- supported )
-// e: 2015.21 v1.3.3
-// Tabledatalight, Tablelightseg added
-// Tablelightdata, Tgrid, Tseginfo, Tlistplot, Tsegrmv added
-// Putcell, ChangeTablestyle changed ( for Tabledatalight )
-// Help changed ( Description added with ? )
-// e: 2015.23 v1.3.3
-// Helplist changed ( fileslist is not to be added )
-// Tabledata changed (similar to Tabledatalight )
-// Findcell debugged
-// Changestyle debugged
-// Changetablestyle changed
-// e: 2015.05.26 v1.4.1
-// Help of Hatchdata changed
-// Removespace added
-// Drawlinetype added
-// e: 2015.05.27 v1.4.1a
-// Com1st changed ( string is added to GLIST )
-// e: 2015.05.31 v1.4.2
-// Divoptions debugged
-// IntersectcrvsPp debugged (Dif -> 0.05 )
-// e: 2015.0602 v1.4.3
-// Divoptions debugged
-// e: 2015.06.02 v1.4.4
-// Writetosci changed ( for C version )
-// e: 2015.06.03 v1.4.5
-// Tlistplot changed ( for more than 2 points )
-// e: 2015.06.11
-// Talbedata debugged ( Setwindow )
-// Arrowdata changed ( listplot )
-// e: 2015.06.20 v1.4.6
-// Helplist debugged
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// Helplist changed
-// Makeshell, Makebat changed ( "..." )
-// e: 2015.07.06 v1.5.1
-// helpJ slighty changed
-// Assign debugged
-// Depplot changed ( realtime )
-// e: 2015.07.15
-// Presentation, Mkslides added
-// e: 2015.07.16 v 1.5.3
-// Mksh, Mkbat slightly changed
-// Hatchdata changed ( for "nodisp" )
-// e: 2015.07.21 v 1.5.4
-// Presendata changed ( for preample)
-// e: 2015.07.25
-// Pcrd changed ( re added for point )
-// e: 2015.07.26 v1.5.5
-// Drawsegmark, Parabolaplot, Putintersect added
-// e: 2015.07.27
-// Polygonplot, Drawsegmark added
-// e: 2015.07.28
-// Texmain renamed to Texparent
-// e: 2015.08.07 v1.5.6
-// Ellipseplot added
-// e: 2015.08.08
-// Hyperbolaplot added
-// Parabolaplot changed ( range )
-// e: 2015.08.09
-// Polygonplot changed ( options added )
-// help of Letterrot,Exprrot debugged
-// e: 2015.08.10
-// Ellipseplot changed ( range added )
-// e: 2015.08.14 v1.5.7
-// Mkslides debugged ( Texmain )
-// e: 2015.08.29
-// Ovaldata debugged
-// e: 2015.09.10 v1.6.0
-// WritetoR, kcR, PlotdataR added
-// e: 2015.09.12 v1.6.1
-// Writesci, Extractdata changed ( for length==1)
-// Partcrv, Enclosing debugged (for scaling )
-// e: 2015.09.13
-// CalcbyR added
-// e: 2015.09.14
-// Integrate changed ( Oshima rule implemented, Way => Rule )
-// Ospline added
-// e: 2015.09.15
-// Sprintf added ( = sprintf("%*.(dig)f") );
-// Assign changed ( multi assignment supported )
-// e: 2015.09.16 v1.6.2
-// KcR changed ( wait added )
-// PlotdataR, CalcbyR changed ( PathR set as defalt )
-// Boxplot added
-// e: 2015.09.17 v1.6.3
-// Histplot, Framedata2 added
-// Boxplot changed ( from file )
-// Boxplot added
-// e: 2015.09.18 v1.6.4
-// Rulerscale added
-// Tlisplot changed ( "Msg=no" added )
-// e: 2015.09.20 v1.6.5
-// CalcbyR changed ( in case of name is a number )
-// e: 2015.09.21
-// Ospline changed ( in case of non-closed )
-// e: 2015.09.23 v1.6.6
-// ColorRgb2Cmyk, ColorCmyk2Rgb, Colorinfile added
-// e: 2015.09.25
-// PlotdataR, CalcbyR changed ("make" option not needed )
-// e: 2015.09.29 v1.6.7
-// CalcbyR, Boxplot debugged/changed
-// Readcsv added
-// e: 2015.09.29 v1.6.8
-// Histplot debugged/changed
-// WritetoR debugged
-// e: 2015.09.30 v1.6.9
-// WritetoR changed ( "setwd" added )
-// PlotdiscR added
-// e: 2015.10.01 v1.6.9a
-// Readcsv changed ( for blank )
-// Scatterplot added
-// e: 2015.10.02 v1.6.9b
-// WritetoR,... changed ( options )
-// textformat changed ( Dq added for string )
-// CalcbyR chanded ( case of start with "=", name added )
-// e: 2015.10.03 v1.7.0
-// Histplot changed ( options for Listplot)
-// Writecsv added
-// e: 2015.10.04 v1.8.0
-// WritetoS, kcS, CalcbyS added
-// ReadOutData debugged ( for null data, and case of outdt is null )
-// e: 2015.10.05
-// CalcbyR, CalcbyS changed (deleting the file at first,
-// waiting until file generated )
-// PlotdataR, PlotdiscR, Readcsv, Boxplot, Histplot changed ( timing )
-// e: 2015.10.06
-// Implicitplot added ( using CalcbyS)
-// e: 2015.10.08 v1.8.1
-// kcR, kcS,... changed ( path of "kc" can be at any place, etc )
-// Colorcode added
-// e: 2015.10.13 v1.8.2
-// waiting added
-// WritetoR changed
-// PlotdataR debugged/changed
-// WaitUnit (global var ) added
-// e: 2015.10.15 v1.8.3
-// HatchdataS, MkprecommandS added
-// Histplot changed ( density options )
-// Scaledata, ... debugged ( in case of list)
-// Writecsv changed (option of "Col=" )
-// e: 2015.10.16
-// CalcbyS, CalcbyR, Hatchdata changed
-// e: 2015.10.17
-// Readcsv changed ( option "Head=" added )
-// e: 2015.10.19 v1.8.4
-// Colorcode changed (hsi,hwb supported)
-// e: 2015.10.22 v1.8.5
-// Boxplot, Histplot changed ( option "" )
-// OutFileLIst,Rform added
-// e: 2015.10.29 v1.8.6
-// WriteOutData changed (endmark //// )
-// ReadOutData changed (renewal )
-// CalcbyR, CalcbyS changed ( //// used)
-// ErrFlag are defined
-// e: 2015.10.31 v2.0.0
-// Bugs fixed
-// e: 2015.11.01 v2.0.1
-// CalcbyS changed ( for [[[ ... ]]] )
-// Hatchdata changed from HatchdataS
-// (Old version renamed to Hatchdata2 )
-// e: 2015.11.03 v2.0.2
-// Default of waiting raised
-// e: 2015.11.05 v2.1.0
-// lib divided to libbasic, libout
-// Use of cs changed
-// Mkhellp changed
-// Colorcode,... changed/debugged
-// Cindycolor added
-// e: 2015.11.06 v2.1.1
-// libbasic divided to libbasic1,libbasic2
-// Readcsv, .., changed ( for case of non-exiting file )
-// e: 2015.11.09 v2.1.2
-// helplist debugged
-// Getlinestyle debugged ( for id )
-// e: 2015.11.09 v2.1.3
-// Plotdata, Paramplot changed ( LFmark)
-// e: 2015.11.20 v2.2.1
-// Addcolor added
-// e: 2015.11.20 v2.2.2
-// Koutenseg, IntersectcrvsPp debugged (from Usui)
-// e: 2015.11.24 v2.2.3 ( out )
-// e: 2015.11.26
-// IntegrateO changed ( for a>b of range )
-// e: 2015.11.29 v2.2.5
-// basic2, out
-// example.txt adde
-// e: 2015.12.08 v2.2.6
-// basic2, out
-// e: 2015.12.12 v2.2.7
-// basic2, out ( autosetting )
-// e: 2015.12.14 v2.2.8
-// basic2, ( autosetting of slides)
-// e: 2015.12.23 v2.2.9
-// Listplot, Lineplot debugged ( precision)
-// Numcrv debugged (tmp)
-// e: 2016.01.07 v2.3.0
-// out (Mxtex)
-// e: 2016.01.10 v2.3.1
-// out (Mxtex,kcS)
-// e: 2016.01.12
-// basic2 (Viewtex)
-// e: 2016.01.18 v2.3.2
-// basic2 (Viewtex)
-// out ( Mxtex )
-// e: 2016.01.21 v2.3.3
-// Ptstart debugged
-// basic2 ( Drwxy,Sciform )
-// e: 2016.01.24 v2.3.4
-// Shade changed ( for non-string data )
-// 3d ( concatobj )
-// e: 2016.01.27
-// Invert debugged
-// Invert changed ( for a list of plotdata )
-// Listplot changed ("sg" not added when name starts with "-" )
-// Opcrvs added
-// e: 2016.01.29
-// Ovaldata debugged ( "nodisp" , Tex output)
-// e: 2016.01.29 v2.3.5
-// out
-// e: 2016.02.22
-// basic2, 3d, out
-// e: 2016.02.24
-// out
-// e: 2016.02.26
-// out
-// e: 2016.02.29 v2.3.7
-// GetLinestyle changed ( "sub..." not outputted to TeX )
-// out,3d
-// e: 2016.03.02
-// out,3d
-// e: 2016.03.03
-// out
-// e: 2016.03.05
-// basic2,out
-// e: 2016.03.07
-// basic2
-// e: 2016.03.10
-// integrateO changed ( for geo. point )
-// e: 2016.03.14
-// out
-// e: 2016.03.16
-// IntegralO debugged
-// e: 2016.03.17 v2.3.8
-// out
-// e: 2016.03.25 v2.3.9
-// basic2
-// e: 2016.03.26
-// out, basic2
-// e: 2016.03.27
-// out
-// e: 2016.03.28
-// basic2
-// Removespace debugged
-// e: 2016.04.01
-// mv
-// e: 2016.04.03
-// Partcrv debugged
-// e: 2016.04.04
-// Addgraph changed ( when data is a string )
-// e: 2016.04.05
-// Addgraph changed ( case data is a list of plotdata )
-// Chunderscore added
-// e: 2016.04.06
-// out (Hatchdata)
-// e: 2016.04.08
-// Ketinit() changed ( FigPdfList added )
-// e: 2016.04.09 v2.4.1
-// Setpen,Setpt changed ( PenThick, TenSize )
-// Arrowdata changed ( Arrow thickness/position for "l" )
-// Addgraph changed ( for non string data )
-// e: 2016.04.11
-// basic2(BBdata)
-// e: 2016.04.13
-// Changework added
-// e: 2016.04.15
-// out(Mkobj...)
-// e: 2016.04.17
-// basic2, out
-// e: 2016.04.23
-// Changework debugged
-// e: 2016.04.25
-// Changelib added
-// e: 2016.04.26
-// Indexall added
-// e: 2016.05.03
-// Nearestpt debugged
-// e: 2016.05.12
-// Parlevel added
-// e: 2016.05.16
-// Ketinit changed ( ADDPACK added)
-// e: 2016.05.22
-// Parlevel changed ( for any parenthes )
-// Bracket aded ( Parlevel renamed)
-// e: 2016.05.25
-// Op added
-////// To Reverse sequence //////
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt
index ea83f56d..b573897b 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1logr.txt
@@ -1,5 +1,49 @@
+// 2018.02.02
+// Enclosing2 changed (for distanted curves, startpt option removed )
+// 2018.02.01
+// Makehatch changed ( in accordance with Intersectseg )
+// 2018.01.30
+// Intersectseg changed ( for the case of no intersect )
+// 2018.01.29
+// Intersectpartseg changed ( for the case curves are strings )
+// Textformat changed ( for null list )
+// 2018.01.26
+// Enclosing2 (new enclosing ), Makehatch, Hatchdatacindy added
+// 2018.01.15
+// Setunitlen changed ( as R )
+// Ketinit changed (Marklennow,... added as R )
+// 2018.01.07
+// Collectnear added
+// Intersectcurves changed (Collectnear used)
+// 2018.01.05
+// Intersectcurves changed (LLcrd)
+// Intersectcurvespt added
+// Intersectpartseg debugged
+// Intersectline changed
+// s:2018.01.04
+// PointonCurve debugged ( t >=1, t<=length(g) )
+// Intersectcurves.... added
+// s:2017.12.27
+// Getcdyname(Cdyname) changed
+// s:2017.12.03
+// Ketinit changed (definition of LibnameS )
+// s:2017.12.01
+// Ketinit changed (to modify Dircdy )
+// s:2017.11.27
+// Setparent added ( for Texparent)
+// Getcdyname added ( name of the current cdy file)
+// s:2017.11.24
+// Changework changed ( for the case of double pathsep() in dir, subdir )
+// s:2017.11.20
+// Changework changed ( for the case of (ex) dir=".../" )
+// s:2017.11.12
+// Ketinit debugged (Fhead)
+// s:2017.10.24
+// Ketinit changed (Slidename added)
+// s:2017.10.23
+// Pointdata changed (for string )
// s:2017.10.14
-// Setfiles debugged
+// Ketinit() changed (Fhead)
// s:2017.10.13
// Ketinit() changed (definition of Shellparent,Shellchild)
// s:2017.10.07
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs
index e6e334eb..e70be8b1 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic1r.cs
@@ -14,9 +14,9 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("KETCindy V.3.1.0(2017.10.14)");
+println("KETCindy V.3.1.5(2018.02.02");
println(ketjavaversion());//17.06.05
-println("ketcindylibbasic1(2017.10.13) loaded");
+println("ketcindylibbasic1(2018.02.02) loaded");
//help:start();
@@ -44,7 +44,13 @@ Ketinit(sy,rangex,rangey):=(
regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc);
PenThickInit=8;
ULEN="1cm";
- MARKLEN=0.2; //16.11.01
+ MEMORI=0.05;//18.01.15from
+ MEMORIInit=MEMORI;
+ MEMORINow=MEMORI;
+ MARKLEN=0.05;
+ MARKLENInit=MARKLEN:
+ MARKLENNow= MARKLEN;
+ GENTEN=[0,0];//18.01.15upto
KETPICLAYER=20;
MilliIn=1/2.54*1000;
PenThick=round(MilliIn*0.02);
@@ -78,9 +84,16 @@ Ketinit(sy,rangex,rangey):=(
ADDPACK=[]; // 16.05.16
ErrFlag=0;
setdirectory(Dirwork);
- if(!isstring(Fhead), // 17.10.13from
+ if(!isstring(Fhead), // 17.10.13from, 17.11.12
Fhead=text(curkernel());
Fhead=replace(Fhead,".cdy","");
+ Slidename=Fhead; //17.10.24
+ );//17.11.12
+ if(isstring(Dircdy) & iswindows(), //17.12.01
+ Dircdy=replace(Dircdy,"/",pathsep());
+ if(substring(Dircdy,0,1)==pathsep(),
+ Dircdy=substring(Dircdy,1,length(Dircdy));
+ );
);
Fnametex=Fhead+".tex";
FnameR=Fhead+".r";
@@ -122,13 +135,22 @@ Ketinit(sy,rangex,rangey):=(
SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
letterc,mboxc,mboxc,mboxc,62,2,letterc];
ThinDense=0.1;//17.01.08
- if(indexof(PathS,"-6.")>0,//17.09.29
- if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0),
- LibnameS=Dirlib+pathsep()+"ketpicscifiles6";
- ,
- LibnameS=Dirlib+pathsep()+"ketpic2escifiles6";
- );
- );//17.09.29upto
+ if(indexof(PathS,"-5.")>0,//17.12.03from
+ LibnameS=Dirlib+pathsep()+"ketpicsciL5";
+ ,
+ LibnameS=Dirlib+pathsep()+"ketpicscifiles6";
+ );
+ if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")>0,
+ LibnameS=replace(LibnameS,"ketpic","ketpic2e");
+ );//17.12.03upto
+);
+
+Cdyname():=Getcdyname();
+Getcdyname():=( //17.12.27
+//help:Cdyname();
+ regional(out);
+ out=text(curkernel());
+ out=replace(out,".cdy","");
);
Setwindow():=Setwindow("Msg=yes");
@@ -174,11 +196,16 @@ Setfiles(file):=( // 17.01.16
//help:Setfiles(file);
Fhead=file;
Fnametex=Fhead+".tex";
- FnameR=Fhead+".sce";
+ FnameR=Fhead+".r"; //17.10.14
FnamebodyR=Fhead+"body.sce";
Fnameout=Fhead+".txt";
);
+Setparent(file):=( // 17.11.27
+//help:Setparent(file);
+ Texparent=file;
+);
+
Setcindyname():=Setcindyname("");//16.12.25
Setcindyname(file):=(
//help:Setcindyname("Fhead");
@@ -550,14 +577,33 @@ Changelib(path):=(
setdirectory(Dirwork); // 16.04.23
);
-Changework(path):=( //16.10.21
+Changework(dirorg):=( //16.10.21
//help:Changework(directory);
- regional(tmp);
- if(path=="" % !isexists(path,""),
- println("Directory "+path+" not exist, so set to "+Dirwork);
+ regional(dir,subdir,tmp);
+ dir=replace(dirorg,"/",pathsep());//17.11.20from
+ dir=replace(dir,"\",pathsep());
+ dir=replace(dir,pathsep()+pathsep(),pathsep());//17.11.24
+ tmp=length(dir);
+ if(substring(dir,tmp-1,tmp)==pathsep(),
+ dir=substring(dir,0,tmp-1);
+ );//17.11.20upto
+ tmp=Indexall(dir,pathsep()); //17.11.24from
+ subdir="";
+ if(length(tmp)>0,
+ tmp=tmp_(length(tmp));
+ subdir=substring(dir,tmp,length(dir));
+ dir=substring(dir,0,tmp-1);
+ ); //17.11.24upto
+ if(dir=="" % !isexists(dir,""),
+ println("Directory "+dir+" not exist, so set to "+Dirwork);
ErrFlag=-1;
,
- Dirwork=path;
+ if(length(subdir)>0, //17.11.24from
+ println(makedir(dir,subdir));
+ Dirwork=dir+pathsep()+subdir;
+ ,
+ Dirwork=dir;
+ ); //17.11.24upto
setdirectory(Dirwork);
if(!iswindows(), //17.04.11
if(!iskcexists(Dirwork),
@@ -769,7 +815,10 @@ Textformat(value,dig):=(
forall(value,
tmp1=tmp1+Textformat(#,dig)+",";
);
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
+ if(length(tmp1)>1, //18.01.29from
+ tmp1=substring(tmp1,0,length(tmp1)-1);
+ );
+ tmp1=tmp1+"]"; //18.01.29upto
,
if(ispoint(value) % isstring(value),
// vv=Lcrd(value);
@@ -1090,12 +1139,14 @@ ParamonCurve(pP,nN,plist):=(
);
Pointoncrv(tT,PtL):=PointonCurve(tT,PtL);
-PointonCurve(tT,Gdata):=(
+PointonCurve(tTorg,Gdata):=(
//help:PointonCurve(20.5,"gr1");
- regional(Out,Eps,nN,sS,Pa,Pb,PtL);
+ regional(tT,Out,Eps,nN,sS,Pa,Pb,PtL);
if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata);
if(length(PtL)==1,PtL=PtL_1);
- Eps=10^(-4);
+ tT=max([tTorg,1]); //18.01.04
+ tT=min([tT,length(PtL)]); //18.01.04
+ Eps=10^(-5); //18.01.04
nN=floor(tT+Eps);
sS=max([tT-nN,0]);
if(nN==length(PtL),
@@ -1218,6 +1269,8 @@ Koutenseg(pA,pB,pC,pD,options):=(
Out;
);
+///////// Start of old Intersect ////////////
+
IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]);
IntersectcrvsPp(Gr1,Gr2,options):=(
//help:IntersectcrvsPp("gr1","pa1");
@@ -1370,6 +1423,402 @@ Intersectcrvs(Gr1,Gr2,options):=(
tmp1=IntersectcrvsPp(Gr1,Gr2,options);
apply(tmp1,#_1);
);
+///////// End of old Intersect ////////////
+
+/////////// Start of new Intersect //////////////
+
+Intersectline(p1,v1,p2,v2):=(
+ regional(Eps,d,dt,ds,t,s,pt,out,tmp,tmp1,tmp2,tmp3);
+ Eps=10^(-5);
+ out=[];
+ tmp=Dotprod(v1,v2);
+ tmp1=[tmp,|v1|^2];
+ tmp2=[-|v2|^2,-tmp];
+ tmp3=[Dotprod(p2-p1,v2),Dotprod(p2-p1,v1)];
+ d=Crossprod(tmp1,tmp2);
+ tmp=abs(Crossprod(v1,v2));
+ if(tmp>Eps,
+ dt=Crossprod(tmp3,tmp2);
+ ds=Crossprod(tmp1,tmp3);
+ t=dt/d;
+ s=ds/d;
+ pt=p1+v1*t;
+ out=[pt,t,s];
+ ,
+ tmp1=Crossprod(p2-p1,v1)/|v1|; //18.01.05
+ out=[abs(tmp1)]; //18.01.05
+ );
+ out;
+);
+
+Intersectseg(seg1,seg2):=Intersectseg(seg1,seg2,0.01);
+Intersectseg(seg1org,seg2org,Eps1):=(
+ regional(Eps,seg1,seg2,p1,p2,q1,q2,t,s,pt,n,pts,out,dist,
+ tmp,tmp1,tmp2,tmp3);
+ Eps=10^(-4);
+ //Eps1=0.01;
+ seg1=seg1org;
+ seg2=seg2org;
+ if(isstring(seg1),seg1=parse(seg1));
+ if(isstring(seg2),seg2=parse(seg2));
+ out=[];
+ p1=seg1_1; q1=seg1_2;
+ p2=seg2_1; q2=seg2_2;
+ if((|q1-p1|<Eps)%(|q2-p2|<Eps),
+ out=[-1];
+ ,
+ tmp=Intersectline(p1,q1-p1,p2,q2-p2);
+ if(islist(tmp_1),
+ pt=tmp_1; t=tmp_2; s=tmp_3;
+ if((t*(t-1)<Eps)&(s*(s-1)<Eps),
+ out=[0,pt,t,s];
+ ,
+ t=min([max([t,0]),1]);
+ s=min([max([s,0]),1]);
+ tmp3=[|p1-p2|,|p1-q2|,|p2-p1|,|p2-q1|]; //18.01.30from
+ tmp1=[Op(2,q2-p2),-Op(1,q2-p2)];
+ tmp=Intersectline(p1,tmp1,p2,q2-p2);
+ if(islist(tmp_1),
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp3=append(tmp3,|tmp_1-p1|);
+ );
+ );
+ tmp=Intersectline(q1,tmp1,p2,q2-p2);
+ if(islist(tmp_1),
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp3=append(tmp3,|tmp_1-q1|);
+ );
+ );
+ tmp1=[Op(2,q1-p1),-Op(1,q1-p1)];
+ tmp=Intersectline(p2,tmp1,p1,q1-p1);
+ if(islist(tmp_1),
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp3=append(tmp3,|tmp_1-p2|);
+ );
+ );
+ tmp=Intersectline(q2,tmp1,p1,q1-p1);
+ if(islist(tmp_1),
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp3=append(tmp3,|tmp_1-q2|);
+ );
+ );
+ out=[min(tmp3),pt,t,s]; //18.01.30upto
+ );
+ ,
+ dist=tmp_1;
+ tmp1=q1-p1;
+ n=[tmp1_2,-tmp1_1]/|tmp1|;
+ pts=[];
+ tmp=Intersectline(p1,n,p2,q2-p2);
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp1=(1-tmp_3)*p2+tmp_3*q2;
+ pts=append(pts,[tmp1,0,tmp_3]);
+ );
+ tmp=Intersectline(q1,n,p2,q2-p2);
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp1=(1-tmp_3)*p2+tmp_3*q2;
+ pts=append(pts,[tmp1,1,tmp_3]);
+ );
+ tmp=Intersectline(p2,n,p1,q1-p1);
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp1=(1-tmp_3)*p1+tmp_3*q1;
+ pts=append(pts,[tmp1,tmp_3,0]);
+ );
+ tmp=Intersectline(q2,n,p1,q1-p1);
+ if(tmp_3*(tmp_3-1)<Eps,
+ tmp1=(1-tmp_3)*p1+tmp_3*q1;
+ pts=append(pts,[tmp1,tmp_3,2]);
+ );
+ if(length(pts)==0,
+ tmp1=min([|p2-p1|,|q2-p1|,|p2-q1|,|q2-q1|]);
+ out=[tmp1];
+ ,
+ if(dist>Eps1,
+ out=[dist];
+ ,
+ tmp=apply(pts,#_1_1);
+ tmp1=sum(tmp)/(length(pts));
+ tmp=apply(pts,#_1_2);
+ tmp2=sum(tmp)/(length(pts));
+ tmp3=[tmp1,tmp2];
+ tmp=Nearestpt(tmp3,seg1);
+ tmp1=tmp_2;
+ tmp=Nearestpt(tmp3,seg2);
+ tmp2=tmp_2;
+ out=[dist,tmp3,tmp1,tmp2];
+ );
+ );
+ );
+ );
+ out;
+);
+
+Osplineseg(list):=Osplineseg(list,[]);
+Osplineseg(ptlist,optionsorg):=(
+ regional(tmp,tmp1,tmp2,list,ptL,ctrL,Eps,Eps0,
+ p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32,out);
+ Eps=10^(-2);
+ Eps0=10^(-6);
+ if(isstring(ptlist),list=parse(ptlist),list=ptlist);
+ p0=list_1; p1=list_2; p2=list_3; p3=list_4;
+ tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
+ cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
+ pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
+ pR=p2+cc*(p1-p3); // 16.08.16
+ ctrL=[pQ,pR];
+ options=optionorg;
+ options=concat(options,["Num=20","nodata"]);
+ out=Bezier("",[p1,p2],ctrL,options);
+ out;
+);
+
+Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2):=(
+ Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,10*Eps2);
+);
+Intersectpartseg(crv1org,crv2org,ii,jj,Eps1,Eps2,Dist):=(
+ regional(crv1,crv2,Eps,dst,kk,ll,seg1,seg2,snang,
+ p0,p1,p2,p3,os1,os2,out,tmp,tmp1,tmp2,flg);
+ crv1=crv1org; crv2=crv2org;
+ if(isstring(crv1),crv1=parse(crv1));
+ if(isstring(crv2),crv2=parse(crv2));
+ Eps=10^(-4);
+// Eps1=0.01;
+// Eps2=0.1;
+// Dist=10*Eps2;
+ out=[];
+ seg1=[crv1_ii,crv1_(ii+1)];
+ seg2=[crv2_jj,crv2_(jj+1)];
+ tmp1=seg1_2-seg1_1;
+ tmp2=seg2_2-seg2_1;
+ snang=abs(Crossprod(tmp1,tmp2))/(norm(tmp1)*norm(tmp2));
+ tmp=Intersectseg(seg1,seg2,Eps1);
+ dst=tmp_1;
+ if(dst<Eps,
+ out=[tmp_2,ii+tmp_3,jj+tmp_4,dst,snang];
+ ,
+ if(dst<Eps2,
+ if((length(crv1)==2)%(|seg1_2-seg1_1|>Dist-Eps),
+ os1=seg1;
+ ,
+ p1=seg1_1; p2=seg1_2;
+ if(ii==1,
+ p3=crv1_3;
+ tmp=p2-p1;
+ tmp=(p1+p2)/2+[tmp_2,-tmp_1];
+ p0=Reflectpoint(p3,[(p1+p2)/2,tmp]);
+ ,
+ if(ii==length(crv1)-1,
+ p0=crv1_(ii-1);
+ tmp=p2-p1;
+ tmp=(p1+p2)/2+[tmp_2,-tmp_1];
+ p3=Reflectpoint(p0,[(p1+p2)/2,tmp]);
+ ,
+ p0=crv1_(ii-1); p3=crv1_(ii+2);
+ );
+ );
+ os1=Osplineseg([p0,p1,p2,p3]);
+ );
+ if((length(crv2)==2)%(|seg2_2-seg2_1|>Dist-Eps), //18.01.05
+ os2=seg2;
+ ,
+ p1=seg2_1; p2=seg2_2;
+ if(jj==1,
+ p3=crv2_3;
+ tmp=p2-p1;
+ tmp=(p1+p2)/2+[tmp_2,-tmp_1];
+ p0=Reflectpoint(p3,[(p1+p2)/2,tmp]);
+ ,
+ if(jj==length(crv2)-1,
+ p0=crv2_(jj-1);
+ tmp=p2-p1;
+ tmp=(p1+p2)/2+[tmp_2,-tmp_1];
+ p3=Reflectpoint(p0,[(p1+p2)/2,tmp]);
+ ,
+ p0=crv2_(jj-1); p3=crv2_(jj+2);
+ );
+ );
+ os2=Osplineseg([p0,p1,p2,p3]);
+ );
+ tmp2=[];
+ forall(1..(length(os1)-1),kk,
+ forall(1..(length(os2)-1),ll,
+ seg1=[os1_kk,os1_(kk+1)];
+ seg2=[os2_ll,os2_(ll+1)];
+ tmp=Intersectseg(seg1,seg2,Eps1);
+ if(tmp_1<Eps1,
+ if(tmp_1<dst+Eps,
+ dst=tmp_1;
+ tmp2=select(tmp2,#_1<dst);
+ tmp2=append(tmp2,[dst,tmp_2]);
+ );
+ );
+ );
+ );
+ if(length(tmp2)>0,
+ tmp=apply(tmp2,#_2_1);
+ tmp1=[sum(tmp)/length(tmp2)];
+ tmp=apply(tmp2,#_2_2);
+ tmp1=append(tmp1,sum(tmp)/length(tmp2));
+ out=[tmp1];
+ p1=crv1_ii; p2=crv1_(ii+1);
+ tmp=[Op(2,p2-p1),-Op(1,p2-p1)];
+ tmp=Intersectline(out_1,tmp,p1,p2-p1);
+ tmp=min([max([tmp_3,0]),1]);
+ out=[tmp1,ii+tmp];
+ p1=crv2_jj; p2=crv2_(jj+1);
+ tmp=[Op(2,p2-p1),-Op(1,p2-p1)];
+ tmp=Intersectline(out_1,tmp,p1,p2-p1);
+ tmp=min([max([tmp_3,0]),1]);
+ out=concat(out,[jj+tmp,dst,snang]);
+ );
+ );
+ );
+ out;
+);
+
+Collectnear(ptdL,Eps2):=(
+ regional(Eps,gL,rL,numL,ii,jj,flg,tmp,tmp1);
+ Eps=10^(-4);
+ gL=[ptdL_1];
+ rL=ptdL_(2..(length(ptdL)));
+ flg=0;
+ forall(1..(length(ptdL)-1),ii,
+ if(flg==0,
+ numL=[];
+ forall(1..(length(rL)),jj,
+ tmp1=100;
+ forall(gL,
+ tmp=|#_1-rL_jj_1|;
+ if(tmp<tmp1,tmp1=tmp);
+ );
+ if(tmp1<Eps2,numL=append(numL,jj));
+ );
+ if(length(numL)==0,
+ flg=1;
+ ,
+ gL=concat(gL,rL_(numL));
+ rL=remove(rL,rL_(numL));
+ );
+ );
+ );
+ [gL,rL];
+);
+
+IntersectcurvesPp(crv1org,crv2org):=IntersectcurvesPp(crv1org,crv2org,[]);
+IntersectcurvesPp(crv1org,crv2org,options):=(
+//help:IntersectcurvesPp(crv1,crv2);
+//help:IntersectcurvesPp(options=[Eps1(0.01),Eps2(0.1),Dist(2)])
+ regional(Eps,Eps1,Eps2,Dist,crv1,crv2,ii,jj,seg1,seg2,self,loopL,out,
+ flg,tmp,tmp1,tmp2);
+ Eps=10^(-4);
+ Eps1=0.01;
+ Eps2=0.1;
+ Dist=10*Eps2;
+ if(length(options)>0,
+ Eps1=options_1;
+ if(length(options)>1,
+ Eps2=options_2;
+ Dist=10*Eps2;
+ if(length(options)>2,
+ Dist=options_3;
+ );
+ );
+ );
+ if(isstring(crv1org),tmp1=parse(crv1org),tmp1=crv1org);//18.01.05from
+ if(isstring(crv2org),tmp2=parse(crv2org),tmp2=crv2org);
+ tmp1=apply(tmp1,LLcrd(#));
+ tmp2=apply(tmp2,LLcrd(#));
+ crv1=[tmp1_1];
+ forall(tmp1,
+ tmp=crv1_(length(crv1));
+ if(|tmp-#|>Eps,
+ crv1=append(crv1,#);
+ );
+ );
+ crv2=[tmp2_1];
+ forall(tmp2,
+ tmp=crv2_(length(crv2));
+ if(|tmp-#|>Eps,
+ crv2=append(crv2,#);
+ );
+ );//18.01.05upto
+ if(crv1==crv2,
+ self=1;
+ ,
+ self=0;
+ );
+ out=[];
+ forall(1..(length(crv1)-1),ii,
+ if(self==0,
+ loopL=1..(length(crv2)-1);
+ ,
+ loopL=(ii+2)..(length(crv2)-1);
+ );
+ forall(loopL,jj,
+ tmp=Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,Dist);
+ if(length(tmp)>0,
+ if(length(out)==0,
+ out=[tmp];
+ ,
+ tmp1=out_(length(out));
+ if(|tmp1_1-tmp_1|>Eps1,
+ out=append(out,tmp);
+ );
+ );
+ if(self==1,
+ tmp=[tmp_1,tmp_3,tmp_2,tmp_4,tmp_5];
+ out=append(out,tmp);
+ );
+ );
+ );
+ );
+ tmp2=out;
+ out=[];
+ tmp1=tmp2;
+ flg=0;
+ forall(1..(length(tmp2)),
+ if(flg==0,
+ tmp=Collectnear(tmp1,Eps2);
+ out=append(out,tmp_1);
+ if(length(tmp_2)==0,
+ flg=1;
+ ,
+ tmp1=tmp_2;
+ );
+ );
+ );
+ forall(1..(length(out)),ii,
+ tmp1=out_ii;
+ if(length(tmp1)==1,
+ out_ii=tmp1_1;
+ ,
+ tmp=apply(tmp1,#_4);
+ dst=min(tmp);
+ tmp1=select(tmp1,#_4<dst+Eps);
+ tmp=apply(tmp1,#_1);
+ tmp=sum(tmp)/length(tmp1);
+ tmp2=[tmp];
+ tmp=Nearestpt(tmp2_1,crv1org);
+ tmp2=append(tmp2,tmp_2);
+ tmp=Nearestpt(tmp2_1,crv2org);
+ tmp2=append(tmp2,tmp_2);
+ tmp2=concat(tmp2,[dst,tmp1_1_5]);
+ out_ii=tmp2;
+ );
+ );
+ out;
+);
+
+Intersectcurves(crv1org,crv2org):=Intersectcurves(crv1org,crv2org,[]);
+Intersectcurves(crv1org,crv2org,options):=(
+//help:Intersectcurves(crv1,crv2);
+//help:Intersectcurves(options=[Eps1(0.1),Dist(2)])
+ regional(tmp);
+ tmp=IntersectcurvesPp(crv1org,crv2org,options);
+ tmp=apply(tmp,#_1);
+);
+
+///////////End of new Intersect //////////////
NearestptcrvPhy(point,PL):=(
regional(tmp,pP,plist);
@@ -1790,10 +2239,57 @@ Drawlinetype(name,type):=(
);
);
-Setunitlen(string):=(
-//help:Setunitlen("5mm");
- ULEN=string;
- GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")");
+Setunitlen():=(
+ println(ULEN);
+);
+Setunitlen(UI):=(
+ regional(Dx,Dy,Sym,SL,OL,Is,VL,Ucode,ii,cha,
+ str,Unit,Valu,flg,tmp);
+ Dx=XMAX-XMIN;
+ Dy=YMAX-YMIN;
+ Sym=".0123456789 +-*/";
+ SL=Sym;
+ OL="+-*/";
+ if(length(UI)>0,
+ ULEN=UI;
+ GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")");
+ );
+ Is=1;
+ VL="";
+ Ucode=ULEN;
+ flg=0;
+ forall(1..(length(Ucode)),ii,
+ if(flg==0,
+ cha=substring(Ucode,ii-1,ii);
+ if(indexof(SL,cha)>0,
+ if(indexof(OL,cha)>0,
+ tmp=substring(Ucode,Is-1,ii);
+ str=VL+tmp+cha;
+ VL=str;
+ Is=ii+1;
+ );
+ ,
+ Unit=substring(Ucode,ii-1,ii+1);
+ str=substring(Ucode,Is-1,ii-1);
+ VL=VL+str;
+ flg=1;
+ );
+ );
+ );
+ Valu=parse(VL);
+ str=format(Valu,6);
+ ULEN=str+Unit;
+ if(Unit=="cm",MilliIn=1000/2.54*Valu);
+ if(Unit=="mm",MilliIn=1000/2.54*Valu/10);
+ if(Unit=="in",MilliIn=1000*Valu);
+ if(Unit=="pt",MilliIn=1000/72.27*Valu);
+ if(Unit=="pc",MilliIn=000/6.022*Valu);
+ if(Unit=="bp",MilliIn=1000/72*Valu);
+ if(Unit=="dd2",MilliIn=1000/1238/1157/72.27*Valu);
+ if(Unit=="cc",MilliIn=1000/1238/1157/72.27*12*Valu);
+ if(Unit=="sp",MilliIn=1000/72.27/65536*Valu/10);
+ MARKLEN=MARKLENNow*1000/2.54/MilliIn;
+ MEMORI=MEMORINow*1000/2.54/MilliIn;
);
Setmarklen(ratio):=(
@@ -2708,10 +3204,10 @@ Opcrvs(num,Fig,options):=(
Pointdata(nm,list):=Pointdata(nm,list,[]);
-Pointdata(nm,list,options):=(
+Pointdata(nm,listorg,options):=(
//help:Pointdata("1",[2,4],["Size=5"]);
//help:Pointdata("2",[[2,3],[4,1]]);
- regional(name,nameL,ptlist,opstr,opcindy,
+ regional(list,name,nameL,ptlist,opstr,opcindy,
eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg);
name="pt"+nm;
nameL=name+"L";
@@ -2732,6 +3228,7 @@ Pointdata(nm,list,options):=(
);
);
);
+ if(isstring(listorg),list=parse(listorg),list=listorg); //17.10.23
tmp=MeasureDepth(list);
if(tmp>0, // 2015.02.21
if(tmp==1,ptlist=list,ptlist=list_1);
@@ -2750,16 +3247,20 @@ Pointdata(nm,list,options):=(
tmp=nameL+"="+tmp3;
parse(tmp);
if(Noflg<3,
- tmp2="list("; //17.10.10from
- forall(list,
- if(isstring(#),
- tmp=#;
- ,
- if(ispoint(#),tmp=text(#),tmp=textformat(#,6));
+ if(isstring(listorg), //17.10.23
+ tmp2=listorg;
+ ,
+ tmp2="list("; //17.10.10from
+ forall(list,
+ if(isstring(#),
+ tmp=#;
+ ,
+ if(ispoint(#),tmp=text(#),tmp=textformat(#,6));
+ );
+ tmp2=tmp2+tmp+",";
);
- tmp2=tmp2+tmp+",";
+ tmp2=substring(tmp2,0,length(tmp2)-1)+")"; //17.10.10upto
);
- tmp2=substring(tmp2,0,length(tmp2)-1)+")"; //17.10.10upto
GLIST=append(GLIST,name+"=Pointdata("+tmp2+")");
);
if(Noflg<2,
@@ -4592,6 +5093,8 @@ Deqplot(nm,deqorg,rngorg,initt,initf,options):=( //17.10.06
);
);
+////////// old enclosing ///////////////
+
Enclosing(nm,plist):=EnclosingS(nm,plist);
Enclosing(nm,plist,options):=EnclosingS(nm,plist,options);
EnclosingS(nm,plist):=EnclosingS(nm,plist,[]);
@@ -4760,6 +5263,370 @@ EnclosingS(nm,plist,options):=(
tmp;
);
+/////////// new enclosing ///////////
+
+Enclosing2(nm,plist):=Enclosing2(nm,plist,[]);
+Enclosing2(nm,plistorg,options):=(
+//help:Enclosing2("1",["sc2","crAB","sc2","Invert(sc1)"]);
+//help:Enclosing2(options=[Eps1(0.01),Eps2(0.1)]);
+ regional(name,plist,AnsL,Start,Eps,Eps1,Eps2,flg,Fdata,Gdata,KL,
+ t1,t2,tst,ss,ii,nn,nxtno,Ltype,Noflg,realL,eqL,opstr,opcindy,
+ tmp,tmp1,tmp2);
+ name="en"+nm;
+ plist=plistorg;
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ eqL=tmp_5;
+ realL=tmp_6;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ Eps=10^(-5); // 16.12.05
+ Eps1=0.01;
+ Eps2=0.1;
+ Start=[];
+ flg=0;
+ forall(realL,
+ if(isList(#) % ispoint(#),
+// Start=Lcrd(#); // 18.02.02
+ ,
+ if(flg==0,Eps1=#);
+ if(flg==1,Eps2=#);
+ flg=flg+1;
+ );
+ );
+ flg=0;
+ AnsL=[];
+ if(length(plist)==1,
+ Fdata=parse(plist_1);
+ tmp1=Fdata_1;
+ tmp2=Fdata_(length(Fdata));
+ if(|tmp1-tmp2|<Eps,
+ AnsL=Fdata;
+ ,
+ AnsL=append(Fdata,tmp1);
+ );
+ flg=1;
+ );
+ if(flg==0,
+ Fdata=plist_1;
+ Gdata=plist_(length(plist));
+ KL=IntersectcurvesPp(Fdata,Gdata);
+ if(length(KL)==0,
+ tmp=parse(Gdata);
+ tmp1=LLcrd(Op(length(tmp),tmp)); //18.02.02from
+ tmp=parse(Fdata);
+ tmp2=LLcrd(Op(1,tmp));
+ tmp=Listplot(name,[tmp1,tmp2],["nodisp"]);
+ plist=append(plist,"sg"+name);
+ Start=tmp2;
+ tst=1; //18.02.02upto
+ ,
+ if(length(KL)==1,
+ tst=KL_1_2;
+ Start=Pointoncurve(tst,Fdata);
+ );
+ if(length(KL)>1,
+ KL=sort(KL,[#_2]);
+ if(Start==[],
+ tst=KL_1_2;
+ Start=Pointoncurve(tst,Fdata);
+ ,
+ tmp=apply(KL,|#_1-Start|);
+ tmp=min(tmp);
+ tmp1=select(KL,|#_1-Start|==tmp);
+ tst=tmp1_1_2;
+ Start=Pointoncurve(tst,Fdata);
+ );
+ );
+ );
+ );
+ if(flg==0,
+ t1=tst;
+ println("Start point of enclosing is "+text(Start));
+ forall(1..(length(plist)),nn,
+ Fdata=plist_nn;
+ if(nn==length(plist),nxtno=1,nxtno=nn+1);
+ Gdata=plist_nxtno;
+ KL=IntersectcurvesPp(Fdata,Gdata);
+ if(length(KL)==0,
+ tmp1=parse(Fdata); //18.02.02from
+ tmp2=parse(Gdata);
+ tmp2=Prepend(Op(length(tmp1),tmp),tmp2);
+ Gdata=replace(Gdata,"(","");
+ Gdata=replace(Gdata,")","");
+ tmp=Gdata+"="+textformat(tmp2,6);
+ parse(tmp);
+ plist_nxtno=Gdata;
+ t2=Length(tmp1);
+ ss=1; //18.02.02upto
+ ,
+ t2=KL_1_2;
+ ss=KL_1_3;
+ if(abs(t2-t1)<Eps,
+ if(length(KL)>1,
+ t2=KL_2_2;
+ ss=KL_2_3;
+ ,
+ println(text(nn)+" and "+text(nxtno)+" not intersect");
+ flg=1;
+ );
+ );
+ );
+ if(flg==0,
+ tmp=Partcrv("",t1,t2,Fdata,["nodata"]);
+ if(nn==1,
+ AnsL=tmp;
+ ,
+ AnsL=concat(AnsL,tmp_(2..(length(tmp))));
+ );
+ t1=ss;
+ );
+ );
+ );
+ if(flg==0,
+ AnsL=apply(AnsL,Pcrd(#));
+ );
+ if(Noflg<3,
+ println("generate Enclosing "+name);
+ tmp=name+"="+textformat(AnsL,5);
+ parse(tmp);
+ tmp=name+"=Enclosing2(";//16.11.07from
+ tmp1="list(";
+ forall(plistorg, //18.02.02
+ tmp1=tmp1+#+",";
+ );
+ tmp=tmp+substring(tmp1,0,length(tmp1)-1)+"))";//18.02.02
+ GLIST=append(GLIST,tmp);//16.11.07upto
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ tmp=apply(AnsL,LLcrd(#));//16.10.20
+ tmp;
+);
+
+/////////// end of new enclosing ///////////
+
+/////////// new Hatchdata(cindy) ///////////
+
+Makehatch(iolistorg,pt,vec,bdylist):=(
+ regional(Eps,iolist,sg,bdy,out,nb,tenL,ns,ne,ioL,
+ ii,jj,kk,nvec,nbdy,sgn1,sgn2,flg,rmL,p0,p1,p2,pL,
+ Scalebkup,tmp,tmp1,tmp2);
+ Eps=10^(-6);
+ nvec=[-vec_2,vec_1];
+ nvec=nvec/|nvec|;
+ if(!islist(iolistorg),iolist=[iolistorg],iolist=iolistorg);
+ forall(1..(length(iolist)),
+ tmp=replace(iolist_#,"i","1,");
+ tmp=replace(tmp,"o","0,");
+ tmp="["+substring(tmp,0,length(tmp)-1)+"]";
+ iolist_#=parse(tmp);
+ );
+ Scalebkup=SCALEY;
+ SCALEY=1;
+ sg=Lineplot("",[pt,pt+vec],["nodata"]);
+ nb=length(bdylist);
+ if(nb>0,
+ tenL=[];
+ forall(1..nb,ii,
+ rmL=[];
+ bdy=bdylist_ii;
+ nbdy=length(bdy)-1;
+ pL=[];
+ forall(1..nbdy,jj,
+ p1=bdy_jj;
+ p2=bdy_(mod(jj+1-1,nbdy)+1);
+ tmp=Intersectseg(sg,[p1,p2],Eps);
+ if(abs(tmp_1)<Eps, //18.02.01
+ p0=tmp_2; t=tmp_3; s=tmp_4;
+ pL=append(pL,[p0,t,s,ii]);
+ );
+ );
+ if(length(pL)>0,
+ pL=sort(pL,[#_2]);
+ pL=apply(1..(length(pL)),append(pL_#,mod(#,2)));
+ tenL=concat(tenL,pL);
+ );
+ );
+ tenL=sort(tenL,[#_2]);
+ ioL=apply(1..nb,0);
+ ns=1;
+ ne=length(tenL);
+ if(ne>0,tmp=tenL_1_1,tmp=sg_2);
+ if(|sg_1-tmp|>Eps,
+ tmp=[sg_1,-1,1,ioL];
+ tenL=prepend(tmp,tenL);
+ ns=ns+1;
+ ne=ne+1;
+ );
+ if(|sg_2-tenL_(length(tenL))_1|>Eps,
+ tmp=[sg_2,-1,2,ioL];
+ tenL=append(tenL,tmp);
+ );
+ forall(ns..ne,ii,
+ tmp=tenL_ii;
+ tmp1=tmp_4;
+ tmp2=tmp_5;
+ ioL_tmp1=tmp2;
+ tmp=[tmp_1,tmp_2,tmp_4,ioL];
+ tenL_ii=tmp;
+ );
+ out=[];
+ forall(1..(length(tenL)-1),ii,
+ tmp1=tenL_ii;
+ if(contains(iolist,tmp1_4),
+ tmp2=tenL_(ii+1);
+ tmp=Listplot("",[tmp1_1,tmp2_1],["nodata"]);
+ out=append(out,tmp);
+ );
+ );
+ );
+ SCALEY=Scalebkup;
+ out;
+);
+
+Hatchdatacindy(nm,iostr,bdylist):=Hatchdatacindy(nm,iostr,bdylist,[]);
+Hatchdatacindy(nm,iostr,bdylistorg,options):=(
+//help:Hatchdatacindy("1",["ii"],[["ln1","Invert(gr1)"],["gr2","n"]]);
+//help:Hatchdatacindy(options=[angle,width]);
+ regional(name,bdylist,bdynameL,bname,Ltype,Noflg,opstr,opcindy,reL,startP,angle,
+ interval,vec,nvec,flg,pt,kk,delta,sha,AnsL,tmp,tmp1,tmp2);
+ name="ha"+nm;
+ bdylist=[];
+ bdynameL=[];
+ forall(1..(length(bdylistorg)),kk,
+ tmp1=bdylistorg_kk;
+ if(length(tmp1)==1,
+ bname=tmp1_1;
+ ,
+ tmp=tmp1_(length(tmp1));
+ if(contains(["n","s","e","w"],tmp),
+ tmp2=parse(tmp1_1);
+ if(tmp=="s",
+ Listplot(name,[LLcrd(tmp2_1),[tmp2_1_1,YMIN],
+ [tmp2_(length(tmp2))_1,YMIN],LLcrd(tmp2_(length(tmp2)))],["nodisp"]);
+ Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]);
+ bname="join"+text(kk)+name;
+ );
+ if(tmp=="n",
+ Listplot(name,[LLcrd(tmp2_1),[tmp2_1_1,YMAX],
+ [tmp2_(length(tmp2))_1,YMAX],LLcrd(tmp2_(length(tmp2)))],["nodisp"]);
+ Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]);
+ bname="join"+text(kk)+name;
+ );
+ if(tmp=="e",
+ Listplot(name,apply([tmp2_1,[XMAX,tmp2_1_2],
+ [XMAX,tmp2_(length(tmp2))_2],tmp2_(length(tmp2))],LLcrd(#)),["nodisp"]);
+ Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]);
+ bname="join"+text(kk)+name;
+ );
+ if(tmp=="w",
+ Listplot(name,apply( [tmp2_1,[XMIN,tmp2_1_2],
+ [XMIN,tmp2_(length(tmp2))_2],tmp2_(length(tmp2))],LLcrd(#)),["nodisp"]);
+ Joincrvs(text(kk)+name,[tmp1_1,"sg"+name],["nodisp"]);
+ bname="join"+text(kk)+name;
+ );
+ ,
+ Enclosing2(text(#)+name,tmp,["nodisp"]);
+ bname="en"+text(#)+name;
+ );
+ );
+ bdylist=append(bdylist,parse(bname));
+ bdynameL=append(bdynameL,bname);
+ );
+ tmp=Divoptions(options);
+ Ltype=tmp_1;
+ Noflg=tmp_2;
+ opstr=tmp_(length(tmp)-1);
+ opcindy=tmp_(length(tmp));
+ reL=tmp_6;
+ angle=45;
+ interval=0.125*1000/2.54/MilliIn;
+ startP=[(XMIN+XMAX)/2, (YMIN+YMAX)/2];
+ tmp1=1;
+ forall(reL,
+ if(islist(#),
+ startP=#;
+ ,
+ if(tmp1==1,
+ angle=#;
+ tmp1=tmp1+1;
+ ,
+ interval= interval*#;
+ );
+ );
+ );
+ angle=angle*pi/180;
+ vec=[cos(angle),sin(angle)];
+ nvec=[-sin(angle),cos(angle)];
+ AnsL=[];
+ flg=0;
+ forall(0..100,kk,
+ pt=startP+kk*interval*nvec;
+ if(flg==0,
+ sha=Makehatch(iostr,pt,vec,bdylist);
+ if((sha==-1)%(length(sha)==0),
+// flg=1;
+ ,
+ AnsL=concat(AnsL,sha);
+ );
+ );
+ );
+ flg=0;
+ forall(1..100,kk,
+ pt=startP-kk*interval*nvec;
+ if(flg==0,
+ sha=Makehatch(iostr,pt,vec,bdylist);
+ if((sha==-1)%(length(sha)==0),
+// flg=1;
+ ,
+ AnsL=concat(AnsL,sha);
+ );
+ );
+ );
+ if(Noflg<3,
+ println("generate Hatchdata "+name);
+ tmp=name+"="+textformat(AnsL,5);
+ parse(tmp);
+ if(!islist(iostr),tmp1=[iostr],tmp1=iostr);
+ tmp="c(";
+ forall(tmp1,
+ tmp=tmp+Dq+#+Dq+",";
+ );
+ tmp=substring(tmp,0,length(tmp)-1)+")";
+ tmp2=name+"=Hatchdata("+tmp;
+ forall(bdynameL,
+ tmp2=tmp2+",list("+#+")";
+ );
+ tmp2=tmp2+opstr+")";
+ GLIST=append(GLIST,tmp2);
+ );
+ if(Noflg<2,
+ if(isstring(Ltype),
+ Ltype=GetLinestyle(text(Noflg)+Ltype,name);
+ ,
+ if(Noflg==1,Ltype=0);
+ );
+ GCLIST=append(GCLIST,[name,Ltype,opcindy]);
+ );
+ tmp2=[];
+ forall(AnsL,tmp1,
+ tmp=apply(tmp1,LLcrd(#));
+ tmp2=append(tmp2,tmp);
+ );
+ tmp2;
+);
+
+/////////// end of new Hatchdata(cindy) ///////////
+
+
Shade(plist):=Shade(plist,[]);
Shade(plist,options):=(
//help:Shade(["gr2","sg1"],[0.5]);
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs
deleted file mode 100644
index 68775f1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2.cs
+++ /dev/null
@@ -1,5141 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindybasic2(2017.08.23) loaded");
-
-//help:start();
-
-Dispchoice():=(
- if(islist(Ch),
- if(!isreal(ChNum),ChNum=1);
- drawtext(mouse().xy,"Ch="+text(Ch)+" N="+text(ChNum),size->24,color->[0,0,1]);
- );
-);
-
-Datetime():=(
-//help:Datetime();
- regional(names,dt,tmp);
- tmp=getdatetime();
- dt=tokenize(tmp," ");
- dt=apply(dt,if(!isstring(#),text(#),#));
- names=["Jan","Feb","Mar","Apr","May","Jun",
- "Jul","Aug","Sep","Oct","Nov","Dec"];
- tmp=select(1..12,names_#==dt_2);
- tmp=text(tmp_1);
- tmp=[dt_6+"/"+tmp+"/"+dt_3,dt_4];
-);
-
-Rotatepoint(point,Theta,ctr):=(
-//help:Rotatepoint(A,2*pi/3,B);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(ctr);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- [X2,Y2];
-);
-
-Translatepoint(point,mov):=(
-//help:Translatepoint(A,[2,3]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- X2=X1+Cx;
- Y2=Y1+Cy;
- [X2,Y2];
-);
-
-Scalepoint(point,ratio,center):=(
-//help:Scalepoint(A,[3,2],[0,0]);
- regional(X1,X2,Y1,Y2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- tmp=Lcrd(center);
- Cx=tmp_1; Cy=tmp_2;
- X2=Cx+ratio_1*(X1-Cx);
- Y2=Cy+ratio_2*(Y1-Cy);
- [X2,Y2];
-);
-
-Reflectpoint(point,symL):=(
-//help:Reflectpoint(A,B);
-//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
- regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
- tmp=Lcrd(point);
- X1=tmp_1; Y1=tmp_2;
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- [X2,Y2];
-);
-
-Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]);
-Rotatedata(nm,plist,angle,options):=(
-//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]);
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL,
- opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="rt"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,Pt=Lcrd(tmp1_1));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- if(isstring(angle),Theta=parse(angle),Theta=angle);
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Rotatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Translatedata(nm,plist,mov):=Translatedata(nm,plist,mov,[]);
-Translatedata(nm,plist,mov,options):=(
-//help:Translatedata("1",["gr1"],[1,2]);
- regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj,
- opcindy,X2,Y2,Ltype,Noflg,name);
- name="tr"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- tmp=Lcrd(mov);
- Cx=tmp_1; Cy=tmp_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=tmp_1+Cx;
- Y2=tmp_2+Cy;
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Translatedata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Translatedata("+tmp1+","+textformat(mov,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Scaledata(nm,plist,ratioV):=(
- regional(tmp);
- tmp=Lcrd(ratioV);
- Scaledata(nm,plist,tmp_1,tmp_2,[]);
-);
-Scaledata(nm,plist,Arg1,Arg2):=(
-//help:Scaledata("1","crAB",3,2,[[0,0]]);
- regional(tmp,options);
- if(islist(Arg2),
- tmp=Lcrd(Arg1);
- options=Arg2;
- Scaledata(nm,plist,tmp_1,tmp_2,options);
- ,
- Scaledata(nm,plist,Arg1,Arg2,[]);
- );
-);
-Scaledata(nm,plist,rx,ry,options):=(
- regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name);
- name="sc"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- Pt=Lcrd(tmp1_1);
- );
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Cx=Pt_1; Cy=Pt_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X2=Cx+rx*(tmp_1-Cx);
- Y2=Cy+ry*(tmp_2-Cy);
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Scaledata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]);
-Reflectdata(nm,plist,symL,options):=(
-//help:Reflectdata("1","crAB",[C]);
- regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL,
- opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name);
- name="re"+nm;
- Pt=[0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- pdata=plist;
- if(isstring(pdata),pdata=[pdata]);
- if(!isstring(pdata_1) & MeasureDepth(pdata)==1,
- pdata=[pdata];
- );
- Pt1=Lcrd(symL_1);
- if(length(symL)==1,
- Pt2=Pt1;
- ,
- Pt2=Lcrd(symL_2);
- );
- Us=Pt2_1-Pt1_1;
- Vs=Pt2_2-Pt1_2;
- PdL=[];
- forall(pdata,Njj,
- if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
- if(MeasureDepth(Kj)==1,Kj=[Kj]);
- tmp2=[];
- forall(Kj,Nj,
- tmp1=[];
- forall(Nj,
- tmp=LLcrd(#);
- X1=tmp_1;
- Y1=tmp_2;
- if(Pt1==Pt2,
- X2=2*Pt1_1-X1;
- Y2=2*Pt1_2-Y1;
- ,
- X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1
- -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1
- +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2);
- );
- tmp1=concat(tmp1,[[X2,Y2]]);
- );
- tmp2=concat(tmp2,[tmp1]);
- );
- PdL=concat(PdL,tmp2);
- );
- if(Noflg<3,
- println("generate Reflectdata "+name);
- tmp1=[];
- forall(PdL,tmp2,
- tmp=apply(tmp2,Pcrd(#));
- tmp1=append(tmp1,tmp);
- );
- if(length(tmp1)==1,tmp1=tmp1_1);
- tmp=name+"="+textformat(tmp1,5);
- parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- PdL;
-);
-
-Mksegments():=Mksegments([]);
-Mksegments(options):=(
-//help:Mksegments();
- regional(segstr,p,q,r,tmp1,tmp2,tmp3);
- forall(allsegments(),seg,
- str=text(inspect(seg,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Listplot([parse(p),parse(q)]);
- );
-);
-
-Mkcircles():=Mkcircles([]);
-Mkcircles(options):=(
-//help:Mkcircles():
- regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4);
- forall(allcircles(),cir,
- str=text(inspect(cir,"definition"));
- tmp1=indexof(str,"(");
- tmp2=indexof(str,";");
- tmp3=indexof(str,")");
- tmp4=indexof(str,";",tmp2+1);
- if(tmp4==0,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp3-1);
- Circledata([parse(p),parse(q)]);
- ,
- p=substring(str,tmp1,tmp2-1);
- q=substring(str,tmp2,tmp4-1);
- r=substring(str,tmp4,tmp3-1);
- Circledata([parse(p),parse(q),parse(r)]);
- );
- );
-);
-
-Makesciarg(arglist):=(
- regional(str,tmpstr);
- str="";
- forall(arglist,
- if(isstring(#),
- tmpstr=Dq+#+Dq;
- ,
- tmpstr=textformat(#,5);
- );
- str=str+tmpstr+",";
- );
- str=substring(str,0,length(str)-1);
- str;
-);
-
-Setax(arglist):=(
-//help:Setax(["l","x","e","y","n","O","sw"]);
-//help:Setax([7,"nw"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com1st("Setax("+tmp+")");
-);
-
-Htickmark(arglist):=(
-//help:Htickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp="";
- tmp=Makesciarg(arglist);
- Com2nd("Htickmark("+tmp+")");
-);
-
-Vtickmark(arglist):=(
-//help:Vtickmark([1,"1",2,"sw","2"]);
- regional(tmp);
- tmp=Makesciarg(arglist);
- Com2nd("Vtickmark("+tmp+")");
-);
-
-Vtick(py):=Vtick(py,MARKLEN,[]);
-Vtick(py,len):=Vtick(py,len,[]);
-Vtick(py,len,options):=(
-//help:Vtick(1,0.1,options);
- regional(tmp,tmp1,tmp2);
- tmp="v"+text(round(py*100));
- tmp=replace(tmp,"-","m");
- tmp1=[0-len/2,py];
- tmp2=[0+len/2,py];
- Listplot(tmp,[tmp1,tmp2],options);
-);
-
-Htick(px):=Htick(px,MARKLEN,[]);
-Htick(px,len):=Htick(px,len,[]);
-Htick(px,lenorg,options):=(
-//help:Htick(-1,0.1,options);
- regional(len,tmp,tmp1,tmp2);
- tmp=LLcrd([0,lenorg]);
- len=tmp_2;
- tmp="h"+text(round(px*100));
- tmp=replace(tmp,"-","m");
- tmp1=[px,0-len/2];
- tmp2=[px,0+len/2];
- Listplot(tmp,[tmp1,tmp2],options);
-);
-
-Drwxy():=(
-//help:Drwxy();
- Com2nd("Drwxy()");
- Addax(0); // 16.01.21
-);
-
-Drwpt(pstr):=Drawpoint(pstr);
-Drwpt(ptlist,nn):=( // 16.03.05 from
-//help:Drwpt(A);
-//help:Drwpt("[1,1],0");
-//help:Drwpt(A,0);
-//help:Drwpt([1,2],0);
- Drawpoint(ptlist,nn);
-);
-Drawpoint(pstr):=(
- if(isstring(pstr),
- println("Drwpt : "+pstr);
- Com2nd("Drwpt("+pstr+")");
- ,
- Drawpoint(pstr,1);
- );
-);
-Drawpoint(ptlistorg,nn):=(
- regional(ptlist,thick,tmp,tmp1);
- println("Drwpt : "+text(ptlistorg));
- if(islist(ptlistorg),
- if(MeasureDepth(ptlistorg)==1,
- ptlist=ptlistorg
- ,
- ptlist=[ptlistorg]
- );
- ,
- ptlist=[ptlistorg]
- );
- thick=PenThick/PenThickInit;// 16.04.09 from
- tmp1=max(TenSize/TenSizeInit,1)/8;
- Setpen(tmp1); // 16.04.09 upto
- forall(ptlist,
- tmp=textformat(#,5)+","+text(nn);
- Com2nd("Drwpt("+tmp+")"); // 16.04.09
- );
- Setpen(thick); // 16.04.09
-);// 16.03.05 upto
-
-Addax(param):=(
-//help:Addax(0);
- ADDAXES=textformat(param,5);
-);
-
-Expr(Pt,Dr,St):=Expr([Pt,Dr,St]);
-Expr(list):=Expr(list,[]);
-Expr(listorg,options):=( //16.10.09
-//help:Expr([A,"e","f(x)=x^2"]);
- regional(list,str,tmp,tmp1,tmp2);
- list=listorg;
- forall(1..round(length(list)/3),
- str=list_(3*#);
- if(!isstring(str),str=format(str,5));
- str="$"+str+"$";
- list_(3*#)=str;
- );
- Letter(list,options);
-);
-
-Letter(Pt,Dr,St):=Letter([Pt,Dr,St]);
-Letter(list):=Letter(list,[]);
-Letter(list,options):=(
-//help:Letter([C,"c","Graph of f(x)"]);
- regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy,
- opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2);
- tmp=Divoptions(options);
- Noflg=tmp_2;
- opL=select(options,indexof(#,"->")>0); //16.10.09from
- tmp=select(opL,indexof(#,"color"));
- size=12;
- clr=[0,0,0];
- bld=false;
- ita=false;
- aln="left";
- forall(opL,
- tmp=indexof(#,"->");
- tmp1=removespace(substring(#,0,tmp-1));
- tmp2=substring(#,tmp+1,length(#));
- if(tmp1=="size",sz=parse(tmp2));
- if(tmp1=="color",clr=parse(tmp2));
- if(tmp1=="bold",bld=parse(tmp2));
- if(tmp1=="ita",ita=parse(tmp2));
- );//16.10.09upto
- Off=-4;
- Dmv=8;
- Nj=1;
- while(Nj+2<=length(list),
-// Pos=textformat(list_Nj,5);
- Pos=list_Nj;
- Dir=list_(Nj+1);
- tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from
- if(tmp>0,
- tmp=indexof(Dir,"w")+indexof(Dir,"e");
- if(tmp==0,
- Dir="c"+Dir;//16.10.08
- );
- );//16.10.19upto
- Str=list_(Nj+2);
- if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09
- tmp=replace(Str,".xy","");
- tmp=replace(tmp,".x","(1)");
- Str=replace(tmp,".y","(2)");
- if(indexof(Str,"`")>0,
-// tmp=Dq+",Assign('"+Str+"','`',Prime()))";
- tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22
- ,
- tmp=Dq+","+Dq+Str+Dq+")";
- );
- if(Noflg==0,
- Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10
- );
- if(Noflg<2,
- Xmv=0;//16.10.13
- Ymv=-4;
- if(indexof(Dir,"n")>0,
- Ymv=Dmv/2;
- );
- if(indexof(Dir,"s")>0,
- Ymv=-Dmv*3/2;//16.10.13
- );
- if(indexof(Dir,"e")>0,
- Xmv=Dmv/2;
- Off=0;
- aln="left";
- );
- if(indexof(Dir,"w")>0,
- Xmv=-Dmv/2;
- Off=0; // 16.09.30from
- aln="right";
- );
- if(indexof(Dir,"c")>0,
- Xmv=0;//16.10.13
- Off=0;
- if(Ymv==0,Ymv=-4);//16.10.08
- aln="mid"; // 16.09.30upto
- );
- drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
- size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
- );
- Nj=Nj+3;
- );
-);
-
-Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str);
-Letterrot(pt,dir,movstr,str):=(
-//help:Letterrot(C,B-A,"AB"):
-//help:Letterrot(C,B-A,0,5,"AB"):
-//help:Letterrot(C,B-A,"t0n5","AB"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Letterrot(pt,dir,tmov,nmov,str);
-);
-Letterrot(pt,dir,tmov,nmov,str):=(
- Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
-Exprrot(pt,dir,movstr,str):=(
-//help:Exprrot(C,B-A,"d"):
-//help:Exprrot(C,B-A,0,5,"d"):
-//help:Exprrot(C,B-A,"t0n5","d"):
- regional(tmov,nmov,tmp,tmp1,tmp2);
- tmp1=indexof(movstr,"t");
- tmp2=indexof(movstr,"n");
- if(tmp1>0,
- if(tmp2>0,tmp=tmp2-1,tmp=length(movstr));
- tmov=parse(substring(movstr,tmp1,tmp));
- ,
- tmov=0;
- );
- if(tmp2>0,
- nmov=parse(substring(movstr,tmp2,length(movstr)));
- ,
- nmov=0;
- );
- Exprrot(pt,dir,tmov,nmov,str);
-);
-Exprrot(pt,dir,tmov,nmov,str):=(
- Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
-);
-
-Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2);
-Slider(ptstr,p1,p2):=( //17.04.11
-//help:Slider("A-C-B",[-3,0],[3,0]);
- regional(pA,pB,pC,seg,sname,Alpha,tmp,tmp1);
- tmp=indexall(ptstr,"-");
- pA=substring(ptstr,0,tmp_1-1);
- pC=substring(ptstr,tmp_1,tmp_2-1);
- pB=substring(ptstr,tmp_2,length(ptstr));
- seg=pA+pB;
- Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
- sname="";
- forall(1..(length(seg)),
- tmp=substring(seg,#-1,#);
- tmp1=indexof(Alpha,tmp);
- if(tmp1>0,
- sname=sname+unicode(text(tmp1+96),base->10);
- ,
- sname=sname+tmp;
- );
- );
- Putpoint(pA,p1);
- Putpoint(pB,p2);
- Listplot([parse(pA),parse(pB)],["notex","color->[0,0.4,0.4]","size->2"]);
-// create([sname],"Segment",[parse(pA),parse(pB)]);
-// tmp2=Listplot("",[p1,p2],["nodata"]);
- Putonseg(pC,parse("sg"+pA+pB));
-// create([pC],"PointOn",[parse(sname),0.5]);
-);
-
-Putpoint(name,Pt):=Putpoint(name,Pt,Pt);
-Putpoint(name,Ptinit,Pt):=(
-//help:Putpoint("A",[1,2],[1,A.y]);
- regional(ptstr);
- ptstr=apply(allpoints(),#.name);//16.10.06
- if(!contains(ptstr,name),
- createpoint(name,Pcrd([Ptinit_1,Ptinit_2]));
- ,
- ptstr=name+".xy="+textformat(Pcrd(Pt),5);
- parse(ptstr);
- );
-);
-
-Bezierpt(t,ptlist,ctrlist):=(
- regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9);
- p0=ptlist_1;
- p3=ptlist_2;
- p1=ctrlist_1;
- if(length(ctrlist)==1,
- p2=p3;
- flg3=0;
- ,
- p2=ctrlist_2;
- flg3=1;
- );
- if(length(p0)<3, // 15.02.08
- p0=Lcrd(p0);
- p3=Lcrd(p3);
- p1=Lcrd(p1);
- p2=Lcrd(p2);
- );
- p4=(1-t)*p0+t*p1;
- p5=(1-t)*p1+t*p2;
- p6=(1-t)*p2+t*p3;
- p7=(1-t)*p4+t*p5;
- p8=(1-t)*p5+t*p6;
- p9=(1-t)*p7+t*p8;
- if(flg3==0,p7,p9);
-);
-
-Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]);
-Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options);
-Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options);
-BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]);
-BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
-//help:Bezier("1",[A,D],[B,C]);
-//help:Bezier(options=["Num=10"]);
- regional(name,Ltype,Noflg,opstr,opcindy,Num,
- ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list);
- name="bz"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Num=10;
- tmp1=tmp_5;
- forall(tmp1, // 14.12.31
- if(substring(#,0,1)=="N",
- tmp2=indexof(#,"=");
- Num=parse(substring(#,tmp2,length(#)));
- opstr=opstr+","+Dq+#+Dq;
- );
- );
- ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16
- ctrlist=[]; // 14.12.31
- if(length(ctrlistorg)==length(ptlist)-1,
- forall(ctrlistorg,tmp1,
- if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1);
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- ,
- forall(1..(length(ptlist)-1),ii,
- tmp=ctrlistorg_((2*ii-1)..(2*ii));
- tmp=apply(tmp,Lcrd(#)); // 16.08.16
- ctrlist=append(ctrlist,tmp);
- );
- );
- if(!islist(Num),
- Num=apply(ctrlist,Num);
- );
- list=[];
- forall(1..(length(ptlist)-1),ii,
- tmp1=ptlist_(ii..(ii+1));
- tmp2=ctrlist_ii;
- if(ii==1,st=0,st=1);
- forall(st..Num_ii,
- tmp=Bezierpt(#/Num_ii,tmp1,tmp2);
- list=append(list,tmp);
- );
- );
- if(Noflg<3,
- println("generate Bezier "+name);
- out=apply(list,Pcrd(#));
- tmp=name+"="+textformat(out,5);
- parse(tmp);
- tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- list;
-);
-
-Readcsvsla(fname):=Readplotdigdata(fname,[]);
-Readcsvsla(fname,options):=Readplotdigdata(fname,options);
-Readplotdigdata(fname):=Readplotdigdata(fname,[]);
-Readplotdigdata(fname,options):=(
- regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3);
- tmp=Divoptions(options);
- tmp1=tmp_6;
- sc=1;//10;
- mv=[0,0];//[5,5];
- forall(tmp1,
- if(!islist(#),sc=#,mv=#);
- );
- if(indexof(fname,".")>0,
- tmp=load(fname);
- ,
- tmp=load(fname+".txt");
- );
- cmdall=tokenize(tmp,"//");
- dataL=[];
- forall(2..length(cmdall),ii,
- tmp1=parse("["+cmdall_ii+"]");
- dataL=append(dataL,tmp1);
- );
- if(length(dataL_(length(dataL)))<2,
- dataL=dataL_(1..(length(dataL)-1));
- );
- nd=length(dataL_1)/2;
- npt=length(dataL);
- ptdata=[];
- forall(1..nd,ii,
- tmp3=[];
- forall(1..npt,
- tmp1=dataL_#_(2*ii-1);
- tmp2=dataL_#_(2*ii);
- if(isreal(tmp1),
- tmp3=append(tmp3,[tmp1,tmp2]);
- );
- );
- ptdata=append(ptdata,tmp3);
- );
- tmp1=[];
- forall(ptdata,
- tmp=#/sc;
- tmp=Translatedata("1",[tmp],-mv,["nodata"]);
- tmp1=append(tmp1,tmp);
- );
- ptdata=tmp1;
- ptdata;
-);
-
-Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]);
-Putbezierdata(name,ptL,options):=(
- regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs);
- tmp=Divoptions(options);
- psize=3;
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- if(substring(#,0,1)=="S",
- tmp=indexof(#,"=");
- psize=parse(substring(#,tmp,length(#)));
- );
- );
- pts=[];
- ctrs=[];
- forall(1..length(ptL),
- p2=ptL_#; // 16.08.16
- if(ispoint(p2),
- tmp1=text(p2);
- ,
- tmp1=name+text(#);
- Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16
- );
- inspect(parse(tmp1),"ptsize",psize);
- pts=append(pts,parse(tmp1));
- inspect(parse(tmp1),"color",4);
- if(#>1,
- p1=Lcrd(ptL_(#-1)); // 16.08.16
- p2=Lcrd(ptL_#); // 16.08.16
- if(Deg==3,
- tmp=(2*p1+p2)/3;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- tmp=(p1+2*p2)/3;
- tmp2=name+"q"+text(#-1);
- Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16
- inspect(parse(tmp2),"labeled",false); //15.01.22
- Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22
- inspect(parse(tmp2),"ptsize",psize);
- inspect(parse(tmp2),"color",3);
- ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]);
- ,
- tmp=(p1+p2)/2;
- tmp1=name+"p"+text(#-1);
- Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16
- inspect(parse(tmp1),"labeled",false); //15.01.22
- Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22
- inspect(parse(tmp1),"ptsize",psize);
- inspect(parse(tmp1),"color",3);
- ctrs=append(ctrs,[parse(tmp1)]);
- );
- );
- );
- [pts,ctrs,name];
-);
-
-Bezierstart(n):=( // 2016.02.26
- BezierNumber=n;
-);
-
-Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]);
-Mkbezierptcrv(ptdata,options):=(
- //help:Mkbezierptcrv([A,B,C,D]);
- //help:Mkbezierptcrv([[A,B],[C,D]]);
- //help:Mkbezierptcrv(options=["Num=10"]);
- // global BezierNumber
- regional(ptlist,Out,tmp,tmp1,tmp2);
- if(isstring(ptdata),
- ptlist=Readcsvsla(ptdata,options);
- ,
- ptlist=ptdata;
- );
- if(MeasureDepth(ptlist)==1,ptlist=[ptlist]);
- Out=[];
- forall(1..length(ptlist),
- tmp=floor((BezierNumber-1)/26);// 15.02.23
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber,26);
- if(tmp2==0,tmp2=26);
- tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11
- tmp2=Putbezierdata(tmp1,ptlist_#,options);
- Bezier(tmp2,options);
- BezierNumber=BezierNumber+1;
- Out=append(Out,tmp2_(1..2));
- );
- Out;
-);
-
-Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]);
-Mkbeziercrv(nm,ptctrL,options):=(
- //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]);
- regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2);
- if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL);
- forall(1..length(ptctrLL),
- name=nm+text(#);
- ptlist=ptctrLL_#_1;
- ctrlist=ptctrLL_#_2;
- Bezier(nm,ptlist,ctrlist,options); // 17.01.06
- );
-);
-
-Writebezier():=Writebezier(Fhead,"all");
-Writebezier(head):=Writebezier(head,"all");
-Writebezier(head,seL):=(
-//help:Writebezier(file);
-//help:Writebezier(file,"acd");
- regional(bz,dt,name,tmp,tmp1,tmp2);
- bz=select(GLIST,indexof(#,"=Bezier")>0);
- tmp1=[]; // 16.04.22from
- if(seL!="all",
- forall(1..length(seL),
- tmp=substring(seL,#-1,#);
- tmp=select(bz,indexof(#,"bz"+tmp)>0);
- tmp1=concat(tmp1,tmp);
- );
- bz=tmp1;// 16.04.22upto
- );
- dt=[head+"n",[[length(bz),0]]];
- forall(1..length(bz),
- tmp=indexof(bz_#,"=");
- name=substring(bz_#,0,tmp-1);
- tmp=indexof(bz_#,","+Dq);
- if(tmp>0,
- tmp1=substring(bz_#,0,tmp-1)+")";
- ,
- tmp1=bz_#;
- );
- tmp1=replace(tmp1,"Bezier(","[");
- tmp1=replace(tmp1,"list(","[");
- tmp1=replace(tmp1,")","]");
- tmp1=replace(tmp1,",",".xy,");
- tmp1=replace(tmp1,"]",".xy]");
- tmp1=replace(tmp1,".xy,[",",[");
- tmp1=replace(tmp1,"].xy","]");
- tmp1=replace(tmp1,name,head+text(#));
- parse(tmp1);
- tmp=parse(head+text(#)+"_1");
- dt=concat(dt,[head+text(#)+"k",tmp]);
- tmp=parse(head+text(#)+"_2");
- dt=concat(dt,[head+text(#)+"c",tmp]);
- );
- WriteOutData(head+".txt",dt);
- dt;
-);
-
-Readbezier(file):=Readbezier(file,[]);
-Readbezier(file,optionorg):=(
-//help:Readbezier("xsr");
-//help:Readbezier(options=["Num=10","nogeo"]);
- regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3);
- options=optionorg;
- tmp=Divoptions(options);
- stL=tmp_7;
- geo=0;
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="G",geo=1);
- options=remove(options,[#]);
- );
- ReadOutData(file);
- tmp=file+"n_1_1";
- nn=parse(tmp);
- out=[];
- forall(1..nn,nc,
- tmp=file+text(nc);
- tmp1=parse(tmp+"k");
- tmp2=parse(tmp+"c");
- if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from
- if(geo==1,
- alpha="abcdefghijklmnopqrstuvwxyz";
- forall(1..length(tmp1),
- tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#);
- Putpoint(tmp,tmp1_#,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"ptsize",3);
- tmp1_#=parse(tmp+".xy");
- );
- forall(1..length(tmp2),
- tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1";
- Putpoint(tmp,tmp2_#_1,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_1=parse(tmp+".xy");
- tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2";
- Putpoint(tmp,tmp2_#_2,parse(tmp+".xy"));
- inspect(parse(tmp),"labeled",false);
- inspect(parse(tmp),"color",4);
- inspect(parse(tmp),"ptsize",3);
- tmp2_#_2=parse(tmp+".xy");
- );
- BezierNumber=BezierNumber+1;
- );
- Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto
- out=append(out,"bz"+tmp);
- );
- out;
-);
-
-Ospline(nm,ptlist):=Ospline(nm,ptlist,[]);
-Ospline(nm,ptlist,options):=(
-//help:Ospline("1",ptlist,[options]);
- regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg,
- p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32);
- name="o"+nm;
- if(isstring(ptlist),list=parse(ptlist),list=ptlist);
- if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0);
-// list=apply(list,LLcrd(#));
- ctrL=[];
- forall(1..(length(list)-1),
- flg=0;
- p1=Lcrd(list_#); // 16.08.16
- p2=Lcrd(list_(#+1)); // 16.08.16
- if(#==1 % #==length(list)-1,
- flg=1;
- if(closed==0,
- pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16
- pR=(2*p1+p2)/3; // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- flg=2;
- ,
- if(#==1,
- p0=Lcrd(list_(length(list)-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- ,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_2); // 16.08.16
- );
- );
- );
- if(flg<=1,
- if(flg==0,
- p0=Lcrd(list_(#-1)); // 16.08.16
- p3=Lcrd(list_(#+2)); // 16.08.16
- );
- tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2);
- cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp;
- pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16
- pR=p2+cc*(p1-p3); // 16.08.16
- ctrL=append(ctrL,[pQ,pR]);
- );
- );
-// list=apply(list,LLcrd(#)); // 16.08.16
-// ctrL=apply(ctrL,LLcrd(#));
- if(closed==0, // 15.09.21
- p1=ctrL_2_1;
- p2=Lcrd(list_2); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_1=[pQ];
- tmp=length(ctrL);
- tmp1=ctrL_(tmp-1);
- p1=ctrL_(tmp-1)_2;
- p2=Lcrd(list_(tmp)); // 16.08.16
- pQ=p2+(p2-p1);
- ctrL_tmp=[pQ];
- );
- Bezier("o"+nm,list,ctrL,options);
-);
-
-CRspline(nm,ptL):=CRspline(nm,ptL,[]);
-CRspline(nm,ptL,options):=(
- // Catmull-Rom spline
-//help:CRspline("1",[A,B,C,A]);
- regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg);
- name="crsp"+nm;
- if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL);
- ptlist=tmp_1;
- if(length(tmp)==1,
- cflg=1;
- ,
- cflg=0;
- ctrpts=tmp_2;
- );
- c=1/6;
- tmp=Divoptions(options);
- eqL=tmp_5;
- opcindy=tmp_(length(tmp)); // 15.03.05
- forall(eqL,
- if(substring(#,0,1)=="R",
- tmp2=indexof(#,"=");
- c=parse(substring(#,tmp2,length(#)));
- );
- );
- ptlist=apply(ptlist,Lcrd(#)); // 16.08.16
- ctrlist=[];
- forall(1..(length(ptlist)-1),
- if(#==1,
- if(cflg==0,
- tmp1=ctrpts_1;
- ,
- v=ptlist_2-ptlist_(length(ptlist)-1);
- tmp1=ptlist_#+c*v;
- );
- ,
- v=ptlist_(#+1)-ptlist_(#-1);
- tmp1=ptlist_#+c*v;
- );
- if(#==length(ptlist)-1,
- if(cflg==0,
- tmp2=ctrpts_2;
- ,
- v=ptlist_2-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- ,
- v=ptlist_(#+2)-ptlist_#;
- tmp2=ptlist_(#+1)-c*v;
- );
- tmp=select(options,indexof(text(#),"->")>0);
- tmp=append(tmp,"notex"); //15.03.05
- Pointdata(name+text(#),[tmp1,tmp2],tmp);
- ctrlist=append(ctrlist,[tmp1,tmp2]);
- );
- Bezier(nm,ptlist,ctrlist,options);
-);
-
-Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]);
-//help:Beziersmooth("1",[A,B,C,A]);
-Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options);
-Bzspline(nm,ptL):=Bzspline(nm,ptL,[]);
-Bzspline(nm,ptLorg,options):=(
- // smooth bezier
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzsp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";// 16.10.07
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- lstr="c"+text(#);
- pt=ptLorg_#; // 16.08.16
- pt1=parse("C"+text(#-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp2="C"+text(#)+"p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp2],"PointOnLine",[parse(lstr),tmp]);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- tmp1="C1p";
- Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16
- );
- if(cflg==1,
- lstr="c1";
- pt=ptLorg_1; // 16.08.16
- pt1=parse("C"+text(length(ptL)-1)+"q");
- create([lstr],"Join",[pt1,pt]);
- tmp1="C1p";
- tmp=Append((2*pt.xy-pt1.xy),1);
- create([tmp1],"PointOnLine",[parse(lstr),tmp]);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- if(#>1 % cflg==1,
- tmp1="c"+text(#);
- inspect(parse(tmp1),"alpha",0.3);
- );
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",3);
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]);
-Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options);
-Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]);
-Bzsspline(nm,ptLorg,options):=(
- // smooth bezier with symmetric control points
- regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr,
- tmp,tmp1,tmp2,cflg,ctrlist);
- name="bzssp"+nm;
- Eps=10^(-3);
- ptL=apply(ptLorg,Lcrd(#)); // 16.08.16
- if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0);
- forall(2..length(ptL),
- pt=ptL_#;
- pt1=ptL_(#-1);
- tmp1="C"+text(#-1)+"q";
- Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1)));
- );
- forall(2..(length(ptL)-1),
- if(#<length(ptL) % cflg==1,
- pt=ptL_#;
- pt1=parse("C"+text(#-1)+"q");
- tmp2="C"+text(#)+"p=2*pt-pt1";
- parse(tmp2);
- );
- );
- if(cflg==0,
- pt=ptL_1;
- pt1=ptL_2;
- Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16
- inspect(C1p,"ptsize",3);
- inspect(C1p,"color",3);
- );
- if(cflg==1,
- pt=ptL_1;
- pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16
- tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16
- parse(tmp1);
- );
- ctrlist=[];
- forall(1..(length(ptL)-1),
- tmp1="C"+text(#)+"p";
- tmp2="C"+text(#)+"q";
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- tmp=[parse(tmp1),parse(tmp2)];
- ctrlist=append(ctrlist,tmp);
- );
- Bezier(nm,ptL,ctrlist,options);
- [ptL,ctrlist];
-);
-
-Listbspline2bz(listorg):=(
- regional(Eps,list,pcl,ptl,ctrl,k);
- Eps=10^(-3);
- list=apply(listorg,Lcrd(#)); // 16.08.16
- k=length(list);
- if(|list_1-list_k|>Eps,
- pcl=list;
- pcl_1=2*list_1-list_2;
- pcl_k=2*list_k-list_(k-1);
- ,
- pcl=concat(list,[list_2]);
- );
- ctrl=apply(2..(length(pcl)-1),[pcl_#]);
- ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2);
- [ptl,ctrl];
-);
-
-Bspline(nm,ctrL):=Bspline(nm,ctrL,[]);
-Bspline(nm,ctrL,options):=(
-//help:Bspline("",[A,B,C]);
- regional(list,tmp);
- list=Listbspline2bz(ctrL);
- tmp=BezierCurve("b"+nm,list_1,list_2,options);
- tmp;
-);
-
-MeetCurve(Crv,Xorg,Yorg):=(
- regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate);
- if(isstring(Crv),Cv=parse(Crv),Cv=Crv);
- if(MeasureDepth(Cv)==2,Cv=Cv_1);
- Cv=apply(Cv,LLcrd(#)); // 14.12.18
- while(length(Cv)==1,
- Cv=Cv_1;
- );
- Cv=apply(Cv,Lcrd(#));
- tmp1=min(apply(Cv,#_1));
- tmp2=max(apply(Cv,#_1));
- if(isstring(Xorg),X0=parse(Xorg),X0=Xorg);
- if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg);
- if(X0<tmp1,
- X0=tmp1;
- ,
- if(X0>tmp2,
- X0=tmp2;
- );
- );
- tmp1=select(
- 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1);
- tmp2=select(
- 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1);
- tmp2=remove(tmp2,common(tmp2,tmp1));
- Ban=concat(tmp1,tmp2);
- Tate=select(Ban,
- abs(Cv_#_1-Cv_(#+1)_1)<=
- 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2)
- );
- Ban=remove(Ban,Tate);
- Ylist=[];
- forall(Ban,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1);
- Ylist=append(Ylist,tmp);
- );
- forall(Tate,
- tmp=Cv_#;
- x1=tmp_1; y1=tmp_2;
- tmp=Cv_(#+1);
- x2=tmp_1; y2=tmp_2;
- tmp1=min([y1,y2]);
- tmp2=max([y1,y2]);
- if(Y0<tmp1,
- tmp=tmp1;
- ,
- if(Y0>tmp2,
- tmp=tmp2;
- ,
- tmp=Y0;
- );
- );
- Ylist=append(Ylist,tmp);
- );
- tmp=sort(Ylist,abs(#_1-Y0));
- [X0,tmp_1];
-);
-
-PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]);
-PutonLine(name,p1org,p2org,options):=(
-//help:PutonLine("C","sgAB");
-//help:PutonLine("C",pA,pB);
- regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- tmp1=(1-par)*p1+par*p2;
- if(abs(dx)>abs(dy),
- tmp=name+".x";
- tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto
- Putpoint(name,tmp1,parse(tmp2));
- ,
- if(abs(dy)>0,
- tmp=name+".y";
- tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]";
- Putpoint(name,tmp1,parse(tmp2));
- ,
- tmp2=p1;//16.10.11
- Putpoint(name,tmp1,tmp2);
- );
- );
-);
-
-PutonSeg(name,sgstr):=(
- regional(seg,p1,p2);
- if(isstring(sgstr),seg=parse(sgstr),seg=sgstr);
- PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2));
-);
-PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]);
-PutonSeg(name,p1org,p2org,options):=(
-//help:PutonSeg("C","sgAB");
-//help:PutonSeg("C",pA,pB);
- regional(par,dx,dy,p,tmp,tmp1,tmp2);
- par=0.5;
- tmp=Divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- p1=Lcrd(p1org);//16.10.11from
- p2=Lcrd(p2org);
- PutonLine(name,p1,p2,[par]);
- dx=p2_1-p1_1;
- dy=p2_2-p1_2;
- p=parse(name+".xy");
- p=LLcrd(p);
- if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");
- );
- );
- if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0,
- if(|p-p1|<|p-p2|,
- parse(name+".xy=Pcrd(p1)");
- ,
- parse(name+".xy=Pcrd(p2)");//16.10.11upto
- );
- );
-);
-
-PutonCurve(pn,crv):=PutonCurve(pn,crv,[]);
-PutonCurve(pn,crv,options):=(
-//help:PutonCurve("A","gr1");
- regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg);
- if(!islist(options),optionL=[options],optionL=options);
- leftlim=XMIN;
- rightlim=XMAX;
- Flg=0;
- Msg="y";
- forall(optionL,
- if(isstring(#), // 16.02.10 from
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="N", Msg="n"); // 16.02.10 upto
- ,
- if(Flg==0,
- leftlim=#;
- Flg=Flg+1;
- ,
- rightlim=#;
- );
- );
- );
- Pmt=MeetCurve(crv,leftlim,0);
- pstr=apply(allpoints(),textformat(#,5)); // 15.04.07
- if(!contains(pstr,pn),
- createpoint(pn,Pcrd(Pmt));
- ,
- tmp1=parse(pn+".x");
- if(tmp1< leftlim % tmp1>rightlim,
- if(tmp1< leftlim,tmp= leftlim, tmp=rightlim);
- Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y");
- ,
- Pmt=MeetCurve(crv,pn+".x",pn+".y");
- );
- ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";";
- parse(ptstr);
- );
- if(Msg=="y",
- println("Put "+pn+" on Curve "+text(crv));
- );
-);
-
-CrossPoint(name,Crv1,Crv2,range):=(
- regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2);
- Mx1=range_1; Mx2=range_2;
- repeat(15,
- Mx3=(Mx1+Mx2)/2;
- Crs1=MeetCurve(Crv1,Mx1,0);
- Crs2=MeetCurve(Crv2,Mx1,0);
- Crs3=MeetCurve(Crv1,Mx3,0);
- Crs4=MeetCurve(Crv2,Mx3,0);
- df1=Crs1_2-Crs2_2;
- df2=Crs3_2-Crs4_2;
- if((df1>0 & df2>0) % (df1<0 & df2<0),
- Mx1=Mx3;
- ,
- Mx2=Mx3;
- );
- );
- Putpoint(name,Crs1);
-);
-
-Setscaling(sc):=(
-//help:Setscaling(3);
- SCALEX=1;
- SCALEY=sc;
- Com0th("Setscaling("+sc+")");
- Setwindow("Msg=no");
-);
-
-Periodfun(defL,rep):=Periodfun(defL,rep,[]);
-Periodfun(defL,rep,optionorg):=( // 16.11.24
-//help:Periodfun(["0",[-1,0],"1",1,[0,1],1],2(num of repetition),options);
-//help:Periodfun(options=["Con=y"]);
-//help:Periodfun(defL=[function string, range, devision number,...]);
- regional(nn,fun,range,num,options,nr,maxfun,
- tmp,tmp1,tmp2,eqL,connect,minx,maxx,pdata,Eps,prept);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- connect="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,tmp+1);
- tmp=substring(#,0,3);
- if(Toupper(tmp)=="CON",
- connect=Toupper(tmp2);
- options=remove(options,[#]);
- );
- );
- minx=10000;
- maxx=-10000;
- mxfun="";
- pdata=[];
- forall(1..(length(defL)/3),nn,
- fun=defL_(3*nn-2);
- range=defL_(3*nn-1);
- tmp1=if(isstring(range_1),parse(range_1),range_1); //17.06.11(2lines)
- tmp2=if(isstring(range_2),parse(range_2),range_2);
- minx=min(minx,tmp1);
- maxx=max(maxx,tmp2);
- num=defL_(3*nn);
- options=append(options,"Num="+text(num));
- Plotdata("pe"+text(nn),fun,
- "x="+textformat([tmp1,tmp2],5),options);
- pdata=append(pdata,"grpe"+text(nn));
- tmp1=range_1; //17.06.11(4lines)
- if(isstring(tmp1),tmp1=replace(tmp1,"pi","%pi"),tmp1=format(tmp1,5));
- tmp2=range_2;
- if(isstring(tmp2),tmp2=replace(tmp2,"pi","%pi"),tmp2=format(tmp2,5));
- mxfun=mxfun+"elseif ("+tmp1+
- "<=x and x<"+tmp2+") then "+fun+" ";
- );
- per=maxx-minx;
- forall(1..rep,nr,
- tmp1=[];
- forall(pdata,
- Translatedata("p"+#+text(nr),#,[per*nr,0],options);
- Translatedata("m"+#+text(nr),#,[-per*nr,0],options);
- tmp1=concat(tmp1,["trp"+#+text(nr),"trm"+#+text(nr)]);
- );
- );
- pdata=concat(pdata,tmp1);
- if(connect=="Y",
- Eps=10^(-5);
- pdata=sort(pdata,[parse(#)_1_1]);
- prept=parse(pdata_1)_1;
- forall(1..(length(pdata)),
- tmp=parse(pdata_#);
- tmp1=tmp_1;
- tmp2=tmp_(length(tmp));
- if(|prept-tmp1|>Eps,
- Listplot("con"+text(#),[prept,tmp1],append(options,"da"));
- );
- prept=tmp_(length(tmp));
- );
- );
- mxfun=substring(mxfun,4,length(mxfun)-1);
- [mxfun,per];
-);
-
-Fourierseries(nm,coeff,per,nterm):=
- Fourierseries(nm,coeff,per,nterm,[]); // 16.11.24
-Fourierseries(nm,coeff,per,nterm,options):=(
-//help:Fourierseries("1",[c0,cn,sn],period,numterm,options);
- regional(c0,cn,sn,fs,tmp,tmp1,tmp2);
- c0=coeff_1;
- if(!isstring(c0),c0=format(c0,5));
- c0=replace(c0,"%pi","pi");
- cn=coeff_2;
- if(!isstring(cn),cn=format(cn,5));
- cn=replace(cn,"%pi","pi");
- sn=coeff_3;
- if(!isstring(sn),sn=format(sn,5));
- sn=replace(sn,"%pi","pi");
- fs=c0;
- forall(1..nterm,
- tmp=parse(Assign(cn,["n",#]));
- tmp1=Assign("("+format(tmp,5)+")*cos(n*2*pi/per*x)",
- ["n",#,"per",per]);
- tmp=parse(Assign(sn,["n",#]));
- tmp2=Assign("("+format(tmp,5)+")*sin(n*2*pi/per*x)",
- ["n",#,"per",per]);
- fs=fs+"+"+tmp1+"+"+tmp2;
- );
- Plotdata("four"+nm,fs,"x",options);
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2,"Rng=y"]);
- regional(options,rng,name,upleft,ul,flg,tick,eqL,reL,n,m,xsize,ysize,
- rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5; //16.12.16from
- reL=tmp_6;
- rng="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="RN",
- rng=tmp2;
- options=remove(options,[#]);
- );
- );//16.12.16upto
- tick=1;
- flg=0;
- forall(reL,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- tmp=sum(yLst);
- upleft=[0,tmp];
- TableOptions=options; // 16.11.28
- println("Tabledatalight "+name+" generated");
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist));
- if(rng=="Y", // 16.12.16
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- );
- Tb;
-);
-
-Tabledata(nm,n,m,xsize,ysize,rmvL):=
- Tabledata(nm,n,m,xsize,ysize,rmvL,[]);
-Tabledata(nm,n,m,xsize,ysize,rmvL,options):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
- regional(Tb,name,tmp,xLst,yLst);
- name="tb"+nm;
- xLst=apply(1..n,xsize/n);
- yLst=apply(1..m,ysize/m);
- Tabledata(nm,xLst,yLst,rmvL,options)
-);
-Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]);
-Tabledata(nm,xLst,yLst,rmvL,optionorg):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
- regional(name,options,eqL,reL,rng,upleft,ul,flg,tick,n,m,xsize,ysize,
- rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- tmp=sum(yLst);
- upleft=[0,tmp];
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5; //16.12.16from
- reL=tmp_6;
- rng="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="RN",
- rng=tmp2;
- options=remove(options,[#]);
- );
- );//16.12.16upto
- tick=1;
- flg=0;
- forall(reL,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- TableOptions=options; // 16.11.28
- println("Tabledata "+name+" generated");
- ul=upleft/10;
- m=length(xLst);
- n=length(yLst);
- xsize=sum(xLst);
- ysize=sum(yLst);
- clist=[ul];
- rlist=[ul];
- forall(1..m,
- tmp1=clist_(#)_1+xLst_#/10;
- clist=append(clist,[tmp1,clist_1_2]);
- );
- forall(1..n,
- tmp1=rlist_(#)_2-yLst_#/10;
- rlist=append(rlist,[0,tmp1]);
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp="C"+text(#);
- tmp1="c"+text(#)+"r0";
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]);
- clist_(#+1)=parse(tmp+".xy");
- );
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==m,
- tmp=clist_(#+1);
- drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#));
- );
- );
- forall(0..n,
- tmp="R"+text(#);
- tmp1="c0r"+text(#);
- if(#==0,
- Putpoint(tmp,Tgrid(tmp1));
- ,
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- rlist_(#+1)=parse(tmp+".xy");
- );
- Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]);
- inspect(parse(tmp),"ptsize",3);
- inspect(parse(tmp),"labeled",false);
- if(mod(#,tick)==0 % #==n,
- tmp=rlist_(#+1);
- drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#));
- );
- );
- Tb=[clist,rlist];
- tmp=name+"="+Tb;
- parse(tmp);
- forall(0..m,
- tmp1="c"+text(#)+"r0";
- tmp2="c"+text(#)+"r"+text(n);
- Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options);
- if(#<m,
- tmp1=parse("C"+text(#));
- tmp2=parse("C"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10));
- );
- );
- forall(0..n,
- tmp1="c0r"+text(#);
- tmp2="c"+text(m)+"r"+text(#);
- Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options);
- if(#<n,
- tmp1=parse("R"+text(#));
- tmp2=parse("R"+text(#+1));
- tmp=(tmp1.xy+tmp2.xy)/2;
- drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10));
- );
- );
- Tsegrmv(rmvL,options);
- Addax(0);
- Eps=10^(-3);
- tmp1=clist_(length(clist));
- tmp2=rlist_1;
- tmp3=rlist_(length(rlist)); // 15.06.11
- if(rng=="Y", // 16.12.16
- Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]);
- );
- Tb;
-);
-
-Tseginfo(seg):=(
- regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2);
- if(substring(seg,0,2)=="sg",
- cr=substring(seg,2,length(seg));
- ,
- cr=seg;
- );
- tp=substring(cr,0,1);
- if(tp=="c",
- tpc="r";
- ,
- tpc="c";
- );
- tmp1=indexof(cr,tpc);
- tmp=substring(cr,tmp1,length(cr));
- tmp2=tmp1+indexof(tmp,tpc);
- n1=substring(cr,1,tmp1-1);
- n2=substring(cr,tmp1,tmp2-1);
- n3=substring(cr,tmp2,length(cr));
- [tp+n1,tpc,parse(n2),parse(n3)];
-);
-
-Tsegrmv(rmvL):=Tsegrmv(rmvL,[]);
-Tsegrmv(rmvL,options):=(
- regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2);
- forall(rmvL,cr,
- tmp1=Tseginfo(cr);
- hd=tmp1_1;
- tpc=tmp1_2;
- m1=tmp1_3;
- m2=tmp1_4;
- gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1);
- flg=0;
- forall(gcL,
- if(flg==0,
- tmp=Tseginfo(#_1);
- n1=tmp_3;
- n2=tmp_4;
- if(m1>=n1 & m2<=n2,
- gc=#;
- flg=1;
- );
- );
- );
- if(flg==1,
- Changestyle([gc_1],["nodisp"]);
- tail="";
- if(indexof(hd,"r")>0,
- tail=hd; hd="";
- );
- if(n1<m1,
- tmp1=tpc+text(n1);
- tmp2=tpc+text(m1);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- if(m2<n2,
- tmp1=tpc+text(m2);
- tmp2=tpc+text(n2);
- tmp=hd+tail+tmp1+tmp2;
- Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options);
- );
- );
- );
-);
-
-Tgrid(ptstr):=(
-//help:Tgrid("c2r5");
- regional(tmp,tmp1,tmp2);
- tmp=parse(ptstr);
- if(islist(tmp),
- tmp;
- ,
- tmp=indexof(ptstr,"r");
- tmp1=substring(ptstr,1,tmp-1);
- tmp1=parse(tmp1);
- tmp2=substring(ptstr,tmp,length(ptstr));
- tmp2=parse(tmp2);
- [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2];
- );
-);
-
-Tlistplot(ptL):=Tlistplot(ptL,[]);
-Tlistplot(Ag1,Ag2):=(
- regional(nm,ptL,options);
- if(isstring(Ag1),
- nm=Ag1;
- ptL=Ag2;
- options=[];
- ,
- ptL=Ag1;
- options=Ag2;
- nm=ptL_1+ptL_2;
- );
- Tlistplot(nm,ptL,options);
-);
-Tlistplot(nm,ptL,options):=(
-//help:Tlistplot(["c0r0","c0r4"]);
-//help:Tlistplot("1",["c0r0","c0r4"]);
- regional(tmp);
- tmp=apply(ptL,Tgrid(#)); // 15.06.03
- Listplot(nm,tmp,append(options,"Msg=no"));
-);
-
-ChangeTablestyle(nameL,style):=(
-////help:ChangeTablestyle(["r0c0c3"],["da"]);
- regional(nmL,grid,head,sb,tmp,tmp1,tmp2,
- tsg,segall,sg,str);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,grid,
- if(substring(grid,0,1)=="r",sb="c",sb="r");
- tmp=Indexall(grid,sb);
- head=substring(grid,0,tmp_1-1);
- tmp1=substring(grid,tmp_1,tmp_2-1);
- tmp2=substring(grid,tmp_2,length(grid));
- tsg=apply([tmp1,tmp2],parse(#));
- tmp1=apply(GCLIST,#_1); // 16.12.06from
- segall=[];
- forall(tmp1,
- tmp2=substring(#,2,length(#));
- tmp=indexof(tmp2,sb);
- tmp2=substring(tmp2,0,tmp-1);
- if(head==tmp2,segall=append(segall,#));
- );// 16.12.06upto
- sg=[];
- forall(segall,
- tmp=Indexall(#,sb);
- tmp1=substring(#,tmp_1,tmp_2-1);
- tmp2=substring(#,tmp_2,length(#));
- tmp=apply([tmp1,tmp2],parse(#));
- if((tsg_1>=tmp_1) & (tsg_2<=tmp_2),
- sg=tmp;
- Changestyle(#,["nodisp"]);
- );
- );
- if(length(sg)==0,
- println("No segment includes "+grid);
- ,
- if(sb=="c",str=sb+"no"+head,str=head+sb+"no");
- if(sg_1<tsg_1,
- tmp1=replace(str,"no",text(sg_1));
- tmp2=replace(str,"no",text(tsg_1));
- tmp=head+sb+text(sg_1)+"c"+text(tsg_1);
- Tlistplot(tmp,[tmp1,tmp2],TableOptions);
- );
- tmp1=replace(str,"no",text(tsg_1));
- tmp2=replace(str,"no",text(tsg_2));
- tmp=head+"c"+text(tsg_1)+"c"+text(tsg_2);
- Tlistplot(tmp,[tmp1,tmp2],style);
- if(tsg_2<sg_2,
- tmp1=replace(str,"no",text(tsg_2));
- tmp2=replace(str,"no",text(sg_2));
- tmp=head+"c"+text(tsg_2)+"c"+text(sg_2);
- Tlistplot(tmp,[tmp1,tmp2],TableOptions);
- );
- );
- );
-);
-
-Findcell(pos1,pos2):=Findcell("",pos1,pos2);
-Findcell(Tbdata,pos1,pos2):=(
-//help:Findcell("c0r0","c2r1");
- regional(tmp1,tmp2,posnw,posse,ctr,dx,dy);
- if(isstring(pos1),
- posnw=Tgrid(pos1); // 15.05.20
- posse=Tgrid(pos2);
- //posnw=parse(pos1);
- //posse=parse(pos2);
- ,
- if(islist(pos1),
- posnw=pos1;
- posse=pos2;
- ,
- tmp1="c"+text(pos1-1)+"r"+text(pos2-1);
- tmp2="c"+text(pos1)+"r"+text(pos2);
- posnw=Tgrid(tmp1);
- posse=Tgrid(tmp2);
-// posnw=parse(tmp1);
-// posse=parse(tmp2);
- );
- );
- ctr=(posnw+posse)/2;
- dx=abs(posse_1-ctr_1);
- dy=abs(posnw_2-ctr_2);
- [ctr,dx,dy];
-);
-
-Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr);
-Putcell(Tbdata,pos1,pos2,dir,lttr):=(
-//help:Putcell("c0r0","c2r1","lt","abc");
-//help:Putcell(2,3,"c","xyz");
- regional(tmp,tmp1,tmp2,posnw,posse,
- posdir,posstr,ctr,dx,dy);
- tmp=Findcell(Tbdata,pos1,pos2);
- ctr=tmp_1; dx=tmp_2; dy=tmp_3;
- posdir=ctr;
- posstr=dir;
- if(indexof(dir,"b")>0,
- posdir_2=posdir_2-dy;
- posstr=replace(posstr,"b","n");
- );
- if(indexof(dir,"t")>0,
- posdir_2=posdir_2+dy;
- posstr=replace(posstr,"t","s");
- );
- if(indexof(dir,"l")>0,
- posdir_1=posdir_1-dx;
- posstr=replace(posstr,"l","e");
- );
- if(indexof(dir,"r")>0,
- posdir_1=posdir_1+dx;
- posstr=replace(posstr,"r","w");
- );
- Letter(posdir,posstr,text(lttr));
-);
-
-Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex);
-Putcellexpr(Tbdata,pos1,pos2,dir,ex):=(
-//help:Putcellexpr("c0r0","c2r1","lt","abc");
-//help:Putcellexpr(2,3,"c","\sin x");
- Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$");
-);
-
-Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL);
-Putrow(Tbdata,nrow,dir,lttrL):=(
-//help:Putrow(1,"c",["x","y","z"]);
- regional(tmp,tmp1,mcol);
- mcol=length(lttrL);
- forall(1..mcol,
- Putcell(Tbdata,#,nrow,dir,lttrL_#);
- );
-);
-
-Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL);
-Putrowexpr(Tbdata,nrow,dir,exL):=(
-//help:Putrowexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- Putrow(Tbdata,nrow,dir,lttrL);
-);
-
-PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL);
-PutcoL(Tbdata,mcol,dir,lttrL):=(
-//help:PutcoL(1,"c",["x","y","z"]);
- regional(tmp,tmp1,nrow);
- nrow=length(lttrL);
- forall(1..nrow,
- Putcell(Tbdata,mcol,#,dir,lttrL_#);
- );
-);
-PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL);
-PutcoLexpr(Tbdata,mcol,dir,exL):=(
-//help:PutcoLexpr(2,"r",["x","y","z"]);
- regional(lttrL);
- lttrL=apply(exL,"$"+#+"$");
- PutcoL(Tbdata,mcol,dir,lttrL);
-);
-
-Setrange():=(
-//help:Setrange();
- SW.xy=Pcrd([XMIN,YMIN]);
- NE.xy=Pcrd([XMAX,YMAX]);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-
-Sciform(list):=(
- regional(plotlist,comp,pos,out,out2,nn,strL,flg,
- tmp,tmp1,tmp2,tmp3,Nj);
- plotlist=Flatten([list]);
- out=replace(plotlist_1,".xy","");
- out=replace(out,".x","(1)");
- out=replace(out,".y","(2)");
- if(length(plotlist)==1,
- comp=[];
- forall(1..length(out),
- comp=append(comp,substring(out,#-1,#));
- );
- out="";
- pos=0;
- forall(comp,
- if(#!="'",
- out=out+#;
- ,
- if(pos==0,
- tmp=indexof(out,"Assign(");
- if(substring(out,length(out)-7,length(out))=="Assign(",
- out=out+"'";
- pos=1;
- ,
- out=out+"Assign('";
- pos=2;
- );
- ,
- if(pos==2,
- out=out+"')";
- ,
- out=out+"'";
- );
- pos=0;
- );
- );
- );
- ,
- forall(2..length(plotlist),
- comp=plotlist_#;
- if(isstring(comp),
- pos=indexof(comp,"Assign(");
- if(pos>0,
- comp=substring(comp,6,length(comp));
- );
- out=out+"Assign(";
- comp=replace(comp,".xy","");
- comp=replace(comp,".x","(1)");
- comp=replace(comp,".y","(2)");
- out=out+"'"+comp+"'";
- out=out+"),";
- );
- if(islist(comp),
- forall(comp,
- out=out+"'"+#+"',";
- );
- );
- );
- if(length(plotlist)>1,
- out=substring(out,0,length(out)-1);
- out=out+");";
- );
- );
- pos=[];
- forall(1..length(out),
- tmp=indexof(substring(out,#-1,length(out)),"Assign");
- if(tmp>0,
- tmp1=#-1+tmp;
- if(length(pos)==0,
- pos=[tmp1];
- ,
- if(pos_(length(pos))<tmp1,
- pos=append(pos,tmp1);
- );
- );
- );
- );
- if(length(pos)>0,
- strL=[];
- Nj=0;
- forall(pos,
- tmp=substring(out,Nj,#-1);
- strL=append(strL,tmp);
- Nj=#-1;
- );
- strL=append(strL,substring(out,Nj,length(out)));
- out="";
- forall(strL,
- if(indexof(#,"Assign")==0,
- out=out+#;
- ,
- tmp=indexof(#,"('");
- tmp1=indexof(#,"')");
- tmp2=substring(#,tmp+1,tmp1-2);
- tmp3=substring(#,tmp1-2,length(#));
- if(indexof(tmp2,"=")==0,
- out=out+#;
- ,
- tmp=substring(tmp2,0,indexof(tmp2,"="));
- out=out+"'"+tmp+"'+"+"Assign('";
- tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2));
- out=out+tmp+tmp3;
- );
- );
- );
- );
- out2=""; // patched 16.01.21 from
- nn=length(out);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=indexof(out,"='+Assign('");
- if(tmp==0,
- out2=out2+out;
- flg=1;
- ,
- out2=out2+substring(out,0,tmp);
- out=substring(out,tmp+10,length(out));
- tmp=indexof(out,"'"); // 16.04.19 from
- tmp1=substring(out,0,tmp-1);
- tmp2="1234567890";
- tmp=apply(1..length(tmp1),
- indexof(tmp2,substring(tmp1,#-1,#)));
- tmp=min(tmp);
- if(tmp==0, // 16.04.19 upto
- out2=out2+"'+Assign('";
- ,
- tmp=indexof(out,"'");
- out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto
- );
- );
- );
- );
- out2=replace(out2,"Dist=","D=");
- out2=replace(out2,"Dis=","D=");
- out2;
-);
-
-
-Rform(list):=(
- regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj);
- out=list;
- out=replace(out,"[[[","list([[");
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
- out=replace(out,".xy","");
- out=replace(out,".x","[1]");
- out=replace(out,".y","[2]");
- out;
-);
-
-Defvar(varstr):=(
- regional(name,value,tmp,tmp1);
- if(isstring(varstr),
- parse(varstr);
- tmp=indexof(varstr,"=");
- name=substring(varstr,0,tmp-1);
- value=substring(varstr,tmp,length(varstr));
- value=parse(value);
- tmp1=select(1..length(VLIST),VLIST_#_1==name+"=");
- if(length(tmp1)>0,
- tmp=tmp1_1;
- VLIST_tmp=[name+"=",value];
- ,
- VLIST=prepend([name+"=",value],VLIST);
- );
- ,
- forall(1..(length(varstr)/2), // 16.11.16from
- name=varstr_(2*#-1);
- value=varstr_(2*#);
- Defvar(name,value);
- ); // 16.11.16upto
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
-//help:Defvar(["a",0.3,"b",2]);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- if(isstring(#), // 16.11.14
- tmp1=tmp1+Dq+#+Dq+","; // 16.11.14
- ,
- tmp1=tmp1+format(#,5)+",";
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- ,
- tmp1=format(value,5);
- );
- tmp=name+"="+tmp1; // 15.02.06
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"="); // 15.02.08
- VLIST=prepend([name+"=",value],VLIST);
-);
-
-Iftosci(strorg):=( // 16.06.10
- regional(str,ifL,ppL,cpL,kk,sL,
- tmp,tmp1,tmp2,tmp3,tmp4);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ppL=Bracket(str,"()");
- cpL=Indexall(str,",");
- tmp1=Bracket(str,"[]");
- forall(1..(length(tmp1)/2),kk,
- cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1);
- );
- forall(1..length(ifL),kk,
- tmp=select(ppL,#_1>ifL_kk);
- tmp1=tmp_1;
- tmp2=select(tmp,#_2==-tmp1_2);
- tmp2=tmp2_1;
- tmp3=select(cpL,#>tmp1_1 & #<tmp2_1);
- ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3];
- );
- forall(1..length(cpL),kk,
- tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk));
- tmp1=tmp_(length(tmp));
- cpL_kk=[cpL_kk,tmp1];
- );
- sL=apply(1..length(str),substring(str,#-1,#));
- forall(1..length(ifL),kk,
- tmp1=ifL_kk_1;
- tmp2=ifL_kk_2;
- tmp=select(cpL,#_2==kk);
- tmp3=apply(tmp,#_1);
- sL_tmp1=" ";
- sL_tmp2=";end;";
- sL_(tmp3_1)=" then,";
- if(length(tmp3)>1,
- sL_(tmp3_2)=";else,";
- );
- );
- tmp=sum(sL);
-);
-
-Fortosci(strorg):=(
- regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4,
- Out,repL,Pflg,Iflg,Cflg);
- str=strorg;
- repL=[];
- tmp1=Indexall(str,"forall");
- tmp2=Indexall(str,",");
- forall(1..length(tmp1),jj,
- tmp=select(tmp2,#>tmp1_jj);
- var=substring(str,tmp_1,tmp_2-1);
- tmp3=substring(str,tmp1_jj-1,tmp_2-1);
- tmp=indexof(tmp3,"(");
- tmp4=substring(tmp3,tmp,length(tmp3));
- tmp=indexof(tmp4,",");
- tmp4=substring(tmp4,0,tmp-1);
- tmp4="for "+var+"="+tmp4;
- tmp4=replace(tmp4,"..",":");
- repL=concat(repL,[tmp3,tmp4]);
- );
- forall(1..length(repL)/2,
- str=replace(str,repL_(2*#-1),repL_(2*#));
- );
- tmp=Bracket(str);
- tmp=select(tmp,#_2==0);
- tmp=tmp_1_1;
- tmp1=substring(str,tmp-1,length(str));
- tmp1=replace(tmp1,")",";end");
- str=substring(str,0,tmp-1)+tmp1;
- str=replace(str,";;",";");
- str;
-);
-
-Deffun(name,bodylist):=(
-//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18
- regional(funstr,tmp,tmp1,str,Pos);
- funstr=name+":=(";
- forall(bodylist,
- funstr=funstr+#+";";
- );
- funstr=funstr+");";
- parse(funstr);
- tmp=bodylist_(length(bodylist));
- str="function "+tmp+"="+name+",";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");// 16.05.26
- tmp1=replace(tmp1," ","");// 16.05.26
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
- if(Pos==0,
- tmp=replace(tmp1,".xy","");
- tmp=replace(tmp,".x","(1)");
- tmp=replace(tmp,".y","(2)");
- if(indexof(tmp,"if(")>0,
- tmp=iftosci(tmp);
- );
- if(indexof(tmp,"forall(")>0, // 16.05.26from
- tmp=Fortosci(tmp);
- ); // 16.05.26upto
- str=str+tmp+",";
- );
- );
- str=str+"endfunction;";
- FUNLIST=append(FUNLIST,str);
-);
-
-Windispg():=(
- regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,opcindy);
- gsave();
- layer(KETPIClayer);
- forall(GCLIST,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
-// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#));
-// tmp2=apply(tmp2,Pcrd(#));
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- tmp="connect("+textformat(tmp2,5)+
- ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
-// if(ADDAXES=="1", // 16.10.08from
-// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]);
-// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]);
-// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]);
-// Letter([[0,0],"sw","O"]);
-// ); // 16.10.08upto
- grestore();
- layer(0);
-);
-
-Windispg(pltdata):=(
- regional(pdata,Nj,Nk,Dt,tmp,tmp1,tmp2,opcindy);
- gsave();
- layer(KETPIClayer);
- if(!islist(pltdata),tmp=[pltdata],tmp=pltdata);
- pdata=select(GCLIST,contains(tmp,#_1));
- forall(pdata,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=MeasureDepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- if(Nj_2<0,tmp1=0,tmp1=Nj_2);
- if(tmp1<10,
- forall(Dt,Nk,
- tmp2=Nk; // 14.12.04
- if(length(Nk)>1,
- tmp="connect("+textformat(tmp2,5)+ // 15.05.11
- ",dashtype->"+text(tmp1)+
- ",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
- grestore();
- layer(0);
-);
-
-
-WritetoSci() := WritetoSci(Fnamesci);
-WritetoSci(Arg) := (
- regional(string,filename,shch,tmp1,tmp2);
- if(isstring(Arg),
- string=Arg;
- if(indexof(string,".sce")>0,
- filename=string;
- shchoice="";
- ,
- filename=Fnamesci;
- shch=string;
- );
- WritetoSci(filename,shch);
- ,
- if(Arg<=1,WritetoSci(Fnamesci,"all"));
- if(Arg==2,WritetoSci(Fnamesci,"sh"));
- if(Arg==3,WritetoScibody(Fnamescibody));
- );
-);
-WritetoSci(filename,shchoice) := (
- regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,tmp2,cmd);
- println("Write to Sci "+filename);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);// 15.02.05
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- SCEOUTPUT = openfile(filename);
- tmp=Datetime();//16.12.25from
- println(SCEOUTPUT,"//date time="+tmp_1+" "+tmp_2);
- if(isstring(CindyPathName), // 16.12.25from
- if(length(CindyPathName)>0,
- println(SCEOUTPUT,"//path file="+CindyPathName+" "+CindyFileName+".cdy");
- ,
- println(SCEOUTPUT,"");
- );
- ,
- println(SCEOUTPUT,"");
- );//16.12.25upto
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.29,12.16
- if(indexof(PathS,"-6.")>0,
- Libname=Dirlib+"/ketpic2escifiles6";//17.05.13
- ,
- Libname=Dirlib+"/ketpic2esciL5";//16.11.29
- );
- );
- println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
- tmp=length(Libname)-1;
- if(substring(Libname,tmp-1,tmp)!="C", // 15.06.02
- println(SCEOUTPUT,"Ketinit();");
- ,
- println(SCEOUTPUT,"errcatch(235,"+DqDq("continue")+");");
- println(SCEOUTPUT,"Ketinit("+DqDq("Ketlib")+");");
- );
- println(SCEOUTPUT,"disp('KETpic '+ThisVersion())"); // 15.04.12
- println(SCEOUTPUT,"Fnametex='"+Fnametex+"';");
- println(SCEOUTPUT,"Fnamesci='"+Fnamesci+"';");
- println(SCEOUTPUT,"Fnamescibody='"+Fnamescibody+"';");
- println(SCEOUTPUT,"Fnameout='"+Fnameout+"';");
- if(iswindows(), // 17.01.11from
- println(SCEOUTPUT,"setlanguage('en')");
- ); // 17.01.11upto
- println(SCEOUTPUT,"pi=%pi; i=%i;");
- println(SCEOUTPUT,"arccos=acos; arcsin=asin; arctan=atan;"); // 15.05.15
- println(SCEOUTPUT,"");
- forall(COM0thlist,
- println(SCEOUTPUT,#+";");
- );
- println(SCEOUTPUT,
- "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);");
- println(SCEOUTPUT,"Assignadd('pi',%pi);");
- println(SCEOUTPUT,"Assignadd('XMIN',Xmin());");
- println(SCEOUTPUT,"Assignadd('XMAX',Xmax());");
- println(SCEOUTPUT,"Assignadd('YMIN',Ymin());");
- println(SCEOUTPUT,"Assignadd('YMAX',Ymax());");
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- tmp2="[";
- forall(tmp1,
- tmp2=tmp2+format(#,5)+",";
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
- ,
- tmp1=format(tmp1,5);
- );
- );
- print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; ");
- tmp=substring(tmp,0,length(tmp)-1);
- println(SCEOUTPUT," Assignrep('"+tmp+"',"+tmp1+");"); // 15.01.27
- );
- forall(FUNLIST,
- println(SCEOUTPUT,#);
- );
- forall(GLIST,
- println(SCEOUTPUT,Sciform(#)+";");
- );
- tmp=text(Pnamelist);
- tmp=replace(tmp,"[","list(");
- Pnamelist=replace(tmp,"]",")");
- println(SCEOUTPUT,"PtL="+Pnamelist+";");
- tmp=select(GCLIST,#_2==-1);
- GrL=apply(tmp,#_1);
- tmp=text(GrL);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- println(SCEOUTPUT,"GrL="+tmp+";");
- tmp1="";
- forall(SCIWRLIST,
- tmp1=tmp1+","+Dq+#+Dq+","+#;
- );
- if(length(tmp1)>0,
- tmp1="WriteOutData(Fnameout"+tmp1+");";
- println(SCEOUTPUT,tmp1);
- );
- if(length(SCIRELIST)>0,
- println(SCEOUTPUT,"if length(fileinfo(Fnameout))>0"); // 15.05.15
- println(SCEOUTPUT," Tmpout=ReadOutData(Fnameout);");// 15.09.12
- println(SCEOUTPUT," execstr(Tmpout);"); // 15.05.15
-// println(SCEOUTPUT," forall Tmp1=1:size(Tmpout,1)");
-// println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
-// println(SCEOUTPUT," if length(Tmp)>0");
-// println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
-// println(SCEOUTPUT," if length(evstr(Tmp))==1,");
-// println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';");
-// println(SCEOUTPUT," execstr(Tmp);");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT,"end;");
- );
- if(shchoice=="sh",
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- ,
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- );
- forall(COM1stlist,
- println(SCEOUTPUT,#+";");
- );
-// forall(GOUTLIST,
-// if(length(#_2)>0,
-// tmp1=#_1;
-// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));");
-// );
-// );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//Windisp(GrL,'c');");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"if 1==1 then");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Openfile('"+Dirwork+"/"+Fnametex+"','"+ULEN+"');");// 16.05.29
- forall(COM2ndlist,
- println(SCEOUTPUT," "+#+";");
- );
- if(length(GrL)>0,
- println(SCEOUTPUT," Drwline(GrL);");
- );
-// forall(GOUTLIST,
-// if(length(#_2)>0,
-// tmp1=textformat(#_2,5);
-// tmp1=substring(tmp1,1,length(tmp1)-1);
-// println(SCEOUTPUT," Drwline("+tmp1+");");
-// );
-// );
- println(SCEOUTPUT,"Closefile('"+ADDAXES+"');");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"end;");
- if(shchoice=="sh",
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"quit();");
- ,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//quit();");
- );
- closefile(SCEOUTPUT);
-
-);
-
-WritetoScibody() := WritetoScibody(Fnamescibody);
-WritetoScibody(filename) := (
- regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,cmd);
- println("WritetoScibody "+filename);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- Plist=append(Plist,#.name+"="+#.xy+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,#.xy);
- );
- SCEOUTPUT = openfile(filename);
- println(SCEOUTPUT,
- "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);");
- println(SCEOUTPUT,"Assignadd('pi',%pi);");
- println(SCEOUTPUT,"Assignadd('XMIN',Xmin());");
- println(SCEOUTPUT,"Assignadd('XMAX',Xmax());");
- println(SCEOUTPUT,"Assignadd('YMIN',Ymin());");
- println(SCEOUTPUT,"Assignadd('YMAX',Ymax());");
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2;
- if(!isstring(tmp1),
- print(SCEOUTPUT,tmp+tmp1+"; ");
- ,
- print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; ");
- );
- tmp=substring(tmp,0,length(tmp)-1);
- println(SCEOUTPUT," Assignrep('"+tmp+"',"+#_2+");");
- );
- forall(FUNLIST,
- println(SCEOUTPUT,#);
- );
- forall(GLIST,
- println(SCEOUTPUT,Sciform(#)+";");
- );
- tmp=text(Pnamelist);
- tmp=replace(tmp,"[","list(");
- Pnamelist=replace(tmp,"]",")");
- println(SCEOUTPUT,"PtL="+Pnamelist+";");
- tmp=select(GCLIST,#_2==-1);
- GrL=apply(tmp,#_1);
- tmp=textformat(GrL,5);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- println(SCEOUTPUT,"GrL="+tmp+";");
- tmp1="";
- forall(SCIWRLIST,
- tmp1=tmp1+","+Dq+#+Dq+","+#;
- );
- if(length(tmp1)>0,
- tmp1="WriteOutData(Fnameout"+tmp1+");";
- println(SCEOUTPUT,tmp1);
- );
- if(length(SCIRELIST)>0,
- println(SCEOUTPUT,"Tmpout=ReadOutData(Fnameout);");
- println(SCEOUTPUT,"execstr(Tmpout);");
- println(SCEOUTPUT,"forall Tmp1=1:size(Tmpout,1)");
- println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
- println(SCEOUTPUT," if length(Tmp)>0");
- println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
- println(SCEOUTPUT," if length(evstr(Tmp))==1,");
- println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';");
- println(SCEOUTPUT," execstr(Tmp);");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- );
- if(shchoice=="sh",
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- ,
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- );
- forall(COM1stlist,
- println(SCEOUTPUT,#+";");
- );
-// forall(GOUTLIST, 2014.12.18
-// if(length(#_2)>0,
-// tmp1=#_1;
-// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));");
-// );
-// );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//Windisp(GrL,'c');");
- println(SCEOUTPUT,"");
-
- closefile(SCEOUTPUT);
-);
-
-Extractdata(name):=Extractdata(1,name,[]);
-Extractdata(Arg1,Arg2):=(
- if(isstring(Arg1),
- Extractdata(1,Arg1,Arg2);
- ,
- Extractdata(Arg1,Arg2,[]);
- );
-);
-Extractdata(number,name,options):=(
-//help:ExtractData("ha1");
-//help:ExtractData(1,"ha1");
- regional(dlist,tmp,tmp1,tmp2,tmp3,File,Ltype,Noflg,opstr,opcindy);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- tmp1=[];
- forall(1..length(GOUTLIST),
- if(contains(GOUTLIST_#_2,name),
- tmp1=append(tmp1,#);
- );
- );
- if(length(tmp1)==0,
- println(varname+" not found");
- ,
- tmp1=tmp1_number;
- tmp2=GOUTLIST_tmp1;
- tmp=remove(tmp2_2,[name]);
- GOUTLIST_tmp1=[tmp2_1,tmp];
- File=tmp2_1;
- );
- if(Noflg<3,
- println("extract outdata "+name);
- tmp1=parse(name);
- if(1==0,
- Com0th("Tmpout=ReadOutData("+Dq+File+Dq+");");
- Com0th("execstr(Tmpout);");
- Com0th("for Tmp1=1:size(Tmpout,1)");
- Com0th(" Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
- Com0th(" if length(Tmp)>0");
- Com0th(" Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
- Com0th(" if length(evstr(Tmp))==1,");
- Com0th(" Tmp=Tmp+'='+Tmp+'(1)';");
- Com0th(" execstr(Tmp);");
- Com0th(" end;");
- Com0th(" end;");
- Com0th("end;");
- );
- tmp3=[
- "Tmpout=ReadOutData("+Dq+File+Dq+");",
- "execstr(Tmpout);",
- "for Tmp1=1:size(Tmpout,1)",
- " Tmp=strindex(Tmpout(Tmp1,1),'=list()');",
- " if length(Tmp)>0",
- " Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));",
- " if length(evstr(Tmp))==1",
- " Tmp=Tmp+'='+Tmp+'(1)';",
- " execstr(Tmp);",
- " end;",
- " end;",
- "end;"
- ];
- GLIST=concat(GLIST,tmp3);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp2;
-);
-
-RemoveOut(pltlist):=(
- regional(name,tmp,tmp1,tmp2);
- forall(pltlist,name,
- tmp1=[];
- forall(GOUTLIST,
- tmp=remove(#_2,[name]);
- tmp1=append(tmp1,[#_1,tmp]);
- );
- GOUTLIST=tmp1;
- );
-);
-
-ReadOutData():=ReadOutData(Fnameout);
-ReadOutData(filename):=ReadOutData("",filename); //16.03.07
-ReadOutData(pathorg,filenameorg):=(
-//help:ReadOutData();
-//help:Readoutdata();
-//help:ReadOutData("file.txt");
-//help:Readoutdata("file.txt");
-//help:ReadOutData("/datafolder","file.txt");
-//help:Readoutdata("/datafolder","file.txt");
- regional(path,filename,varname,varL,ptL,pts,tmp,tmp1,tmp2,tmp3,tmp4,
- nmbr,cmdall,cmd,cmdorg,outdt,goutdt);
- path=pathorg; //16.03.07 from
- if(length(path)>0,
- setdirectory(path);
- if(indexof(path,"\")>0,tmp1="\",tmp1="/");
- tmp=substring(path,length(path)-1,length(path));
- if(tmp!=tmp1,path=path+tmp1);
- ); //16.03.07 upto
- filename=filenameorg; // 16.04.17
- if(indexof(filename,".")==0,filename=filename+".txt");
- tmp=load(filename);
- cmdall=tokenize(tmp,"//");
- varname=cmdall_1;
- cmdall=cmdall_(2..length(cmdall));
- outdt=[];
- varL=[varname];
- ptL=[];
- forall(cmdall,cmdorg,
- cmd=replace(cmdorg,LFmark,"");
- if(length(cmd)>0,
- if(cmd=="start" % cmd=="end" % substring(cmd,0,1)=="[",
- if(cmd=="start",
- pts=[];
- );
- if(cmd=="end",
- ptL=append(ptL,pts);
- );
- if(substring(cmd,0,1)=="[",
- tmp1=parse(cmd);
- if(length(tmp1_1)==2,
- tmp1=apply(tmp1,Pcrd(#));
- );
- pts=concat(pts,tmp1);
- );
- ,
- if(length(ptL)>0,
- if(length(ptL)==1,
- ptL=ptL_1;
- tmp=apply(ptL,textformat(#,6));
- ,
- tmp="[";
- forall(ptL,tmp1,
- tmp=tmp+apply(tmp1,textformat(#,6))+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- );
- ,
- tmp="[]";
- );
- parse(varname+"="+tmp);
- outdt=append(outdt,ptL);
- ptL=[];
- varname=cmd;
- varL=append(varL,varname);
- );
- );
- );
- if(length(ptL)>0,
- if(length(ptL)==1,
- ptL=ptL_1;
- tmp=apply(ptL,textformat(#,6));
- ,
- tmp="[";
- forall(ptL,tmp1,
- tmp=tmp+apply(tmp1,textformat(#,6))+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- );
- ,
- tmp="[]";
- );
- parse(varname+"="+tmp);
- outdt=append(outdt,ptL);
- if(path=="",tmp=filename,tmp=path+filename); //16.03.07
- GOUTLIST=append(GOUTLIST,[tmp,varL]);
- if(length(path)>0, // 16.03.09
- setdirectory(Dirwork); // 16.03.07
- );
- print("readoutdata from "+tmp+" : ");
- println(varL);
- varL;
-);
-
-WriteOutData(filename,ptlist):=(
-//help:WriteOutData("file.txt",["g1",gr1,"sg",sgAB]);
-//help:Writeoutdata("file.txt",["g1",gr1,"sg",sgAB]);
- regional(nn,Gname,Gdata,Str,Gstr,Gj,Pt,Flg,tmp,tmp1,loopend);
- Flg=0;
- if(isstring(ptlist_(length(ptlist))),
- Flg=1;
- );
- SCEOUTPUT = openfile(filename);
- if(Flg==0,
- loopend=length(ptlist)/2;
- ,
- loopend=length(ptlist);
- );
- Gstr="[";
- forall(1..loopend,nn,
- if(Flg==0,
- Gname=ptlist_(2*nn-1);
- ,
- Gname=ptlist_nn;
- );
- Gstr=Gstr+Gname+",";
- println(SCEOUTPUT,Gname+"//");
- if(Flg==0,
- Gdata=ptlist_(2*nn);
- ,
- Gdata=parse(Gname);
- );
- Gdata=Flattenlist(Gdata);
- if(MeasureDepth(Gdata)==1,Gdata=[Gdata]);
- forall(Gdata,Gj,
- println(SCEOUTPUT,"start//");
- Str="";
- forall(Gj,Pt,
- if(length(Str)>0,
- Str=Str+","
- );
- Str=Str+"["+format(Pt_1,5)+",";
- Str=Str+format(Pt_2,5);
- if(length(Pt)<3,
- Str=Str+"]";
- ,
- Str=Str+","+format(Pt_3,5)+"]";
- );
- if(length(Str)>80,
- println(SCEOUTPUT,"["+Str+"]//");
- Str="";
- );
- );
- if(length(Str)>0,
- println(SCEOUTPUT,"["+Str+"]//");
- );
- if((nn==loopend) & (Gj==Gdata_(length(Gdata))),
- println(SCEOUTPUT,"end////");
- ,
- println(SCEOUTPUT,"end//");
- );
- );
- );
- closefile(SCEOUTPUT);
- Gstr=substring(Gstr,0,length(Gstr)-1)+"]";
- println("writeoutdata "+filename+":"+Gstr);
-);
-
-Makeshell():=(
- if(length(Texmain)>0,
- Texparent=Texmain;
- );
- if(length(Texparent)>0,
- Makeshell(Texparent);
- if(length(FigPdfList)>0,
- SCEOUTPUT=openfile(Texparent+".tex");
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- ,
- Makeshell(Fhead+"main");
- );
-);
-Makeshell(texmainfile):=Makeshell(texmainfile,"stv");
-Makeshell(texmainfile,flow):=(
- regional(parent,tmp,tmp1,tmp2,tmp3,flg,tex,path,shnm);
- parent=Dirwork+Shellparent; // 16.05.29
- kc():=(
- println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04,06.07
- );
- tmp1="";
-// tmp2=parent;
- flg=0;
- forall(reverse(1..length(parent)),
- if(flg==0,
- tmp=substring(parent,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(parent,0,#-1);
- tmp2=substring(parent,#,length(parent));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- SCEOUTPUT = openfile(tmp2);
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); // 15.07.16
- tmp1=" "+Dq+Fhead+Dq+" "+Dq+texmainfile+Dq; // 15.12.11
- if((isstring(Shellfile)) & (length(Shellfile)>5), // 16.04.01
- tmp="sh "+Dq+Shellchild+Dq+tmp1; // 16.05.15,16.05.30
- ,
- flg=0;
- forall(reverse(1..(length(PathT))),
- if(flg==0,
- if(substring(PathT,#-1,#)=="/",
- tex=substring(PathT,#,length(PathT));
- path=substring(PathT,0,#-1);
- flg=1;
- );
- );
- );
- if(indexof(flow,"s")>0,
- tmp=Dq+PathS+Dq+" -nwni -f "+Fhead+".sce"; // 16.07.21from
- println(SCEOUTPUT,tmp);
- );
- if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- tmp="rm "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="xelatex",
- tmp="export PATH=$"+path+":${PATH}";
- println(SCEOUTPUT,tmp);
- tmp="xelatex"+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp="rm "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.11.22upto
- if(tex=="lualatex",//16.12.16
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.12.16
- tmp="";
- if(isstring(Shellfile),
- if(indexof(Shellfile,"mv")>0,
- tmp=PathAd;
- );
- );
- if(length(tmp)==0,
- if(!isstring(Pathpdf),
- tmp="preview";
- ,
- tmp=Pathpdf;
- );
- );
- if(tmp=="preview" % tmp=="skim", // 16.09.09from,16.10.20
- tmp="open -a "+Dq+tmp+Dq+" "+texmainfile+".pdf";
- ,
- tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
- );// 16.09.09upto
- );
- println(SCEOUTPUT,tmp); // 16.07.21upto
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
-);
-
-Makebat():=(
- if(length(Texmain)>0,
- Texparent=Texmain;
- );
- if(length(Texparent)>0,
- Makebat(Texparent);
- if(length(FigPdfList)>0,
- SCEOUTPUT=openfile(Texparent+".tex");
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- ,
- Makebat(Fhead+"main");
- );
-);
-Makebat(texmainfile):=Makebat(texmainfile,"stv");
-Makebat(texmainfile,flow):=(
- regional(drive,fname,tmp,tmp1,tmp2,tmp3,flg,tex,path,batnm);
- drive="C:";
- fname=Dirwork+Batparent;
- kc():=(
- println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
- );
- tmp=indexof(fname,":");
- if(tmp>0,
- drive=substring(fname,0,tmp);
- fname=substring(fname,tmp,length(fname));
- );
- tmp1="";
- tmp2=fname;
- flg=0;
- forall(reverse(1..length(fname)),
- if(flg==0,
- tmp=substring(fname,#-1,#);
- if(tmp=="/" % tmp=="\" % tmp=="\", // 14.01.15
- tmp1=substring(fname,0,#-1);
- tmp2=substring(fname,#,length(fname));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(drive+tmp1);
- );
- SCEOUTPUT = openfile(tmp2);
- fname=Dirwork;
- tmp=indexof(fname,":");
- if(tmp>0,
- drive=substring(Dirwork,0,tmp);
- fname=substring(Dirwork,tmp,length(Dirwork));
- println(SCEOUTPUT,drive);
- );
- println(SCEOUTPUT,"cd "+Dq+fname+Dq);// 15.07.16
- if((isstring(Shellfile)) & (length(Shellfile)>6), // 16.04.01
- tmp=Dq+Batchild+Dq+tmp1;
- ,
- flg=0;
- forall(reverse(1..(length(PathT))),
- if(flg==0,
- if(substring(PathT,#-1,#)=="\",
- tex=substring(PathT,#,length(PathT));
- path=substring(PathT,0,#-1);
- flg=1;
- );
- );
- );
- if(indexof(flow,"s")>0,
- tmp=Dq+PathS+Dq+" -nb -nwni -f "+Fhead+".sce"; // 16.07.21from
- println(SCEOUTPUT,tmp);
- );
- if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- tmp="del "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="xelatex",
- tmp="set Path = %Path%;"+Dq+path+Dq;
- println(SCEOUTPUT,tmp);
- tmp="xelatex"+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp="del "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.11.22upto
- if(tex=="lualatex",//16.12.16
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.12.16
-// tmp="del "+texmainfile+".dvi";
-// println(SCEOUTPUT,tmp);
- tmp="";
- if(isstring(Shellfile),
- if(indexof(Shellfile,"mv")>0,
- tmp=PathAd;
- );
- );
- if(length(tmp)==0,
- if(!isstring(Pathpdf),
- tmp=indexof(PathS,"\scilab");// 15.12.12
- tmp=substring(PathS,0,tmp-1)+"\SumatraPDF\SumatraPDF.exe";
- ,
- tmp=Pathpdf;
- );
- );
- tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
- ); //16.07.21upto
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- if(indexof(Dirwork,":")==0, // 14.01.15
- drive="C:";
- ,
- drive="";
- );
- setdirectory(drive+Dirwork);
-);
-
-Addpackage(packorg):=(
-//help:Addpackage("bm");
-//help:Addpackage(["bm","enumerate"]);
-//help:Addpackage(["bm","[c]{somepackage}"]);
- regional(packL,tmp);
- packL=packorg; //17.06.25from
- if(!islist(packL),packL=[packL]);
- packL=apply(packL,replace(#,"\","/"));
- forall(1..(length(packL)),
- tmp=packL_#;
- if(substring(tmp,0,11)=="ketpicstyle",
- tmp=replace(Dirhead+"/"+tmp,"\","/");
- );
- if(indexof(tmp,"[")==0,
- packL_#="{"+tmp+"}";
- );
- );
- ADDPACK=concat(ADDPACK,packL); //17.06.25upto
-);
-
-Viewtex():=(
- regional(texfile,tmp,tmp1,sep);
- texfile=Fhead+"main";
-// if(iswindows(),sep="\",sep="/"); // 17.04.07
-// sep="/";
- SCEOUTPUT=openfile(texfile+".tex");
- tmp="\documentclass{article}"; // 16.06.09from
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- ); // 16.06.09upto
- println(SCEOUTPUT,tmp);
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.23,12.16
- if(indexof(PathT,"pdflatex")>0,
- println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");//16.11.24
- ,
- println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16
- println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18
- );
-// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
- ,
-// println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );//17.04.07upto
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{graphicx}");
- println(SCEOUTPUT,"\usepackage{color}");
- forall(ADDPACK, // 16.05.16from
- println(SCEOUTPUT,"\usepackage"+#); //17.05.25
- );// 16.05.16upto
- println(SCEOUTPUT,"");
-// println(SCEOUTPUT,"\def\ketcindy{{K\kern-.20em%"); // deleted 16.11.27,recovered11.29 redeleted17.04.07
-// println(SCEOUTPUT,"\lower.5ex\hbox{E}\kern-.125em{TCindy}}}");
-// println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\setmargin{20}{20}{20}{20}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\verb|"+Fhead+"| by \ketcindy");// 16.01.12, 18, 16.04.08
-// println(SCEOUTPUT,"\verb|"+Fhead+"| by KeTCindy");// 16.11.29 temporarily
- println(SCEOUTPUT,"\vspace{5mm}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\input{"+Fhead+".tex}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
- if(iswindows(),
- kc():=(
- println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
- );
- Makebat(texfile);
- ,
- kc():=(
- println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04
- );
- Makeshell(texfile);
- );
- WritetoSci(2);
-);
-
-Viewparent():=( //17.04.13
- if(!isexists(Dirwork,Texparent+".tex"),
- if(isstring(Texparent),
- drawtext(mouse().xy,Texparent+".tex not exist",
- size->24,color->[1,0,0]);
- ,
- drawtext(mouse().xy,"Texparent not defined",
- size->24,color->[1,0,0]);
- );
- ,
- if(iswindows(),
- Makebat();
- ,
- Makeshell();
- );
- WritetoSci(2);
- kc();
- );
-);
-
-Makecmdlist(libname):=(
-//help:Makecmdlist("ketcindylib");
- regional(cmdall,cmd,flg,tmp,tmp1,tmp2,out);
- setdirectory(Dirlib);
- tmp=load(libname+".cs");
- cmdall=tokenize(tmp,":=");
- out=[];
- forall(cmdall,cmd,
- tmp=max([0,length(cmd)-50]);
- tmp1=";"+substring(cmd,tmp,length(cmd));
- flg=0;
- forall(reverse(1..length(tmp1)),
- if(flg==0,
- if(substring(tmp1,#-1,#)==";",
- tmp=substring(tmp1,#,length(tmp1));
- tmp2=substring(tmp,0,1);
- if(length(tmp)>0,
- if(!contains([" ","/"],tmp2),
- out=append(out,tmp);
- flg=1;
- );
- );
- );
- );
- );
- );
- setdirectory(Dirwork);
- tmp=length(out)-1;
- out=out_(2..tmp);
- out=sort(out);
-);
-
-Savecmdlist(cmdlist,cmdfile):=(
- SCEOUTPUT=openfile(cmdfile+".cs");
- forall(cmdlist,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
-);
-
-Quicksort(seq):=(
- regional(pivot,left,right,out);
- if(length(seq)<2,
- out=seq;
- ,
- pivot = max(seq_1,seq_2);
- left = [];
- right = [];
- forall(seq,
- if(#< pivot,
- left=append(left,#);
- ,
- right=append(right,#);
- );
- );
- left = Quicksort(left);
- right = Quicksort(right);
- out=concat(left,right);
- );
- out;
-);
-
-Lessstr(st1,st2):=(
- regional(tmp,tmp1,tmp2,out);
- tmp=min(length(st1),length(st2));
- flg=0;
- forall(1..tmp,
- if(flg==0,
- tmp1=substring(st1,#-1,#);
- tmp2=substring(st2,#-1,#);
- if(tmp1<tmp2,
- out=(1<2);
- flg=1;
- ,
- if(tmp1>tmp2,
- out=(1>2);
- flg=1;
- );
- );
- );
- );
- if(flg==0,
- if(length(st1)<length(str2),
- out=(1<2);
- ,
- out=(1>2);
- );
- );
- out;
-);
-
-Figpdf():=Figpdf(Texparent,[]);
-Figpdf(Arg1):=(
- if(isstring(Arg1),
- Figpdf(Arg1,[]);
- ,
- Figpdf(Texparent,Arg1);
- );
-);
-Figpdf(fnameorg,optionorg):=(
-//help:Figpdf();
-//help:Figpdf([10,,10,,[0,2] ]);(margin(4),move)
-//help:Figpdf([[0,0]]);(move)
-//help:Figpdf(options=[5,5,5,5,[0,0]]]);
- regional(options,fname,mar,pos,dp,sc,tmp,tmp1,tmp2,sep);
- fname=fnameorg;
- if(indexof(fnameorg,".")==0,
- fname=fnameorg+".tex";
- );
- tmp=apply(optionorg,if(isstring(#),parse("["+#+"]"),#)); // 16.04.07
- tmp=select(tmp,#!=[]);
- options=optionorg;//16.11.08from
-// mar=[5,5,5,5];
- dp=[0,-3];
- tmp=select(options,islist(#));
- if(length(tmp)>0,
- dp=tmp_1;
- options=remove(options,tmp);
- );
- tmp=4-length(options);
- tmp1=apply(1..tmp,5);
- mar=concat(options,tmp1);
- mar=apply(mar,if(length(#)==0,5,#));//16.11.08upto
- pos=[mar_1+dp_1,mar_3+dp_2];
- sc=10;
- tmp=indexof(ULEN,"cm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- sc=parse(tmp1)*10;
- );
- tmp=indexof(ULEN,"mm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- sc=parse(tmp1);
- );
- tmp="\documentclass{article}"; // 16.06.09from
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- FigPdfList=append(FigPdfList,tmp); // 16.06.09upto
- tmp1="\special{papersize=W mm,H mm}";
- tmp=(XMAX-XMIN)*sc+(mar_1+mar_2);
- tmp1=replace(tmp1,"W",text(tmp));
- tmp=(YMAX-YMIN)*sc+(mar_3+mar_4);
- tmp1=replace(tmp1,"H",text(tmp));
-// if(iswindows(),sep="\",sep="/");//17.04.08
-// sep="/";
- FigPdfList=append(FigPdfList,tmp1);
- if(indexof(PathT,"pdflatex")>0 ,//16.11.23
- Libname=Dirlib+"/ketpic2esciL5";//16.11.23
- FigPdfList=append(FigPdfList,
- "\usepackage[pdftex]{pict2e}");//16.11.24
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList, // 17.04.08from
-// "\usepackage{ketpic2e,ketlayer2e}");
- ["\usepackage{"+tmp+"/ketpic2e}",
- "\usepackage{"+tmp+"/ketlayer2e}"]
- );
- ,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList,
-// "\usepackage{ketpic,ketlayer}");
- ["\usepackage{"+tmp+"/ketpic}",
- "\usepackage{"+tmp+"/ketlayer}"]
- );// 17.04.08upto
- );//16.11.22from
- FigPdfList=append(FigPdfList,
- "\usepackage{amsmath,amssymb}");
- FigPdfList=append(FigPdfList,
- "\usepackage{graphicx,color}");
- forall(ADDPACK, // 16.05.16from
-// if(indexof(#,"[")==0, // 16.09.05from
-// tmp1="\usepackage{"+#+"}";
-// ,
- tmp1="\usepackage"+#; //17.07.10
-// );
- FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto
- );
- FigPdfList=append(FigPdfList,"");
-// FigPdfList=append(FigPdfList, // deleted 2016.11.27
-// "\def\ketcindy{{K\kern-.20em%");
-// tmp="\lower.5ex\hbox{E}\kern-.125em";
-// tmp=tmp+"{TCindy}}}";
-// FigPdfList=append(FigPdfList,tmp);
-// FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,
- "\setmargin{0}{0}{0}{0}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\begin{document}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,
- "\begin{layer}{50}{0}");
- tmp1="\putnotese{X}{Y}{\input{";
- tmp1=replace(tmp1,"X",text(pos_1));
- tmp1=replace(tmp1,"Y",text(pos_2));
- FigPdfList=append(FigPdfList,tmp1+Fhead+".tex}}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\end{layer}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\end{document}");
- if(fnameorg!=Texparent,
- SCEOUTPUT=openfile(fname);
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- FigPdfList;
-);
-
-Makehelplist(libname):=(
- regional(cmdall,cmd,flg,lev,tmp,tmp1,out);
- tmp=load(libname);
- cmdall=tokenize(tmp,"//help:");
- cmdall=select(cmdall,substring(#,1,3)!=");");
- flg=0;
- forall(1..3,
- if(flg==0,
- if(substring(cmdall_#,0,7)=="start()",
- cmdall=cmdall_((#+1)..length(cmdall));
- flg=1;
- );
- );
- );
- flg=0;
- tmp=length(cmdall);
- forall(0..2,
- if(flg==0,
- if(substring(cmdall_(tmp-#),0,5)=="end()",
- cmdall=cmdall_(1..(tmp-#-1));
- flg=1;
- );
- );
- );
- out=[];
- forall(cmdall,cmd,
- tmp1=indexof(cmd,"(");
- lev=1;
- flg=0;
- forall((tmp1+1)..length(cmd),
- if(flg==0,
- tmp=substring(cmd,#-1,#);
- if(tmp=="(",lev=lev+1);
- if(tmp==")",
- lev=lev-1;
- if(lev==0,
- flg=1;
- out=append(out,substring(cmd,0,#)+";");
- );
- );
- );
- );
- );
- sort(out);
-);
-
-Helplist():=Helplist(Dirlib,["+","+3d"],"helpJ");
-// 15.05.22
-Helplist(Arg):=(
- if(islist(Arg),
- Helplist(Dirlib,Arg,"helpJ"); // 15.06.20
- ,
- if(indexof(Arg,"help")>0,
- Helplist(Dirlib,["+","+3d"],Arg);
- ,
- Helplist(Arg,["+","+3d"],"helpJ");
- );
- );
-);
-Helplist(Arg1,Arg2):=(
- if(islist(Arg1),
- Helplist(Dirlib,Arg1,Arg2);
- ,
- if(indexof(Arg2,"help")>0,
- Helplist(Dirlib,Arg1,Arg2);
- ,
- Helplist(Arg,["+","+3d"],Arg2);
- );
- );
-);
-Helplist(dir,files,help):=(
-//help:Helplist();
-//help:Helplist("helpE");
- regional(ketfiles,tmp,tmp1,tmp2);
- setdirectory(dir);
- if(contains(files,"+"),
- tmp=remove(files,["+"]);
- ketfiles=concat(["+basic1","+basic2","+out"],tmp);
- ,
- ketfiles=files;
- );
- ketfiles=apply(ketfiles,replace(#,"+","ketcindylib"));
- ketfiles=apply(ketfiles,#+".cs"); // 15.11.05 from
- tmp=apply(files,replace(#,"+","ketcindylib"));
-// tmp=apply(files,replace(#,".cs",""));
-// tmp=remove(tmp,["ketcindylibout"]);
-// tmp=apply(tmp,replace(#,"basic",""));
- tmp=apply(tmp,#+help+".txt");
- ketfiles=concat(ketfiles,tmp);// 15.11.05 upto
- tmp1=[];
- forall(ketfiles,
- tmp=Makehelplist(#);
- tmp1=concat(tmp1,tmp);
- );
- if(!islist(HLIST), // 16.12.31from
- HLIST=sort(tmp1);
- ,
- HLIST=sort(concat(HLIST,tmp1));
- ); // 16.12.31upto
- setdirectory(Dirwork);
-);
-
-
-Help():=(
- forall(HLIST,
- println(#);
- );
-);
-Help(strorg):=(
-//help:Help("Plot");
-//help:Help("*");
- regional(str,sel,tmp,tmp1,tmp2,flg,Endflg);
- if(length(HLIST)>0,flg=0,flg=-1);
- str=replace(strorg,"'",Dq); // 15.11.25
- if(length(str)==0,
- forall(HLIST,
- if(indexof(#,"*")>0,
- println(#);
- );
- flg=1;
- );
- ,
- if(str=="*",
- sel=HLIST;
- ,
- sel=select(HLIST,substring(#,0,length(str))==str);
- );
- if(length(sel)>0,flg=1);
- forall(sel,
- tmp=indexof(#,"(");
- if(substring(#,tmp-2,tmp-1)!="*",
- println(#);
- ,
-// println(substring(#,0,tmp-1));
- tmp1=substring(#,tmp,length(#)-2);
- tmp2=indexof(tmp1,"//");
- Endflg=0;
- forall(1..4,
- if(Endflg==0,
- tmp2=indexof(tmp1,"//");
- if(tmp2==0,
- println(" "+tmp1);
- Endflg=1;
- ,
- println(" "+substring(tmp1,0,tmp2-1));
- tmp1=substring(tmp1,tmp2+1,length(tmp1));
- );
- );
- );
- );
- );
- );
- if(flg==-1,println(" Help not read in"));
- if(flg==0,println(" no example"));
-);
-
-Helpkey(str):=(
- regional(tmp,tmp1,tmp2);
- tmp1=select(HLIST,indexof(#,str)>0);
- forall(tmp1,
- tmp=substring(#,0,indexof(#,"*")-1);
- Help(tmp);
- );
-);
-Helpkey(str1,str2):=(
-//help:Helpkey(keyword);
-//help:Helpkey(keyword1,keyword2);
- regional(tmp,tmp1,tmp2);
- tmp1=select(HLIST,indexof(#,str1)>0);
- tmp1=select(tmp1,indexof(#,str2)>0);
- forall(tmp1,
- tmp=substring(#,0,indexof(#,"*")-1);
- Help(tmp);
- );
-);
-
-Slidework():=Slidework(Dirwork); // 16.06.10
-Slidework(dirorg):=(
-//help:Slidework(directory);
- regional(dir,tmp,sep); // 16.06.25
- dir=replace(dirorg,unicode("000a"),""); // 16.06.25
- sep="/"; //17.04.16from
- if(iswindows(),
- dir=replace(dir,"/","\");
- sep="\";
- ); //17.04.16upto
- if(isexists(dir,""), // 16.12.20
- Changework(dir);
- if(!isexists(Dirwork,"fig"), // 16.12.18
- cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16
- CalcbyS("crdr",cmdL,["m"]);
- println(dir+sep+"fig generated"); //17.04.16
- );
- tmp=dir+sep+"fig"; //17.04.16from
- Changework(tmp);// 17.02.19upto
- ,
- println(dir+ " not exists");
- );
-);
-
-Setslidepage():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","boxc","framec","shadowc","xpos","size"];
- tmp2=apply([1,2,4,5,7,8],SlideColorList_#);
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidepage(list):=( // 16.12.22
-//help:Setslidepage([letterc,boxc,framec,shadowc,xpos,size]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- numlist=[1,2,4,5,7,8];
- forall(1..(length(list)),
- if(length(list_#)>0,
- tmp=numlist_#;
- SlideColorList_tmp=list_#;
- );
- );
- SlideColorList_3=SlideColorList_2;
- SlideColorList_6=SlideColorList_5;
-);
-
-Setslidemain():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","boxc","framec","xpos","size"];
- tmp2=apply([9,10,12,13,14],SlideColorList_#);
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidemain(list):=( // 16.12.22
-//help:Setslidemain([letterc,boxc,framec,xpos,size]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- numlist=[9,10,12,13,14];
- forall(1..(length(list)),
- if(length(list_#)>0, //17.01.04
- tmp=numlist_#;
- SlideColorList_tmp=list_#;
- );
- );
- SlideColorList_11=SlideColorList_10;
-);
-
-Setslidebody():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","style","thindense"];
- tmp2=[SlideColorList_(15),BodyStyle,ThinDense];
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidebody(str):=(
- regional(clr,style,thin);
- if(isstring(str),
- Setslidebody(str,"\Large\bf\boldmath",0.1);
- ,
- if(length(str)==1,Setslidebody(str_1));
- if(length(str)==2,Setslidebody(str_1,str_2));
- if(length(str)==3,Setslidebody(str_1,str_2,str_3));
- );
-);
-Setslidebody(str,Arg):=( //17.01.08
- if(isstring(Arg),
- Setslidebody(str,Arg,0.1);
- ,
- Setslidebody(str,"\Large\bf\boldmath",Arg);
- );
-);
-Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08
-//help:Setslidebody(["black",,0]);
-//help:Setslidebody(["blue","\Large\bf\boldmath",0.1]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- if(length(str)>0,SlideColorList_(15)=str);
- if(length(style)>0,BodyStyle=style);
- ThinDense=density;//17.01.08
-);
-
-Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]);
-// 16.12.31from
-Setslidehyper(Arg):=(
- if(isstring(Arg),
- if(length(Arg)==0, //17.01.29from
- Setslidehyper();
- ,
- Setslidehyper(Arg,[]);
- );//17.01.29upto
- ,
- Setslidehyper("dvipdfmx",Arg);
- );
-);
-Setslidehyper(driver,options):=(
-//help:Setslidehyper();
-//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]);
-//help:Setslidehyper([125,70,0]);
- regional(reL,stL,tmp,tmp1,tmp2,str,reL);
- str="";
- reL=[];
- forall(options,
- if(isstring(#),
- str=#
- ,
- reL=append(reL,#);
- );
- );
- if(length(str)>0,str=","+str);
- tmp1="";
- if(length(driver+str)>0,
- tmp1="["+driver+str+"]";
- );
- tmp1=replace(tmp1,"cl=","colorlinks=");
- tmp1=replace(tmp1,"lc=","linkcolor=");
- tmp1=replace(tmp1,"fc=","filecolor=");
- tmp1=replace(tmp1,"uc=","urlcolor=");
- Addpackage(tmp1+"{hyperref}");
- LinkPosH=125;
- LinkPosV=70;
- LinkSize=1;
- if(length(reL)>0,LinkPosH=reL_1);
- if(length(reL)>1,LinkPosV=reL_2);
- if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31
-);
-
-Settitle(cmdL):=Settitle("slide0",cmdL,[]);
-Settitle(Arg1,Arg2):=(
- if(isstring(Arg1),
- Settitle(Arg1,Arg2,[]);
- ,
- Settitle("slide0",Arg1,Arg2);
- );
-);
-Settitle(name,cmdL,options):=(
-//help:Settitle(cmdL);
-//help:Settitle(name,cmdL);
-//help:Settitle(options=["Layery=0","Color=blue"]);
- regional(tmp,tmp1,tmp2,eqL,layery,color,size,font);
- TitleName=name;
- layery="0";
- color="blue";
- size="\Large";
- font="\bf";
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="L",
- layery=tmp2;
- );
- if(tmp1=="C",
- color=tmp2;
- );
- if(tmp1=="S",
- size=tmp2;
- if(substring(size,0,1)!="\",size="\"+size);
- );
- if(tmp1=="F",
- font=tmp2;
- if(substring(font,0,1)!="\",font="\"+font);
- );
- );
- TitleCmdL=["{"+size+font];
- if(indexof(color,"[")>0,
- tmp=replace(color,"[","{");
- tmp=replace(tmp,"]","}");
- tmp1=Indexall(tmp,",");
- if(length(tmp1)>=3,
- tmp="\color[cmyk]"+tmp;
- ,
- tmp="\color[rgb]"+tmp;
- );
- ,
- tmp="\color{"+color+"}";
- );
- TitleCmdL=append(TitleCmdL,tmp);
- TitleCmdL=concat(TitleCmdL,["","\begin{layer}{120}{"+layery+"}"]);
- forall(1..(length(cmdL)),
- tmp=cmdL_#;
- if(length(tmp)>0,
- if(#==1,
- tmp="{\Huge \putnote"+tmp+"}"
- ,
- tmp="\putnote"+tmp;
- );
- TitleCmdL=append(TitleCmdL,tmp);
- );
- );
- TitleCmdL=concat(TitleCmdL,["\end{layer}","","}"]);
-);
-
-Maketitle():=(
- if(!isstring(TitleName), //17.04.13from
- drawtext(mouse().xy,"Settitle not defined",
- size->24,color->[1,0,0]);
- , //17.04.13upto
- Maketitle(TitleName);
- );
-);
-Maketitle(name):=(
-//help:Maketitle();
- regional(texfile,texmain,tmp,tmp1,sep);
- texfile=name;
- texmain=name+"main";
- SCEOUTPUT=openfile(texfile+".tex");
- forall(TitleCmdL,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
- SCEOUTPUT=openfile(texmain+".tex");
- tmp="\documentclass[landscape,10pt]{article}";
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- println(SCEOUTPUT,tmp);
- tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
- println(SCEOUTPUT,tmp);
-// if(iswindows(),sep="\",sep="/"); // 17.04.08from
-// sep="/";
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{bm,enumerate}");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- println(SCEOUTPUT,"\usepackage{graphicx}");
- ,
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
- );
- println(SCEOUTPUT,"\usepackage[usenames]{xcolor}");
- forall(ADDPACK,
-// if(indexof(#,"[")==0,
-// println(SCEOUTPUT,"\usepackage{"+#+"}");
-// ,
- println(SCEOUTPUT,"\usepackage"+#); // 17.07.10
-// );
- );
- if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE");
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"\ketslideinit");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\input{"+texfile+".tex}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
- if(iswindows(),
- Makebat(texmain,"tv");
- ,
- Makeshell(texmain,"tv");
- );
- kc();
-);
-
-Repeatsameslide(repeatflg,sestr,addedL):=(
- regional(seL,flg1,ss,nn,nrep,tmp,tmp1,tmp2,tmp3,str,j,k);
- // global RepeatList, SCEOUTPUT
- nrep=length(RepeatList);
- flg1=0;
- forall(addedL,ss,
- if(repeatflg==0,
- if(substring(ss,0,1)!="%", //16.01.04
- println(SCEOUTPUT,ss);
- );//16.01.04
- ,
- forall(1..nrep,nn,
- if(sestr=="",
- RepeatList_nn=append(RepeatList_nn,ss);
- );
- );
- if(sestr=="",
- seL=[1];
- ,
- tmp1=substring(sestr,1,length(sestr)-1);
- tmp1=replace(tmp1,",-",".."+text(nrep));
- tmp1=replace(tmp1,"-,","1..");
- tmp1="["+tmp1+"]"; //17.01.03
- seL=flatten(parse(tmp1)); //17.01.03
- );
- if(contains(seL,1),
- if(substring(ss,0,1)!="%", //16.01.04
- println(SCEOUTPUT,ss);
- );
- seL=remove(seL,[1]);
- flg1=1;
- );
- forall(1..(length(seL)),nn,
- tmp=seL_nn;
- if(tmp<=length(RepeatList), //17.01.12from
- RepeatList_tmp=append( RepeatList_tmp,ss);
- ,
- println(" "+sestr+" : "+text(tmp)+" > "+text(length(RepeatList)));
- );
- );
- if(ThinFlg==1,//16.01.05from
- if(flg1==1,seL=append(seL,1));
- seL=remove(1..nrep,seL);
- str=ss; // 17.05.28from
- repeat(10,
- tmp1=Indexall(str,"{\color");
- if(length(tmp1)>0,
- tmp2=Indexall(str,"}");
- tmp=select(tmp2,tmp1_1<#);
- tmp=substring(str,tmp1_1,tmp_1);
- str=replace(str,tmp+" ","");
- str=replace(str,tmp,"");
- );
- );//17.05.28upto
- if(contains(seL,1),
- if(substring(str,0,1)!="%",
- if(NonThinFlg==0,
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
- println(SCEOUTPUT,str);
- println(SCEOUTPUT,"}%");
- ,
- println(SCEOUTPUT,str);
- );
- );
- if(NonThinFlg==1,
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
- );
- println(SCEOUTPUT,str);
- );
- if(NonThinFlg==2,
- println(SCEOUTPUT,str);
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"}%");
- );
- );
- seL=remove(seL,[1]);
- );
- );
- if(substring(ss,0,1)!="%", //16.01.04
- forall(1..(length(seL)),nn,
- tmp=seL_nn;
- if(NonThinFlg==0,
- tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
- tmp1=[tmp1,str,"}%"];
- );
- if(NonThinFlg==1,
- tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
- tmp1=[tmp1,str];//17.01.08upto
- );
- if(NonThinFlg==2,
- tmp1=[str,"}%"];
- );
- RepeatList_tmp=concat( RepeatList_tmp,tmp1);
- );
- );
- );//16.01.05upto
- );
- );//16.12.05upto
-);
-
-Presentation(texfile):=Presentation(texfile,texfile);
-Presentation(texfile,txtfile):=(
-//help:Presentation(texfile,txtfile);
- regional(file,flgL,flg,verbflg,slideL,ns,slideorgL,wall,sld,slidecmd,tmp,tmp0,tmp1,
- tmp2,tmp3,tmp4,tmp5,newoption,top,repeatflg,nrep,nrepprev,,repstr,
- sestr,npara,paradt,parafiles,hyperflg,paractr,
- letterc,boxc,shadowc,mboxc,sep);
- slidecmd=["\ketcletter","\ketcbox","\ketdbox","\ketcframe",
- "\ketcshadow","\ketdshadow","\slidetitlex","\slidetitlesize",
- "\mketcletter","\mketcbox","\mketdbox","\mketcframe",
- "\mslidetitlex","\mslidetitlesize"];
- if(!isstring(BodyStyle),//17.01.06
- BodyStyle="\Large\bf\boldmath";
- );
- repeatflg=0;
- RepeatList=[];
- paractr=0; //16.12.31
- if(indexof(texfile,".")==0,file=texfile+".tex",file=texfile);
- if(indexof(txtfile,".")==0,tmp1=txtfile+".txt",tmp1=txtfile);
- tmp=load(tmp1);
- tmp=replace(tmp,"////","||||");// 16.05.11, 06.24(reactivated)
- slideL=tokenize(tmp,"//");
- slideorgL=slideL; // 16.07.11
- slideL=apply(slideL,Removespace(#));
- tmp=select(1..length(slideL),length(slideL_#)>0); // 16.07.11from
- slideL=apply(tmp,slideL_#);
- slideorgL=apply(tmp,slideorgL_#);
-// slideL=select(slideL,length(#)>0); // 16.07.11upto
- flg=0; // 16.06.09from
- forall(1..10,
- if(flg==0,
- if(substring(slideL_1,0,1)!="%",
- flg=1;
- ,
- slideL=slideL_(2..length(slideL));
- slideorgL=slideorgL_(2..length(slideorgL));
- );
- );
- ); // 16.06.09upto
- flgL=[];
- SCEOUTPUT = openfile(file);
- tmp=tokenize(slideL_1,"::");
- tmp1=tmp_1;
- if(length(tmp)>1,
- tmp2=tmp_2;
- tmp3=tmp_(3..length(tmp));//16.06.25
- ,
- tmp2="";
- tmp3=tmp_(2..length(tmp));//16.06.25
- );
- wall=""; // 16.06.10
- if(length(tmp3)>0,//16.06.25from
- if(substring(tmp3_1,0,1)!="\" & indexof(tmp3_1,"=")==0,
- wall=tmp3_1;
- tmp3=tmp3_(2..length(tmp3));
- );
- );//16.06.25upto
- tmp="%%% "+tmp1+" "+txtfile;// 16.06.09from
- println(SCEOUTPUT,tmp);
- tmp="\documentclass[landscape,10pt]{article}";
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- println(SCEOUTPUT,tmp);// 16.06.09from
- tmp=select(1..(length(tmp3)),indexof(tmp3_#,"\usepackage")>0);//17.06.18from
- forall(tmp,
- println(SCEOUTPUT,tmp3_#);
- );
- tmp=remove(1..(length(tmp3)),tmp);
- tmp3=tmp3_tmp;//17.06.18upto
-// if(iswindows(),sep="\",sep="/"); // 17.04.08
-// sep="/";
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- if(indexof(PathT,"lualatex")>0,
- println(SCEOUTPUT,"\usepackage{luatexja}");
- );
- println(SCEOUTPUT,"\usepackage{pict2e}");
-// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
- ,
- println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}");
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );// 17.04.08upto
- if(length(wall)==0,
- //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
- ,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- //println(SCEOUTPUT,"\usepackage{ketslide2}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}");
- );//17.04.08upto
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{bm,enumerate}");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- println(SCEOUTPUT,"\usepackage{graphicx}");
- ,
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
- );
-// println(SCEOUTPUT,"\usepackage[usenames]{color}");
-// println(SCEOUTPUT,"\usepackage{color}");//17.06.14
- println(SCEOUTPUT,"\usepackage{xcolor}");//17.07.31
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
-// if(!islist(SlideColorList), //17.03.02from
-// SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
-// letterc,mboxc,mboxc,mboxc,62,2,letterc];
-// , //17.03.02upto
- tmp4="abcdefghijklmno";
- forall(1..15,
- tmp=SlideColorList_#;
- if(islist(tmp),
- tmp=text(tmp);
- tmp=substring(tmp,1,length(tmp)-1);
- if(length(SlideColorList_#)==4,//17.01.07from
- println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{cmyk}{"+tmp+"}");
- );
- if(length(SlideColorList_#)==3,
- println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{rgb}{"+tmp+"}");
- );//17.01.07upto
- SlideColorList_#="slidecolor"+tmp4_#;
- );
- );
-// ); //17.03.02
- println(SCEOUTPUT,"\def\setthin#1{\def\thin{#1}}");//17.08.23
- println(SCEOUTPUT,"\setthin{"+text(ThinDense)+"}");//17.08.23
- forall(ADDPACK,// 16.06.09from
-// if(indexof(#,"[")==0, // 16.09.05from
-// println(SCEOUTPUT,"\usepackage{"+#+"}");
-// ,
- println(SCEOUTPUT,"\usepackage"+#); //17.07.10
-// );
- );// 16.06.09upto
- tmp=select(ADDPACK,indexof(#,"{hyperref}")>0);//16.12.31from
- if(length(tmp)>0,
- hyperflg=1;
- ,
- hyperflg=0; //16.12.31upto
- );
- forall(tmp3,
- println(SCEOUTPUT,#);
- );
- if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE"); // 16.06.09
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"\ketslideinit");
- println(SCEOUTPUT,"");
- forall(tmp, // 15.07.21
- if(substring(#,0,1)=="\", println(SCEOUTPUT,#));
- );
- if(!isstring(PageStyle),PageStyle="headings");//17.04.09
- println(SCEOUTPUT,"\pagestyle{"+PageStyle+"}");//17.04.09
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- println(SCEOUTPUT,"");
- );
- if(length(tmp2)>0,
- if(indexof(tmp2," no")==0, // 16.11.11from
- println(SCEOUTPUT,"\begin{layer}{120}{0}");
- if(substring(tmp2,0,1)!="\",
- tmp2="\putnotese{0}{0}{\input{fig/"+tmp2+".tex}}";//16.12.27
- );
- println(SCEOUTPUT,tmp2);
- println(SCEOUTPUT,"\end{layer}");
- println(SCEOUTPUT,"");
- ,
- tmp=indexof(tmp2,"=");
- if(tmp==0,
- top="10mm";
- ,
- top=substring(tmp2,tmp,length(tmp2));
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\vspace*{"+top+"}");
- println(SCEOUTPUT,"");
- ); // 16.11.11upto
- );
- println(SCEOUTPUT,"\def\mainslidetitley{22}");
- forall(1..14, //16.12.22from
- tmp=SlideColorList_#;
- if(!isstring(tmp),tmp=text(tmp));
- if(length(tmp)>0,
- tmp="\def"+slidecmd_#+"{"+tmp+"}";
- println(SCEOUTPUT,tmp);
- );
- );//16.12.22upto
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\color{"+SlideColorList_(15)+"}");
- println(SCEOUTPUT,BodyStyle);//17.01.07
- println(SCEOUTPUT,"\thispagestyle{empty}");//17.01.29
- println(SCEOUTPUT,"\addtocounter{page}{-1}");//17.01.29
- println(SCEOUTPUT,"");
- verbflg=0; //16.06.28
- repeatflg=0;//16.12.02
- nrep=0;//16.12.27
- nrepprev=0;//17.01.03
- npara=0;//16.12.27
- forall(2..length(slideL),ns,
- ThinFlg=0;
- NonThinFlg=0;
- flg=0;
- tmp1="";
- tmp2="";
- tmp3="";
- sld=removespace(slideL_ns); // 16.06.28
- sestr="";
- if((substring(sld,0,1)=="%") & (substring(sld,0,2)!="%%"), // 17.06.23
- Repeatsameslide(repeatflg,"",[slideL_ns]);
- if(repeatflg>0,
- tmp=indexof(sld,"]::");
- if(tmp>0,
- if(substring(sld,1,2)!="%",//17.05.31
- if(substring(sld,1,5)=="thin", ThinFlg=1); // 17.05.28
- sestr=substring(sld,1,tmp);
- sld=substring(sld,tmp+2,length(sld));
- tmp=indexof(sestr,"[");
- sestr=substring(sestr,tmp-1,length(sestr));//17.01.05
- );
- );
- );
- if(substring(sld,1,7)=="repeat", // 16.12.09from
- tmp=indexof(sld,"=");
- tmp5=substring(sld,tmp,length(sld));
- tmp=indexof(tmp5,",");
- if(tmp>0,//17.01.03from
- tmp5=substring(tmp5,0,tmp-1);
- );//17.01.03upto
- repeatflg=1;
- if(length(tmp5)>0,
- nrep=parse(tmp5);
- tmp=[];
- if(length(wall)>0,
- tmp=["","\input{fig/"+wall+".tex}"];
- );
- tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
- RepeatList=apply(1..nrep,if(#==1,[],tmp));
- );
- if(sestr=="",flg=1);
- tmp=indexof(sld,",");//17.01.03from
- if(tmp>0,
- sld="%"+substring(sld,tmp,length(sld));
- if(indexof(sld,"=")==0,sld=sld+"=");
- );//17.01.03upto
- );
- if(substring(sld,1,5)=="para",
- paractr=paractr+1;
- repeatflg=1;
- tmp=indexof(sld,"=");
- tmp=substring(sld,tmp,length(sld));
- if(length(tmp)==0, //17.01.03
- npara=0;
- ,
- paradt=tokenize(tmp,":");
- tmp=fileslist(Dirwork+"/fig/"+paradt_1);
- if(length(tmp)>0,
- parafiles=tokenize(tmp,",");
- if(indexof(paradt_4,"input")>0,
- tmp0=indexof(paradt_4,",");//17.01.29from
- if(tmp0>0,
- paradt=append(paradt,substring(paradt_4,tmp0,length(paradt_4)));
- paradt_4=substring(paradt_4,0,tmp0-1);
- );//17.01.29upto
- parafiles=select(parafiles,indexof(#,".tex")>0);
- if(indexof(paradt_4,"\input")==0,paradt_4="\"+paradt_4);//16.12.17
- );
- if(indexof(paradt_4,"include")>0,
- parafiles=select(parafiles,indexof(#,".pdf")>0);
- );
- npara=length(parafiles);
- ,
- println(Dirwork+"/fig/"+paradt_1+" not found");
- parafiles=[];
- npara=0;
- );
- if(nrep==0,
- nrep=npara;
- if(length(wall)>0,
- tmp=["","\input{fig/"+wall+".tex}"];
- );
- tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
- RepeatList=apply(1..nrep,if(#==1,[],tmp));
- );
- );
- forall(1..nrep, //16.12.28
- tmp4=[]; //16.12.31from
- if(hyperflg>0,
- tmp4=["\hypertarget{para"+text(paractr)+"pg"+text(#)+"}{}"];
- );//16.12.31upto
- if(npara>0, //17.01.03
- tmp4=concat(tmp4,["","\begin{layer}{120}"+paradt_2]);
- if(#<=npara, //16.12.28from
- tmp=parafiles_#;
- ,
- tmp=parafiles_npara;
- );
- tmp="{"+paradt_4+"{fig/"+paradt_1+"/"+tmp+"}}";
- if(length(paradt)>=5,
- tmp="{\scalebox{"+text(paradt_5)+"}"+tmp+"}";
- );
- if(substring(paradt_3,0,1)=="\",
- tmp=paradt_3+tmp;
- ,
- tmp="\putnote"+paradt_3+tmp;
- );
- tmp4=concat(tmp4,[tmp]);//16.12.31
- ,
- tmp4=concat(tmp4,["","\begin{layer}{120}{0}"]);
- );
- if(hyperflg>0, //17.09.05
- if(LinkSize>0.15, //17.09.05
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from
- tmp1=tmp+text(paractr)+"pg";
- tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev);
- if(#>1,tmp=tmp1+text(1),tmp=tmp2);
- tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"];
- if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}");
- if(#>1,tmp=tmp1+text(#-1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}");
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para";
- tmp2=tmp+text(paractr+1)+"pg"+text(1);
- if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-5*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}");
- tmp3=apply(tmp3,tmp,"\putnotew{"+tmp);
- tmp4=concat(tmp4,tmp3);// 17.01.12upto
- );//17.09.05
- if(LinkPosH>0, //17.09.05
- tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.01.21from
- tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}";
- tmp4=append(tmp4,tmp);//17.01.21upto
- );
- );
- tmp4=concat(tmp4,["\end{layer}",""]);//16.12.31upto
- Repeatsameslide(repeatflg,text([#]),tmp4);
- );
- );
- );
- if(substring(sld,0,2)=="%%", //17.06.23from
- println(SCEOUTPUT,sld);
- flg=1;
- ); //17.06.23upto
- if(flg==0,
- if(indexof(sld,"\begin{verbatim}")==1, // 16.06.28from
- Repeatsameslide(repeatflg,sestr,[slideL_ns]);
- verbflg=1;
- flg=1;
- ); // 16.06.28
- if(indexof(sld,"\end{verbatim}")==1,
- Repeatsameslide(repeatflg,sestr,[slideL_ns]);
- verbflg=0;
- flg=1;
- ); // 16.06.28upto
- if(flg==0,
- tmp=replace(sld,"||||","//"); // 16.05.11
- tmp=tokenize(tmp,"::"); // 16.05.11
- tmp1=tmp_1;
- if(length(tmp)>1,tmp2=tmp_2,tmp2="");
- if(length(tmp)>2,tmp3=tmp_3,tmp3="");
- if(length(tmp)>3,tmp4=tmp_4,tmp4="");
- if(length(tmp)>4,tmp5=tmp_5,tmp5="");
- if(contains(["main","new","same"],tmp1),
- if(tmp1=="new", // 16.11.09from
- newoption="";
- if(substring(tmp2,0,1)=="[",newoption=tmp2);
- );
- if(tmp1=="same",
- if(length(tmp2)==0,tmp2=newoption);
- );// 16.11.09upto
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%%%%%%%%%%%%%%%%%%%%");
- println(SCEOUTPUT,"");
- );
- );
- if(flg==0&tmp1=="main",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;//16.12.27
- npara=0;//16.12.27
- );
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- );
- println(SCEOUTPUT,"\mainslide{"+tmp2+"}");
- println(SCEOUTPUT,"");
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="new",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;
- npara=0;
- );
- if(length(wall)>0,
- Repeatsameslide(repeatflg,sestr,["\input{fig/"+wall+".tex}"]);
- );
- tmp="\newslide";
- NewSlideOption=""; //17.01.04
- if(substring(tmp2,0,1)=="[",
- NewSlideOption=tmp2; //17.01.04
- tmp=tmp+tmp2;
- tmp2=tmp3;
- tmp3=tmp4;
- tmp4=tmp5;
- );
- tmp=tmp+"{"+tmp2+"}";
- Repeatsameslide(repeatflg,sestr,[tmp,"","\vspace*{18mm}",""]);
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="same",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;
- npara=0;
- );
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- );
- tmp="\sameslide"+NewSlideOption; //17.01.04;
-// if(substring(tmp2,0,1)=="[",
-// tmp=tmp+tmp2;
-// tmp2=tmp3;
-// tmp3=tmp4;
-// );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\vspace*{18mm}");
- println(SCEOUTPUT,"");
- tmp4=tmp3;
- tmp3=tmp2;
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="itemize",
- Repeatsameslide(repeatflg,sestr,["\begin{itemize}"]);
- flgL=append(flgL,"i");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="enumerate",
- Repeatsameslide(repeatflg,sestr,["\begin{enumerate}"+tmp2]);
- flgL=append(flgL,"e");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="verbatim", //16.06.28from
- Repeatsameslide(repeatflg,sestr,["\begin{verbatim}"]);
- flgL=append(flgL,"v");
- tmp1="";
- tmp2="";
- tmp3="";
- verbflg=1;
- flg=1;
- ); //16.06.28upto
- if(flg==0&tmp1=="layer",
- Repeatsameslide(repeatflg,sestr,[""]);
- tmp="\begin{layer}";
- if(length(tmp2)>0,
- tmp=tmp+tmp2;
- ,
- tmp=tmp+"{120}{0}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp]);
- flgL=append(flgL,"l");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="putnote",
- tmp="\putnote"+tmp2+"{";
- if(indexof(tmp3,"include")==0,
- tmp1=indexof(tmp3,",");
- if(tmp1==0,
- tmp=tmp+"\input{fig/"+tmp3+".tex}}";
- ,
- tmp2=substring(tmp3,tmp1,length(tmp3));
- tmp3=substring(tmp3,0,tmp1-1);
- tmp=tmp+"\scalebox{"+tmp2+"}{\input{fig/"+tmp3+".tex}}}";
- );
- ,
- tmp2=indexof(tmp3,"[");
- tmp3=substring(tmp3,tmp2-1,length(tmp3));
- tmp=tmp+"\includegraphics"+tmp3+"{fig/"+tmp4+"}}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp]);
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="item",
- NonThinFlg=1;
- Repeatsameslide(repeatflg,sestr,["\item"]);
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="end",
- tmp=flgL_(length(flgL));
- if(tmp=="i",
- Repeatsameslide(repeatflg,sestr,["\end{itemize}"]);
- );
- if(tmp=="e",
- Repeatsameslide(repeatflg,sestr,["\end{enumerate}"]);
- );
- if(tmp=="l",
- Repeatsameslide(repeatflg,sestr,["\end{layer}",""]);
- );
- if(tmp=="v", // 16.06.28from
- Repeatsameslide(repeatflg,sestr,["\end{verbatim}",""]);
- verbflg=0;
- ); // 16.06.28upto
- flgL=flgL_(1..(length(flgL)-1));
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0, // 16.06.28from
- if(verbflg==0,
- tmp2=tmp1;
- ,
- tmp2=slideorgL_ns; // 16.07.11
- tmp2=replace(tmp2,"||","//"); // 16.07.10
- tmp3="";
- );
- ); // 16.06.28upto
- if(length(tmp2)>0,
- if(tmp2=="...", tmp2="");
- if(NonThinFlg==1,NonThinFlg=2);
- Repeatsameslide(repeatflg,sestr,[tmp2]);
- );
- if(length(tmp3)>0,
- Repeatsameslide(repeatflg,sestr,["\begin{layer}{120}{0}"]);
- if(substring(tmp3,0,1)=="{",
- tmp=tmp3;
- tmp3=tmp4;
- ,
- tmp="{60}{0}";
- );
- tmp1=indexof(tmp3,",");
- if(tmp1==0,
- tmp3="\putnotes"+tmp+"{\input{fig/"+tmp3+".tex}}";
- ,
- tmp2=substring(tmp3,tmp1,length(tmp3));
- tmp3=substring(tmp3,0,tmp1-1);
- tmp3="\putnotes"+tmp+"{\scalebox{"+tmp2+"}
- {\input{fig/"+tmp3+".tex}}}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp3,"\end{layer}",""]);
- );
- );
- );
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
-);
-
-Mkslides():=(
- regional(sep,parent,texparentorg,tmp,tmp1,tmp2,tmp3,tmp4,flg);
- tmp4=Fhead;
- Fhead="";
- if(length(Shellparent)>0, // 16.05.29
- sep="/";
- Dirwork=replace(Dirwork,"\",sep);
- parent=replace(Dirwork+Shellparent,"\",sep);// 16.05.29
- ,
- sep="\";
- Dirwork=replace(Dirwork,"/",sep);
- parent=replace(Dirwork+Batparent,"/",sep);// 16.05.29
- );
- Dirwork=replace(Dirwork,sep+"fig","");
- Setdirectory(Dirwork);
- if(length(Texmain)>0, // 15.08.14 from
- Texparent=Texmain;
- );
- texparentorg=Texparent; //17.04.10from
- if(isstring(Slidename), // 15.08.14 from
- Texparent=Slidename;
- );//17.04.10upto
- if(!isexists(Dirwork,Texparent+".txt"), // 17.04.12from
- drawtext(mouse().xy,Texparent+".txt not exist in "+Dirwork,
- size->24,color->[1,0,0]);
- , // 17.04.12upto
- Presentation(Texparent); // 15.08.14 upto
- if(iswindows(),
- tmp1=Batchild;
- tmp2=Batparent;
- tmp3=Shellfile;
- parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29
- if((isstring(Sheslide)) & (length(Shellslide)>0),
- Shellfile=Dirbin+sep+Shellslide+".bat"; // 15.12.08
- Batchild=Shellfile;
- ,
- Shellfile=".bat";
- );
- Makebat(Texparent,"tv"); // 16.07.21
- kc():=(
- println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19
- );
- kc();
- Batchild=tmp1;
- Batparent=tmp2;
- Shellfile=tmp3;
- ,
- tmp1=Shellchild;
- tmp2=Shellparent;
- tmp3=Shellfile;
- parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29
- if((isstring(Shellslide)) & (length(Shellslide)>0),
- Shellfile=Dirbin+sep+Shellslide+".sh"; // 15.12.08
- Shellchild=Shellfile;
- ,
- Shellfile=".sh";
- );
- Shellparent=replace(Shellparent,sep+"fig","");
- Makeshell(Texparent,"tv"); // 16.07.21
- kc():=(
- println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10
- );
- kc();
- Shellchild=tmp1;
- Shellparent=tmp2;
- Shellfile=tmp3;
- );
- );
- Dirwork=Dirwork+sep+"fig";
- setdirectory(Dirwork);
- Fhead=tmp4;
- Texparent=texparentorg;//17.04.10
-);
-
-Mkslidesummary():=( // 17.04.10revised
- regional(texparentorg);
- texparentorg=Texparent;
- if(isstring(Slidename),
- Texparent=Slidename;
- );
- Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]);
- Texparent=texparentorg;//17.04.10
-);
-Mkslidesummary(fin,fout):=
- Mkslidesummary(fin,fout,["m","Wait=3"]);
-Mkslidesummary(inputfile,outputfile,options):=(
-//help:Mkslidesummary(fin,fout,options);
- regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp);
- dirworkorg=Dirwork;//17.04.10from
- if(iswindows(),sep="\",sep="/");
- dirtop=replace(Dirwork,sep+"fig","");
- Changework(dirtop);//17.04.10uptp
- fin=inputfile;
- if(indexof(fin,".")==0,fin=fin+".tex");
- fout=outputfile;
- if(indexof(fout,".")==0,fout=fout+".tex");
- cmdL=[
- "Dt=mgetl('"+fin+"');",[],
- "Tmp=find((strstr(Dt,'\hypertarget')=='')
- &(strstr(Dt,'\hyperlink')==''))",[],
- "Dt=Dt(Tmp)",[],
- "Smain=strstr(Dt,'\mainslide')",[],
- "Snew=strstr(Dt,'\newslide')",[],
- "Ssame=strstr(Dt,'\sameslide')",[],
- "Nnew=[]",[],
- "Nsame=[]",[],
- "for J=1:size(Dt,1),
- if (length(Snew(J))>0)|(length(Smain(J))>0),
- Nnew=[Nnew,J],
- end;
- if length(Ssame(J))>0,
- Nsame=[Nsame,J],
- end;
- end",[],
- "Out=Dt(1:Nnew(1))",[],
- "for J=2:length(Nnew),
- Tmp=find(Nsame<Nnew(J));
- Tmp=max(Tmp);
- Tmp=max([Nsame(Tmp),Nnew(J-1)])+1;
- Out=[Out;Dt(Tmp:Nnew(J))],
- end",[],
- "Tmp=max([Nsame($),Nnew($)])+1",[],
- "Out=[Out;Dt(Tmp:size(Dt,1))]",[],
- "mputl(Out,'"+fout+"');",[]
- ];
- CalcbyS("out",cmdL,options);
- wait(1000);
- Changework(dirtop);//17.04.10
- tmp=replace(fout,".tex","");
- if(iswindows(),
- Makebat(tmp,"tv");
- ,
- Makeshell(tmp,"tv");
- );
- kc();
- Changework(dirworkorg);//17.04.10
-);
-
-Example(exorg):=Example(exorg,"");
-Example(exorg,suborg):=(
-//help:Example("Mxfun","diff");
- regional(ex,tmp,tmp1,tmp2);
- ex=replace(exorg,"'",Dq);
- sub=replace(suborg,"'",Dq);
- setdirectory(Dirlib);
- tmp=load("examples.txt");
- setdirectory(Dirwork);
- tmp=tokenize(tmp,"//");
- tmp=tmp_(1..(length(tmp)-1));
- tmp1=select(tmp,substring(#,0,length(ex))==ex);
- tmp1=sort(tmp1);
- if(length(sub)>0,
- tmp1=select(tmp1,indexof(#,sub)>0);
- );
- forall(tmp1,
- if((indexof(#,"##")>0) % (indexof(#,"~#")>0),
- tmp=indexof(#,",");
- println(substring(#,tmp,length(#)));
- ,
- println(#);
- );
- );
-);
-
-BBdata():=Bbdata(BBTarget,0);
-BBdata(fname):=Bbdata(fname,0); // 16.04.09
-BBdata(fname,optionorg):=(
-//help:BBdata(filename);
-//help:BBdata(options=0(automatic),1(make),"w=","h=");
- regional(fout,flg,path,file,kcfile,options,eqL,reL,stL,
- waiting,addop,tmp,tmp1,tmp2);
- path="";
- file=fname;
- flg=0;
- waiting=2;
- forall(reverse(1..length(fname)),
- if(flg==0,
- tmp=substring(fname,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- path=substring(fname,0,#-1);
- file=substring(fname,#,length(fname));
- flg=1;
- );
- );
- );
- if(path=="",path=Dirwork);//16.10.05
- if(indexof(file,".")==0,file=file+".pdf");
- if(islist(optionorg),options=optionorg,options=[optionorg]);
- tmp=divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- stL=tmp_7;
- flg=0;
- addop="";
- if(length(reL)>0,
- tmp=reL_1;
- if(tmp==1,flg=1);
- );
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",flg=1);
- );
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W=",
- addop=addop+",width="+tmp2;
- options=remove(options,[#]);
- );
- if(tmp1=="H=",
- addop=addop+",height="+tmp2;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(file,".");
- tmp1=substring(file,0,tmp-1);
- fout=tmp1+".txt";
- if(iswindows(),
- kcfile="kc.bat";
- ,
- kcfile="kc.sh";
- );
- if(flg==0,
- tmp=load(fout); //
- if(length(tmp)==0,
- flg=1;
- ,
- tmp=tokenize(tmp,"%%");
- tmp=tmp_2;
- tmp1=indexof(tmp,":");
- tmp=substring(tmp,tmp1,length(tmp));
- tmp=Removespace(tmp);
- if(tmp!=file,flg=1);
- );
- );
- if(length(path)==0,
- path=Dirwork;
- );
- if(flg==1,
- setdirectory(path);
- tmp=load(file);
- setdirectory(Dirwork);
- if(length(tmp)==0,
- println(" => "+file+" not exists");
- flg=-1;
- );
- );
- if(flg==1,
- SCEOUTPUT = openfile(kcfile);
- if(!iswindows(),
- println(SCEOUTPUT,"#!/bin/sh");
- );
- println(SCEOUTPUT,"cd "+Dq+path+Dq);
- tmp=replace(PathT,"pdflatex","extractbb"); //16.11.22
- tmp=replace(tmp,"pdftex","extractbb"); //16.11.22
- tmp=replace(tmp,"xelatex","extractbb");
- tmp=replace(tmp,"uplatex","extractbb"); //17.09.20
- tmp=replace(tmp,"platex","extractbb");
- tmp=replace(tmp,"latex","extractbb");
- tmp=tmp+" -O "+file;
- if(iswindows(),
- tmp=tmp+" > "+Dirwork+"\"+fout;
- ,
- tmp=tmp+" > "+Dirwork+"/"+fout;
- );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- kc(Dirwork+"/"+kcfile,Mackc+Dirlib,Fnametex); // 16.06.07
- );
- if(flg>=0,
- tmp1=0;
- repeat(floor(waiting*1000/WaitUnit),
- if(tmp1==0,
- wait(10);
- tmp=load(fout);
- if(indexof(tmp,"CreationDate")>0,
- tmp1=1;
- );
- );
- );
- if(length(tmp)==0,
- println(fout+" not generated. Maybe "+kcfile+" not run.");
- ,
- tmp=tokenize(tmp,"%%");
- tmp=select(tmp,indexof(#,"Bounding")>0);
- tmp=tmp_2; //
- tmp1=indexof(tmp,":");
- tmp=substring(tmp,tmp1,length(tmp));
- tmp=removespace(tmp);
- tmp=tokenize(tmp," ");
- tmp1="";
- forall(tmp,
- tmp1=tmp1+Sprintf(#,2)+" ";
- );
- tmp1=removespace(tmp1)+addop;
- tmp2="\includegraphics[bb="+tmp1+"]{"+file+"}";
- println(tmp2);
- );
- );
-// setdirectory(Dirwork);
- tmp2; // 16.04.25
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt
deleted file mode 100644
index d74a1a68..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2log.txt
+++ /dev/null
@@ -1,295 +0,0 @@
-// s:2017.09.05
-// Presentation ( option about display of arrowbutton )
-// s:2017.08.23
-// thin changed so as to change dynamically
-// \setthin{dense} supported
-// s:2017.08.13
-// uplatex added
-// s:2017.07.31
-// Presentation, Mktitle changed (color->xcolor)
-// Setslidehyper, Presentation changed (the case LinkSize==0)
-// s:2017.07.10
-// Presentation,.. debugged (Addpack )
-// s:2017.06.25
-// Addpackage changed ( change to full form of package )
-// Presentation changed ( ADDPACK )
-// s:2017.06.23
-// Presentation debugged ("%%")
-// s:2017.06.19
-// Htick, Vtick added
-// s:2017.06.18
-// Presentation changed ( usepackages in the1st line are writte first)
-// s:2017.06.14
-// Presentation changed ( usepackage{color} )
-// s:2017.06.11
-// Periodfun debugged( for "pi",etc)
-// e:2017.05.31
-// Presentation changed (for %%[, %%thin[ )
-// e:2017.05.30
-// Setwindow changed and moved to basic1( SW,NE )
-// e:2017.05.28
-// Repeatsameslide changed (color for thin)
-// Presentation changed ( comment out the thin line )
-// e:2017.05.24
-// WriteOutData changed (format changed 4 -> 5)
-// ReadOutdata changed ( for blank file )
-// e:2017.05.13
-// Dispchoice() added ( for Keypressed )
-// e:2017.05.13
-// WritetoSci debugged ( for Scilab6 and pdflatexs )
-// e:2017.04.16
-// Slidework debugged ( "\" for windows )
-// e:2017.04.13
-// Maketitle changed ( Error Message when Settitle is not defined )
-// Viewparent added
-// e:2017.04.12
-// Mkslides changed ( Error Message when txt file do not exist )
-// e:2017.04.11
-// Putslider added
-// e:2017.04.10
-// Mkslides,Mkslidesummary changed ( Slidename )
-// Mkslidesummary debugged
-// e:2017.04.09
-// Presentation debugged (for verbatim )
-// Presentation changed (PageStyle )
-// s:2017.04.08
-// bugs fixed
-// e:2017.04.08
-// Figpdf, Mktitle, Presentation changed
-// ( To read stylefiles from ketpicstyle);
-// e:2017.04.07
-// Viewtex changed ( To read stylefiles from ketpicstyle, log of ketcindy deleted);
-// e:2017.03.05
-// Setslide... changed (to display values when no argment )
-// e:2017.03.02
-// Presentation changed ( To define SlideColorList removed);
-// e:2017.02.19
-// Maketitle, Mkslides debugged ( for windows )
-// e:2017.01.29
-// Setslidehyper changed ( for null string)
-// Presentation changed (pagestyle added, para for input(,) changed )
-// e:2017.01.21
-// Presentation changed ( counter added to para )
-// e:2017.01.20
-// Setrange added
-// e:2017.01.15
-// Repeatsameslide debugged ( for \begin,\end )
-// e:2017.01.14
-// Mkslidesummary added
-// e:2017.01.12
-// Repeatsameslide changed ( message for "n>nrep" added)
-// Presentation changed ( hyperlink )
-// Writetosci changed ( english message for windows)
-// e:2017.01.07
-// Setslide..., Presentation changed ( slidecolorlist);
-// e:2017.01.06
-// Setslidebody, Presentation changed ( BodyStyle, "\boldmath");
-// Presentation changed ( thin added )
-// Mkbeziercrv changed ( name => nm )
-// Presentation changed ( for pdflatex,lualatex , not finished )
-// e:2017.01.05
-// Setslidemain debugged
-// Presentation changed ( NewSlideOption added to sameslide )
-// Presentation,Repeatsameslide changed (ThinFlg,NonThinFlg)
-// e:2017.01.03
-// Presentation changed (control button)
-// e:2016.12.31
-// Helplist changed (when adding to HLIST)
-// Setslidehyper added
-// Presentation changed (paractr,hyherflg)
-// e:2016.12.29
-// Writetosci changed ( add null row when path not defined)
-/// e:2016.12.28
-// Maketitle debugged
-// e:2016.12.27
-// Maketitle, Settitle added
-// Slidework debugged ( when "fig" not exists )
-// Presentation changed ( nrep,npara )
-// e:2016.12.25
-// WritetoSci changed ( date/time and path/file stamped if possible)
-// e:2016.12.23
-// BBdata changed ( waiting=2)
-// e:2016.12.22
-// Setslidetitle,Setslidemain,Setslidebody added
-// Presentation changed ( for commands above )
-// e:2016.12.20
-// Slidework changed ( isexists(dir) checked )
-// e:2016.12.18
-// Slidework changed ( to create "fig" when not exists )
-// Presentation changed ( input replaced to \input )
-// viewtex changed ( luatexja-core => luatexja )
-// e:2016.12.16
-// Tabledata,Tabledatalight changed ( "Rng" option added );
-// Viewtex,Writetosci,Makeshell,Makebat changed (for lualatex );
-// e:2016.12.09
-// Presentation changed ( for parapara ) here fileslist(directory) used
-// e:2016.12.06
-// Changetablestyle debugged
-// e:2016.12.05
-// Repeatsameslide added
-// Presentation changed ( for repeated slide )
-// e:2016.11.29
-// Macro \ketcindy recovered
-// Writetosci debugged ( for pdflatex )
-// e:2016.11.28
-// Tabledata,Tabldata changed (TableOptions added )
-// ChangeTablestyle changed completely
-// e:2016.11.24
-// Periodfun,Fourierseries added
-// Viewtex changed ( option [pdftex] added to pict2e )
-// e:2016.11.23
-// Viewtex changed (if pdflatex, Libname changed)
-// e:2016.11.22
-// Viewtex changed (for pict2e)
-// BBdata changed ( for pdflatex )
-// e:2016.11.16
-// Defvar changed (for a list of variables )
-// e:2016.11.11
-// Presentation changed (for no title (nodisp=10mm) )
-// e:2016.11.09
-// Presentation changed (for same option([]) )
-// e:2016.11.08
-// Figpdf changed (options )
-// e:2016.10.21
-// Datetime added
-// e:2016.10.20
-// Makeshell changed (skim for mac )
-// e:2016.10.19
-// Letter debugged (case of s,e )
-// e:2016.10.13
-// Letter changed (position )
-// e:2016.10.11
-// PutonLine,PutonSeg debugged & changed ( scaling, segstr)
-// e:2016.10.09
-// Expr and Letter(slightly) changed
-// e:2016.10.07
-// Commands which use Putpoint changed (=> .name )
-// e:2016.10.06
-// Putpoint changed ( .name used )
-// BBdata changed (default path )
-// e:2016.09.30
-// Letter,Expr changed ( align, string )
-// e:2016.09.25
-// Small bug-fix ( :, ", _ )
-// e:2016.09.05
-// Texview, Figpdf, Presentation changed ( for ADDPACK )
-// e:2016.08.16
-// Mkbezierptcrv, Ospline, Bspline, Beziersmooth,
-// CRspline, Beziersym changed ( for scaling )
-// e:2016.08.10
-// Setslidecolor added
-// Presentation changed ( for color change )
-// e:2016.07.21
-// Makeshell,Makebat, Mkslides changed (no call of .sh/.bat )
-// e:2016.07.11
-// Presentation changed (spaces in verbatim, and || in verbatim changed // )
-// e:2016.07.07
-// Letter, Expr changed ( opcindy "size->..." supported )
-// e:2016.06.28
-// Presentation debugged and changed (verbatim, :: )
-// e:2016.06.25
-// Presentation debugged (Preamble addtion )
-// e:2016.06.10
-// Iftosci changed (Major change )
-// Presentation debugged ( wall )
-// Slidework added
-// e:2016.06.09
-// Viewtex,Figpdf,Presentation changed ( jartcle used when platex )
-// Presentation changed ( for % )
-// e:2016.06.07
-// Mackc added
-// e:2016.06.06
-// Makebat debugged
-// e:2016.06.04
-// Viewtex,Mkslide, BBdata changed ( kc)
-// e:2016.06.02
-// Makeshell,Makebat changed ( Pathpdf= )
-// e:2016.05.30
-// Makeshell changed ( output to kcout.txt )
-// Makebat changed ( for Sumatra )
-// e:2016.05.29
-// WritetoSci changed ( for /users )
-// Makeshell, Makebat, Mkslide changed ( for /users )
-// e: 2016.05.25
-// Defun changed ( for "forall")
-// Iftosci debugged, Fortosci added
-
-
-///////////////////
-// e: 2015.11.06
-// libbasic divided to libbasic1,libbasic2
-// e: 2015.11.09
-// helplist debugged
-// e: 2015.11.25
-// Help changed ( ' changed to Dq)
-// e: 2015.11.29
-// Example, Helpkey added
-// e: 2015.12.08
-// Mkslide changed ( Dirbin )
-// e: 2015.12.12
-// Makeshell, Makebat changed ( for autosetting )
-// Mksliides changed ( for autosetting )
-// e: 2015.12.14
-// Mkslides, Makeshell, Makebat changed ( for autosetting of slides )
-// e: 2016.01.12
-// Viewtex changed ( Title changed to verb )
-// e: 2016.01.18
-// Viewtex debugged ( Title changed to verb )
-// e: 2016.01.21
-// Drwxy debugged
-// Help of Drwpt added
-// Sciform patched
-// e: 2016.02.02
-// Helpkey changed ( for 2 keywords )
-// e: 2016.02.10
-// Putoncurve changed ( option :"Msg=no" )
-// Setwindow changed ( option :"Msg=no" )
-// e: 2016.02.16
-// Help of ExtractData changed
-// e: 2016.02.18
-// Deffun ( help ) changed
-// e: 2016.02.22
-// Ptonseg changed ( par option added )
-// e: 2016.03.05
-// Drwpt changed ( point/pointlist allowed)
-// e: 2016.03.07
-// ReadOutData changed ( change of path supported)
-// e: 2016.03.09
-// ReadOutData debugged ( in case of no path)
-// e: 2016.03.25
-// Figpdf added
-// e: 2016.03.26
-// Figpdf changed ( for various unitlen )
-// e: 2016.03.28
-// Mkshell, Mkbat changed ( for "mv" )
-// e: 2016.04.07
-// Viewtex changed ( by \ketcindy)
-// Figpdf changed ( options "4,3,2" effective )
-// e: 2016.04.08
-// Figpdf,Makeshell, Makebat changed ( FigPdfList )
-// Figpdf changed ( options )
-// e: 2016.04.09
-// Drwpt,Pointdata changed ( boundary )
-// e: 2016.04.11
-// BBdata added
-// BBdata changed ( to look at fig.txt)
-// e: 2016.04.12
-// BBdata changed ( prec=2, option of width/heigh )
-// e: 2016.04.17
-// ReadOutData changed ( for file of no "." => ".txt" )
-// Writebezier, Readbezier added
-// e: 2016.04.18
-// Sciform debugged
-// e: 2016.04.19
-// Sciform changed
-// e: 2016.04.22
-// Writebezier, Readbezier changed
-// e: 2016.05.11
-// Presentation changed (for url //// )
-// e: 2016.05.15
-// Makeshell changed (sh added )
-// e: 2016.05.16
-// Addpackage added
-// Viewtex,Figpdf changed ( for Addpackage )
-////// To Reverse sequence //////
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt
index b40ce122..428c5b30 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2logr.txt
@@ -1,3 +1,37 @@
+//2017.12.24
+// IftoR, FortoR,Deffun rewritten
+//2017.12.23
+// Bezier, Translatedata,Rotatedata,Reflectdata debugged ( [ ] )
+// RSform : help added
+//2017.12.19
+// WritetoSci() added (=WritetoR(), for old Parent button )
+//2017.12.16
+// Setslidehyper changed ("Size=","Pos=[]")
+//2017.12.09
+// Mkslides changed (for animation)
+// MakeRarg (from Makesciarg ) added ( RSslash )
+// Setax, Htickmark, Vtickmark changed ( MakeRarg )
+//2017.11.24
+// Slidework changed ( makedir)
+// Rotatedata debugged ( MeasureDepth)
+//2017.11.20
+// Slidework changed ( for the case of (ex) dir="...../")
+//2017.11.05
+// Figpdf debugged
+//2017.11.01
+// Presentation debugged ( usepackage{ketpic} etc. )
+//2017.10.30
+// Viewtex changed ( path of ketpicstyle )
+//2017.10.28
+// WritetoRS changed ( generator is written )
+//2017.10.26
+// Mksummary changed for R
+//2017.10.18
+// Letter,Letterrot,Exprrot debugged (\ and \\)
+//2017.10.17
+// Viewtex debugged ($ removed for xelatex)
+//2017.10.16
+// Mkslides debugged ( line4 from last,path)
//2017.10.14
// Makebat,Makeshell changed(flow="tt" supported)
//2017.10.13
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs
index b2c9fb93..5c8381af 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibbasic2r.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindybasic2(2017.10.13) loaded");
+println("ketcindybasic2(2017.12.24) loaded");
//help:start();
@@ -77,7 +77,7 @@ Scalepoint(point,ratio,center):=(
Reflectpoint(point,symL):=(
//help:Reflectpoint(A,B);
//help:Reflectpoint(A,[[2,3]]);
-//help:Reflectpoint(A,[C,E]);\\
+//help:Reflectpoint(A,[C,E]);
regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp);
tmp=Lcrd(point);
X1=tmp_1; Y1=tmp_2;
@@ -124,6 +124,7 @@ Rotatedata(nm,plist,angle,options):=(
PdL=[];
forall(pdata,Njj,
if(isstring(Njj),Kj=parse(Njj),Kj=Njj);
+ if(MeasureDepth(Kj)==0,Kj=[Kj]); //17.11.24
if(MeasureDepth(Kj)==1,Kj=[Kj]);
tmp2=[];
forall(Kj,Nj,
@@ -150,12 +151,10 @@ Rotatedata(nm,plist,angle,options):=(
if(length(tmp1)==1,tmp1=tmp1_1);
tmp=name+"="+textformat(tmp1,5);
parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
+ tmp1=text(plist);
+ tmp1=RSform(tmp1);// 17.12.23(2lines)
tmp=name+"=Rotatedata("+tmp1+","
- +textformat(angle,5)+","+textformat(Pt,5)+")";
+ +textformat(angle,5)+","+RSform(textformat(Pt,5))+")"; //17.12.23
GLIST=append(GLIST,tmp);
);
if(Noflg<2,
@@ -213,11 +212,9 @@ Translatedata(nm,plist,mov,options):=(
if(length(tmp1)==1,tmp1=tmp1_1);
tmp=name+"="+textformat(tmp1,5);
parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Translatedata("+tmp1+","+textformat(mov,5)+")";
+ tmp1=text(plist);
+ tmp1=RSform(tmp1);// 17.12.23
+ tmp=name+"=Translatedata("+tmp1+","+RSform(textformat(mov,5))+")";
GLIST=append(GLIST,tmp);
);
if(Noflg<2,
@@ -293,11 +290,10 @@ Scaledata(nm,plist,rx,ry,options):=(
if(length(tmp1)==1,tmp1=tmp1_1);
tmp=name+"="+textformat(tmp1,5);
parse(tmp);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
+ tmp1=text(plist);
+ tmp1=RSform(tmp1); // 17.12.23
tmp=name+"=Scaledata("+tmp1+","
- +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")";
+ +textformat(rx,5)+","+textformat(ry,5)+","+RSform(textformat(Pt,5))+")";
GLIST=append(GLIST,tmp);
);
if(Noflg<2,
@@ -371,11 +367,9 @@ Reflectdata(nm,plist,symL,options):=(
if(length(tmp1)==1,tmp1=tmp1_1);
tmp=name+"="+textformat(tmp1,5);
parse(tmp);
-// tmp1=textformat(plist,5);
- tmp1=text(plist); // 15.10.15
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")";
+ tmp1=text(plist);
+ tmp1=RSform(tmp1);// 17.12.23
+ tmp=name+"=Reflectdata("+tmp1+","+RSform(textformat(symL,5))+")";//17.12.23
GLIST=append(GLIST,tmp);
);
if(Noflg<2,
@@ -427,14 +421,14 @@ Mkcircles(options):=(
);
);
-Makesciarg(arglist):=(
+MakeRarg(arglist):=(
regional(str,tmpstr);
str="";
forall(arglist,
if(isstring(#),
- tmpstr=Dq+#+Dq;
+ tmpstr=Dq+RSslash(#)+Dq;
,
- tmpstr=textformat(#,5);
+ tmpstr=textformat(#,6);
);
str=str+tmpstr+",";
);
@@ -446,7 +440,7 @@ Setax(arglist):=(
//help:Setax(["l","x","e","y","n","O","sw"]);
//help:Setax([7,"nw"]);
regional(tmp);
- tmp=Makesciarg(arglist);
+ tmp=MakeRarg(arglist);
Com1st("Setax("+tmp+")");
);
@@ -454,14 +448,14 @@ Htickmark(arglist):=(
//help:Htickmark([1,"1",2,"sw","2"]);
regional(tmp);
tmp="";
- tmp=Makesciarg(arglist);
+ tmp=MakeRarg(arglist);
Com2nd("Htickmark("+tmp+")");
);
Vtickmark(arglist):=(
//help:Vtickmark([1,"1",2,"sw","2"]);
regional(tmp);
- tmp=Makesciarg(arglist);
+ tmp=MakeRarg(arglist);
Com2nd("Vtickmark("+tmp+")");
);
@@ -633,6 +627,7 @@ Letter(list,options):=(
if(Ymv==0,Ymv=-4);//16.10.08
aln="mid"; // 16.09.30upto
);
+ Str=list_(Nj+2); //17.10.17
drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv],
size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09
);
@@ -662,8 +657,10 @@ Letterrot(pt,dir,movstr,str):=(
Letterrot(pt,dir,tmov,nmov,str);
);
Letterrot(pt,dir,tmov,nmov,str):=(
+ regional(tmp);
Letter([pt,"c",str],["notex"]);
- Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
+ tmp=replace(str,"\","\\"); //17.10.18
+ Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+tmp+"')");
);
Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str);
@@ -688,8 +685,10 @@ Exprrot(pt,dir,movstr,str):=(
Exprrot(pt,dir,tmov,nmov,str);
);
Exprrot(pt,dir,tmov,nmov,str):=(
+ regional(tmp);
Expr([pt,"c",str],["notex"]);
- Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')");
+ tmp=replace(str,"\","\\"); //17.10.18
+ Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+tmp+"')");
);
Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2);
@@ -820,9 +819,9 @@ BezierCurve(nm,ptlistorg,ctrlistorg,options):=(
tmp=name+"="+textformat(out,5);
parse(tmp);
tmp1=textformat(ptlist,5);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
+ tmp1=RSform(tmp1,2); //17.12.23
tmp2=textformat(ctrlist,5);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
+ tmp2=RSform(tmp2,3); //17.12.23
GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")");
);
if(Noflg<2,
@@ -2273,6 +2272,7 @@ Sciform(list):=(
RSform(str):=RSform(str,3);
RSform(str,listfrom):=(
+//help:RSform(string,listfrom);
regional(posL,mxlv,rep1,rep2,rep3,prev,out,
tmp,tmp1,tmp2);
rep1="c("; rep2="c("; rep3="list(";
@@ -2372,137 +2372,108 @@ Defvar(name,value):=(
VLIST=prepend([name,value],VLIST);
);
-IftoR(strorg):=( // 17.09.16
- regional(str,ifL,ppL,cpL,kk,Lv,no,out,prev,
- tmp,tmp1,tmp2);
- str=replace(strorg,LFmark,"");
- ifL=Indexall(str,"if(");
- ifL=apply(ifL,#+2);
- if(length(ifL)>0,
+IftoR(strorg):=(
+ regional(str,pre,post,sub,ppL,ifstr,out,tmp,tmp1,tmp2);
+ str=strorg;
+ ifstr=indexof(str,"if(");
+ if(ifstr==0,
+ out=replace(str,",","}else{");
+ ,
+ pre=substring(str,0,ifstr-1)+"if(";
ppL=Bracket(str,"()");
- tmp2=[];
- forall(ifL,kk,
- tmp=select(ppL,#_1==kk);
- tmp1=select(ppL,#_2==-tmp_1_2);
- tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]);
- );
- ifL=tmp2;
- cpL=[];
- forall(1..(length(str)),kk,
- if(substring(str,kk-1,kk)==",",
- tmp1=select(ifL,#_1<kk & kk<#_2);
- Lv=max(apply(tmp1,#_3));
- tmp=select(cpL,#_2==Lv);
- no=length(tmp)+1;
- cpL=append(cpL,[kk,Lv,no]);
- );
- if(contains(ifL,kk),
- tmp1=select(ifL,#_1<kk & kk<#_2);
- Lv=max(apply(tmp1,#_3));
- tmp=select(cpL,#_2==Lv);
- no=length(tmp)+1;
- cpL=append(cpL,[kk,Lv,no]);
- );
- );
- forall(ifL,
- str_(#_2)="}";
- );
- out="";
- prev=0;
- forall(cpL,
- out=out+substring(str,prev,#_1-1);
- prev=#_1;
- if(#_3==1,out=out+"){");
- if(#_3==2,out=out+"}else{");
- );
- out=out+substring(str,prev,length(str));
+ tmp1=ifstr+2;
+ tmp=select(ppL,#_1==tmp1);
+ tmp=select(ppL,#_2==-tmp_1_2);
+ tmp2=tmp_1_1;
+ sub=substring(str,tmp1,tmp2-1);
+ post="}"+substring(str,tmp2,length(str));
+ tmp=indexof(sub,",");
+ tmp1=substring(sub,0,tmp-1);
+ tmp2=substring(sub,tmp,length(sub));
+ sub=tmp1+"){"+tmp2;
+ tmp=IftoR(sub);
+ out=pre+tmp+"}";
);
+ out;
);
-FortoR(strorg):=( // 17.09.16
- regional(str,frL,ppL,cpL,kk,Lv,no,out,prev,
- tmp,tmp1,tmp2);
- str=replace(strorg,LFmark,"");
- frL=Indexall(str,"forall(");
- frL=apply(frL,#+6);
- if(length(frL)>0,
+FortoR(strorg):=(
+ regional(str,pre,post,sub,ppL,forstr,out,tmp,tmp1,tmp2);
+ str=strorg;
+ forstr=indexof(str,"forall(");
+ if(forstr==0,
+ out=str;
+ ,
+ pre=substring(str,0,forstr-1)+"for(";
ppL=Bracket(str,"()");
- tmp2=[];
- forall(frL,kk,
- tmp=select(ppL,#_1==kk);
- tmp1=select(ppL,#_2==-tmp_1_2);
- tmp2=append(tmp2,[kk,tmp1_1_1,tmp_1_2]);
- );
- frL=tmp2;
- cpL=[];
- forall(1..(length(str)),kk,
- if(substring(str,kk-1,kk)==",",
- tmp1=select(frL,#_1<kk & kk<#_2);
- Lv=max(apply(tmp1,#_3));
- tmp=select(cpL,#_2==Lv);
- no=length(tmp)+1;
- cpL=append(cpL,[kk,Lv,no]);
- );
- if(contains(frL,kk),
- tmp1=select(frL,#_1<kk & kk<#_2);
- Lv=max(apply(tmp1,#_3));
- tmp=select(cpL,#_2==Lv);
- no=length(tmp)+1;
- cpL=append(cpL,[kk,Lv,no]);
- );
- );
- forall(frL,
- str_(#_2)="}";
- );
- out="";
- prev=0;
- forall(cpL,
- if(#_3==1,
- tmp1=substring(str,prev,#_1-1);
- tmp=indexof(tmp1,"(");
- tmp1=substring(tmp1,tmp,length(tmp1));
- tmp1=replace(tmp1,"..",":");
- );
- if(#_3==2,
- tmp2=substring(str,prev,#_1-1);
- out=out+"for("+tmp2+" in "+tmp1+"){";
- );
- prev=#_1;
- );
- out=out+substring(str,prev,length(str));
- );
+ tmp1=forstr+6;
+ tmp=select(ppL,#_1==tmp1);
+ tmp=select(ppL,#_2==-tmp_1_2);
+ tmp2=tmp_1_1;
+ sub=substring(str,tmp1,tmp2-1);
+ post="}"+substring(str,tmp2,length(str));
+ tmp=indexof(sub,",");
+ tmp1=substring(sub,0,tmp-1);
+ tmp2=substring(sub,tmp,length(sub));
+ sub=tmp1+"){"+tmp2;
+ tmp1=indexof(sub,"{");
+ tmp2=indexof(sub,",");
+ tmp=substring(sub,tmp1,tmp2-1);
+ pre=pre+tmp+" in "+substring(sub,0,tmp1-1)+"{";
+ sub=substring(sub,tmp2,length(sub));
+ tmp=FortoR(sub);
+ out=pre+tmp+"}";
+ );
+ out=replace(out,"..",":");
+ out;
);
Deffun(name,bodylist):=(
//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]);
- regional(funstr,tmp,tmp1,str,Pos);
+ regional(funstr,str,Pos,nbody,bdy,ppL,bpL,excma,tmp,tmp1,tmp2);
funstr=name+":=(";
forall(bodylist,
funstr=funstr+#+";";
);
funstr=funstr+");";
parse(funstr);
- tmp=indexof(name,"("); // 17.09.15from
+ tmp=indexof(name,"(");
str=substring(name,0,tmp-1)+"<-function(";
str=str+substring(name,tmp,length(name))+"{";
- forall(1..(length(bodylist)-1),
- tmp1=bodylist_#;
- tmp1=replace(tmp1,LFmark,"");
- tmp1=replace(tmp1," ","");
- Pos=indexof(tmp1,"regional")+indexof(tmp1,"local");
+ forall(1..(length(bodylist)-1),nbody,
+ bdy=bodylist_nbody;
+ Pos=indexof(bdy,"regional")+indexof(bdy,"local");
if(Pos==0,
- tmp=RSform(tmp1);
- if(indexof(tmp,"if(")>0,
- tmp=iftoR(tmp);
+ bdy=replace(bdy,LFmark,"");
+ bdy=replace(bdy," ","");
+ ppL=Bracket(bdy,"()");
+ bpL=Bracket(bdy,"[]");
+ tmp1=select(bpL,#_2==1);
+ tmp2=select(bpL,#_2==-1);
+ excma=[];
+ forall(1..(length(tmp1)),
+ excma=append(excma,[tmp1_#_1,tmp2_#_1]);
);
- if(indexof(tmp,"forall(")>0,
- tmp=FortoR(tmp);
- );
- str=str+tmp+";";
+ tmp1=Indexall(bdy,",");
+ forall(tmp1,cma,
+ tmp=select(excma,(#_1<cma)&(cma<#_2));
+ if(length(tmp)>0,
+ bdy=substring(bdy,0,cma-1)+"'"+substring(bdy,cma,length(bdy));
+ );
+ );
+ tmp=indexof(bdy,"forall");
+ if(tmp>0,
+ bdy=FortoR(bdy);
+ );
+ tmp=indexof(bdy,"if(");
+ if(tmp>0,
+ bdy=IftoR(bdy);
+ );
+ bdy=RSform(replace(bdy,"'",","));
+ str=str+bdy+";";
);
);
str=str+"return("+bodylist_(length(bodylist))+")}";
- //17.09.15upto
FUNLIST=append(FUNLIST,str);
);
@@ -2581,6 +2552,7 @@ Windispg(pltdata):=(
layer(0);
);
+WritetoSci():=WritetoRS(); //17.12.19
WritetoRS():=WritetoRS(FnameR);// 17.09.17from
WritetoRS(Arg):=(
regional(string,filename,shch,tmp1,tmp2);
@@ -2639,7 +2611,7 @@ WritetoRS(filename,shchoice):=(
println(SCEOUTPUT,"source('"+tmp+".r')");
);
println(SCEOUTPUT,"Ketinit()");
- println(SCEOUTPUT,"cat('KETpic',ThisVersion,'\n')");
+ println(SCEOUTPUT,"cat(ThisVersion,'\n')");
println(SCEOUTPUT,"Fnametex='"+Fnametex+"'");
println(SCEOUTPUT,"FnameR='"+FnameR+"'");
println(SCEOUTPUT,"Fnameout='"+Fnameout+"'");
@@ -2709,8 +2681,11 @@ WritetoRS(filename,shchoice):=(
println(SCEOUTPUT,"");
println(SCEOUTPUT,"if(1==1){");
println(SCEOUTPUT,"");
- tmp=replace(Dirwork,"\","/"); //17.09.24(2lines)
- println(SCEOUTPUT,"Openfile('"+tmp+"/"+Fnametex+"','"+ULEN+"')");
+ tmp=replace(Dirwork,"\","/"); //17.10.28(3lines)
+ tmp="Openfile('"+tmp+pathsep()+Fnametex+"','"+ULEN+"'";
+ tmp=tmp+",'Cdy="+loaddirectory+text(curkernel());
+ tmp=replace(tmp,"\","\\");
+ println(SCEOUTPUT,tmp+"')");
forall(COM2ndlist,
if(indexof(#,"Texcom")==0, //17.09.22
println(SCEOUTPUT,RSform(#));
@@ -3025,7 +3000,7 @@ Makeshell(texmainfile,flow):=(
println(SCEOUTPUT,tmp);
);
if(tex=="xelatex",
- tmp="export PATH=$"+path+":${PATH}";
+ tmp="export PATH="+path+":${PATH}";
println(SCEOUTPUT,tmp);
tmp="xelatex"+" "+texmainfile+".tex";
println(SCEOUTPUT,tmp);
@@ -3220,16 +3195,26 @@ Viewtex():=(
println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16
println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18
);
- println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from
-// tmp=replace(Dirhead+"/ketpicstyle","\","/");
-// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
-// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ tmp=replace(Dirhead,"\","/"); //17.10.30from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ );
,
- println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
-// tmp=replace(Dirhead+"/ketpicstyle","\","/");
-// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
-// println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );//17.04.07upto
+ tmp=replace(Dirhead,"\","/");
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );
+ );//17.10.30upto
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{graphicx}");
println(SCEOUTPUT,"\usepackage{color}");
@@ -3437,43 +3422,42 @@ Figpdf(fnameorg,optionorg):=(
// if(iswindows(),sep="\",sep="/");//17.04.08
// sep="/";
FigPdfList=append(FigPdfList,tmp1);
- if(indexof(PathT,"pdflatex")>0 ,//16.11.23
- Libname=Dirlib+"/ketpic2esciL5";//16.11.23
+ if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")>0, //17.11.05from
FigPdfList=append(FigPdfList,
- "\usepackage[pdftex]{pict2e}");//16.11.24
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList, // 17.04.08from
-// "\usepackage{ketpic2e,ketlayer2e}");
- ["\usepackage{"+tmp+"/ketpic2e}",
- "\usepackage{"+tmp+"/ketlayer2e}"]
+ "\usepackage{pict2e}");
+ tmp=replace(Dirhead,"\","/");
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ FigPdfList=append(FigPdfList,
+ "\usepackage{ketpic2e,ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ FigPdfList=concat(FigPdfList,
+ ["\usepackage{"+tmp+"/ketpic2e}",
+ "\usepackage{"+tmp+"/ketlayer2e}"]);
);
,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList,
-// "\usepackage{ketpic,ketlayer}");
- ["\usepackage{"+tmp+"/ketpic}",
- "\usepackage{"+tmp+"/ketlayer}"]
- );// 17.04.08upto
- );//16.11.22from
+ tmp=replace(Dirhead,"\","/");
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ FigPdfList=append(FigPdfList,
+ "\usepackage{ketpic,ketlayer}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ FigPdfList=concat(FigPdfList,
+ ["\usepackage{"+tmp+"/ketpic}",
+ "\usepackage{"+tmp+"/ketlayer}"]);
+ );
+ );//17.11.05upto
FigPdfList=append(FigPdfList,
"\usepackage{amsmath,amssymb}");
FigPdfList=append(FigPdfList,
"\usepackage{graphicx,color}");
forall(ADDPACK, // 16.05.16from
-// if(indexof(#,"[")==0, // 16.09.05from
-// tmp1="\usepackage{"+#+"}";
-// ,
- tmp1="\usepackage"+#; //17.07.10
-// );
+ tmp1="\usepackage"+#; //17.07.10
FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto
);
FigPdfList=append(FigPdfList,"");
-// FigPdfList=append(FigPdfList, // deleted 2016.11.27
-// "\def\ketcindy{{K\kern-.20em%");
-// tmp="\lower.5ex\hbox{E}\kern-.125em";
-// tmp=tmp+"{TCindy}}}";
-// FigPdfList=append(FigPdfList,tmp);
-// FigPdfList=append(FigPdfList,"");
FigPdfList=append(FigPdfList,
"\setmargin{0}{0}{0}{0}");
FigPdfList=append(FigPdfList,"");
@@ -3676,21 +3660,18 @@ Helpkey(str1,str2):=(
Slidework():=Slidework(Dirwork); // 16.06.10
Slidework(dirorg):=(
//help:Slidework(directory);
- regional(dir,tmp,sep); // 16.06.25
+ regional(dir,tmp); // 16.06.25
dir=replace(dirorg,unicode("000a"),""); // 16.06.25
- sep="/"; //17.04.16from
- if(iswindows(),
- dir=replace(dir,"/","\");
- sep="\";
- ); //17.04.16upto
+ dir=replace(dir,"/",pathsep());//17.11.20from
+ dir=replace(dir,"\",pathsep());
+ tmp=length(dir);
+ if(substring(dir,tmp-1,tmp)==pathsep(),
+ dir=substring(dir,0,tmp-1);
+ );//17.11.20upto
if(isexists(dir,""), // 16.12.20
Changework(dir);
- if(!isexists(Dirwork,"fig"), // 16.12.18
- cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16
- CalcbyS("crdr",cmdL,["m"]);
- println(dir+sep+"fig generated"); //17.04.16
- );
- tmp=dir+sep+"fig"; //17.04.16from
+ println(makedir(dir,"fig"));//17.11.23
+ tmp=dir+pathsep()+"fig"; //17.04.16from
Changework(tmp);// 17.02.19upto
,
println(dir+ " not exists");
@@ -3789,49 +3770,71 @@ Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08
ThinDense=density;//17.01.08
);
-Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]);
-// 16.12.31from
+Setslidehyper():=( 17.12.16from
+ Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]);
+);
Setslidehyper(Arg):=(
if(isstring(Arg),
- if(length(Arg)==0, //17.01.29from
- Setslidehyper();
- ,
- Setslidehyper(Arg,[]);
- );//17.01.29upto
- ,
- Setslidehyper("dvipdfmx",Arg);
+ Setslidehyper(Arg,["cl=true,lc=blue,fc=blue",125,70,1]);
+ ,
+ Setslidehyper("",Arg);
);
);
-Setslidehyper(driver,options):=(
+Setslidehyper(driverorg,options):=(
//help:Setslidehyper();
-//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]);
- regional(reL,stL,tmp,tmp1,tmp2,str,reL);
- str="";
- reL=[];
- forall(options,
- if(isstring(#),
- str=#
- ,
- reL=append(reL,#);
+//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue","Pos=[125,70]","Size=1"]);
+ regional(driver,eqL,reL,stL,,str,tmp,tmp1,tmp2);
+ driver=driverorg;
+ if(length(driver)==0,
+ if(indexof(PathT,"pdflatex")+indexof(PathT,"lualatex")==0,
+ driver="dvipdfmx";
);
);
- if(length(str)>0,str=","+str);
- tmp1="";
- if(length(driver+str)>0,
- tmp1="["+driver+str+"]";
+ tmp=Divoptions(options);
+ eqL=tmp_5;
+ reL=tmp_6;
+ stL=tmp_7;
+ if(length(stL)>0,
+ str=stL_1;
+ ,
+ str="";
+ );
+ if(length(str)==0,
+ str="cl=true,lc=blue,fc=blue";
+ );
+ if(length(driver)==0,
+ tmp1="["+str+"]";
+ ,
+ tmp1="["+driver+","+str+"]";
);
tmp1=replace(tmp1,"cl=","colorlinks=");
tmp1=replace(tmp1,"lc=","linkcolor=");
tmp1=replace(tmp1,"fc=","filecolor=");
tmp1=replace(tmp1,"uc=","urlcolor=");
+ ADDPACK=select(ADDPACK,indexof(#,"hyperref")==0);
Addpackage(tmp1+"{hyperref}");
LinkPosH=125;
LinkPosV=70;
LinkSize=1;
- if(length(reL)>0,LinkPosH=reL_1);
- if(length(reL)>1,LinkPosV=reL_2);
- if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31
-);
+ if(length(reL)>0,
+ LinkPosH=reL_1;
+ if(length(reL)>1,LinkPosV=reL_2);
+ if(length(reL)>2,LinkSize=max(reL_3,0.1));
+ );
+ forall(eqL,
+ tmp=indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ tmp2=parse(tmp2);
+ if(tmp1=="P",
+ LinkPosH=tmp2_1;
+ LinkPosV=tmp2_2;
+ );
+ if(tmp1=="S",
+ LinkSize=max(tmp2,0.1);
+ );
+ );
+); //17.12.16upto
Settitle(cmdL):=Settitle("slide0",cmdL,[]);
Settitle(Arg1,Arg2):=(
@@ -3930,13 +3933,16 @@ Maketitle(name):=(
println(SCEOUTPUT,tmp);
tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
println(SCEOUTPUT,tmp);
-// if(iswindows(),sep="\",sep="/"); // 17.04.08from
-// sep="/";
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ tmp=replace(Dirhead,"\","/");//17.11.01from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ );//17.11.01upto
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{bm,enumerate}");
if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
@@ -4152,25 +4158,37 @@ Presentation(texfile,txtfile):=(
println(SCEOUTPUT,"\usepackage{luatexja}");
);
println(SCEOUTPUT,"\usepackage{pict2e}");
-// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from
,
println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}");
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ );// 17.04.08upto
+ tmp=replace(Dirhead,"\","/");//17.11.01from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ ,
tmp=replace(Dirhead+"/ketpicstyle","\","/");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );// 17.04.08upto
+ );
if(length(wall)==0,
- //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ tmp=replace(Dirhead,"\","/");//17.11.01from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketslide}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
+ );
,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- //println(SCEOUTPUT,"\usepackage{ketslide2}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}");
+ tmp=replace(Dirhead,"\","/");
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketslide2}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}");
+ );
);//17.04.08upto
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{bm,enumerate}");
@@ -4726,7 +4744,11 @@ Mkslides():=(
if(iswindows(),
tmp2=Batparent;
parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29
- Makebat(Texparent,"tv"); // 16.07.21
+ if(indexof(Pathpdf,"Adobe")>0, //17.12.09from
+ Makebat(Texparent,"ttv");
+ ,
+ Makebat(Texparent,"tv");
+ ); //17.12.09upto
kc():=(
println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19
);
@@ -4736,7 +4758,11 @@ Mkslides():=(
tmp2=Shellparent;
parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29
Shellparent=replace(Shellparent,sep+"fig","");
- Makeshell(Texparent,"tv"); // 16.07.21
+ if(indexof(Pathpdf,"Adobe")>0, //17.12.09from
+ Makeshell(Texparent,"ttv");
+ ,
+ Makeshell(Texparent,"tv");
+ ); //17.12.09upto
kc():=(
println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10
);
@@ -4744,64 +4770,64 @@ Mkslides():=(
Shellparent=tmp2;
);
);
- Dirwork=Dirwork+sep+"fig";
+ Dirwork=Dirwork+pathsep()+"fig"; //17.10.16
setdirectory(Dirwork);
Fhead=tmp4;
Texparent=texparentorg;//17.04.10
);
-Mkslidesummary():=( // 17.04.10revised
+Mkslidesummary():=( // 17.10.26 for R
regional(texparentorg);
texparentorg=Texparent;
if(isstring(Slidename),
Texparent=Slidename;
);
- Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]);
- Texparent=texparentorg;//17.04.10
+ Mkslidesummary(Texparent,Texparent+"digest",["m","Wait=3"]);
+ Texparent=texparentorg;
);
Mkslidesummary(fin,fout):=
Mkslidesummary(fin,fout,["m","Wait=3"]);
Mkslidesummary(inputfile,outputfile,options):=(
//help:Mkslidesummary(fin,fout,options);
- regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp);
+ regional(fin,fout,out,figflg,dirworkorg,dirtop,tmp);
dirworkorg=Dirwork;//17.04.10from
- if(iswindows(),sep="\",sep="/");
- dirtop=replace(Dirwork,sep+"fig","");
+ dirtop=replace(Dirwork,pathsep()+"fig","");
Changework(dirtop);//17.04.10uptp
fin=inputfile;
if(indexof(fin,".")==0,fin=fin+".tex");
fout=outputfile;
if(indexof(fout,".")==0,fout=fout+".tex");
cmdL=[
- "Dt=mgetl('"+fin+"');",[],
- "Tmp=find((strstr(Dt,'\hypertarget')=='')
- &(strstr(Dt,'\hyperlink')==''))",[],
- "Dt=Dt(Tmp)",[],
- "Smain=strstr(Dt,'\mainslide')",[],
- "Snew=strstr(Dt,'\newslide')",[],
- "Ssame=strstr(Dt,'\sameslide')",[],
- "Nnew=[]",[],
- "Nsame=[]",[],
- "for J=1:size(Dt,1),
- if (length(Snew(J))>0)|(length(Smain(J))>0),
- Nnew=[Nnew,J],
- end;
- if length(Ssame(J))>0,
- Nsame=[Nsame,J],
- end;
- end",[],
- "Out=Dt(1:Nnew(1))",[],
- "for J=2:length(Nnew),
- Tmp=find(Nsame<Nnew(J));
- Tmp=max(Tmp);
- Tmp=max([Nsame(Tmp),Nnew(J-1)])+1;
- Out=[Out;Dt(Tmp:Nnew(J))],
- end",[],
- "Tmp=max([Nsame($),Nnew($)])+1",[],
- "Out=[Out;Dt(Tmp:size(Dt,1))]",[],
- "mputl(Out,'"+fout+"');",[]
+ "Dt=readLines('"+fin+"')",[],
+ "num=grep('\\hypertarget',Dt,fixed=TRUE)",[],
+ "Dt=Dt[setdiff(1:length(Dt),num)]",[],
+ "Smain=c();Snew=c();Ssame=c()",[],
+ "for(J in 1:length(Dt)){",[],
+ " Tmp=length(grep('\\mainslide',Dt[J],fixed=TRUE))",[],
+ " if(Tmp>0){Smain=c(Smain,1)}else{Smain=c(Smain,0)}",[],
+ " Tmp=length(grep('\\newslide',Dt[J],fixed=TRUE))",[],
+ " if(Tmp>0){Snew=c(Snew,1)}else{Snew=c(Snew,0)}",[],
+ " Tmp=length(grep('\\sameslide',Dt[J],fixed=TRUE))",[],
+ " if(Tmp>0){Ssame=c(Ssame,1)}else{Ssame=c(Ssame,0)}",[],
+ "}",[],
+ "Nnew=c();Nsame=c()",[],
+ "for(J in 1:length(Dt)){",[],
+ " if((Snew[J]==1)|(Smain[J]==1)){Nnew=c(Nnew,J)}",[],
+ " if(Ssame[J]==1){Nsame=c(Nsame,J)}",[],
+ "}",[],
+ "Out=Dt[1:Nnew[1]]",[],
+ "for(J in 2:length(Nnew)){",[],
+ " Tmp=max(Nsame[Nsame<Nnew[J]])",[],
+ " Tmp=max(c(Nsame[Tmp],Nnew[J-1]))+1",[],
+ " Out=c(Out,Dt[Tmp:Nnew[J]])",[],
+ "}",[],
+ "Tmp=max(c(Nsame[-1],Nnew[-1]))+1",[],
+ "Out=c(Out,Dt[Tmp:length(Dt)])",[],
+ "writeLines(Out,'"+fout+"',sep='\n')",[],
+ "cat('////',file='resultR.txt',sep='')",[],
+ "quit()",[]
];
- CalcbyS("out",cmdL,options);
+ CalcbyR("out",cmdL,append(options,"Cat=n"));
wait(1000);
Changework(dirtop);//17.04.10
tmp=replace(fout,".tex","");
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs
deleted file mode 100644
index 80353e48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmv.cs
+++ /dev/null
@@ -1,910 +0,0 @@
-// Copyright (C) 2014 Masataka Kaneko, Setsuo Takato, KETCindyJapan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindymv(2017.10.12) loaded");
-
-//help:start();
-
-Ketinitmv():=(
- regional(tmp,tmp1,tmp2,tmp3);
- Ketinit();//17.04.10
- Texmov=Fhead+"movie";
- Texpara=Fhead+"para";
- ParaTitle=Texpara;//16.12.10
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]);
- PutonCurve("MF",sgsl,[tmp2,tmp3]);
- Paraamble(); // 16.08.10
- Shellfile="mv"; // 17.04.09
-);
-
-Moviedata(func,var):=Moviedata(func,var,[]);
-Moviedata(func,var,options):=(
-//help:Moviedata("mf(t)","t=[0,4]");
-//help:Moviedata(Options=["Cut=20","Div=80"]);
- regional(tmp,tmp1,tmp2,eqL);
- tmp=Divoptions(options);
- eqL=tmp_5;
- CUT=20;
- DVALL=0;
- Ec=[];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="D",
- DVALL=parse(tmp2);
- );
- if(tmp1=="C",
- CUT=parse(tmp2);
- );
- );
- if(DVALL==0,
- DVALL=4*CUT;
- );
- tmp=indexof(var,"=");
- tmp1=substring(var,0,tmp-1);
- tmp2=substring(var,tmp,length(var));
- tmp2=parse(tmp2);
- if(indexof(func,"Moiveframe")==0,
- tmp="Movieframe("+tmp1+"):="+func+";";
- parse(tmp);
- );
- tmp="Movierange="+tmp2+";";
- parse(tmp);
-// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]";
-// parse(tmp);
-);
-
-Paraamble():=Paraamble("");
-Paraamble(str):=(
-//help:Paraamble();
-//help:Paraamble(amblelist);
-//help:Paraamble(filename);
- regional(cmdall,sep,tmp,tmp1,tmp2);
- if(isstring(str),
- if(str=="",
- Parafirsthead=[
- "\def\ketcbox{white}", // 17.02.26
- "\newslide[0]{"+ParaTitle+"}", //16.12.10
- "",
- "\hypertarget{FIRST}{}",
- "Commonhead"
- ];
- Parafirsttail=[
- "Commontail"
- ];
- Parahead=[
- "\sameslide[0]",
- "Commonhead"
- ];
- Paratail=[
- "Commontail"
- ];
- Paralasthead=[
- "\sameslide[0]",
- "",
- "\hypertarget{LAST}{}",
- "Commonhead"
- ];
- Paralasttail=[
- "Commontail"
- ];
- Commonhead=[
- "",
- "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19
- "\begin{layer}{130}{0}",
- "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19
- "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19
- "\putnotec{60}{40}{" // 16.07.06
- ];
- Commontail=[
- "",
- "}",
- "\end{layer}",
- ""
- ];
- ,
- if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt");
- tmp=load(tmp1);
- cmdall=tokenize(tmp,"...");
- cmdall=apply(cmdall,Removespace(#));
- sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para");
- Parafirsthead=cmdall_(2..(sep_2-1));
- Parafirsttail=cmdall_((sep_2+1)..(sep_3-1));
- Parahead=cmdall_((sep_3+1)..(sep_4-1));
- Paratail=cmdall_((sep_4+1)..(sep_5-1));
- Paralasthead=cmdall_((sep_5+1)..(sep_6-1));
- tmp1=cmdall_((sep_6+1)..length(cmdall));
- sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common");
- Paralasttail=tmp1_(1..sep_1-1);
- Commonhead=tmp1_((sep_1+1)..(sep_2-1));
- Commontail=tmp1_((sep_2+1)..length(tmp1));
- );
- );
- if(islist(str),
- Parafirsthead=str_1;
- Parafirsttail=str_2;
- Parahead=str_3;
- Paratail=str_4;
- Paralasthead=str_5;
- Paralasttail=str_6;
- Commonhead=str_7;
- Commontail=str_8;
- );
- tmp1=apply(Parafirsthead,Dq+#+Dq);
- tmp2=apply(Parafirsttail,Dq+#+Dq);
- tmp=[tmp1,tmp2];
- tmp1=apply(Parahead,Dq+#+Dq);
- tmp2=apply(Paratail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Paralasthead,Dq+#+Dq);
- tmp2=apply(Paralasttail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Commonhead,Dq+#+Dq);
- tmp2=apply(Commontail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp;
-);
-
-Writeparaamble(filename):=(
- //regional(tmp,tmp1,tmp2);
- SCEOUTPUT=openfile(filename);
- println(SCEOUTPUT,"%Parafirsthead"+"...");
- forall(Parafirsthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parafirsttail"+"...");
- forall(Parafirsttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parahead"+"...");
- forall(Parahead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paratail"+"...");
- forall(Paratail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasthead"+"...");
- forall(Paralasthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasttail"+"...");
- forall(Paralasttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commonhead"+"...");
- forall(Commonhead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commontail"+"...");
- forall(Commontail,
- println(SCEOUTPUT,#+"...");
- );
- closefile(SCEOUTPUT);
-);
-
-Mvdispg():=(
- regional(tmp,tmp1,tmp2,tmp3,num,s,i);
- CLIST=COM2ndlist;
- FIXGLIST=[];
- forall(2..length(GLIST),
- FIXGLIST=append(FIXGLIST,GLIST_#);
- );
- STPTlist=remove(allpoints(),[SW,NE,MF]);
- STPlist=[];
- STPnamelist=[];
- STPvaluelist=[];
- forall(STPTlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- STPlist=append(STPlist,#.name+"="+tmp+";");
- STPnamelist=append(STPnamelist,#.name);
- STPvaluelist=append(STPvaluelist,tmp);
- );
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- if(length(Movierange)==2,
- s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1);
- Movieframe(s);
- ,
- num=length(Movierange);
- tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1);
- i=1;
- while(Movierange_(i+1)<=tmp,
- i=i+1;
- );
- s=Movierange_i;
- Movieframe(s);
- );
- Windispg();
- Defvar("s",s);
- GOUTLIST=[];
-);
-
-Mkmovie():=Mkmovie(Movierange);
-Mkmovie(rng):=(
- regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num,
- l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist,
- ALLPlist,MVPlist);
- if(length(rng)==2,
- x1=rng_1;
- x2=rng_2;
- PLIST=[x1];
- forall(1..DVALL,k,
- s=x1+k*(x2-x1)/DVALL;
- PLIST=append(PLIST,s);
- );
- ,
- PLIST=rng;
- DVALL=length(rng)-1;
- );
- if(VERNUM==0,
- SCEOUTPUT=openfile(Texmov+".sce");
- ,
- SCEOUTPUT=openfile(Texpara+".sce");
- );
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
- println(SCEOUTPUT,"Ketinit();");
- println(SCEOUTPUT,"pi=%pi;");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);
- //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');");
- num1=length(COM1stlist);
- forall(1..num1,l,
- println(SCEOUTPUT,COM1stlist_l+";");
- );
- forall(1..length(STPlist),
- print(SCEOUTPUT,STPlist_#);
- println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");");
- );
- num2=length(CLIST);
- num3=length(FIXGLIST);
- num=0;
- repeat(num3,
- num=num+1;
- tmp1=FIXGLIST_num;
- num4=indexof(tmp1,"=");
- if(num4>0,
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- );
- if(VERNUM==0,
- println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');");
- println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');");
- ,
- println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');");
- );
- println(SCEOUTPUT,"");
- forall(0..DVALL,k,
- s=PLIST_(k+1);
- println(SCEOUTPUT,"s="+format(s,5)+";");
- GLIST=[];
- COM2ndlist=[];
- GCLIST=FIXGCLIST;
- Movieframe(s);
- clrscr(); // 15.06.17
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- ALLPlist=remove(allpoints(),[SW,NE,MF]);
- RMPlist=[];
- forall(1..length(ALLPlist),
- tmp=indexof(STPvaluelist_#,",");
- tmp1=substring(STPvaluelist_#,1,tmp-1);
- tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1);
- if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1),
- if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2),
- RMPlist=append(RMPlist,ALLPlist_#);
- );
- );
- );
- MVPlist=remove(ALLPlist,RMPlist);
- forall(MVPlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- num3=length(GLIST);
- num=0;
- GL=[];
- forall(GCLIST,
- GL=append(GL,#_1);
- );
- repeat(num3,
- num=num+1;
- tmp1=GLIST_num;
- num4=indexof(tmp1,"=");
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- //if(indexof(tmp2,"=")>0,
- if(substring(tmp2,0,5)=="Param",
- num5=indexof(tmp2,"=");
- tmp3=substring(tmp2,num5,length(tmp2)-2);
- tmp3=parse(tmp3);
- if(tmp3_1==tmp3_2,
- tmp2="Pointdata([0,0])";
- );
- );
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- forall(GOUTLIST,
- tmp=#_1;
- println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');");
- println(SCEOUTPUT,"execstr(Tmpout);");
- );
- if(VERNUM==1,
- if(k==0,
- tmp1=apply(Parafirsthead,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Parahead,Removespace(#));
- ,
- tmp1=apply(Paralasthead,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commonhead,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- );
- tmp=indexof(ULEN,"cm"); // 16.05.19from
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=0.5/parse(tmp1)
- ); // 16.05.19upto
- tmp=indexof(ULEN,"mm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=5/parse(tmp1);
- );
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+
- "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- println(SCEOUTPUT,"Beginpicture('"+ULEN+"');");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- forall(1..num2,l,
- println(SCEOUTPUT,CLIST_l+";");
- );
- forall(1..length(COM2ndlist),l,
- println(SCEOUTPUT,COM2ndlist_l+";");
- );
- println(SCEOUTPUT,"Endpicture("+ADDAXES+");");
- if(VERNUM==0,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Texcom('');");
- if(k<DVALL,
- println(SCEOUTPUT,"Texcom('\newframe');");
- println(SCEOUTPUT,"");
- ,
- println(SCEOUTPUT,"Texcom('\end{animateinline}')");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- ,
- if(k==0,
- tmp1=apply(Parafirsttail,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Paratail,Removespace(#));
- ,
- tmp1=apply(Paralasttail,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commontail,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- if(k==DVALL,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- );
- Windispg(GL);
- time=1000/CUT;
- wait(time);
- GLIST=[];
- GCLIST=[];
- COM2ndlist=[];
- GOUTLIST=[];
- );
-);
-
-Mkmovietexmain():=(
- TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}");
- println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkmoviesh():=(
- regional(parentorg,tmp);
- parentorg=Texparent;//17.04.10
- Texparent="";//17.04.10
- tmp=Fhead;// 15.03.28
- Fhead=Texmov;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
- Texparent=parentorg;//17.04.10
-);
-
-Texmovie():=(
- VERNUM=0;
- Mkmovie();
- Mkmovietexmain();
- Mkmoviesh();
-);
-
-Mkparatexmain():=(
- TEXOUTPUT=openfile(Texpara+"main"+".tex");
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}");
- println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- println(TEXOUTPUT,"\ketmarginE");
- println(TEXOUTPUT,"\ketslideinit");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkparash():=(
- regional(tmp);
- tmp=Fhead;
- Fhead=Texpara;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
-);
-
-Texpara():=(
- VERNUM=1;
- Mkmovie();
- Mkparatexmain();
- Mkparash();
-);
-
-Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added
-Setpara(pathorg,fstr,sL,options):=(
-//help:Setpara("folder name","funstr","range",options);
-//help:Setpara(folder,funstr,range,options);
-//help:Setpara(options=["m/r","Div=25"]);
-//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation);
- regional(path);//17.04.10
- if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10
- ParaPath=path;
- ParaFstr=fstr;
- ParaSL=sL;
- ParaOp=options;
- GLISTback=GLIST;
- GCLISTback=GCLIST;
- GOUTLISTback=GOUTLIST;
- POUTLISTback=POUTLIST;
- VLISTback=VLIST;
- FUNLISTback=FUNLIST;
- LETTERlistback=LETTERlist;
- COM0thlistback=COM0thlist;
- COM1stlistback=COM1stlist;
- COM2ndlistback=COM2ndlist;
-);
-
-Parafolder():=Parafolder(ParaPath,ParaFstr,ParaSL,ParaOp);
-Parafolder(path,fstr,sL):=Parafolder(path,fstr,sL,[]);
-Parafolder(path,fstr,sLorg,optionorg):=(
-//help:Parafolder(foldername,1..4);
-//help:Parafolder(foldername,"s=[0,1]");
-//help:Parafolder("mf(s)",foldername,"s=[0,1]");
-//help:Parafolder(options=["m/r","Div=25"]);
-//help:Paraslide(para=folder:layery:pos:input,scale);
-//help:Paraslide(para=folder:layery:pos:include:[width=100]);
- regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,
- mksce,mktex,ndiv,options,sciall,sfL);
- if(!isstring(ParaPath),
- println("Setpara not executed");
- ,
- sL=sLorg;//16.12.24from
- if(!isstring(sL),
- tmp=indexof(fstr,"(");
- tmp1=substring(fstr,tmp,length(fstr));
- tmp=indexof(tmp1,")");
- tmp1=substring(tmp1,0,tmp-1);
- ,
- tmp=indexof(sL,"=");//16.12.21from
- if(length(tmp)>0,
- tmp1=substring(sL,0,tmp-1);
- );
- );//16.12.21,24upto
- parse("Movieframe("+tmp1+"):="+fstr);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- if(length(strL)==0,options=append(options,"m"));//16.12.18
- mksce="A";
- mktex="A";
- ndiv=25;
- forall(eqL,
- tmp=Indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="D",
- ndiv=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- tmp1=Toupper(substring(#,0,1));
- if(tmp1=="M",
- mksce="Y"; mktex="Y";
- );
- );
- sL=sLorg;
- if(isstring(sL),
- tmp=indexof(sL,"=");
- tmp1=parse(substring(sL,tmp,length(sL)));
- sL=apply(0..ndiv,tmp1_1+#*(tmp1_2-tmp1_1)/ndiv);
- );
- if(!isexists(Dirwork,path),
- if(ErrFlag!=-1,
- cmdL=["createdir",[Dq+path+Dq]];//16.12.20
- CalcbyS("crdr",cmdL,["m"]);
- wait(200);//17.02.20from
- repeat(1..30,
- if(!isexists(Dirwork,path),wait(100));
- );//17.02.20upto
- ,
- println(" ==> Changework may not work properly");
- sL=[];
- );
- ,
- if(mksce=="Y",
- cmdL=[
- "rmdir",[Dq+path+Dq,Dq+"s"+Dq],
- "createdir",[Dq+path+Dq]
- ];//16.12.20
- CalcbyS("crdr",cmdL,["m"]);
- wait(200);//17.02.20from
- tmp=Dirwork+"/"+path;
- if(iswindows(),tmp=replace(tmp,"/","\"));
- repeat(1..30,
- if(!isexists(Dirwork,path),
- wait(100);
- ,
- if(length(fileslist(tmp))>0,wait(100));
- );
- );
- );//17.02.20upto
- );
- sciall=path+"/all.sce";
- if(iswindows(),sciall=replace(sciall,"/","\"));//17.02.20
- sfL=[];
- forall(1..(length(sL)),nn,
- clrscr(); // 16.12.28
- GLIST=GLISTback;
- GCLIST=GCLISTback;
- GOUTLIST=GOUTLISTback;
- POUTLIST=POUTLISTback;
- VLIST=VLISTback;
- FUNLIST=FUNLISTback;
- LETTERlist=LETTERlistback;
- COM0thlist=COM0thlistback;
- COM1stlist=COM1stlistback;
- COM2ndlist=COM2ndlistback;
- tmp1=Sprintf(nn/1000,3);
- tmp=indexof(tmp1,".");
- tmp1=substring(tmp1,tmp,length(tmp1));
- Fnamesci=path+"/p"+tmp1+".sce";
- sfL=append(sfL,Fnamesci);
- Fnametex=replace(Fnamesci,".sce",".tex");
- Movieframe(sL_nn);
-// windispg();//16.12.28
- if(!isexists(Dirwork,Fnamesci) % mksce=="Y",
- if(ErrFlag!=-1,
- Viewtex();
- );
- );
- ); // 16.12.27upto
- cmdL=[
- "fL="+text(apply(sfL,Dq+#+Dq)),[],
- "Dt=mgetl(fL(1));",[],
- "Dt=Dt(1:(size(Dt,1)-1),:)",[],
- "for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end",[],
- "mputl(Dt,'"+sciall+"')",[],
- "exec('"+sciall+"',-1)",[]
- ];
- if(ErrFlag!=-1,
- if(!isexists(Dirwork,Fnametex) % mktex=="Y",
- CalcbyS("all",cmdL,options);
- ,
- println("Parafolder "+path+" finished");//16.12.20
- );
- if(length(after)>0, // 16.12.27
- parse(after);
- );
- Fnamesci=Fhead+".sce";
- Fnametex=Fhead+".tex";
- );
- );
-);
-
-Flipbook():=( //17.04.09
- regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2);
- Dirworkorg=Dirwork;
- Slidework(Dirwork);
- figfolder=Dirwork;
- parentorg=Texparent;
- PageStyle="empty";
- title=Texparent;
- tmp=Divoptions(ParaOp);
- tmp1=tmp_5;
- forall(tmp1,
- tmp2=substring(Toupper(#),0,1);
- if(tmp2=="T",
- tmp=indexof(#,"=");
- title=substring(#,tmp,length(#));
- ParaOp=remove(ParaOp,[#]);
- );
- );
- x0="60"; y0="5"; sc="1";
- tmp=select(ParaOp,islist(#));
- if(length(tmp)>0,
- x0=text(tmp_1_1);
- y0=text(tmp_1_2);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- tmp=select(ParaOp,!islist(#) & isreal(#));
- if(length(tmp)>0,
- sc=text(tmp_1);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- Parafolder();
- Changework(Dirworkorg);
- if(isstring(Slidename),
- Texparent=Slidename;
- ,
- Texparent=parentorg+"flip";
- );
- SCEOUTPUT = openfile(Texparent+".txt");
- println(SCEOUTPUT,"%title//");
- println(SCEOUTPUT,"\pagestyle{empty};//");
- println(SCEOUTPUT,"new::"+title+"//");
- println(SCEOUTPUT,
- "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//");
- closefile(SCEOUTPUT);
- Changework(figfolder);
- Setslidebody("black");
- Setslidehyper("");
- Mkslides();
- Changework(Dirworkorg);
- Texparent=parentorg;
-);
-
-Animatefile():=Animatefile(Dirwork,ParaPath);
-Animatefile(path,folder):=(
-//help:Animatefile();
-//help:Animatefile(Dirwork,ParaPath);
- regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2);
- tmp=divoptions(ParaOp);
- eqL=tmp_5;
- FRate="10";
- Scale="1";
- OpA="";
- forall(eqL,
- tmp1=Toupper(substring(#,0,2));
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="FR",
- FRate=tmp2;
- );
- if(tmp1=="SC",
- Scale=tmp2;
- );
- if(tmp1=="OP",
- if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]");
- OpA=tmp2;
- );
- );
- pa=replace(path,"\","/");
- fname="anim"+folder+".tex";
- tmp=Dirwork+"/"+folder;
- path=replace(tmp,"\","/");
- if(iswindows(),tmp=replace(tmp,"/","\"));
- tmp1=fileslist(tmp);
- tmp1=tokenize(tmp1,",");
- tmp1=select(tmp1,indexof(#,".tex")>0);
- SCEOUTPUT= openfile(fname);
- println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22
- println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%");
- forall(1..(length(tmp1)),
- if(Scale==1, // 17.08.30from
- tmp="\input{\parapath/";
- tmp=tmp+folder+"/"+tmp1_#+"}%";
- ,
- tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines)
- tmp=tmp+folder+"/"+tmp1_#+"}}%";
- ); // 17.08.30upto
- println(SCEOUTPUT,tmp);
-// println(SCEOUTPUT,""); //17.06.25
- if(#<length(tmp1),
- println(SCEOUTPUT,"\newframe%");
- );
- );
- println(SCEOUTPUT,"\end{animateinline}%");
- closefile(SCEOUTPUT);
- println(fname+" has been generated");
-);
-
-Mkanimation():=( // 17.10.08
- if(!isexists(Dirwork,ParaPath),
- Parafolder();
- );
- if(!isexists(Dirwork,"anim"+ParaPath+".tex"),
- Animatefile();
- );
- Mkanimation("fig",ParaPath);
-);
-Mkanimation(folder):=Mkanimation("fig",folder);
-Mkanimation(path,folder):=(
-//help:Mkanimation();
-//help:Mkanimation(path,folder);
- regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent,
- tmp,tmp1,tmp2,tmp3,flg);
- Fheadbkup=Fhead;
- Dirworkbkup=Dirwork;
- Pathpdfbkup=Pathpdf;
- Fhead="animate"+folder;
- Pathpdf=PathAd;
- Dirwork=replace(Dirwork,"\",pathsep());
- Dirwork=replace(Dirwork,"/",pathsep());
- Dirwork=replace(Dirwork,pathsep()+"fig","");
- Setdirectory(Dirwork);
- tmp1=replace(PathT,pathsep(),"/");
- tmp=indexall(tmp1,pathsep());
- tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
- if((tex=="platex")%(tex=="uplatex"),
- if(tex=="platex",article="jarticle",article="ujarticle");
- ,
- article="article";
- );
- SCEOUTPUT=openfile(Fhead+".tex");
- println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
- if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
- tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
- println(SCEOUTPUT,tmp);
- );
- if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
- if((tex=="pdflatex")%(tex=="xelatex"),
- println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
- ,
- println(SCEOUTPUT,"\usepackage{pict2e}");
- println(SCEOUTPUT,"\usepackage{luatexja}");
- );
- tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
- ,
- tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{bm,enumerate}");
- if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{animate}");
- ,
- println(SCEOUTPUT,"\usepackage{graphicx}");
- println(SCEOUTPUT,"\usepackage{animate}");
- );
- println(SCEOUTPUT,"\usepackage{xcolor}");
- forall(ADDPACK, tmp1,
- tmp=indexof(tmp1,"{animate}")+indexof(tmp1,"{hyperref}");
- if(tmp==0,
- println(SCEOUTPUT,"\usepackage"+tmp1);
- );
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{center}");
- println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}");
- println(SCEOUTPUT,"\end{center}");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
- if(iswindows(),
- parent=replace(Dirwork+Batparent,pathsep()+"fig","");
- Makebat(Fhead,"tv");
- kc():=(
- println("kc : "+kc(parent,Dirlib,Fnametex))
- );
- ,
- parent=replace(Dirwork+Shellparent,pathsep()+"fig","");
- Makeshell(Fhead,"tv");
- kc():=(
- println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
- );
- );
- kc();
- Dirwork=Dirworkbkup;
- Dirwork=Dirwork+pathsep()+"fig";
- setdirectory(Dirwork);
- Fhead=Fheadbkup;
- Pathpdf= Pathpdfbkup;
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt
deleted file mode 100644
index 93491c3d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlog.txt
+++ /dev/null
@@ -1,70 +0,0 @@
-// e: 2017.10.09
-// Parafolder changed (for R)
-// e: 2017.10.08
-// Mkanimation added
-// e: 2017.08.19
-// Help of Setpara changed
-// e: 2017.06.25
-// Animatefile changed (remove blank lines)
-// e: 2017.06.22
-// Animatefile changed (parapath)
-// e: 2017.06.18
-// Animatefile added
-// e: 2017.04.10
-// Mkmoviesh changed ( Texparent )
-// Ketinitmv changed ( Ketinit included )
-// e: 2017.04.09
-// Ketinitmv changed ( Shellfile="mv" added )
-// Flipbook added
-// s:2017.04.08
-// bugs fixed
-// e: 2017.02.26
-// Paraamble debugged ( \def\ketcbox{white} added )
-// e: 2017.02.20
-// Parafolder debugged ( waiting time )
-// e: 2017.02.19
-// Paraamble debugged ( "colorframe" )
-// e: 2016.12.29
-// Parafolder changed (rmdir added);
-// e: 2016.12.28
-// Parafolder changed (clrscr,windispg);
-// e: 2016.12.27
-// Setpara added ( for Para button )
-// Parafolder changed( "m" for remake)
-// e: 2016.12.26
-// Parafolder debugged("quit" removed from all.sce)
-// e: 2016.12.25
-// Parafolder debugged/changed (OK for "Scetex=m or m,r")
-// e: 2016.12.24
-// Parafolder debugged (definition of movieframe )
-// e: 2016.12.22
-// Parafolder changed ( not executed when Errflg=-1 from Changework )
-// e: 2016.12.21
-// Parafolder changed ( for functionstring )
-// e: 2016.12.19
-// Parafolder debugged
-// e: 2016.12.15
-// Parafolder added
-// e: 2016.12.10
-// Setpara added (global var ParaTitle added )
-// e: 2016.08.10
-// Ketinitmv changed ( Paraamble() added)
-// e: 2016.07.06
-// amsmath,amssymb added
-// putnotes => putnotec in paraamble
-
-//////////// old ////
-// s: 2015.06.20 v1.4.6
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// movie, para embodied
-// e: 2015.07.10 v1.5.1
-// applied to Deqplot
-// e: 2015.07.10 v1.5.2
-// rename "start","end" to "First", "Last"
-// e: 2016.04.01 v1.5.3
-// rename Texmovie to Texmov
-// e: 2016.05.19
-// Mkmovie changed ( for name of axis )
-//////// To Reverse Sequence
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt
index dc3c8d58..70b42e5a 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvlogr.txt
@@ -1,3 +1,22 @@
+//2017.12.09
+// Parafolder debugged (Viewtex ->WritetoRS)
+// Mkanimation debugged ( \ -> / for windows )
+//2017.12.07
+// Setpara options changed
+// Animatefile changed (\figsize, OpA)
+//2017.11.24
+// Mkflipanime added
+// Old movie function removed
+// Flipbook removed
+// Mkanimation changed (for R)
+//2017.11.21
+// Ketinitmv, Paraamble, Mkmovie changed (for R)
+//2017.11.03
+// Mkanimation changed (ketpic.sty etc )
+//2017.10.28
+// Parafolder changed (timing of display of counter,time)
+//2017.10.24
+// Parafolder changed (file.exists added)
//2017.10.14
// Mkanimation changed ("Rem=" option added)
//2017.10.13
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
index b2905ecb..5cc91de2 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
@@ -14,542 +14,28 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindymv(2017.10.13) loaded");
+println("ketcindymv(2017.11.24) loaded");
//help:start();
-Ketinitmv():=(
- regional(tmp,tmp1,tmp2,tmp3);
- Ketinit();//17.04.10
- Texmov=Fhead+"movie";
- Texpara=Fhead+"para";
- ParaTitle=Texpara;//16.12.10
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]);
- PutonCurve("MF",sgsl,[tmp2,tmp3]);
- Paraamble(); // 16.08.10
- Pathpdf=Pathad; // 17.10.13
-);
-
-Moviedata(func,var):=Moviedata(func,var,[]);
-Moviedata(func,var,options):=(
-//help:Moviedata("mf(t)","t=[0,4]");
-//help:Moviedata(Options=["Cut=20","Div=80"]);
- regional(tmp,tmp1,tmp2,eqL);
- tmp=Divoptions(options);
- eqL=tmp_5;
- CUT=20;
- DVALL=0;
- Ec=[];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="D",
- DVALL=parse(tmp2);
- );
- if(tmp1=="C",
- CUT=parse(tmp2);
- );
- );
- if(DVALL==0,
- DVALL=4*CUT;
- );
- tmp=indexof(var,"=");
- tmp1=substring(var,0,tmp-1);
- tmp2=substring(var,tmp,length(var));
- tmp2=parse(tmp2);
- if(indexof(func,"Moiveframe")==0,
- tmp="Movieframe("+tmp1+"):="+func+";";
- parse(tmp);
- );
- tmp="Movierange="+tmp2+";";
- parse(tmp);
-// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]";
-// parse(tmp);
-);
-
-Paraamble():=Paraamble("");
-Paraamble(str):=(
-//help:Paraamble();
-//help:Paraamble(amblelist);
-//help:Paraamble(filename);
- regional(cmdall,sep,tmp,tmp1,tmp2);
- if(isstring(str),
- if(str=="",
- Parafirsthead=[
- "\def\ketcbox{white}", // 17.02.26
- "\newslide[0]{"+ParaTitle+"}", //16.12.10
- "",
- "\hypertarget{FIRST}{}",
- "Commonhead"
- ];
- Parafirsttail=[
- "Commontail"
- ];
- Parahead=[
- "\sameslide[0]",
- "Commonhead"
- ];
- Paratail=[
- "Commontail"
- ];
- Paralasthead=[
- "\sameslide[0]",
- "",
- "\hypertarget{LAST}{}",
- "Commonhead"
- ];
- Paralasttail=[
- "Commontail"
- ];
- Commonhead=[
- "",
- "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19
- "\begin{layer}{130}{0}",
- "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19
- "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19
- "\putnotec{60}{40}{" // 16.07.06
- ];
- Commontail=[
- "",
- "}",
- "\end{layer}",
- ""
- ];
- ,
- if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt");
- tmp=load(tmp1);
- cmdall=tokenize(tmp,"...");
- cmdall=apply(cmdall,Removespace(#));
- sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para");
- Parafirsthead=cmdall_(2..(sep_2-1));
- Parafirsttail=cmdall_((sep_2+1)..(sep_3-1));
- Parahead=cmdall_((sep_3+1)..(sep_4-1));
- Paratail=cmdall_((sep_4+1)..(sep_5-1));
- Paralasthead=cmdall_((sep_5+1)..(sep_6-1));
- tmp1=cmdall_((sep_6+1)..length(cmdall));
- sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common");
- Paralasttail=tmp1_(1..sep_1-1);
- Commonhead=tmp1_((sep_1+1)..(sep_2-1));
- Commontail=tmp1_((sep_2+1)..length(tmp1));
- );
- );
- if(islist(str),
- Parafirsthead=str_1;
- Parafirsttail=str_2;
- Parahead=str_3;
- Paratail=str_4;
- Paralasthead=str_5;
- Paralasttail=str_6;
- Commonhead=str_7;
- Commontail=str_8;
- );
- tmp1=apply(Parafirsthead,Dq+#+Dq);
- tmp2=apply(Parafirsttail,Dq+#+Dq);
- tmp=[tmp1,tmp2];
- tmp1=apply(Parahead,Dq+#+Dq);
- tmp2=apply(Paratail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Paralasthead,Dq+#+Dq);
- tmp2=apply(Paralasttail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Commonhead,Dq+#+Dq);
- tmp2=apply(Commontail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp;
-);
-
-Writeparaamble(filename):=(
- //regional(tmp,tmp1,tmp2);
- SCEOUTPUT=openfile(filename);
- println(SCEOUTPUT,"%Parafirsthead"+"...");
- forall(Parafirsthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parafirsttail"+"...");
- forall(Parafirsttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parahead"+"...");
- forall(Parahead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paratail"+"...");
- forall(Paratail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasthead"+"...");
- forall(Paralasthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasttail"+"...");
- forall(Paralasttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commonhead"+"...");
- forall(Commonhead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commontail"+"...");
- forall(Commontail,
- println(SCEOUTPUT,#+"...");
- );
- closefile(SCEOUTPUT);
-);
-
-Mvdispg():=(
- regional(tmp,tmp1,tmp2,tmp3,num,s,i);
- CLIST=COM2ndlist;
- FIXGLIST=[];
- forall(2..length(GLIST),
- FIXGLIST=append(FIXGLIST,GLIST_#);
- );
- STPTlist=remove(allpoints(),[SW,NE,MF]);
- STPlist=[];
- STPnamelist=[];
- STPvaluelist=[];
- forall(STPTlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- STPlist=append(STPlist,#.name+"="+tmp+";");
- STPnamelist=append(STPnamelist,#.name);
- STPvaluelist=append(STPvaluelist,tmp);
- );
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- if(length(Movierange)==2,
- s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1);
- Movieframe(s);
- ,
- num=length(Movierange);
- tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1);
- i=1;
- while(Movierange_(i+1)<=tmp,
- i=i+1;
- );
- s=Movierange_i;
- Movieframe(s);
- );
- Windispg();
- Defvar("s",s);
- GOUTLIST=[];
-);
-
-Mkmovie():=Mkmovie(Movierange);
-Mkmovie(rng):=(
- regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num,
- l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist,
- ALLPlist,MVPlist);
- if(length(rng)==2,
- x1=rng_1;
- x2=rng_2;
- PLIST=[x1];
- forall(1..DVALL,k,
- s=x1+k*(x2-x1)/DVALL;
- PLIST=append(PLIST,s);
- );
- ,
- PLIST=rng;
- DVALL=length(rng)-1;
- );
- if(VERNUM==0,
- SCEOUTPUT=openfile(Texmov+".sce");
- ,
- SCEOUTPUT=openfile(Texpara+".sce");
- );
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
- println(SCEOUTPUT,"Ketinit();");
- println(SCEOUTPUT,"pi=%pi;");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);
- //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');");
- num1=length(COM1stlist);
- forall(1..num1,l,
- println(SCEOUTPUT,COM1stlist_l+";");
- );
- forall(1..length(STPlist),
- print(SCEOUTPUT,STPlist_#);
- println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");");
- );
- num2=length(CLIST);
- num3=length(FIXGLIST);
- num=0;
- repeat(num3,
- num=num+1;
- tmp1=FIXGLIST_num;
- num4=indexof(tmp1,"=");
- if(num4>0,
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- );
- if(VERNUM==0,
- println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');");
- println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');");
- ,
- println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');");
- );
- println(SCEOUTPUT,"");
- forall(0..DVALL,k,
- s=PLIST_(k+1);
- println(SCEOUTPUT,"s="+format(s,5)+";");
- GLIST=[];
- COM2ndlist=[];
- GCLIST=FIXGCLIST;
- Movieframe(s);
- clrscr(); // 15.06.17
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- ALLPlist=remove(allpoints(),[SW,NE,MF]);
- RMPlist=[];
- forall(1..length(ALLPlist),
- tmp=indexof(STPvaluelist_#,",");
- tmp1=substring(STPvaluelist_#,1,tmp-1);
- tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1);
- if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1),
- if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2),
- RMPlist=append(RMPlist,ALLPlist_#);
- );
- );
- );
- MVPlist=remove(ALLPlist,RMPlist);
- forall(MVPlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- num3=length(GLIST);
- num=0;
- GL=[];
- forall(GCLIST,
- GL=append(GL,#_1);
- );
- repeat(num3,
- num=num+1;
- tmp1=GLIST_num;
- num4=indexof(tmp1,"=");
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- //if(indexof(tmp2,"=")>0,
- if(substring(tmp2,0,5)=="Param",
- num5=indexof(tmp2,"=");
- tmp3=substring(tmp2,num5,length(tmp2)-2);
- tmp3=parse(tmp3);
- if(tmp3_1==tmp3_2,
- tmp2="Pointdata([0,0])";
- );
- );
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- forall(GOUTLIST,
- tmp=#_1;
- println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');");
- println(SCEOUTPUT,"execstr(Tmpout);");
- );
- if(VERNUM==1,
- if(k==0,
- tmp1=apply(Parafirsthead,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Parahead,Removespace(#));
- ,
- tmp1=apply(Paralasthead,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commonhead,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- );
- tmp=indexof(ULEN,"cm"); // 16.05.19from
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=0.5/parse(tmp1)
- ); // 16.05.19upto
- tmp=indexof(ULEN,"mm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=5/parse(tmp1);
- );
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+
- "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- println(SCEOUTPUT,"Beginpicture('"+ULEN+"');");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- forall(1..num2,l,
- println(SCEOUTPUT,CLIST_l+";");
- );
- forall(1..length(COM2ndlist),l,
- println(SCEOUTPUT,COM2ndlist_l+";");
- );
- println(SCEOUTPUT,"Endpicture("+ADDAXES+");");
- if(VERNUM==0,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Texcom('');");
- if(k<DVALL,
- println(SCEOUTPUT,"Texcom('\newframe');");
- println(SCEOUTPUT,"");
- ,
- println(SCEOUTPUT,"Texcom('\end{animateinline}')");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- ,
- if(k==0,
- tmp1=apply(Parafirsttail,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Paratail,Removespace(#));
- ,
- tmp1=apply(Paralasttail,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commontail,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- if(k==DVALL,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- );
- Windispg(GL);
- time=1000/CUT;
- wait(time);
- GLIST=[];
- GCLIST=[];
- COM2ndlist=[];
- GOUTLIST=[];
- );
-);
-
-Mkmovietexmain():=(
- TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}");
- println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkmoviesh():=(
- regional(parentorg,tmp);
- parentorg=Texparent;//17.04.10
- Texparent="";//17.04.10
- tmp=Fhead;// 15.03.28
- Fhead=Texmov;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
- Texparent=parentorg;//17.04.10
-);
-
-Texmovie():=(
- VERNUM=0;
- Mkmovie();
- Mkmovietexmain();
- Mkmoviesh();
-);
-
-Mkparatexmain():=(
- TEXOUTPUT=openfile(Texpara+"main"+".tex");
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}");
- println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- println(TEXOUTPUT,"\ketmarginE");
- println(TEXOUTPUT,"\ketslideinit");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkparash():=(
- regional(tmp);
- tmp=Fhead;
- Fhead=Texpara;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
-);
-
-Texpara():=(
- VERNUM=1;
- Mkmovie();
- Mkparatexmain();
- Mkparash();
-);
-
-Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added
-Setpara(pathorg,fstr,sL,options):=(
-//help:Setpara("folder name","funstr","range",options);
+Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[],[]); // 16.12.27added
+Setpara(pathorg,fstr,sL,options):= //17.11.25(3lines)
+ Setpara(pathorg,fstr,sL,options,[]);
+Setpara(pathorg,fstr,sL,options,optionsanim):=(
+//help:Setpara("folder name","funstr","range",options,optionsanim);
//help:Setpara(folder,funstr,range,options);
//help:Setpara(options=["m/r","Div=25"]);
-//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation);
+//help:Setpara(options2anim1=["Frate=10","Scale=1"]);
+//help:Setpara(options2anim2=["OpA=[loop,controls,buttonsize=3mm]"]);
+//help:Setpara(options2anim3=["OpA=+step"]);
+//help:Setpara(options2anim4=["Mag=1600","Title=folder"]);
regional(path);//17.04.10
if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10
ParaPath=path;
ParaFstr=fstr;
ParaSL=sL;
ParaOp=options;
+ ParaOpAnim=optionsanim; //17.11.25
GLISTback=GLIST;
GCLISTback=GCLIST;
GOUTLISTback=GOUTLIST;
@@ -568,7 +54,7 @@ Parafolder(path,fstr,sLorg,optionorg):=(
//help:Parafolder(foldername,1..4);
//help:Parafolder(foldername,"s=[0,1]");
//help:Parafolder("mf(s)",foldername,"s=[0,1]");
-//help:Parafolder(options=["m/r","Div=25"]);
+//help:Parafolder(options=["m/r","Div=25","Wait=20"]);
//help:Paraslide(para=folder:layery:pos:input,scale);
//help:Paraslide(para=folder:layery:pos:include:[width=100]);
regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,waiting,
@@ -631,7 +117,9 @@ Parafolder(path,fstr,sLorg,optionorg):=(
sL=[];
);
,
- if(mkr=="Y",
+ tmp=fileslist(Dirwork+pathsep()+path); //17.12.09(3lines);
+ tmp=length(tmp);
+ if((mkr=="Y") & (tmp>0),
tmp1=replace(Dirwork,"\","/");//17.10.13
cmdL=[
"setwd",[Dq+tmp1+"/"+path+Dq],
@@ -648,7 +136,6 @@ Parafolder(path,fstr,sLorg,optionorg):=(
);
sfL=[];
forall(1..(length(sL)),nn,
- clrscr(); // 16.12.28
GLIST=GLISTback;
GCLIST=GCLISTback;
GOUTLIST=GOUTLISTback;
@@ -668,7 +155,7 @@ Parafolder(path,fstr,sLorg,optionorg):=(
Movieframe(sL_nn); //17.10.13
if(!isexists(Dirwork,FnameR) % mkr=="Y",
if(ErrFlag!=-1,
- Viewtex();
+ WritetoRS(2); //17.12.09
);
);
);
@@ -677,7 +164,6 @@ Parafolder(path,fstr,sLorg,optionorg):=(
"setwd",[Dq+tmp1+"/"+path+Dq],
"Mkallfile=function(fname){",[],
" Ctr<<- Ctr+1",[],
- " cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[],
" tmp=readLines(fname)",[],
" first=1",[],
" if(Ctr>1){",[],
@@ -687,18 +173,18 @@ Parafolder(path,fstr,sLorg,optionorg):=(
" for(J in first:(length(tmp)-1)){",[],
" cat(paste(tmp[J],'\n',sep=''),file='all.r',append=TRUE)",[],
" }",[],
-// " source(fname)",[],
+ " cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[],
+ " Tmp=proc.time()-Tm",[],
+ " cat('print(',Tmp[3],')\n',file='all.r',append=TRUE)",[],
"}",[],
- "file.remove('all.r')",[],
+ "if(file.exists('all.r')){file.remove('all.r')}",[], //17.10.24
"fL=list.files()",[],
"Ctr=0",[],
- "t<-proc.time()",[],
+ "Tm<-invisible(proc.time())",[],
"for(fname in fL){",[],
- " Mkallfile(fname)",[],
+ " if(length(grep('.r',fname))>0){Mkallfile(fname)}",[], // 17.11.24
"}",[],
- "proc.time()-t",[],
"source('all.r')",[],
- "proc.time()-t",[],
"setwd",[Dq+tmp1+Dq]
];
if(ErrFlag!=-1,
@@ -716,68 +202,16 @@ Parafolder(path,fstr,sLorg,optionorg):=(
);
);
-Flipbook():=( //17.04.09
- regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2);
- Dirworkorg=Dirwork;
- Slidework(Dirwork);
- figfolder=Dirwork;
- parentorg=Texparent;
- PageStyle="empty";
- title=Texparent;
- tmp=Divoptions(ParaOp);
- tmp1=tmp_5;
- forall(tmp1,
- tmp2=substring(Toupper(#),0,1);
- if(tmp2=="T",
- tmp=indexof(#,"=");
- title=substring(#,tmp,length(#));
- ParaOp=remove(ParaOp,[#]);
- );
- );
- x0="60"; y0="5"; sc="1";
- tmp=select(ParaOp,islist(#));
- if(length(tmp)>0,
- x0=text(tmp_1_1);
- y0=text(tmp_1_2);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- tmp=select(ParaOp,!islist(#) & isreal(#));
- if(length(tmp)>0,
- sc=text(tmp_1);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- Parafolder();
- Changework(Dirworkorg);
- if(isstring(Slidename),
- Texparent=Slidename;
- ,
- Texparent=parentorg+"flip";
- );
- SCEOUTPUT = openfile(Texparent+".txt");
- println(SCEOUTPUT,"%title//");
- println(SCEOUTPUT,"\pagestyle{empty};//");
- println(SCEOUTPUT,"new::"+title+"//");
- println(SCEOUTPUT,
- "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//");
- closefile(SCEOUTPUT);
- Changework(figfolder);
- Setslidebody("black");
- Setslidehyper("");
- Mkslides();
- Changework(Dirworkorg);
- Texparent=parentorg;
-);
-
Animatefile():=Animatefile(Dirwork,ParaPath);
Animatefile(path,folder):=(
//help:Animatefile();
//help:Animatefile(Dirwork,ParaPath);
regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2);
- tmp=divoptions(ParaOp);
+ tmp=divoptions(ParaOpAnim); //17.11.24
eqL=tmp_5;
FRate="10";
Scale="1";
- OpA="";
+ OpA="loop,controls,buttonsize=3mm";
remflg=0;
forall(eqL,
tmp1=Toupper(substring(#,0,2));
@@ -789,11 +223,19 @@ Animatefile(path,folder):=(
if(tmp1=="SC",
Scale=tmp2;
);
- if(tmp1=="OP",
- if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]");
- OpA=tmp2;
+ if(tmp1=="OP", // 17.12.07from
+ if(length(tmp2)>0,
+ tmp2=replace(tmp2,"[","");
+ tmp2=replace(tmp2,"]","");
+ if(substring(tmp2,0,1)=="+",
+ OpA=OpA+","+substring(tmp2,1,length(tmp2));
+ ,
+ OpA=tmp2;
+ );
+ );
);
);
+ if(length(OpA)>0,OpA="["+OpA+"]");
pa=replace(path,"\","/");
fname="anim"+folder+".tex";
tmp=Dirwork+"/"+folder;
@@ -804,13 +246,14 @@ Animatefile(path,folder):=(
tmp1=select(tmp1,indexof(#,".tex")>0);
SCEOUTPUT= openfile(fname);
println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22
+ println(SCEOUTPUT,"\def\figsize{"+Scale+"}%"); //17.12.07
println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%");
forall(1..(length(tmp1)),
if(Scale==1, // 17.08.30from
tmp="\input{\parapath/";
tmp=tmp+folder+"/"+tmp1_#+"}%";
,
- tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines)
+ tmp="\scalebox{\figsize}{\input{\parapath/";//17.12.07
tmp=tmp+folder+"/"+tmp1_#+"}}%";
); // 17.08.30upto
println(SCEOUTPUT,tmp);
@@ -830,23 +273,33 @@ Mkanimation():=(
Parafolder();
);
Animatefile(); //17.10.14upto
- Mkanimation("fig",ParaPath);
+ Mkanimation(Dirwork,ParaPath);
);
-Mkanimation(folder):=Mkanimation("fig",folder);
+Mkanimation(folder):=Mkanimation(Dirwork,folder);
Mkanimation(path,folder):=(
//help:Mkanimation();
//help:Mkanimation(path,folder);
- regional(Fheadbkup,Dirworkbkup,Pathpdfbkup,tex,article,parent,
- tmp,tmp1,tmp2,tmp3,flg);
+ regional(Fheadbkup,Pathpdfbkup,tex,article,parent,
+ eqL,mag,title,tmp,tmp1,tmp2,tmp3,flg);
+ tmp=Divoptions(ParaOpAnim); //17.11.25from
+ eqL=tmp_5;
+ mag="1600";
+ title=folder;
+ forall(eqL,
+ tmp=Indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="M",
+ mag=tmp2;
+ );
+ if(tmp1=="T",
+ title=tmp2;
+ );
+ ); //17.11.25upto
Fheadbkup=Fhead;
- Dirworkbkup=Dirwork;
- Pathpdfbkup=Pathpdf;
Fhead="animate"+folder;
+ Pathpdfbkup=Pathpdf;
Pathpdf=PathAd;
- Dirwork=replace(Dirwork,"\",pathsep());
- Dirwork=replace(Dirwork,"/",pathsep());
- Dirwork=replace(Dirwork,pathsep()+"fig","");
- Setdirectory(Dirwork);
tmp1=replace(PathT,pathsep(),"/");
tmp=indexall(tmp1,"/");//17.10.14from
if(length(tmp)>0,
@@ -864,6 +317,7 @@ Mkanimation(path,folder):=(
if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"\mag="+mag);//17.11.25
);
if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
if((tex=="pdflatex")%(tex=="xelatex"),
@@ -872,13 +326,25 @@ Mkanimation(path,folder):=(
println(SCEOUTPUT,"\usepackage{pict2e}");
println(SCEOUTPUT,"\usepackage{luatexja}");
);
- tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ tmp=replace(Dirhead,"\","/"); //17.10.30from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ );
,
- tmp=replace(Dirhead+"/ketpicstyle",pathsep(),"/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ tmp=replace(Dirhead,"\","/"); //17.10.30from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );
);
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{bm,enumerate}");
@@ -896,35 +362,203 @@ Mkanimation(path,folder):=(
println(SCEOUTPUT,"\usepackage"+tmp1);
);
);
+ println(SCEOUTPUT,"\pagestyle{empty}");
+ println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}");
println(SCEOUTPUT,"");
println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"\large");
println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{center}");
- println(SCEOUTPUT,"\input{"+path+"/anim"+folder+".tex}");
- println(SCEOUTPUT,"\end{center}");
+ println(SCEOUTPUT,"\vspace*{25mm}");
+ println(SCEOUTPUT,"");
+ tmp=floor(parse("290*1000/"+mag));
+ print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{");
+ print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}");
+ println(SCEOUTPUT,"}");
+ tmp=parse("6*1000/"+mag);
+ println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}");
+ println(SCEOUTPUT,"");
+ tmp=indexof(ULEN,"cm");
+ if(tmp>0,
+ tmp1=substring(ULEN,0,tmp-1);
+ tmp1=parse(replace(tmp1," ",""))*10;
+ );
+ tmp=indexof(ULEN,"mm");
+ if(tmp>0,
+ tmp1=substring(ULEN,0,tmp-1);
+ tmp1=parse(replace(tmp1," ",""));
+ );
+ tmp=parse("300*1000/"+mag);
+ tmp1=(tmp-(XMAX-XMIN)*tmp1)/2;
+ tmp1=tmp1+parse("("+mag+"-1000)/100*1.3");
+ print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}");
+ tmp=replace(path,"\","/"); //17.12.09(2lines)
+ println(SCEOUTPUT,"\input{"+tmp+"/anim"+folder+".tex}");
println(SCEOUTPUT,"\end{document}");
closefile(SCEOUTPUT);
if(iswindows(),
- parent=replace(Dirwork+Batparent,pathsep()+"fig","");
+ parent=Dirwork+Batparent;
Makebat(Fhead,"ttv");
kc():=(
println("kc : "+kc(parent,Dirlib,Fnametex))
);
kc();
,
- parent=replace(Dirwork+Shellparent,pathsep()+"fig","");
+ parent=Dirwork+Shellparent;
Makeshell(Fhead,"ttv");
kc():=(
println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
);
kc();
);
- Dirwork=Dirworkbkup;
- Dirwork=Dirwork+pathsep()+"fig";
- setdirectory(Dirwork);
Fhead=Fheadbkup;
Pathpdf= Pathpdfbkup;
);
+Mkflipanime():=(
+ regional(remflg,tmp,eqL,tmp1,tmp2);
+ if(!isexists(Dirwork,ParaPath), //17.10.14from
+ Parafolder();
+ );
+ Mkflipanime(Dirwork,ParaPath);
+);
+Mkflipanime(folder):=Mkflipanime(Dirwork,folder);
+Mkflipanime(path,folder):=(
+//help:Mkfilpanime();
+//help:Mkflipanime(path,folder);
+ regional(Fheadbkup,tex,article,parent,eqL,mag,title,
+ tmp,tmp1,tmp2,tmp3,texfiles,flg);
+ tmp=Divoptions(ParaOpAnim); //17.11.25from
+ eqL=tmp_5;
+ mag="1600";
+ title=folder;
+ forall(eqL,
+ tmp=Indexof(#,"=");
+ tmp1=Toupper(substring(#,0,1));
+ tmp2=substring(#,tmp,length(#));
+ if(tmp1=="M",
+ mag=tmp2;
+ );
+ if(tmp1=="T",
+ title=tmp2;
+ );
+ ); //17.11.25upto
+ Fheadbkup=Fhead;
+ Fhead="flipanime"+folder;
+ tmp1=replace(PathT,pathsep(),"/");
+ tmp=indexall(tmp1,"/");//17.10.14from
+ if(length(tmp)>0,
+ tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
+ ,
+ tex=tmp1;
+ );//17.10.14upto
+ if((tex=="platex")%(tex=="uplatex"),
+ if(tex=="platex",article="jarticle",article="ujarticle");
+ ,
+ article="article";
+ );
+ SCEOUTPUT=openfile(Fhead+".tex");
+ println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
+ println(SCEOUTPUT,tmp);
+ println(SCEOUTPUT,"\mag="+mag);//17.11.25
+ );
+ if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
+ if((tex=="pdflatex")%(tex=="xelatex"),
+ println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
+ ,
+ println(SCEOUTPUT,"\usepackage{pict2e}");
+ println(SCEOUTPUT,"\usepackage{luatexja}");
+ );
+ tmp=replace(Dirhead,"\","/"); //17.10.30from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
+ );
+ ,
+ tmp=replace(Dirhead,"\","/"); //17.10.30from
+ tmp=replace(tmp,"scripts","tex/latex");
+ if(isexists(tmp,""),
+ println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
+ ,
+ tmp=replace(Dirhead+"/ketpicstyle","\","/");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
+ println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
+ );
+ );
+ println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
+ println(SCEOUTPUT,"\usepackage{bm,enumerate}");
+ if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
+ println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
+ ,
+ println(SCEOUTPUT,"\usepackage{graphicx}");
+ );
+ println(SCEOUTPUT,"\usepackage{xcolor}");
+ forall(ADDPACK, tmp1,
+ if(tmp==0,
+ println(SCEOUTPUT,"\usepackage"+tmp1);
+ );
+ );
+ println(SCEOUTPUT,"\pagestyle{empty}");
+ println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\begin{document}");
+ println(SCEOUTPUT,"\large");
+ println(SCEOUTPUT,"");
+ tmp=fileslist(Dirwork+pathsep()+folder);
+ tmp=tokenize(tmp,",");
+ texfiles=select(tmp,indexof(#,".tex")>0);
+ forall(texfiles,
+ println(SCEOUTPUT,"\vspace*{25mm}");
+ println(SCEOUTPUT,"");
+ tmp=floor(parse("290*1000/"+mag));
+ print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{");
+ print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}");
+ println(SCEOUTPUT,"}");
+ tmp=parse("6*1000/"+mag);
+ println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}");
+ println(SCEOUTPUT,"");
+ tmp=indexof(ULEN,"cm");
+ if(tmp>0,
+ tmp1=substring(ULEN,0,tmp-1);
+ tmp1=parse(replace(tmp1," ",""))*10;
+ );
+ tmp=indexof(ULEN,"mm");
+ if(tmp>0,
+ tmp1=substring(ULEN,0,tmp-1);
+ tmp1=parse(replace(tmp1," ",""));
+ );
+ tmp=parse("300*1000/"+mag);
+ tmp1=(tmp-(XMAX-XMIN)*tmp1)/2;
+ tmp1=tmp1+parse("("+mag+"-1000)/100*1.3");
+ print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}");
+ println(SCEOUTPUT,"\input{"+folder+"/"+#+"}");
+ println(SCEOUTPUT,"");
+ println(SCEOUTPUT,"\newpage");
+ );
+ println(SCEOUTPUT,"\end{document}");
+ closefile(SCEOUTPUT);
+ if(iswindows(),
+ parent=Dirwork+Batparent;
+ Makebat(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Dirlib,Fnametex))
+ );
+ kc();
+ ,
+ parent=Dirwork+Shellparent;
+ Makeshell(Fhead,"tv");
+ kc():=(
+ println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
+ );
+ kc();
+ );
+ Fhead=Fheadbkup;
+);
+
//help:end();
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs
deleted file mode 100644
index ccfd7693..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindylibout.cs
+++ /dev/null
@@ -1,5338 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindyout(2017.09.10) loaded");
-
-//help:start();
-
-WritetoS(fname,cmdL):=(
-// help:WritetoS("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename);
- if(indexof(fname,".")==0,
- filename=fname+".sce";
- ,
- filename=fname;
- );
- SCEOUTPUT = openfile(filename);
- tmp="cd('"+Dirwork+"');//";
- println(SCEOUTPUT,tmp);
-// tmp1=replace(Dirlib,"\","/");
- tmp="Ketlib=lib("+Dq+Libname+Dq+");//";
- println(SCEOUTPUT,tmp);
- tmp="Ketinit();//";
- println(SCEOUTPUT,tmp);
- tmp="Setwindow([XMIN,XMAX],[YMIN,YMAX]);"; // 16.06.26from
- tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
- println(SCEOUTPUT,tmp); // 16.06.26upto
- if(iswindows(), // 17.01.11from
- println(SCEOUTPUT,"setlanguage('en')");
- ); // 17.01.11upto
- tmp="pi=%pi;////";
- println(SCEOUTPUT,tmp);
- forall(cmdL,
- println(SCEOUTPUT,#+"//");
- );
- closefile(SCEOUTPUT);
-);
-
-kcS(path,fname):=kcS(path,fname,[]);
-kcS(path,fname,optionorg):=(
-//help:kcS(PathS,"boxdata");
-//help:kcS(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".sce";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".sce",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- ); // 15.10.08 to
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+Dq+" -nb -nwni -f "+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29, 0605
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+Dq+" -nwni -f "+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29
- );
- wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-SetpathS():=(
- regional(tmp,tmp1);
- if(!isstring(PathS), // 15.12.11
- Setdirectory(Dirbin); // 15.12.07
- tmp=load(Shellfile);
- if(iswindows(),
- tmp=tokenize(tmp," -nb");
- PathS=tmp_1;
- ,
- tmp=tokenize(tmp," -nwni");
- tmp=tokenize(tmp_1,"/Applications/sci");
- PathS="/Applications/sci"+tmp_2;
- );
- setdirectory(Dirwork);
- );
- PathS;
-);
-
-ErrhandleS(fname):=( // 2016.02.28
- regional(str); //17.04.14
- if(indexof(PathS,"-6.")==0,
- str=["if iserror(-1) then"," error=lasterror()+'????';"];
- str=append(str," errclear(-1);"); // 16.03.14
- str=append(str," Fd=mopen("+Dq+wfile+Dq+",'wt');");
- str=append(str," mfprintf(Fd,'%s','Error: '+error);");
- str=append(str," mclose(Fd);");
- str=append(str," quit();");
- str=append(str,"end;");
- str;
- ,
- str=[]; //17.04.14
- );
-);
-
-Testfunstr(funstr,varx,vary):=(
- regional(var,val,fun,tmp,tmp1,tmp2);
- fun=replace(funstr,".x","(1)"); // 16.05.19
- fun=replace(fun,".y","(2)"); // 16.05.19
- tmp=indexof(varx,"=");
- var=substring(varx,0,tmp-1);
- val=substring(varx,tmp+1,length(varx));
- tmp=indexof(val,",");
- val=substring(val,0,tmp-1);
- tmp1=replace(fun,var,"("+val+")");
- tmp=indexof(vary,"=");
- var=substring(vary,0,tmp-1);
- val=substring(vary,tmp+1,length(vary));
- tmp=indexof(val,",");
- val=substring(val,0,tmp-1);
- tmp1=replace(tmp1,var,"("+val+")");
- tmp1;
-);
-
-CalcbyS(name,cmd):=CalcbyS(name,SetpathS(),cmd,[]);
-CalcbyS(name,Arg1,Arg2):=(
- if(isstring(Arg1),
- CalcbyS(name,Arg1,Arg2,[]);
- ,
- CalcbyS(name,SetpathS(),Arg1,Arg2);
- );
-);
-CalcbyS(name,path,cmd,optionorg):=(
-//help:CalcbyS("a",cmd);
-//help:CalcbyS(options= ["m/r","Wait=10","Cat=middle"]]);
-//help:CalcbyS(options1= ["Ncol=2","File=result","Dig=5"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
- ncoL,cat,dig,flg,wflg,file,nc,arg,cmdS,cmdlist,wfile,ext,
- waiting, errcheck);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- cat="M";//16.11.24
- ncoL=2;
- ext=".txt";
- waiting=10;
- dig=5;
- wfile="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="CA",
- cat=Toupper(substring(tmp2,0,1));// 16.11.24
- options=remove(options,[#]);
- );
- if(tmp1=="NC",
- ncoL=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="EX",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="WA",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="DI",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="FI", // 16.06.26from
- wfile=tmp2;
- options=remove(options,[#]);
- ); // 16.06.26upto
- );
- if(wfile=="",
- if(cat=="Y",
- wfile=Fhead+name;
- ,
- wfile="resultS";
- );
- );
- if(indexof(wfile,".")==0,// 16.06.26from
- wfile=wfile+ext;
- ); // 16.06.26upto
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(CONTINUED==0,
- if((wflg==0) & (cat=="Y"), // 16.11.24
- tmp=load(wfile);
- if(length(tmp)==0,wflg=1);
- );
- );
- file=Fhead+name;
- cmdS=cmd;
- cmdlist=[];
- forall(1..floor(length(cmdS)/2),nc, //17.05.18
- tmp1=cmdS_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- tmp1=replace(tmp1,CRmark,""); // 16.12.13
- if(nc==length(cmdR)/2, //16.10.23from
- if(indexof(tmp1,"=")==0,tmp1="="+tmp1);
- ); //16.10.23from
- if(substring(tmp1,0,1)=="=",
-// tmp1=name+tmp1; // 16.12.20
- );
- tmp2=cmdS_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- errcheck=0;
- forall(tmp2,arg,
- if(isstring(arg),
- if(Toupper(arg)=="ERROR",
- errcheck=1;
- ,
- tmp3=tmp3+replace(arg,"'",Dq)+",";
- );
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp=select(arg,isstring(#) % islist(#));
- if(length(tmp)>0,
- tmp3=tmp3+"list(";
- tmp4=")";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- );
- forall(arg,
- if(isstring(#),
- tmp3=tmp3+replace(#,"'",Dq)+",";
- ,
- if(!islist(#), // 15.11.01 from
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- ); // 15.11.01 upto
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+");";
- );
- if(errcheck==1,
- if(indexof(Dirlib,"sciL5")>0, // 17.03.20
- cmdlist=append(cmdlist,"errcatch(-1,'continue','nomessage');");
- ); // 17.03.20
- );
- cmdlist=append(cmdlist,tmp1);
- if(errcheck==1,
- tmp=ErrhandleS(wfile);
- cmdlist=concat(cmdlist,tmp);
- );
- );
- if(CONTINUED==1,
- ComOutList=concat(ComOutList,cmdlist);
- ,
- if(cat=="Y",
- tmp=[];
- tmp=append(tmp,"Fd=mopen("+Dq+file+".txt"+Dq+",'wt');");
- // 16.03.11 from
- tmp=append(tmp,"mfprintf(Fd,'%s',"+name+");");
- tmp=append(tmp,"mclose(Fd);");
- cmdlist=concat(cmdlist,tmp);
-// tmp="fprintfMat("+Dq+file+".txt"+Dq+","+name+")";
-// cmdlist=append(cmdlist,tmp); // 16.03.11 upto
- ,
-// tmp="mputl(['????'],"+Dq+file+".txt"+Dq+");"; // 16.06.2 from
-// cmdlist=concat(cmdlist,[tmp]); // 16.06.2 upto
- );
- if(cat!="Y", // 16.12.18
- cmdlist=append(cmdlist,"mputl('||||','"+wfile+"')");
- );
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".sce");
- if(length(tmp1)==0,
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"////");
- tmp1=tokenize(tmp1_2,"//");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoS(file+".sce",cmdlist);
- kcS(path,file,concat(options,["m"])); // 15.09.25
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////" % tmp2=="||||" % tmp2=="????", // 16.08.09
- if(indexof(Toupper(tmp),"ERROR")>0,
- println(tmp);
- flg=2;
- ,
- flg=1;
- );
- );
- tmp2=#*WaitUnit/1000;
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- );
- ,
- if(flg==1,
- println(" CalcbyS succeeded "+name+"("+text(tmp2)+" sec)"); //16.06.03
- ,
- ErrFlag=1;
- );
- );
- );
- if(wflg>-1,
-// wait(WaitUnit);
- );
-);
-
-Scifun(name,fun,argL):=Scifun(name,fun,argL,[]);//16.10.22
-Scifun(name,fun,argL,optionorg):=(
-//help:Scifun("1","date()",[]);
-//help:Scifun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,fname,
- tmp,tmp1,tmp2);
- nm="sc"+name;
- fname=Fhead+nm+".txt";
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- nm+"="+fun,argL,
- "Fd=mopen",[Dq+fname+Dq,Dq+"wt"+Dq],
- "Sla=char(47)+char(47);",[],
- "mputl",["string("+nm+")+Sla","Fd"],
- "mputl",["Sla","Fd"],
- "mclose",["Fd"]
- ]);
- options=append(options,"Wait=2");
- CalcbyS(nm,cmdL,options);
- if(ErrFlag==0,
- tmp=load(fname);
- tmp=replace(tmp,"////","");
- tmp=tokenize(tmp,"//");
- tmp=apply(tmp,if(!isstring(#),textformat(#,6),Dq+#+Dq));
- if(length(tmp)==1,
- tmp=tmp_1;
- );
- tmp=nm+"="+text(tmp);
- parse(tmp);
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-WritetoR(fname,cmdL):=WritetoR(fname,cmdL,[]);
-WritetoR(fname,cmdL,options):=(
-// help:WritetoR("outdata",cmdL);
- regional(eqL,tmp,tmp1,tmp2,filename,waiting);
- if(indexof(fname,".")==0,
- filename=fname+".r";
- ,
- filename=fname;
- );
- tmp=divoptions(options);
- eqL=tmp_5;
- waiting=5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="W",
- waiting=parse(tmp2);
- );
- );
- SCEOUTPUT = openfile(filename);
- tmp1=replace(Dirwork,"\","/");
- tmp="setwd("+Dq+tmp1+Dq+")##";
- println(SCEOUTPUT,tmp);
- tmp1=replace(Dirlib,"\","/");
- tmp="load("+Dq+tmp1;
- tmp=tmp+"/ketpic_ltd.Rdata"+Dq+")##";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"Ketinit()##"); // 16.07.07
- tmp="Setwindow(c(XMIN,XMAX),c(YMIN,YMAX))####"; // 16.06.26from
- tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
- println(SCEOUTPUT,tmp);
- forall(cmdL,
- println(SCEOUTPUT,#+"##");
- );
- closefile(SCEOUTPUT);
-// flg=0;
-// tmp1=floor(waiting*1000/WaitUnit);
-// repeat(tmp1,
-// if(flg==0,
-// tmp=load(filename);
-// if(length(tmp)>0,
-// flg=1;
-// ,
-// wait(WaitUnit);
-// );
-// );
-// );
-);
-
-kcR(path,fname):=kcR(path,fname,[]);
-kcR(path,fname,optionorg):=(
-//help:kcR(PathR,"boxdata");
-//help:kcR(options=["m/r","Wait=10"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,ferr,flg);
- if(indexof(fname,".")==0,
- filename=fname+".r";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- options=remove(options,[#]);
- );
- );
- if(flg==0,
- tmp2=replace(filename,".r",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- ); // 15.10.08 to
- ferr="errormessageR.txt";//16.10.22from
- SCEOUTPUT=openfile(ferr);
- closefile(SCEOUTPUT);//16.10.22uptp
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+"\R"+Dq+" --vanilla --slave < "+filename+" 2> "+ferr;
- //16.10.22
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- if(PathR=="",tmp="R",tmp=PathR);//16.10.20
- tmp=tmp+" --vanilla --slave < "+filename+" >& "+ferr;//16.10.22
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-Dataframe(nmL,dL):=Dataframe(nmL,dL,[]);
-Dataframe(nmL,dL,options):=(
-//help:Dataframe(["name","no1","no2"],dtL);
-//help:Dataframe(options=["Dig=5"]);
- regional(dig,tmp,tmp1,tmp2,out);
- dig=5;
- tmp=Divoptions(options);
- tmp=tmp_5;
- forall(tmp,
- tmp1=Toupper(substring(#,0,1));
- tmp2=indexof(#,"=");
- tmp2=substring(#,tmp2,length(#));
- if(tmp1=="D",
- dig=parse(tmp2);
- );
- );
- out="data.frame(";
- forall(1..(length(nmL)),
- tmp1=nmL_#;
- tmp2=column(dL,#);
- tmp2=apply(tmp2,if(isstring(#),Dq+#+Dq,format(#,dig)));
- tmp=tmp1+"="+tmp2+",";
- out=out+tmp;
- );
- out=substring(out,0,length(out)-1)+")";
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
-);
-
-CalcbyR(name,cmd):=CalcbyR(name,PathR,cmd,[]);
-CalcbyR(name,Arg1,Arg2):=(
- if(isstring(Arg1),
- CalcbyR(name,Arg1,Arg2,[]);
- ,
- CalcbyR(name,PathR,Arg1,Arg2);
- );
-);
-CalcbyR(name,path,cmd,optionorg):=(
-//help:CalcbyR("Pr",cmd);
-//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]);
- regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL,
- cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- dig=5;
- cat="Y";
- wfile="";
- ext=".txt";
- waiting=2;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="C",
- cat=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="F",
- wfile=tmp2;
- options=remove(options,[#]);
- );
- );
- if(wfile=="",
- if(cat=="Y",
- wfile=Fhead+name+ext;
- ,
- wfile="resultR"+ext;
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(CONTINUED==0,
- if((wflg==0) & (cat!="N"), // 16.11.13
- tmp=load(wfile);
- if(length(tmp)==0,wflg=1);
- );
- );
- file=Fhead+name;
-// cmdR=flatten(cmd);
- cmdR=cmd;
- cmdlist=[];
- if(dig>5, //16.10.28from
- cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");");
- ); //16.10.28upto
- forall(1..floor(length(cmdR)/2),nc, //17.05.18
- tmp1=cmdR_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdR)/2, //16.10.23from
-// if(indexof(tmp1,"=")==0,tmp1="="+tmp1);//16.12.20
- ); //16.10.23uptp
- if(substring(tmp1,0,1)=="=",
- tmp1=name+tmp1;
- );
- tmp2=cmdR_(2*nc); // list of argments
- tmp3="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+replace(arg,"'",Dq)+",";
- ,
- if(length(arg)==1,
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"c(";
- forall(arg,
- tmp3=tmp3+textformat(#,dig)+",";
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+")"+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")";
- );
- cmdlist=append(cmdlist,tmp1);
- );
- if(CONTINUED==1,
- ComOutList=concat(ComOutList,cmdlist);
- ,
- if(cat=="Y", //16.10.23from
- tmp="sharp=rawToChar(as.raw(35))";
- cmdlist=append(cmdlist,tmp);
- tmp="sharps=paste(sharp,sharp,'\n',sep='')";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist,"if(is.matrix("+name+")){");
- cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")");
- cmdlist=append(cmdlist,"}");
- cmdlist=append(cmdlist,"if(is.list("+name+")){");
- tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist," for(ii in 1:length("+name+")){");
- tmp=" cat("+name+"[[ii]],file='"+wfile+"',";
- tmp=tmp+"sep=',',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist," }");
- cmdlist=append(cmdlist,"}else{");
- tmp=" cat("+name+",file='"+wfile+"',sep=',')";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist,"}");
- tmp="cat('////',file='"+wfile+"',sep=',',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- ); //16.10.23upto
- if(cat!="Y", // 16.12.18
- cmdlist=append(cmdlist,"cat('////',file='"+wfile+"',sep='')");
- );
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".r");
- if(length(tmp1)==0,
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"####"); // 15.09.25 from
- tmp1=tokenize(tmp1_2,"##");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- ); // 15.09.25 to
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoR(file+".r",cmdlist);
- kcR(PathR,file,concat(options,["m"])); // 15.09.25
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- tmp=substring(tmp,0,length(tmp)-4);
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- tmp=load("errormessageR.txt");//16.10.22
- if(length(tmp)>1,println(tmp));//16.10.22
- );
- ,
- println(" CalcbyR succeeded "+name+" ("+text(tmp2)+" sec)");
- if(cat=="Y", // 16.10.29,11.25
- tmp1=tokenize(tmp,"##"); //16.10.23from
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp2=[];
- forall(tmp1,tmp3,
- if(!isstring(tmp3),tmp3=format(tmp3,dig));
- tmp=tokenize(tmp3,",");
- tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig)));
- tmp2=append(tmp2,tmp);
- );
- if(length(tmp2)==1,
- tmp2=tmp2_1;
- if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24
- ,
- tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))];
- );
- tmp=name+"="+text(tmp2); //16.10.23upto
- parse(tmp);
- );
- );
- );
-);
-
-Rfun(name,fun,argL):=Rfun(name,fun,argL,[]);//16.10.22
-Rfun(name,fun,argL,optionorg):=(
-//help:Rfun("1","rnorm",[10]);
-//help:Rfun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,
- tmp,tmp1,tmp2);
- nm="R"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- nm+"="+fun,argL
- ]);
- options=concat(options,["Wait=2"]);
- CalcbyR(nm,cmdL,options);
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-Readcsv(file):=Readcsv(Dirwork,file,[]);
-Readcsv(Arg1,Arg2):=(
- if(isstring(Arg2),
- Readcsv(Arg1,Arg2,[]);
- ,
- Readcsv(Dirwork,Arg1,Arg2);
- );
-);
-Readcsv(pathorg,file,optionorg):=(
-//help:Readcsv("ex.csv");
-//help:Readcsv(directory,"ex.csv");
-//help:Readcsv(options=["Head=yes","Sep=-999","Flat=no","Use=R"]);
- regional(path,fname,fout,options,eqL,header,cmdL,sep,
- dt,nrow,tmp,tmp1,tmp2,csv,use,flat);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- header=1;
- sep="-999";
- csv="Y"; // 16.12.12
- use="R";
- flat="N";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- tmp=Toupper(substring(tmp1,0,2));
- if(tmp=="HE",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="F" % tmp=="N",
- header=0;
- options=remove(options,[#]);
- );
- );
-// if(tmp=="WA", // removed:17.02.19
-// waiting=parse(tmp2);
-// options=remove(options,[#]);
-// );
- if(tmp=="SE",
- sep=tmp2;
- options=remove(options,[#]);
- );
- if(tmp=="CS",
- csv=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp=="US",
- use=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp=="FL",
- flat=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- );
- if(flat=="Y",csv="N");
- sep=","+sep;
- tmp=indexof(file,".");
- if(tmp==0,
- fname=file+".csv";
- fout=file+"sep.csv";
- ,
- fname=file;
- tmp1=substring(file,0,tmp-1);
- tmp2=substring(file,tmp-1,length(file));
- fout=tmp1+"sep"+tmp2;
- );
- path=pathorg;
- if(!isexists(path,fname),
- println(path+" "+fname+" not found");
- ,
- path=replace(path,"\","/");
- if(use=="S",
- cmdL=[ // 16.12.20from
- "cd('"+path+"')",[],
- "Dt=mgetl('"+fname+"');",[],
- "cd('"+Dirwork+"')",[],
- "Dt2=[]",[],
- "for I=1:size(Dt,1),
- Tmp=Dt(I,:)+'"+sep+"';
- Dt2=[Dt2;Tmp];
- end",[],
- "mputl(Dt2,'"+fout+"')",[]
- ];
- CalcbyS("sep",cmdL,options);
- ,
- cmdL=[
- "setwd",[Dq+path+Dq],
- "tmp1=readLines",[Dq+fname+Dq,"warn=FALSE"],
- "fun=function(s) paste(s,"+Dq+sep+Dq+",sep="+Dq+Dq+")",[],
- "tmp2=sapply(tmp1,fun)",[],
- "writeLines",["tmp2",Dq+fout+Dq]
- ];
- CalcbyR("sep",cmdL,concat(options,["Cat=n"]));
- ); // 16.12.20upto
- if(ErrFlag==1,
- println("Readcsv not completed");
- ,
- dt=load(fout);
- dt=tokenize(dt,sep);
- dt=dt_(1..(length(dt)-1));//16.12.20
- if(isstring(dt_1),// 17.02.10from
- if(indexof(dt_1,",")==0,csv="N");
- ,
- csv="N";
- );// 17.02.10upto
- if(csv=="Y",
- dt=apply(dt,tokenize(#,","));
- ,
- dt=apply(dt,[#]);
- );
- forall(1..(length(dt)),nrow,
- tmp1=dt_nrow;
- tmp2=[];
- forall(tmp1,
- if(!isstring(#),
- tmp=#;
- ,
- if(substring(#,0,1)==Dq,
- tmp=parse(#);
- ,
- tmp=#;
- );
- );
- tmp2=append(tmp2,tmp);
- );
- dt_nrow=tmp2;
- );
- if(header==0,dt=dt_(2..(length(dt))));
- if(length(dt)==1,
- dt=dt_1
- ,
- if(length(dt_1)==1,
- dt=apply(dt,#_1);
- );
- );
- dt;
- );
- );
-);
-
-Writecsv(nmL,data,file):=Writecsv(nmL,data,file,[]);
-Writecsv(nmL,dataorg,file,optionorg):=(
-//help:Writecsv([],data,"ex.csv");
-//help:Writecsv(["a","b"],data,"ex.csv");
-//help:Writecsv(optins=["Col=1"]);
- regional(nameL,data,eqL,strL,ncol,nrow,fname,dig,tmp,tmp1,tmp2);
- ncol=0; // 17.02.09from
- dig=5;
- if(isstring(dataorg),data=parse(dataorg),data=dataorg);
- if(islist(data_1),
- ncol=length(data_1);
- data=flatten(data);
- ); // 17.02.09upto
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="C",
- ncol=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- if(indexof(file,".")==0,fname=file+".csv",fname=file);
- if(ncol==0,ncol=max(1,length(nmL)));
- tmp1=mod(length(data),ncol);
- if(tmp1>0,
- tmp=apply(1..(ncol-tmp1),-1);
- data=concat(data,tmp);
- );
- nrow=length(data)/ncol;
- if(length(nmL)<ncol,
- nameL=apply(1..ncol,"c"+text(#));
-// tmp=nameL_length(nameL)+"##";//17.02.09
- tmp=nameL_(length(nameL));//17.02.09
- nameL_(length(nameL))=tmp;
- ,
- nameL=nmL;
- );
- SCEOUTPUT=openfile(fname);
- tmp=text(nameL);
- println(SCEOUTPUT,substring(tmp,1,length(tmp)-1));
- forall(1..nrow,
- tmp1=data_(((#-1)*ncol+1)..(#*ncol));
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- println(SCEOUTPUT,tmp2);
- );
- closefile(SCEOUTPUT);
-);
-
-PlotdataR(name1,func,var):=PlotdataR(name1,PathR,func,var);
-PlotdataR(name1,Arg1,Arg2,Arg3):=(
- if(islist(Arg3),
- PlotdataR(name1,PathR,Arg1,Arg2,Arg3);
- ,
- PlotdataR(name1,Arg1,Arg2,Arg3,[]);
- );
-);
-PlotdataR(name1,path,func,variable,optionorg):=(
-//help:PlotdataR("1","dnorm(x)","x");
-//help:PlotdataR(options=["m/r","Num=50","Wait=10"]);
- regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num,
- Ltype,Noflg,eqL,strL,flg,outreg,filename,wfile,cmdL,waiting);
- name="grR"+name1;
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- Num=50;
- waiting=5;
- outreg=0;
- flg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="W",
- waiting=parse(tmp1);
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="O",
- tmp=Toupper(substring(tmp1,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- tmp=indexof(variable,"=");
- if(tmp>0,
- varstr=variable;
- ,
- varstr=variable+"="+textformat([XMIN,XMAX],5);
- );
- varstr=replace(varstr,"[","c(");
- varstr=replace(varstr,"]",")");
- filename=Fhead+name+".r";
- wfile=Fhead+name+".txt";
- cmdL=MkprecommandR();
- cmdL=concat(cmdL,[
- name+"=Plotdata",[Dq+func+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
- "WriteOutData",[Dq+wfile+Dq,Dq+name+Dq,name]
- ]);
- if(ErrFlag==0,
- CalcbyR(name,cmdL,concat(options,["Cat=middle","Wait="+text(waiting)]));
- );
- if(ErrFlag==1,
- println("PlotdataR not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[wfile]);
- OutFileList=append(OutFileList,wfile);
- );
- ReadOutData(wfile);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-PlotdiscR(nm,fun,varrng):=PlotdiscR(nm,fun,varrng,[]);
-PlotdiscR(nm,fun,varrng,options):=(
-//help:PlotdiscR("1","dbinom(k,10,0.4)","k=[0,10]");
- regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2,wfile);
- name="grd"+nm;
- tmp=indexof(varrng,"=");
- var=substring(varrng,0,tmp-1);
- range=parse(substring(varrng,tmp,length(varrng)));
- if(length(range)==2,
- range=(range_1)..(range_2);
- );
- cmdL=[
- "fnb=function("+var+") "+fun,[],
- name+"=sapply",[range,"fnb"]
- ];
- wfile=Fhead+name+".txt";
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag==1,
- println("PlotdiscR not completed");
- ,
- tmp1=load(wfile);
- tmp1=substring(tmp1,0,length(tmp1)-4);
- tmp1=replace(tmp1,"##","");
- pb=tokenize(tmp1,",");
- tmp=apply(range,[#,pb_(#+1)]);
- Listplot(name,tmp,options);
- );
-);
-
-Boxplot(nm,dataorg,ypos,dy):=Boxplot(nm,dataorg,ypos,dy,[]);
-Boxplot(nm,dataorg,ypos,dy,optionorg):=(
-//help:Boxplot("1",dt,2,1/2,[""]);
- regional(options,name,data,bp,cmdL,waiting,tmp,tmp1,tmp2,tmp3,tmp4,
- out,eqL,strL,pstr,ext,file,flg,wrflg);
- name="bp"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- waiting=3;
- wrflg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="R",
- wrflg=-1;
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wrflg=1;
- options=remove(options,[#]);
- );
- );
- data=dataorg;
- if(isstring(data),
- if(indexof(data,".")==0,data=data+".dat");
- if(iswindows(), // 15.11.10
- data=replace(data,"/","\");
- flg="\";
- ,
- data=replace(data,"\","/");
- flg="/";
- );
- forall(reverse(1..length(data)),
- if(length(flg)>0,
- tmp=substring(data,#-1,#);
- if(tmp==flg,
- tmp3=substring(data,0,#-1);
- tmp4=substring(data,#,length(data));
- if(indexof(tmp3,":")==0, // 11.11.10
- tmp=substring(tmp3,0,1);
- if(tmp!=flg,
- tmp3=Dirwork+flg+tmp3;
- );
- );
- flg="";
- );
- );
- );
- if(length(flg)>0,
- tmp3=Dirwork; //15.11.10
- tmp4=data;
- );
- setdirectory(tmp3);
- tmp=load(tmp4);
- if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
- setdirectory(Dirwork);
- ,
- file=Fhead+name+".dat";
- tmp=load(file);
- if(length(tmp)>0,
- tmp1=tokenize(tmp,",");
- tmp1=tmp1_(1..(length(tmp1)-1));
- ,
- tmp1=[];
- );
- flg=0;
- if(length(tmp1)==length(data),
- tmp=tmp1-data;
- tmp=select(tmp,#!=0);
- if(length(tmp)>0,flg=1);
- ,
- flg=1;
- );
- if(flg==1,
- SCEOUTPUT=openfile(file);
- forall(data,
- print(SCEOUTPUT,textformat(#,5)+",");
- );
- println(SCEOUTPUT,"////");
- closefile(SCEOUTPUT);
-// wait(WaitUnit);
- );
- data=file;
- );
- data=replace(data,"\","/");
- cmdL=[
- "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
- "tmp=substring",["tmp",1,"nchar(tmp)-4"],
- "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
- "data=data[[1]]",[],
- "fun=function(s) eval(parse(text=s))",[],
- "data=sapply",["data","fun"],
- "data=data[!is.na(data)]",[],
- "tmp=boxplot",["data","plot=FALSE"],
- "tmp1=tmp$stat",[],
- "tmp2=tmp$out",[],
- name+"=c(tmp1,tmp2)",[]
- ];
- file=Fhead+name+".txt";
- options=append(options,"Wait="+text(waiting));
- if(wrflg==1,options=append(options,"m"));
- if(wrflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag>0,
- if(ErrFlag==1,println("Boxplot not completed"));
- if(ErrFlag==2,println(Dq+data+Dq+" not found"));
- ,
-// tmp=load(file);//16.10.23from
-// println([1449,tmp]);
-// tmp=replace(tmp,"/","");
-// tmp=tokenize(tmp,",");
-// tmp=name+"="+textformat(tmp,5);
-// parse(tmp);//16.10.23upto
- bp=parse(name);
- pstr="[";
- tmp1=[bp_1,ypos-dy/2];
- tmp2=[bp_1,ypos+dy/2];
- Listplot(name+text(1),[tmp1,tmp2],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(1)+Dq+",";
- tmp1=[bp_2,ypos-dy];
- tmp2=[bp_2,ypos+dy];
- tmp3=[bp_4,ypos+dy];
- tmp4=[bp_4,ypos-dy];
- Listplot(name+text(2),[tmp1,tmp2,tmp3,tmp4,tmp1],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(2)+Dq+",";
- tmp1=[bp_5,ypos-dy/2];
- tmp2=[bp_5,ypos+dy/2];
- Listplot(name+text(3),[tmp1,tmp2],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(3)+Dq+",";
- tmp1=[bp_3,ypos-dy];
- tmp2=[bp_3,ypos+dy];
- Listplot(name+text(4),[tmp1,tmp2],["dr,2","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(4)+Dq+",";
- tmp1=[bp_1,ypos];
- tmp2=[bp_2,ypos];
- Listplot(name+text(5),[tmp1,tmp2],["da","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(5)+Dq+",";
- tmp1=[bp_4,ypos];
- tmp2=[bp_5,ypos];
- Listplot(name+text(6),[tmp1,tmp2],["da","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(6)+Dq+",";
- out=bp_(6..length(bp));
- if(length(out)>0,
- out=apply(out,[#,ypos]);
- Pointdata(name+text(1),out,[0,"Size=4"]);
- );
- pstr=substring(pstr,0,length(pstr)-1)+"]";
- println("generate totally "+name);
- tmp=name+"="+pstr;
- [bp_(1..5),out];
- );
-);
-
-Histplot(nm,dataorg):=Histplot(nm,dataorg,[]);
-Histplot(nm,dataorg,optionorg):=(
-//help:Histplot("1",data(fillename));
-//help:Histplot(options=["Breaks=","Den=no","Rel=no"]);
- regional(options,name,data,waiting,hp,cmdL,tmp,tmp1,tmp2,tmp3,tmp4,
- out,eqL,strL,breaks,bdata,cdata,pstr,file,flg,rwflg,density,relative);
- name="hp"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- breaks = "breaks="+Dq+"Sturges"+Dq;
- density=0;
- relative=0;
- waiting=3;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- if(Toupper(substring(#,0,1))=="B",
- if(substring(tmp1,0,1)=="[",
- tmp1="c("+substring(tmp1,1,length(tmp1)-1)+")";
- );
- breaks="breaks="+tmp1;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="D",
- tmp2=Toupper(substring(tmp1,0,1));
- if(tmp2=="T" % tmp2=="Y",
- density=1;
- );
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp2=Toupper(substring(tmp1,0,1));
- if(tmp2=="T" % tmp2=="Y",
- relative=1;
- );
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="W",
- waiting=parse(tmp1);
- options=remove(options,[#]);
- );
- );
- wrflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="R",
- wrflg=-1;
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wrflg=1;
- options=remove(options,[#]);
- );
- );
- data=dataorg;
- if(isstring(data),
- if(indexof(data,".")==0,data=data+".csv");
- if(iswindows(), // 15.11.10
- data=replace(data,"/","\");
- flg="\";
- ,
- data=replace(data,"\","/");
- flg="/";
- );
- forall(reverse(1..length(data)),
- if(length(flg)>0,
- tmp=substring(data,#-1,#);
- if(tmp==flg,
- tmp3=substring(data,0,#-1);
- tmp4=substring(data,#,length(data));
- if(indexof(tmp3,":")==0, // 11.11.10
- tmp=substring(tmp3,0,1);
- if(tmp!=flg,
- tmp3=Dirwork+flg+tmp3;
- );
- );
- flg="";
- );
- );
- );
- if(length(flg)>0,
- tmp3=Dirwork; //15.11.10
- tmp4=data;
- );
- setdirectory(tmp3);
- tmp=load(tmp4);
- if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
- setdirectory(Dirwork);
- ,
- file=Fhead+name+".dat";
- tmp=load(file);
- if(length(tmp)>0,
- tmp1=tokenize(tmp,",");
- tmp1=tmp1_(1..(length(tmp1)-1));
- ,
- tmp1=[];
- );
- flg=0;
- if(length(tmp1)==length(data),
- tmp=tmp1-data;
- tmp=select(tmp,#!=0);
- if(length(tmp)>0,flg=1);
- ,
- flg=1;
- );
- if(flg==1,
- SCEOUTPUT=openfile(file);
- forall(data,
- print(SCEOUTPUT,textformat(#,5)+",");
- );
- println(SCEOUTPUT,"////");
- closefile(SCEOUTPUT);
-// wait(WaitUnit);
- );
- data=file;
- );
- data=replace(data,"\","/");
- cmdL=[
- "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
- "tmp=substring",["tmp",1,"nchar(tmp)-4"],
- "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
- "data=data[[1]]",[],
- "fun=function(s) eval(parse(text=s))",[],
- "data=sapply",["data","fun"],
- "data=data[!is.na(data)]",[],
- "tmp=hist",["data","plot=FALSE",breaks],
- "tmp1=tmp$breaks",[],
- "tmp2=tmp$count",[],
- "tmp3=tmp$density",[],
- name+"=c(tmp1,tmp2,tmp3)",[]
- ];
- file=Fhead+name+".txt";
- options=append(options,"Wait="+text(waiting));
- if(wrflg==1,options=append(options,"m"));
- if(wrflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag>0,
- if(ErrFlag==1,println("Histplot not completed"));
- if(ErrFlag==2,println(Dq+data+Dq+" not found"));
- ,
-// tmp=load(file);
-// tmp=replace(tmp,"/","");
-// tmp=tokenize(tmp,",");
-// tmp=name+"="+textformat(tmp,5);
-// parse(tmp);
- hp=parse(name);
- tmp1=(length(hp)-1)/3+1;
- tmp2=tmp1+(length(hp)-1)/3;
- bdata=hp_(1..tmp1);
- if(density==0,
- cdata=hp_((tmp1+1)..tmp2);
- ,
- cdata=hp_((tmp2+1)..length(hp));
- );
- if(relative==1,
- cdata=cdata/sum(cdata);
- );
- options=append(options,"Msg=no"); // 15.10.03
- pstr="[";
- forall(1..length(cdata),
- tmp1=[bdata_#,0];
- tmp2=[bdata_#,cdata_#];
- tmp3=[bdata_(#+1),cdata_#];
- tmp4=[bdata_(#+1),0];
- Listplot(name+text(#),[tmp1,tmp2,tmp3,tmp4,tmp1],options);
- pstr=pstr+Dq+"sg"+name+text(#)+Dq+",";
- );
- pstr=substring(pstr,0,length(pstr)-1)+"]";
- println("generate totally "+name);
- tmp=name+"="+pstr;
- parse(tmp);
- [bdata,cdata];
- );
-);
-
-Scatterplot(nm,file):=Scatterplot(nm,file,[]);
-Scatterplot(nm,file,optionorg):=(
-//help:Scatterplot("1",path+filename);
-//help:Scatterplot(options=["Reg=yes",A,B,C,"Size"=4"]);
- regional(tmp,tmp1,tmp2,fname,name,reg,eqL,reL,cdysize,
- options,dtx,dty,nn,mx,my,sx,sy,sxy,rr,aa,bb,size);
- name="sc"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- options=remove(options,reL);
- cdysize=select(options,indexof(#,"size->")>0);
- options=remove(options,cdysize);
- size=4;
- reg="yes";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="R",
- reg=tmp2;
- options=remove(options,[#]);
- );
- if(tmp1=="S",
- size=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- if(indexof(file,".")==0,
- fname=file+".csv";
- ,
- fname=file;
- );
- Readcsv(nm,fname);
- tmp=concat(options,cdysize);
- Pointdata(name,parse("rc"+nm),append(tmp,"Size="+text(size)));
- tmp=parse("rc"+nm);
- dtx=apply(tmp,#_1);
- dty=apply(tmp,#_2);
- nn=length(dtx);
- mx=sum(dtx)/nn;
- my=sum(dty)/nn;
- sx=sqrt(dtx*dtx/nn-mx^2);
- sy=sqrt(dty*dty/nn-my^2);
- sxy=dtx*dty/nn-mx*my;
- rr=sxy/sx/sy;
- aa=sxy/sx^2;
- bb=my-aa*mx;
- tmp=Assign("a*x+b",["a",aa,"b",bb]);
- if(reg!="no",
- Plotdata(name,tmp,"x",append(options,"Num=2"));
- );
- if(length(reL)>=2,
- Framedata2(name,[reL_1,reL_2]);
- if(length(reL)>2,
- tmp="r="+textformat(rr,3)+",\ y=";
- tmp=tmp+textformat(aa,3)+"x";
- if(bb>0,tmp=tmp+"+",tmp=tmp+"-");
- tmp=tmp+textformat(abs(bb),3);
- Expr([reL_3,"e",tmp]);
- );
- );
- [mx,my,sx,sy,sxy,rr,bb,aa];
-);
-
-Rulerscale(pt,hscale,vscale):=Rulerscale(pt,hscale,vscale,0.1);
-Rulerscale(pt,hscale,vscale,tick):=(
-//help:Rulerscale(A,["r",0,5,1],["s2",0,2,4]);
-//help:Rulerscale(A,["r",0,5,1],["f",10,"a",20,"w2","b"]);
-//help:Rulerscale(A,["r",0,5,1],["r",0,10,1],0.2);
- regional(pA,pos,mrk,dir,tmp,tmp1,tmp2,tmp3);
- pA=Lcrd(pt);
- if(length(hscale)>0,
- pos=[]; mrk=[]; dir=[];
- tmp=Toupper(substring(hscale_1,0,1));
- if(tmp=="R" % tmp=="F",
- if(tmp=="R",
- dir="s2";
- tmp1=hscale_2;
- tmp2=hscale_3;
- tmp3=hscale_4;
- tmp=floor((tmp2-tmp1)/tmp3);
- pos=apply(0..tmp,tmp1+#*tmp3);
- mrk=apply(pos,text(#));
- dir=apply(1..length(pos),"s2");
- ,
- forall(2..(length(hscale)-2),
- tmp1=hscale_(#);
- tmp2=hscale_(#+1);
- tmp3=hscale_(#+2);
- if(isreal(tmp1),
- pos=append(pos,tmp1);
- if(isstring(tmp3),
- dir=append(dir,tmp2);
- mrk=append(mrk,tmp3);
- ,
- dir=append(dir,"s2");
- mrk=append(mrk,tmp2);
- );
- );
- );
- if(isreal(tmp2),
- pos=append(pos,tmp2);
- dir=append(dir,"s2");
- mrk=append(mrk,tmp3);
- );
- );
- ,
- pos=hscale_(2..length(hscale));
- dir=apply(pos,"s2");
- mrk=apply(pos,text(#));
- );
- pos=apply(pos,[#,pA_2]);
- forall(1..length(pos),
- Expr([pos_#,dir_#,mrk_#]);
- tmp1=pos_#;
- tmp2=pos_#-[0,tick/SCALEY];
- Listplot("rsh"+text(#),[tmp1,tmp2],["Msg=no"]);
- );
- );
- if(length(vscale)>0,
- pos=[]; mrk=[]; dir=[];
- tmp=Toupper(substring(vscale_1,0,1));
- if(tmp=="R" % tmp=="F",
- if(tmp=="R",
- dir="w2";
- tmp1=vscale_2;
- tmp2=vscale_3;
- tmp3=vscale_4;
- tmp=floor((tmp2-tmp1)/tmp3);
- pos=apply(0..tmp,tmp1+#*tmp3);
- mrk=apply(pos,text(#));
- dir=apply(1..length(pos),"w2");
- ,
- forall(2..(length(vscale)-2),
- tmp1=vscale_(#);
- tmp2=vscale_(#+1);
- tmp3=vscale_(#+2);
- if(isreal(tmp1),
- pos=append(pos,tmp1);
- if(isstring(tmp3),
- dir=append(dir,tmp2);
- mrk=append(mrk,tmp3);
- ,
- dir=append(dir,"w2");
- mrk=append(mrk,tmp2);
- );
- );
- );
- if(isreal(tmp2),
- pos=append(pos,tmp2);
- dir=append(dir,"w2");
- mrk=append(mrk,tmp3);
- );
- );
- ,
- pos=vscale_(2..length(vscale));
- dir=apply(pos,"w1");
- mrk=apply(pos,text(#));
- );
- pos=apply(pos,[pA_1,#]);
- forall(1..length(pos),
- Expr([pos_#,dir_#,mrk_#]);
- tmp1=pos_#;
- tmp2=pos_#-[tick/SCALEX,0];
- Listplot("rsv"+text(#),[tmp1,tmp2],["Msg=no"]);
- );
- );
-);
-
-MkprecommandR():=MkprecommandR(5); // 15.02.01
-MkprecommandR(prec):=(
- regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),prec);// 15.02.05
- tmp2=format(re(tmp_2),prec);
- tmp="c("+tmp1+","+tmp2+")";
- Plist=append(Plist,#.name+"="+tmp);
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- cmdL=[];
- forall(1..length(Plist),
- cmdL=concat(cmdL,[Plist_#,[]]);
- cmdL=concat(cmdL,
- ["Assign("+Dq+Pnamelist_#+Dq+","+Pvaluelist_#+")",[]]);
- );
- tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
- tmp1=[];
- forall(tmp2,tmp,
- tmp1=concat(tmp1,select(VLIST,#_1==tmp));
- );
- VLIST=tmp1;// 16.02.03 upto
- forall(VLIST,
- tmp=Rform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- tmp2="[";
- forall(tmp1,
- if(abs(#)<10^(-5), // 16.01.30
- tmp2=tmp2+"0,";
- ,
- tmp2=tmp2+format(#,prec)+",";
- );
- );
- tmp1=substring(tmp2,0
- ,length(tmp2)-1)+"]";
- ,
- tmp1=format(tmp1,prec);
- );
- );
- cmdL=concat(cmdL,["eval(parse(text="+tmp+Dq+tmp1+Dq+")",[]]);
- tmp=substring(tmp,0,length(tmp)-1);
- cmdL=concat(cmdL,
- ["Assign("+Dq+tmp+Dq+","+tmp1+")",[]]); // 15.01.27
- );
- forall(OutFileList,
- cmdL=concat(cmdL,["tmp=ReadOutData",[Dq+#+Dq]]);
- );
-// forall(FUNLIST, // 16.04.23from
-// cmdL=concat(cmdL,[#,[]]);
-// ); // 16.02.17 upto
-// forall(GLIST,
-// tmp1=Rform(#);
-// cmdL=concat(cmdL,[tmp1,[]]);
-// );// 16.04.23upto
- cmdL;
-);
-
-MkprecommandS():=MkprecommandS(5);
-MkprecommandS(prec):=(
- regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2);
- cmdL=[];
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),prec);// 15.02.05
- tmp2=format(re(tmp_2),prec);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp);
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- forall(1..length(Plist),
- cmdL=concat(cmdL,[Plist_#,[]]);
- cmdL=concat(cmdL,["Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+")",[]]);
- );
- tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
- tmp1=[];
- forall(tmp2,tmp,
- tmp1=concat(tmp1,select(VLIST,#_1==tmp));
- );
- VLIST=tmp1;// 16.02.03 upto
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- if(!isstring(tmp1_1), // 16.11.14
- tmp2="[";
- forall(tmp1,
- if(abs(#)<10^(-prec), // 16.01.30
- tmp2=tmp2+"0,";
- ,
- tmp2=tmp2+format(#,prec)+",";
- );
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
- ,
- tmp2="list("; // 16.11.14from
- forall(tmp1,
- tmp2=tmp2+#+",";
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+")";
- ); // 16.11.14upto
- ,
- tmp1=format(tmp1,prec);
- );
- );
- cmdL=concat(cmdL,[tmp+"evstr('"+tmp1+"')",[]]);
- tmp=substring(tmp,0,length(tmp)-1);
- cmdL=concat(cmdL,["Assignrep('"+tmp+"',"+tmp1+")",[]]); // 15.01.27
- );
- forall(OutFileList,
- tmp=["tmp=ReadOutData",[Dq+#+Dq],
- "if length(tmp(1))>8,execstr(tmp),end",[]];
- cmdL=concat(cmdL,tmp);
- );
- forall(FUNLIST, // 16.02.17 from
- cmdL=concat(cmdL,[#,[]]);
- ); // 16.02.17 upto
- forall(GLIST,
- tmp1=Sciform(#);
- cmdL=concat(cmdL,[tmp1,[]]);
- );
- cmdL;
-);
-
-PlotdataS(name1,func,var):=PlotdataS(name1,func,var,[]);
-PlotdataS(nm,fun,variable,optionorg):=(
-//help:PlotdataS("1","besselj(1,x)","x");
-//help:PlotdataS(options=["m/r","Num=50","Wait=5","Mx=no"]);
- regional(options,name,varstr,Num,waiting,mxcheck,outreg,
- eqL,strL,fname,tmp,tmp1,tmp2,tmp3,cmdL,flg,wflg);
- name="grsc"+nm;
- fname=Fhead+name+".txt";
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- Num=50;
- waiting=5;
- mxcheck=0; // 16.03.02
- outreg=0;
- flg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="N",
- Num=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- if(tmp1=="M",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", mxcheck=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(variable,"=");
- if(tmp>0,
- varstr=variable;
- ,
- varstr=variable+"="+textformat([XMIN,XMAX],5);
- );
- cmdL=MkprecommandS();
- cmdL=concat(cmdL,[
- name+"=Plotdata",[Dq+fun+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
- ]);
- ErrFlag=0; // 16.03.02 from
- if(mxcheck==1,
- Mxfun(name,fun,[],["Disp=n"]);
- tmp=parse("mx"+name);
- if(!isstring(tmp),ErrFlag=1);
- );
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=append(options,"m"));
- if(wflg==-1,options=append(options,"r"));// 16.03.02 upto
- if(ErrFlag==0,
- CalcbyS(name,cmdL,concat(options,["cat=middle","Wait="+text(waiting)]));
- );
- if(ErrFlag==1,
- println(" PlotdataS not completed");
- ,
- if(outreg==1, // 2016.03.02 ( // )
- OutFileList=remove(OutFileList,[wfile]);
- OutFileList=append(OutFileList,wfile);
- );
- ReadOutData(fname);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
-// Addgraph(name); // 16.04.04
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-Implicitplot(nm,fun,varx,vary):=
- Implicitplot(nm,fun,varx,vary,[]);
-Implicitplot(nm,fnorg,varx,vary,optionorg):=(
-//help:Implicitplot("1","3*x^2+y^2=1","x=[-3,3]","y=[-3,3]");
-//help:Implicitplot(options2=["Wait=10","Out=no","Mx=no"]);
- regional(options,name,fun,waiting,mxcheck,outreg,
- eqL,reL,strL,fname,var,rng,val,tmp,tmp1,tmp2,cmdL,flg,wflg);
- name="imp"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=5; // 16.02.29
- mxcheck=0; // 16.02.29
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="WA",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="OU",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- if(tmp1=="MX",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", mxcheck=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- tmp1=Testfunstr(fun,varx,vary);
- tmp=apply([fun,varx,vary],Dq+#+Dq);
- tmp_1=Sciform(tmp_1);
- tmp=concat(tmp,reL);
-// tmp=append(tmp,"Error"); // 16.02.29
- cmdL=MkprecommandS();
- cmdL=concat(cmdL,[
- "evstr",[tmp1,"Error"], // 16.03.15
- name+"=Implicitplot",tmp, // 16.03.15
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
- ]);
-// tmp=[""];
- ErrFlag=0; // 16.02.29 from
- if(mxcheck==1,
- Mxfun(name,"expand",[fun],["Disp=n"]);
- tmp=parse("mx"+name);
- if(!isstring(tmp),ErrFlag=1);
- ); // 16.02.29 upto
- options=concat(options,["Wait="+text(waiting)]);
- if(wflg==1,options=append(options,"m"));
- if(wflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- println(" Implicitplot not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
-// Addgraph(name); // 16.04.04
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-Hatchdata2(nm,iostr,pltlist):=Hatchdata2(nm,iostr,pltlist,[]);
-Hatchdata2(nm,iostr,pltlist,options):=(
-// help: Hatchdata2("1",["i"],[["crAB"]],["dr,0.7"]);
- regional(name,Ltype,Noflg,PdL,tmp,tmp1,tmp2,opstr,opcindy,Str,Outflg,Inflg);
- name="ha"+nm;
-// println("output hatchdata2 "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Str="Hatchdata(";
- if(islist(iostr),
- tmp="list(";
- forall(iostr,
- tmp=tmp+Dq+#+Dq+",";
- );
- Str=Str+substring(tmp,0,length(tmp)-1)+"),";
- ,
- Str=Str+Dq+iostr+Dq+",";
- );
- PdL=pltlist;
- if(isstring(PdL_1) % !islist(PdL),PdL=[PdL]);
- forall(PdL,tmp1,
- tmp="list(";
- forall(tmp1,
- if(length(#)>1,
- tmp=tmp+#+",";
- ,
- tmp=tmp+Dq+#+Dq+",";
- );
- );
- Str=Str+substring(tmp,0,length(tmp)-1)+"),";
- );
- Str=substring(Str,0,length(Str)-1)+opstr+")";
- if(Noflg<3, // 2015.07.16
- GLIST=append(GLIST,name+"="+Str);
- );
- if(Noflg<2,
- if(Outflg==1,
- println("Output Hatchdata2 "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Hatchdata2 "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<1,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]);
-Hatchdata(nm,iostr,pltlist,optionorg):=(
-//help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]);
-//help:Hatchdata(options=["Wait=5"]);
- regional(options,name,fun,eqL,reL,strL,outreg,
- plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting);
- name="ha"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=5;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(islist(iostr),
- tmp1=text(apply(iostr,Dq+#+Dq));
- tmp1=replace(tmp1,"[","list("); //16.02.14
- tmp1=replace(tmp1,"]",")"); //16.02.14
- ,
- tmp1=Dq+iostr+Dq;
- );
- if(!islist(pltlist_1),
- tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,Chunderscore(#)));
- tmp2=text(tmp2);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
- ,
- tmp2="";
- forall(pltlist,plt,
- tmp=apply(plt,if(length(#)==1,Dq+#+Dq,Chunderscore(#))); // 16.04.06
- tmp=text(tmp);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- tmp2=tmp2+tmp+",";
- );
- );
- cmdL=MkprecommandS();
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp=[tmp1,tmp2];
- tmp=concat(tmp,reL);
- tmp=append(tmp,"Error"); // 16.03.05
- cmdL=concat(cmdL,[
- "Setscaling",[SCALEY],
- "Setunitlen",[Dq+ULEN+Dq],
- name+"=Hatchdata",tmp, //16.12.23
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name],
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- err("Hatchdata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- if(ErrFlag==0,
- ReadOutData(fname);
- Extractdata(name,options);
- );
- );
-);
-
-Dotfilldata(nm,iostr,pltlist):=
- Dotfilldata(nm,iostr,pltlist,[]);
-Dotfilldata(nm,iostr,pltlist,optionorg):=(
-//help:Dotfilldata("1","ii",[["sg1"],["sg2"]]);
-//help:Dotfilldata(options=[0.3,"Wait=5"]);
- regional(options,name,fun,eqL,reL,strL,outreg,
- plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,
- wflg,waiting,dense);
- name="df"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- dense=0.3;
- waiting=5;
- outreg=0;
- forall(reL,
- dense=#;
- );
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(islist(iostr),
- tmp1=text(apply(iostr,Dq+#+Dq));
- tmp1=replace(tmp1,"[","list("); //16.02.14
- tmp1=replace(tmp1,"]",")"); //16.02.14
- ,
- tmp1=Dq+iostr+Dq;
- );
- if(!islist(pltlist_1),
- tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,#));
- tmp2=text(tmp2);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
- ,
- tmp2="";
- forall(pltlist,plt,
- tmp=apply(plt,if(length(#)==1,Dq+#+Dq,#));
- tmp=text(tmp);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- tmp2=tmp2+tmp+",";
- );
- );
- cmdL=MkprecommandS();
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp=[tmp1,tmp2];
- tmp=concat(tmp,dense);
- cmdL=concat(cmdL,[
- "Setscaling",[SCALEY],
- "Setunitlen",[Dq+ULEN+Dq],
- name+"=Dotfilldata",tmp,
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name],
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- println("Dotfilldata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- if(ErrFlag==0,
- ReadOutData(fname);
- tmp1=parse(name);
- forall(tmp1,
- tmp=#_1;
- draw(tmp,pointsize->1);
- );
- Com2nd("tmp=ReadOutData("+Dq+fname+Dq+")");
- Com2nd("execstr(tmp)");
- Com2nd("Drwpt(list("+name+")"+")");
- );
- );
-);
-
-WritetoA(fname,cmdL):=(
-// help:WritetoA("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename,endmark);
- if(indexof(fname,".")==0,
- filename=fname+".rr";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".rr",".txt");
- SCEOUTPUT = openfile(filename);
-// tmp=replace(Dirlib,"\","/");
-// tmp="load("+Dq+tmp+"/oshima/os_muldif.rr"+Dq+")$/*####*/";
- tmp="/*####*/"; // 16.03.11
- println(SCEOUTPUT,tmp);
- tmp="output("+Dq+wfilename+Dq+")$/*##*/"; // 16.05.18from
- println(SCEOUTPUT,tmp); // 16.05.18upto
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
- tmp=indexof(tmp1,";"); // 16.05.18from
- if(tmp>0,endmark=";",endmark="$");
- tmp1=replace(tmp1,";",""); // 16.05.18upto
- if(#==length(cmdL)-1,
- println(SCEOUTPUT,tmp1+";/*##*/");
- ,
- println(SCEOUTPUT,tmp1+endmark+"/*##*/");//16.05.18
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcA(fname):=kcA(fname,[]);
-kcA(fname,optionorg):=(
-//help:kcA("boxdata");
-//help:kcA(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".rr";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".rr",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="del "+replace(filename,".rr",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".rr",".txt");
- println(kc(Dirwork+Batparent,Dirlib,tmp)); // 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="rm "+replace(filename,".rr",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".rr",".txt");
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
-
- );
-// wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-CalcbyA(name,cmd):=CalcbyA(name,cmd,[]);
-CalcbyA(name,cmd,optionorg):=(
-//help:CalcbyA("a",cmd);
-//help:CalcbyA(options= ["m/r","Wait=10","Ext=txt","Dig=16"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
- dig,flg,wflg,file,nc,arg,cmdA,cmdlist,wfile,ext,waiting,num,st);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- wfile="";
- ext=".txt";
- waiting=2;
- dig=6;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- wfile=Fhead+name+ext;
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- file=Fhead+name;
- cmdA=cmd;
- cmdlist=[];
- forall(1..floor(length(cmdA)/2),nc, //17.5.18
- tmp1=cmdA_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdA)/2,
- tmp=indexof(tmp1,"=");
- tmp1=substring(tmp1,tmp,length(tmp1));
- if(substring(tmp1,0,1)=="[",
- tmp=substring(tmp1,0,length(tmp1)-1);
- ,
- tmp="["+Dq+"/start/"+Dq+","+tmp1; // 16.05.18
- );
- tmp=replace(tmp,"::",","+Dq+"//"+Dq+",");
- tmp1=tmp+","+Dq+"////"+Dq+"]";
- );
- tmp2=cmdA_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+replace(arg,"'",Dq)+",";
-// tmp3=tmp3+arg;
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- forall(arg,
- if(isstring(#),
-// tmp3=tmp3+Dq+#+Dq+",";
- tmp=replace(#,"'",Dq);
-// tmp=#;// 2016.03.03
- tmp3=tmp3+tmp+",";
- ,
- if(!islist(#),
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- );
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")";
- );
- cmdlist=append(cmdlist,tmp1);
- );
- cmdlist=append(cmdlist,"quit");
- if(wflg==0,
- tmp1=load(file+".rr");
- if((length(tmp1)==0) % (indexof(tmp1,"/*####*/")==0), //15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"/*####*/");
- tmp1=tokenize(tmp1_2,"/*##*/");
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp=select(tmp1,indexof(#,"output")>0);
- tmp1=remove(tmp1,tmp);
- tmp1=apply(tmp1,substring(#,0,length(#)-1));
- if(length(tmp1)!=length(cmdlist), // 15.12.06
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoA(file+".rr",cmdlist);
- kcA(file,concat(options,["m"]));
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-5,length(tmp));
- if(tmp2=="////]",
- tmp=substring(tmp,1,length(tmp)-6);
-// old tmp1=tokenize(tmp,",//,");
-// old tmp1=apply(tmp1,if(isstring(#),Dq+#+Dq,textformat(#,dig)));
- num="1234567890+-.";
- tmp1=tokenize(","+tmp,",//");
- tmp3=apply(tmp1,substring(#,1,length(#)));
- tmp1="[";
- forall(tmp3,st,
- tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
- if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
- tmp1=tmp1+st+",";
- ,
- tmp1=tmp1+Dq+st+Dq+",";
- );
- );
- tmp=Indexof(tmp1,"/start/,"); // 16.05.18from
- tmp1="["+Dq+substring(tmp1,tmp+7,length(tmp1)-1)+"]";
- // 16.05.18upto
-// tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"="+tmp1);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp1,1,length(tmp1)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- );
- ,
- println(" CalcbyA succeeded "+name+" ("+text(tmp2)+" sec)");
- );
-);
-
-AsfunO(name,fun,argL):=AsirfunO(name,fun,argL); // 16.02.03
-AsfunO(name,fun,argL,options):=AsirfunO(name,fun,argL,options);
-Asfun(name,fun,argL):=Asirfun(name,fun,argL);
-Asfun(name,fun,argL,optionorg):=Asirfun(name,fun,argL,optionorg);
-AsirfunO(name,fun,argL):=AsirfunO(name,fun,argL,[]);
-AsirfunO(name,fun,argLorg,options):=(
-//help:AsirfunO("an1","fint",["1/(x^2+1)",32,"['-','+']"]);
- regional(argL,tmp,tmp1,tmp2,eqL);// 16.05.26from
- tmp=divoptions(options);
- eqL=tmp_5;
- argL=argLorg;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRO", // 16.05.26from
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="T") % (tmp=="Y"),
- tmp1=argL_(length(argL));
- tmp=indexof(tmp1,"|");
- if(tmp==0,
- argL_(length(argL))=tmp1+"|dumb=-1,dviout=-2";
- );
- );
- );
- ); // 16.05.26upto
- Asirfun(name,"os_md."+fun,argL,options);
-);
-Asirfun(name,fun,argL):=Asirfun(name,fun,argL,[]);
-Asirfun(name,fun,argL,optionorg):=(
-//help:Asirfun("al1","2*(3+5^4)",[],[""]);
- regional(nm,options,eqL,precise,disp,process,
- cmdL,tmp,tmp1,tmp2,tmp3,tmp4,out,out2);
- nm="as"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- process=0;
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRE",
- precise=parse(tmp2);
- options=remove(options,[#]);
- );
- if((tmp1=="DIS") % (tmp1=="DSP"),
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="PRO", // 16.05.26from
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="T") % (tmp=="Y"),
- process=1;
- );
- options=remove(options,[#]);
- ); // 16.05.26upt
- );
- tmp=replace(Dirlib,"\","/");
- cmdL=[
- "load",[Dq+tmp+"/oshima/os_muldif.rr"+Dq], // 16.03.11
- "ctrl",[Dq+"real_digit"+Dq,precise],
- "A="+fun,argL, // 16.05.26from
- "A",[]
- ];
- CalcbyA(nm,cmdL,options);
- out=parse(nm); //16.05.26from
- if(process==1,
- tmp1=Bracket(out,"[]");
- tmp2=select(tmp1,abs(#_2)==2);
- tmp2=apply(tmp2,#_1);
- out=[];
- forall(1..length(tmp2)/2,
- tmp3=tmp2_(2*#-1);
- tmp4=tmp2_(2*#);
- tmp=substring(as1,tmp3+1,tmp4-2);
- tmp=tokenize(tmp,"],[");
- out=append(out,tmp);
- );
- out2=[];
- forall(out,tmp2,
- tmp4="";
- forall(tmp2,tmp3,
- tmp1=tokenize(tmp3,",");
- if(tmp1_1==0,
- tmp4=tmp4+tmp1_2+"="+tmp1_3+"+";
- ,
- if(tmp1_1==1,
- tmp4=tmp4+tmp1_2+"+";
- ,
- tmp="'integrate(";
- forall(2..length(tmp1),
- tmp=tmp+tmp1_#+"+";
- );
- tmp=substring(tmp,0,length(tmp)-1);
- tmp=tmp+","+tmp1_1+")";
- tmp4=tmp4+tmp+"+";
- );
- );
- );
- tmp4=substring(tmp4,0,length(tmp4)-1);
- out2=append(out2,tmp4);
- );
- out=out2;
- tmp=apply(out,Dq+#+Dq);
- parse(nm+"="+tmp);
- );
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- out; //16.05.26upto
-);
-
-WritetoM(fname,cmdL,allflg):=(
-// help:WritetoM("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename,outflg);
- if(indexof(fname,".")==0,
- filename=fname+".max";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".max",".txt");
- SCEOUTPUT = openfile(filename);
- outflg=0;
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
-
- if(allflg==1, // 2016.02.23 from
- if(#==1,
- tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
- tmp=replace(tmp,"\","/");
- println(SCEOUTPUT,tmp);
- outflg=1;
- println(SCEOUTPUT,tmp1+"$/*##*/");
- ,
- println(SCEOUTPUT,tmp1+"$/*##*/");
- );
- ,
- if((indexof(tmp1,"disp(")>0) & (outflg==0),
- tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
- tmp=replace(tmp,"\","/");
- println(SCEOUTPUT,tmp);
- outflg=1;
- println(SCEOUTPUT,tmp1+"$/*##*/");
- ,
- println(SCEOUTPUT,tmp1+"$/*##*/");
- );
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcM(fname):=kcM(fname,[]);
-kcM(fname,optionorg):=(
-//help:kcM("boxdata");
-//help:kcM(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".max";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".max",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
- SCEOUTPUT=openfile(replace(filename,".max",".txt"));
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
-// tmp="del "+replace(filename,".max",".txt");
-// println(SCEOUTPUT,tmp);
- tmp=Indexall(PathM,".");
- tmp=substring(PathM,tmp_1,tmp_2-1);
- tmp=parse(tmp);
- if(tmp<39,
- tmp="call "+Dq+Dq+PathM+Dq+Dq+" -b "+Dq+filename+Dq;
- ,
- tmp="call "+Dq+PathM+Dq+" -b "+Dq+filename+Dq;
- );
-// tmp="cmd/c "+Dq+PathM+" -b "+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".max",".txt");
- println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="rm "+replace(filename,".max",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathM+Dq+" -b "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".max",".txt");
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
- );
-// wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-CalcbyM(name,cmd):=CalcbyM(name,cmd,[]);
-CalcbyM(name,cmd,optionorg):=(
-//help:CalcbyM("a",cmdL);
-//help:CalcbyM(options1= ["m/r","Wait=5","Ext=txt","Dig=6","Pow=no","All=y"]);
-//help:CalcbyM(options2= ["line=1000"]);
- regional(options,tmp,tmp0,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,allflg,indL,line,
- dig,flg,wflg,file,nc,arg,add,powerd,cmdM,cmdlist,wfile,ext,waiting,num,st);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- wfile="";
- ext=".txt";
- waiting=5;
- dig=6;
- allflg=1;
- powerd="false";
- line=1000; // 16.06.13
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="L", // 16.06.13
- line=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="P",
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="y") % (tmp=="F"),powerd="true");
- options=remove(options,[#]);
- );
- if(tmp1=="A", // 2016.02.23
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="N") % (tmp=="F"),allflg=0);
- options=remove(options,[#]);
- );
- );
- wfile=Fhead+name+ext;
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- file=Fhead+name;
- cmdM=cmd;
- cmdlist=[
- "powerdisp:"+powerd,"display2d:false","linel:"+text(line) //15.11.25,16.06.13
- ];
- forall(1..floor(length(cmdM)/2),nc, //17.5.18
- tmp1=replace(cmdM_(2*nc-1),"`","'");//2016.02.23
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdM)/2,
- tmp=indexof(tmp1,"=");
- tmp1=substring(tmp1,tmp,length(tmp1));
- if(substring(tmp1,0,1)=="[",
- tmp=substring(tmp1,0,length(tmp1)-1);
- ,
- tmp="["+tmp1;
- );
- tmp2="";
- forall(1..length(tmp1),
- if(substring(tmp1,#-1,#+1)=="::",
- if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
- cmdlist=append(cmdlist,"disp("+tmp2+")");
- tmp2="";
- ,
- tmp2=tmp2+substring(tmp1,#-1,#);
- );
- );
- if(length(tmp2)>0,
- if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
- cmdlist=append(cmdlist,"disp("+tmp2+")");
- );
- ,
- tmp2=cmdM_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- add="";
- forall(tmp2,arg,
- if(isstring(arg),
- if(substring(arg,0,1)!=",",
-// tmp=replace(arg,"'",Dq); // 16.03.03
- tmp=arg; // 16.03.03
- tmp=replace(tmp,"`","'");// 2016.02.23
- tmp3=tmp3+tmp+",";
- ,
- add=add+arg;
- );
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- forall(arg,
- if(isstring(#),
-// tmp3=tmp3+Dq+#+Dq+",";
- tmp=replace(#,"'",Dq);
- tmp3=tmp3+tmp+",";
- ,
- if(!islist(#),
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- );
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")"+add;
- );
- cmdlist=append(cmdlist,tmp1);
- );
- );
- cmdlist=append(cmdlist,"closefile()");
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".max");
- if(length(tmp1)==0,
- wflg=1;
- ,
- if(indexof(tmp1,"/*##*/")==0, // 15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"/*##*/");
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp=select(tmp1,indexof(#,"writefile")>0);
- tmp1=remove(tmp1,tmp);
- tmp1=apply(tmp1,substring(#,0,length(#)-1));
- if(length(tmp1)!=length(cmdlist), // 15.12.07
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoM(file+".max",cmdlist,allflg); // 2016.02.23
- kcM(file,concat(options,["m"]));
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp1=load(wfile);
- if(wflg==1,wait(WaitUnit)); // 2016.02.23
- if(length(tmp1)>0,
- tmp=indexof(tmp1,"error")+indexof(tmp1,"syntax"); //2016.02.23
- if(tmp>0,
- println("Some error(s) occurred"); //2016.02.24 from
- tmp2=tokenize(tmp1,"(%");
- forall(4..length(tmp2),println(tmp2_#)); //2016.02.24 upto
- flg=2; //2016.02.23
- ,
- if(indexof(tmp1,"closefile()")>0, // 15.11.24
- tmp=tokenize(tmp1,"disp(");
- tmp1=tmp_(2..length(tmp));
- tmp4=[];
- forall(tmp1,tmp2,
- tmp=indexof(tmp2,")");
- tmp3=substring(tmp2,tmp,length(tmp2));
- indL=Indexall(tmp3,"(%i"); // 16.04.26from
- tmp0=0;
- forall(indL,
- if(tmp0==0,
- tmp=substring(tmp3,#+2,#+3);
- if(indexof("0123456789",tmp)>0,//16.04.25?
- tmp3=removespace(substring(tmp3,0,#-1));
- tmp4=append(tmp4,tmp3);
- tmp0=1;
- );
- );// 16.04.26upto
- );
- );
- num="1234567890+-.";
- tmp1="[";
- forall(tmp4,st,
- tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
- if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
- tmp1=tmp1+st+",";
- ,
- tmp1=tmp1+Dq+st+Dq+",";
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- tmp1=replace(tmp1,".d+0",""); // 15.11.23
- parse(name+"="+tmp1);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp1,1,length(tmp1)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- tmp1=load(wfile);
- if(length(tmp1)>0,
- println(wfile+" incomplete"+tmp); // 2016.02.24
- ,
- println(wfile+" not generated "+tmp);
- );
- );
- ,
- if(flg==1, // 2016.02.23
- println(" CalcbyM succeeded "+name+" ("+text(tmp2)+" sec)");
- );
- );
-);
-
-Mxfun(name,fun,argL):=Mxfun(name,fun,argL,[]);
-Mxfun(name,fun,argL,optionorg):=(
-//help:Mxfun("ca1","diff",["sin(x)^3","x"],[""]);
-//help:Mxfun(options=["Pre=6","Disp=y","Load= :: ","Set=::","Add="]);
- regional(nm,options,eqL,precise,disp,pack,set,add,cmdL,tmp,tmp1,tmp2);
- nm="mx"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRE",
- precise=parse(tmp2);
- options=remove(options,[#]);
- );
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if((tmp1=="PAC") % (tmp1=="LOA"), // 16.02.08
- pack=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="SET",
- set=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="ADD",
- add=","+tmp2;
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- forall(pack,
- cmdL=concat(cmdL,["load",[#]]);
- );
- forall(set,
- cmdL=concat(cmdL,[#,[]]);
- );
- if(length(add)>0,
- tmp=append(argL,add);
- ,
- tmp=argL;
- );
- cmdL=concat(cmdL,[
- "ans"+":"+fun,tmp,
- "ans",[]
- ]);
- CalcbyM(nm,cmdL,options);
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-Mxtex(nm,ex):=Mxtex(nm,ex,[]);
-Mxtex(nm,ex,optionorg):=(
-//help:Mxtex("1","sin(x)/x");
-//help:Mxtex(options=["Disp=y"]);
- regional(name,cmdL,eqL,options,tx,disp,out,set,
- tmp,tmp1,tmp2); // 16.01.25
- name="tx"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- disp=1;
- set=[];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="SET", // 16.03.01
- set=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="ORD", // 16.03.01
- tmp="ordergreat("+tmp2+")";
- set=append(set,tmp);
- options=remove(options,[#]);
- );
- );
- cmdL=[
- "load",[Dq+"mactex-utilities.lisp"+Dq]]; // 16.03.03
- forall(set, // 16.03.01
- cmdL=concat(cmdL,[#,[]]);
- );
- cmdL=concat(cmdL,[
- name+":disp(tex("+ex+"))",[], // 16.01.18
- name,[] // 16.01.18
- ]);
- CalcbyM(name,cmdL,options); // 16.02.19
- tx=parse(name);
- if(islist(tx), // 16.01.10
- out=tx_1;
- ,
- out=tx;
- );
- tmp=indexof(out,"$$")+1;
- out=substring(out,tmp,length(out));
- tmp=indexof(out,"$$")-1;
- out=substring(out,0,tmp);
- if(disp==1, // 16.01.10
- println(name+" is:");
- println(out);
- );
- tmp=name+"="+Dq+out+Dq; //16.01.10
- parse(tmp);
- out;
-);
-
-MxtexL(nm,exlist):=MxtexL(nm,exlist,[]); // 16.05.27
-MxtexL(nm,exlist,options):=(
- regional(out,tmp,tmp1);
- out=[];
- forall(1..length(exlist),
- tmp=Mxtex(nm+"n"+text(#),exlist_#,["Disp=n"]);
- out=append(out,Dq+tmp+Dq);
- );
- tmp="tx"+nm+"="+out;
- parse(tmp);
- println("tx"+nm+"is:");
- apply(out,println(#));
- out;
-);
-
-Mxbatch(file):=(
-//help:Mxbatch(["matoperation.max"]);
- regional(figL,out,path,tmp,tmp1,tmp2);
- if(!islist(file),figL=[file],figL=file);
- path=replace(Dirlib+"/maximaL/","\","/");
- out=[];
- forall(figL,
- if(indexof(#,".")==0,tmp1=#+".max",tmp1=#);
- tmp1=Dq+path+tmp1+Dq;
- tmp2=["batch",[tmp1]];
- out=concat(out,tmp2);
- );
- out;
-);
-
-Mxload(file):=( //17.06.16
-//help:Mxload(["rkfun.lispp"]);
- regional(figL,out,path,tmp,tmp1,tmp2);
- if(!islist(file),figL=[file],figL=file);
- path=replace(Dirlib+"/maximaL/","\","/");
- out=[];
- forall(figL,
- if(indexof(#,".")==0,tmp1=#+".lisp",tmp1=#);
- tmp1=Dq+path+tmp1+Dq;
- tmp2=["load",[tmp1]];
- out=concat(out,tmp2);
- );
- out;
-);
-
-kcV3(fname):=kcV3(Dirwork,fname);
-kcV3(path,fname):=(
-//help:kcV3(path,"ex.obj");
- regional(tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".obj";
- ,
- filename=fname;
- );
- flg=1;
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- tmp=replace(path,"\","/");
- tmp=substring(tmp,length(tmp)-1,length(tmp));
- if(tmp=="/" % tmp=="\", tmp1=path, tmp1=path+"/");
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathV3+Dq+" "+tmp1+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathV3+Dq+" "+tmp1+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- wait(WaitUnit);
- );
- if(fig==2,
- println("Obj file not exist / imperfect");
- );
-);
-
-Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]);
-Changeobjscale(fname,Arg):=(
- if(islist(Arg),
- Changeobjscale(ULEN,fname,fname,Arg);
- ,
- Changeobjscale(ULEN,fname,Arg,[]);
- );
-);
-Changeobjscale(Arg1,Arg2,Arg3):=(
- if(islist(Arg3),
- Changeobjscale(ULEN,Arg1,Arg2,Arg3);
- ,
- Changeobjscale(Arg1,Arg2,Arg3,[]);
- );
-);
-Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=(
-//help:Changeobjscale("20mm",fnamei,fmediate);
-//help:Changeobjscale(options=["Unit=mm",[0,0,0]]);
- regional(fname,fout,fmd,unit,val,options,eqL,reL,
- origin,outunit,sc,stL,nn,tmp,tmp1,tmp2);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- outunit="IN";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="O" % tmp1=="U",
- outunit=tmp2;
- options=remove(options,[#]);
- );
- );
- options=remove(options,reL);
- origin=[0,0,0];
- forall(reL,
- if(islist(#),origin=#);
- );
- options=remove(options,reL);
- tmp1=".0123456789+-*/";
- unit="";
- val=1;
- tmp2=0;
- forall(reverse(1..length(unitlen)),
- tmp=substring(unitlen,#-1,#);
- if(tmp2==0,
- if(indexof(tmp1,tmp)>0,
- tmp2=#;
- );
- );
- unit=substring(unitlen,tmp2,length(unitlen));
- unit=removespace(unit);
- val=parse(substring(unitlen,0,tmp2));
- );
- sc=1;
- if(unit=="cm",sc=1);
- if(unit=="mm",sc=0.1);
- if(unit=="in",sc=2.54);
- sc=sc*val;
- if(outunit=="IN",sc=sc/2.54);
- if(outunit=="MM",sc=sc*10);
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- fmd=replace(fname,".obj",".txt");
- fout=foutorg;
- if(indexof(fout,".")==0,fout=fout+".obj");
- tmp1=Textformat(origin,4);
- tmp1=replace(tmp1,",",";");
- cmdL=[
- "Origin="+tmp1+";",[],
- "Sc="+format(sc,6)+";",[],
- "Stv=mgetl",[Dq+fname+Dq],
- "for nn=1:size(Stv,1),Tmp=Stv(nn);",[],
- " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[],
- " Tmp=evstr(Tmp(2:4));",[],
- " Tmp=Origin+Sc*(Tmp-Origin);",[],
- " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[],
- " Stv(nn,1)=Tmp;",[],
- " end;",[],
- "end;",[],
- "mputl",["Stv",Dq+fout+Dq],
- "mputl",["['finished////']",Dq+fmd+Dq]
- ];
- options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26
- CalcbyS("cs",cmdL,options);
- println("Scale of "+fname+" changed");
-);
-
-Mkviewobj(fname,cmdL):=Mkviewobj(Dirwork,fname,cmdL,[]);
-Mkviewobj(Arg1,Arg2,Arg3):=(
- if(!isstring(OCNAME), //17.04.13from
- drawtext(mouse().xy,"Mkobjcmd not defined",
- size->24,color->[1,0,0]);
- , //17.04.13upto
- if(islist(Arg2),
- Mkviewobj(Dirwork,Arg1,Arg2,Arg3);
- ,
- Mkviewobj(Arg1,Arg2,Arg3,[]);
- );
- );
-);
-Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=(
-//help:Mkviewobj(fname,cmdlist);
-//help:Mkviewobj(fname,[]);
-//help:Mkviewobj(path,fname,cmdlist);
-//help:Mkviewobj(options=["M/R","V","Unit=in","Wait=5"]);
- regional(path,cmdL,eqL,strL,flg,fname,options,make,view,cmdlist,
- vtx,face,unit,tmp,tmp1,tmp2);
- path=replace(pathorg,"\","/");
- if(substring(path,length(path)-1,length(path))!="/",path=path+"/");
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- cmdL=cmdLorg;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- make=-1;
- view=0;
- unit="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="M",
- tmp2=Toupper(substring(tmp2,0,1));
- if(tmp2=="N" % tmp2=="F",
- make=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="V",
- tmp2=Toupper(substring(tmp2,0,1));
- if(tmp2=="N" % tmp2=="F",
- view=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="U", // 16.06.30from
- unit=tmp2;
- options=remove(options,[#]);
- ); // 16.06.30upto
- );
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- make=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- make=0;
- options=remove(options,[#]);
- );
- if(tmp=="V",
- view=1;
- options=remove(options,[#]);
- );
- );
- if(islist(cmdL),
- if(length(cmdL)==0,
- make=0;
- println("Command sequence not defnamed");
- );
- ,
- make=0;
- println("Command sequence not defined");
- );
- if(make==-1,
- setdirectory(pathorg);
- tmp1=load(fname);
- if(length(tmp1)==0,make=1,make=0);
- setdirectory(Dirwork);
- );
- if(make==1,
- if(isstring(cmdL_1),
- cmdlist=MkprecommandS(); // 16.04.23
- cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]);
- cmdlist=concat(cmdlist,cmdL);
- tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26
- cmdlist=concat(cmdlist,tmp);
- tmp=append(options,"Cat=y");
- tmp1=apply(tmp,Toupper(substring(#,0,1))); // 16.04.23from
- tmp1=select(tmp1,#=="W");
- if(length(tmp1)==0,
- tmp=append(tmp,"Wait=5");
- );// 16.04.23upto
- CalcbyS("ans",cmdlist,tmp);
- wait(WaitUnit*100); // 16.03.18
- ,
- vtx=cmdL_1;
- face=cmdL_2;
- setdirectory(pathorg);
- SCEOUTPUT = openfile(fname);
- forall(vtx,tmp1,
- tmp2=tmp1;
- if(ispoint(tmp1),
- tmp2=parse(text(tmp1)+"3d");
- );
- tmp2=apply(tmp2,format(#,5));
- tmp="v "+tmp2_1+" "+tmp2_2+" "+tmp2_3;
- println(SCEOUTPUT,tmp);
- );
- forall(face,tmp1,
- tmp="f";
- forall(tmp1,
- tmp=tmp+" "+text(#);
- );
- println(SCEOUTPUT,tmp);
- );
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
- );
- );
- if(length(unit)>0, // 16.06.30from
- Changeobjscale(fname,["Unit="+unit]);//16.10.04
- ); // 16.06.30upto
- if(view==1,
- flg=0; // 16.03.14 from
- if(isstring(ViewFile),
- if(ViewFile==fname,flg=1);
- );
- if(flg==0,
- kcV3(path,fname);
- ViewFile=fname;
- ); // 16.03.14 upto
- );
-);
-
-SetObj(str):=Objname(str,["m","v"]); //17.01.12
-SetObj(str,options):=Objname(str,options); //17.01.12
-Objnameoptions(str,options):=Objname(str,options);// 16.11.29
-Objname(str):=Objname(str,["m","v"]); // 16.11.29
-Objname(str,options):=(
-//help:Objname("sample");
-//help:Objname(options=["m","v"]);
-//help:Setobj("sample");
-//help:Setobj(options=["m","v"]);
- if(length(str)>0,
- OCNAME=str;
- );
- OCOPTION=options;
- println([OCNAME,OCOPTION]);
-);
-
-Mkobjcmd(nm,fd):=Mkobjcmd(nm,fd,[40,40,"+"]);
-Mkobjcmd(nm,fd,options):=(
-//help:Mkobjcmd("1",fd,[40,40,"+"]);
- regional(ffd,cmd,out,div1,div2,side,
- reL,stL,tmp,tmp1,tmp2,tmp3,tmp4);
- div1=40;
- div2=40;
- side="+";
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=select(tmp_7,length(#)>0);
- forall(1..length(reL),
- if(#==1,
- div1=reL_1;
- div2=div1;
- ,
- div2=reL_2;
- );
- );
- forall(stL,
- side=#;
- );
- side="'"+side+"'";
- ffd=Fullformfunc(fd);
- tmp=indexof(ffd_5,"=");
- tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
- tmp=indexof(ffd_6,"=");
- tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
- out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
- tmp1=["Objsurf",
- ["Fun"+nm,tmp2,tmp4,div1,div2,side]];
- out=concat(out,tmp1);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjnrm(nm,fd):=Mkobjnrm(nm,fd,[]);
-Mkobjnrm(nm,fd,optionorg):=(
-//help:Mkobjnrm("1",fd1,["Disp=y"]);
-//help:Mkobjnrm("1","[x,y,x*y/(x^2+y^2)],x,y");
- regional(name,options,stL,eqL,disp,ffd,fst,xst,yst,cmdL,
- precmd,out,tmp,tmp1,tmp2,tmp3);
- name="nrm"+nm;
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- eqL=tmp_5;
- stL=tmp_7;
- precmd=[];
- disp="N";
- forall(eqL, // 16.05.02
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="D",
- if(tmp2=="Y" % tmp2=="T",
- disp="Y";
- options=remove(options,[#]);
- );
- );
- );
- forall(stL,
- if(indexof(#,"+")+indexof(#,"-")==0,
- precmd=concat(precmd,[#,[]]);
- options=remove(options,[#]);
- );
- );
- if(isstring(fd),
- tmp=Indexall(fd,",");
- fst=[
- substring(fd,1,tmp_1-1),
- substring(fd,tmp_1,tmp_2-1),
- substring(fd,tmp_2,tmp_3-2)
- ];
- xst=substring(fd,tmp_3,tmp_4-1);
- yst=substring(fd,tmp_4,length(fd));
- ,
- ffd=Fullformfunc(fd);
- fst=text(ffd_(2..4));
- tmp=indexof(ffd_5,"=");
- xst=substring(ffd_5,0,tmp-1);
- tmp=indexof(ffd_6,"=");
- yst=substring(ffd_6,0,tmp-1);
- );
- cmdL=precmd;
- cmdL=concat(cmdL,[
- "fx:diff",[fst,xst],
- "fy:diff",[fst,yst],
- "nx:fx[2]*fy[3]-fx[3]*fy[2]",[],
- "ny:fx[3]*fy[1]-fx[1]*fy[3]",[],
- "nz:fx[1]*fy[2]-fx[2]*fy[1]",[],
- "nn:factor(nx^2+ny^2+nz^2)",[], // 16.04.21
- "nn:sqrt(nn)",[], // 16.04.20
- "nx:nx/nn",[],
- "ny:ny/nn",[],
- "nz:nz/nn",[],
- "n:[nx,ny,nz]",[], // 16.04.21from
- "n:ratsimp(n)",[],
- "n:trigsimp(n)",[],
- "n:factor(n)",[], // 16.04.21upto
- "n",[]
- ]);
- CalcbyM(name,cmdL,options); // 16.05.12
- tmp1=parse(name); // 16.05.12
- out=[tmp1]; // 15.04.21b from
- tmp2=[];
- forall(1..3,
- tmp=indexof(tmp1,",");
- if(tmp==0,
- tmp=indexof(tmp1,"]");
- );
- tmp3=substring(tmp1,0,tmp-1);
- tmp1=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(tmp3,"/");
- if(tmp>0,
- tmp3=substring(tmp3,tmp,length(tmp3));
- tmp2=append(tmp2,tmp3);
- ,
- tmp2=append(tmp2,"1");
- );
- );
-// out=append(out,tmp2);
- out=out_1; // 16.05.02from
- println("calculate "+name+":"); // 16.05.12
- if(disp=="Y", // 16.05.02
- println(out);
- // println(out_2);
- ); // 16.05.02upto
- out;
-);
-
-Mkobjthickcmd(nm,fd):=Mkobjthickcmd(nm,fd,"",[40,40,"+"]);
-Mkobjthickcmd(nm,fd,Arg):=(
- if(islist(Arg),
- Mkobjthickcmd(nm,fd,"",Arg);
- ,
- Mkobjthickcmd(nm,fd,Arg,[]);
- );
-);
-Mkobjthickcmd(nm,fd,fnrm,optionorg):=(
-//help:Mkobjthickcmd("1",fd,["assume(R>0)"]);
-//help:Mkobjthickcmd("1",fd,fnorm);
-//help:Mkobjthickcmd(options1=[40,40,0.05,-0.05,"+n+s+e+w+"]);
-//help:Mkobjthickcmd(options2=["ratsimp","trigsimp"]);
- regional(options,ffd,cmd,out,div1,div2,thick1,thick2,side,
- reL,stL,addcmd,fst,xst,yst,tmp,tmp1,tmp2,tmp3,tmp4);
- div1=40;
- div2=40;
- thick1=0.05;
- thick2=-0.05;
- side="+n+s+e+w+";
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=tmp_7;
- tmp1=1; // 16.04.21from
- tmp2=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(tmp>1,
- if(tmp1==1,
- div1=tmp;
- div2=tmp;
- ,
- div2=tmp;
- );
- tmp1=tmp1+1;
- ,
- if(tmp2==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp2=tmp2+1;
- );
- ); // 16.04.21upto
- options=remove(options,reL);
- forall(stL,
- if(length(#)>0,
- tmp=indexof(#,"+")+indexof(#,"-");
- if(tmp>0,
- side=#;
- options=remove(options,[#]);
- );
- );
- );
- side="'"+side+"'";
- ffd=Fullformfunc(fd);
- tmp=indexof(ffd_5,"=");
- tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
- tmp=indexof(ffd_6,"=");
- tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
- fst=text(ffd_(2..4));
- tmp=indexof(ffd_5,"=");
- xst=substring(ffd_5,0,tmp-1);
- tmp=indexof(ffd_6,"=");
- yst=substring(ffd_6,0,tmp-1);
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
- out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
- tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]];
- out=concat(out,tmp);
- if(fnrm=="",
- tmp=Mkobjnrm(nm,fd,options);
- tmp1="Out="+tmp; // 16.05.17
- tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2;
- parse(tmp);
- ,
-// tmp1=" Out="+fnrm; // 16.04.30
- tmp1=fnrm; // 16.04.30
- if(indexof(tmp1,"Out=")==0, // 16.05.09from
- tmp1="Out="+tmp1;
- ); // 16.05.09upto
- );
- out=concat(out,[tmp1,[]]);
- out=concat(out,["endfunction",[]]);
- tmp1=["Objthicksurf",
- ["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]];
- out=concat(out,tmp1);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjpolycmd(nm,pd):=Mkobjpolycmd(nm,pd,[]);
-Mkobjpolycmd(nm,pd,optionorg):=(
-//help:Mkobjpolycmd("1",pd);
-//help:Mkobjpolycmd(options1=[internal([0,0,0])]);
- regional(options,cmd,out,thick1,thick2,origin,
- reL,stL,vtx,face,pt1,pt2,pt3,tmp,tmp1,tmp2);
- thick1=0;
- thick2=-0;
- origin=[0,0,0];
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=tmp_7;
- tmp1=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(islist(tmp),
- origin=tmp;
- ,
- if(tmp1==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp1=tmp1+1; // 16.07.08
- );
- );
- options=remove(options,reL);
- forall(stL,
- tmp=indexof(#,"+")+indexof(#,"-");
- if(tmp>0,
- side=#;
- options=remove(options,[#]);
- );
- );
- vtx=pd_1; //16.04.23from
- if(length(pd)==2,face=pd_2,face=pd_3);
- if(isstring(vtx),vtx=parse(vtx));
- vtx=apply(vtx,if(isstring(#),parse(#),#)); // 16.06.18
- if(isstring(face),face=parse(face));
- forall(1..length(face),
- tmp=face_#;
- pt1=vtx_(tmp_1);// 16.06.18
- pt2=vtx_(tmp_2);// 16.06.18
- pt3=vtx_(tmp_(length(tmp)));// 16.06.18
- tmp1=Crossprod(pt2-pt1,pt3-pt1);
- tmp2=Dotprod(tmp1,pt1-origin);
- if(tmp2<0,
- face_#=reverse(face_#);
- );
- );
- out=["Objpolyhedron",[vtx,face]];
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjplatecmd(nm,pd):=Mkobjplatecmd(nm,pd,[]);
-Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18
-//help:Mkobjplatecmd("1",pd);
-//help:Mkobjplatecmd("1",vtxlist);
-//help:Mkobjplatecmd(options1=[0.05,-0.05]);
- regional(pd,options,cmd,out,thick1,thick2,nn,pdn,
- reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3);
- pd=pdorg;
- if(MeasureDepth(pd)==1,pd=[pd]);
- if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from
- forall(1..length(pd),nn, // 16.06.19from
- pdn=pd_nn;
- vtx=pdn_1;
- if(length(pdn)==1,face=[1..(length(vtx))],face=pdn_2);
- vtx=apply(vtx,if(isstring(#),parse(#),#));
- vtx=apply(vtx,if(ispoint(#),parse(text(#)+"3d"),#));
- pd_nn=[vtx,face];//16.10.04upto
- ); // 16.06.19upto
- thick1=0.05;
- thick2=-0.05;
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- tmp1=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(tmp1==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp1=tmp1+1;// 16.07.08
- );
- options=remove(options,reL);
- out=[];
- forall(1..length(pd),npd,
- forall(pd_npd_2,face,
- vtx=apply(face,pd_npd_1_#);
- npt=length(vtx);
- tmp1=vtx_1;
- tmp2=vtx_2;
- tmp3=vtx_npt;
- tmp=Crossprod(tmp2-tmp1,tmp3-tmp1);
- nv=tmp/Dist3d(tmp);
- tmp1=apply(vtx,#+thick1*nv);
- tmp2=apply(vtx,#+thick2*nv);
- vtx=concat(tmp1,tmp2);
- tmp=apply(1..npt,#+npt);
- tmp2=[1..npt,reverse(tmp)];
- tmp=apply(1..(npt-1),[#,#+npt,#+npt+1,#+1]);
- tmp2=concat(tmp2,tmp);
- tmp=[npt,npt+npt,1+npt,1];
- tmp2=append(tmp2,tmp);
- out=concat(out,["Objpolyhedron",[vtx,tmp2]]);
- );
- );
- tmp3="["; // 16.06.10from
- forall(out,tmp1,
- tmp2="";
- if(isstring(tmp1),
- tmp2=tmp2+Dq+tmp1+Dq+",[";
- ,
- tmp2=tmp2+Textformat(tmp1_1,5)+",";
- tmp2=tmp2+Textformat(tmp1_2,5)+"],";
- );
- tmp3=tmp3+tmp2;
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+"]";
- parse("oc"+nm+"="+tmp3);
- println("cmd seq oc"+nm+" generated");
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjcrvcmd(nm,pst):=Mkobjcrvcmd(nm,pst,[]);
-Mkobjcrvcmd(nm,pstorg,options):=(
-//help:Mkobjcrvcmd("1","sc3d1",[0.02,6,"xy"]);
- regional(cmd,out,thick,poly,dir,phead,pst,
- reL,stL,tmp,tmp1,tmp2,tmp3,tmp4,flg);
- thick=0.02;
- poly=6;
- dir="xy";
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=select(tmp_7,length(#)>0);
- forall(1..length(reL),
- if(#==1,
- thick=reL_1;
- ,
- poly=reL_2;
- );
- );
- forall(stL,
- dir=#;
- );
- dir="'"+dir+"'";
- tmp=indexof(pstorg,"_");
- if(tmp==0,
- phead=pstorg;
- ,
- phead=substring(pstorg,0,tmp-1);
- );
- pst=pstorg;
- out=[];
- tmp1=select(GLIST,indexof(#,phead+"=")>0);
- if(length(tmp1)==0, println(phead+" incorrect"));
-// out=[tmp1_1,[]];
- out=[];
- tmp1=parse(pst);
- flg=0; // 16.04.23from
- if(MeasureDepth(tmp1)==2,flg=1);
- if(MeasureDepth(tmp1)==0,
- if(islist(tmp1),flg=1);
- );
- if(flg==1, // 16.04.23upto
- if(!isstring(tmp1_1),
- forall(1..length(tmp1),
- tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]];
- out=concat(out,tmp);
- );
- ,
- forall(1..length(tmp1), // 16.11.14from
- tmp=["Objcurve",[tmp1_#,thick,poly,dir]];
- out=concat(out,tmp);
- );// 16.11.14upto
- );
- ,
- tmp1=Chunderscore(pst);
- tmp=["Objcurve",[tmp1,thick,poly,dir]];
- out=concat(out,tmp);
- );
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjsymbcmd(symb,size,rot,dir,pos):=
- Mkobjsymbcmd("",symb,size,rot,dir,pos,[]);
-Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6):=(
- if(isstring(Ar2),
- Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6,[]);
- ,
- Mkobjsymbcmd("",Ar1,Ar2,Ar3,Ar4,Ar5,Ar6);
- );
-);
-Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
-//help:Mkobjsymbcmd("x",0.5,0,V3d,A3d);
-//help:Mkobjsymbcmd("P",0.5,0,V3d,A3d);
-//help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]);
- regional(symb,options,opbez,eqL,reL,stL,dtL,dt,
- alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2);
- alpha="abcdefghijklmnopqrstuvwxyz";
- Alpha=Toupper(alpha);
- symb=symborg;
- options=optionorg;
- opbez=["nodisp"];
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- stL=tmp_7;
- opbez=concat(opbez,eqL);
- options=remove(options,eqL);
- tmp1=[0.05,4,"'yz'"];
- if(length(reL)==0,
- options=concat(options,tmp1_(1..2));
- );
- if(length(reL)==1, // debugged 16.06.18
- options=concat(options,[tmp1_2]);
- );
- if(length(stL)==0,
- options=concat(options,[tmp1_3]);
- );
- tmp=parse(symb);
- if(islist(tmp),
- tmp1=select(GLIST,substring(#,0,length(symb))==symb);
- tmp1=tmp1_1;
- out=[tmp1,[]];
- dtL=symb;
- ,
- tmp=substring(symb,0,1);
- if(tmp>="a" & tmp<="z",tmp1=tmp+"s");
- if(tmp>="A" & tmp<="Z",
- tmp=indexof(Alpha,tmp);
- tmp=substring(alpha,tmp-1,tmp);
- tmp1=tmp+"c";
- );
- if(length(symb)==1,
- if(symb>"Z",
- symb=tmp1+"i";
- ,
- symb=tmp1+"r";
- );
- );
- if(length(symb)==2,symb=tmp1+substring(symb,1,2));
- out=[];
- if(length(path)>0, // 16.04.23from
- setdirectory(path);
- ,
-// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF";
- tmp=Dirhead+"/data/fontF"; // 16.05.10
- setdirectory(tmp);
- ); // 16.04.23upto
- dtL=Readbezier(symb,opbez);
- setdirectory(Dirwork);
- forall(dtL,dt,
- tmp=dt+"=";
- tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
- );
- mx=100;Mx=-100;my=100;My=-100;
- forall(dtL,dt,
- tmp=apply(parse(dt),#_1);
- mx=min(append(tmp,mx));
- Mx=max(append(tmp,Mx));
- tmp=apply(parse(dt),#_2);
- my=min(append(tmp,my));
- My=max(append(tmp,My));
- );
- center=[(mx+Mx)/2,(my+My)/2];
- tmp1=[];
- forall(dtL,dt,
- Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23
- Translatedata(dt,"rt"+dt,-center,["nodisp"]);
- tmp1=append(tmp1,"tr"+dt);
- );
- dtL=tmp1;
- forall(dtL,dt,
- tmp=dt+"=";
- tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
- );
- );
- tmp1=text(options);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- out=concat(out,[
- "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23
- "Objsymb(Sd,"+tmp1+")",[]
- ]);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+symborg+"="+tmp2);
- println("cmd seq oc"+symborg+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Concatcmd(cmdlist):=(
-//help:Concatcmd([cmdL1,cmdL2]);
- regional(out);
- out=[];
- forall(cmdlist,
- out=concat(out,#);
- );
- out;
-);
-
-WritetoF(fname,cmdL):=(
-// help:WritetoF("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename);
- if(indexof(fname,".")==0,
- filename=fname+".input";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".input",".txt");
- SCEOUTPUT = openfile(filename);
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
- if(substring(tmp1,0,1)=="[",
- tmp1=tmp1+" --##";
- println(SCEOUTPUT,tmp1);
- ,
- println(SCEOUTPUT,tmp1);
- println(SCEOUTPUT," --##");
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcF(fname):=kcF(fname,[]);
-kcF(fname,optionorg):=(
- regional(options,tmp,tmp1,tmp2,eqL,strL,
- filename,wfile,flg);
- if(indexof(fname,".")==0,
- filename=fname+".input";
- ,
- filename=fname;
- );
- wfile=replace(filename,".input",".sfort");
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".input",".sfort");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
-// SCEOUTPUT=openfile(wfile);
-// println(SCEOUTPUT,"");
-// closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.bat");
- tmp=Dq+PathF+"\bash"+Dq+" --login -i -c "+Dq+"/cygdrive/";
- tmp1=replace(Dirwork,"\","/");
- if(indexof(tmp1,":")==0,
- tmp=tmp+"c/"+tmp1+"/kc.sh"+Dq;
- ,
- tmp1=replace(tmp1,":","");
- tmp=tmp+tmp1+"/kc.sh"+Dq;
- );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.sh");
- Lf=unicode("10",base->10);
- print(SCEOUTPUT,"#!/bin/sh"+Lf);
- tmp1=replace(Dirwork,"\","/");
- if(indexof(tmp1,":")==0,
- tmp="cd "+Dq+"/cygdrive/c/"+tmp1+Dq;
- ,
- tmp1=replace(tmp1,":","");
- tmp="cd "+Dq+"/cygdrive/"+tmp1+Dq;
- );
- print(SCEOUTPUT,tmp+Lf);
- tmp=Dq+"/opt/fricas/bin/fricas";
- tmp=tmp+Dq+" -nox -eval ";
- tmp=tmp+Dq+")read "+filename+Dq;
-// tmp=tmp+" > "+Dq+wfile+Dq;
- print(SCEOUTPUT,tmp+Lf);
- print(SCEOUTPUT,"exit 0"+Lf);
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathF+Dq+" -nox -eval "+Dq+")read "+filename+Dq;
-// tmp=tmp+" > "+wfile;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- setdirectory(Dirwork);
- );
-);
-
-CalcbyF(name,cmd):=CalcbyM(name,cmd,[]);
-CalcbyF(name,cmd,optionorg):=(
-//help:CalcbyF("a",cmdL);
-//help:CalcbyF(options= ["m/r","Wait=5"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,strL,eqL,
- flg,wflg,file,nc,arg,cmdF,cmdlist,wfile,Alpha,
- waiting,num,dig,varlist);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- waiting=5;
- dig=5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- file=Fhead+name+".input";
- wfile=Fhead+name+".sfort";
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- cmdF=cmd;
- tmp1=")set breakmode quit";
- tmp2=")set output fortran on";
- tmp3=")set fortran precision single";
- cmdlist=[tmp1,tmp2,tmp3];
- tmp=")set output fortran "+wfile;
- cmdlist=append(cmdlist,tmp);
- forall(1..floor(length(cmdF)/2),nc, //17.5.18
- tmp1=cmdF_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- tmp2=cmdF_(2*nc); // list of argments
- if(nc<length(cmdF)/2,
- tmp3="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+arg+",";
- ,
- tmp3=tmp3+textformat(arg,dig)+",";
- );
- );
- if(length(tmp3)>0,
- tmp3=tmp1+
- "("+substring(tmp3,0,length(tmp3)-1)+")";
- ,
- tmp3=tmp1;
- );
- cmdlist=append(cmdlist,tmp3);
- ,
- if(indexof(tmp1,"::")==0,
- varlist=[tmp1];
- ,
- varlist=tokenize(tmp1,"::");
- );
- forall(varlist,
- cmdlist=append(cmdlist,"["+#+"]");
- );
- );
- );
- cmdlist=concat(cmdlist,["111111*1",")quit"]);
- if(wflg==0,
- tmp1=load(file);
- if(length(tmp1)==0,
- wflg=1;
- ,
- if(indexof(tmp1," --##")==0, // 15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1," --##");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- );
- if(wflg==0,wflg=-1);
- if(wflg==1,
- if(length(wfile)>0,
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoF(file,cmdlist);
- kcF(file,concat(options,["m"]));
- );
- Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp1=load(wfile);
- if(wflg==1,wait(WaitUnit));
- tmp=indexof(tmp1,"Error")+indexof(tmp1,"find");
- if(tmp>0,
- println("Some error(s) occurred");
- tmp=tokenize(tmp1," --##");
- forall(tmp,
- if(indexof(#,"Error")+indexof(#,"find")>0,
- println(tmp_(length(tmp)));
- );
- );
- flg=2;
- );
- if(indexof(tmp1,"111111")>0,
- tmp1=replace(tmp1," &","");
- tmp3="[";
- forall(1..length(varlist),
- tmp=indexof(tmp1,"["+varlist_#+"]");
- tmp1=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(tmp1,"(1)=");
- tmp1=substring(tmp1,tmp+3,length(tmp1));
- tmp=indexof(tmp1," ");
- tmp3=tmp3+Dq+substring(tmp1,0,tmp-1)+Dq+",";
- );
- tmp3=replace(tmp3,"**","^");
- tmp3=replace(tmp3,".0","");
- tmp4="";
- forall(1..length(tmp3),
- tmp=substring(tmp3,#-1,#);
- tmp1=indexof(Alpha,tmp);
- if(tmp1>0,
- tmp4=tmp4+unicode(text(tmp1+96),base->10);
- ,
- if(tmp==" " % tmp=="&",
- ,
- tmp4=tmp4+tmp;
- );
- );
- );
- tmp=name+"="+substring(tmp4,0,length(tmp4)-1)+"]";
- parse(tmp);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp4,1,length(tmp3)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- tmp1=load(wfile);
- if(length(tmp1)>0,
- println(wfile+" incomplete"+tmp); // 2016.02.24
- ,
- println(wfile+" not generated "+tmp);
- );
- );
- ,
- if(flg==1,
- println(" Succeeded "+name+" ("+text(tmp2)+" sec)");
- );
- );
-);
-
-Frfun(name,fun,argL):=Frifun(name,fun,argL,[]);
-Frfun(name,fun,argL,optionorg):=Frifun(name,fun,argL,optionorg);
-Frifun(name,fun,argL):=Frifun(name,fun,argL,[]);
-Frifun(name,fun,argL,optionorg):=(
-//help:Frfun("1","integrate",["sin(x)^3","x"],[""]);
-//help:Mxfun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,tmp,tmp1,tmp2);
- nm="fri"+name;
- options=optionorg;
- tmp=divoptions(options);
- disp=1;
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- "ans"+":="+fun,argL,
- "ans",[]
- ]);
- CalcbyF(nm,cmdL,options);
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- parse(nm);
-);
-
-Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06
-Mkketcindyjs(Arg):=(
- if(isstring(Arg),
- Mkketcindyjs(Arg,[])
- ,
- Mkketcindyjs("ketcindylib",Arg)
- );
-);
-Mkketcindyjs(libname,options):=(
-//help:Mkketcindyjs();
-//help:Mkketcindyjs(options="Tex=y","Net=y"]);
- regional(texflg,netflg,tmp,tmp1,tmp2);
- texflg="Y";
- netflg="Y";
- forall(options,
- tmp1=Toupper(#);
- if(indexof(tmp1,"TEX")>0,
- tmp=indexof(tmp1,"=");
- texflg=Toupper(substring(tmp1,tmp,tmp+1));
- );
- if(indexof(tmp1,"NET")>0,
- tmp=indexof(tmp1,"=");
- netflg=Toupper(substring(tmp1,tmp,tmp+1));
- );
- );
- SCEOUTPUT = openfile(Fhead+".sce");
- println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');");
- println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');");
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');");
- println(SCEOUTPUT,"Qt=char(34);");
- // 17.09.10from
- println(SCEOUTPUT,
- "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];");
- println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];");
- println(SCEOUTPUT,"Dthead=[];");
- println(SCEOUTPUT,"for I=1:size(Dtjs,1)");
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then");
- println(SCEOUTPUT," Tmp=Dtjs(I,:);");
- if(netflg=="N",
- println(SCEOUTPUT,
- " if length(strindex(Tmp,'link rel='))>0 then");
- println(SCEOUTPUT,
- " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';");
- println(SCEOUTPUT,
- " end;");
- println(SCEOUTPUT,
- " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then");
- println(SCEOUTPUT,
- " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';");
- println(SCEOUTPUT,
- " Tmp=Tmp+'</script>';");
- println(SCEOUTPUT,
- " end;");
- );
- println(SCEOUTPUT," Dthead=[Dthead;Tmp];");
- println(SCEOUTPUT," else");
- println(SCEOUTPUT," Is=I;break");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"Dt=[];");
- println(SCEOUTPUT,"for I=Is:size(Dtjs,1)");
- println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then");
- println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;");
- println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;");
- println(SCEOUTPUT," Dt=[];");
- println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then");
- println(SCEOUTPUT," Ie=I+1;break;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];");
- println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
- if(texflg=="Y",
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then");
- println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];");
- println(SCEOUTPUT," end;");
- );
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');");
- // 17.09.10upto
- println(SCEOUTPUT,"quit()");
- closefile(SCEOUTPUT);
- kcS(PathS,Fhead+".sce",["m"]);
-);
-
-Cheader():=Cheader(FdC,FheadC+"header.h");
-Cheader(fdc,fname):=(
- regional(tmp,tmp1,tmp2,j, dW,dE,dS,dN,dstr,
- DsizeLL,DsizeL,DsizeM,DsizeS,Eps,Eps1,Eps2,Eps3);
- Mdv=50; Ndv=50;
- DsizeLL=15000; DsizeL=1500; DsizeM=500; DsizeS=200;
- Eps=0.00001; Eps1=0.05; Eps2=0.2; Eps3=1;
- SCEOUTPUT = openfile(fname);
- tmp=indexof(fdc_2,"=");
- tmp1=substring(fdc_2,tmp,length(fdc_2));
- tmp1=replace(tmp1,"[","{");
- tmp1=replace(tmp1,"]","}");
- tmp=indexof(fdc_3,"=");
- tmp2=substring(fdc_3,tmp,length(fdc_3));
- tmp2=replace(tmp2,"[","{");
- tmp2=replace(tmp2,"]","}");
- tmp="const double Urng[2]="+tmp1+", Vrng[2]="+tmp2;
- println(SCEOUTPUT,tmp+";");
- tmp="const double XMIN="+Sprintf(XMIN,6);
- tmp=tmp+",XMAX="+Sprintf(XMAX,6);
- println(SCEOUTPUT,tmp+";");
- tmp="const double THETA="+Sprintf(THETA,6);
- tmp=tmp+",PHI="+Sprintf(PHI,6);
- println(SCEOUTPUT,tmp+";");
- tmp=" //THETA:"+Sprintf(THETA*180/pi,2);
- tmp=tmp+", PHI:"+Sprintf(PHI*180/pi,2);
- println(SCEOUTPUT,tmp+";");
- dstr=fdc_4;
- if(indexof(dstr,"w")>0,dW=1,dW=0);
- if(indexof(dstr,"e")>0,dE=1,dE=0);
- if(indexof(dstr,"s")>0,dS=1,dS=0);
- if(indexof(dstr,"n")>0,dN=1,dN=0);
- tmp="const int DrawW="+text(dW)+", DrawE="+text(dE);
- tmp=tmp+", DrawS="+text(dS)+", DrawN="+text(dN);
- println(SCEOUTPUT,tmp+";");
- forall(j=5..(length(fdc)),
- tmp=fdc_#; //17.05.21from
- if(length(tmp)==2,
- if(tmp_1>1, //17.05.24from
- Mdv=tmp_1; Ndv=tmp_2;
- ,
- if(length(tmp_1)>0, Eps1=tmp_1);
- if(length(tmp_1)>0, Eps2=tmp_2);
- ); //17.05.24upto
- );
- if(length(tmp)==3,
- if(length(tmp_1)>0, DsizeLL=tmp_1);//17.06.09(3lines)
- if(length(tmp_2)>0, DsizeL=tmp_2);
- if(length(tmp_3)>0, DsizeM=tmp_3);
- );
- if(length(tmp)==4,
- if(min(tmp)<1,
- if(length(tmp_1)>0, Eps=tmp_1);
- if(length(tmp_2)>0, Eps1=tmp_2);
- if(length(tmp_3)>0, Eps2=tmp_3);
- if(length(tmp_4)>0, Eps3=tmp_4);
- ,
- if(length(tmp_1)>0, DsizeLL=tmp_1);
- if(length(tmp_2)>0, DsizeL=tmp_2);
- if(length(tmp_3)>0, DsizeM=tmp_3);
- if(length(tmp_4)>0, DsizeS=tmp_4);
- )
- );//17.05.21upto
- );
- tmp1=text(fdc_5_1);
- tmp2=text(fdc_5_2);
- tmp="const int Mdv="+text(Mdv)+", Ndv="+text(Ndv);
- println(SCEOUTPUT,tmp+";");
- tmp="#define DsizeLL "+text(DsizeLL);//17.05.21
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeL "+text(DsizeL);
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeM "+text(DsizeM);
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeS "+text(DsizeS);
- println(SCEOUTPUT,tmp);
- tmp="const double Eps="+format(Eps,7);
- tmp=tmp+", Eps1="+format(Eps1,7);
- tmp=tmp+", Eps2="+format(Eps2,7);
- tmp=tmp+", Eps3= "+format(Eps3,7);
- println(SCEOUTPUT,tmp+";");
- tmp="void surffun(double u, double v, double pt[3]){";
- println(SCEOUTPUT,tmp);
- forall(fdc_1,
- tmp1=replace(#,"x=","pt[0]=");
- tmp1=replace(tmp1,"y=","pt[1]=");
- tmp1=replace(tmp1,"z=","pt[2]=");
- println(SCEOUTPUT," "+tmp1+";");
- );
- println(SCEOUTPUT,"}");
- closefile(SCEOUTPUT);
-);
-
-Cmain():=Cmain(FheadC+".c",MainC);
-Cmain(fname,cmdLorg):=(
-//help:MainC(writesfbd("sfbd");)
-//help:MainC(writeax("ax");)
-//help:MainC(writewire("wire" (,2), [10,10]);)
-//help:MainC(writewire("wire", [[0.5,1],[0,1,2]]]);)
-//help:MainC(writecut("sfcut","x+y+2*z-4");)
-//help:MainC(writesc("sl3d1");)
-//help:MainC(skeleton("sk",[objlist],[pltlist] (,width));)
-//help:MainC(writewire ptincrease (=2) are optional);)
- regional(cmdL, tmp,tmp1,tmp2,tmp3,tmp4,nL, nn,kk,jj, num, en,cmd,
- ax1,ax2,ax3,path, var,varh,file,fileh, flg, cutctr);
- path=Dirwork+"/"; //17.05.29from
- path=replace(path,"\","/");
- cmdL=cmdLorg;// 17.05.26from
- nL=select(1..(length(cmdL)),cmdL_#=="writeax");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- tmp=tmp2_1; // 17.06.08(5lines)
- if(substring(tmp,length(tmp)-2,length(tmp))!="3d",
- tmp=tmp+"3d";
- );
- tmp1=parse(tmp);
- tmp="axx="+textformat(tmp1_1,5);
- parse(tmp);
- tmp="axy="+textformat(tmp1_2,5);
- parse(tmp);
- tmp="axz="+textformat(tmp1_3,5);
- parse(tmp);
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
- "double axx[3][3], axy[3][3], axz[3][3];",[],
- "spaceline",["axx"],
- "spaceline",["axy"],
- "spaceline",["axz"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3(2,1,2,axx,"+tmp2_1+");",[],
- "appendd3(2,1,2,axy,"+tmp2_1+");",[],
- "appendd3(2,1,2,axz,"+tmp2_1+");",[],
- "writecrv",[tmp2_1,tmp2_2] //17.06.07
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writesc");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,
- tmp2=[tmp2_1,"Surf"];
- );
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
- "double "+tmp2_1+"h[DsizeL][3];",[],
- "spaceline",[tmp2_1],
- "writecrv",[tmp2_1,tmp2_2] //17.06.07
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writesfbd");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- fileh=Dq+path+FheadC+tmp2_1+"h.txt"+Dq;
- tmp="Borderhiddendata";
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.09(6lines)
- "sfbdparadata",[tmp2_1],
- "output3h",[var, varh,file,tmp2_1],
- "dataindexd3",[3,tmp2_1,"din"],
- tmp2_2+"[0][0]=0;",[],
- "appendd3",[2,"din[1][0]","din[1][1]",tmp2_1,tmp2_2]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writecrv");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "crvsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
- tmp2_1+"[0][0]=0;",[], //17.06.09(3lines)
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var, varh, file,tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writescrvonsf");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(8lines)
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[],
- " crv3onsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var,varh, file ,tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writecut");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- cutctr=0;
- forall(1..(length(nL)),
- cutctr=#;
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==2,
- tmp2=[tmp2_1,"Surf",tmp2_2];
- );
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(10lines)
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "cutfun",[tmp2_3],
- "double "+tmp2_1+"[DsizeL][3];",[],
- "sfcutdata",[text(cutctr),"out"], //17.06.02
- "crv3onsfparadata",["out",tmp2_2,"Crvdata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var, varh, file, tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writewire");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(!isstring(tmp2_2),
- tmp2=[tmp2_1,"Surf",tmp2_2,tmp2_3];
- );
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp4=tmp2_(length(tmp2)); num=2;
- if(!islist(tmp4),
- num=tmp4; tmp4=tmp2_(length(tmp2)-1);
- );
- if(!islist(tmp4_1),
- tmp3=concat(tmp3,[
- "double udv[2]={-1,"+text(tmp4_1)+"};",[]
- ]);
- ,
- len=length(tmp4_1);
- tmp="double udv["+text(len+1)+"]={"+text(len)+",";
- forall(tmp4_1,
- tmp=tmp+format(#,5)+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"};";
- tmp3=concat(tmp3,[tmp,[]]);
- );
- if(!islist(tmp4_2),
- tmp3=concat(tmp3,[
- "double vdv[2]={-1,"+text(tmp4_2)+"};",[]
- ]);
- ,
- len=length(tmp4_2);
- tmp="double vdv["+text(len+1)+"]={"+text(len)+",";
- forall(tmp4_2,
- tmp=tmp+format(#,5)+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"};";
- tmp3=concat(tmp3,[tmp,[]]);
- );
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeLL][3];",[], //17.06.09(5lines)
- "wireparadata",["Surf", "udv","vdv", num, "Wiredata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Wiredata)","Wiredata",tmp2_1],
- "output3h",[var, varh, file, tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(tmp_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );// 17.05.29upto
- nL=select(1..(length(cmdL)),cmdL_#=="skeleton");// 17.06.05from
- cmd=[];
- if(length(nL)>0,
- tmp3=cmdL_(1..(nL_1-1));
- tmp3=concat(tmp3,["double sk[DsizeLL][3];",[]]);//17.06.13
- ,
- tmp3=[];
- );
- forall(1..(length(nL)),nn,
- tmp2=cmdL_(nL_nn+1);
- var=Dq+tmp2_1+"3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[ //17.06.08from
- "data[0][0]=0;",[]
- ]);
- forall(tmp2_2,
- if(substring(#,length(#)-1,length(#))!="h",
- tmp1=#;
- tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
- ,
- tmp1=substring(#,0,length(#)-1);
- tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
- );
- tmp3=concat(tmp3,[
- "dataindexd3",[3,tmp1,"din"],
- "appendd3",tmp
- ]);
- );
- forall(1..(length(tmp2_3)),
- if(substring(tmp2_3_#,length(tmp2_3_#)-1,length(tmp2_3_#))!="h",
- tmp1=tmp2_3_#;
- tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
- ,
- tmp1=substring(tmp2_3_#,0,length(tmp2_3_#)-1);
- tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
- );
- tmp3=concat(tmp3,[
- "push3",["Inf",3,0,"data"],
- "dataindexd3",[3,tmp1,"din"],
- "appendd3",tmp
- ]);
- );
- if(length(tmp2)<=3,tmp=1,tmp=tmp2_4);
- tmp3=concat(tmp3,[
- "skeletondata3",["data", tmp, "Eps1","Eps2","sk"],//17.06.13
- "output3",[var, file, 2, "sk"]
- ]);
- cmd=concat(cmd,tmp3);
- if(nn<length(nL),
- tmp3=cmdL_((nL_nn+2)..(nL_(nn+1)-1));
- ,
- tmp3=cmdL_((nL_nn+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );//17.06.08upto
- );// 17.06.05upto
- path=DirlibC+"/";
- path=replace(path,"\","/");
- cmd=[
- "#include <stdio.h>", "#include <math.h>",
- "#include "+Dq+FheadC+"header.h"+Dq,
- "#include "+Dq+path+"ketcommon.h"+Dq,
- "#include "+Dq+path+"surflibhead.h"+Dq,
- "#include "+Dq+path+"surflib.h"+Dq,
- "int main(void){",
- " double out[DsizeL][3], data[DsizeLL][3];", //17.06.10
- " int i, j, nall, din[DsizeS][2];" //17.06.09
- ];
-// tmp=select(cmdL,#=="cutfun");
-// if(length(tmp)==0,
- if(cutctr==0, //17.06.02
- cmdL=prepend(["1"],cmdL);
- cmdL=prepend("cutfun",cmdL);
- );// 17.05.26upto
- cutctr=0;
- forall(1..(floor(length(cmdL))/2),nn,
- tmp1=cmdL_(2*nn-1); tmp2=cmdL_(2*nn);
- flg=0; // 17.05.26from
- if(tmp1=="cutfun",
- cutctr=cutctr+1;
- tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);
- tmp3=cmd_((tmp_1)..(length(cmd)));
- cmd=cmd_(1..(tmp_1-1));
- cmd=append(cmd,"double cutfun"+text(cutctr)+"(double u, double v){");
- cmd=append(cmd," double p[3],val;");
- cmd=append(cmd," surffun(u,v,p);");
- tmp=" val="+assign(tmp2_1,["x","p[0]","y","p[1]","z","p[2]"])+";";
- cmd=concat(cmd, [tmp," return val;", "}"]);
- cmd=concat(cmd, tmp3);
- flg=1;
- );
- if(tmp1=="xyzax3data",
- tmp=" "+tmp1+"(";
- tmp=tmp+textformat(tmp2_1_1_1_1,5)+",";
- tmp=tmp+textformat(tmp2_1_1_2_1,5)+",";
- tmp=tmp+textformat(tmp2_1_2_1_2,5)+",";
- tmp=tmp+textformat(tmp2_1_2_2_2,5)+",";
- tmp=tmp+textformat(tmp2_1_3_1_3,5)+",";
- tmp=tmp+textformat(tmp2_1_3_2_3,5)+",";
- tmp=tmp+tmp2_2+");";
- cmd=append(cmd,tmp);
- flg=1;
- );
- if(tmp1=="spaceline",
- if(!isstring(tmp2_1),
- println(tmp2_1+" should be assgined as a string");
- ,
- tmp3=parse(tmp2_1);
- tmp=text(length(tmp3)+1);
-// cmd=append(cmd, " double "+tmp2_1+"["+tmp+"][3];");
- tmp=text(length(tmp3));
- cmd=append(cmd, " "+tmp2_1+"[0][0]="+tmp+";");
- forall(1..(length(tmp3)),
- tmp=" "+tmp2_1+"["+text(#)+"][0]="+textformat(tmp3_#_1,5)+",";
- tmp=tmp+tmp2_1+"["+text(#)+"][1]="+textformat(tmp3_#_2,5)+",";
- tmp=tmp+tmp2_1+"["+text(#)+"][2]="+textformat(tmp3_#_3,5)+";";
- cmd=append(cmd,tmp);
- );
- );
- flg=1;
- );
- if(flg==0,
- tmp=" "+tmp1;
- if(length(tmp2)>0,
- tmp=tmp+"(";
- forall(1..length(tmp2),kk,
- if(isstring(tmp2_kk),
- if((kk==1)&(substring(tmp1,0,5)=="write"),
- file=path+FheadC+tmp2_kk+".txt";
- fileh=path+FheadC+tmp2_kk+"h.txt";
- tmp=tmp+Dq+tmp2_kk+Dq+","+Dq+file+Dq+","+Dq+fileh+Dq;
- ,
- tmp=tmp+tmp2_kk;
- );
- ,
- if(!islist(tmp2_kk),
- tmp=tmp+textformat(tmp2_kk,5);
- ,
- );
- );
- if(kk<length(tmp2),
- tmp=tmp+",";
- ,
- tmp=tmp+");";
- );
- );
- );
- cmd=append(cmd, tmp);// 17.05.26upto
- );
- );
- tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);//17.06.02from
- tmp3=cmd_((tmp_1)..(length(cmd)));
- cmd=cmd_(1..(tmp_1-1));
- cmd=append(cmd,"double cutfun(int ch, double u, double v){");
- cmd=append(cmd," double val;");
- forall(1..cutctr,
- tmp=text(#);
- cmd=append(cmd," if(ch=="+tmp+"){val=cutfun"+tmp+"(u,v);}");
- );
- cmd=concat(cmd,[" return val;", "}"]);
- cmd=concat(cmd, tmp3);//17.06.02upto
- cmd=concat(cmd, [" return 0;", "}"]);
- SCEOUTPUT = openfile(fname);
- forall(cmd,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
- tmp=fileslist(Dirwork); // 17.05.20from
- tmp=tokenize(tmp,",");
- tmp=select(tmp,indexof(#,".txt")>0);
- tmp=select(tmp,indexof(#,FheadC)>0);
- forall(tmp,
- SCEOUTPUT = openfile(#);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- ); // 17.05.20upto
-);
-
-kcC():=kcC(FheadC);
-kcC(cname):=(
- regional(tmp, tmp1, flg);
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"set path="+Dirwork);
- tmp=Indexall(PathC,"\");
- if(length(tmp)==0, tmp=ndexall(PathC,"/"));
- tmp1=substring(PathC,0,tmp_(length(tmp))-1);
- println(SCEOUTPUT,"cd "+tmp1);
- tmp=PathC+" %path%\"+cname+".c";
- tmp=tmp+" -o %path%\main.exe";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"%path%\main.exe");
- println(SCEOUTPUT,"echo //// > %path%\resultC.txt");
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=cname+".txt";
- println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=PathC+" "+cname+".c -o main.out";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"./main.out");
- println(SCEOUTPUT,"echo //// > resultC.txt");
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=cname+".txt";
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));
- );
- SCEOUTPUT=openfile("resultC.txt");
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- flg=0;
- repeat(floor(10*1000/WaitUnit),
- if(flg==0,
- tmp1=load("resultC.txt");
- if(substring(tmp1,0,4)=="////",
- flg=1;
- );
- wait(WaitUnit);
- );
- );
- if(flg==0,
- println("Ckc not completed");
- ,
- println("Ckc succeeded");
- );
-);
-
-ReadCdata(var, fname):=ReadCdata(var, fname,[]);
-ReadCdata(var, fname,options):=(
- regional(file,dt,name,str,tmp,tmp1,opstr,gout, out3,out2);
- if(indexof(fname,".")==0,
- file=fname+".txt";
- name=fname;
- ,
- file=fname;
- tmp=indexof(fname,".");
- name=substring(fname,0,tmp-1);
- );
- tmp=Divoptions(options);
- opstr=tmp_8;
- gout=ReadOutData(file);
- GLIST=Append(GLIST,"Tmpstr=ReadOutData("+Dq+file+Dq+")");//17.06.16from
- GLIST=Append(GLIST,"execstr(Tmpstr)");
- if(substring(var,length(var)-1,length(var))!="h",
- if(length(parse(gout_1))>0,
- Projpara(var+"3d",options);
- );
- ,
- if(length(parse(gout_2))>0,
- Projpara(var+"3d",options);
- );
- );//17.06.16upto
-);
-
-WriteCdata(fnameorg,dataorg):=(
-//help:WriteCdata(filename, 3ddata);
- regional(tmp,fname,data,kk,nn,pt);
- data=dataorg;
- if(isstring(data),data=parse(data));
- if(MeasureDepth(data)==1,data=[data]);
- fname=fnameorg;
- if(indexof(fname,".")==0, fname=fname+".txt");
- SCEOUTPUT=openfile(fname);
- forall(1..(length(data)),kk,
- forall(1..(length(data_kk)),nn,
- pt=apply(1..3,Sprintf(data_kk_nn_#,5));
- tmp=pt_1+" "+pt_2+" "+pt_3;
- println(SCEOUTPUT,tmp);
- );
- if(kk<length(data),
- println(SCEOUTPUT,"99999.00000 2.00000 0.00000");
- );
- );
- closefile(SCEOUTPUT);
-);
-
-DisplayC():=DisplayC(DispC);
-DisplayC(name,options):=DisplayC([name,options]);
-DisplayC(dispc):=(
-//help:DisplayC("out",["Color=[1,0,0]");
-//help:DispC(options=["dr", "Color=[0,0,0]"])
- regional(tmp,tmp1,cflg,var, file,options,eqL,opcindy,color);
- forall(1..(floor(length(dispc)/2)), //17.05.18
- var=dispc_(2*#-1); // 17.05.24
- if(substring(var,length(var)-1,length(var))!="h",//17.06.09(5lines)
- file=FheadC+var+".txt";
- ,
- file=FheadC+substring(var,0,length(var)-1)+".txt";
- );
- options=dispc_(2*#);
- cflg=0;
- tmp=Divoptions(options);//17.06.18from
- eqL=tmp_5;
- opcindy=tmp_9;
- forall(eqL,
- if(Toupper(substring(#,0,2))=="CO",
- tmp=indexof(#,"=");
- color=substring(#,tmp,length(#));
- if(substring(color,0,1)=="[",
- color=parse(color);
- if(length(color)==3,
- tmp1="color->"+text(color);
- ,
- tmp=Colorcode("rgb","cmyk",color);
- tmp1="color->"+text(tmp);
- );
- options=append(options,tmp1);
- );
- options=remove(options,[#]);
- cflg=1;
- );
- );
- if(cflg==1,
- Texcom("{");
- Setcolor(color);
- );
- ReadCdata(var,file,options);// 17.05.24
- if(cflg==1,
- Texcom("}");
- );
- );
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt
deleted file mode 100644
index ad36aeed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlog.txt
+++ /dev/null
@@ -1,327 +0,0 @@
-// s:2017.09.10
-// MkketcindyJS changed substantially
-// s:2017.08.26
-//// MkketcindyJS ( data/js => CindyJS )
-// s:2017.07.02
-// MkketcindyJS ( Texview => Figure )
-// s:2017.06.23
-// MainC changed (ax1 => axx ,etc)
-// s:2017.06.16
-// Mxload added
-// ReadCdata debugged (for null list )
-// s:2017.06.13
-// Cmain changed (skeleton : sk1,2 -> sk)
-// s:2017.06.10
-// Cmain debugged(skeleton "data" should be declared commonly)
-// s:2017.06.09
-// Cmain, Cheader changed (output3h used )
-// s:2017.06.08
-// Cmain changed (skeleton finished )
-// s:2017.06.07
-// Cmain debugged ( ax3d ) /changed ( local data name)
-// s:2017.06.05
-// Cmain changed ( for skeleton)
-// s:2017.06.02
-// ReadCdata debugged ( for hiddenfile )
-// s:2017.05.29
-// DisplayC changed ( DisplayC(name,options) supported )
-// Cmain changed ("write..." are resolved in Cmain)
-// s:2017.05.27
-// Cmain changed (coding arranged)
-// s:2017.05.25
-// Cmain changed (cmd list, surfcut)
-// s:2017.05.24
-// Cmain changed ("write" changed)
-// Cheader changed (options)
-// ReadCdata3 changed
-// s:2017.05.23
-// Cmain changed (point number option)
-// s:2017.05.21
-// Cheader debugge ( Assignment of values)
-// s:2017.05.20
-// Cmain changed (files reset, param for writewire)
-// ReadCdata3 changed ( for blank data )
-// s:2017.05.18
-// CalcbyS,... changed (/2 => floor( /2))
-// DisplayC changed (color option added, floor(./2))
-// changed
-// s:2017.05.15
-// WriteCdata added
-// s:2017.05.14
-// Cheader,Cmain, kcC, ReadCdata3, DisplayC added
-// s:2017.04.14
-// ErrhandleS changed (nothing for scilab6)
-// s:2017.04.13
-// Mkviewobj changed (Error message when Setobj not defined )
-// s:2017.04.08
-// bugs fixed
-// s:2017.03.29
-// kcM changed ( for Maxima version >3.38 )
-// s:2017.02.19
-// Readcsv debugged ( waiting removed )
-// s:2017.02.09
-// Writecsv changed ( for double list )
-// Readcsv changed ( for sigle column )
-// s:2017.01.13
-// Setobj added (=Objname)
-// s:2017.01.12
-// WritetoS changed (English message for Windows )
-// s:2016.12.27
-// Mkviewobj debugged ( = )
-// s:2016.12.23
-// Hatchdata,Dotfilldata,... debugged ( "=.." => name+"=... )
-// s:2016.12.20
-// CalcbyR changed (in case of Cat!="Y" )
-// Readcsv changed (Both R and Scilab available with "Use=",
-// Flat option added )
-// s:2016.12.18
-// CalcbyS debugged (in case of Cat!="Y" )
-// s:2016.12.13
-// CalcbyS changed ( LFmark )
-// s:2016.12.12
-// Readcsv changed ( csv option added )
-// s:2016.12.11
-// CalcbyS debugged
-// Readcsv rewritten ( CalcbyS used )
-// s:2016.11.29
-// Mkobj... changed (OBJCMD added )
-// Objname(option) added
-// s: 2016.11.25
-// CalcbyR changed(about .txt file, cat="yes"(default),"no","middle")
-// s: 2016.11.24
-// CalcbyS changed(about .txt file, cat="yes","no","middle"(default))
-// s: 2016.11.22
-// CalcbyS debugged ( comment out : wfile when cat!="Y")
-// s: 2016.11.14
-// CalcbyS changed ( wfile when cat!="Y")
-// Mkobjcrvcmd changed ( for a string of a list of strings )
-// s: 2016.11.13
-// CalcbyS, CalcbyR debugged ( wflg==0 & cat!="Y")
-// s: 2016.11.08
-// Mkketcindy changed ( Buttons of KeTCindy removed)
-// Mkketcindy changed ( "Net=" option)
-// s: 2016.11.06
-// Mkketcindy debugged
-// s: 2016.10.29
-// CalcbyR debugged ( case of "Cat=no" )
-// s: 2016.10.28
-// CalcbyR changed ( options(digits=,,,) added)
-// s: 2016.10.24
-// Dataframe added
-// CalcbyR changed ( for only 1 value)
-// s: 2016.10.23
-// CalcbyS changed ( = in last line )
-// CalcbyR changed ( for output in list, vector,matrix)
-// MkketcindyJS changed ( libname )
-// MkketcindyJS changed ( libname )
-// s: 2016.10.22
-// Scifun, Rfun added
-// err => println
-// kcR,CalcbyR changed ( error message )
-// s: 2016.10.21
-// Help of Dotfilldata changed
-// s: 2016.10.20
-// kcR changed (for pathR)
-// s: 2016.10.13
-// Mkketcindyjs changed (for katex)
-// s: 2016.10.07
-// Mkketcindyjs added
-// s: 2016.10.04
-// Mkviewobj, Mkobjplate, Changeobjscale debugged
-// s: 2016.09.18
-// Histplot(help) debugged
-// s: 2016.08.09
-// CalcbyS changed ( |||| added )
-// s: 2016.07.08
-// Mkobjpoly,Mkobjplate debugged( option thick1,thick2 )
-// s: 2016.07.07
-// CalcbyR debugged( add "####" at setwindow )
-// s: 2016.06.30
-// Mkviewobj changed ( Changeobjscale executed when "Unit=.." )
-// s: 2016.06.27
-// Mkobjplatecmd debugged ( nv )
-// s: 2016.06.26
-// CalcbyS re-debugged and chaged ( case of "Cat=n", "File=" added )
-// Changeobjscale changed
-// WritetoS, WritetoR changed ( Setwindow added )
-// Changeobjscale majorly revised ( Scilab mainly used )
-// s: 2016.06.25
-// CalcbyS debugged ( case of "Cat=n" )
-// Changeobjscale added
-// s: 2016.06.19
-// Mkobjplatecmd debugged
-// s: 2016.06.18
-// Mkobjplatecmd added
-// Mkobjsymbcmd debugged ( rel > reL )
-// s: 2016.06.17
-// Mkobjpoiycmd,Mkobjsymbcmd changed (Help modified)
-// s: 2016.06.13
-// CalcbyM changed (Oprion Line=1000 )
-// s: 2016.06.12
-// CalcbyS,... changed ( LFmark removed )
-// s: 2016.06.08
-// Mkobjnrm debugged ( option eqL )
-// s: 2016.06.07
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,Mackc+,) )
-// s: 2016.06.05
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,,) )
-// s: 2016.06.03
-// Calcby. changed ( name added after "suceeded" )
-// s: 2016.05.29
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(Dirwork+ ) )
-// s: 2016.05.27
-// MxtexL added ( for the list of expressions )
-// s: 2016.05.26
-// AsirfunO changed ( Process implemented )
-
-//////////////
-// s: 2015.11.05 v2.1.0
-// Divided from ketcindylib
-// kcR, kcS changed ( waiting removed )
-// PlotdataS added
-// e: 2015.11.07 v2.1.1
-// Readcsv, .., changed ( for case of non-exiting file )
-// e: 2015.11.10 v2.1.2
-// Boxplot, Readcsv, Hatchdata debugged ( directory of input file )
-// e: 2015.11.11
-// Boxplot, Readcsv, Hatchdata re-debugged ( directory of input file )
-// e: 2015.11.17
-// WritetoA, kcA, CalcbyA, Asirfun added
-// e:2015.11.18
-// WritetoA, kcA, CalcbyA, Asirfun changed ( PathA )
-// CalcbyA changed ( ' for Dq=" )
-// Asirfun changed ( name adde )
-// e:2015.11.19
-// kcA changed ( for windows )
-// CalcbyR,CalcbyS changed ( ' for Dq )
-// CalcbyA changed ( a big number represented as string )
-// e:2015.11.20
-// Asirfun changed ( precise option added )
-// e:2015.11.21
-// MkprecommandS debugged
-// e:2015.11.22
-// WritetoM, kcM, CalcbyM, Mxfun added
-// PathA change ( to full path )
-// e:2015.11.23
-// CalcbyM changed ( for "+d")
-// e:2015.11.24
-// CalcbyM changed ( for windows)
-// Asirfun, Mxfun changed ( Disp, Pack options )
-// Example added
-// Mxfun changed ( Set option )
-// e:2015.11.25
-// changed "fortran" to "disp"
-// kcM changed ( for windows )
-// e:2015.11.26
-// CalcbyA, CalcbyB changed ( for wflg=0)
-// e:2015.11.27
-// AsirfunO added
-// e:2015.12.06
-// CalcbyS, CalcbyR, CalcbyM,CalcbyA changed
-// ( for length(tmp1)!=length(cmdlsit) )
-// e:2015.12.07
-// SetpathS changed ( Dirlib => Dirbin )
-// e:2015.12.11
-// SetpathS changed ( for autosetting )
-// e:2016.01.07
-// Mxtex added
-// e:2016.01.10
-// Mxtex debugged
-// kcS debugged ( for Windows )
-// e:2016.01.18
-// Mxtex debugged
-// e:2016.01.25
-// Mxtex debugged ( regional )
-// e:2016.01.30
-// MkprecommandR, MkprecommandS debugged ( -0 and 0 )
-// e:2016.02.01
-// MkprecommandR, MkprecommandS changed ( prec option added )
-// e:2016.02.03
-// MkprecommandR, MkprecommandS debugged ( sorting of VLIST )
-// AsfunO, Asfun supported
-// e:2016.02.08
-// Mxfun changed ( option PACK or LOAD)
-// e:2016.02.14
-// Hatchdata debugged ( bug of ["ii","oo"] for example)
-// e:2016.02.16
-// Dotfilldata added
-// e:2016.02.19
-// Mxtex debugged ( options )
-// e:2016.02.23
-// WritetoM, CalcbyM changed ( option "All=y" added for error )
-// CalcbyM changed ( ` changed to ' )
-// e:2016.02.24
-// CalcbyM changed ( if errors occurred, output displayed under "All=y" )
-// e:2016.02.26
-// CalcbyM changed ( defalut of All changed to "y" )
-// e:2016.02.29
-// ErrhandleS added
-// CalcbyS changed ( "Error" option )
-// Implicitplot changed ( "Mx" option added )
-// e:2016.03.01
-// Mxtex changed ( Set & Ord option added )
-// e:2016.03.02
-// PlotdataS,Implicitdata changed ( equalized )
-// e:2016.03.03
-// CalcbyM changed ( replacement ' abolished )
-// e:2016.03.05
-// Hatchdata changed ( "Error" added )
-// e:2016.03.09
-// Implicitplot, Hatchdata changed ( "Out=" option readded)
-// e:2016.03.11
-// WritetoA,AsirfunO changed ( ooshima lib read in AsirfunO)
-// e:2016.03.12
-// CalcbyM changed (output for "Cat=y")
-// kcV3,Mkviewobj added
-// e:2016.03.12
-// kcV3,Mkviewobj debugged/changed
-// e:2016.03.14
-// Mkviewobj changed ( repetition of Meshlab avoided )
-// e:2016.03.15
-// Mkviewobj changed ( for making from objlist )
-// Implicitplot changed ( error handling)
-// e:2016.03.17
-// WritetoF,kcF,CalcbyF,Frifun added
-// e:2016.03.26
-// kcF changed ( added for windows )
-// e: 2016.04.04
-// PlotdataS, Implicitplot changed (Addgraph added )
-// e: 2016.04.06
-// Hatchdata changed (Chunderscore added )
-// e: 2016.04.14
-// Mkobjcmd added
-// e:2016.04.15
-// Mkobjthickcmd, Mkobjnrm, Mkobjcrvcmd added
-// Mkobjcrvcmd, Concatcmd added
-// e:2016.04.17
-// Mkobjsymbcmd added
-// e:2016.04.20
-// Mkobjnrm,Mkobjthickcmd changed
-// e:2016.04.21
-// Mkobjnrm,Mkobjthickcmd changed (precmd added , option "simp" unused)
-// e:2016.04.22
-// Mkobjpolycmd added
-// e:2016.04.23
-// Mkviewobj,Mkobjpolycmd,Mkobjcrvcmd,Mkobjsymbcmd changed
-// MkprecommandR debugged
-// e:2016.04.26
-// CalcbyM changed ( Indexall used)
-// e:2016.04.29
-// Mxbatch added
-// e:2016.04.30
-// Mkobjnrm changed ( twice )
-// Mxbatch debugged
-// e:2016.05.02
-// Mkobjnrm changed ( Out= , disp option )
-// e:2016.05.10
-// Mkobjsymbcmd changed ( defaut path changed )
-// e:2016.05.12
-// Mkobjnrm changed ( name => "nrm"+nm )
-// e:2016.05.18
-// WritetoA changed ( output )
-// CalcbyA changed ( ; supported )
-// e:2016.05.1
-// Testfunstr debugged ( ".x", ".y" )
-////// To Reverse sequence //////
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt
index 7a908aa0..2050e5fe 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutlogr.txt
@@ -1,3 +1,24 @@
+// 2018.02.01
+// CalcbyR changed (for matrix, wait=5 )
+// 2018.01.31
+// CalcbyR changed (for list of list )
+// 2018.01.29
+// CalcbyR debugged and changed (case of result is null )
+// 2018.01.27
+// CalcbyR changed ( output like Maxima(::),"Out")
+// 2018.01.07
+// Hatchdata debugged (fun removed )
+// 2017.12.24
+// Mkobjpoly,Mkobjplate debugged
+// Changeobjscalce changed for R
+// 2017.12.23
+// Mkobjsymbcmd debugged
+// Setoptions changed
+// Mkobjthickcmd added
+// 2017.12.22
+// Mkobjcrvcmd debugged
+// 2017.10.24
+// Maxima2Cindydata added
// 2017.10.12
// kcR debugged ( for Mac, => 2> )
// 2017.10.07
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs
index 6d077fa9..233a723a 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketcindyliboutr.cs
@@ -14,7 +14,7 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindyout(2017.10.12) loaded");
+println("ketcindyout(2018.02.01) loaded");
//help:start();
@@ -655,10 +655,10 @@ CalcbyR(name,Arg1,Arg2):=(
);
);
CalcbyR(name,path,cmd,optionorg):=(
-//help:CalcbyR("Pr",cmd);
-//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]);
+//help:CalcbyR(name,cmd);
+//help:CalcbyR(options=["m/r","Wait=2","Out=yes","Pre=yes","File=result" ]);
regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL,
- cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting);
+ cat,dig,preflg,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,waiting);
options=optionorg;
tmp=divoptions(options);
eqL=tmp_5;
@@ -667,13 +667,13 @@ CalcbyR(name,path,cmd,optionorg):=(
dig=5;
cat="Y";
wfile="";
- ext=".txt";
- waiting=2;
+ preflg=1;
+ waiting=5;
forall(eqL,
tmp=indexof(#,"=");
tmp1=Toupper(substring(#,0,1));
tmp2=substring(#,tmp,length(#));
- if(tmp1=="C",
+ if((tmp1=="C")%(tmp1=="O"),
cat=Toupper(substring(tmp2,0,1));
options=remove(options,[#]);
);
@@ -681,8 +681,10 @@ CalcbyR(name,path,cmd,optionorg):=(
waiting=parse(tmp2);
options=remove(options,[#]);
);
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
+ if(tmp1=="P", //18.01.27
+ tmp2=substring(Toupper(tmp2),0,1);
+ if(tmp2=="Y",preflg=1);
+ if(tmp2=="N",preflg=0);
options=remove(options,[#]);
);
if(tmp1=="D",
@@ -696,9 +698,9 @@ CalcbyR(name,path,cmd,optionorg):=(
);
if(wfile=="",
if(cat=="Y",
- wfile=Fhead+name+ext;
+ wfile=Fhead+name+".txt";
,
- wfile="resultR"+ext;
+ wfile="resultR.txt";
);
);
wflg=0;
@@ -720,8 +722,11 @@ CalcbyR(name,path,cmd,optionorg):=(
);
);
file=Fhead+name;
-// cmdR=flatten(cmd);
- cmdR=cmd;
+ cmdR=[];
+ if(preflg==1, //18.01.27from
+ cmdR=MkprecommandR();
+ );
+ cmdR=concat(cmdR,cmd); //18.01.27upto
cmdlist=[];
if(dig>5, //16.10.28from
cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");");
@@ -758,6 +763,20 @@ CalcbyR(name,path,cmd,optionorg):=(
);
cmdlist=append(cmdlist,tmp1);
);
+ tmp1=cmdlist_(length(cmdlist));
+ if(indexof(tmp1,"=")==0,
+ tmp1=tokenize(tmp1,"::");
+ if(length(tmp1)==1,
+ tmp2=name+"="+tmp1_1;
+ ,
+ tmp2=name+"=list(";
+ forall(tmp1,
+ tmp2=tmp2+#+",";
+ );
+ tmp2=substring(tmp2,0,length(tmp2)-1)+")";
+ );
+ cmdlist_(length(cmdlist))=tmp2;
+ );
if(CONTINUED==1,
ComOutList=concat(ComOutList,cmdlist);
,
@@ -766,20 +785,45 @@ CalcbyR(name,path,cmd,optionorg):=(
cmdlist=append(cmdlist,tmp);
tmp="sharps=paste(sharp,sharp,'\n',sep='')";
cmdlist=append(cmdlist,tmp);
+ tmp="if(Length("+name+")==0){"+name+"='nodata'}"; //18.01.29
+ cmdlist=append(cmdlist,tmp);
cmdlist=append(cmdlist,"if(is.matrix("+name+")){");
- cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")");
- cmdlist=append(cmdlist,"}");
+ cmdlist=append(cmdlist," tmp=list()");//18.02.01from
+ cmdlist=append(cmdlist," for(ii in 1:Length("+name+")){");
+ cmdlist=append(cmdlist," tmp=c(tmp,list(Op(ii,ans)))");
+ cmdlist=append(cmdlist," }");
+ cmdlist=append(cmdlist," ans=tmp");
+ cmdlist=append(cmdlist,"}");//18.02.01upto
cmdlist=append(cmdlist,"if(is.list("+name+")){");
- tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')";
+// tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')"; //18.01.27deleted
+// cmdlist=append(cmdlist,tmp);
+// tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+// cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist," for(ii in Looprange(1,length("+name+"))){");
+ cmdlist=append(cmdlist," if(is.list("+name+"[[ii]])){");
+ tmp=" cat('[',file='"+wfile+"',sep='',append=TRUE)";
cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ tmp=" cat(sharps,file='"+wfile+"',sep='',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" for(jj in Looprange(1,length(ans[[ii]]))){";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" cat("+name+"[[ii]][[jj]],file='"+wfile+"',sep=',',append=TRUE)";
cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist," for(ii in 1:length("+name+")){");
- tmp=" cat("+name+"[[ii]],file='"+wfile+"',";
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ cmdlsit=append(cmdlist," }");
+ cmdlist=append(cmdlist," }");
+ tmp=" cat(']',file='"+wfile+"',sep=',',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist," }else{");
+ tmp=" cat("+name+"[[ii]],file='"+wfile+"',";
tmp=tmp+"sep=',',append=TRUE)";
cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
+ tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
cmdlist=append(cmdlist,tmp);
+ cmdlist=append(cmdlist," }");
cmdlist=append(cmdlist," }");
cmdlist=append(cmdlist,"}else{");
tmp=" cat("+name+",file='"+wfile+"',sep=',')";
@@ -858,18 +902,39 @@ CalcbyR(name,path,cmd,optionorg):=(
tmp1=tmp1_(1..(length(tmp1)-1));
tmp2=[];
forall(tmp1,tmp3,
- if(!isstring(tmp3),tmp3=format(tmp3,dig));
- tmp=tokenize(tmp3,",");
- tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig)));
+ if(!isstring(tmp3),
+ tmp=format(tmp3,dig);
+ ,
+ if(indexof(tmp3,",")==0,
+ tmp=tmp3;
+ ,
+ tmp=tokenize(tmp3,",");
+ tmp=textformat(tmp,dig);
+ );
+ );
tmp2=append(tmp2,tmp);
);
if(length(tmp2)==1,
tmp2=tmp2_1;
- if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24
+ if(length(tmp2)==1,tmp2=tmp2_1);
+ if(isstring(tmp2),
+ if(indexof(tmp2,"nodata")>0,tmp2=[]);
+ );
+ tmp=name+"="+textformat(tmp2,dig);
,
- tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))];
+ tmp3="";
+ forall(tmp2,
+ if(length(#)==0,
+ tmp3=tmp3+"[],";
+ ,
+ tmp3=tmp3+#+",";
+ );
+ );
+ tmp3="["+substring(tmp3,0,length(tmp3)-1)+"]";
+ tmp3=replace(tmp3,"[,","[");
+ tmp3=replace(tmp3,",]","]");
);
- tmp=name+"="+text(tmp2); //16.10.23upto
+ tmp=name+"="+tmp3;
parse(tmp);
);
);
@@ -1119,17 +1184,10 @@ Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]);
Hatchdata(nm,iostr,pltlist,optionorg):=( //17.09.18
//help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]);
//help:Hatchdata(options=["Wait=5"]);
- regional(options,name,fun,eqL,reL,strL,
+ regional(options,name,eqL,reL,strL,
plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting);
name="ha"+nm;
fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
options=optionorg;
tmp=Divoptions(options);
eqL=tmp_5;
@@ -3242,6 +3300,37 @@ Mxload(file):=( //17.06.16
out;
);
+Maxima2Cindydata(str):=( //17.10.24
+ regional(out,numstr,eL,nn,ne,flg,tmp);
+ numstr="-0123456789";
+ eL=Indexall(str,"e");
+ if(length(eL)==0,
+ out=str;
+ ,
+ out=substring(str,0,eL_1-1);
+ forall(1..(length(eL)),nn,
+ ne=eL_nn;
+ flg=0;
+ forall(1..5,
+ if(flg==0,
+ tmp=substring(str,ne+#-1,ne+#);
+ if(indexof(numstr,tmp)==0,
+ flg=#;
+ tmp=substring(str,ne,ne+flg-1);
+ out=out+"*10^("+tmp+")";
+ );
+ );
+ );
+ if(nn<length(eL),
+ out=out+substring(str,ne+flg-1,eL_(nn+1)-1);
+ ,
+ out=out+substring(str,ne+flg-1,length(str));
+ );
+ );
+ );
+ parse(out);
+);
+
kcV3(fname):=kcV3(Dirwork,fname);
kcV3(path,fname):=(
//help:kcV3(path,"ex.obj");
@@ -3287,10 +3376,18 @@ kcV3(path,fname):=(
);
);
-Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]);
+Changeobjscale(fname):=(
+ regional(fout);
+ fout=replace(fname,".obj","");
+ fout=fout+"out.obj";
+ Changeobjscale(ULEN,fname,fout,[]);
+);
Changeobjscale(fname,Arg):=(
+ regional(fout);
if(islist(Arg),
- Changeobjscale(ULEN,fname,fname,Arg);
+ fout=replace(fname,".obj","");
+ fout=fout+"out.obj";
+ Changeobjscale(ULEN,fname,fout,Arg);
,
Changeobjscale(ULEN,fname,Arg,[]);
);
@@ -3303,10 +3400,10 @@ Changeobjscale(Arg1,Arg2,Arg3):=(
);
);
Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=(
-//help:Changeobjscale("20mm",fnamei,fmediate);
+//help:Changeobjscale("20mm",fname,fnameout);
//help:Changeobjscale(options=["Unit=mm",[0,0,0]]);
regional(fname,fout,fmd,unit,val,options,eqL,reL,
- origin,outunit,sc,stL,nn,tmp,tmp1,tmp2);
+ origin,outunit,sc,stL,nn,tmp,tmp1,tmp2);
options=optionorg;
tmp=Divoptions(options);
eqL=tmp_5;
@@ -3355,24 +3452,27 @@ Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=(
fout=foutorg;
if(indexof(fout,".")==0,fout=fout+".obj");
tmp1=Textformat(origin,4);
- tmp1=replace(tmp1,",",";");
+ tmp1=RSform(tmp1);
cmdL=[
- "Origin="+tmp1+";",[],
- "Sc="+format(sc,6)+";",[],
- "Stv=mgetl",[Dq+fname+Dq],
- "for nn=1:size(Stv,1),Tmp=Stv(nn);",[],
- " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[],
- " Tmp=evstr(Tmp(2:4));",[],
- " Tmp=Origin+Sc*(Tmp-Origin);",[],
- " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[],
- " Stv(nn,1)=Tmp;",[],
- " end;",[],
- "end;",[],
- "mputl",["Stv",Dq+fout+Dq],
- "mputl",["['finished////']",Dq+fmd+Dq]
+ "Origin="+tmp1,[],
+ "Sc="+format(sc,6),[],
+ "Stv=readLines",[Dq+fname+Dq],
+ "cat('',file="+Dq+fout+Dq+")",[],
+ "for(nn in Looprange(1,length(Stv))){",[],
+ " if(substring(Stv[nn],1,2)=='v '){",[],
+ " Tmp1=paste('c(',substring(Stv[nn],3),')',sep='')",[],
+ " Tmp1=gsub(' ',',',Tmp1,fixed=TRUE)",[],
+ " Tmp1=gsub(',,',',',Tmp1,fixed=TRUE)",[],
+ " Tmp1=gsub('(,','(',Tmp1,fixed=TRUE)",[],
+ " Tmp=eval(parse(text=Tmp1))",[],
+ " Tmp=Origin+Sc*(Tmp-Origin)",[],
+ " Stv[nn]=paste('v ',sprintf('%8.5f %8.5f %8.5f',Tmp[1],Tmp[2],Tmp[3]),sep='')",[],
+ " }",[],
+ " cat(Stv[nn],'\n',sep='',file="+Dq+fout+Dq+",append=TRUE)",[],
+ "}",[]
];
options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26
- CalcbyS("cs",cmdL,options);
+ CalcbyR("cs",cmdL,options);
println("Scale of "+fname+" changed");
);
@@ -3463,7 +3563,7 @@ Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=(
);
if(make==1,
if(isstring(cmdL_1),
- cmdlist=MkprecommandS(); // 16.04.23
+ cmdlist=MkprecommandR();
cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]);
cmdlist=concat(cmdlist,cmdL);
tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26
@@ -3474,7 +3574,7 @@ Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=(
if(length(tmp1)==0,
tmp=append(tmp,"Wait=5");
);// 16.04.23upto
- CalcbyS("ans",cmdlist,tmp);
+ CalcbyR("ans",cmdlist,tmp);
wait(WaitUnit*100); // 16.03.18
,
vtx=cmdL_1;
@@ -3520,15 +3620,21 @@ SetObj(str):=Objname(str,["m","v"]); //17.01.12
SetObj(str,options):=Objname(str,options); //17.01.12
Objnameoptions(str,options):=Objname(str,options);// 16.11.29
Objname(str):=Objname(str,["m","v"]); // 16.11.29
-Objname(str,options):=(
+Objname(str,optionsorg):=(
//help:Objname("sample");
//help:Objname(options=["m","v"]);
//help:Setobj("sample");
//help:Setobj(options=["m","v"]);
+ regional(options);
if(length(str)>0,
OCNAME=str;
);
- OCOPTION=options;
+ options=select(optionsorg,length(#)>0); //17.12.23from
+ if(length(options)>0,
+ OCOPTION=options;
+ ,
+ OCOPTION=["m","v"];
+ ); //17.12.23upto
println([OCNAME,OCOPTION]);
);
@@ -3557,15 +3663,15 @@ Mkobjcmd(nm,fd,options):=(
side="'"+side+"'";
ffd=Fullformfunc(fd);
tmp=indexof(ffd_5,"=");
- tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
+ tmp1=RSform(substring(ffd_5,0,tmp-1));
+ tmp2=RSform(substring(ffd_5,tmp,length(ffd_5)));
tmp=indexof(ffd_6,"=");
- tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
+ tmp3=RSform(substring(ffd_6,0,tmp-1));
+ tmp4=RSform(substring(ffd_6,tmp,length(ffd_6)));
+ out=["Fun"+nm+"<- function("+tmp1+","+tmp3+"){",[]];
+ tmp=" Out=c("+ffd_2+","+ffd_3+","+ffd_4+")";
out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
+ out=concat(out,["}",[]]);
tmp1=["Objsurf",
["Fun"+nm,tmp2,tmp4,div1,div2,side]];
out=concat(out,tmp1);
@@ -3738,35 +3844,34 @@ Mkobjthickcmd(nm,fd,fnrm,optionorg):=(
ffd=Fullformfunc(fd);
tmp=indexof(ffd_5,"=");
tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
+ tmp2=RSform(substring(ffd_5,tmp,length(ffd_5)));
tmp=indexof(ffd_6,"=");
tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
+ tmp4=RSform(substring(ffd_6,tmp,length(ffd_6)));
fst=text(ffd_(2..4));
tmp=indexof(ffd_5,"=");
xst=substring(ffd_5,0,tmp-1);
tmp=indexof(ffd_6,"=");
yst=substring(ffd_6,0,tmp-1);
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
+ out=["Fun"+nm+"<- function("+tmp1+","+tmp3+"){",[]];
+ tmp=" c("+ffd_2+","+ffd_3+","+ffd_4+")";
out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
- tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]];
+ out=concat(out,["}",[]]);
+ tmp=["Fnrm"+nm+"<- function("+xst+","+yst+"){",[]];
out=concat(out,tmp);
if(fnrm=="",
tmp=Mkobjnrm(nm,fd,options);
- tmp1="Out="+tmp; // 16.05.17
+ tmp1=RSform(tmp);
tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2;
parse(tmp);
,
-// tmp1=" Out="+fnrm; // 16.04.30
- tmp1=fnrm; // 16.04.30
- if(indexof(tmp1,"Out=")==0, // 16.05.09from
- tmp1="Out="+tmp1;
- ); // 16.05.09upto
+ tmp1=RSform(fnrm);
+// if(indexof(tmp1,"Out=")==0, // 16.05.09from
+// tmp1="Out="+tmp1;
+// ); // 16.05.09upto
);
out=concat(out,[tmp1,[]]);
- out=concat(out,["endfunction",[]]);
+ out=concat(out,["}",[]]);
tmp1=["Objthicksurf",
["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]];
out=concat(out,tmp1);
@@ -3837,7 +3942,9 @@ Mkobjpolycmd(nm,pd,optionorg):=(
face_#=reverse(face_#);
);
);
- out=["Objpolyhedron",[vtx,face]];
+ tmp1=RSform(textformat(vtx,5),2);//17.12.24from
+ tmp2=RSform(textformat(face,5),2);
+ out=["Objpolyhedron",[tmp1,tmp2]];//17.12.24upto
tmp2=[]; // 16.06.10from
forall(out,tmp1,
if(islist(tmp1),
@@ -3859,7 +3966,7 @@ Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18
//help:Mkobjplatecmd("1",vtxlist);
//help:Mkobjplatecmd(options1=[0.05,-0.05]);
regional(pd,options,cmd,out,thick1,thick2,nn,pdn,
- reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3);
+ reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3,tmp4);
pd=pdorg;
if(MeasureDepth(pd)==1,pd=[pd]);
if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from
@@ -3907,7 +4014,9 @@ Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18
tmp2=concat(tmp2,tmp);
tmp=[npt,npt+npt,1+npt,1];
tmp2=append(tmp2,tmp);
- out=concat(out,["Objpolyhedron",[vtx,tmp2]]);
+ tmp3=RSform(textformat(vtx,5),2);//17.12.24from
+ tmp4=RSform(textformat(tmp2,5),2);
+ out=concat(out,["Objpolyhedron",[tmp3,tmp4]]);//17.12.24upto
);
);
tmp3="["; // 16.06.10from
@@ -3971,7 +4080,7 @@ Mkobjcrvcmd(nm,pstorg,options):=(
if(flg==1, // 16.04.23upto
if(!isstring(tmp1_1),
forall(1..length(tmp1),
- tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]];
+ tmp=["Objcurve",[pst+"[["+text(#)+"]]",thick,poly,dir]];//17.12.22
out=concat(out,tmp);
);
,
@@ -4013,7 +4122,7 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
//help:Mkobjsymbcmd("x",0.5,0,V3d,A3d);
//help:Mkobjsymbcmd("P",0.5,0,V3d,A3d);
//help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]);
- regional(symb,options,opbez,eqL,reL,stL,dtL,dt,
+ regional(symb,options,opbez,eqL,reL,stL,dtLstr,dtL,dt,
alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2);
alpha="abcdefghijklmnopqrstuvwxyz";
Alpha=Toupper(alpha);
@@ -4036,12 +4145,14 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
if(length(stL)==0,
options=concat(options,[tmp1_3]);
);
+ out=[];
tmp=parse(symb);
- if(islist(tmp),
- tmp1=select(GLIST,substring(#,0,length(symb))==symb);
- tmp1=tmp1_1;
- out=[tmp1,[]];
- dtL=symb;
+ if((islist(symb)) % (islist(tmp)), //17.12.24from
+ if(islist(tmp),
+ dtL=[symb];
+ ,
+ dtL=symb;
+ ); //17.12.24upto
,
tmp=substring(symb,0,1);
if(tmp>="a" & tmp<="z",tmp1=tmp+"s");
@@ -4058,21 +4169,22 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
);
);
if(length(symb)==2,symb=tmp1+substring(symb,1,2));
- out=[];
if(length(path)>0, // 16.04.23from
setdirectory(path);
,
-// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF";
tmp=Dirhead+"/data/fontF"; // 16.05.10
setdirectory(tmp);
); // 16.04.23upto
dtL=Readbezier(symb,opbez);
+ dtLstr=dtL; //17.12.23
setdirectory(Dirwork);
forall(dtL,dt,
tmp=dt+"=";
tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
+ if(length(tmp1)>0,//17.12.23from
+ tmp1=tmp1_1;
+ out=concat(out,[tmp1,[]]);
+ ); //17.12.23upto
);
mx=100;Mx=-100;my=100;My=-100;
forall(dtL,dt,
@@ -4086,7 +4198,7 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
center=[(mx+Mx)/2,(my+My)/2];
tmp1=[];
forall(dtL,dt,
- Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23
+ Rotatedata(dt,dt,rot,[center,"nodisp"]);
Translatedata(dt,"rt"+dt,-center,["nodisp"]);
tmp1=append(tmp1,"tr"+dt);
);
@@ -4094,14 +4206,21 @@ Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
forall(dtL,dt,
tmp=dt+"=";
tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
+ if(length(tmp1)>0, //17.12.23from
+ tmp1=tmp1_1;
+ out=concat(out,[tmp1,[]]);
+ ); //17.12.23upto
);
);
tmp1=text(options);
tmp1=substring(tmp1,1,length(tmp1)-1);
+ tmp2=""; //17.12.23from
+ forall(dtL,
+ tmp2=tmp2+","+#;
+ );
+ tmp2="list("+substring(tmp2,1,length(tmp2))+")"; //17.12.23upto
out=concat(out,[
- "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23
+ "Sd=Symb3data",[tmp2,size,0,dir,pos], //17.12.23
"Objsymb(Sd,"+tmp1+")",[]
]);
tmp2=[]; // 16.06.10from
@@ -4481,7 +4600,7 @@ Frifun(name,fun,argL,optionorg):=(
parse(nm);
);
-Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06
+Mkketcindyjs():=Mkketcindyjs("ketcindylib");
Mkketcindyjs(Arg):=(
if(isstring(Arg),
Mkketcindyjs(Arg,[])
@@ -4489,7 +4608,7 @@ Mkketcindyjs(Arg):=(
Mkketcindyjs("ketcindylib",Arg)
);
);
-Mkketcindyjs(libname,options):=(
+Mkketcindyjs(libname,options):=( //17.11.18
//help:Mkketcindyjs();
//help:Mkketcindyjs(options="Tex=y","Net=y"]);
regional(texflg,netflg,tmp,tmp1,tmp2);
@@ -4506,73 +4625,102 @@ Mkketcindyjs(libname,options):=(
netflg=Toupper(substring(tmp1,tmp,tmp+1));
);
);
- SCEOUTPUT = openfile(Fhead+".sce");
- println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS');");
- println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');");
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');");
- println(SCEOUTPUT,"Qt=char(34);");
- // 17.09.10from
- println(SCEOUTPUT,
- "Dtinit=['<script id='+Qt+'csinit'+Qt+' type='+Qt+'text/x-cindyscript'+Qt+'>'];");
- println(SCEOUTPUT,"Dtinit=[Dtinit;Dtket;'</script>'];");
- println(SCEOUTPUT,"Dthead=[];");
- println(SCEOUTPUT,"for I=1:size(Dtjs,1)");
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'<script id='))==0 then");
- println(SCEOUTPUT," Tmp=Dtjs(I,:);");
- if(netflg=="N",
+ if(isexists(Dirwork,Fhead+".html"),
+ SCEOUTPUT = openfile(Fhead+".r");
+ println(SCEOUTPUT,"Looprange<- function(a,b){");
+ println(SCEOUTPUT," if (a<=b) return(a:b)");
+ println(SCEOUTPUT," return(c())");
+ println(SCEOUTPUT,"}");
+ println(SCEOUTPUT,"setwd('"+Dirfile+"/CindyJS')");
+ println(SCEOUTPUT,"Dtket=readLines('"+libname+".txt')");
+ println(SCEOUTPUT,"setwd('"+Dirwork+"')");
+ println(SCEOUTPUT,"Dtjs=readLines('"+Fhead+".html')");
+ println(SCEOUTPUT,"Qt=rawToChar(as.raw(34))");
println(SCEOUTPUT,
- " if length(strindex(Tmp,'link rel='))>0 then");
+ "Dtinit=c(paste('<script id=',Qt,'csinit',Qt,' type=',Qt,'text/x-cindyscript',Qt,'>',sep=''))");
+ println(SCEOUTPUT,"Dtinit=c(Dtinit,Dtket,'</script>')");
+ println(SCEOUTPUT,"Dthead=c()");
+ println(SCEOUTPUT,"for(I in Looprange(1,length(Dtjs))){");
+ println(SCEOUTPUT," if(length(grep('<script id=',Dtjs[I],fixed=TRUE))==0){");
+ println(SCEOUTPUT," Tmp=Dtjs[I]");
+ if(netflg=="N",
+ println(SCEOUTPUT,
+ " if(length(grep('link rel=',Tmp,fixed=TRUE))>0){");
+ println(SCEOUTPUT,
+ " Tmp1='file:///"+Dirfile+"/CindyJS/CindyJS.css'");
+ println(SCEOUTPUT,
+ " Tmp=paste(' <link rel=',Qt,'stylesheet',Qt,' href=',Qt,Tmp1,Qt,'>',sep='')");
+ println(SCEOUTPUT,
+ " }");
+ println(SCEOUTPUT,
+ " Tmp1=length(grep('script type=',Tmp,fixed=TRUE))");
+ println(SCEOUTPUT,
+ " Tmp1=Tmp1*length(grep('Cindy.js',Tmp,fixed=TRUE))");
+ println(SCEOUTPUT,
+ " if(Tmp1>0){");
+ println(SCEOUTPUT,
+ " Tmp1='file:///"+Dirfile+"/CindyJS/Cindy.js'");
+ println(SCEOUTPUT,
+ " Tmp=paste(' <script type=',Qt,'text/javascript',Qt,' src=',Qt,Tmp1,Qt,'>',sep='')");
+ println(SCEOUTPUT,
+ " Tmp=paste(Tmp,'</script>',sep='')");
+ println(SCEOUTPUT,
+ " }");
+ );
println(SCEOUTPUT,
- " Tmp=' <link rel='+Qt+'stylesheet'+Qt+' href='+Qt+'CindyJS.css'+Qt+'>';");
+ " Dthead=c(Dthead,Tmp)");
println(SCEOUTPUT,
- " end;");
+ " }else{");
println(SCEOUTPUT,
- " if length(strindex(Tmp,['script type=','Cindy.js']))>1 then");
+ " Is=I; break");
println(SCEOUTPUT,
- " Tmp=' <script type='+Qt+'text/javascript'+Qt+' src='+Qt+'Cindy.js'+Qt+'>';");
+ " }");
println(SCEOUTPUT,
- " Tmp=Tmp+'</script>';");
+ "}");
+ println(SCEOUTPUT,"Dt=c()");
+ println(SCEOUTPUT,"for(I in Looprange(Is,length(Dtjs))){");
+ println(SCEOUTPUT," Dt=c(Dt,Dtjs[I])");
+ println(SCEOUTPUT," if(length(grep('</script>',Dtjs[I],fixed=TRUE))>0){");
+ println(SCEOUTPUT," if(length(grep('draw',Dt[1],fixed=TRUE))>0){Dtdraw=Dt}");
+ println(SCEOUTPUT," if(length(grep('keytyped',Dt[1],fixed=TRUE))>0){Dtkey=Dt}");
+ println(SCEOUTPUT," Dt=c()");
+ println(SCEOUTPUT," if(length(grep('<script id=',Dtjs[I+1],fixed=TRUE))==0){");
+ println(SCEOUTPUT," Ie=I+1;break");
+ println(SCEOUTPUT," }");
+ println(SCEOUTPUT," }");
+ println(SCEOUTPUT,"}");
+ println(SCEOUTPUT,"Dt=c(Dthead,Dtdraw,Dtkey,Dtinit)");
+ println(SCEOUTPUT,"for(I in Looprange(Ie,length(Dtjs))){");
println(SCEOUTPUT,
- " end;");
- );
- println(SCEOUTPUT," Dthead=[Dthead;Tmp];");
- println(SCEOUTPUT," else");
- println(SCEOUTPUT," Is=I;break");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"Dt=[];");
- println(SCEOUTPUT,"for I=Is:size(Dtjs,1)");
- println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),'</script>'))>0 then");
- println(SCEOUTPUT," if length(strindex(Dt(1,1),'draw'))>0 then Dtdraw=Dt,end;");
- println(SCEOUTPUT," if length(strindex(Dt(1,1),'keytyped'))>0 then Dtkey=Dt,end;");
- println(SCEOUTPUT," Dt=[];");
- println(SCEOUTPUT," if length(strindex(Dtjs(I+1,1),'<script id='))==0 then");
- println(SCEOUTPUT," Ie=I+1;break;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"Dt=[Dthead;Dtdraw;Dtkey;Dtinit];");
- println(SCEOUTPUT,"for I=Ie:size(Dtjs,1)");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Figure']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Exekc']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Tmp=strindex(Dtjs(I,1),['Button',Qt+'Parent']);");
- println(SCEOUTPUT," if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT," Dt=[Dt;Dtjs(I,1)];");
- if(texflg=="Y",
- println(SCEOUTPUT," if length(strindex(Dtjs(I,1),Qt+'cs*'+Qt))>0 then");
- println(SCEOUTPUT," Dt=[Dt;' use: ['+Qt+'katex'+Qt+'],'];");
- println(SCEOUTPUT," end;");
- );
- println(SCEOUTPUT,"end;");
- println(SCEOUTPUT,"mputl(Dt,'"+Fhead+"ketcindy.html');");
- // 17.09.10upto
- println(SCEOUTPUT,"quit()");
- closefile(SCEOUTPUT);
- kcS(PathS,Fhead+".sce",["m"]);
+ " if(length(grep('Button',Dtjs[I],fixed=TRUE))>0){");
+ println(SCEOUTPUT,
+ " if(length(grep(paste(Qt,'Figure',sep=''),Dtjs[I],fixed=TRUE))>0){next}");
+ println(SCEOUTPUT,
+ " if(length(grep(paste(Qt,'Exekc',sep=''),Dtjs[I],fixed=TRUE))>0){next}");
+ println(SCEOUTPUT,
+ " if(length(grep(paste(Qt,'Parent',sep=''),Dtjs[I],fixed=TRUE))>0){next}");
+ println(SCEOUTPUT,
+ " if(length(grep(paste(Qt,'KeTJS',sep=''),Dtjs[I],fixed=TRUE))>0){next}");
+ println(SCEOUTPUT,
+ " }");
+ println(SCEOUTPUT," Dt=c(Dt,Dtjs[I])");
+ if(texflg=="Y",
+ println(SCEOUTPUT,
+ " if(length(grep(paste(Qt,'cs*',Qt,sep=''),Dtjs[I],fixed=TRUE))>0){");
+ println(SCEOUTPUT,
+ " Dt=c(Dt,paste(' use: [',Qt,'katex',Qt,'],',sep=''))");
+ println(SCEOUTPUT,
+ " }");
+ );
+ println(SCEOUTPUT,"}");
+ println(SCEOUTPUT,"writeLines(Dt,'"+Fhead+"ketcindy.html',sep='\n')");
+ println(SCEOUTPUT,"quit()");
+ closefile(SCEOUTPUT);
+ kcR(PathR,Fhead+".r",["m"]);
+ ,
+ drawtext(mouse().xy-[0,1],"First export to CindyJS",size->24,color->[1,0,0]);
+ wait(3000);
+ );
);
Cheader():=Cheader(FdC,FheadC+"header.h");
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin
deleted file mode 100644
index c1e3ef24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin
deleted file mode 100644
index 8b094651..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin
deleted file mode 100644
index 2af2be64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin
deleted file mode 100644
index f4101b32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin
deleted file mode 100644
index 3640469b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin
deleted file mode 100644
index 0d68e6d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin
deleted file mode 100644
index 3f243306..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin
deleted file mode 100644
index 99a0cecd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin
deleted file mode 100644
index 47ac2ac9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin
deleted file mode 100644
index afb1b3bc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin
deleted file mode 100644
index 81625f07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin
deleted file mode 100644
index 1e8b41fb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin
deleted file mode 100644
index f146b511..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin
deleted file mode 100644
index bb466f84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin
deleted file mode 100644
index 80964b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin
deleted file mode 100644
index 94cfb714..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin
deleted file mode 100644
index bee787d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin
deleted file mode 100644
index f53ad324..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin
deleted file mode 100644
index 05a4fb2e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin
deleted file mode 100644
index bc02de52..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin
deleted file mode 100644
index 77aa840f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin
deleted file mode 100644
index 49978903..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin
deleted file mode 100644
index 5e3f28b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin
deleted file mode 100644
index 426023be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin
deleted file mode 100644
index 7745bccc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin
deleted file mode 100644
index d037c656..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin
deleted file mode 100644
index 13e374db..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin
deleted file mode 100644
index c16f84ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin
deleted file mode 100644
index 55b15ad7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin
deleted file mode 100644
index 9a27e094..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin
deleted file mode 100644
index 73ea5db3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin
deleted file mode 100644
index e7a00c3e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin
deleted file mode 100644
index f62af795..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin
deleted file mode 100644
index f73458f1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin
deleted file mode 100644
index 5960bb73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin
deleted file mode 100644
index 1c8fd062..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin
deleted file mode 100644
index 70566c55..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin
deleted file mode 100644
index ade04624..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
deleted file mode 100644
index 5c4f8404..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
deleted file mode 100644
index 7d645929..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
deleted file mode 100644
index 7f994b75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
deleted file mode 100644
index d92d7a5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin
deleted file mode 100644
index 71b24de1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
deleted file mode 100644
index 835d570f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
deleted file mode 100644
index 0ecbcb1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin
deleted file mode 100644
index dba77269..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin
deleted file mode 100644
index b3a3f8e4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin
deleted file mode 100644
index b2124b51..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin
deleted file mode 100644
index 08f82d89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin
deleted file mode 100644
index 2fbf6adb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin
deleted file mode 100644
index b09e4aeb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin
deleted file mode 100644
index 609d057a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin
deleted file mode 100644
index e6f70b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin
deleted file mode 100644
index 8f7d28a1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin
deleted file mode 100644
index e3bd11d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin
deleted file mode 100644
index f0ff3ef8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin
deleted file mode 100644
index a3ba57b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin
deleted file mode 100644
index 8ab45716..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin
deleted file mode 100644
index 70d3663e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin
deleted file mode 100644
index 03498fd7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin
deleted file mode 100644
index abf752c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin
deleted file mode 100644
index 1a024a4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin
deleted file mode 100644
index 589adeaf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin
deleted file mode 100644
index 7a097bea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin
deleted file mode 100644
index c4c45ddd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
deleted file mode 100644
index 9ac44969..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin
deleted file mode 100644
index f4bff84e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin
deleted file mode 100644
index 69c411ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin
deleted file mode 100644
index 5af3db83..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin
deleted file mode 100644
index 54ce1e7c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin
deleted file mode 100644
index 5a081c10..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin
deleted file mode 100644
index 17e55798..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin
deleted file mode 100644
index 1a6860c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin
deleted file mode 100644
index 7fa6e7b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin
deleted file mode 100644
index e4bb3e12..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin
deleted file mode 100644
index a300752a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin
deleted file mode 100644
index 3ed90ff9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin
deleted file mode 100644
index 3cae8493..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin
deleted file mode 100644
index e249a055..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin
deleted file mode 100644
index f7f2e09b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin
deleted file mode 100644
index 003930bd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin
deleted file mode 100644
index 1cc63d81..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin
deleted file mode 100644
index 47cd3aff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin
deleted file mode 100644
index d0ac6d1f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin
deleted file mode 100644
index 0c1ff22d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin
deleted file mode 100644
index 0ada7614..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin
deleted file mode 100644
index 80d7fa1d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin
deleted file mode 100644
index f17997ae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin
deleted file mode 100644
index 4dfc5fba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin
deleted file mode 100644
index a445388d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin
deleted file mode 100644
index 00cefe7b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin
deleted file mode 100644
index 5efa1ba3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin
deleted file mode 100644
index 31de11e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin
deleted file mode 100644
index 8bc86748..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin
deleted file mode 100644
index ebb9f45e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin
deleted file mode 100644
index 0335b185..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin
deleted file mode 100644
index 88ce57e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin
deleted file mode 100644
index f52ad0ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin
deleted file mode 100644
index 5662575f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin
deleted file mode 100644
index 38306a20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin
deleted file mode 100644
index 3c6ed6c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin
deleted file mode 100644
index deb2de0d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin
deleted file mode 100644
index 3a87071b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
deleted file mode 100644
index de85e2a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin
deleted file mode 100644
index 3a918b84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin
deleted file mode 100644
index 5b1846e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin
deleted file mode 100644
index 2b895f4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin
deleted file mode 100644
index 76baa221..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin
deleted file mode 100644
index def0bb31..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin
deleted file mode 100644
index 07c0c078..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin
deleted file mode 100644
index 5dbdc7cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin
deleted file mode 100644
index dafe1e24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin
deleted file mode 100644
index 97caac64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin
deleted file mode 100644
index 70e1971c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin
deleted file mode 100644
index 21dc66a1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin
deleted file mode 100644
index 9ccea2a3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin
deleted file mode 100644
index d191d41a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin
deleted file mode 100644
index 313c934d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin
deleted file mode 100644
index f705d5b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin
deleted file mode 100644
index 3940a613..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin
deleted file mode 100644
index c9ce9f14..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin
deleted file mode 100644
index bcaebbbd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin
deleted file mode 100644
index 4bc6206a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin
deleted file mode 100644
index 51fbfbe1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin
deleted file mode 100644
index 0fa577df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin
deleted file mode 100644
index fb13efa4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin
deleted file mode 100644
index 98ddd1a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin
deleted file mode 100644
index 6356eaed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin
deleted file mode 100644
index 0d7bd77d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin
deleted file mode 100644
index 83ba3861..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
deleted file mode 100644
index 92534466..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin
deleted file mode 100644
index 2d013048..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin
deleted file mode 100644
index 0bd11580..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
deleted file mode 100644
index 49a24e6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin
deleted file mode 100644
index 67316bd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin
deleted file mode 100644
index 1658b408..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin
deleted file mode 100644
index 95c31670..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin
deleted file mode 100644
index fcf74e3c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin
deleted file mode 100644
index f5ced4c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin
deleted file mode 100644
index 6cd9f985..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin
deleted file mode 100644
index c41eb72e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin
deleted file mode 100644
index ab493424..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin
deleted file mode 100644
index 659d412f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin
deleted file mode 100644
index f26a75b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin
deleted file mode 100644
index 1a2a931f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin
deleted file mode 100644
index 92c22101..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin
deleted file mode 100644
index 43809cb9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin
deleted file mode 100644
index 4562fd87..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin
deleted file mode 100644
index 29800896..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin
deleted file mode 100644
index dc725565..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin
deleted file mode 100644
index e1ab36e0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin
deleted file mode 100644
index 74a5a6aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin
deleted file mode 100644
index 332d7968..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin
deleted file mode 100644
index b188ade7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin
deleted file mode 100644
index 4c0a5b2d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin
deleted file mode 100644
index d7d9f480..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin
deleted file mode 100644
index bf51af8a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin
deleted file mode 100644
index 80a32401..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin
deleted file mode 100644
index b7f0d8cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin
deleted file mode 100644
index 7bfcf7ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin
deleted file mode 100644
index 2bdabcc4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin
deleted file mode 100644
index b692d55a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin
deleted file mode 100644
index 57a2ce6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin
deleted file mode 100644
index 845d40ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin
deleted file mode 100644
index 92afe9ad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin
deleted file mode 100644
index a14bcc2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin
deleted file mode 100644
index da05430c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin
deleted file mode 100644
index 18416f1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin
deleted file mode 100644
index bef4fb7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin
deleted file mode 100644
index 6bbe6d7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin
deleted file mode 100644
index 8c215679..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin
deleted file mode 100644
index e66c254e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin
deleted file mode 100644
index fb3d3b45..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin
deleted file mode 100644
index e1625a76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin
deleted file mode 100644
index 2024ea60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin
deleted file mode 100644
index c812540a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin
deleted file mode 100644
index 41d69ca5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin
deleted file mode 100644
index f10f1efc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin
deleted file mode 100644
index 32bf34e8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin
deleted file mode 100644
index d28e36ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin
deleted file mode 100644
index a7078f9c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin
deleted file mode 100644
index e4c31df3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin
deleted file mode 100644
index f532d7ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin
deleted file mode 100644
index ffebca84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin
deleted file mode 100644
index e7958ab9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin
deleted file mode 100644
index d54eb52f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin
deleted file mode 100644
index 07321262..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin
deleted file mode 100644
index a13d3f5f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin
deleted file mode 100644
index 58cef916..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin
deleted file mode 100644
index 6f557a3b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin
deleted file mode 100644
index f95c613a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin
deleted file mode 100644
index 2d1eec35..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin
deleted file mode 100644
index ac5490d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin
deleted file mode 100644
index 814b8791..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin
deleted file mode 100644
index d700ec69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin
deleted file mode 100644
index ccea3366..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin
deleted file mode 100644
index c3f667e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin
deleted file mode 100644
index 2e3c664b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin
deleted file mode 100644
index 1a2bbf95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin
deleted file mode 100644
index 903c9029..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin
deleted file mode 100644
index 5e7b5ffb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin
deleted file mode 100644
index da8b1196..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin
deleted file mode 100644
index 6ac27dcb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin
deleted file mode 100644
index a3da7dd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin
deleted file mode 100644
index 8843cde4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin
deleted file mode 100644
index c0547852..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin
deleted file mode 100644
index 8c11c2c2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin
deleted file mode 100644
index e6055b42..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin
deleted file mode 100644
index cf693dd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin
deleted file mode 100644
index 1dce322f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin
deleted file mode 100644
index e7094eb4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin
deleted file mode 100644
index 3a62be73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin
deleted file mode 100644
index 2ca583e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin
deleted file mode 100644
index 5de23ccd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin
deleted file mode 100644
index bda03ab0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin
deleted file mode 100644
index fbf6d134..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin
deleted file mode 100644
index 13f43f67..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin
deleted file mode 100644
index 10ac2f07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin
deleted file mode 100644
index cf36ca4e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin
deleted file mode 100644
index 4f608b89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin
deleted file mode 100644
index 727cf4d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin
deleted file mode 100644
index f09e463c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin
deleted file mode 100644
index c1303557..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin
deleted file mode 100644
index 1003cd61..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin
deleted file mode 100644
index be3a6f13..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin
deleted file mode 100644
index d154a0a0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin
deleted file mode 100644
index 77a99874..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin
deleted file mode 100644
index 01e1b69c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin
deleted file mode 100644
index a4872a7f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin
deleted file mode 100644
index 1e679bfc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin
deleted file mode 100644
index 5df6db75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin
deleted file mode 100644
index 042a7261..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin
deleted file mode 100644
index df1a3849..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin
deleted file mode 100644
index da18fb37..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin
deleted file mode 100644
index 10769324..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin
deleted file mode 100644
index 56a87566..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin
deleted file mode 100644
index 0acb33cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin
deleted file mode 100644
index 8d4a1b0e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin
deleted file mode 100644
index f51f7599..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin
deleted file mode 100644
index 02bd0619..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin
deleted file mode 100644
index 1036fe46..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin
deleted file mode 100644
index 6cfc7b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin
deleted file mode 100644
index 7bc8974d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin
deleted file mode 100644
index dcde7e7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin
deleted file mode 100644
index c9678719..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin
deleted file mode 100644
index aca40719..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin
deleted file mode 100644
index bfdb8495..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin
deleted file mode 100644
index 997e8178..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin
deleted file mode 100644
index 1d2063bf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin
deleted file mode 100644
index 46e49d69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin
deleted file mode 100644
index ae62bffa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin
deleted file mode 100644
index 3a609bc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin
deleted file mode 100644
index be2cbbb6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin
deleted file mode 100644
index 79ae6660..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin
deleted file mode 100644
index 3fe068d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin
deleted file mode 100644
index adc5ef97..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin
deleted file mode 100644
index ed695e7f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin
deleted file mode 100644
index 934f8764..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin
deleted file mode 100644
index e417c91f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin
deleted file mode 100644
index f9fb21b4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin
deleted file mode 100644
index faf60668..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin
deleted file mode 100644
index c0d4e9e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin
deleted file mode 100644
index 44dc173e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin
deleted file mode 100644
index d6b8e988..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin
deleted file mode 100644
index 9658e1ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin
deleted file mode 100644
index fc39c4e1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin
deleted file mode 100644
index bed3747e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin
deleted file mode 100644
index bd7b7168..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin
deleted file mode 100644
index 86ba2a9e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
deleted file mode 100644
index c4009953..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
deleted file mode 100644
index 278af331..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin
deleted file mode 100644
index 5aa6fd04..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
deleted file mode 100644
index b22043d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
deleted file mode 100644
index 64f416d6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
deleted file mode 100644
index cd356699..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 295812ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin
deleted file mode 100644
index c98b95ed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin
deleted file mode 100644
index 5a780fab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin
deleted file mode 100644
index c4a3aef7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin
deleted file mode 100644
index b3d2d402..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin
deleted file mode 100644
index 5895e254..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin
deleted file mode 100644
index c34f7e16..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin
deleted file mode 100644
index 4ba4947b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin
deleted file mode 100644
index 9c83ea64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin
deleted file mode 100644
index 0e8bacaf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin
deleted file mode 100644
index b097e980..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin
deleted file mode 100644
index 7a3c634c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin
deleted file mode 100644
index ca70656e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin
deleted file mode 100644
index 66f8e6c0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin
deleted file mode 100644
index a2bafc2c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin
deleted file mode 100644
index 131297e0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin
deleted file mode 100644
index a1a27f00..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin
deleted file mode 100644
index ab4bb5ed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin
deleted file mode 100644
index 74871299..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin
deleted file mode 100644
index e0e2dab3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin
deleted file mode 100644
index 4e974456..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin
deleted file mode 100644
index d22ea31d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin
deleted file mode 100644
index 0d86b601..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin
deleted file mode 100644
index 46fd7b7e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin
deleted file mode 100644
index f5e92c99..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin
deleted file mode 100644
index a8140128..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin
deleted file mode 100644
index be4c9157..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin
deleted file mode 100644
index 99ef9902..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin
deleted file mode 100644
index 0904029d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin
deleted file mode 100644
index 7d332cfd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin
deleted file mode 100644
index 1abdf882..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin
deleted file mode 100644
index ccfce689..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin
deleted file mode 100644
index f2e50561..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin
deleted file mode 100644
index a224f885..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin
deleted file mode 100644
index 2fee3584..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin
deleted file mode 100644
index 5f360f2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin
deleted file mode 100644
index 5aa530ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin
deleted file mode 100644
index 5e76126d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin
deleted file mode 100644
index 3fd4aeda..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin
deleted file mode 100644
index 3262007d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin
deleted file mode 100644
index a05f649a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin
deleted file mode 100644
index 1bd27535..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin
deleted file mode 100644
index 1668581e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin
deleted file mode 100644
index 3acff07e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin
deleted file mode 100644
index 06515c27..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin
deleted file mode 100644
index e0c9fdf2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin
deleted file mode 100644
index 487a5881..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin
deleted file mode 100644
index 15d7c7ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin
deleted file mode 100644
index 8356c7d3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin
deleted file mode 100644
index 8a956544..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin
deleted file mode 100644
index 06813c26..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin
deleted file mode 100644
index 53ef48f2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin
deleted file mode 100644
index a4463d6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin
deleted file mode 100644
index 35bbb30a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin
deleted file mode 100644
index 1c115eb9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin
deleted file mode 100644
index 90e83be0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin
deleted file mode 100644
index 3cc76a71..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin
deleted file mode 100644
index 51ccdf48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin
deleted file mode 100644
index bba8a4ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin
deleted file mode 100644
index 3a5e517b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin
deleted file mode 100644
index d89801c7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin
deleted file mode 100644
index f89ae3a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin
deleted file mode 100644
index cc5aea83..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin
deleted file mode 100644
index e454fb5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin
deleted file mode 100644
index 1749fad9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin
deleted file mode 100644
index 8613eba7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
deleted file mode 100644
index 437bdefd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
+++ /dev/null
@@ -1,116 +0,0 @@
-//help:start();
-//help:drawimage*(import image into the screen);
-//help:drawtext*(write letters on the screen);
-//help:Option1*(specify the style of drawing lines);
-//help:Option2*(specify the way of writing data out);
-//help:Option3*(specify the way of reading and writing data in);
-//help:Changestyle*(change the style for drawing plot data);
-//help:Workprocess*(display the process of execution);
-//help:Textformat*(convert number into string with specific number of digits);
-//help:Assign*(replace the name of variable in the string by some specific value);
-//help:Flattenlist*(flatten the list of data);
-//help:Dotprod*(inner product);
-//help:Crossprod*(exterior product);
-//help:Ptstart*(starting point of plot data);
-//help:Ptend*(ending point of plot data);
-//help:Numptcrvtenn*(number of points in plot data);
-//help:Ptcrv*(the n-th point of plot data);
-//help:Invert*(reverse the orientation of curve);
-//help:ParamonCurve*(information (parameter value etc.) of the point in plot data);
-//help:PointonCurve*(the point in the plot data specified by the given information);
-//help:Nearestptcrv*(the point in the curve which is nearest to the given point);
-//help:Nearestpt*(the points in two given curves which are nearest each other);
-//help:Derivative*(calculate the differential coefficient);
-//help:Integrate*(numerical integration);
-//help:Findarea*(calculate the area of the region surrounded by a closed curve);
-//help:Findlength*(calculate the length of curve);
-//help:Com2nd*(add the Scilab command to write out plot data into TeX);
-//help:Texcom*(write command into TeX output exactly as written here);
-//help:SetEnglish*(display Scilab messages in English language);
-//help:Setunitlen*(specify the unit length);
-//help:Setmarklen*(specify the unit length of the tickmarks on coordinate axis);
-//help:Setorigin*(specify the position the origin);
-//help:Fontsize*(specify the size of font);
- //help:Setpen*(specify the thickness of line);
-//help:Setpt*(specify the size of point);
-//help:Definecolor*(define the color for user's own use);
-//help:Setcolor*(specify the color);
-//help:Joincrvs*(join curves);
-//help:Partcrv*(cut out some part of the curve);
-//help:Pointdata*(generate the plot data of point
-//additional option : "Size=");
-//help:Listplot*(generate the plot data of a polyline);
-//help:Lineplot*(generate the plot data of line);
-//help:Plotdata*(generate the plot data of function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Paramplot*(generate the plot data of parametric function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Circledata*(generate the plot data of circle
-//additional option : "Num=", "Rng=");
-//help:Framedata*(generate the plot data of rectangle);
-//help:Ovaldata*(generate the plot data of oval shape);
-//help:Arrowhead*(generate the plot data of arrowhead
-//option : size, sharpness, shape and position in the arrow);
-//help:Arrowdata*(generate the plot data of arrow line
-//option : size of arrowhead, sharpness(angle),position of arrowhead);
-//help:Anglemark*(generate the plot data of angle mark option : size);
-//help:Paramark*(generate the plot data of right angle mark option : size);
-//help:Bowdata*(generate the plot data of bow arched curve
-//option : curvatute, size of the blank space, letter);
-//help:Deqplot*(generate the solution curve of differential equation
-//additional option : "Num=");
-//help:Hatchdata*(add hatching into some region
-// option : slope, degree, space betwen lines));
-//help:Enclosing*(generate the plot data of closed curve connecting some curves);
-//help:Shade*(add shading into some region option : depth);
-//help:Rotatepoint*(rotate the point, option : center);
-//help:Translatepoint*(pararell transport of the point);
-//help:Scalepoint*(magnify or reduce the position of point option : center);
- //help:Reflectpoint*(reflect the point);
-//help:Rotatedata*(rotate the plot data option : center);
-//help:Scaledata*(magnify or reduce the plot data option : center);
-//help:Reflectdata*(reflect the plot data);
-//help:Mksegments*(generate the plot data of all segments on the screen);
-//help:Mkcircles*(generate the plot data of all circles on the screen):
-//help:Setax*(specify the setting of coordinate axes);
-//help:Htickmark*(put a tickmark on the horizontal coordinate axis);
-//help:Vtickmark*(put a tickmark on the vertical coordinate axis);
-//help:Drwxy*(draw coordinate axes);
-//help:Addax*(specify whether coordinate axes are drawn or not);
-//help:Expr*(write mathematical expressions at a specific position);
-//help:Letter*(write letters at a specific position);
-//help:Letterrot*(write sloped letters at a specific position):
-//help:Exprrot*(write sloped mathematical expressions at a specific position):
-//help:Putpoint*(put a point at the specific position);
-//help:Bezier*(generate the plot data of Bezier curve);
-//help:Mkbezierptcrv*(generate the plot data of Bezier curve by automatically taking controll points);
-//help:CRspline*(generate the plot data of Catmull-Rom spline curve);
-//help:Beziersmooth*(generate the plot data of Bezier spline curve);
-//help:Bspline*(generate the plot data of B-spline curve);
-//help:PtonLine*(put a point on a specific line);
-//help:PtonSeg*(put a point on a specific segment);
-//help:PutonCurve*(put a point on a specific curve);
-//help:Setscaling*(specify the rate of magnification in the vertical direction);
- //help:Tabledatalight*(generate the plot data of table without geometric points
- //additional option : rules to be removed);
- //help:Tgrid*(return the coordinates of a cell in the table);
- //help:Tlistplot*(draw segment connecting two lattice points in the table);
-//help:ChangeTablestyle*(change the style for drawing rules in the table);
-//help:Tabledata*(generate the plot data of table with geometric points
- //option : usual options+rules to be removed);
-//help:Tabledata*(xLst=apply(1..5,10);yLst=apply(1..4,8);rmvL=[];);
-//help:Findcell*(return the information of a cell in the table);
-//help:Putcell*(write letters in a specific cell of the table);
-//help:Putcellexpr*(write mathematical expressions in a specific cell of the table);
-//help:Putrow*(write letters in a specific row of the table));
-//help:Putrowexpr*(write mathematical expressions in a specific row of the table);
-//help:PutcoL*(write letters in a specific column of the table));
-//help:PutcoLexpr*(write mathematical expressions in a specific column of the table));
-//help:Setwindow*(specify the area of drawing);
-//help:Defvar*(the definition of a variable is called by Scilab);
-//help:Deffun*(the definition of a function is called by Scilab);
-//help:Extractdata*(endow attribute to the imported plot data);
-//help:ReadOutData*(import the plot data);
-//help:WriteOutData*(export the plot data);
-//help:Removespace*(remove spaces of in front and behind);
-//help:end();
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names
deleted file mode 100644
index 02079ff8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2esciL5/names
+++ /dev/null
@@ -1,341 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-Bezierpt
-Bezier
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Definecolor
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-ReadOutData
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-WriteOutData
-Writetextdata
-WritetoCindy
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin
deleted file mode 100644
index 04ec361b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci
deleted file mode 100644
index c940a543..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Addcounter.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 09.09.10
-
-function Addcounter(varargin)
- global GCOUNTER;
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- GCOUNTER=GCOUNTER+N;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin
deleted file mode 100644
index 9e505d61..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci
deleted file mode 100644
index 6deb302c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Anglemark.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.06.05
-// 16.12.29 ( for too short segment )
-
-function Out=Anglemark(varargin)
- Nargs=length(varargin);
- Eps=10^(-3);
- PA=varargin(1); PB=varargin(2); PC=varargin(3);
- r = 0.5;
- if Nargs>=4
- r = varargin(4)*r;
- end
- Out=[]; // 16.12.29
- if r>min(norm(PA-PB),norm(PC-PB)) then
- return;
- end;
- Cir=Circledata(PB,r);
- Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB));
- P1=Op(2,Op(1,Tmp));
- Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB));
- P2=Op(2,Mixop(1,Tmp));
- if abs(P1-P2)<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/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin
deleted file mode 100644
index fa50bd08..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci
deleted file mode 100644
index f6ac6ef2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin
deleted file mode 100644
index bbd95348..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
deleted file mode 100644
index 9073ca6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
+++ /dev/null
@@ -1,107 +0,0 @@
-//
-// 08.06.01
-// 09.12.25
-// 12.01.07 kirikomi(Cut)
-// 12.04.16 debugged
-// 13.05.17 debugged
-// 13.11.13 debugged
-// 15.06.11 debugged
-// 15.06.14 debugged
-// 15.06.15 improved
-
-function Arrowhead(varargin)
- global Wfile FID MilliIn YaSize
- global YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0.5*YaThick;
- Cut=0;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if Tmp2(1)=="Cut" | Tmp2(1)=="cut"
- Tmp="Cut"+Tmp2(2);
- execstr(Tmp);
- end;
- else
- Str=Tmp;
- end; // 12.01.07 upto
- end;
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki
- else
- Hiraki=Tmp
- end
- end
- if Flg==2
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end;
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Ev=-1/Vecnagasa(Houkou)*Houkou;
- Nv=[-Ev(2),Ev(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*Ev
- end;
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*Ev
- end;
- A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv;
- B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv;
- if mtlb_findstr(Str,'l')~=[]
- Tmp=Listplot([A,P,B]);
- Tmp1=Unscaling(Tmp); // 13.05.17
- Drwline(Tmp1,Futosa);
- else
- C=P+(1-Cut)*((A+B)/2-P); // 12.01.05
- Tmp=Listplot([A,P,B,C,A]); // 12.01.05
- Tmp1=Unscaling(Tmp);
- Shade(Tmp1);
- Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20
- Tmp1=Unscaling(Tmp);
- Drwline(Tmp1,0.1); // 15.06.11, 15.06.14
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin
deleted file mode 100644
index 99f58621..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci
deleted file mode 100644
index 68dfe27c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowheaddata.sci
+++ /dev/null
@@ -1,89 +0,0 @@
-// 08.05.31
-// 09.12.25
-// 13.11.13 debugged
-// 14.11.02 debugged
-
-function Out=Arrowheaddata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Eps=10^(-3);
- Nargs=length(varargin);
- Out=[];
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Thickness=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Thickness;
- else
- Str=Tmp;
- end
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- Flg=Flg+1;
- end
- end
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- if I==1 // 14.11.02
- if norm(Ptend(Houkou)-Ptstart(Houkou))<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/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin
deleted file mode 100644
index dec6b519..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci
deleted file mode 100644
index 881662b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowline.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-//
-// 12.01.07 kirikomi(Cut)
-// 12.08.26 debugged
-// 15.06.11 debugged
-// 15.10.24 debugged
-
-function Arrowline(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi;
- Nargs=length(varargin)
- P=varargin(1);
- Q=varargin(2);
- Futosa=YaThick;
- Ookisa=YaSize;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Cutstr="Cut=0";
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut")
- Tmp="Cut"+Tmp2(2);
- Cutstr=Tmp;
- end
- else
- Str=Tmp; // 12.01.07 upto (debugged on 12.08.26)
- end;
- end;
- if (type(Tmp)==1) & (length(Tmp)==1)
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- Yapos=Tmp;
- end
- if Flg==3
- Futosa=Tmp;
- end
- Flg=Flg+1;
- end
- end
- R=P+Yapos*(Q-P);
- Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24
- Drwline(Listplot([P,Tmp]),Futosa);
- Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin
deleted file mode 100644
index a4ad2b27..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci
deleted file mode 100644
index 8d9201cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assign.sci
+++ /dev/null
@@ -1,202 +0,0 @@
-// 08.09.26
-// 09.09.21
-// 09.09.26
-// 09.10.01
-// 09.10.03
-// 09.10.05
-// 09.10.08
-// 09.10.09 ( format=20)
-// 09.10.15 ( added Assign('') : reset
-// 09.10.17 ( Matrix added, ? -> number returned)
-// 09.10.21 ( list supported with Makeliststr )
-// 14.10.04 format=12
-// 14.12.11 only replaced when variable name
-// 14.12.28 debugged ( tmp2, ` )
-// 15.02.18 debugged ( for list of string )
-// 15.02.19 debugged
-// 15.04.18 debugged
-
-function Out=Assign(varargin)
- global ASSIGNLIST;
- Curfmt=format();
- format(12); // 14.10.04
- Nargs=length(varargin);
- if Nargs==0
- ASSIGNLIST=list('`',Prime());
- Out=ASSIGNLIST;
- format(Curfmt(2));
- return;
- end;
- L=list('`',char(39));
- NL=length(L);
- if modulo(Nargs,2)==0
- for I=1:Nargs
- L(I+NL)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
- format(Curfmt(2));
- return;
- end;
- if Nargs==1
- Fnstr=varargin(1);
- if Fnstr==''
- L=ASSIGNLIST;
- Out=[];
- for I=1:2:length(L)
- Tmp1=L(I);
- Tmp2=L(I+1);
- if length(Tmp2)==1
- Tmp3=string(Tmp2);
- else
- Tmp3='[';
- for J=1:length(Tmp2)
- Tmp3=Tmp3+string(Tmp2(J));
- if 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/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin
deleted file mode 100644
index c6c202fa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignadd.sci
deleted file mode 100644
index d8883e6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin
deleted file mode 100644
index 3e962180..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignrep.sci
deleted file mode 100644
index 0a362b01..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin
deleted file mode 100644
index 04246041..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Assignset.sci
deleted file mode 100644
index bb77c105..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin
deleted file mode 100644
index aa6d94ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Beginpicture.sci
deleted file mode 100644
index f93e3200..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin
deleted file mode 100644
index 4de26d03..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci
deleted file mode 100644
index 7d1993eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin
deleted file mode 100644
index 53d89112..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci
deleted file mode 100644
index ac639249..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin
deleted file mode 100644
index 2c743976..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderHiddenData.sci
deleted file mode 100644
index dac12561..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin
deleted file mode 100644
index 6fb6e54e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/BorderPt.sci
deleted file mode 100644
index 12947bcd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin
deleted file mode 100644
index 1e0a62fc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderparadata.sci
deleted file mode 100644
index 2e944821..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin
deleted file mode 100644
index 2a4cc650..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci
deleted file mode 100644
index f86ddfa0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderpersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-
-function FsL__=Borderpersdata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=0.05;
- Eps__=[0.05,1]; //
- if Nargs__>=N Eps__=varargin(N); end;
- Eps__2=0.2;
- if Nargs__>=N+1 Eps__2=varargin(N+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpers(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__);
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpers(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin
deleted file mode 100644
index fb44560f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
deleted file mode 100644
index 657efc23..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Borderrawdata.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 08.09.10
-
-function FkL=Borderrawdata(varargin)
- Nall=length(varargin);
- FkL=varargin(1);
- FdL=Fullformfunc(varargin(2));
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Tmp3=Mixop(4,FdL);
- Xyzstr=[Tmp1,Tmp2,Tmp3];
- DrwS=Mixop(7,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Np=[50,50];
- if Nall>=3
- Np=varargin(3);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Um=Urg(1); UM=Urg(2);
- Vm=Vrg(1); VM=Vrg(2);
- EkL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- FkL=Mixjoin(FkL,EkL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin
deleted file mode 100644
index a5819013..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci
deleted file mode 100644
index 48154cf1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowdata.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-//
-// 08.05.22
-// 08.08.24
-
-function Pd=Bowdata(varargin)
- global BOWMIDDLE BOWSTART BOWEND
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- Cut=0;
- D=1/2*Vecnagasa(PB-PA);
- if Nargs>=3
- H=varargin(3)*D*0.2;
- else
- H=D*0.2;
- end
- H=min(H,D);
- if Nargs>=4
- Cut=varargin(4);
- end
- Ydata=MakeBowdata(PA,PB,H);
- C=Mixop(1,Ydata);
- r=Mixop(2,Ydata);
- R1=Mixop(3,Ydata);
- R2=Mixop(4,Ydata);
- Rng='R=['+string(R1)+','+string(R2)+']';
- Theta=(R1+R2)*0.5;
- BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta);
- M=Mixop(1,BOWMIDDLE);
- ThetaM=Mixop(2,BOWMIDDLE);
- BOWSTART=PA;
- BOWEND=PB;
- if Cut==0
- Pd=Circledata(C,r,Rng);
- else
- Alpha=R1; Beta=ThetaM-Cut/(2*r);
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Pd=Circledata(C,r,Rng);
- Alpha=ThetaM+Cut/(2*r); Beta=R2;
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Tmp=Circledata(C,r,Rng);
- Pd=[Pd;%inf,%inf;Tmp];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin
deleted file mode 100644
index b212c380..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci
deleted file mode 100644
index 5157c111..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowmiddle.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-//
-// 08.05.22
-// 08.05.31
-// 09.08.12
-
-function M=Bowmiddle(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- if Nargs==0
- M=BOWMIDDLE;
- return;
- end;
- if Nargs==1
- Bdata=varargin(1);
- A=Bdata(1,:);
- Dind=Dataindex(Bdata);
- Dc=size(Dind,1);
- Tmp=Dind(Dc,2);
- B=Bdata(Tmp,:);
- if Dc==1
- Tmp1=round(Tmp/2);
- else
- Tmp1=Dind(1,2);
- end;
- D=Bdata(Tmp1,:);
- B=B-A;
- D=D-A;
- Tmp1=B(1)*D(2)-D(1)*B(2);
- Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2;
- Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2;
- C=[Tmp2,Tmp3]/Tmp1+A;
- R=norm(C-A);
- B=B+A;
- V=(A+B)/2-C;
- V=V/norm(V);
- M=C+R*V;
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- H=0.2*D;
- if length(varargin)>=3
- Tmp=varargin(3);
- H=Tmp*D*0.2;
- end
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- C=Op(1,Ydata);
- R=Op(2,Ydata);
- T=(Op(3,Ydata)+Op(4,Ydata))/2;
- P=C+R*[cos(T),sin(T)];
- M=MixS(P,T);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin
deleted file mode 100644
index 7286b547..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci
deleted file mode 100644
index f57c4961..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-//
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.11.30 Directon supported
-
-function Bowname(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- Siki=varargin(Nargs);
- Nargs=Nargs-1; // 13.11.30
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0 // 13.11.30
- P=Mixop(1,BOWMIDDLE);
- elseif Nargs==1 // 13.11.30
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- Tmp=varargin(3);
- if type(Tmp)==10
- H=D*0.2;
- else
- H=Tmp*D*0.2;
- end;
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- Tmp=Bowmiddle(Ydata);
- P=Mixop(1,Tmp);
- end
- Expr(P,Dr,Siki); //13.11.30
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin
deleted file mode 100644
index b66d56a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci
deleted file mode 100644
index 8d1edf78..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bownamerot.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.12.15 tiny move supported
-// A,B type no longer supported
-
-function Bownamerot(varargin)
- global Wfile FID BOWMIDDLE BOWSTART BOWEND;
- Nargs=length(varargin);
- Eps=10^(-6);
- Flg=1;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp<0
- Flg=Tmp;
- Nargs=Nargs-1;
- end;
- Siki=varargin(Nargs);
- Nargs=Nargs-1;
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0
- P=Mixop(1,BOWMIDDLE);
- A=BOWSTART;
- B=BOWEND;
- else
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- A=Bdata(1,:);
- B=Bdata(size(Bdata,1),:);
- Tm=0; Tv=0;
- if Nargs>1 then // 13.12.15
- Tm=varargin(2);
- if Nargs>2 then
- Tv=varargin(3);
- end
- end
- end;
-// elseif Nargs==1
-// Bdata=varargin(1);
-// P=Bowmiddle(Bdata);
-// A=Bdata(1,:);
-// B=Bdata(size(Bdata,1),:);
-// else
-// A=varargin(1); B=varargin(2);
-// D=1/2*Vecnagasa(B-A);
-// Tmp=varargin(3);
-// if type(Tmp)==10
-// H=0.2*D; Siki=Tmp;
-// else
-// H=Tmp*D*0.2; Siki=varargin(4);
-// end
-// H=min(H,D);
-// Ydata=MakeBowdata(A,B,H);
-// C=Op(1,Ydata);
-// R=Op(2,Ydata);
-// T=(Op(3,Ydata)+Op(4,Ydata))/2;
-// P=C+R*[cos(T),sin(T)];
-// end;
- if A(1)>B(1)+Eps
- Tmp=A;
- A=B;
- B=Tmp;
- end;
- if Flg>0
- Tmp=B-A;
- else
- Tmp=A-B;
- end;
- Exprrot(P,Tmp,Tm,Tv,Siki);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin
deleted file mode 100644
index dd6d1a9c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci
deleted file mode 100644
index aa1216dd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcHeight.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-function CalcHeight(Hoko,Moji)
- global Wfile FID;
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(1));
- Str=['\settoheight{\Height}{'+Moji+'}'];
- Str=[Str,'\settodepth{\Depth}{'+Moji+'}'];
- if H=='n'
- Str=[Str,'\setlength{\Height}{\Depth}'];
- end
- if H=='s'
- Str=[Str,'\setlength{\Height}{-\Height}'];
- end
- if H=='c'
- Str=[Str,'\setlength{\Height}{-0.5\Height}'];
- Str=[Str,'\setlength{\Depth}{0.5\Depth}'];
- Str=[Str,'\addtolength{\Height}{\Depth}'];
- end
- if Wfile=='default'
- for I=1:size(Str,2)
- mprintf('%s',Str(I));
- end
- mprintf('%s\n','%');
- else
- for I=1:size(Str,2)
- mfprintf(FID,'%s',Str(I));
- end
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin
deleted file mode 100644
index cba76bac..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci
deleted file mode 100644
index 111e9b3b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CalcWidth.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-function CalcWidth(Hoko,Moji)
- global Wfile FID
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(2));
- if H=='e'
- D=0;
- end
- if H=='w'
- D=-1.0;
- end
- if H=='c'
- D=-0.5;
- end
- Str1='\settowidth{\Width}{'+Moji+'}';
- Tmp=string(D);
- Str2='\setlength{\Width}{'+Tmp+'\Width}';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s%s\n',Str2,'%');
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s%s\n',Str2,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin
deleted file mode 100644
index 4fdb507e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci
deleted file mode 100644
index 30c646a6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Calcfun.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.05.30
-
-function PL=Calcfun(Siki,Namae,Atai)
- execstr(Namae+'=Atai');
- Tmp='XY='+Siki;
- execstr(Tmp);
- PL=[Atai(:,1),XY(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin
deleted file mode 100644
index 5227aec7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci
deleted file mode 100644
index fcc7687c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameraCurve.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin
deleted file mode 100644
index dfe76941..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci
deleted file mode 100644
index 310ac166..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CameracoordCurve.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.09.25
-
-function Out=CameracoordCurve(Curve)
- global FocusPoint EyePoint;
- Out=[]; // 09.09.25
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=X3;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Out;Yz,Zz,Xz];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin
deleted file mode 100644
index 58fd0152..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci
deleted file mode 100644
index 1574d812..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpara.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 13.08.13
-
-function Out=Cancoordpara(P)
- global PHI THETA;
- Xz=P(1); Yz=P(2); Zz=P(3);
- X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- Z=Yz*sin(THETA)+Zz*cos(THETA);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin
deleted file mode 100644
index 57e2e49c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci
deleted file mode 100644
index b63aba5c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cancoordpers.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.08.12
-
-function Out=Cancoordpers(P)
- global EyePoint FocusPoint;
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=P(3); Yz=P(1); Zz=P(2);
- X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3;
- X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3;
- X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2;
- X=X1+FocusPoint(1);
- Y=Y1+FocusPoint(2);
- Z=Z1+FocusPoint(3);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin
deleted file mode 100644
index 0b9ca934..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci
deleted file mode 100644
index 2148c061..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Circledata.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// s:2008,05.12
-// e:2014.09.08 [A,B] supported
-// e:2014.10.24 N,R => N__, ...
-
-function P=Circledata(varargin)
- Nargs=length(varargin);
- C=varargin(1);
- if length(C)==4 then
- ra=norm(C(1:2)-C(3:4));
- C=C(1:2);
- Nop=2;
- else
- ra=varargin(2);
- Nop=3;
- end;
- R__=[0,2*%pi];
- N__=50; // Numpoints
- for I=Nop:Nargs
- Tmp=varargin(I);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- Str=Lhs+'__='+Tmp1(3,1);
- execstr(Str);
- end;
- Dt=(R__(2)-R__(1))/N__;
- T=R__(1):Dt:R__(2);
- X=C(1)+ra*cos(T);
- Y=C(2)+ra*sin(T);
- P=[X',Y'];
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin
deleted file mode 100644
index 374f6316..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci
deleted file mode 100644
index bf9572c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Clipindomain.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 09.12.31 (gsort)
-
-function OutL=Clipindomain(ObjL,FigL)
- EEps=10^(-4);
- Eps=0.01;
- Eps2=0.2;
- Bdy=Kyoukai(FigL);
- if Mixlength(Bdy)>=2
- Fbdy=Joincrvs(FigL)
- else
- Fbdy=Mixop(1,FigL);
- end;
- if Mixtype(ObjL)==1
- ObjL=Mix(ObjL)
- end;
- if Mixtype(FigL)==1
- FigL=Mix(FigL)
- end;
- OutL=[];
- for Nobj=1:Mixlength(ObjL);
- Obj=Mixop(Nobj,ObjL);
- ParL=[1,Numptcrv(Obj)];
- Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2);
- for J=1:Mixlength(Tmp)
- Tmp1=Mixop(J,Tmp);
- ParL=[ParL,Mixop(2,Tmp1)];
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- Tmp=[1];
- for I=1:length(ParL)
- Tmp1=Tmp(length(Tmp));
- Tmp2=ParL(I);
- if Tmp2-Tmp1>EEps
- Tmp=[Tmp,Tmp2];
- end;
- end;
- ParL=Tmp;
- Tmp1=ParL(length(ParL));
- Tmp2=Numptcrv(Obj);
- if abs(Tmp1-Tmp2)<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/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin
deleted file mode 100644
index 991de452..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closefile.sci
deleted file mode 100644
index f2928103..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin
deleted file mode 100644
index d8f4d64d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci
deleted file mode 100644
index da7c3850..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closeobj.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Closeobj()
- global Wfile FID;
- if Wfile~='default' then
- mclose(FID);
- FID=[];
- end;
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin
deleted file mode 100644
index 0e0991c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci
deleted file mode 100644
index 64b93e1a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepar.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.31
-
-function Closepar()
- global Wfile FID
- S='\end{minipage}'
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s',S);
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s',S);
- end
- Closephr();
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin
deleted file mode 100644
index 6bffbf74..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci
deleted file mode 100644
index 39b363f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closephr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 08.05.31
-
-function Closephr()
- global Wfile FID;
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s\n','}%');
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s\n','}%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin
deleted file mode 100644
index c0c13ad5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci
deleted file mode 100644
index a3f345cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Closepicture.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-//
-// 08.12.17
-// 09.02.20
-// 10.04.12
-
-function Closepicture(varargin)
- global Wfile FID MEMORI MEMORINow ULEN MilliIn;
- Nargs=length(varargin);
- if Nargs==0
- Drwxy();
- elseif varargin(1)==1
- Drwxy();
- end
- if Wfile=='default'
- mprintf('%s','\end{picture}}%');
- else
- mfprintf(FID,'%s','\end{picture}}%');
- end
-// MEMORI=MEMORINow*1000/2.54/MilliIn;
- Setunitlen('1cm');
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin
deleted file mode 100644
index 7504d934..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci
deleted file mode 100644
index 2abe8c90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Connectseg.sci
+++ /dev/null
@@ -1,76 +0,0 @@
-// 08.09.09
-// 08.09.10
-// 08.09.24
-
-function PlotL=Connectseg(varargin)
- Nargs=length(varargin);
- Pdata=varargin(1);
- Eps=10^(-5);
- if Nargs>=2
- Eps=varargin(2)
- end;
- if Mixtype(Pdata)~=1
- Tmp=Mixop(1,Pdata);
- Tmp=size(Tmp,2);
- Sep=%inf*ones(1,Tmp);
- Tmp=[];
- for I=1:Mixlength(Pdata)
- Tmp1=Mixop(I,Pdata);
- Tmp=[Tmp;Sep;Tmp1];
- end;
- Pdata=Tmp(2:size(Tmp,1),:);
- end;
- Din=Dataindex(Pdata);
- PlotL=[];
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:size(Din,1),:);
- N=size(Din,1);
- while N>0
- Ah=Qd(1,:);Ao=Qd(size(Qd,1),:);
- Flg=0;
- for J=1:N
- St=Din(J,1);
- En=Din(J,2);
- P=Pdata(St,:);
- Q=Pdata(En,:);
- if norm(P-Ao)<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/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin
deleted file mode 100644
index c22f1e9e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci
deleted file mode 100644
index ab4d55b5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crossprod.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.10.0
-
-function Out=Crossprod(a,b)
- if length(a)==3
- Tmp1=a(2)*b(3)-a(3)*b(2);
- Tmp2=a(3)*b(1)-a(1)*b(3);
- Tmp3=a(1)*b(2)-a(2)*b(1);
- Out=[Tmp1,Tmp2,Tmp3];
- else
- Out=a(1)*b(2)-a(2)*b(1);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
deleted file mode 100644
index 9de876b4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
deleted file mode 100644
index 07c17303..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=Crv3onsfHiddenData()
- global CRV3ONSFHIDDENDATA
- Out=CRV3ONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
deleted file mode 100644
index b2cafb90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
deleted file mode 100644
index ba168b71..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpara(Par,Fk,Tmp);
- end;
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
deleted file mode 100644
index 55aa8c1f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
deleted file mode 100644
index 5fc40737..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpers(Par,Fk,Tmp);
- end;
-
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
deleted file mode 100644
index 5269bbf1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
deleted file mode 100644
index 9d97b3ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=CrvonsfHiddenData()
- global CRVONSFHIDDENDATA
- Out=CRVONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
deleted file mode 100644
index 69551af4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
deleted file mode 100644
index a530284b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
+++ /dev/null
@@ -1,90 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-// 13.10.22 ( __ added to varibles )
-
-function OutL__=Crvonsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs__=length(varargin);
- Eps__0=10^(-4);
- Figuv__=varargin(1);
- Fbdy__=Projpara(varargin(2));
- Fd__=varargin(3); N__=4;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Mixop(1,Fd__L);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Np__=[50,50];
- if Nargs__>=N__
- Np__=varargin(N__); N__=N__+1;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__
- Eps__=varargin(N__);
- end;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- Eps__2=0.2;
- if Nargs__>=N__+1
- Eps__2=varargin(N__+1);
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Fbdxy__=Makexybdy(Fd__,Np__);
- Fbdy__uv=Mixop(8,Fd__L);
- if Fbdy__uv==[]
- Fbdy__uv=Mix(Framedata(Urg__,Vrg__));
- end;
- FigL__=Clipindomain(Figuv__,Fbdy__uv);
- CRVONSFHIDDENDATA=[];
- OutL__=[];
- for N__=1:Mixlength(FigL__)
- PtL__=Mixop(N__,FigL__);
- Tmp__=[];
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,:);
- Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')');
- Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')');
- Tmp__1=evstr(Tmp__1);
- Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')');
- Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')');
- Tmp__2=evstr(Tmp__2);
- Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')');
- Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')');
- Tmp__3=evstr(Tmp__3);
- Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]];
- end;
- Fk__=Spaceline(Tmp__);
- Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); //
- if Fxy__=='p'
- Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__);
- else
- Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
- Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1);
- end;
- if Tmp__~=[]
- OutL__=Mixjoin(OutL__,Tmp__);
- end;
- if HIDDENDATA~=[]
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
deleted file mode 100644
index 48451c6b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
deleted file mode 100644
index f3bdf700..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function OutL=Crvonsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs=length(varargin);
- Eps0=10^(-4);
- Figuv=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Xf=Mixop(2,FdL);
- Yf=Mixop(3,FdL);
- Zf=Mixop(4,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1
- Eps=[Eps,1];
- end;
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Fbdxy=Makexybdy(Fd,Np);
- Fbdyuv=Mixop(8,FdL);
- if Fbdyuv==[]
- Fbdyuv=Mix(Framedata(Urg,Vrg));
- end;
- FigL=Clipindomain(Figuv,Fbdyuv);
- CRVONSFHIDDENDATA=[];
- OutL=[];
- for N=1:Mixlength(FigL)
- PtL=Mixop(N,FigL);
- Tmp=[];
- for I=1:size(PtL,1)
- P=PtL(I,:);
- Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')');
- Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')');
- Tmp1=evstr(Tmp1);
- Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')');
- Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')');
- Tmp2=evstr(Tmp2);
- Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')');
- Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')');
- Tmp3=evstr(Tmp3);
- Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]];
- end;
- Fk=Spaceline(Tmp);
- Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp1=Mix(Fxy,Fbdxy,Xname,Yname);
- Tmp=Nohiddenpers(Par,Fk,Tmp1);
- end;
- OutL=Mixjoin(OutL,Tmp);
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
deleted file mode 100644
index 110cf0de..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
deleted file mode 100644
index 0081b20c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.10.24
-
-function Out=CrvsfHiddenData()
- global CRVSFHIDDENDATA
- Out=CRVSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin
deleted file mode 100644
index b759eff5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci
deleted file mode 100644
index a87506d2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfparadata.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 10.02.16
-
-function Out=Crvsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Parapt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpara(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
deleted file mode 100644
index af00090e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
deleted file mode 100644
index 7e24efcb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
+++ /dev/null
@@ -1,80 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-
-function Out=Crvsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Perspt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpers(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin
deleted file mode 100644
index e6820112..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci
deleted file mode 100644
index 8c2b6eee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspData()
- global CUSPDATA
- Out=CUSPDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin
deleted file mode 100644
index a31b8fa0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci
deleted file mode 100644
index 33f1d807..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspPt()
- global CUSPPT
- Out=CUSPPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin
deleted file mode 100644
index 040b5f3e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci
deleted file mode 100644
index 07cbb09b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/CuspSplitPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function PL=CuspSplitPt()
- global CUSPSPLITPT
- PL=CUSPSPLITPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
deleted file mode 100644
index 333137e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
deleted file mode 100644
index 0ea935b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
+++ /dev/null
@@ -1,179 +0,0 @@
-// 08.09.10
-// 08.09.13
-// 08.09.15
-// 08.10.10
-// 10.02.16 Eps
-// 13.10.21 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpara(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps0__=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N__=2;
- Tmp1__=Mixop(2,FdL__);
- Tmp2__=Mixop(3,FdL__);
- Tmp3__=Mixop(4,FdL__);
- Xyzstr__=[Tmp1__,Tmp2__,Tmp3__];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp1__=Uname__+'='+string(Tmp__(1));
- execstr(Tmp1__);
- Tmp1__=Vname__+'='+string(Tmp__(2))
- execstr(Tmp1__);
- Tmp2__=evstr(Xyzstr__);
- Tmp3__=Parapt(Tmp2__);
- if I__==1
- PtkL__=[Tmp2__];
- PthL__=[Tmp3__];
- else
- Tmp4__=PthL__(size(PthL__,1),:);
- if norm(Tmp3__-Tmp4__)>Eps0__
- PtkL__=[PtkL__;Tmp2__];
- PthL__=[PthL__;Tmp3__]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe__)<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/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
deleted file mode 100644
index d5f47f89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
deleted file mode 100644
index a8221f5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
+++ /dev/null
@@ -1,176 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpers(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps__0=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N=2;
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp__1=Uname__+'='+string(Tmp__(1));
- execstr(Tmp__1);
- Tmp__1=Vname__+'='+string(Tmp__(2))
- execstr(Tmp__1);
- Tmp__2=evstr(Xyzstr__);
- Tmp__3=Perspt(Tmp__2);
- if I__==1
- PtkL__=[Tmp__2];
- PthL__=[Tmp__3];
- else
- Tmp__4=PthL__(size(PthL__,1),:);
- if norm(Tmp__3-Tmp__4)>Eps__0
- PtkL__=[PtkL__;Tmp__2];
- PthL__=[PthL__;Tmp__3]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe)<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/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin
deleted file mode 100644
index d9fb0edd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci
deleted file mode 100644
index fa26b319..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Cutsf2d.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.10.15
-
-function Out=Cutsf2d(Nvec,GL,Flg)
- global THETA PHI
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin
deleted file mode 100644
index dc144378..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci
deleted file mode 100644
index 1df8e5e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dashline.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.21
-// 08.07.14
-// 10.01.02 bin remade
-// 10.11.13 Flattenlist used
-
-function Dashline(varargin)
- global MilliIn
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,0);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin
deleted file mode 100644
index b64a96c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci
deleted file mode 100644
index 82e9ac48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dataindex.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.05.31
-
-function Ndm=Dataindex(P)
- // %inf;%inf -> end
- Ndm=[];
- if P==[] return; end
- N1=1;
- Flg=0;
- for J=1:size(P,1)
- if P(J,1)==%inf
- Ndm=[Ndm;N1,J-1];
- N1=J+1;
- if P(N1,1)==%inf
- Flg=1;
- break;
- end
- end
- end
- if Flg==0
- Ndm=[Ndm;N1,size(P,1)];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin
deleted file mode 100644
index 7ffb898a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci
deleted file mode 100644
index b06ac44b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Definecolor.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 15.05.04
-
-function Definecolor(Name,Data)
- Tmp1=size(Data,2);
- if Tmp1<3 | Tmp1>4
- disp("Size of data should be 3 or 4.");
- return;
- end;
- if Tmp1==4
- Tp="cmyk"
- else
- Tp="rgb"
- end;
- Tmp="";
- for J=1:Tmp1
- Tmp=Tmp+string(Data(J));
- if J<Tmp1
- Tmp=Tmp+",";
- end;
- end
- Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}";
- Texcom(Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin
deleted file mode 100644
index a2f5f722..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Deqplot.sci
deleted file mode 100644
index 43d8ea6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin
deleted file mode 100644
index c30c8ae4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci
deleted file mode 100644
index cbffc3d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Derivative.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 09.10.04
-// 09.10.05
-// 09.10.06
-// 14.10.24 numderivative used after 5.5
-
-function Out=Derivative(varargin)
- Nargs=length(varargin);
- Out=[];
- Fs=varargin(1);
- Vv=varargin(2);
- Np=3;
- if type(Vv)==10
- Prstr=strsubst(Vv,'[','(');
- Prstr=strsubst(Prstr,']',')');
- Tmp=part(Prstr,1);
- if Tmp~='('
- Prstr='('+Prstr+')';
- end;
- deff('Out=Tmpfun'+Prstr,'Out='+Fs);
- Fs='Tmpfun'+Prstr;
- Vv=varargin(Np);
- Np=Np+1;
- end;
- Nd=[];
- if Np<=Nargs
- Nd=varargin(Np);
- end;
- Js=mtlb_findstr(Fs,'(');
- JL=mtlb_findstr(Fs,',');
- Je=mtlb_findstr(Fs,')');
- Sep=[Js(1),JL,Je];
- Fse=Fs;
- for I=1:length(Vv)
- J1=Sep(I)+1;
- J2=Sep(I+1)-1;
- Tmp1=part(Fs,J1:J2);
- Tmp2='X_'+string(I);
- Fse=strsubst(Fse,Tmp1,Tmp2);
- end;
- function Ans=Tmpf(W)
- X1=W(1);
- if length(W)>1
- X2=W(2);
- else;
- X2=%inf;
- end;
- if length(W)>2
- X3=W(3);
- else
- X3=%inf;
- end;
- Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3);
- Ans=evstr(Tmp)';
- endfunction;
- Tmp1=getversion("scilab");
- if Tmp1(1)*10+Tmp1(2)>=55 then
- Out=numderivative(Tmpf,Vv')';
- else
- Out=derivative(Tmpf,Vv')';
- end
- if Nd~=[]
- Out=Out(Nd,:)
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin
deleted file mode 100644
index 6f9d2eaf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci
deleted file mode 100644
index b6a53b62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.03.28
-
-function Out=Diagcelldata(Tb,Nc,Nr)
- Tmp=Findcell(Tb,Nc,Nr);
- C=Tmp(1);
- Dx=Tmp(2);
- Dy=Tmp(3);
- Pne=C+[Dx,Dy];
- Pnw=C+[-Dx,Dy];
- Psw=C+[-Dx,-Dy];
- Pse=C+[Dx,-Dy];
- Tmp1=Listplot(Pnw,Pse);
- Tmp2=Listplot(Pne,Psw);
- Out=list(Tmp1,Tmp2);
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin
deleted file mode 100644
index 76090b77..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci
deleted file mode 100644
index be16b473..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 11.01.07
-
-function OutL=Dividegraphics(Pd)
- if length(Pd)==0
- OutL=Pd;
- return;
- end;
- DtL=Flattenlist(Pd);
- OutL=list();
- for J=1:length(DtL)
- Dt= DtL(J);
- Ndm=Dataindex(Dt);
- for I=1:size(Ndm,1)
- Fd=Dt(Ndm(I,1):Ndm(I,2),:);
- OutL($+1)=Fd;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin
deleted file mode 100644
index f65a407d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci
deleted file mode 100644
index 36531da2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividetable.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 13.05.03
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin
deleted file mode 100644
index 921b0546..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci
deleted file mode 100644
index 5054faf2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Doscaling.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.12.25
-
-function Out=Doscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=G;
- if LOGX==1
- GLg=[log10(G(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- GLg=[GLg(:,1),log10(G(:,2))];
- end;
- Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin
deleted file mode 100644
index 9b3d417e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci
deleted file mode 100644
index fc2847c7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotfilldata.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 10.03.07 (Kosa )
-
-function ShaL=Dotfilldata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- Nargs=length(varargin);
- ShaL=[];
- Eps=0.01;
- Kakudo=45;
- Kosa=0.5;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if 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/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin
deleted file mode 100644
index 2e5b0eb1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dotprod.sci
deleted file mode 100644
index dc35fde5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin
deleted file mode 100644
index 6f85f204..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci
deleted file mode 100644
index 253d5d75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedline.sci
+++ /dev/null
@@ -1,124 +0,0 @@
-// 08.05.21
-// 08.11.26
-// 09.12.24 (Revised)
-// 09.12.29
-// 10.01.02
-// 11.05.27
-
-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=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ra=Ookisa/MilliIn;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- Mojisu=0;
- 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
- 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;
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- end
- end;
- if Mojisu>0
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin
deleted file mode 100644
index 5576b57e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci
deleted file mode 100644
index c4d9b86a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dottedlineold.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// 08.05.21
-// 08.11.26
-
-function Dottedline(varargin)
- global Wfile FID MilliIn;
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=0.02*0.5;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- CL=[];
- Nk=4;
- Tmp=Framedata([0,0],Ookisa/2);
- CL=Tmp;
- for N=1:Nall
- Pdata=varargin(N);
- if Mixtype(Pdata)==1
- Pdata=MixS(Pdata);
- end
- for II=1:Mixlength(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- if I==Nten-1
- if Vecnagasa(P-Data(1,:))<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/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
deleted file mode 100644
index 14cf5d76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
deleted file mode 100644
index 3a06be00..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.10
-// 08.09.15
-// 08.10.10
-// 10.09.03
-
-function OutL=Dropnumlistcrv(QdL,Eps)
- Eps0=10^(-6); //
- if Mixtype(QdL)==1
- PdL=list(QdL);
- else
- PdL=QdL;
- end;
- OutL=[];
- for I=1:Mixlength(PdL)
- Pd=Op(I,PdL);
- PtL=[1];
- P=Pd(1,:);
- for K=2:size(Pd,1)-1 //
- if norm(P-Pd(K,:))>Eps
- PtL=[PtL,K];
- P=Pd(K,:);
- end;
- end;
- // PtL=[PtL,size(Pd,1)];
- K=size(Pd,1) //
- if norm(P-Pd(K,:))>Eps0 //
- PtL=[PtL,K]; //
- end; //
- if length(PtL)==1
- PtL=[];
- end;
- OutL=Mixadd(OutL,PtL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin
deleted file mode 100644
index 155b2072..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci
deleted file mode 100644
index 84fd6daa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Droppoint.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin
deleted file mode 100644
index 86d3110c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci
deleted file mode 100644
index 60f0da1a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwline.sci
+++ /dev/null
@@ -1,66 +0,0 @@
-// 08.05.21
-// 11.05.25
-
-function Drwline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit;
- Nall=length(varargin);
- Thick=PenThick;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Setpen(Tmp);
- Nall=Nall-1;
- end;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp);
- for II=1:length(Pdata) //11.05.25
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Mojisu=0;
- Tmp=Data(1,:);
- for I=1:size(Data,1)
- Tmp=Data(I,:);
- X=sprintf('%5.5f',Tmp(1));
- Y=sprintf('%5.5f',Tmp(2));
- Pt='('+X+','+Y+')';
- if I==1 then
- Str='\polyline'+Pt;
- else
- Str=Pt;
- end
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- if Mojisu~=0
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end;
- end;
- end;
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end;
- end;
- Setpen(Thick/PenThickInit);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin
deleted file mode 100644
index 02e88bd7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci
deleted file mode 100644
index 5df4a877..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwpt.sci
+++ /dev/null
@@ -1,142 +0,0 @@
-//
-// 08.05.31
-// 09.12.25
-// 10.01.01
-// 11.05.26 (for pdflatex)
-
-function Drwpt(varargin)
- global Wfile FID TenSize TenSizeInit MilliIn;
- Nargs=length(varargin);
- All=Nargs;
- Tmp=varargin(All);
- Iro=[0,0,0,1];
- Iroflg=0;
- if type(Tmp)==10 then
- Iro=Ratiocmyk(Tmp);
- Iroflg=1;
- All=All-1;
- end
- Tmp=varargin(All);
- Kosa=1;
- if type(Tmp)==1 & length(Tmp)==1
- Kosa=Tmp; All=All-1;
- end;
- Ra=TenSize*1000/2.54/MilliIn;
- if Iroflg>0
- Str='{\color[cmyk]{';
- for J=1:4
- Str=Str+string(Kosa*Iro(J));
- if J<4 then
- Str=Str+',';
- end
- end
- Str=Str+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end;
- Mojisu=0;
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end
- end;
- Str="";
- if Iroflg>0
- Str='}';
- end;
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
- Mojisu=0;
- if Iroflg>0
- Str='{\color[cmyk]{';
- for J=1:4
- Str=Str+string(Iro(J));
- if J<4 then
- Str=Str+',';
- end
- end
- Str=Str+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end;
- Mojisu=0;
- end;
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end
- end
- Str="%";
- if Iroflg>0
- Str='}%';
- end;
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin
deleted file mode 100644
index 6d275fab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci
deleted file mode 100644
index b091754f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Drwxy.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-function Drwxy(varargin)
- global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN;
- Nargs=length(varargin)
- Tmp=mtlb_findstr(ZIKU,'arrow');
- if Tmp~=[]
- Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE);
- Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE);
- else
- Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)]));
- Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX]));
- end;
- Letter([XMAX,GENTEN(2)],XPOS,XNAME);
- Letter([GENTEN(1),YMAX],YPOS,YNAME);
- Letter(GENTEN,OPOS,ONAME);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin
deleted file mode 100644
index e3e99cfd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci
deleted file mode 100644
index 9b67e366..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Embed.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 09.11.21
-// 09.11.26
-
-function Out=Embed(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- if Mixtype(Pd3)==1
- Pd3=list(Pd3);
- elseif Mixtype(Pd3)==3
- Tmp=list();
- for I=1:length(Pd3)
- Tmp=Mixjoin(Tmp,Pd3(I));
- end;
- Pd3=Tmp;
- end;
- Tmpf=varargin(2);
- if type(Tmpf)==10
- Tmp=varargin(3);
- Tmp1=strsubst(Tmp,'[','(');
- Vstr=strsubst(Tmp1,']',')');
- deff('Z=Tmpfn'+Vstr,'Z='+Tmpf);
- else
- Tmpfn=Tmpf;
- end;
- Out=list();
- for I=1:length(Pd3)
- PD=Pd3(I);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Tmpfn(P(1),P(2));
- Ans=[Ans;Tmp];
- end;
- Out($+1)=Ans;
- end;
- if length(Out)==1
- Out=Out(1);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin
deleted file mode 100644
index 6a5a9096..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci
deleted file mode 100644
index bfc191b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Enclosing.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 08.05.31
-// 10.12.04
-// 16.12.05 to make it a closed curve
-
-function AnsL=Enclosing(varargin)
- global MilliIn;
- Eps=10^(-7); // 12.05
- Nargs=length(varargin);
- P=varargin(1);
- if Mixtype(P)==2
- Tmp=Op(1,P);
- if type(Tmp)~=1 | length(Tmp)~=1
- AnsL=EnclosingS(P,varargin(2:Nargs));
- AnsL=Joincrvs(AnsL) // 10.12.04
- end
- end;
- Tmp1=Op(1,AnsL);
- Tmp2=Op(size(AnsL,1),AnsL);
- if norm(Tmp2-Tmp1)>Eps then // 12.05
- AnsL=[AnsL;Tmp1];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin
deleted file mode 100644
index a5f0596e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci
deleted file mode 100644
index cded7ef2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/EnclosingS.sci
+++ /dev/null
@@ -1,126 +0,0 @@
-// 08.05.31
-// 08.11.12
-// 09.10.12
-// 09.10.14
-// 15.04.10
-
-function AnsL=EnclosingS(varargin)
- global MilliIn;
- Nargs=length(varargin);
- AnsL=[];
- PdataL=varargin(1);
- Nall=length(PdataL);
- Eps=10^(-3);
- EEps=0.1;
- S=[];
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- S=Tmp;
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Eps=Tmp;
- Flg=Flg+1
- else
- EEps=Tmp
- end
- end
- end
- F=Op(1,PdataL); G=Op(Nall,PdataL);
- KL=IntersectcrvsPp(F,G);
- if length(KL)==1
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- end
- if length(KL)==0
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- else
- Tmp=Nearestpt(G,F);
- P=Op(3,Tmp);
- T1=Op(4,Tmp);
- end
- end
- if length(KL)>1 // 15.04.10
- if S==[]
- disp('No Start Point');
- return
- end;
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- Tmp=norm(P-S);
- for I=2:length(KL)
- Tmp1=Op(1,Op(I,KL));
- Tmp2=norm(Tmp1-S);
- if 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/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin
deleted file mode 100644
index ceb0ffb6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Endpicture.sci
deleted file mode 100644
index ff4a3c43..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin
deleted file mode 100644
index 38c7da86..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepara.sci
deleted file mode 100644
index b9c86eef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin
deleted file mode 100644
index 775dd55e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci
deleted file mode 100644
index 15ddd0a8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Evlptablepers.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.09.21
-// 13.11.01 ( __ added to varibles )
-
-function [Zval__,Xval__,Yval__]=Evlptablepers(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp__1=Mixop(3,MS__);
- if type(Tmp__1)==1 & length(Tmp__1)==1
- Ndv__=Tmp__1;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__-1);
- Dv__=(V2__-V1__)/(Ndv__-1);
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v__1=v__-Eps__/2; v__2=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__v=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmp__v,Uname__,'u__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__v,Uname__,'u__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__u=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmp__u,Vname__,'v__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__u,Vname__,'v__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin
deleted file mode 100644
index 44e39527..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci
deleted file mode 100644
index 2a4d1491..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Execmd.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.16
-// 10.02.24
-
-function Execmd(StrL)
- for I=1:length(StrL)
- execstr(Op(I,StrL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin
deleted file mode 100644
index b58e53fd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci
deleted file mode 100644
index 5b9df24b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Expr.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Expr(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu='$'+varargin(I+2)+'$';
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin
deleted file mode 100644
index 17904d7a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci
deleted file mode 100644
index d51dfa91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Exprrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Exprrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu='$'+varargin(N)+'$';
- Tv=1/norm(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/norm(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin
deleted file mode 100644
index 5095cc06..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci
deleted file mode 100644
index ae0bea54..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 09.10.29
-// 10.02.07 debugged
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CLadd)//
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
deleted file mode 100644
index ea9738c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
deleted file mode 100644
index 7dc8bef1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// NEW
-// Faceremovaldata
-// 09.10.24
-// 09.10.26
-// 09.10.27
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin
deleted file mode 100644
index 84ab9833..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci
deleted file mode 100644
index 0ed2f249..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata.sci
+++ /dev/null
@@ -1,154 +0,0 @@
-/////////
-// 09.10.29
-// 11.01.13 (HiddenL) remodified 110122
-// 13.03.30 (HiddenL) debugged 140330
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- EdgeL=list(); // from 13.03.30
- for K=1:length(VELHI)
- Edge=Op(1,VELHI(K));
- P=Edge(1); Q=Edge(2);
- if norm(P-Q)>Eps then
- EdgeL($+1)=Edge;
- end
- end
- for K=1:length(EdgeL)
- Edge=EdgeL(K); //
- P=Edge(1); Q=Edge(2);
- Cflg=0;
- for J=K+1:length(EdgeL)
- Ej=EdgeL(J); //
- Pj=Ej(1); Qj=Ej(2);
- if norm(Crossprod(Q-P,Qj-Pj))>Eps then
- continue
- end
- if norm(Q-Pj)<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/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin
deleted file mode 100644
index 82821a8b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Facesdata0.sci
deleted file mode 100644
index c300cf6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin
deleted file mode 100644
index ade40fbf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci
deleted file mode 100644
index 062fcc5c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Findcell.sci
+++ /dev/null
@@ -1,127 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.14
-// 10.01.12
-// 10.01.13
-// 10.01.14
-
-function Out=Findcell(varargin)//TbL,Nrg,Mrg
- Nargs=length(varargin);
- TbL=varargin(1);
- Ag=varargin(2);
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- if type(Ag)==10
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- Mrg=eval(Rstr);
- if Nargs>=3
- Ag=varargin(3);
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg2=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg2=Nrg2+Tmp*26^Tmp1;
- end;
- Nrg=[Nrg,Nrg2];
- Mrg=[Mrg,eval(Rstr)];
- end;
- else
- Nrg=varargin(2);
- Mrg=varargin(3);
- end;
- if length(Mrg)==1
- m1=Mrg; m2=m1+1;
- else
- m1=Mrg(1); m2=Mrg(2);
- end;
- if length(Nrg)==1
- n1=Nrg; n2=n1+1;
- else
- n1=Nrg(1); n2=Nrg(2);
- end;
- n1=n1+1; n2=n2+1;
- m1=m1+1; m2=m2+1;
- Hind=TbL(2);
- Vind=TbL(3);
- HL=Mixsub(TbL(2),TbL(1));
- Tmp1=Op(1,TbL(4));
- Tmp2=Op(2,TbL(4));
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- VL=Mixsub(TbL(3),TbL(1));
- Tmp1=Op(1,TbL(5));
- Tmp2=Op(2,TbL(5));
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=TbL(6);
- Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]);
- Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]);
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]);
- Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]);
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=HL(n1);
- if type(Tmp)==1
- H1=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H1=Tmp1(1,1);
- end;
- Tmp=HL(n2);
- if type(Tmp)==1
- H2=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H2=Tmp1(1,1);
- end;
- Tmp=VL(m1);
- if type(Tmp)==1
- V1=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V1=Tmp1(1,2);
- end;
- Tmp=VL(m2);
- if type(Tmp)==1
- V2=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V2=Tmp1(1,2);
- end;
- Pt=[(H1+H2)/2,(V1+V2)/2];
- High=(V1-V2)/2;
- Wide=(H2-H1)/2;
- Out=list(Pt,Wide,High);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin
deleted file mode 100644
index 31e5d594..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci
deleted file mode 100644
index 903679ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Flattenlist.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 10.11.13
-
-function Out=Flattenlist(varargin)
- Out=list();
- for N=1:length(varargin)
- D=varargin(N);
- if type(D)~=15
- Out($+1)=D;
- else
- for I=1:length(D)
- Ds=D(I);
- Tmp=Flattenlist(Ds);
- Out=lstcat(Out,Tmp);
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin
deleted file mode 100644
index 10387e38..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci
deleted file mode 100644
index 218b599f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fontsize.sci
+++ /dev/null
@@ -1,54 +0,0 @@
-function Fontsize(Ookisa)
- global Wfile FID;
- Str='%';
- Ucode=ascii(Ookisa);
- S=char(Ucode(1));
- if S=='n'
- Str='\normalsize%';
- end
- if S=='s'
- if length(Ucode)==1
- Tmp='';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='s'
- Str='\scriptsize%';
- else
- Str='\small%';
- end
- end
- if S=='f'
- Str='\footnotesize%';
- end
- if S=='t'
- Str='\tiny%';
- end
- if S=='l'
- Str='\large%';
- end
- if S=='L'
- if length(Ucode)==1
- Tmp='a';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='a'
- Str='\Large%';
- else
- Str='\LARGE%';
- end
- end
- if S=='h'
- Str='\huge%';
- end
- if S=='H'
- Str='\Huge%';
- end
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin
deleted file mode 100644
index e718a4ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci
deleted file mode 100644
index af259244..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriercoeff.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.03.13
-
-function Out=Fouriercoeff(Fn,T,Ch,K)
- Eps=10^(-5);
- L=T/2;
- Tmp1='Out=FUNC(x)';
- if Ch=='c'
- Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)';
- else
- Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)';
- end;
- deff(Tmp1,Tmp2);
- Out=10*intg(-0.1,0.1,FUNC);
- if K==0
- Out=Out/2;
- end;
- if abs(Out)<Eps
- Out=0;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin
deleted file mode 100644
index 59f91f6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/FouriercoeffL.sci
deleted file mode 100644
index 2d0d840b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin
deleted file mode 100644
index bf840511..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fouriersum.sci
deleted file mode 100644
index 6182f4a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin
deleted file mode 100644
index 478d4e52..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fracform.sci
deleted file mode 100644
index 437ff122..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin
deleted file mode 100644
index 442df592..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Framedata.sci
deleted file mode 100644
index 071f7381..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin
deleted file mode 100644
index b86c79cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Fullformfunc.sci
deleted file mode 100644
index 97ddae5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin
deleted file mode 100644
index 5ada2529..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci
deleted file mode 100644
index 3d17995e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gaiseki.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function G=Gaiseki(a,b)
- if length(a)==3
- Tmp=[a(2)*b(3)-a(3)*b(2),...
- a(3)*b(1)-a(1)*b(3),...
- a(1)*b(2)-a(2)*b(1)];
- else
- Tmp=a(1)*b(2)-a(2)*b(1);
- end;
- G=Tmp;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin
deleted file mode 100644
index 9dbd0923..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci
deleted file mode 100644
index ca4e0d2a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Getcounter.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Getcounter()
- global GCOUNTER;
- Out=GCOUNTER;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin
deleted file mode 100644
index b99800fe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci
deleted file mode 100644
index 5395d885..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Gettrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Gettrace();
- global TRACEDATA;
- Out=TRACEDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin
deleted file mode 100644
index d688039f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci
deleted file mode 100644
index 236287ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hatchdata.sci
+++ /dev/null
@@ -1,141 +0,0 @@
-// 08.05.21
-// 09.10.05
-// 09.12.25
-// 10.01.20
-// 10.02.01
-// 10.11.04 ( debugged 83 )
-
-function ShaLs=Hatchdata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- ShaL=[];
- Nargs=length(varargin);
- Kakudo=45;
- Kankaku=0.125*1000/2.54/MilliIn;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if 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/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin
deleted file mode 100644
index fed0c2c1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Hexahedrondata.sci
deleted file mode 100644
index 7bc05ed9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin
deleted file mode 100644
index 09289136..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/HiddenWireData.sci
deleted file mode 100644
index 2ead122d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin
deleted file mode 100644
index 86cae9a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci
deleted file mode 100644
index ab8a54b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin
deleted file mode 100644
index 6334287e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci
deleted file mode 100644
index ae02fee1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ImplicitData.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 08.10.10 (Name)
-
-function Out=ImplicitData()
- global IMPLICITDATA
- Out=IMPLICITDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin
deleted file mode 100644
index 6336bf4c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci
deleted file mode 100644
index b0715484..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Implicitplot.sci
+++ /dev/null
@@ -1,61 +0,0 @@
-// 08.09.09
-// 08.09.20
-// 13.10.19 ( __ added to variables )
-
-function Out__=Implicitplot(varargin)
- Eps__=10^(-4);
- Nargs__=length(varargin);
- Fstr__=varargin(1);
- if Mixtype(Fstr__)~=1
- MS__=Fstr__;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- elseif type(Fstr__)==10
- MS__=[];
- for I__=1:Nargs__
- MS__=Mixadd(MS__,varargin(I__));
- end;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- else
- Zval__=varargin(1);
- Xval__=varargin(2);
- Yval__=varargin(3);
- end;
- Out__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- if abs(VL__(K__))<=Eps__
- QL__=[QL__;PL__(K__,:)];
- elseif VL__(K__)>Eps__
- if VL__(K__+1)<-Eps__
- Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)...
- + VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end
- else
- if VL__(K__+1)>Eps__
- Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)...
- - VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end;
- end;
- end;
- if size(QL__,1)==2
- Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)];
- end;
- end;
- end;
- Out__=Out__(2:size(Out__,1),:);
- if size(Out__,1)>0
- Out__=Connectseg(Out__);
- else
- Out__=[];
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin
deleted file mode 100644
index da2db1f4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci
deleted file mode 100644
index 9dacd30c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/InWindow.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Rx=InWindow(PA)
- global XMIN XMAX YMIN YMAX
- Eps=10.0^(-6);
- X=PA(1); Y=PA(2);
- if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps
- Rx='i'
- else
- Rx='o'
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin
deleted file mode 100644
index ac64c46b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Initangle.sci
deleted file mode 100644
index d5e09ff4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin
deleted file mode 100644
index b26672c0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Integrate.sci
deleted file mode 100644
index abd3377f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin
deleted file mode 100644
index 3ff5a305..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvs.sci
deleted file mode 100644
index 59b4fdcc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
deleted file mode 100644
index 348451cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
deleted file mode 100644
index a1218d06..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
deleted file mode 100644
index 3d7069f0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
deleted file mode 100644
index 2a2e5b6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin
deleted file mode 100644
index bebf87c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Intersectlines.sci
deleted file mode 100644
index ed92a5aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin
deleted file mode 100644
index 5f0cad0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/IntersectselfPp.sci
deleted file mode 100644
index 4b246e95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin
deleted file mode 100644
index e3bc6bf4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invdashline.sci
deleted file mode 100644
index bf6f976f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin
deleted file mode 100644
index 2e870385..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci
deleted file mode 100644
index 9f9f9d95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invert.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.31
-
-function OutL=Invert(Pd)
- OutL=Pd(size(Pd,1):-1:1,:);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin
deleted file mode 100644
index c92f5024..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci
deleted file mode 100644
index 4d7863b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invparapt.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.07.11
-// 08.08.17
-// 09.10.31
-// 09.11.12
-
-function Out=Invparapt(varargin)
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & size(Tmp)==1
- Ph=Tmp;
- Fh=varargin(2);
- else
- Fh=Projpara(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- T2=S0;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin
deleted file mode 100644
index 073bbdca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci
deleted file mode 100644
index c2c35355..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Invperspt.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.08.12
-// 09.10.31
-// 09.11.12
-
-function Out=Invperspt(varargin)
- global FocusPoint EyePoint;
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Ph=varargin(1);
- Fh=varargin(2);
- else
- Fh=Projpers(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- Phc=Cancoordpers([Ph,0]);
- Ahc=Cancoordpers([Ah,0]);
- Bhc=Cancoordpers([Bh,0]);
- Vp=Phc-EyePoint;
- Va=Ak-EyePoint;
- AB=Bk-Ak;
- Cp=Crossprod(Vp,AB);
- Nmr=Crossprod(Va,Vp);
- Mx=max(abs(Cp));
- if abs(Cp(1))==Mx
- T2=Nmr(1)/Cp(1);
- elseif abs(Cp(2))==Mx
- T2=Nmr(2)/Cp(2);
- else
- T2=Nmr(3)/Cp(3);
- end;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin
deleted file mode 100644
index b44d17eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci
deleted file mode 100644
index 04aaf4eb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joincrvs.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.31
-// 08.08.22
-// 08.09.14
-// 08.09.20
-// 08.10.27
-// 11.06.25
-
-function PtL=Joincrvs(varargin)
- Nall=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- Nall=Nall-1;
- end;
- QdL=list();
- for I=1:Nall
- QdL($+1)=varargin(I); // 11.06.25
- end;
- QdL=Flattenlist(QdL); // 11.06.25
- if length(QdL)==0
- PtL=[];
- return;
- end;
- PtL=[Mixop(1,QdL)];
- for I=2:Mixlength(QdL)
- Qd=QdL(I);
- if Numptcrv(Qd)<=1 // 11.06.25
- continue;
- end;
- P=Ptend(PtL)
- S=Ptstart(PtL);
- Q=Ptstart(Qd);
- R=Ptend(Qd);
- MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R));
- if MN==norm(P-R)
- Qd=Invert(Qd);
- elseif MN==norm(S-Q)
- PtL=Invert(PtL);
- elseif MN==norm(S-R);
- PtL=Invert(PtL);
- Qd=Invert(Qd);
- end;
- if MN>Eps
- PtL=[PtL;Qd];
- else
- PtL=[PtL;Qd(2:size(Qd,1),:)];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin
deleted file mode 100644
index c7b88175..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci
deleted file mode 100644
index 78cd46e5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Joingraphics.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-// 11.11.02 (for list structure)
-
-function P=Joingraphics(varargin)
- Ls=Flattenlist(varargin);
- N=length(Ls);
- Tp=Ls(N);
- Listflg=0;
- if type(Tp)==10
- Tmp=part(Tp,1);
- if Tmp=="L"|Tmp=="l"
- Listflg=1
- end;
- N=N-1;
- Ls=Mixsub(1:N,Ls);
- end;
- if Listflg==1
- P=Ls
- else
- P=[];
- for I=1:N
- Tmp=Ls(I);
- P=[P;%inf,%inf;Tmp];
- end;
- P=P(2:size(P,1),:)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin
deleted file mode 100644
index 140d9028..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci
deleted file mode 100644
index bbe02e62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-// 08.07.08 PHI,THETA,FocusPoint,EyePoint;
-// 08.08.08
-// 08.08.31
-// 08.09.18
-// 09.10.09 ASSIGNLIST
-// 09.12.25 SCALING
-// 10.04.16 TEXFOR
-// 13.05.19 funcprot(0)
-// 13.03.05 MARKLEN instead of MEMORI
-
-function Ketinit()
- global THISVERSION
- global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX
- global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE
- global ULEN MilliIn PenThick PenThickInit ZIKU
- global MEMORI MEMORIInit MEMORINow GENTEN
- global MARKLEN MARKLENInit MARKLENNow
- global YaSize YaAngle YaPosition YaThick YaStyle
- global PHI THETA FocusPoint EyePoint ASSIGNLIST
- global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST
- funcprot(0); // 2013.05.19
- Setversion();
- XMIN=-5 ;XMAX=5;
- YMIN=-5 ; YMAX=5;
- ZIKU='line'; ARROWSIZE=1;
- XNAME='$x$' ; XPOS='e';
- YNAME='$y$' ; YPOS='n';
- ONAME='O' ; OPOS='sw';
- ULEN='1cm';
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- Wfile='default';
- MEMORI=0.05;
- MEMORIInit=MEMORI;
- MEMORINow=MEMORI;
- MARKLEN=0.05;
- MARKLENInit=MARKLEN;
- MARKLENNow=MARKLEN;
- GENTEN=[0,0];
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- PHI=30*%pi/180;
- THETA=60*%pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- ASSIGNLIST=list('`',char(39));
- SCALEX=1;
- SCALEY=1;
- LOGX=0;
- LOGY=0;
- TEXFORLEVEL=0;
- TEXFORLAST=list();
- endfunction;
- \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin
deleted file mode 100644
index f5871542..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci
deleted file mode 100644
index c12b721e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kouten.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 09.06.01 (same as 05.19)
-
-function Out=Kouten(PA,V,P,Q);
- Eps=10.0^(-6);
- A1=PA(1); A2=PA(2);
- V1=V(1); V2=V(2);
- P1=P(1); P2=P(2);
- U1=Q(1)-P1; U2=Q(2)-P2;
- Tmp=norm(P-Q)*norm(V);
- if Tmp==0
- Out=[%inf,-%inf];
- return
- end
- D=U1*V2-U2*V1;
- if abs(D)/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/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin
deleted file mode 100644
index f5b67546..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci
deleted file mode 100644
index 82cf1e2c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/KoutenList.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.18
-// 08.05.20
-// 08.06.02
-
-function TenL=KoutenList(PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=[];
- for N=1:Mixlength(Bdy)
- KL=Op(N,Bdy);
- for K=1:size(KL,1)-1
- P=KL(K,:); Q=KL(K+1,:);
- if P~='/' & Q~='/'
- Tmp=Kouten(PA,V,P,Q);
- if Tmp~=[%inf,-%inf]
- Ten=Mixadd(Tmp,N);
- Flg=0;
- NN=Mixlength(TenL);
- I=1;
- while Flg==0 & I<=NN
- Tmp=Op(I,TenL);
- if Op(1,Ten)<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/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin
deleted file mode 100644
index be93baf3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Koutenseg.sci
deleted file mode 100644
index 371807fa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin
deleted file mode 100644
index 7535fd2e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukannozoku.sci
deleted file mode 100644
index 0e38dae7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin
deleted file mode 100644
index 656dd42d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci
deleted file mode 100644
index 4e38175f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin
deleted file mode 100644
index a45aa2e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci
deleted file mode 100644
index a07a89d1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyorihensuu.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-function Kyorihensuu(varargin)
- if length(varargin)==0
- FL='default';
- else
- FL=varargin(1);
- if FL==''
- FL='tmp.tex'
- end
- end
- StrM=[...
- '\newlength{\Width}%',...
- '\newlength{\Height}%',...
- '\newlength{\Depth}%'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin
deleted file mode 100644
index 07c938a3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci
deleted file mode 100644
index 4090c2da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kyoukai.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 08.05.20
-// 08.05.30
-// 08.09.19
-// 08.10.26
-// 09.01.15 "e"
-// 09.05.18
-// 09.12.05
-// 16.11.03 Eps=10^(-5)
-// 16.12.05 Eps=10^(-7)
-
-function PLall=Kyoukai(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Eps0=10^(-7);
- DataL=[];
- for I=1:Nargs
- Tmp=varargin(I);
- if Mixtype(Tmp)==1
- Tmp1=MixS(Tmp);
- DataL=Mixadd(DataL,Tmp1);
- end
- if Mixtype(Tmp)==2
- DataL=Mixadd(DataL,Tmp);
- end
- if Mixtype(Tmp)==3
- DataL=Mixjoin(DataL,Tmp);
- end
- end;
- Eps=10.0^(-4);
- PLall=[];
- Sflg=0;
- N=Mixlength(DataL);
- for I=1:N
- Data=Op(I,DataL);
- Tmp=Op(Mixlength(Data),Data);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- elseif type(Tmp)==10
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- else
- Rg='c' ; Nd=Mixlength(Data);
- end;
- for J=1:Nd
- Tmp=Op(J,Data);
- if type(Tmp)==10
- Rg=Tmp;
- continue
- end
- Points=Tmp;
- P1=Ptstart(Points);
- P2=Ptend(Points);
- if J==1
- PL=Points;
- Pfirst=P1;
- Plast=P2;
- if Nd>=2
- Tmp=Op(2,Data);
- P=Ptstart(Tmp);
- Q=Ptend(Tmp);
- if norm(P2-P)>Eps & norm(P2-Q)>Eps
- Tmp=size(PL,1);
- PL=PL(Tmp:-1:1,:);
- Pfirst=Ptstart(PL);
- Plast=Ptend(PL);
- end;
- end
- else
- if norm(P1-Plast)<Eps
- 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/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin
deleted file mode 100644
index 41551ef5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci
deleted file mode 100644
index 7a7a4b78..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letter.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Letter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin
deleted file mode 100644
index 53dcb238..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci
deleted file mode 100644
index f99917cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Letterrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Letterrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu=varargin(N);
- Tv=1/Vecnagasa(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/Vecnagasa(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin
deleted file mode 100644
index 3acfa7aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci
deleted file mode 100644
index bc44c2e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Lineplot.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 09.10.09
-// 09.10.12
-// 09.11.01
-// 09.11.12
-// 09.12.06
-// 10.12.04
-
-function Out=Lineplot(varargin)
- Nargs=length(varargin);
- A=varargin(1);
- if type(A)==1 // 09.11.12 from
- Tmp=length(A);
- if Tmp>3
- B=A(Tmp/2+1:Tmp);
- A=A(1:Tmp/2);
- Is=2;
- else
- B=varargin(2);
- Is=3;
- end;
- else
- B=A(2);
- A=A(1);
- Is=2;
- end; // upto
- Mag=100; Semi='';
- for I=Is:Nargs
- Tmp=varargin(I);
- select type(Tmp)
- case 1
- Mag=Tmp;
- case 10
- Semi=Tmp;
- end;
- end;
- V= Mag/norm(B-A)*(B-A) // 10.12.04 from here
- if Semi==""
- Out=Listplot(A-V,A+V)
- elseif Semi=="+"
- Out=Listplot(A,A+V)
- else
- Out=Listplot(A-V,A)
- end // 10.12.04 to here
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin
deleted file mode 100644
index e2ea3688..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci
deleted file mode 100644
index 0bc9f736..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Listplot.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.07.13
-// 09.06.13
-
-function Z=Listplot(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- if size(Data,1)==1
- Tmp=matrix(Data,2,size(Data,2)/2);
- Z=[Z;Tmp'];
- else
- Z=[Z;Data];
- end;
- else
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin
deleted file mode 100644
index 10970e3d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci
deleted file mode 100644
index 27e70d48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeBowdata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-//
-// 08.08.24
-// 10.01.02
-
-function Out=MakeBowdata(PA,PB,H)
- global BOWSTART BOWEND
- BOWSTART=PA;
- BOWEND=PB;
- Eps=10^(-5);
- D=1/2*Vecnagasa(PB-PA);
- R=(H^2+D^2)/(2*H);
- A1=PA(1); A2=PA(2);
- B1=PB(1); B2=PB(2);
- if abs(A2-B2)>Eps
- x=poly(0,'X');
- y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2);
- Eq1=(A1-x)^2+(A2-y)^2-R^2;
- Tmp=coeff(Eq1);
- C0=Tmp(1); C1=Tmp(2); C2=Tmp(3);
- Det=sqrt(C1^2-4*C0*C2);
- Ansx1=(-C1+Det)/(2*C2);
- Ansx2=(-C1-Det)/(2*C2);
- Tmp=horner(y,Ansx1);
- PC=[Ansx1,Tmp];
- Tmp=horner(y,Ansx2);
- PC2=[Ansx2,Tmp];
- else
- Tmp=0.5*(PA+PB);
- PC=Tmp+[0,R-H];
- PC2=Tmp-[0,R-H];
- end;
- VA=PA-PC;
- VB=PB-PC;
- if VA(1)*VB(2)-VA(2)*VB(1)<0
- PC=PC2;
- end
- AngA=acos((PA(1)-PC(1))/R);
- if PA(2)-PC(2)<0
- AngA=-AngA;
- end
- AngB=acos((PB(1)-PC(1))/R);
- if PB(2)-PC(2)<0
- AngB=-AngB;
- end
- if AngA>AngB
- AngB=AngB+2*%pi;
- end
- Out=Mixmake(PC,R,AngA,AngB);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin
deleted file mode 100644
index 1e4a9df1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci
deleted file mode 100644
index f3bbd3ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeCurves.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-//
-// 09.12.25
-// 10.01.01
-// 10.12.02 ( debugged for norm()==0 )
-
-function Outdata=MakeCurves(varargin)
- Figdata=varargin(1);
- Ptout=1;
- if length(varargin)>=2
- Ptout=varargin(2);
- end
- Eps=10.0^(-6);
- IndM=Dataindex(Figdata);
- Atos=[];
- for Nd=1:size(IndM,1)
- Tmp=IndM(Nd,:);
- Motos=Figdata(Tmp(1):Tmp(2),:);
- All=size(Motos,1);
- if size(Motos,1)==1
- if InWindow(Motos)=='o'
- continue;
- end;
- if Ptout==1
- Drwpt(Motos(1,:));
- else
- Atos=[Atos;%inf,%inf;Doscaling(Motos)];
- end
- continue
- end
- Crv=[];
- for I=2:All
- P=Motos(I-1,:);
- Q=Motos(I,:);
- Snbn=MeetWindow(P,Q);
- if Snbn==[]
- if Crv~=[]
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=[];
- end
- else
- if norm(Snbn(1,:)-Snbn(2,:))<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/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
deleted file mode 100644
index 8d2516c2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
deleted file mode 100644
index 81b0492f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.09.19
-// 08.10.15
-// 08.12.21
-
-function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps)
- if CutuvL==[]
- if Mixtype(Out1)==1
- AnsL=Mix(Out1);
- else
- AnsL=Out1;
- end;
- return;
- end;
- AnsL=[];
- ParL=Partitionseg(Out1,CutuvL,Eps);
- Flg=0;
- for J=1:length(ParL)-1
- Tmp=(ParL(J)+ParL(J+1))*0.5;
- Tmp=PointonCurve(Tmp,Out1);
- Tmp1='('+string(Tmp(1))+')';
- Tmp2='('+string(Tmp(2))+')';
- Tmp=strsubst(Uveqstr,Uname,Tmp1);
- Tmp=strsubst(Tmp,Vname,Tmp2);
- Tmp=evstr(Tmp);
- if Tmp>0
- if Flg==0
- P1=ParL(J);
- end;
- Flg=1
- else
- if Flg==1
- P2=ParL(J);
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
- Flg=0
- end;
- end;
- if Flg==1
- P2=ParL(length(ParL));
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin
deleted file mode 100644
index b2f34062..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci
deleted file mode 100644
index 3f768e87..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makehasen.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-//
-// 11.05.26 (for pdflatex)
-
-function Makehasen(Figdata,Sen,Gap,Ptn)
- global Wfile FID;
- Eps=10.0^(-6);
- Clist=MakeCurves(Figdata);
- DinM=Dataindex(Clist);
- for N=1:size(DinM,1)
- Tmp=DinM(N,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Dtall=size(Data,1);
- Len=0;
- Lenlist=[0];
- for I=2:Dtall
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(Dtall);
- if Lenall==0
- continue
- end
- Kari=(Sen+Gap)*0.1;
- Naga=Sen*0.1;
- Tobi=Gap*0.1;
- if Vecnagasa(Data(1,:)-Data(Dtall,:))<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,:));
- X0=sprintf('%5.5f',P(1));
- Y0=sprintf('%5.5f',P(2));
- Pt0='('+X0+','+Y0+')';
- Str='\polyline'+Pt0;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- for J=Hajime+1:Owari
- P=Data(J,:);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+X+','+Y+')';
- Str=Pt;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Pt0=Pt;
- Mojisu=Mojisu+length(Str);
- end;
- T=(Len+Naga-Lenlist(Owari))...
- /(Lenlist(Owari+1)-Lenlist(Owari));
- P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:));
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+string(X)+','+string(Y)+')';
- Str=Pt;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end;
- Mojisu=0;
- end
- end
- end
- if Wfile=='default'
- mprintf('%s\n%s\n','%','%');
- else
- mfprintf(FID,'%s\n%s\n','%','%');
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin
deleted file mode 100644
index 1c9d8f4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci
deleted file mode 100644
index e9915e1b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeliststr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.10.21
-
-function Out=Makeliststr(L)
- Out='list(';
- for I=1:length(L)
- Dt=L(I);
- if type(Dt)==1
- if length(Dt)==1
- Dts=string(Dt);
- else
- Dts='[';
- for J=1:size(Dt,1)
- for K=1:size(Dt,2)
- Dts=Dts+string(Dt(J,K));
- if 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/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
deleted file mode 100644
index bafa4670..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
deleted file mode 100644
index e24525e1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin
deleted file mode 100644
index c4f4d4c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci
deleted file mode 100644
index 443751be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeshasen.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.05.20
-// 09.10.05
-// 10.01.20
-// 10.02.01
-
-function Out=Makeshasen(PtnL,PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=KoutenList(PA,V,Bdy);
- Nten=length(TenL);
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- Out=list();
- GL=[]
- Te=-10.0^6;
- for I=1:Nten-1
- TenP=Op(I,TenL); TenQ=Op(I+1,TenL);
- Ts=Op(1,TenP);
- P=Op(2,TenP); Q=Op(2,TenQ);
- NC=Op(4,TenP);
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- if Op(1,TenQ)-Ts>Eps
- if Member(Ptn,PtnL)
- if abs(Te-Ts)>Eps
- if GL~=[]
- J=length(Out);
- Out(J+1)=GL;
- end;
- Tmp=Listplot(P,Q);
- GL=Tmp;
- else
- GL=[GL;Q];
- end
- Te=Op(1,TenQ);
- end
- end
- end
- if size(GL,1)>0
- Out=Mixjoin(Out,list(GL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin
deleted file mode 100644
index 102b44b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci
deleted file mode 100644
index 99ad5910..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletondata.sci
+++ /dev/null
@@ -1,171 +0,0 @@
-// 08.07.13
-// 08.10.16
-// 09.03.05
-// 09.05.12
-// 10.05.09
-// 14.07.05
-// 16.12.24 ( when kukanL=[] )
-
-function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // 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/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
deleted file mode 100644
index 0082bcd5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
deleted file mode 100644
index 4838d658..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
+++ /dev/null
@@ -1,188 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.05.12
-// 09.09.25
-// 10.05.09
-// 10.08.17
-// 14.07.05
-
-function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<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/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin
deleted file mode 100644
index 37e149ff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci
deleted file mode 100644
index dc917f30..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makevaltable.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.09
-// 08.10.08
-// 08.12.06
-// 08.12.30
-// 09.06.03
-// 13.10.19 ( __ added to variables )
-
-function [Zval__,Xval__,Yval__]=Makevaltable(MS__)
- Eps__=10^(-6);
- Nargs__=Mixlength(MS__);
- Fstr__=Mixop(1,MS__);
- Tmp__=Mixop(2,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,Tmp1__-1);
- Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=Mixop(3,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,Tmp1__-1);
- Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=strsubst(Fstr__,Xname__,'x');
- Fstr__=strsubst(Tmp__,Yname__,'y');
- Tmp__=mtlb_findstr(Fstr__,Xname__);
- if length(Tmp__)==0
- Fstr__=Fstr__+'+0*x';
- end;
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=4
- Tmp__=Mixop(4,MS__);
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==4
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(5,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end
- X1__=Xrange__(1); X2__=Xrange__(2);
- Y1__=Yrange__(1); Y2__=Yrange__(2);
- Dx__=(X2__-X1__)/(Mdv__-1);
- Dy__=(Y2__-Y1__)/(Ndv__-1);
- Xval__=[];
- Tmp__=X1__;
- while Tmp__<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/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
deleted file mode 100644
index 82acb406..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
deleted file mode 100644
index a16a5a4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin
deleted file mode 100644
index 7c309bf0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Makexybdy.sci
deleted file mode 100644
index fb8aa27b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin
deleted file mode 100644
index 86b2954f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mawarikomi.sci
deleted file mode 100644
index 11b02c63..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin
deleted file mode 100644
index 78d328fc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci
deleted file mode 100644
index 65f543ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MeetWindow.sci
+++ /dev/null
@@ -1,91 +0,0 @@
-//
-// 08.05.30 debugged
-// 08.08.14 (horner)
-// 09.12.31 (gsort)
-// 15.10.23 ( horner not used )
-// 16.12.29 (msprintf("%3.10f",..) used )
-
-function R=MeetWindow(PA,PB)
- global XMIN XMAX YMIN YMAX
- if InWindow(PA)=='i' & InWindow(PB)=='i'
- R=[PA;PB];
- return
- end;
- Eps=10.0^(-6);
- t=poly(0,'T');
- PT="(1-(t))*PA+(t)*PB";
- Txm=-1; TxM=-1; Tym=-1; TyM=-1;
- if PA(1)~=PB(1)
- Txm=(XMIN-PA(1))/(PB(1)-PA(1));
- TxM=(XMAX-PA(1))/(PB(1)-PA(1));
- end
- if PA(2)~=PB(2)
- Tym=(YMIN-PA(2))/(PB(2)-PA(2));
- TyM=(YMAX-PA(2))/(PB(2)-PA(2));
- end;
-// Tmp=horner(PT(2),Txm);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if 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/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin
deleted file mode 100644
index ebe3ead9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci
deleted file mode 100644
index 65ba1166..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Meetpoints.sci
+++ /dev/null
@@ -1,169 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 09.12.31 (gsort)
-// 13.10.22 ( __ added to varibles )
-// 13.12.02 debugged
-
-function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__)
- Eps__0=10^(-4);
- Vec__=PtB__-PtA__;
- Out__=[];
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,Fd__L);
- Vrg__str=Mixop(6,Fd__L);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- for J=1:length(Yval__)-1
- for I=1:length(Xval__)-1
- a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I);
- a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1);
- a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1);
- a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- 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/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin
deleted file mode 100644
index 711c4fc4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci
deleted file mode 100644
index 79826f90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Member.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.05.18
-
-// Structure changed
-// 09.10.11
-
-function TF=Member(A,L)
- if Mixtype(L)>1
- N=Mixlength(L);
- else
- N=length(L);
- end
- for I=1:N
- Tmp=Op(I,L);
- if A==Tmp
- TF=%t
- return
- end
- end
- TF=%f
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin
deleted file mode 100644
index 9cb3477e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci
deleted file mode 100644
index de8d4b0d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi.sci
+++ /dev/null
@@ -1,206 +0,0 @@
-// 08.08.21
-// 09.10.24
-// 09.10.26
-
-function Menkakusi(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | 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/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin
deleted file mode 100644
index e8361324..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci
deleted file mode 100644
index 43eab74b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Menkakusi2.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 09.10.29
-// 09.11.15
-// 10.08.17 debug (line 66)
-
-function Menkakusi2(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<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/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin
deleted file mode 100644
index acc02ec0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci
deleted file mode 100644
index 4f06c437..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mix.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.20
-// 08.08.08
-
-// Structure changed
-// 09.10.11
-
-function M=Mix(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin
deleted file mode 100644
index 50f6189c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci
deleted file mode 100644
index daf5a2d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixL.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function M=MixL(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin
deleted file mode 100644
index 2372bb1f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci
deleted file mode 100644
index 623af493..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/MixS.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.19
-
-//Structure Changed
-
-// 09.10.11
-
-function M=MixS(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin
deleted file mode 100644
index 0dbd5427..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci
deleted file mode 100644
index 8d45fea1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixadd.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 05.14 Data Structure
-// 05.16 List of MixList
-// 05.19 use:MixS, MixL, Mixtype
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function M=Mixadd(varargin)
- Nargs=length(varargin);
- M=list();
- Tmp=varargin(1);
- if length(Tmp)==0
- M(1)=varargin(2);
- else
- M=Tmp;
- M($+1)=varargin(2);
- end;
- for I=3:Nargs
- M($+1)=varargin(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin
deleted file mode 100644
index 45325b78..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci
deleted file mode 100644
index 2fed1197..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixdisp.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.02
-
-function Mixdisp(L)
- if Mixtype(L)==1
- disp(L)
- return;
- end;
- Str=Makeliststr(L);
- disp(Str)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin
deleted file mode 100644
index 6ed0a2a6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci
deleted file mode 100644
index d6e49c14..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.18
-// 08.05.19 Changed
-// 08.08.15
-
-// Structure changed
-// 09.10.11
-
-function M=Mixjoin(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Tmp=varargin(I);
- if length(Tmp)==0
- continue;
- end;
- if Mixtype(Tmp)==1
- Tmp=list(Tmp);
- end;
- if length(M)==0
- M=Tmp;
- else
- M=lstcat(M,Tmp);
- end;
- end;
- if length(M)==0
- M=[];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin
deleted file mode 100644
index b601884d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci
deleted file mode 100644
index 6fd31749..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixlength.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.14 Data Structure
-// 08.05.23 Debugged
-
-// Structure changed
-// 09.10.11
-
-function Out=Mixlength(PL)
- if PL==[]
- Out=0;
- return
- end
- if Mixtype(PL)==1
- Out=size(PL,1);
- else
- Out=length(PL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin
deleted file mode 100644
index c607a109..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci
deleted file mode 100644
index 7f05a2ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixmake.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function PL=Mixmake(varargin)
- PL=list();
- for I=1:length(varargin)
- Tmp=varargin(I);
- PL=Mixadd(PL,Tmp);
- end
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin
deleted file mode 100644
index 9aa1f9f1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci
deleted file mode 100644
index 10c846dc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixop.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.05.14 Data Structure
-// 08.04.15 List ex N=1:3
-// 08.05.16 List of MixL
-// 08.05.18 Debugged
-// 08.05.19 Changed
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function D=Mixop(N,PL)
- D=[];
- if Mixtype(PL)==1
- D=PL;
- return;
- end;
- if type(N)~=1 | length(N)>1 | N>Mixlength(PL)
- return
- end;
- D=PL(N);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin
deleted file mode 100644
index e2b2ba6a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci
deleted file mode 100644
index e3e281f3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixsub.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.19
-// 08.05.20 debugged
-// 08.06.02
-
-// Structure changed
-// 09.10.11
-
-function M=Mixsub(Rg,PL)
- M=list();
- N=Mixlength(PL);
- for I=Rg
- if I>N
- return;
- end;
- M($+1)=PL(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin
deleted file mode 100644
index 4d786a5d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci
deleted file mode 100644
index b336c763..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixtype.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function T=Mixtype(D)
- if type(D)~=15
- T=1;
- return;
- end;
- for I=1:length(D)
- if type(D(I))==15
- T=3;
- return;
- end;
- end;
- T=2;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin
deleted file mode 100644
index aa1e8c72..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci
deleted file mode 100644
index 8a4f0557..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naigai.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.18
-// 08.05.20
-
-function Ptn=Naigai(A,Bdy)
- V=[1,1];
- Call=Mixlength(Bdy);
- KL=KoutenList(A,V,Bdy);
- Ptn=zeros(1,Call);
- for K=1:Mixlength(KL)
- Ten=Op(K,KL);
- T=Op(1,Ten); NC=Op(4,Ten);
- if T<0
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin
deleted file mode 100644
index 0c5dc7b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci
deleted file mode 100644
index 193ad384..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Naiseki.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Naiseki(a,b)
- N=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin
deleted file mode 100644
index 59d31369..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci
deleted file mode 100644
index a404370a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nearestpt.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-// 08.05.31
-// 08.06.03
-// 08.10.07
-
-function Ans=Nearestpt(varargin)
- Nargs=length(varargin);
- PL1=varargin(1);
- if size(PL1,1)==1
- Flg=0;
- else
- Flg=1
- end
- Eps=10.0^(-6);
-// Fig=varargin(2);
- PL=varargin(2);
- Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:)));
- for N=1:size(PL1,1)
- PA=PL1(N,:);
- Pm=PL(1,:);
- Im=1;
- Sm=norm(Pm-PA);
- for I=1:size(PL,1)-1
- A1=PL(I,1); A2=PL(I,2);
- B1=PL(I+1,1); B2=PL(I+1,2);
- V1=B1-A1; V2=B2-A2;
- X1=PA(1); X2=PA(2);
- Tmp=V2^2+V1^2;
- if abs(Tmp)<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/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin
deleted file mode 100644
index 038306fb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Newlength.sci
deleted file mode 100644
index 9e0227e8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin
deleted file mode 100644
index 701b77db..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara.sci
deleted file mode 100644
index 3826b281..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
deleted file mode 100644
index cbc317ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
deleted file mode 100644
index 996559db..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
+++ /dev/null
@@ -1,131 +0,0 @@
-// 08.10.10
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-
-function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps)
- global HIDDENDATA THETA PHI TMP;
- Eps0=10^(-5);
- Fh=Projpara(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<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/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin
deleted file mode 100644
index 1ad435a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci
deleted file mode 100644
index 140516b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers.sci
+++ /dev/null
@@ -1,253 +0,0 @@
-// 08.09.21
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpers(varargin)
- global EyePoint FocusPoint HIDDENDATA;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpers(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invperspt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*(EyePoint-Pk);
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if 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/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
deleted file mode 100644
index 7de094a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
deleted file mode 100644
index d49bce91..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
+++ /dev/null
@@ -1,134 +0,0 @@
-// 08.10.11
-// 08.10.12
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-// 11.04.12 Eps0 (bug)
-// 13.11.02 bug
-
-function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps)
- global EyePoint FocusPoint HIDDENDATA;
- Eps0=10^(-5); // 11.04.12
- Fh=Projpers(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<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/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin
deleted file mode 100644
index dff5f719..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci
deleted file mode 100644
index dad4f4ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Numptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Numptcrv(Fig)
- N=size(Fig,1)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin
deleted file mode 100644
index 544abced..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci
deleted file mode 100644
index 20a86640..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objcurve.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// s : 2014.06.22
-// 2014.08.26 debugged 1,-1 => "+","-"
-// 2014.09.07 Objjoin added
-// 2016.10.09 Np in Spacecurve changed
-
-function Out=Objcurve(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args)
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Closed=norm(PL(length(PL))-PL(1))<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/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin
deleted file mode 100644
index 9b530ae6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objjoin.sci
deleted file mode 100644
index e8a80ff3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin
deleted file mode 100644
index c1e415ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci
deleted file mode 100644
index 6c523fc2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objname.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// s: 2014.09.07
-
-function Objname()
- global OBJFIGNO OBJJOIN
- if OBJJOIN==0 then
- OBJFIGNO=OBJFIGNO+1;
- Gname="ketfig"+string(OBJFIGNO);
- Printobjstr("# "+Gname);
- Printobjstr("g "+Gname);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin
deleted file mode 100644
index ad6e0eba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci
deleted file mode 100644
index ba5b346a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolygon.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolygon(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // 140907
- for J=1:length(PL)
- P=PL(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL(J)=[P(1:3),Np]
- end;
- end;
- if Nargs==1 then
- Tmp=PL(1);
- Cen=Tmp(1:3);
- Nc=Tmp(4)
- else
- Tmp=Args(2);
- if length(Tmp)==1 then
- Tmp1=PL(Tmp);
- Cen=Tmp1(1:3);
- Nc=Tmp(4)
- else
- Cen=Tmp;
- Nc=Writeobjpoint(Cen)
- end;
- end;
- for J=1:length(PL)
- if 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/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin
deleted file mode 100644
index a0fdf444..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objpolyhedron.sci
deleted file mode 100644
index c33e23a8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin
deleted file mode 100644
index 4f7b55de..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objrecs.sci
deleted file mode 100644
index d8775fb3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin
deleted file mode 100644
index 122e0986..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci
deleted file mode 100644
index 15543b8a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsurf.sci
+++ /dev/null
@@ -1,114 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 2014.09.07 Objjoin added
-
-function Out=Objsurf(varargin)
- global OBJFIGNO OBJJOIN
- Args=varargin;
- Nargs=length(Args);
- Sel=Args(Nargs); Nargs=Nargs-1;
- Rf=Args(1);
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // // 140907
- PL=list();
- for J=1:(Mg+1)
- for K=1:(Ng+1)
- P=Rf(U(J),V(K));
- Np=Writeobjpoint(P)
- PL=lstcat(PL,list([P,Np]));
- end;
- end;
- Idx=1:(Ng+1):(Ng+1)*Mg+1;
- Pus=Mixsub(Idx,PL);
- Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1);
- Pue=Mixsub(Idx,PL);
- Idx=1:1:Ng+1;
- Pvs=Mixsub(Idx,PL);
- Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1);
- Pve=Mixsub(Idx,PL);
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=1:Mg
- for K=1:Ng
- P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K)))
- P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K)))
- P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1)))
- P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1)))
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2;
- end;
- Printobjstr(Str)
- end;
- end;
- Out=list(U,V,Pus,Pue,Pvs,Pve)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin
deleted file mode 100644
index 733ab14d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci
deleted file mode 100644
index 808924a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objsymb.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// s : 2014.08.25
-
-function Objsymb(Symb,Thick,Face,Dir)
- for J=1:length(Symb)
- Objcurve(Symb(J),Thick,Face,Dir);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin
deleted file mode 100644
index 6c85bcca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci
deleted file mode 100644
index 42fde6a5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Objthicksurf.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 14.09.07 Objjoin added
-
-function Out=Objthicksurf(varargin)
- global OBJJOIN
- Args=varargin;
- Nargs=length(Args)
- Sel=Args(Nargs); Nargs=Nargs-1;
- Selsurf=part(Sel,1); // from 6.22
- Selside=["0","0","0","0"]; // wesn
- Tmp=mtlb_findstr(Sel,"w");
- if length(Tmp)>0 then
- Selside(1)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"e");
- if length(Tmp)>0 then
- Selside(2)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"s");
- if length(Tmp)>0 then
- Selside(3)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"n");
- if length(Tmp)>0 then
- Selside(4)=part(Sel,Tmp+1)
- end;
- Nfth=Args(Nargs-2);
- Thick1=Args(Nargs-1);
- Thick2=Args(Nargs);
- Nargs=Nargs-3; // upto 6.22
- Rfth=Args(1); // 6.22
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // 140907 from
- Join=OBJJOIN;
- OBJJOIN=1; // upto
- deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)");
- deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)");
- Dt1=Objsurf(F1,U,V,Selsurf);
- if Selsurf=="+" then Tmp="-"; else Tmp="+"; end;
- Dt2=Objsurf(F2,U,V,Tmp);
- Out=list(Dt1,Dt2); //from 06.22
- if Selside(1)~="0" then
- Dt=Objrecs(Dt1(3),Dt2(3),Selside(1));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(2)~="0" then
- Dt=Objrecs(Dt1(4),Dt2(4),Selside(2));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(3)~="0" then
- Dt=Objrecs(Dt1(5),Dt2(5),Selside(3));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(4)~="0" then
- Dt=Objrecs(Dt1(6),Dt2(6),Selside(4));
- Out=lstcat(Out,list(Dt));
- end; // upto 6.22
- OBJJOIN=Join // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin
deleted file mode 100644
index e90f633d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci
deleted file mode 100644
index 519bc9da..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Op.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.10 available for plotdata
-// 10.01.12 available for Dataindexed
-// 10.01.16
-
-function C=Op(N,Data)
- C=[];
- if Mixtype(Data)>1
- C=Mixop(N,Data);
- return;
- end;
- if type(Data)==10
- if size(Data,2)==1
- C=part(Data,N:N);
- else
- C=Data(N)
- end;
- return;
- end;
- if type(Data)==1
- if size(Data,1)==1
- C=Data(N);
- else
- Din=Dataindex(Data);
- if size(Din,1)==1
- C=Data(N,:);
- else
- C=Data(Din(N,1):Din(N,2),:);
- end;
- end;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin
deleted file mode 100644
index 3935c2e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci
deleted file mode 100644
index 4007e1b3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openfile.sci
+++ /dev/null
@@ -1,106 +0,0 @@
-
-//
-// 10.01.10 filename written
-// 13.05.20 openfile error tackled
-// creator and date recorded
-// 13.11.01 Beginpicture joined optionally
-
-function Openfile(varargin)
- global Wfile FID;
-
- function Out=Datecount(F)
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- Year=Tmp(1);
- Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9);
- Out=[Year,Sec];
- endfunction
-
- function Out=Datestr(F)
- if F~="" then
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- else
- Tmp=getdate();
- end;
- Year=Tmp(1);
- Month=Tmp(2);
- Day=Tmp(6);
- Hour=Tmp(7);
- Min=Tmp(8);
- D=string(Year)+"-"+string(Month)+"-"+string(Day);
- T=string(Hour)+":"+string(Min);
- Out=D+" "+T;
- endfunction
-
- File=varargin(1);
- Bflg=0;
- Creator='';
- Cflg=0;
- Nargs=length(varargin);
- for N=2:Nargs
- Tmp=varargin(N);
- K=mtlb_findstr(Tmp,"=");
- if length(K)>0 then
- Creator=part(Tmp,(K+1):length(Tmp));
- Cflg=1;
- else
- Bflg=1;
- Unitstr=Tmp
- end
- end;
- Recentf='';
- Tmp1=dir("*.sce");
- Files=Tmp1(2);
- if size(Files,1)>0 then
- Recentf=Files(1,:);
- Dt=Datecount(Recentf);
- for J=2:size(Files,1)
- F=Files(J,:);
- D=Datecount(F);
- if D(1)~=Dt(1) then
- if D(1)>Dt(1) then
- Recentf=F;
- Dt=D;
- end
- continue
- end
- if D(2)>Dt(2) then
- Recentf=F;
- Dt=D;
- end
- end;
- end;
- StrW="%%% "+File+" "+Datestr("")
- StrC="%%% "+Creator;
- if Cflg==0 then
- if Recentf~="" then
- StrC=StrC+Recentf+" "+Datestr(Recentf);
- end
- end
- if File =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); // 2017.02.18 from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); // 2017.02.18 upto
- FID=mopen(File,'w');
- Wfile=File;
- end
- if Wfile=='default'
- mprintf('%s\n%s\n',StrW,StrC);
- else
- mfprintf(FID,'%s\n%s\n',StrW,StrC);
- end
- if Bflg==1 then
- Beginpicture(Unitstr)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin
deleted file mode 100644
index e72281c1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
deleted file mode 100644
index e902ce5d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openobj.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// s : 2014.06.22
-// e : 14.09.07
-
-function Out=Openobj(Fnm)
- global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
- OBJFMT= "%7.4f";
- NPOINT= 0;
- NNORM=0;
- OBJSCALE=1;
- OBJFIGNO=0;
- OBJJOIN=0; // 140906
- if Fnm =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); //17.02.18from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); //17.02.18upto
- if length(mtlb_findstr(Fnm,".obj"))==0
- Fnm=Fnm+".obj";
- end;
- FID=mopen(Fnm,'w');
- Wfile=Fnm;
- Out=Wfile;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin
deleted file mode 100644
index a8d4c7fc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci
deleted file mode 100644
index a3056f66..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.31
-
-function Openpar(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Tmp=varargin(1);
- Tmp1=Strop(1,Tmp);
- if Tmp1=='\' | Tmp1=='¥'
- Namestr=Tmp;
- N=2;
- else
- Namestr='\tmp';
- N=1;
- end
- Habastr=varargin(N);
- if Nargs>N
- Posstr='['+varargin(N+1)+']';
- else
- Posstr='[c]'
- end
- Openphr(Namestr);
- S='\begin{minipage}'+Posstr+'{'+Habastr+'}%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin
deleted file mode 100644
index f9d281d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci
deleted file mode 100644
index 461549e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openphr.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.05.31
-
-function Openphr(Str)
- global Wfile FID
- S='\def'+Str+'{%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin
deleted file mode 100644
index 877c0a04..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci
deleted file mode 100644
index edf043ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpicture.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-//
-// 09.12.25
-// 11.05.25
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Openpicture(ul)
- global Wfile FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1);
- Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1);
- YM=Tmp(2);
- Dx=XM-Xm;
- Dy=YM-Ym;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if ul~=''
- ULEN=ul;
- end
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)~=[]
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
- if Wfile=='default'
- mprintf('%s%s%s\n','{\unitlength=',ULEN,'%');
- mprintf('%s\n','\begin{picture}%');
- mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%');
- Str='\special{pn '+string(PenThickInit)+'}%';
- mprintf('%s\n',Str);
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%');
- mfprintf(FID,'%s\n','\begin{picture}%');
- mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25
- Str='\special{pn '+string(PenThickInit)+'}%';
- mfprintf(FID,'%s\n',Str);
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin
deleted file mode 100644
index eca8a277..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci
deleted file mode 100644
index 8889de32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-function Ovalbox(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Pos=varargin(1);
- Dr=varargin(2);
- StrV=varargin(3);
- R=0.2;
- NDflg=0;
- for I=4:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- R=Tmp;
- else
- if part(Tmp,1)=='-'
- NDflg=1;
- Tmp1=part(Tmp,2:length(Tmp));
- Cmdstr=strsubst(Tmp1,'*','G1');
- end;
- end;
- end;
- Xr=[XMIN,XMAX];
- Yr=[YMIN,YMAX];
- Uv=0.6; Uh=0.8;
- N=length(StrV);
- W=Uh; H=Uv*N;
- Setwindow([-W/2,W/2],[-H,0]);
- G1=Ovaldata([0,-H/2],W/2,H/2,R);
- Openphr('\ketpictmp');
- Beginpicture('1cm');
- if NDflg==0
- Drwline(G1);
- else
- execstr(Cmdstr);
- end;
- for I=1:N
- Letter([0,Uv/2-Uv*I],'c',Op(I,StrV))
- end;
- Endpicture(0);
- Closephr();
- Setwindow(Xr,Yr);
- Letter(Pos,Dr,'\ketpictmp');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin
deleted file mode 100644
index a33c17e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci
deleted file mode 100644
index 823fc8c4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovaldata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// e : 2015.11.15
-function Out=Ovaldata(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs<=1
- Eps=1.0*10^(-4);
- C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- Dx=XMAX-C(1)-Eps;
- Dy=YMAX-C(2)-Eps;
- N=1;
- else
- C=varargin(1);
- Dx=varargin(2);
- Dy=varargin(3);
- N=4;
- end;
- Rc=0.2;
- if N<=Nargs
- Rc=varargin(N)*Rc; // 15.11.15
- end;
- Out=[];
- P=C+[Dx-Rc,Dy-Rc];
- Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10');
- Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]);
- Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]);
- G=Joincrvs(Tmp3,Tmp1,Tmp2);
- Tmp=Reflectdata(G,[C,C+[0,1]]);
- G=Joincrvs(G,Tmp);
- Tmp=Reflectdata(G,[C,C+[1,0]]);
- Out=Joincrvs(G,Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin
deleted file mode 100644
index e86a5592..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci
deleted file mode 100644
index 82ac7c4f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramark.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.06.18
-
-function P=Paramark(varargin)
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- PC=varargin(3);
- R=0.5;
- if Nargs>=4
- R=varargin(4)*R;
- end
- U=R*(PA-PB)/Vecnagasa(PA,PB);
- V=R*(PC-PB)/Vecnagasa(PC,PB);
- if Gaiseki(PA-PB,PC-PB)~=0
- P=Listplot([PB+U,PB+U+V,PB+V]);
- else
- P=[];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin
deleted file mode 100644
index 3479482b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci
deleted file mode 100644
index ce7e0d76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ParamonCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.30
-
-function Out=ParamonCurve(P,N,PtL)
-// PtL=Plt;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=V(1)^2+V(2)^2;
- S=(V(1)*W(1)+V(2)*W(2))/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin
deleted file mode 100644
index d3aeafcc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci
deleted file mode 100644
index 83661787..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramoncrv.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 09.10.03
-
-function Out=Paramoncrv(varargin)
- Eps=10^(-8);
- Nargs=length(varargin);
- P=varargin(1);
- Gdata=varargin(Nargs);
- if size(P,1)>1
- Tmp=P; P=Gdata; Gdata=Tmp;
- end;
- if Nargs==2
- Tmp=Nearestpt(P,Gdata);
- Out=Mixop(2,Tmp);
- return;
- end;
- N=varargin(2);
- PtL=Gdata;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=norm(V)^2;
- if D2<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/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin
deleted file mode 100644
index 79569617..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Paramplot.sci
deleted file mode 100644
index 4e3effdc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin
deleted file mode 100644
index 468a99cd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Parapt.sci
deleted file mode 100644
index 5adb4837..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin
deleted file mode 100644
index a488103c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv.sci
deleted file mode 100644
index 0b4844df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin
deleted file mode 100644
index 5b652d87..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci
deleted file mode 100644
index 5b3cd178..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partcrv3.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.13
-// 09.03.06
-
-function PL=Partcrv3(T1,T2,Fk)
- Eps=10^(-4);
-// Tmp=Mixop(1,Fk);
- // new part from
- if T1>T2+Eps
- Npt=size(Fk,1);
- Out1=Partcrv3(T1,Npt,Fk);
- Out2=Partcrv3(1,T2,Fk);
- Tmp=Fk(1,:)-Fk(Npt,:);
- if norm(Tmp)<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/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin
deleted file mode 100644
index 1678ce6b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci
deleted file mode 100644
index a8581b1b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partframe.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 13.05.03
-
-function Out=Partframe(Tb,St,Ed)
- G=Dividetable(Tb);
- Gw=G(1);
- Gt=G(2);
- Gy=G(3);
- Gwt=Tb(4);
- Gwy=Tb(5);
- Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2)));
- Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2)));
- Tmp1=Ptstart(Gat(St(1)));
- Tmp2=Ptstart(Gay(St(2)));
- Ps=[Tmp1(1),Tmp2(2)];
- Tmp1=Ptstart(Gat(Ed(1)));
- Tmp2=Ptstart(Gay(Ed(2)));
- Pe=[Tmp1(1),Tmp2(2)];
- Pars=Paramoncrv(Ps,Gw);
- Pare=Paramoncrv(Pe,Gw);
- if 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/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin
deleted file mode 100644
index 13e1cb62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PartitionPt.sci
deleted file mode 100644
index 15d74ec4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin
deleted file mode 100644
index 7e736e20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Partitionseg.sci
deleted file mode 100644
index 39c23c45..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin
deleted file mode 100644
index e07e8ade..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci
deleted file mode 100644
index eb689ffe..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Perspt.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.08.12
-
-function Out=Perspt(P)
- global FocusPoint EyePoint;
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Yz,Zz];
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin
deleted file mode 100644
index c7fb3404..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci
deleted file mode 100644
index ea2c8e28..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhFaceL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhFaceL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHFACEL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin
deleted file mode 100644
index 162ba3f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci
deleted file mode 100644
index d5333cd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin
deleted file mode 100644
index 7c4526ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci
deleted file mode 100644
index 1eae4bc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PhVertexL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhVertexL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHVERTEXL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin
deleted file mode 100644
index 767e453e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci
deleted file mode 100644
index 9c7806f5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutdata.sci
+++ /dev/null
@@ -1,173 +0,0 @@
-// 08.08.17
-// 08.09.16
-// 10.01.02
-// 13.10.21 ( __ added to varibles )
-// 14.06.09 ( debugged -- the cause unknown )
-
-function Out__=Phcutdata(VL__,FaceL__,PlaneD__)
- global PHCUTPOINTL
- Out__=[];
- EL__=[];
- Eps__=10^(-4);
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- for J__=1:length(Face__)
- Nj__=J__+1;
- if J__==length(Face__)
- Nj__=1;
- end;
- N1__=Face__(J__); N2__=Face__(Nj__);
- Tmp__=[N1__,N2__];
- Flg__=0;
- for K__=1:Mixlength(EL__)
- Tmp1__=Mixop(K__,EL__);
- Tmp2__=[Tmp1__(2),Tmp1__(1)];
- if Tmp__==Tmp1__ | Tmp__==Tmp2__
- Flg__=1;
- break;
- end
- end;
- if Flg__==0
- EL__=Mixadd(EL__,Tmp__);
- end;
- end;
- end;
- Out0__=[];
- for I__=1:Mixlength(EL__)
- Tmp__=Mixop(I__,EL__);
- Tmp1__=Mixop(Tmp__(1),VL__);
- Tmp2__=Mixop(Tmp__(2),VL__);
- Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__]));
- end;
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- if V1__==[0,0,0]
- Out__=Out0__;
- return;
- end;
- V3__=[1,0,0];
- Out1__=Rotate3data(Out0__,V1__,V3__);
-// x=poly(0,'X');
- Tmp2__=Rotate3pt([1,0,0],V3__,V1__);
- Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3);
- x0__=d__/Tmp__;
- t__=poly(0,'T');
- PtL__ =[];
- for I__=1:Mixlength(Out1__)
- Tmp__=Mixop(I__,Out1__);
- Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:);
- P__=Tmp1__+t__*(Tmp2__-Tmp1__);
- Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1));
- if abs(coeff(Tmp__,1))<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/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin
deleted file mode 100644
index 5e7c757a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phcutoffdata.sci
deleted file mode 100644
index 879067ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin
deleted file mode 100644
index 2e8372d4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phidegree.sci
deleted file mode 100644
index 02fe98a5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin
deleted file mode 100644
index f048d289..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phparadata.sci
deleted file mode 100644
index 835c173e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin
deleted file mode 100644
index fd962e37..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phpersdata.sci
deleted file mode 100644
index e422b6fc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin
deleted file mode 100644
index ab558ee1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawparadata.sci
deleted file mode 100644
index c4c79c26..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin
deleted file mode 100644
index b07adddd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phrawpersdata.sci
deleted file mode 100644
index 29870630..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin
deleted file mode 100644
index 5548e0e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsparadata.sci
deleted file mode 100644
index 3c8018e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin
deleted file mode 100644
index b625f4d4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phspersdata.sci
deleted file mode 100644
index 58ab8101..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin
deleted file mode 100644
index 7b3c7f0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawparadata.sci
deleted file mode 100644
index 6928d928..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
deleted file mode 100644
index 0594752f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
deleted file mode 100644
index 21677841..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin
deleted file mode 100644
index 7d239bba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Plotdata.sci
deleted file mode 100644
index fc548f28..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin
deleted file mode 100644
index 73d006ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointdata.sci
deleted file mode 100644
index 35e2347e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin
deleted file mode 100644
index 1914f8a3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PointonCurve.sci
deleted file mode 100644
index fd2a35d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin
deleted file mode 100644
index 69dc99ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Pointoncrv.sci
deleted file mode 100644
index c39cdadc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin
deleted file mode 100644
index f85dfeb2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci
deleted file mode 100644
index b23dfdc8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Powersum.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.03.12
-
-function Out=Powersum(varargin)
- Nargs=length(varargin);
- COEFF=varargin(1);
- x=varargin(2);
- if Nargs>2
- x=x-varargin(3);
- end;
- NL=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- Upto=min(size(NL,2),size(A,2));
- NL=NL(1:Upto);
- A=A(1:Upto);
- Out=sum(A.*x^NL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin
deleted file mode 100644
index 54fceb67..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci
deleted file mode 100644
index bc866928..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Prime.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 09.08.23
-
-function Out=Prime(varargin)
- if length(varargin)==0
- Out=char(39);
- else
- Out=varargin(1)+char(39);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin
deleted file mode 100644
index 3e8d6ca7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci
deleted file mode 100644
index bf137751..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Printobjstr.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Printobjstr(Str)
- global Wfile FID;
- if Wfile=='default' then
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin
deleted file mode 100644
index 22cf9f20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci
deleted file mode 100644
index bbe28c12..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjCurve.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// 08.07.11
-// 08.10.07
-// 09.06.02
-// 09.08.23
-
-function AnsL=ProjCurve(Curve)
- global PHI THETA;
- Eps=10^(-6);
- AnsL=[]; // Added
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Tmp=[Xz,Yz];
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
deleted file mode 100644
index 1a815b50..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
deleted file mode 100644
index 74c552a6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.07.11
-// 08.10.16
-
-function Out=ProjcoordCurve(Curve)
- global PHI THETA;
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- x=P(1); y=P(2); z=P(3);
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Zz=x*CP*ST+y*SP*ST+z*CT;
- Out=[Out;Xz,Yz,Zz];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin
deleted file mode 100644
index c78a60ff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
deleted file mode 100644
index 82feeff2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.07.11
-// 08.07.15
-// 08.08.12
-// 08.10.28
-
-function CL=Projpara(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=ProjCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=ProjCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin
deleted file mode 100644
index fe160426..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci
deleted file mode 100644
index b43451a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.08.12
-// 08.10.28
-
-function CL=Projpers(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=CameraCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=CameraCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin
deleted file mode 100644
index 6ba89403..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci
deleted file mode 100644
index 78776d7b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptcrv(N,Fig)
- P=Fig(N,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin
deleted file mode 100644
index 9cc74d07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci
deleted file mode 100644
index d16ebf80..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptend.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptend(Fig)
- P=Fig(size(Fig,1),:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin
deleted file mode 100644
index f195927d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci
deleted file mode 100644
index 98f2ca94..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PthiddenQ.sci
+++ /dev/null
@@ -1,250 +0,0 @@
-// 08.10.10
-// 08.10.12
-// 08.10.15
-// 08.10.26
-// 09.06.05
-// 09.09.10
-// 09.10.12 debug
-// 09.11.07 debugged
-// 10.02.16 Eps__
-// 13.10.22 ( __ added to variables )
-
-function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__)
-// Out__=1 : hidden
-// SL__ : List of segments near PtA__+Vec__
- Eps__0=10^(-4)*(Xmax()-Xmin())/10;
- Eps__=EPS__(1)*(Xmax()-Xmin())/10; //
- Out__=0;
- Vec__1=1/norm(Vec__)*Vec__;
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- FdL__=Fullformfunc(Fd__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,FdL__);
- Vrg__str=Mixop(6,FdL__);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- SL__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- 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/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin
deleted file mode 100644
index 00ce8734..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci
deleted file mode 100644
index f6452897..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptne.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptne(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMAX];
- else
- G=varargin(1);
- XM=max(G(:,1));
- YM=max(G(:,2));
- Out=[XM,YM];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin
deleted file mode 100644
index d8c23898..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci
deleted file mode 100644
index e3cd5ebc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptnw.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptnw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMAX];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- YM=max(G(:,2));
- Out=[Xm,YM];
- end;
- endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin
deleted file mode 100644
index 19bd2ccc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci
deleted file mode 100644
index fe5e52b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptse.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptse(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMIN];
- else
- G=varargin(1);
- XM=max(G(:,1));
- Ym=min(G(:,2));
- Out=[XM,Ym];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin
deleted file mode 100644
index c87076aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci
deleted file mode 100644
index f94437cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptstart.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptstart(Fig)
- P=Fig(1,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin
deleted file mode 100644
index df35b82c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci
deleted file mode 100644
index 5b0a3474..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ptsw.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.13
-
-function Out=Ptsw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMIN];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- Ym=min(G(:,2));
- Out=[Xm,Ym];
- end;
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin
deleted file mode 100644
index baf3e29f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci
deleted file mode 100644
index e0020f0b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcell.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 09.12.29
-
-function Putcell(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- Str=varargin(Nargs);
- if type(Str)==1
- Str=string(Str);
- end;
- Pos=varargin(Nargs-1);
- Nrg=varargin(2);
- if type(Nrg)==10
- if Nargs==4
- Cell=Findcell(TbL,Nrg);
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- Pt=Cell(1); Dr='c';
- Posh=part(Pos,1);
- Post=part(Pos,2:length(Pos));
- if (Posh=='r')|(Posh=='R')
- Pt=Pt+[Cell(2),0];
- if length(Post)==0
- Dr='w1';
- else
- Dr='w'+Post;
- end;
- end;
- if (Posh=='l')|(Posh=='L')
- Pt=Pt-[Cell(2),0];
- if length(Post)==0
- Dr='e1';
- else
- Dr='e'+Post;
- end;
- end;
- if (Posh=='u')|(Posh=='U')
- Pt=Pt+[0,Cell(3)];
- if length(Post)==0
- Dr='s1';
- else
- Dr='s'+Post;
- end;
- end;
- if (Posh=='d')|(Posh=='D')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- end;
- if (Posh=='b')|(Posh=='B')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- Str='$\mathstrut$'+Str;
- end;
- Letter(Pt,Dr,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin
deleted file mode 100644
index 3a9d0634..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci
deleted file mode 100644
index 63bc151f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putcirmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putcirmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Tmp1=Dt(I);
- Str=Str+'\cirmark';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,Pos,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin
deleted file mode 100644
index b7994dc4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
deleted file mode 100644
index 41b9a1b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin
deleted file mode 100644
index 304768e4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci
deleted file mode 100644
index 0e2f9d0a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLexpr.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 10.04.01
-
-function PutcoLexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin
deleted file mode 100644
index 153f9afd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci
deleted file mode 100644
index b993ffa9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoLstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function PutcoLstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,Nr,I,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,Nr,K,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,Nr,K,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin
deleted file mode 100644
index f48d783b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci
deleted file mode 100644
index 8d732a9d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putdashmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putdashmark(TbL,Nrg,Mrg,Dt)
- N=length(Dt);
- Str='\hspace*{2mm}';
- for I=1:N
- Tmp1=Dt(I);
- if type(Tmp1)==1
- Tmp1=string(Tmp1);
- end;
- Str=Str+'\dashmark{'+Tmp1+'}';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,'l',Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin
deleted file mode 100644
index ae7f9955..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrecmark.sci
deleted file mode 100644
index ce63e542..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin
deleted file mode 100644
index 9e4117c2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci
deleted file mode 100644
index 0c2c209a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin
deleted file mode 100644
index f29ca390..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci
deleted file mode 100644
index 0a3158cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowexpr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 10.04.01
-
-function Putrowexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin
deleted file mode 100644
index 32f9675d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci
deleted file mode 100644
index d006f3ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrowstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function Putrowstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,I,Nr,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,K,Nr,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,K,Nr,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin
deleted file mode 100644
index 30dda6f7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci
deleted file mode 100644
index a4f1ad89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Puttrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Puttrace(Dt);
- global TRACEDATA;
- TRACEDATA=Dt;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin
deleted file mode 100644
index aa4a60ac..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci
deleted file mode 100644
index 839452f6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ratiocmyk.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// 11.05.28
-// 15.05.03
-
-function R=Ratiocmyk(Color)
- if type(Color)==1 then
- R=Color;
- return;
- end;
- Tmp=grep(Color,',');
- if length(Tmp)>0
- R=evstr(Tmp);
- return;
- end;
- select Color
- case 'greenyellow' then R=[0.15,0,0.69,0],
- case 'yellow' then R=[0,0,1,0],
- case 'goldenrod' then R=[0,0.1,0.84,0],
- case 'dandelion' then R=[0,0.29,0.84,0],
- case 'apricot' then R=[0,0.32,0.52,0],
- case 'peach' then R=[0,0.5,0.7,0],
- case 'melon' then R=[0,0.46,0.5,0],
- case 'yelloworange' then R=[0,0.42,1,0],
- case 'orange' then R=[0,0.61,0.87,0],
- case 'burntorange' then R=[0,0.51,1,0],
- case 'bittersweet' then R=[0,0.75,1,0.24],
- case 'redorange' then R=[0,0.77,0.87,0],
- case 'mahogany' then R=[0,0.85,0.87,0.35],
- case 'maroon' then R=[0,0.87,0.68,0.32],
- case 'brickred' then R=[0,0.89,0.94,0.28],
- case 'red' then R=[0,1,1,0],
- case 'orangered' then R=[0,1,0.5,0],
- case 'rubinered' then R=[0,1,0.13,0],
- case 'wildstrawberry' then R=[0,0.96,0.39,0],
- case 'salmon' then R=[0,0.53,0.38,0],
- case 'carnationpink' then R=[0,0.63,0,0],
- case 'magenta' then R=[0,1,0,0],
- case 'violetred' then R=[0,0.81,0,0],
- case 'rhodamine' then R=[0,0.82,0,0],
- case 'mulberry' then R=[0.34,0.9,0,0.02],
- case 'redviolet' then R=[0.07,0.9,0,0.34],
- case 'fuchsia' then R=[0.47,0.91,0,0.08],
- case 'lavender' then R=[0,0.48,0,0],
- case 'thistle' then R=[0.12,0.59,0,0],
- case 'orchid' then R=[0.32,0.64,0,0],
- case 'darkorchid' then R=[0.4,0.8,0.2,0],
- case 'purple' then R=[0.45,0.86,0,0],
- case 'plum' then R=[0.5,1,0,0],
- case 'violet' then R=[0.79,0.88,0,0],
- case 'royalpurple' then R=[0.75,0.9,0,0],
- case 'blueviolet' then R=[0.86,0.91,0,0.04],
- case 'periwinkle' then R=[0.57,0.55,0,0],
- case 'cadetblue' then R=[0.62,0.57,0.23,0],
- case 'cornflowerblue' then R=[0.65,0.13,0,0],
- case 'midnightblue' then R=[0.98,0.13,0,0.43],
- case 'navyblue' then R=[0.94,0.54,0,0],
- case 'royalblue' then R=[1,0.5,0,0],
- case 'blue' then R=[1,1,0,0],
- case 'cerulean' then R=[0.94,0.11,0,0],
- case 'cyan' then R=[1,0,0,0],
- case 'processblue' then R=[0.96,0,0,0],
- case 'skyblue' then R=[0.62,0,0.12,0],
- case 'turquoise' then R=[0.85,0,0.2,0],
- case 'tealblue' then R=[0.86,0,0.34,0.02],
- case 'aquamarine' then R=[0.82,0,0.3,0],
- case 'bluegreen' then R=[0.85,0,0.33,0],
- case 'emerald' then R=[1,0,0.5,0],
- case 'junglegreen' then R=[0.99,0,0.52,0],
- case 'seagreen' then R=[0.69,0,0.5,0],
- case 'green' then R=[1,0,1,0],
- case 'forestgreen' then R=[0.91,0,0.88,0.12],
- case 'pinegreen' then R=[0.92,0,0.59,0.25],
- case 'limegreen' then R=[0.5,0,1,0],
- case 'yellowgreen' then R=[0.44,0,0.74,0],
- case 'springgreen' then R=[0.26,0,0.76,0],
- case 'olivegreen' then R=[0.64,0,0.95,0.4],
- case 'rawsienna' then R=[0,0.72,1,0.45],
- case 'sepia' then R=[0,0.83,1,0.7],
- case 'brown' then R=[0,0.81,1,0.6],
- case 'tan' then R=[0.14,0.42,0.56,0],
- case 'gray' then R=[0,0,0,0.5],
- case 'black' then R=[0,0,0,1],
- case 'white' then R=[0,0,0,0],
- else
- disp(Color+' may be user-defined');
- R=Color; // 15.05.03
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin
deleted file mode 100644
index 0b858b05..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci
deleted file mode 100644
index c1656b15..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadOutData.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-// 14.10.10
-// 14.12.14 for 3d
-// 15.01.03 changed ("start","end")
-// 15.10.24 in case of list-length==1
-
-function Out=ReadOutData(varargin)
- global Fnameout
- if length(varargin)==0 then
- Fname=Rnameout;
- else
- Fname=varargin(1);
- end
- Fid=mopen(Fname,"rb");
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- break;
- end;
- C=ascii(Tmp);
- if Tmp=="/"|C==13|C==10 then// / CR,LF
- if Flg==1 then
- if part(Str,1:5)=="start" then
- Str="Tmp=[];";
- else
- if part(Str,1:3)=="end" then
- if Flg3d==0 then // 2014.12.14
- Str=Varname+"($+1)=Listplot(Tmp);";
- else
- Str=Varname+"($+1)=Spaceline(Tmp);";
- end
- else
- if part(Str,1:2)=="[[" then
- Str="Tmp=[Tmp,"+Str+"];";
- else
- Varname=Str;
- Str=Varname+"=list();"
- Flg3d=-1;
- end;
- end;
- end;
- if Flg3d==-1 then // 2014.12.14
- Tmp1=mtlb_findstr(Str,"[[");
- if length(Tmp1)>0 then
- Tmp2=mtlb_findstr(Str,"]");
- Tmp3=part(Str,Tmp1:Tmp2(1));
- Tmp4=mtlb_findstr(Tmp3,",")
- if length(Tmp4)==2 then
- Flg3d=1;
- else
- Flg3d=0;
- end
- end
- end
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=[]; // 15.10.24 from
- Var="";
- Ctr=0;
- for J=1:size(Gstr,1)
- St=Gstr(J,1);
- Out=[Out;St];
- Tmp=strsplit(St,"=");
- Tmp1=Tmp(1,1);
- Tmp2=Tmp(2,1);
- if grep(Tmp2,"list()") then
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end;
- Var=Tmp1;
- Ctr=0;
- end;
- if grep(Tmp1,"$") then
- Ctr=Ctr+1;
- end;
- end
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end; // 15.10.24 upto
- Out;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin
deleted file mode 100644
index e078ba2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci
deleted file mode 100644
index eaf9f6df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ReadfromCindy.sci
+++ /dev/null
@@ -1,38 +0,0 @@
-// s:2014,09.08
-// e:2014.09.26
-// e:2014.10.07 debugged, code changed
-// e:2014.10.08 CR | LF
-
-function Out=ReadfromCindy(Fname)
- Fid=mopen(Fname,"rb");
- Gline=list();
- Gpt=list();
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=1;
- end;
- break;
- end
- C=ascii(Tmp);
- if C==13|C==10 then// CR,LF
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=Gstr;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin
deleted file mode 100644
index 05df3aa2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci
deleted file mode 100644
index 7109f789..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Readtextdata.sci
+++ /dev/null
@@ -1,160 +0,0 @@
-// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin
deleted file mode 100644
index 2269d9ad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci
deleted file mode 100644
index 837a5727..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Reflectdata.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Reflectdata(varargin)
- Nargs=length(varargin)
- ML=varargin(1);
- ML=Flattenlist(ML);
- if Nargs==1
- PtA=[0,0];PtB=PtA;
- else
- Pts=varargin(2);
- if length(Pts)==2
- PtA=Pts; PtB=PtA;
- else
- PtA=Pts(1,1:2); PtB=Pts(1,3:4);
- end
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- if PtA==PtB
- X2=2*PtA(1)-X1;
- Y2=2*PtA(2)-Y1;
- else
- U=PtB(1)-PtA(1);
- V=PtB(2)-PtA(2);
- A=PtA(1);
- B=PtA(2);
- X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2);
- Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2);
- end
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin
deleted file mode 100644
index 1a99c6ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci
deleted file mode 100644
index facea4d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rmmember.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 11.01.14 New
-
-function Out=Rmmember(L,Rm)
- if type(L)==1
- Out=[];
- end;
- if type(L)==15
- Out=list();
- end;
- for J=1:length(L)
- Tmp=L(J);
- if ~Member(Tmp,Rm)
- Out($+1)=Tmp;
- end;
- end;
- if type(L)==1 & size(L,1)==1
- Out=Out';
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin
deleted file mode 100644
index c9391ec5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci
deleted file mode 100644
index 9082290d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3data.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-// 08.08.15
-// 14.03.23 debugged "center"
-// 15.04.12
-
-function Out=Rotate3data(varargin)
-// Eps=10^(-4);
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin
deleted file mode 100644
index 35da0ed9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci
deleted file mode 100644
index 910aa734..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotate3pt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-// 08.08.15
-
-function Ans=Rotate3pt(varargin)
- Eps=10^(-4);
- Nargs=length(varargin);
- P=varargin(1);
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
- if type(W2)==1 & length(W2)==1
- Ct=cos(W2);
- St=sin(W2);
- V3=1/norm(W1)*W1;
- if V3(1)==0
- Tmp=[1,0,0];
- else
- Tmp=[0,1,0];
- end;
- W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)];
- V1=1/norm(W1)*W1;
- V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)];
- else
- Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)];
- if norm(Tmp)<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/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin
deleted file mode 100644
index fda8e518..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Rotatedata.sci
deleted file mode 100644
index 845cac17..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin
deleted file mode 100644
index dd5656fd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Roundstr.sci
deleted file mode 100644
index d14f3b3a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin
deleted file mode 100644
index 7aeb7385..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Scaledata.sci
deleted file mode 100644
index 7e563f4b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin
deleted file mode 100644
index 4ebf14d1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sectionview.sci
deleted file mode 100644
index e918e475..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin
deleted file mode 100644
index 4b102f32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setangle.sci
deleted file mode 100644
index 2a4a3c95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin
deleted file mode 100644
index 7ea694d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setarrow.sci
deleted file mode 100644
index 8f9d6053..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin
deleted file mode 100644
index 55e4fb8c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setax.sci
deleted file mode 100644
index 5fab30e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin
deleted file mode 100644
index a6d15d9d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci
deleted file mode 100644
index 51b8e0c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcolor.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 11.05.28
-// 11.08.24
-// 15.05.03
-
-function Setcolor(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Color='black';
- Kosa=1;
- Color=varargin(1);
- if length(varargin)>1
- Kosa=varargin(2);
- end;
- Iro=Ratiocmyk(Color);
- if type(Iro)==10
- Str='\color{'+Iro+"}%";
- else
- if size(Iro,2)>3
- Str='\color[cmyk]{';
- else
- Str='\color[rgb]{';
- end;
- for J=1:size(Iro,2)
- Str=Str+string(Kosa*Iro(J));
- if J<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/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin
deleted file mode 100644
index e8d09380..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setcounter.sci
deleted file mode 100644
index 4b8b932b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin
deleted file mode 100644
index b50381fd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmark.sci
deleted file mode 100644
index ae713f4e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin
deleted file mode 100644
index 1ad13b66..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setmarklen.sci
deleted file mode 100644
index a17c9e95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin
deleted file mode 100644
index af675f9c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjdecimals.sci
deleted file mode 100644
index 2ee06cbb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin
deleted file mode 100644
index 5ae9c620..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setobjscale.sci
deleted file mode 100644
index 22f13c4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin
deleted file mode 100644
index 05b3c3e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setorigin.sci
deleted file mode 100644
index 62a1f624..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin
deleted file mode 100644
index fd0d6bd7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci
deleted file mode 100644
index b3f0cbad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpen.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Setpen(Width)
- global Wfile FID PenThick PenThickInit;
- PenThick=round(PenThickInit*Width);
- Str='\linethickness{'+string(PenThick/1000)+'in}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin
deleted file mode 100644
index 07e56733..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpers.sci
deleted file mode 100644
index 455551bb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin
deleted file mode 100644
index 43792ee3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setpt.sci
deleted file mode 100644
index a3b86b01..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin
deleted file mode 100644
index 85da2aca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setscaling.sci
deleted file mode 100644
index 1d4868c9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin
deleted file mode 100644
index 4e097b75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoL.sci
deleted file mode 100644
index cb6c79ae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin
deleted file mode 100644
index bf25b018..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/SetstereoR.sci
deleted file mode 100644
index ff9de892..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin
deleted file mode 100644
index 455d977f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setunitlen.sci
deleted file mode 100644
index 84ea4d60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin
deleted file mode 100644
index a2e35ff2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setversion.sci
deleted file mode 100644
index 92883d5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin
deleted file mode 100644
index 0fdd661f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci
deleted file mode 100644
index fb72097b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Setwindow.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-//
-// 09.02.27
-// 10.04.25
-
-function Out=Setwindow(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs==0
- Out=[XMIN,XMAX,YMIN,YMAX];
- disp(Out);
- return;
- end;
- if Nargs==1
- Dt=varargin(1);
- if type(Dt)==1
- Dt=list(Dt);
- end;
- Xm=%inf; XM=-%inf;
- Ym=%inf; YM=-%inf;
- for I=1:length(Dt)
- GL=Dividegraphics(Dt(I));
- for J=1:length(GL)
- G=GL(J);
- Tmp=min(G(:,1)); Xm=min(Xm,Tmp);
- Tmp=max(G(:,1)); XM=max(XM,Tmp);
- Tmp=min(G(:,2)); Ym=min(Ym,Tmp);
- Tmp=max(G(:,2)); YM=max(YM,Tmp);
- end;
- end;
- XMIN=Xm; XMAX=XM;
- YMIN=Ym; YMAX=YM;
- end;
- if Nargs==2
- RgX=varargin(1);
- RgY=varargin(2);
- XMIN=RgX(1); XMAX=RgX(2);
- YMIN=RgY(1); YMAX=RgY(2);
- end
- if Nargs==4
- XMIN=varargin(1); XMAX=varargin(2);
- YMIN=varargin(3); YMAX=varargin(4);
- end;
- Out=[XMIN,XMAX,YMIN,YMAX];
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin
deleted file mode 100644
index df965eb7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci
deleted file mode 100644
index 9c20a13b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sf3data.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.08.16
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function PL__=Sf3data(varargin)
- Nargs__=length(varargin);
- FdL__=Fullformfunc(varargin(1));
- F__=Mixop(1,FdL__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Urg__=Mixop(5,FdL__);
- Vrg__=Mixop(6,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- U__=part(Urg__,1:K__-1);
- Tmp__=part(Urg__,K__+1:length(Urg__));
- Tmp__=evstr(Tmp__);
- Umin__=Tmp__(1); Umax__=Tmp__(2);
- K__=mtlb_findstr(Vrg__,'=');
- V__=part(Vrg__,1:K__-1);
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp__=evstr(Tmp__);
- Vmin__=Tmp__(1); Vmax__=Tmp__(2);
- Ndu__=25 ; Ndv__=25; Np__=[50,50];
- if Nargs__>=3
- Ndu__=varargin(2);
- Ndv__=varargin(3);
- end;
- if Nargs__>=4
- Np__=varargin(4);
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Du__=(Umax__-Umin__)/Ndu__;
- Dv__=(Vmax__-Vmin__)/Ndv__;
- PL__ = [];
- for I__=0:Ndu__
- U0__ ='('+string(Umin__+I__*Du__)+')';
- Tmp__=strsubst(Xf__,U__,U0__);
- Tmp1__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Yf__,U__,U0__);
- Tmp2__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Zf__,U__,U0__);
- Tmp3__=strsubst(Tmp__,V__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2)));
- PL__=Mixadd(PL__,PD__);
- end;
- for J__=0:Ndv__
- V0__='('+string(Vmin__+J__*Dv__)+')';
- Tmp__=strsubst(Xf__,V__,V0__);
- Tmp1__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Yf__,V__,V0__);
- Tmp2__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Zf__,V__,V0__);
- Tmp3__=strsubst(Tmp__,U__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1)));
- PL__=Mixadd(PL__,PD__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin
deleted file mode 100644
index a86220d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci
deleted file mode 100644
index 7a759f69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdparadata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.09.13
-// 10.02.16 Eps => [Eps, Epsmag]
-
-function Out5=Sfbdparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpara(Out3,Fd,Eps(1)); //
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
deleted file mode 100644
index 304be9f0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
deleted file mode 100644
index 9833a7f4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-
-// 08.09.21
-// 10.02.16 Eps => [Eps, Epsmag]
-// 13.11.02 bug
-
-function Out5=Sfbdpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
deleted file mode 100644
index cb2d0f7a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
deleted file mode 100644
index 082ccec3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.09.10
-// 08.09.13
-
-function Out5=Sfbdrawparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpara(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
deleted file mode 100644
index 5731c723..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
deleted file mode 100644
index cde6870f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.09.21
-
-function Out5=Sfbdrawpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpers(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin
deleted file mode 100644
index a7dae3c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci
deleted file mode 100644
index 5a15d61c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutdata.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-// 08.09.09
-// 08.09.19
-// 08.09.20
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function EkL__=Sfcutdata(varargin)
- Nargs__=length(varargin);
- Fd__=varargin(1);
- CutD__=varargin(2);
- Np__=[50,50];
- if Nargs__>=3
- Tmp__=varargin(3);
- if type(Tmp__)==1 & length(Tmp__)==1
- Np__=[Tmp__,Tmp__];
- end;
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax=Urg__(2);
- Vmin__=Vrg__(1); Vmax=Vrg__(2);
- if Mixtype(CutD__)~=1
- V1__=Mixop(1,CutD__);
- Tmp__=Mixop(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Mixop(5,Fd__L);
- Tmp__2=Mixop(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:Mixlength(CutuvL__)
- Out__1=Mixop(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
deleted file mode 100644
index 07cfe7f8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
deleted file mode 100644
index 0e4c6a5b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.1
-// 10.02.17
-
-function Out=Sfcutoffparadata(varargin)
- Ms=list('hidden','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
deleted file mode 100644
index aaf088b5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
deleted file mode 100644
index c10cdb8d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffpersdata(varargin)
- Ms=list('hidden','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
deleted file mode 100644
index b2d998a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
deleted file mode 100644
index 546f66d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.19
-// 10.02.17
-
-function Out=Sfcutoffrawparadata(varargin)
- Ms=list('raw','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 8c08c1b7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
deleted file mode 100644
index e5a387f5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffrawpersdata(varargin)
- Ms=list('raw','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin
deleted file mode 100644
index 45df29ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci
deleted file mode 100644
index 5aa4e5e5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfparadata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.16
-
-function Out=Sfparadata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpara(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin
deleted file mode 100644
index 3350f9b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci
deleted file mode 100644
index ecc63e41..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sfpersdata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.15
-
-function Out=Sfpersdata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpers(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin
deleted file mode 100644
index 130e2b32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci
deleted file mode 100644
index ff22a933..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Shade.sci
+++ /dev/null
@@ -1,84 +0,0 @@
-// 08.05.22
-// 09.12.25
-// 11.05.27 (for pdflatex )
-// 17.01.09 (shade, thickness )
-
-function Shade(varargin)
- global Wfile FID MilliIn;
- // 2nd arg is a color name or '[..]{ }'
- Nargs=length(varargin);
- Iroflg=0;
- if Nargs>1
- Iroflg=1;
- Iro=varargin(Nargs);
- if type(Iro)==10 then
- if length(strchr(Iro,"{"))>0
- Str="{\color"+Iro;
- else
- Str="{\color{"+Iro+"}";
- end;
- else
- if length(Iro)==4
- Str='{\color[cmyk]{';
- else
- Str='{\color[rgb]{';
- end;
- for J=1:length(Iro)
- Str=Str+string(Iro(J));
- if J<length(Iro) then
- Str=Str+',';
- end
- end
- Str=Str+'}';
- end;
- if Wfile=='default'
- mprintf('%s\n',Str+'%');
- else
- mfprintf(FID,'%s\n',Str);
- end;
- end;
- Mojisu=0; //
- Tmp=varargin(1);
- Data=Kyoukai(Tmp);
- for I=1:length(Data)
- PL=Op(I,Data);
- for J=1:size(PL,1)
- P=Doscaling(PL(J,:));
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+X+','+Y+')';
- if J==1 then
- Str='\polygon*'+Pt;
- else
- Str=Pt;
- end
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end;
- end;
- end;
- if Iroflg==1
- Str='}%';
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin
deleted file mode 100644
index 89d8b459..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci
deleted file mode 100644
index 4eec31cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeleton2data.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.06.13
-
-function Out=Skeleton2data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- Tmp=varargin(1);
- if Mixtype(Tmp)==1
- ObjL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- ObjL=Tmp;
- else
- ObjL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- PltL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- PltL=Tmp
- else
- PltL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- PltL=Mixadd(PltL,Tmp1);
- else
- PltL=Mixjoin(PltL,Tmp1);
- end;
- end;
- end;
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.01;
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=[];
- for I=1:Mixlength(ObjL)
- Curve=Mixop(I,ObjL);
- Obj2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Obj2=[Obj2;P,-1];
- end;
- Obj2L=Mixadd(Obj2L,Obj2);
- end;
- Plt2L=[]
- for I=1:Mixlength(PltL)
- Curve=Mixop(I,PltL);
- Plt2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Plt2=[Plt2;P,0];
- end;
- Plt2L=Mixadd(Plt2L,Plt2);
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
deleted file mode 100644
index 03fcdda2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
deleted file mode 100644
index 5914d47a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
+++ /dev/null
@@ -1,48 +0,0 @@
-// 09.09.25
-// 11.12.12
-// 15.06.14
-// 15.10.19
-
-function Out=Skeletonpara3data(varargin)
- global MilliIn;
- Eps=10^(-4); // 15.06.14
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=list();
- for I=1:Mixlength(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- if size(Gd,1)==1 // 15.10.19
- continue;
- end;
- if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<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/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin
deleted file mode 100644
index 913af31d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
deleted file mode 100644
index 1270f789..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
deleted file mode 100644
index ec2a9bad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
deleted file mode 100644
index 57dde938..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 11.12.12
-
-function Out=Skeletonpers3data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=[];
- for I=1:Mixlength(Plt3L)
- Tmp=CameracoordCurve(Mixop(I,Plt3L));
- Plt2L=Mixadd(Plt2L,Tmp);
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=CameracoordCurve(Obj3);
- Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invperspt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
deleted file mode 100644
index 7d2c1a07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
deleted file mode 100644
index c91e73cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 11.12.12
-
-function Out=Skeletonpersdata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=CameracoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=CameracoordCurve(Plt3L(I));
- end;
- Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin
deleted file mode 100644
index 880f8540..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci
deleted file mode 100644
index 077a88cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spacecurve.sci
+++ /dev/null
@@ -1,83 +0,0 @@
-// 08.07.11
-// 09.05.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 13.10.21 ( __ added to varibles )
-// 16.08.20 (N changed to devided number )
-// 16.12.13 ( in case of T1=T2)
-
-function P__=Spacecurve(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- Fnstr__=varargin(1);
- Rgstr__=varargin(2);
- Range__=[0,2*%pi];
- N=50; // Numpoints
- E=[]; // Exclusions
- D=%inf; // Discont (Changed)
- for I__=3:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
- Dt__=(T2__-T1__)/N; // 16.08.20
- Str__=mtlb_strrep(Fnstr__,Vname__,'t__');
- if abs(Dt__)<Eps__ 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/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin
deleted file mode 100644
index 86bddaa8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci
deleted file mode 100644
index 9fe33c06..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin
deleted file mode 100644
index cadb3d56..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Splinedata.sci
deleted file mode 100644
index a4de85ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin
deleted file mode 100644
index de695ff2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci
deleted file mode 100644
index 8f4da94d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Strop.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function C=Strop(Num,Str)
- N=length(Num);
- L=ascii(Str);
- C='';
- for I=1:N
- K=Num(I);
- Tmp=char(L(K));
- C=C+Tmp;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin
deleted file mode 100644
index 2ca7ae03..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci
deleted file mode 100644
index 785b605c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Subs.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-//
-// 08.06.04
-
-function V=Subs(SbstrL,StrF)
- Str=StrF;
- if type(StrF)==2
- Str=pol2str(StrF);
- end
- V=StrF;
- for N=1:size(SbstrL,2)
- Sbstr=SbstrL(1,N);
- I=mtlb_findstr(Sbstr,'=');
- Tmp=strsplit(Sbstr,I);
- SbA=Tmp(1);
- SbA=Op(1:length(SbA)-1,SbA);
- SbB=Tmp(2);
- V=strsubst(V,SbA,SbB);
- end
- V=evstr(V);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin
deleted file mode 100644
index 0e796d65..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci
deleted file mode 100644
index 55fdfd0f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Sumfun.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.05.30
-// 08.05.31
-// 08.06.03
-// 13.10.21 (__ added to variables )
-
-function PL__=Sumfun(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Const__=0;
- Addstr__='A__=0';
- J__=1;
- Tmp__=varargin(1);
- if type(Tmp__)==1
- Const__=Tmp__;
- J__=J__+1;
- end
- if type(Tmp__)==10
- Tmp1__=Strop(length(Tmp__),Tmp__);
- if Tmp1__=='+'
- Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__);
- J__=J__+1
- end
- end
- Fnstr__=varargin(J__);
- Krange__=varargin(J__+1);
- Xrange__=varargin(J__+2);
- N=50;
- for I__=J__+3:Nargs__
- Tmp__=varargin(I__);
- execstr(Tmp__);
- end
- Tmp__=mtlb_findstr(Krange__,'=');
- Kname__=Strop(1:Tmp__-1,Krange__);
- Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__);
- Tmp1__='Krg__='+Tmp1__;
- execstr(Tmp1__);
- Tmp__=mtlb_findstr(Xrange__,'=');
- if Tmp__==[]
- Xname__=Xrange__;
- Xrg__=[XMIN,XMAX];
- else
- Xname__=Strop(1:Tmp__-1,Xrange__);
- Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__);
- Tmp1__='Xrg__='+Tmp1__;
- execstr(Tmp1__);
- end
- Dx__=(Xrg__(2)-Xrg__(1))/N;
- PL__=[];
- I__=0;
- while I__<=N
- Tmp__=Xname__+'=Xrg__(1)+I__*Dx__';
- execstr(Tmp__);
- J__=Krg__(1);
- execstr(Addstr__);
- Y__=Const__+A__;
- while J__<=Krg__(length(Krg__))
- Tmp__=Kname__+'=J__';
- execstr(Tmp__);
- execstr('Y__=Y__+'+Fnstr__);
- J__=J__+1;
- end
- PL__=[PL__;Xrg__(1)+I__*Dx__,Y__];
- I__=I__+1;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin
deleted file mode 100644
index c5c00977..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci
deleted file mode 100644
index 0d649872..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symb3data.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-// s : 2014.08.25
-
-function Out=Symb3data(Moji,Size,Kaiten,NV,Pos)
- if type(Moji)==10 then
- Tmp=Symbdata(Moji);
- GY1=Tmp(2)
- else
- GY1=Moji
- end
- GY1=Scaledata(GY1,Size,Size);
- GY1=Rotatedata(GY1,Kaiten*%pi/180);
- A=NV(1); B=NV(2); C=NV(3);
- if A^2+B^2==0 then
- E1=[1,0,0];
- E2=[0,1,0];
- else
- E1=[B,-A,0];
- E2=[-A*C,-B*C,A^2+B^2];
- D=det([E1;E2;NV]);
- if D<0 then
- E1=-E1
- end
- E1=E1/norm(E1);
- E2=E2/norm(E2);
- end
- deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]");
- GY1=Embed(GY1,Em);
- GY1=Translate3data(GY1,Pos);
- Out=Flattenlist(GY1);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin
deleted file mode 100644
index 2fb81c8f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci
deleted file mode 100644
index d63a3470..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Symbdata.sci
+++ /dev/null
@@ -1,67 +0,0 @@
-// s : 2014.08.25
-// 14.09.07
-
-function Out=Symbdata(Moji)
- ML=list(); Sp=[]; CC=[];
- if Moji=="x" then
- M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;...
- -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035];
- M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;...
- -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end;
- if Moji=="y" then
- M1=[-0.06,0.06;...
- -0.045,0.080;...
- -0.03,0.080;...
- -0.022,0.065;...
- -0.032,0.035;...
- -0.035,-0.01;...
- 0.007,-0.008;...
- 0.037,0.04;...
- 0.05,0.09];
- M2=[0.05,0.09;...
- 0.037,0.04;...
- 0.025,-0.00;...
- 0.015,-0.035;...
- -0.000,-0.055;...
- -0.025,-0.062;...
- -0.05,-0.045];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end
- if Moji=="z" then
- M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;...
- 0.01,0.04;0.035,0.04;0.042,0.045];
- M2=[0.042,0.045;0.00,0.00;-0.042,-0.045];
- M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;...
- 0.01,-0.045;0.023,-0.045;0.035,-0.035];
- ML=list(M1,M2,M3);
- Sp=[100,0,100];
- CC=[0,0,0];
- end
- Out1=list()
- Out2=list()
- for J=1:length(ML)
- M=ML(J);
- N=Sp(J);
- for K=1:size(M,1)
- P=M(K,:)
- Out1($+1)=P
- end
- if N>0 then
- if CC(J)==0 then
- S=Splinedata(M,"N="+string(N))
- else
- S=Splinedata(M,"N="+string(N),"C")
- end
- else
- S=M
- end;
- Out2($+1)=S
- end
- Out=list(Out1,Out2)
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin
deleted file mode 100644
index 774b416f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci
deleted file mode 100644
index 621f6256..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tabledata.sci
+++ /dev/null
@@ -1,130 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 10.01.12
-// 10.01.13
-// 10.03.28
-// 10.03.30
-// 13.05.03 Domain can be omitted
-
-function Out=Tabledata(varargin)
-// 2013.05.01 Domain is optional.
- Eps=0.001;
- Tmp=varargin(1); // 130502 from
- if type(Tmp)==1
- Domain=varargin(1);
- VL=varargin(2);
- HL=varargin(3);
- else
- Domain=[-1,-1];
- VL=varargin(1);
- HL=varargin(2);
- end; // 130502 upto
- Hsize=Domain(1);
- SvL=list(0);
- S=0;
- for I=1:length(VL)
- Tmp=VL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- SvL($+1)=Tmp;
- end;
- if Hsize>S
- SvL($+1)=Hsize;
- end;
- Hsize=Op(1,SvL(length(SvL)));
- Vsize=Domain(2);
- ShL=list(0);
- S=0;
- for I=1:length(HL)
- Tmp=HL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- ShL($+1)=Tmp;
- end;
- if Vsize>S
- ShL($+1)=Vsize;
- end;
- Vsize=Op(1,ShL(length(ShL)));
- Marw=0; Mare=0; Mars=0; Marn=0;
- if length(Domain)>2
- Marw=Domain(3);
- Mare=Domain(4);
- end;
- if length(Domain)>4
- Marn=Domain(5);
- Mars=Domain(6);
- end;
- Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]);
- Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]);
- Gdata=list(Tmp);
- Tmp=-Marw;
- Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]));
- for I=1:length(SvL) // 10.03.30
- Data=SvL(I);
- X=Data(1);
- if length(Data)==1
- Y1=0;
- Y2=Vsize;
- G=Listplot([X,Y1],[X,Y2]);
- else
- G=[];
- for J=2:2:length(Data)
- Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30
- Y2=Vsize-Op(1,ShL(Data(J+1)));
- Tmp=Listplot([[X,Y1],[X,Y2]]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Hdata($+1)=G;
- end;
- Tmp=Hsize+Mare;
- Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]);
- Hdata($+1)=Tmp1;
- Tmp=Vsize+Marn;
- Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]]));
- for I=1:length(ShL)
- Data=ShL(I);
- Y=Vsize-Data(1);
- if length(Data)==1
- X1=0;
- X2=Hsize;
- G=Listplot([X1,Y],[X2,Y]);
- else
- G=[];
- for J=2:2:length(Data)
- X1=Op(1,SvL(Data(J))); // 10.03.30
- X2=Op(1,SvL(Data(J+1)));
- Tmp=Listplot([X1,Y],[X2,Y]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Vdata($+1)=G;
- end;
- Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]);
- Vdata($+1)=Tmp;
- Tmp1=Mixsub(3:(length(Hdata)-2),Hdata);
- Tmp2=Mixsub(3:(length(Vdata)-2),Vdata);
- Gdata=Mixjoin(Gdata,Tmp1,Tmp2);
- Hind=2:(1+length(Tmp1));
- Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2));
- G=Gdata(1);
- P1=Ptsw(G); P2=Ptnw(G);
- Q1=Ptse(G); Q2=Ptne(G);
- Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- P1=Ptnw(G); P2=Ptne(G);
- Q1=Ptsw(G); Q2=Ptse(G);
- Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- Tmp3=Framedata();
- Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3);
-endfunction;
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin
deleted file mode 100644
index 97832ff7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
deleted file mode 100644
index 9b848315..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texcom.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-//
-// 09,12.05
-// 09.12.06
-// 09.12.07
-// 09.12.20
-
-function Texcom(Meirei)
- global Wfile FID;
- if Meirei=='\thinlines'
- Setpen(1);
- return
- end
- if Meirei=='\thicklines'
- Setpen(2);
- return
- end
- if Meirei=='\Thicklines'
- Setpen(3);
- return
- end;
-
- if Meirei=='' // 09.12.07
- Tmp=[];
- else
- Tmp=mtlb_findstr(Meirei,'newline');
- end;
- if length(Tmp)>0
- if Wfile=='default'
- mprintf('%s\n','');
- else
- mfprintf(FID,'%s\n','');
- end;
- return;
- end;
- if Wfile=='default'
- mprintf('%s%s\n',Meirei,'%');
- else
- mfprintf(FID,'%s%s\n',Meirei,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin
deleted file mode 100644
index e04419ed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci
deleted file mode 100644
index 2a8b08ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texctr.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-//
-// 2010.05.15
-
-function Out=Texctr(N)
- if type(N)==1
- Alpha='abcdefghijklmnopqrstuvwxyz';
- Out='ketpicctr'+part(Alpha,N);
- else
- if part(N,1)=='\'
- Out=part(N,2:length(N));
- else
- Out=N;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin
deleted file mode 100644
index 30d0e388..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci
deleted file mode 100644
index 8ef93556..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texelse.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texelse()
- Texcom('');
- Texcom('\else');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin
deleted file mode 100644
index 89cf7657..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci
deleted file mode 100644
index a3139873..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texend.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 01.10.21
-
-function Texend()
- Closephr();
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin
deleted file mode 100644
index 72f260ac..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci
deleted file mode 100644
index ecb7b788..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendfor.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 10.04.16
-
-function Texendfor(I)
- global TEXFORLEVEL TEXFORLAST
- Last=TEXFORLAST(TEXFORLEVEL);
- Texcom('');
- Texcom('\ifnum'+Texthectr(I)+'<'+Last);
- Texcom('\repeat');
- Texcom('}');
- TEXFORLEVEL=TEXFORLEVEL-1;
- TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin
deleted file mode 100644
index bd069613..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci
deleted file mode 100644
index 97d32d85..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texendif.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texendif()
- Texcom(''); //
- Texcom('\fi');
- Texcom('}');
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin
deleted file mode 100644
index b9861fc7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci
deleted file mode 100644
index 0c239842..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texfor.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.04.16
-// 10.05.12
-// 10.10.20 ( available for numeric )
-
-function Texfor(I,First,Last)
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=TEXFORLEVEL+1;
- Texsetctr(I,'0');
- Texsetctr(I,string(First)+'-1');
- Texcom('');
- Texcom('{');
- Texcom('\loop');
- Texsetctr(I,'+1');
- TEXFORLAST($+1)=string(Last);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin
deleted file mode 100644
index 3d33948a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci
deleted file mode 100644
index f661c649..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texforinit.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.18
-
-function Texforinit()
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=0;
- TEXFORLAST=list();
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin
deleted file mode 100644
index 6f53de74..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci
deleted file mode 100644
index 8cbae5dc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texif.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 10.04.16
-// 10.04.18
-// 10.05.03
-
-function Texif(varargin)
- Condstr=varargin(1);
- Tp=0;
- if length(varargin)>1
- Tp=varargin(2);
- end;
- Texcom('');
- Texcom('{');
- if Tp==0
- Texcom('\ifnum ');
- else
- Texcom('\ifdim ');
- end;
- Texcom(Condstr+' ');
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin
deleted file mode 100644
index 4dea33e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
deleted file mode 100644
index f83cc8c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texletter.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 10.01.07
-
-function Texletter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- P=varargin(I);
- X=P(1);
- if type(X)==1
- X=string(X);
- end;
- Y=P(2);
- if type(Y)==1
- Y=string(Y);
- end;
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n';
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s';
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e';
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w';
- end
- Hoko=Vhoko+Hhoko;
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='\put('+X+','+Y+'){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin
deleted file mode 100644
index a44b7156..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci
deleted file mode 100644
index b3b9a417..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texnewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\newcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin
deleted file mode 100644
index c0acb00b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci
deleted file mode 100644
index 03cabf81..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.21
-
-function Texnewctr(N)
- if type(N)==10
- Str='\newcounter{'+N+'}';
- Texcom(Str);
- else
- for I=N
- Str='\newcounter{'+Texctr(I)+'}';
- Texcom(Str);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin
deleted file mode 100644
index 507705b2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci
deleted file mode 100644
index b8926589..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texrenewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texrenewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\renewcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin
deleted file mode 100644
index d9c2bcae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci
deleted file mode 100644
index 166af676..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texsetctr.sci
+++ /dev/null
@@ -1,70 +0,0 @@
-// 10.01.21
-
-function Texsetctr(Nctr,Opstr)
- Ctr=Texctr(Nctr);
- Opstr=Opstr+'%';
- OperL='+-*/%';
- Oper='';
- Va='';
- Evflg=0;
- Paflg=0;
- for I=1:length(Opstr)
- Tmp=part(Opstr,I);
- if Tmp=='('
- Paflg=1;
- if length(Va)>0
- Evflg=1;
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Tmp==')'
- Paflg=0;
- if Evflg>0
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Paflg>0
- Va=Va+Tmp;
- continue;
- end;
- if length(mtlb_findstr(Tmp,OperL))==0
- Va=Va+Tmp;
- else
- if Evflg>0
- Tmp1=evstr(Va);
- Va='\value{'+Tmp1+'}';
- Evflg=0;
- end;
- if Oper==''
- if length(Va)>0
- Str='\setcounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- end;
- Oper=Tmp;
- Va='';
- elseif Oper=='+'
- Str='\addtocounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='-'
- Str='\addtocounter{'+Ctr+'}{-'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='*'
- Str='\multiply\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='/'
- Str='\divide\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va=''
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin
deleted file mode 100644
index 26d4e8ef..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci
deleted file mode 100644
index 469da91a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texthectr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texthectr(N)
- Out='\the'+Texctr(N);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin
deleted file mode 100644
index fd208b4a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci
deleted file mode 100644
index 96d1c734..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvalctr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texvalctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin
deleted file mode 100644
index 74890021..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci
deleted file mode 100644
index fc443411..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texvctr.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 10.01.21
-
-function Out=Texvctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin
deleted file mode 100644
index 67df224b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci
deleted file mode 100644
index c6ceff89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Thetadegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Thetadegree()
- global THETA;
- Ang=THETA*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin
deleted file mode 100644
index 3cbb70be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci
deleted file mode 100644
index a7a3fc2d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/ThisVersion.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=ThisVersion()
- global THISVERSION
- Y=THISVERSION
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin
deleted file mode 100644
index a0704ffc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci
deleted file mode 100644
index 8ef53bd5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Tolist.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.02
-
-function Out=Tolist(LG)
- Out=list();
- for I=1:length(LG)
- Out($+1)=LG(I);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin
deleted file mode 100644
index 55b89eee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci
deleted file mode 100644
index 98d69544..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translate3data.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.08.15
-// 15.04.12
-
-function Out=Translate3data(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- Mv=varargin(2);
- if type(Mv)==1 & length(Mv)==1
- Mv=[varargin(2),varargin(3),varargin(4)];
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=P+Mv;;
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin
deleted file mode 100644
index 2239d9d6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci
deleted file mode 100644
index a2e31085..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Translatedata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Translatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)>1
- A=Tmp(1); B=Tmp(2);
- else
- A=Tmp;
- if Nargs>=3
- B=varargin(3);
- else
- B=0;
- end;
- end;
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=X1+A;
- Y2=Y1+B;
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin
deleted file mode 100644
index 4d0816a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci
deleted file mode 100644
index b4705593..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Trunc.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.05.20
-
-function N=Trunc(X)
- if X>=0
- N=floor(X)
- else
- N=ceil(X)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin
deleted file mode 100644
index c9d8edf5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci
deleted file mode 100644
index 74910ceb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Unscaling.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-function Out=Unscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY];
- Out=GLg;
- if LOGX==1
- Out=[10^(GLg(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- Out=[GLg(:,1),10^(GLg(:,2))];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin
deleted file mode 100644
index ba124a81..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci
deleted file mode 100644
index 4bc7684c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=zeros(1,length(PA));
- end
- Tmp=PB-PA;
- L=sqrt(Tmp*Tmp');
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin
deleted file mode 100644
index b524d528..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci
deleted file mode 100644
index 527d3834..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vecnagasa2.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa2(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=[0,0];
- end
- Tmp=PB-PA;
- L=Tmp*Tmp';
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin
deleted file mode 100644
index cef98adc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci
deleted file mode 100644
index 44bde517..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Viewfrom.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.10.26
-
-function Out=Viewfrom(varargin)
- global THETA PHI
- Nargs=length(varargin);
- Nvec=varargin(1);
- GL=varargin(2);
- Flg=1;
- if Nargs>=3
- Flg=varargin(3);
- end;
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin
deleted file mode 100644
index 278e7845..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci
deleted file mode 100644
index de320918..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Vtickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.26 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Vtickmark(varargin)
- global Wfile FID MARKLEN GENTEN YMIN YMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((YMAX-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=Op(N,ArgsL);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(GENTEN(1),Dt);
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X+MARKLEN,Y]);
- Tmp2=Unscaling([X-MARKLEN,Y]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,'w',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'w')~=[]
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X+MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin
deleted file mode 100644
index 6b3e87e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci
deleted file mode 100644
index baa03e73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Windisp.sci
+++ /dev/null
@@ -1,110 +0,0 @@
-// 08.05.16 Point style
-// 08.05.17 MixL
-// 08.05.19 Changed
-// 08.05.21 Eps=0.1
-// 08.08.16 square
-// 09.11.04 window option
-// 09.11.07 gcf used
-// 09.12.25
-// 10.01.01
-// 10.01.09 ' '
-// 10.01.10 drw one by one
-// 10.02.08 revised for the case "a"
-// 10.02.13 square debugged
-// 10.02.21 square debugged (2)
-// 10.02.23 case of mixlength=3
-// 10.04.10 Origin bug
-// 11.05.29 Flattenlist used
-
-function Windisp(varargin)
- global XMIN XMAX YMIN YMAX GENTEN
- Nargs=length(varargin);
- Tp=varargin(Nargs);
- Ch='';
- if type(Tp)~=10
- scf();
- else
- Ch=part(Tp,1);
- Nargs=Nargs-1;
- select Ch;
- case 'N' then scf();
- case 'n' then scf();
- case 'C' then Tmp=gcf();clf('clear');
- case 'c' then Tmp=gcf();clf('clear');
- case 'A' then Tmp=gcf();
- case 'a' then Tmp=gcf();
- else
- Tmp1=part(Tp,length(Tp));
- Tmp2=part(Tp,1:length(Tp)-1);
- Tmp3=evstr(Tmp2);
- scf(Tmp3);
- if Tmp1=='C'|Tmp1=='c'
- clf('clear');
- end;
- end;
- end;
- Eps=0.1;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1); Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1); YM=Tmp(2);
- C=[(Xm+XM)/2,(Ym+YM)/2];
- H=max(XM-Xm,YM-Ym)/2;
- R1=C-H; R2=C+H;
- R1=Unscaling(R1);
- R2=Unscaling(R2);
- if (Ch~='A')&(Ch~='a')
- Tmp1=R1(1);
- Tmp2=R2(1);
- Tmp3=R1(2);
- Tmp4=R2(2);
- square(Tmp1,Tmp3,Tmp2,Tmp4);//
- P=Framedata([XMIN,XMAX],[YMIN,YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2);
- PtO=GENTEN; // 10.04.10
- if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) //
- P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- if (PtO(1)>=XMIN) & (PtO(1)<=XMAX)
- P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Tmp=Op(II,Pdata);
- P=MakeCurves(Tmp,0);
- P=Unscaling(P);
- Ndm=Dataindex(P);
- for J=1:size(Ndm,1)
- Q=P(Ndm(J,1):Ndm(J,2),:)
- if size(Q,1)==1
- for K=1:2:length(Q)
- plot2d(Q(K),Q(K+1),style=[-3]);
- end
- else
- Tmp1=Q(:,1)';
- Tmp2=Q(:,2)';
- plot2d(Tmp1,Tmp2);
- end
- end
- end
-// for II=2:length(Pdata)
-// Tmp=Op(II,Pdata);
-// Windisp(Tmp,'a');
-// end;
- end
- for I=2:Nargs
- Pdata=varargin(I);
- Windisp(Pdata,'a');
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin
deleted file mode 100644
index 68abd1d4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci
deleted file mode 100644
index 24920661..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WireHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.12.11
-
-function Out=WireHiddenData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin
deleted file mode 100644
index 085de36e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci
deleted file mode 100644
index d62acaf3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WirePt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.09.15
-// 09.09.10 registered
-
-function Out=WirePt()
- global WIREPT
- Out=WIREPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin
deleted file mode 100644
index d84e23dc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci
deleted file mode 100644
index b46e359c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wireparadata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wireparadata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin
deleted file mode 100644
index 01266c62..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci
deleted file mode 100644
index 11def80c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirepersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wirepersdata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin
deleted file mode 100644
index 4e6ca980..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci
deleted file mode 100644
index 59c5ba54..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawparadata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawparadata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
deleted file mode 100644
index 2718cfd0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
deleted file mode 100644
index d168b4f7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawpersdata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DvL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin
deleted file mode 100644
index 3016dd47..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci
deleted file mode 100644
index 059ac6d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WriteOutData.sci
+++ /dev/null
@@ -1,55 +0,0 @@
-// s:2014.10.10
-// e:2014.12.14 ( for 3d )
-// e:2015.10.29 ( endmark //// )
-
-function WriteOutData(varargin)
- global Fnameout
- Nargs=length(varargin);
- if modulo(Nargs,2)==0 then
- Fname=Fnameout;
- Nst=1;
- else
- Fname=varargin(1);
- Nst=2;
- end;
- Fid=mopen(Fname,'w');
- for N=Nst:2:Nargs
- Gname=varargin(N);
- mfprintf(Fid,'%s\n',Gname+"//");
- Gdata=varargin(N+1);
- Gdata=Flattenlist(Gdata);
- for K=1:length(Gdata)
- GL=Dividegraphics(Gdata(K));
- for J=1:length(GL)
- mfprintf(Fid,'%s\n',"start//");
- Str="";
- for I=1:Numptcrv(GL(J))
- Pt=Ptcrv(I,GL(J));
- if length(Str)>0 then
- Str=Str+","
- end;
- if length(Pt)<3 // 2014.12.14
- Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2));
- else
- Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3));
- end;
- if length(Str)>80 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- Str="";
- end
- end
- if length(Str)>0 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- end
- if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29
-// mfprintf(Fid,'%s\n',"end////");
- mfprintf(Fid,'%s\n',"end//");
- else
- mfprintf(Fid,'%s\n',"end//");
- end;
- end
- end
- end
- mfprintf(Fid,'%s\n',"//");
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin
deleted file mode 100644
index e53ba463..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci
deleted file mode 100644
index ae51bf8b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// s : 2014.06.22
-
-function Out=Writeobjpoint(P)
- global OBJFMT OBJSCALE NPOINT;
- X=sprintf(OBJFMT,P(1)*OBJSCALE);
- Y=sprintf(OBJFMT,P(2)*OBJSCALE);
- Z=sprintf(OBJFMT,P(3)*OBJSCALE);
- Str="v "+X+" "+Y+" "+Z;
- Printobjstr(Str)
- NPOINT=NPOINT+1
- Out=NPOINT;
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin
deleted file mode 100644
index c3f3d522..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
deleted file mode 100644
index 51a13884..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writetextdata.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 2010.04.27
-
-function Writetextdata(varargin)
- Fname=varargin(1);
- Mt=varargin(2);
- D=-1;
- for I=3:length(varargin)
- Tmp=varargin(I);
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- end;
- end;
- Str='';
- for J=1:size(Mt,2)
- Str=Str+'x'+string(J);
- if 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/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin
deleted file mode 100644
index 655cd4e6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/WritetoCindy.sci
deleted file mode 100644
index 60d73ef7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin
deleted file mode 100644
index ba00f67f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci
deleted file mode 100644
index 28ab28ce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmax()
- global XMAX
- Y=XMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin
deleted file mode 100644
index 7e8c9e46..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci
deleted file mode 100644
index e18e83d7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xmin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmin()
- global XMIN
- Y=XMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin
deleted file mode 100644
index fc0a8807..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci
deleted file mode 100644
index b2118c90..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzax3data.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.07.11
-
-function Out=Xyzax3data(Xrange,Yrange,Zrange)
- J=mtlb_findstr(Xrange,'=');
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz]));
-endfunction
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
deleted file mode 100644
index 04b8bdce..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
deleted file mode 100644
index b833802d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.07.11
-// 09.09.18
-
-function Kekka=Xyzaxparaname(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
deleted file mode 100644
index 3940b5b0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
deleted file mode 100644
index d9c1c7df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 08.08.14
-// 08.08.15
-// 09.09.18
-
-function Kekka=Xyzaxpersname(varargin)
- global MilliIn;
- Eps=10.0^(-6);
- Nargs=length(varargin);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin
deleted file mode 100644
index 93cbf4e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci
deleted file mode 100644
index 0a835534..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymax()
- global YMAX
- Y=YMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin
deleted file mode 100644
index 79ab6600..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci
deleted file mode 100644
index 73d0d261..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ymin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymin()
- global YMIN
- Y=YMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin
deleted file mode 100644
index d870458d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci
deleted file mode 100644
index 5c237179..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zparapt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Out=Zparapt(P)
- global PHI THETA;
- x=P(1); y=P(2); z=P(3);
- Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin
deleted file mode 100644
index 0af89330..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci
deleted file mode 100644
index 13601556..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Zperspt.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.08.12
-// 10.01.02
-
-function X3=Zperspt(P)
-
- global FocusPoint EyePoint
-
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb;
-endfunction
-
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib
deleted file mode 100644
index 24864cee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/lib
+++ /dev/null
@@ -1,344 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<scilablib name="ketpic2esciL6">
- <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="6505941ec7ec4395b72df15f93621117"/>
- <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/>
- <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/>
- <macro name="Drwline" file="Drwline.bin" md5="3aedf6f6a861fa772b06071e29680824"/>
- <macro name="Drwpt" file="Drwpt.bin" md5="52f450f7724e33a424582cfe03c06877"/>
- <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="b6e177ea7ad735910a2c6b45dc1bb580"/>
- <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="9d87bbd283d225fd62422263375a94b5"/>
- <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="db51cd9b42032b1fd9cebb3f0565d055"/>
- <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>
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names
deleted file mode 100644
index cef9f19b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/names
+++ /dev/null
@@ -1,335 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-Writetextdata
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r
index 7c102a22..2478a8fb 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3.r
@@ -16,10 +16,51 @@
#########################################
-# source("/Rfiles/ketpic5_2_3.r")
-
-ThisVersion<- "KeTpic for R v5_2_3(17.10.08)"
-
+ThisVersion<- "KeTpic for R v5_2_3(18.02.02)"
+
+# 2018.02.02
+# Enclosing2 changed ( for distant curves, startpt option removed )
+# 2018.02.01
+# Intersectline,Intersectseg,...,Intersectcuves added
+# Quicksort added
+# Enclosing2 added (incomplete)
+# 2018.01.29
+# Length added
+# 2017.12.24
+# Objpolyhedron added
+# 2017.12.23
+# Objsymb, symb3data added
+# Objrecs, Objpolygon debugged
+# Objthicksurf added
+# 2017.12.22
+# Openobj,Closeobj,Writeobjpoint,Printobjstr,Objname,Objsurf added
+# Crossprod added
+# Objjoin, Objcurve, Objrecs, Objpolygon, Objsymb added
+# Spacecurve debugged
+# 2017.12.17
+# Setunitlen debugged ( MEMORI )
+# 2017.12.13
+# ReadOutData debugged
+# 2017.12.11
+# Enclosing debugged ( appendrow -> Appendrow )
+# 2017.11.29
+# Anglemark, Arrowhead, Ovaldata debugged ( Circldeta included )
+# 2017.11.27
+# Anglemark changed ( Scilab 16.12.29)
+# Plotdata,Paramplot,Spacecurve changed ( Scilab 16.12.13)
+# Enclosing changed ( Scilab 16.10.09)
+# Arrowhead,Arrowline changed ( Scilab 15.06.11)
+# Definecolor added ( Scilab 15.05.04)
+# 2017.11.26
+# Exprrot, Letterrot debugged ( `)
+# 2017.11.24
+# Deqplot debugged (Looprange)
+# 2017.11.20
+# InWindow debugged (for length=1)
+# 2017.10.28
+# Openfile changed (Creator)
+# 2017.10.23
+# ReadOutData greatly changed
# 2017.10.11
# Drwpt debugged (Flattenlist )
# 2017.10.08
@@ -420,6 +461,17 @@ Datalength<-function(Data)
if (mode(Data)=="list") return(length(Data))
}
+Crossprod<- function (a,b){ # 17.12.22
+ if(length(a)==3){
+ Tmp1=a[2]*b[3]-a[3]*b[2]
+ Tmp2=a[3]*b[1]-a[1]*b[3]
+ Tmp3=a[1]*b[2]-a[2]*b[1]
+ Out=c(Tmp1,Tmp2,Tmp3)
+ }else{
+ Out=a[1]*b[2]-a[2]*b[1]
+ }
+}
+
Dotprod<-function(a,b)
{
Tmp=crossprod(a,b)
@@ -499,6 +551,34 @@ Stripblanks<- function(Ch){
return(Tmp)
}
+Quicksort<- function(seqL,key){ #18.02.01
+ if(length(seqL)<2){
+ out=seqL
+ }else{
+ tmp1=Op(1,seqL)
+ tmp2=Op(2,seqL)
+ if(Op(key,tmp1)>=Op(key,tmp2)){
+ pivot = tmp1
+ }else{
+ pivot=tmp2
+ }
+ left = list()
+ right = list()
+ for(ii in 1:length(seqL)){
+ tmp=Op(ii,seqL)
+ if(Op(key,tmp)< Op(key,pivot)){
+ left=c(left,list(tmp))
+ }else{
+ right=c(right,list(tmp))
+ }
+ }
+ left = Quicksort(left,key)
+ right = Quicksort(right,key)
+ out=c(left,right)
+ }
+ return(out)
+}
+
Derivative<- function(...)
{
varargin<- list(...)
@@ -581,7 +661,11 @@ Anglemark<- function(...)
if (Nargs>=4){
r<- varargin[[4]]*r
}
- Cir<- Circledata(PB,r)
+ Out=c()
+ if(r>min(Norm(PA-PB),Norm(PC-PB))){
+ return(Out)
+ }
+ Cir<- Circledata(c(PB,r)) #17.11.29
Tmp<- IntersectcrvsPp(Cir,Listplot(PA,PB))
P1<- Op(2,Op(1,Tmp))
Tmp<- IntersectcrvsPp(Cir,Listplot(PC,PB))
@@ -715,7 +799,7 @@ Arrowhead<-function(...)
Tmp<-Nearestpt(P,Houkou)
A<-Tmp[[1]]
I<-floor(Tmp[[2]])
- G<-Circledata(P,Ookisa*cos(Theta),N=10)
+ G<-Circledata(c(P,Ookisa*cos(Theta)),N=10) #17.11.29
Flg<- 0 # 13.11.13
JL<-seq(I,1,by=-1)
for (J in JL){
@@ -757,7 +841,9 @@ Arrowhead<-function(...)
Tmp<- Listplot(list(A,P,B,C,A)) # 12.01.07
Tmp1<- Unscaling(Tmp)
Shade(Tmp1)
- Drwline(Tmp1,1)
+ Tmp=Listplot(c(A,P,B,C,A,P)) # 15.6.20
+ Tmp1=Unscaling(Tmp)
+ Drwline(Tmp1,0.1) # 15.06.11, 15.06.14
}
}
@@ -806,7 +892,7 @@ Arrowheaddata<- function(...)
Tmp<-Nearestpt(P,Houkou)
A<-Tmp[[1]]
I<-floor(Tmp[[2]])
- G<-Circledata(P,Ookisa*cos(Theta),N=10)
+ G<-Circledata(c(P,Ookisa*cos(Theta)),N=10) #17.11.29
Flg<- 0 # 13.11.13
JL<-seq(I,1,by=-1)
for (J in JL){
@@ -886,7 +972,8 @@ Arrowline<- function(...)
}
}
R<- P+Yapos*(Q-P)
- Drwline(Listplot(c(P,Q)),Futosa)
+ Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/Norm(Q-P)) # 15.10.24
+ Drwline(Listplot(c(P,Tmp)),Futosa)
Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str)
}
@@ -1112,15 +1199,15 @@ Beginpicture<-function(ul)
}
}
else{
- Unit<-substring(Ucode,I,I+1);
- Str<-substring(Ucode,Is,I-1);
+ Unit<-substring(Ucode,I,I+1)
+ Str<-substring(Ucode,Is,I-1)
VL<-paste(VL,Str,sep="")
break;
}
}
- Valu<-eval(parse(text=VL));
+ Valu<-eval(parse(text=VL))
Str<-as.character(Valu);
- ULEN<<- paste(Str,Unit,sep="");
+ ULEN<<- paste(Str,Unit,sep="")
if (Unit=="cm") MilliIn<<-1000/2.54*Valu
if (Unit=="mm") MilliIn<<-1000/2.54*Valu/10
if (Unit=="in") MilliIn<<-1000*Valu
@@ -1131,22 +1218,22 @@ Beginpicture<-function(ul)
if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu;
if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10
MARKLEN<<- MARKLENNow*1000/2.54/MilliIn;
- Str<-paste("{\\unitlength=",ULEN,"%\n",sep="");
- cat(Str,file=Wfile,append=TRUE);
- cat("\\begin{picture}%\n",file=Wfile,append=TRUE);
- Str<-"(";
- Tmp<-as.character(round(Dx,digits=6));
- Str<-paste(Str,Tmp,",",sep="");
- Tmp<-as.character(round(Dy,digits=6));
- Str<-paste(Str,Tmp,")(",sep="");
- Tmp<-as.character(round(Xm,digits=6));
- Str<-paste(Str,Tmp,",",sep="");
- Tmp<-as.character(round(Ym,digits=6));
- Str<-paste(Str,Tmp,")%\n",sep="");
- cat(Str,file=Wfile,append=TRUE);
- Str<-paste("\\special{pn ",as.character(PenThickInit),"}%\n",sep="");
- cat(Str,file=Wfile,append=TRUE);
- cat("%\n",file=Wfile,append=TRUE);
+ Str<-paste("{\\unitlength=",ULEN,"%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("\\begin{picture}%\n",file=Wfile,append=TRUE)
+ Str<-"("
+ Tmp<-as.character(round(Dx,digits=6))
+ Str<-paste(Str,Tmp,",",sep="")
+ Tmp<-as.character(round(Dy,digits=6))
+ Str<-paste(Str,Tmp,")(",sep="")
+ Tmp<-as.character(round(Xm,digits=6))
+ Str<-paste(Str,Tmp,",",sep="")
+ Tmp<-as.character(round(Ym,digits=6))
+ Str<-paste(Str,Tmp,")%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ Str<-paste("\\special{pn ",as.character(PenThickInit),"}%\n",sep="")
+ cat(Str,file=Wfile,append=TRUE)
+ cat("%\n",file=Wfile,append=TRUE)
}
#################################################
@@ -1551,6 +1638,31 @@ Dashline<- function(...)
}
##############################################
+# 17.11.27
+
+Definecolor<- function(Name,Data){
+ Tmp1=length(Data)
+ if((Tmp1<3) || (Tmp1>4)){
+ cat("Size of data should be 3 or 4.")
+ return()
+ }
+ if(Tmp1==4){
+ Tp="cmyk"
+ }else{
+ Tp="rgb"
+ }
+ Tmp=""
+ for(J in 1:Tmp1){
+ Tmp=paste(Tmp, as.character(Data[J]),sep="")
+ if(J<Tmp1){
+ Tmp=paste(Tmp,",",sep="")
+ }
+ }
+ Tmp=paste("\\definecolor{",Name,"}{",Tp,"}{",Tmp,"}",sep="")
+ Texcom(Tmp)
+}
+
+##############################################
Diagcelldata<- function(Tb,Nc,Nr)
{
@@ -2088,6 +2200,7 @@ Drwxy<-function(...)
Enclosing<- function(...)
{
+ Eps=10^(-7) # Scilab 16.12.05
varargin<- list(...)
Nargs<- length(varargin)
P<- varargin[[1]]
@@ -2096,9 +2209,14 @@ Enclosing<- function(...)
if (mode(Tmp)!="numeric" || length(Tmp)>1){
AnsL<- EnclosingS(...)
AnsL<- Joincrvs(AnsL) # 10.12.04
- return(AnsL)
}
}
+ Tmp1=Op(1,AnsL) # Scilab 16.12.05from
+ Tmp2=Op(nrow(AnsL),AnsL)
+ if(Norm(Tmp2-Tmp1)>Eps){
+ AnsL=Appendrow(AnsL,Tmp1)
+ }
+ return(AnsL)
}
#########################################
@@ -2364,7 +2482,7 @@ Exprrot<- function(...)
if (mode(Tmp)=="numeric"){
Nmov<- Tmp; N<- N+1
}
- Mojiretu<- paste("$",varargin[[N]],"$",sep="")
+ Mojiretu<- paste("$",Assign(varargin[[N]]),"$",sep="") # 2017.11.26
Tv<- 1/Norm(V)*V
Nv<- c(-Tv[2],Tv[1])
P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv
@@ -3209,12 +3327,16 @@ Invert<- function(Pd)
InWindow<-function(PA)
{
Eps<-10.0^(-6);
- X<-PA[1]; Y<-PA[2];
- if (X>XMIN-Eps && X<XMAX+Eps && Y>YMIN-Eps && Y<YMAX+Eps)
- Rx<-"i"
- else
- Rx<-"o"
- return(Rx);
+ if((length(PA)==2)&(is.numeric(PA))){ # 17.11.20
+ X<-PA[1]; Y<-PA[2];
+ if (X>XMIN-Eps && X<XMAX+Eps && Y>YMIN-Eps && Y<YMAX+Eps)
+ Rx<-"i"
+ else
+ Rx<-"o"
+ return(Rx)
+ }else{
+ return("o")
+ }
}
#######################################
@@ -3605,7 +3727,7 @@ Kyoukai<- function(...)
{
varargin<- list(...)
Nargs<- length(varargin)
- Eps0<- 10^(-5)
+ Eps0<- 10^(-7)
DataL<-list()
for (I in 1:Nargs){
Tmp<- varargin[[I]]
@@ -3860,7 +3982,7 @@ Letterrot<- function(...)
if (mode(Tmp)=="numeric"){
Nmov<- Tmp; N<- N+1
}
- Mojiretu<- varargin[[N]]
+ Mojiretu<- Assign(varargin[[N]]) #2017.11.26
Tv<- 1/Norm(V)*V
Nv<- c(-Tv[2],Tv[1])
P<- P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv
@@ -4459,62 +4581,50 @@ Naigai<- function(A,Bdy)
########################################
-Nearestpt<-function(...)
-{
- varargin<-list(...)
- Nargs<-length(varargin)
- PL1<-varargin[[1]]
- if (!is.matrix(PL1))
- {
- Tmp<-matrix(PL1);
- PL1<-t(Tmp)
+Nearestpt<- function(...){
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ PL1<- varargin[[1]]
+ if (!is.matrix(PL1)){
+ Tmp<- matrix(PL1);
+ PL1<- t(Tmp)
}
if (Nrow(PL1)==1) Flg=0
else Flg=1
- Eps<-10.0^(-6)
- PL<-varargin[[2]]
- Ans<-list(PL1[1,],1,PL[1,],1,Norm(PL1[1,]-PL[1,]))
- for (N in 1:Nrow(PL1))
- {
- PA<-PL1[N,]
- Pm<-PL[1,]
- Im<-1
- Sm<-Norm(Pm-PA)
- for (I in 1:(Nrow(PL)-1))
- {
- A1<-PL[I,1]; A2<-PL[I,2]
- B1<-PL[I+1,1]; B2<-PL[I+1,2]
- V1<-B1-A1; V2<-B2-A2
- X1<-PA[1]; X2<-PA[2]
+ Eps<- 10.0^(-6)
+ PL<- varargin[[2]]
+ Ans<- list(PL1[1,],1,PL[1,],1,Norm(PL1[1,]-PL[1,]))
+ for(N in Looprange(1,Nrow(PL1))){
+ PA<- PL1[N,]
+ Pm<- PL[1,]
+ Im<- 1
+ Sm<- Norm(Pm-PA)
+ for(I in Looprange(1,Nrow(PL)-1)){
+ A1<- PL[I,1]; A2<-PL[I,2]
+ B1<- PL[I+1,1]; B2<-PL[I+1,2]
+ V1<- B1-A1; V2<-B2-A2
+ X1<- PA[1]; X2<-PA[2]
Tmp<-V2^2+V1^2
if (abs(Tmp)<Eps) next
- T<-(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp
- if (T< -Eps)
- {
- P<-c(A1,A2)
- }
- else
- {
- if (T>1+Eps)
- {
- P<-c(B1,B2)
- }
- else
- {
- P<-c(A1+T*V1,A2+T*V2)
+ T<- (-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp
+ if (T< -Eps){
+ P<- c(A1,A2)
+ }else{
+ if (T>1+Eps){
+ P<- c(B1,B2)
+ }else{
+ P<- c(A1+T*V1,A2+T*V2)
}
}
- S<-Norm(P-PA)
- if (S<Sm-Eps)
- {
- Tmp<-Paramoncrv(P,I,PL)
- Pm<-P; Im<-Tmp; Sm<-S
+ S<- Norm(P-PA)
+ if (S<Sm-Eps){
+ Tmp<- Paramoncrv(P,I,PL)
+ Pm<- P; Im<- Tmp; Sm<- S
}
}
- if (Sm<Ans[[5]]) Ans<-list(PA,N,Pm,Im,Sm)
- if (Flg==0)
- {
- Ans<-Ans[3:5]
+ if (Sm<Op(5,Ans)) Ans<- list(PA,N,Pm,Im,Sm)
+ if (Flg==0){
+ Ans<- Ans[3:5]
}
}
return(Ans)
@@ -4539,6 +4649,13 @@ Numptcrv<-function(Fig)
return(Nrow(Fig))
}
+# 2018.01.29
+Length<- function(Data){
+ if(is.matrix(Data)){return(nrow(Data))}
+ if(is.character(Data)){return(nchar(Data))}
+ return(length(Data))
+}
+
#########################################
Op<-function(N,Data)
@@ -4588,48 +4705,34 @@ Op<-function(N,Data)
Openfile<-function(...)
{
- varargin<- list(...) # 2013.05.20 from
+ varargin<- list(...)
File<- varargin[[1]]
Bflg<- 0
Wfile<<- File
Creator<- ""
Cflg<- 0
Nargs<- length(varargin)
- if(Nargs>1){
- for(N in 2:Nargs){
- Tmp<- varargin[[N]]
- Tmp1<- strsplit(Tmp,"=",fixed=TRUE)
- Tmp1<- Tmp1[[1]]
- if(length(Tmp1)>1){
- Creator<- Tmp1[2]
- Cflg<- 1
- }
- else{
- Unitstr<- Tmp
- Bflg<- 1
- }
+ for(N in Looprange(2,Nargs)){
+ Tmp<- varargin[[N]]
+ Tmp1<- strsplit(Tmp,"=",fixed=TRUE)
+ Tmp1<- Tmp1[[1]]
+ if(length(Tmp1)>1){
+ Creator<- Tmp1[2]
+ Cflg<- 1
+ }
+ else{
+ Unitstr<- Tmp
+ Bflg<- 1
}
}
Recentf<- ""
Fv<- list.files()
Nv<- grep("\\.r$", Fv)
Rfiles<- Fv[Nv]
-# if(length(Rfiles)>0){
-# Finfo<- file.info(Rfiles)
-# Tmp1<- as.POSIXlt(Finfo$ctime)
-# Tmp2<- order(Tmp1,decreasing=TRUE)
-# Recentf<- Rfiles[Tmp2[1]]
-# }
-# Tmp<- sprintf("%s",Sys.time())
- StrW<- paste("%%% ",File," ",Tmp,sep="")
- StrC<- paste("%%% ",Creator,sep="")
+ StrW<- paste("%%% ",File,sep="") #17.10.28
+ StrC<- paste("%%% Generator=",Creator,sep="")
if(Cflg==0){
-# if(nchar(Recentf)>0){
-# Tmp1<- file.info(Recentf)
-# Tmp2<- sprintf("%s",Tmp1$ctime)
-# StrC<- paste(StrC,Recentf," ",Tmp2,sep="")
-# }
- } # 2013.12.15 upto
+ }
cat(StrW,"\n",file=Wfile)
cat(StrC,"\n",file=Wfile,append=TRUE)
if(Bflg==1){
@@ -4746,7 +4849,7 @@ Ovaldata<- function(...) #17.09.11
}
Out<- c()
P<- C+c(Dx-Rc,Dy-Rc)
- Tmp1<- Circledata(P,Rc,"R=c(0,pi/2)","N=10")
+ Tmp1<- Circledata(c(P,Rc),"R=c(0,pi/2)","N=10") #17.11.29
Tmp2<- Listplot(C+c(Dx-Rc,Dy),C+c(0,Dy))
Tmp3<- Listplot(C+c(Dx,0),C+c(Dx,Dy-Rc))
G<- Joincrvs(Tmp3,Tmp1,Tmp2)
@@ -4826,20 +4929,8 @@ Paramplot<- function(...)
varargin<- list(...)
Eps<- 10^(-5)
Nargs<- length(varargin)
-# if type(varargin(1))==13
-# Fnflg=1;
-# Fnx=varargin(1);
-# Fny=varargin(2); Is=3;
-# if type(varargin(Is))==13
-# Fnflg=Fnflg+1;
-# Fnargx=varargin(Is);
-# Fnargy=varargin(Is+1);
-# Is=Is+2;
-# end;
-# else
- Fnflg<- 0
- Fnstr<- varargin[[1]]; Is=2
-# end;
+ Fnflg<- 0
+ Fnstr<- varargin[[1]]; Is=2
Rgstr<- varargin[[Is]]; Is<- Is+1
Range<- c(0,2*pi)
N<- 50 # Numpoints
@@ -4875,6 +4966,11 @@ Paramplot<- function(...)
{
Str<- gsub(Vname,"t",Fnstr)
}
+ if(abs(Dt)<Eps){ # 16.12.13
+ t=T1
+ P=eval(parse(text=Str))
+ return(P)
+ }
P<-c()
if (length(E)>0)
{
@@ -5085,6 +5181,11 @@ Plotdata<- function(...)
if (Fnflg==0){
Str<- gsub(Vname,"x",Fnstr,fixed=TRUE)
}
+ if(abs(dx)<Eps){ # Scilab 16.12.13
+ x=X1
+ P=c(X1,eval(parse(text=Str)))
+ return(P)
+ }
Exfun<- gsub(Vname,"x",Exfun,fixed=TRUE)
P<-c()
if (length(E)>0){
@@ -6028,9 +6129,8 @@ WriteOutData<- function(...){
cat("//","\n",sep="",file=Fname,append=TRUE) # 15.11.05
}
-##########################################
+###### Old ####################################
# 2015.10.23
-
ReadOutData<- function(...){
varargin<- list(...)
Nargs<- length(varargin)
@@ -6087,6 +6187,65 @@ ReadOutData<- function(...){
####################################################
+ReadOutData<- function(...){ #2017.10.23
+ varargin<- list(...)
+ Nargs<- length(varargin)
+ Fname=varargin[[1]]
+ cmdall=readLines(Fname)
+ cmdall=gsub("//","",cmdall,fixed=TRUE)
+ varname=""#17.12.13 cmdall[1]
+ outdt=list()
+ varL=c()
+ ptL=list()
+ flg=0
+ for(cmd in cmdall){
+ if(nchar(cmd)>0){
+ if((cmd=="start") | cmd=="end" | substring(cmd,1,1)=="["){
+ if(cmd=="start"){
+ tmp=paste(varname,"<<- c(",varname,",list(c()))",sep="")
+ eval(parse(text=tmp))
+ Ctr=Ctr+1
+ }
+ if(cmd=="end"){
+ }
+ if(substring(cmd,1,1)=="["){
+ tmp1=paste(",",substring(cmd,2,nchar(cmd)-1),sep="")
+ tmp1=strsplit(tmp1,"]",fixed=TRUE)
+ tmp1=tmp1[[1]]
+ tmp1=gsub(",[","c(",tmp1,fixed=TRUE)
+ for(st in tmp1){
+ tmp=paste(varname,"[[",as.character(Ctr),"]]",sep="")
+ tmp=paste(tmp,"<<- rbind(",tmp,",",st,"))",sep="")#
+ eval(parse(text=tmp))
+ }
+ }
+ }
+ else{
+ # 17.12.13from
+ if(nchar(varname)>0){
+ tmp=paste("if(length(",varname,")==1){",varname,"<<- ",varname,"[[1]]}",sep="")
+ eval(parse(text=tmp))
+ }
+ # 17.12.13upto
+ varname=cmd
+ tmp=paste(varname,"<<- list()",sep="")
+ eval(parse(text=tmp))
+ Ctr=0
+ if(flg==0){ # 17.10.07from
+ flg=1
+ }else{
+ } # 17.10.07upto
+ }
+ }
+ }
+ # 17.12.13from
+ tmp=paste("if(length(",varname,")==1){",varname,"<<- ",varname,"[[1]]}",sep="")
+ eval(parse(text=tmp))
+ # 17.12.13upto
+}
+
+####################################################
+
Rotatedata<- function(..., deg=FALSE)
{
varargin<- list(...)
@@ -6492,7 +6651,8 @@ Setunitlen<-function(...)
if (Unit=="dd2") MilliIn<<-1000/1238/1157/72.27*Valu
if (Unit=="cc") MilliIn<<-1000/1238/1157/72.27*12*Valu
if (Unit=="sp") MilliIn<<-1000/72.27/65536*Valu/10
- MARKLEN<<-MARKLENNow*1000/2.54/MilliIn;
+ MARKLEN<<-MARKLENNow*1000/2.54/MilliIn
+ MEMORI<<-MEMORINow*1000/2.54/MilliIn #17.12.17
}
#########################################
@@ -7742,7 +7902,7 @@ Cancoordpers<- function(P){
#######################################
-Embed <- function(...){
+Embed<- function(...){
varargin<- list(...)
Nargs<- length(varargin)
Pd3<- varargin[[1]]
@@ -9861,7 +10021,7 @@ Spacecurve<- function(...){
StrV<- StrV[[1]]
Tmp1<- toupper(StrV[1])
Lhs<- substr(Tmp1,1,1)
- Str<- paste(Lhs,"=",StrV[2])
+ Str<- paste(Lhs,"=",StrV[2],sep="")
eval(parse(text=Str))
}
StrV<- strsplit(Rgstr,"=",fixed=TRUE)
@@ -9877,6 +10037,13 @@ Spacecurve<- function(...){
T1<- Rng[1]; T2<- Rng[2]
Dt<- (T2-T1)/N #17.09.22
Str<- gsub(Vname,"t",Fnstr)
+ Str=gsub("[","c(",Str,fixed=TRUE) #17.12.22(2lines)
+ Str=gsub("]",")",Str,fixed=TRUE)
+ if(abs(Dt)<Eps){ # 16.12.13
+ t=T1
+ P=eval(parse(text=Str))
+ return(P)
+ }
P<- c()
# E<- sort(E,decreasing=FALSE)
E<- c(E,Inf)
@@ -11278,7 +11445,7 @@ Deqdata=function(deq,rng,initt,initf,Num){
tt=initt
X0=initf
pdL=c(tt,X0)
- for(J in 1:(floor((t2-initt)/dt))){
+ for(J in Looprange(1,floor((t2-initt)/dt))){
kl1=dt*funP(tt,X0)
kl2=dt*funP(tt+dt/2,X0+kl1/2)
kl3=dt*funP(tt+dt/2,X0+kl2/2)
@@ -11291,7 +11458,7 @@ Deqdata=function(deq,rng,initt,initf,Num){
}
tt=initt
X0=initf
- for(J in 1:(floor((initt-t1)/dt))){
+ for(J in Looprange(1,floor((initt-t1)/dt))){
kl1=dt*funN(tt,X0)
kl2=dt*funN(tt+dt/2,X0+kl1/2)
kl3=dt*funN(tt+dt/2,X0+kl2/2)
@@ -11325,3 +11492,1169 @@ Deqplot=function(...){
pdL=Deqdata(deq,rng,initt,initf,Num)
pdL=pdL[,SeL]
}
+
+
+############## obj ###############
+
+Openobj<- function(Fnm){
+ OBJFMT<<- "%7.4f"
+ NPOINT<<- 0
+ NNORM<<- 0
+ OBJSCALE<<- 1
+ OBJFIGNO<<- 0
+ OBJJOIN<<- 0
+ Wfile<<- Fnm
+ Tmp=grep(".obj",Fnm,fixed=TRUE)
+ if(length(Tmp)==0){
+ if(nchar(Fnm)>0){
+ Wfile<<- paste(Fnm,".obj",sep="")
+ }
+ }
+ cat("",file=Wfile,sep="")
+ Wfile
+}
+
+Closeobj<- function(){
+ Wfile=""
+}
+
+Writeobjpoint<- function(P){
+ X=sprintf(OBJFMT,P[1]*OBJSCALE)
+ Y=sprintf(OBJFMT,P[2]*OBJSCALE)
+ Z=sprintf(OBJFMT,P[3]*OBJSCALE)
+ Str=paste("v",X,Y,Z,sep=" ")
+ Printobjstr(Str)
+ NPOINT<<- NPOINT+1
+ return(NPOINT)
+}
+
+Printobjstr<- function(Str){
+ cat(Str,"\n",sep="",file=Wfile,append=TRUE)
+}
+
+Objname<- function(){
+ if(OBJJOIN==0){
+ OBJFIGNO<<- OBJFIGNO+1
+ Gname=paste("ketfig",as.character(OBJFIGNO),sep="")
+ Printobjstr(paste("# ",Gname,sep=""))
+ Printobjstr(paste("g ",Gname,sep=""))
+ }
+}
+
+Objjoin<- function(...){
+ varargin=list()
+ if(length(varargin)>0){
+ OBJJOIN<<- abs(sign(varargin[[1]]))
+ }
+ OBJJOIN
+}
+
+Objsurf<- function(...){ #17.12.18
+ Args<- list(...)
+ Nargs<- length(Args)
+ Sel=Args[[Nargs]]; Nargs=Nargs-1
+ Rf=Args[[1]]
+ N=2
+ Mg=0; Ng=0
+ if(is.numeric(Args[[N]])){
+ if(length(Args[[N]])>2){
+ U=Args[[N]]
+ Mg=length(U)-1
+ N=N+1
+ }else if(length(Args[[N]])==2){
+ Intab=Args[[N]]
+ Ag=Intab[1]; Bg=Intab[2]
+ N=N+1
+ }else{
+ Ag=Args[N]; Bg=Args[N+1]
+ N=N+2
+ }
+ }else{
+ Tmp0=Args[[N]]
+ Tmp=grep("=",Tmp0,fixed=TRUE)
+ if(length(Tmp)>0){
+ Tmp1=strsplit(Tmp0,"=")
+ Tmp0=Tmp1[[1]][2]
+ }
+ Intab=eval(parse(text=Tmp0))
+ Ag=Intab[1]; Bg=Intab[2]
+ N=N+1
+ }
+ if(is.numeric(Args[[N]])){
+ if(length(Args[[N]])>2){
+ V=Args[[N]]
+ Ng=length(V)-1
+ N=N+1
+ }else if(length(Args[[N]])==2){
+ Intab=Args[[N]]
+ Cg=Intab[1]; Dg=Intab[2]
+ N=N+1
+ }else{
+ Cg=Args[[N]]; Dg=Args[[N+1]]
+ N=N+2
+ }
+ }else{ # the case of is.character(Args[[N]])
+ Tmp0=Args[[N]]
+ Tmp=grep("=",Tmp0,fixed=TRUE)
+ if(length(Tmp)>0){
+ Tmp2=strsplit(Tmp0,"=")
+ Tmp0=Tmp2[[1]][2]
+ }
+ Intab=eval(parse(text=Tmp0))
+ Cg=Intab[1]; Dg=Intab[2]
+ N=N+1
+ }
+ if(Mg==0){
+ Mg=Args[[N]]
+ N=N+1
+ U=c()
+ for(J in Looprange(1,Mg+1)){
+ U=c(U,Ag+(J-1)/Mg*(Bg-Ag))
+ }
+ }
+ if(Ng==0){
+ Ng=Args[[N]]
+ V=c()
+ for(K in Looprange(1,Ng+1)){
+ V=c(V,Cg+(K-1)/Ng*(Dg-Cg))
+ }
+ }
+ Objname()
+ PL=list()
+ for(J in Looprange(1,Mg+1)){
+ for(K in Looprange(1,Ng+1)){
+ P=Rf(U[J],V[K])
+ Np=Writeobjpoint(P)
+ PL=c(PL,list(c(P,Np)))
+ }
+ }
+ Idx=1+(Ng+1)*(0:Mg)
+ Pus=PL[Idx]
+ Idx=(Ng+1)*(1:(Mg+1))
+ Pue=PL[Idx]
+ Idx=1:(Ng+1)
+ Pvs=PL[Idx]
+ Idx=((Ng+1)*Mg+1):((Ng+1)*(Mg+1))
+ Pve=PL[Idx]
+ Printobjstr("vt 0 0")
+ Printobjstr("vt 1 0")
+ Printobjstr("vt 1 1")
+ Printobjstr("vt 0 1")
+ for(J in Looprange(1,Mg)){
+ for(K in Looprange(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=="+"){
+ Str=paste("f ",P1,"/1/",N1," ",P2,"/2/",N2," ",sep="")
+ Str=paste(Str,P3,"/3/",N3," ",P4,"/4/",N4,sep="")
+ }else{
+ Str=paste("f ",P1,"/1/",N1," ",P4,"/4/",N4," ",sep="")
+ Str=paste(Str,P3,"/3/",N3," ",P2,"/2/",N2,sep="")
+ }
+ Printobjstr(Str)
+ }
+ }
+ list(U,V,Pus,Pue,Pvs,Pve)
+}
+
+Objthicksurf<- function(...){
+ Args=list(...)
+ Nargs=length(Args)
+ Sel=Args[[Nargs]]; Nargs=Nargs-1
+ Selsurf=substring(Sel,1,1)
+ Selside=c("0","0","0","0")
+ Tmp=grep("w",Sel,fixed=TRUE)
+ if(length(Tmp)>0){
+ Selside[1]="w"
+ }
+ Tmp=grep("e",Sel,fixed=TRUE)
+ if(length(Tmp)>0){
+ Selside[2]="e"
+ }
+ Tmp=grep("s",Sel,fixed=TRUE)
+ if(length(Tmp)>0){
+ Selside[3]="s"
+ }
+ Tmp=grep("n",Sel,fixed=TRUE)
+ if(length(Tmp)>0){
+ Selside[4]="n"
+ }
+ Nfth=Args[[Nargs-2]]
+ Thick1=Args[[Nargs-1]]
+ Thick2=Args[[Nargs]]
+ Nargs=Nargs-3
+ Rfth=Args[[1]]
+ N=2
+ Mg=0; Ng=0
+ if(is.numeric(Args[[N]])){
+ if(length(Args[[N]])>2){
+ U=Args[[N]]
+ Mg=length(U)-1
+ N=N+1
+ }else if(length(Args[[N]])==2){
+ Intab=Args[[N]]
+ Ag=Intab[1]; Bg=Intab[2]
+ N=N+1
+ }else{
+ Ag=Args[[N]]; Bg=Args[[N+1]]
+ N=N+2
+ }
+ }else{
+ Tmp0=Args[[N]]
+ Tmp=strsplit(Tmp0,"=",fixe=TRUE)
+ if(length(Tmp)>0){
+ Tmp0=Tmp[[1]][2]
+ }
+ Intab=eval(parse(text=Tmp0))
+ Ag=Intab[1]; Bg=Intab[2]
+ N=N+1
+ }
+ if(is.numeric(Args[[N]])){
+ if(length(Args[[N]])>2){
+ V=Args[[N]]
+ Ng=length(V)-1
+ N=N+1
+ }else if(length(Args[[N]])==2){
+ Intab=Args[[N]]
+ Cg=Intab[1]; Dg=Intab[2]
+ N=N+1
+ }else{
+ Cg=Args[[N]]; Dg=Args[[N+1]]
+ N=N+2
+ }
+ }else{
+ Tmp0=Args[[N]]
+ Tmp=strsplit(Tmp0,"=",fixed=TRUE)
+ if(length(Tmp)>0){
+ Tmp0=Tmp[[1]][2]
+ }
+ Intab=eval(parse(text=Tmp0))
+ Cg=Intab[1]; Dg=Intab[2]
+ N=N+1
+ }
+ if(Mg==0){
+ Mg=Args[[N]]
+ N=N+1
+ U=c()
+ for(J in Looprange(1,Mg+1)){
+ U=c(U,Ag+(J-1)/Mg*(Bg-Ag))
+ }
+ }
+ if(Ng==0){
+ Ng=Args[[N]]
+ V=c()
+ for(K in Looprange(1,Ng+1)){
+ V=c(V,Cg+(K-1)/Ng*(Dg-Cg))
+ }
+ }
+ Objname()
+ Join=OBJJOIN
+ OBJJOIN<<- 1
+ F1=function(u,v){
+ Rfth(u,v)+Thick1*Nfth(u,v)
+ }
+ F2=function(u,v){
+ Rfth(u,v)+Thick2*Nfth(u,v)
+ }
+ Dt1=Objsurf(F1,U,V,Selsurf)
+ if(Selsurf=="+"){
+ Tmp="-"
+ }else{
+ Tmp="+"
+ }
+ Dt2=Objsurf(F2,U,V,Tmp);
+ Out=list(Dt1,Dt2);
+
+ if(Selside[1]!="0"){
+ Dt=Objrecs(Op(3,Dt1),Op(3,Dt2),Selside[1])
+ Out=c(Out,list(Dt))
+ }
+ if(Selside[2]!="0"){
+ Dt=Objrecs(Op(4,Dt1),Op(4,Dt2),Selside[2])
+ Out=c(Out,list(Dt))
+ }
+ if(Selside[3]!="0"){
+ Dt=Objrecs(Op(5,Dt1),Op(5,Dt2),Selside[3])
+ Out=c(Out,list(Dt))
+ }
+ if(Selside[4]!="0"){
+ Dt=Objrecs(Op(6,Dt1),Op(6,Dt2),Selside[4])
+ Out=c(Out,list(Dt))
+ }
+ OBJJOIN<<- Join
+}
+
+Objrecs<- function(...){
+ Eps=10^(-6)
+ Args=list(...)
+ Nargs=length(Args)
+ Tmp=Args[[1]]
+ PtL=Flattenlist(Tmp)
+ for(J in Looprange(1,length(PtL))){ #17.12.23from
+ Tmp=PtL[[J]]
+ if(!is.matrix(Tmp)){
+ PtL[[J]]=matrix(Tmp,nrow=1)
+ }
+ } #17.12.23upto
+ PL1=list()
+ for(J in Looprange(1,length(PtL))){
+ Tmp=PtL[[J]]
+ for(K in Looprange(1,nrow(Tmp))){
+ PL1=c(PL1,list(Tmp[K,]))
+ }
+ }
+ Sel=Args[[Nargs]]; Nargs=Nargs-1
+ Objname()
+ for(J in Looprange(1,length(PL1))){
+ P=PL1[[J]]
+ if((length(P)<4) || (P[4]==0)){
+ Np=Writeobjpoint(P)
+ PL1[[J]]=c(P[1:3],Np)
+ }
+ }
+ Tmp=Args[[2]]
+ if((is.numeric(Tmp)) && (length(Tmp)==1)){
+ Drv=Tmp
+ Len=Norm(Drv)
+ PL2=list()
+ for(J in Looprange(1,length(PL1))){
+ Tmp=PL1[[J]]
+ P=Tmp[1:3]+Drv
+ Np=Writeobjpoint(P)
+ PL2=c(PL2,list(c(P[1:3],Np)))
+ if(J<length(PL1)){
+ Vec=PL1[[J+1]]-PL1[[J]]
+ if(Norm(Vec)>Eps){
+ Tmp1=Crossprod(Drv,Vec)
+ Tmp2=Crossprod(Tmp1,Vec)
+ Tmp3=Dotprod(Tmp2,Drv)
+ if(Tmp3<-Eps){
+ Tmp2=-Tmp2
+ }
+ Drv=Len/Norm(Tmp2)*Tmp2
+ }
+ }
+ }
+ }else{
+ PtL=Flattenlist(Tmp)
+ for(J in Looprange(1,length(PtL))){ #17.12.23from
+ Tmp=PtL[[J]]
+ if(!is.matrix(Tmp)){
+ PtL[[J]]=matrix(Tmp,nrow=1)
+ }
+ } #17.12.23upto
+ PL2=list()
+ for(J in Looprange(1,length(PtL))){
+ Tmp=PtL[[J]]
+ for(K in Looprange(1,nrow(Tmp))){
+ PL2=c(PL2,list(Tmp[K,]))
+ }
+ }
+ for(J in Looprange(1,length(PL2))){
+ P=PL2[[J]]
+ if((length(P)<4) || (P[4]==0)){
+ Np=Writeobjpoint(P)
+ PL2[[J]]=c(P[1:3],Np)
+ }
+ }
+ }
+ Printobjstr("vt 0 0")
+ Printobjstr("vt 1 0")
+ Printobjstr("vt 1 1")
+ Printobjstr("vt 0 1")
+ for(J in Looprange(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=="+"){
+ Str=paste("f ",P1,"/1/",N1," ",P2,"/2/",N2," ",sep="")
+ Str=paste(Str,P3,"/3/",N3," ",P4,"/4/",N4,sep="")
+ }else{
+ Str=paste("f ",P1,"/1/",N1," ",P4,"/4/",N4," ",sep="")
+ Str=paste(Str,P3,"/3/",N3," ",P2,"/2/",N2,sep="")
+ }
+ Printobjstr(Str)
+ }
+ list(PL1,PL2)
+}
+
+Objpolygon<- function(...){
+ Eps=10^(-6)
+ Args=list(...)
+ Nargs=length(Args)
+ Tmp=Args[[1]]
+ PtL=Flattenlist(Tmp)
+ for(J in Looprange(1,length(PtL))){ #17.12.23from
+ Tmp=PtL[[J]]
+ if(!is.matrix(Tmp)){
+ PtL[[J]]=matrix(Tmp,nrow=1)
+ }
+ } #17.12.23upto
+ PL=list()
+ for(J in Looprange(1,length(PtL))){
+ Tmp=PtL[[J]]
+ for(K in Looprange(1,nrow(Tmp))){
+ PL=c(PL,list(Tmp[K,]))
+ }
+ }
+ Sel=Args[[Nargs]]; Nargs=Nargs-1
+ Objname()
+ for(J in Looprange(1,length(PL))){
+ P=PL[[J]]
+ if((length(P)<4) || (P(4)==0)){
+ Np=Writeobjpoint(P)
+ PL[[J]]=c(P[1:3],Np)
+ }
+ }
+ if(Nargs==1){
+ Tmp=PL[[1]]
+ Cen=Tmp[1:3]
+ Nc=Tmp[4]
+ }else{
+ Tmp=Args[[2]]
+ if(length(Tmp)==1){
+ Tmp1=PL[[Tmp]]
+ Cen=Tmp1[1:3]
+ Nc=Tmp[4]
+ }else{
+ Cen=Tmp
+ Nc=Writeobjpoint(Cen)
+ }
+ }
+ for(J in Looprange(1,length(PL))){
+ if(J<length(PL)){
+ Je=J+1
+ }else{
+ Je=1
+ }
+ Pt1=Cen
+ PLj=PL[[J]]; PLje=PL[[Je]]
+ Pt2=PLj[1:3]; Pt3=PLje[1:3]
+ if(Norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps){
+ next
+ }
+ P1=sprintf("%1d",Nc)
+ P2=sprintf("%1d",PLj[4])
+ P3=sprintf("%1d",PLje[4])
+ if(Sel=="+"){
+ Str=paste("f",P1,P2,P3,"",sep=" ")
+ }else{
+ Str=paste("f",P1,P3,P2,"",sep=" ")
+ }
+ Printobjstr(Str)
+ }
+ PL
+}
+
+Objpolyhedron<- function(Vertex,Face){
+ OBJFIGNO<<- OBJFIGNO+1
+ Ninit=NPOINT
+ Objname()
+ for(N in Looprange(1,length(Vertex))){
+ P=Vertex[[N]]
+ Np=Writeobjpoint(P)
+ Vertex[[N]]=c(P[1:3],Np)
+ }
+ for(N in Looprange(1,length(Face))){
+ F=Face[[N]]+Ninit
+ Face[[N]]=F
+ Str="f"
+ for(J in Looprange(1,length(F))){
+ P=sprintf("%1d",F[J])
+ Str=paste(Str,P,sep=" ")
+ }
+ Printobjstr(Str)
+ }
+ list(Vertex,Face)
+}
+
+Objcurve<- function(...){
+ Eps=10^(-6)
+ Args=list(...)
+ Nargs=length(Args)
+ Tmp=Args[[1]]
+ PtL=Flattenlist(Tmp)
+ for(J in Looprange(1,length(PtL))){ #17.12.23from
+ Tmp=PtL[[J]]
+ if(!is.matrix(Tmp)){
+ PtL[[J]]=matrix(Tmp,nrow=1)
+ }
+ } #17.12.23upto
+ PL=list()
+ for(J in Looprange(1,length(PtL))){
+ Tmp=PtL[[J]]
+ for(K in Looprange(1,nrow(Tmp))){
+ PL=c(PL,list(Tmp[K,]))
+ }
+ }
+ Closed=Norm(PL[[length(PL)]]-PL[[1]])<Eps
+ Pstr="xy"
+ Tmp=Args[[Nargs]]
+ if(is.character(Tmp)){
+ Pstr=Tmp
+ Nargs=Nargs-1
+ }
+ Sz=0.1
+ Np=4
+ if(Nargs>=2){
+ Sz=Args[[2]]
+ }
+ if(Nargs>=3){
+ Np=Args[[3]]
+ }
+ Assign("Sz",Sz)
+ if(Pstr=="xy"){
+ Vz=c(0,0,1)
+ Fs=Assign("c(Sz*cos(t),Sz*sin(t),0)")
+ }
+ if(Pstr=="yz"){
+ Vz=c(1,0,0)
+ Fs=Assign("c(0,Sz*cos(t),Sz*sin(t))")
+ }
+ if(Pstr=="zx"){
+ Vz=c(0,1,0)
+ Fs=Assign("c(Sz*sin(t),0,Sz*cos(t))")
+ }
+ Gc0=Spacecurve(Fs,"t=c(0,2*pi)",paste("Num=",as.character(Np),sep=""))
+ P=PL[[1]]; Q=PL[[2]]; R=PL[[length(PL)-1]]
+ PQ1=Q-P
+ if(!Closed){
+ PQ2=PQ1
+ }else{
+ PQ2=P-R
+ }
+ 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){
+ Vj=Vz
+ }
+ Gc1=Rotate3data(Gc0,Vj,Theta)
+ CL=list(Translate3data(Gc1,P))
+ for(J in Looprange(2,length(PL)-1)){
+ P=PL[[J]]; Q=PL[[J+1]]
+ PQ2=Q-P
+ if(Norm(PQ2)<Eps){
+ next
+ }
+ 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){
+ Vj=Vp1
+ }
+ Gc2=Rotate3data(Gc1,Vj,Theta)
+ CL=c(CL,list(Translate3data(Gc2,P)))
+ PQ1=PQ2
+ Vp1=Vp2
+ Gc1=Gc2
+ }
+ if(!Closed){
+ Vp2=(Q-P)/Norm(Q-P)
+ Theta=acos(min(Dotprod(Vp1,Vp2),1))
+ Vj=Crossprod(Vp1,Vp2)
+ if(Norm(Vj)<Eps){
+ Vj=Vp1
+ }
+ Gc3=Rotate3data(Gc1,Vj,Theta)
+ CL=c(CL,list(Translate3data(Gc3,Q)))
+ }
+ Objname()
+ Join=Objjoin();
+ Objjoin(1)
+ GL1=CL[[1]]
+ for(J in Looprange(2,length(CL))){
+ GL2=CL[[J]]
+ Dt=Objrecs(GL1,GL2,"-")
+ GL1=Dt[[2]]
+ if(J==2){
+ GL0=Dt[[1]]
+ }
+ }
+ if(!Closed){
+ Objpolygon(CL[[1]],"-")
+ N=length(CL)
+ Objpolygon(CL[[N]],"+")
+ }else{
+ Objrecs(GL1,GL0,"-")
+ }
+ Out=CL
+ OBJJOIN<<- Join
+}
+
+Objsymb<- function(Symb,Thick,Face,Dir){
+ for(J in Looprange(1,length(Symb))){
+ Objcurve(Op(J,Symb),Thick,Face,Dir)
+ }
+}
+
+Symb3data<- function(Moji,Size,Kaiten,NV,Pos){
+ if(is.character(Moji)){
+ #Tmp=Symbdata(Moji)
+ # GY1=Tmp(2)
+ }else{
+ GY1=Moji
+ }
+ 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){
+ E1=c(1,0,0)
+ E2=c(0,1,0)
+ }else{
+ E1=c(B,-A,0)
+ E2=c(-A*C,-B*C,A^2+B^2)
+ Tmp=matrix(c(E1,E2,NV),3,3)
+ D=det(Tmp)
+ if(D<0){
+ E1=-E1
+ }
+ E1=E1/Norm(E1)
+ E2=E2/Norm(E2)
+ }
+ Em<- function(X,Y){
+ c(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)
+ Flattenlist(GY1)
+}
+
+############## New Intersect 18.02.01 #############
+
+Intersectline<- function(p1,v1,p2,v2){
+ Eps=10^(-5)
+ tmp=Dotprod(v1,v2)
+ tmp1=c(tmp,Norm(v1)^2)
+ tmp2=c(-Norm(v2)^2,-tmp)
+ tmp3=c(Dotprod(p2-p1,v2),Dotprod(p2-p1,v1))
+ d=Crossprod(tmp1,tmp2)
+ tmp=abs(Crossprod(v1,v2))
+ if(tmp>Eps){
+ dt=Crossprod(tmp3,tmp2)
+ ds=Crossprod(tmp1,tmp3)
+ t=dt/d
+ s=ds/d
+ pt=p1+v1*t
+ out=list(pt,t,s)
+ }else{
+ tmp1=Crossprod(p2-p1,v1)/Norm(v1)
+ out=list(abs(tmp1))
+ }
+ return(out)
+}
+
+Intersectseg<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ Eps=10^(-4)
+ Eps1=0.01
+ seg1=varargin[[1]]
+ seg2=varargin[[2]]
+ if(Nargs>2){Eps1=varargin[[3]]}
+ p1=Op(1,seg1); q1=Op(2,seg1)
+ p2=Op(1,seg2); q2=Op(2,seg2)
+ if((Norm(q1-p1)<Eps)||(Norm(q2-p2)<Eps)){
+ out=list(-1)
+ }else{
+ tmp=Intersectline(p1,q1-p1,p2,q2-p2)
+ if(length(Op(1,tmp))>1){
+ pt=Op(1,tmp); t=Op(2,tmp); s=Op(3,tmp)
+ if((t*(t-1)<Eps)&&(s*(s-1)<Eps)){
+ out=list(0,pt,t,s)
+ }else{
+ t=min(max(t,0),1)
+ s=min(max(s,0),1)
+ tmp3=c(Norm(p1-p2),Norm(p1-q2),Norm(p2-p1),Norm(p2-q1))
+ tmp1=c(Op(2,q2-p2),-Op(1,q2-p2))
+ tmp=Intersectline(p1,tmp1,p2,q2-p2)
+ if(length(Op(1,tmp))>1){
+ if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){
+ tmp3=c(tmp3,Norm(Op(1,tmp)-p1))
+ }
+ }
+ tmp=Intersectline(q1,tmp1,p2,q2-p2)
+ if(length(Op(1,tmp))>1){
+ if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){
+ tmp3=c(tmp3,Norm(Op(1,tmp)-q1))
+ }
+ }
+ tmp1=c(Op(2,q1-p1),-Op(1,q1-p1))
+ tmp=Intersectline(p2,tmp1,p1,q1-p1);
+ if(length(Op(1,tmp))>1){
+ if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){
+ tmp3=c(tmp3,Norm(Op(1,tmp)-p2))
+ }
+ }
+ if(length(Op(1,tmp))>1){
+ if(Op(3,tmp)*(Op(3,tmp)-1)<Eps){
+ tmp3=c(tmp3,Norm(Op(1,tmp)-q2))
+ }
+ }
+ out=list(min(tmp3),pt,t,s)
+ }
+ }else{
+ dist=tmp[[1]]
+ tmp1=q1-p1
+ n=c(tmp1[2],-tmp1[1])/Norm(tmp1)
+ pts=list()
+ tmp=Intersectline(p1,n,p2,q2-p2)
+ if(tmp[[3]]*(tmp[[3]]-1)<Eps){
+ tmp1=(1-tmp[[3]])*p2+tmp[[3]]*q2
+ pts=c(pts,list(list(tmp1,0,tmp[[3]])))
+ }
+ tmp=Intersectline(q1,n,p2,q2-p2)
+ if(tmp[[3]]*(tmp[[3]]-1)<Eps){
+ tmp1=(1-tmp[[3]])*p2+tmp[[3]]*q2
+ pts=c(pts,list(list(tmp1,1,tmp[[3]])))
+ }
+ tmp=Intersectline(p2,n,p1,q1-p1)
+ if(tmp[[3]]*(tmp[[3]]-1)<Eps){
+ tmp1=(1-tmp[[3]])*p1+tmp[[3]]*q1
+ pts=c(pts,list(list(tmp1,tmp[[3]],0)))
+ }
+ tmp=Intersectline(q2,n,p1,q1-p1)
+ if(tmp[[3]]*(tmp[[3]]-1)<Eps){
+ tmp1=(1-tmp[[3]])*p1+tmp[[3]]*q1
+ pts=c(pts,list(list(tmp1,tmp[[3]],2)))
+ }
+ if(length(pts)==0){
+ tmp1=min(Norm(p2-p1),Norm(q2-p1),Norm(p2-q1),Norm(q2-q1))
+ out=list(tmp1)
+ }else{
+ if(dist>Eps1){
+ out=list(dist)
+ }else{
+ tmp=c();
+ for(j in 1:length(pts)){
+ tmp=Appendrow(tmp,Op(1,pts[[j]]))
+ }
+ tmp1=sum(tmp[,1])/(length(pts))
+ tmp2=sum(tmp[,2])/(length(pts))
+ tmp3=c(tmp1,tmp2)
+ tmp=Nearestpt(tmp3,seg1)
+ tmp1=tmp[[2]]
+ tmp=Nearestpt(tmp3,seg2)
+ tmp2=tmp[[2]]
+ out=list(dist,tmp3,tmp1,tmp2)
+ }
+ }
+ }
+ }
+ return(out)
+}
+
+Osplineseg<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ Eps=10^(-2)
+ Eps0=10^(-6)
+ list=varargin[[1]]
+ Numstr="Num=20"
+ if(Nargs>1){
+ Numstr=varargin[[2]]
+ }
+ p0=Op(1,list); p1=Op(2,list); p2=Op(3,list); p3=Op(4,list)
+ tmp=Norm(p2-p0)*Norm(p3-p1)
+ tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/tmp)/2)
+ cc=4*Norm(p2-p1)/3/(Norm(p2-p0)+Norm(p3-p1))/tmp
+ pQ=p1+cc*(p2-p0)
+ pR=p2+cc*(p1-p3)
+ ctrL=list(c(pQ,pR))
+ out=Bezier(list(p1,p2),ctrL,Numstr)
+ return(out)
+}
+
+Intersectpartseg<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ crv1=varargin[[1]]
+ crv2=varargin[[2]]
+ ii=varargin[[3]]
+ jj=varargin[[4]]
+ Eps1=varargin[[5]]
+ Eps2=varargin[[6]]
+ Dist=10*Eps2
+ if(Nargs>6){Dist=varargin[[7]]}
+ Eps=10^(-4)
+ out=list()
+ seg1=Listplot(Op(ii,crv1),Op(ii+1,crv1))
+ seg2=Listplot(Op(jj,crv2),Op(jj+1,crv2))
+ tmp1=Op(2,seg1)-Op(1,seg1)
+ tmp2=Op(2,seg2)-Op(1,seg2)
+ snang=abs(Crossprod(tmp1,tmp2))/(Norm(tmp1)*Norm(tmp2))
+ tmp=Intersectseg(seg1,seg2,Eps1)
+ dst=Op(1,tmp)
+ if(dst<Eps){
+ out=list(Op(2,tmp),ii+Op(3,tmp),jj+Op(4,tmp),dst,snang)
+ }else{
+ if(dst<Eps2){
+ if((Length(crv1)==2)||(Norm(Op(2,seg1)-Op(1,seg1))>Dist-Eps)){
+ os1=seg1
+ }else{
+ p1=Op(1,seg1); p2=Op(2,seg1)
+ if(ii==1){
+ p3=Op(3,crv1)
+ tmp=p2-p1
+ tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp))
+ p0=Reflectdata(p3,c((p1+p2)/2,tmp))
+ }else{
+ if(ii==Length(crv1)-1){
+ p0=Op(ii-1,crv1)
+ tmp=p2-p1
+ tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp))
+ p3=Reflectdata(p0,c((p1+p2)/2,tmp))
+ }else{
+ p0=Op(ii-1,crv1); p3=Op(ii+2,crv1)
+ }
+ }
+ os1=Osplineseg(list(p0,p1,p2,p3))
+ }
+ if((Length(crv2)==2)||(Norm(Op(2,seg2)-Op(1,seg2))>Dist-Eps)){
+ os2=seg2
+ }else{
+ p1=Op(1,seg2); p2=Op(2,seg2)
+ if(jj==1){
+ p3=Op(3,crv2)
+ tmp=p2-p1
+ tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp))
+ p0=Reflectdata(p3,c((p1+p2)/2,tmp))
+ }else{
+ if(jj==Length(crv2)-1){
+ p0=Op(jj-1,crv2)
+ tmp=p2-p1
+ tmp=(p1+p2)/2+c(Op(2,tmp),-Op(1,tmp))
+ p3=Reflectdata(p0,c((p1+p2)/2,tmp))
+ }else{
+ p0=Op(jj-1,crv2); p3=Op(jj+2,crv2)
+ }
+ }
+ os2=Osplineseg(list(p0,p1,p2,p3))
+ }
+ tmp2=list()
+ for(kk in Looprange(1,Length(os1)-1)){
+ for(II in Looprange(1,Length(os2)-1)){
+ seg1=Listplot(Op(kk,os1),Op(kk+1,os1))
+ seg2=Listplot(Op(II,os2),Op(II+1,os2))
+ tmp=Intersectseg(seg1,seg2,Eps1)
+ if(Op(1,tmp)<Eps1){
+ if(Op(1,tmp)<dst+Eps){
+ dst=Op(1,tmp)
+ tmp3=list()
+ for( nn in Looprange(1,length(tmp2))){
+ if(Op(1,tmp2[[nn]])<dst){
+ tmp3=c(tmp3,list(tmp2[[n]]))
+ }
+ }
+ tmp2=c(tmp3,list(list(dst,Op(2,tmp))))
+ }
+ }
+ }
+ }
+ if(length(tmp2)>0){
+ tmp1=c()
+ for(nn in Looprange(1,length(tmp2))){
+ tmp1=Appendrow(tmp1,Op(2,tmp2[[nn]]))
+ }
+ tmp=sum(tmp1[,1])/length(tmp2)
+ tmp=c(tmp,sum(tmp1[,2])/length(tmp2))
+ out=list(tmp)
+ p1=Op(ii,crv1); p2=Op(ii+1,crv1)
+ tmp=c(Op(2,p2-p1),-Op(1,p2-p1))
+ tmp=Intersectline(Op(1,out),tmp,p1,p2-p1)
+ tmp=min(max(Op(3,tmp),0),1)
+ out=list(tmp1,ii+tmp)
+ p1=Op(jj,crv2); p2=Op(jj+1,crv2)
+ tmp=c(Op(2,p2-p1),-Op(1,p2-p1))
+ tmp=Intersectline(Op(1,out),tmp,p1,p2-p1)
+ tmp=min(max(Op(3,tmp),0),1)
+ out=c(out,list(jj+tmp,dst,snang))
+ }
+ }
+ }
+ return(out)
+}
+
+Collectnear<- function(ptdL,Eps2){
+ Eps=10^(-4);
+ gL=list(Op(1,ptdL))
+ rL=ptdL[2:(length(ptdL))]
+ flg=0
+ for( ii in Looprange(1,length(ptdL)-1)){
+ if(flg==0){
+ numL=c()
+ for(jj in Looprange(1,length(rL))){
+ tmp1=100
+ for(kk in Looprange(1,length(gL))){
+ tmp=Norm(Op(1,gL[[kk]])-Op(1,rL[[jj]]))
+ if(tmp<tmp1){tmp1=tmp}
+ }
+ if(tmp1<Eps2){numL=c(numL,jj)}
+ }
+ if(length(numL)==0){
+ flg=1
+ }else{
+ gL=c(gL,rm[numL])
+ tmp=setdiff(1:(length(rL)),numL)
+ rL=rL[tmp]
+ }
+ }
+ }
+ return(list(gL,rL))
+}
+
+IntersectcurvesPp<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ Eps=10^(-4)
+ Eps1=0.01
+ Eps2=0.1
+ Dist=10*Eps2
+ if(Nargs>2){Eps1=varargin[[3]]}
+ if(Nargs>3){Eps2=varargin[[4]]}
+ if(Nargs>4){Dist=varargin[[5]]}
+ tmp1=varargin[[1]]
+ crv1=matrix(Op(1,tmp1),nrow=1)
+ for(ii in Looprange(2,Length(tmp1))){
+ tmp=Op(Length(crv1),crv1)
+ if(Norm(tmp-Op(ii,tmp1))>Eps){
+ crv1=Appendrow(crv1,Op(ii,tmp1))
+ }
+ }
+ tmp2=varargin[[2]]
+ crv2=matrix(Op(1,tmp2),nrow=1)
+ for(ii in Looprange(2,Length(tmp2))){
+ tmp=Op(Length(crv2),crv2)
+ if(Norm(tmp-Op(ii,tmp2))>Eps){
+ crv2=Appendrow(crv2,Op(ii,tmp2))
+ }
+ }
+ if(Length(crv1)!=Length(crv2)){
+ self=0
+ }else{
+ self=1
+ for(ii in Looprange(1,Length(crv1))){
+ if(Norm(Op(ii,crv1)-Op(ii,crv2))>0){
+ self=0
+ break
+ }
+ }
+ }
+ out=list()
+ for(ii in Looprange(1,Length(crv1)-1)){
+ if(self==0){
+ loopL=Looprange(1,Length(crv2)-1)
+ }else{
+ loopL=Looprange(ii+2,Length(crv2)-1)
+ }
+ for(jj in loopL){
+ tmp=Intersectpartseg(crv1,crv2,ii,jj,Eps1,Eps2,Dist)
+ if(length(tmp)>0){
+ if(length(out)==0){
+ out=list(tmp)
+ }else{
+ tmp1=Op(length(out),out)
+ if(Norm(Op(1,tmp1)-Op(1,tmp))>Eps1){
+ out=c(out,list(tmp))
+ }
+ }
+ if(self==1){
+ tmp=list(Op(1,tmp),Op(3,tmp),Op(2,tmp),Op(4,tmp),Op(5,tmp))
+ out=c(out,list(tmp))
+ }
+ }
+ }
+ }
+ tmp2=out
+ out=list()
+ tmp1=tmp2
+ flg=0
+ for(ii in Looprange(1,length(tmp2))){
+ if(flg==0){
+ tmp=Collectnear(tmp1,Eps2)
+ out=c(out,list(Op(1,tmp)))
+ if(length(Op(2,tmp))==0){
+ flg=1
+ }else{
+ tmp1=Op(2,tmp)
+ }
+ }
+ }
+ for(ii in Looprange(1,length(out))){
+ tmp1=Op(ii,out)
+ if(length(tmp1)==1){
+ out[[ii]]=Op(1,tmp1)
+ }else{
+ tmp=c()
+ for(jj in Looprange(1,length(tmp1))){
+ tmp=c(tmp,Op(4,tmp1[[jj]]))
+ }
+ dst=min(tmp)
+ tmp=list()
+ for(jj in Looprange(1,length(tmp1))){
+ if(Op(4,tmp1[[jj]])<dst+Eps){
+ tmp=c(tmp,list(tmp1[[jj]]))
+ }
+ }
+ tmp1=tmp
+ tmp=c()
+ for(jj in Looprange(1,length(tmp1))){
+ tmp=c(tmp,Op(1,tmp1[[jj]]))
+ }
+ tmp=sum(tmp)/length(tmp1);
+ tmp2=list(tmp)
+ tmp=Nearestpt(Op(1,tmp2),crv1)
+ tmp2=c(tmp2,list(Op(2,tmp)))
+ tmp=Nearestpt(Op(1,tmp2),crv2)
+ tmp2=c(tmp2,list(Op(2,tmp)))
+ tmp2=c(tmp2,list(list(dst,Op(5,tmp1[[1]]))))
+ out[[ii]]=tmp2
+ }
+ }
+ return(out)
+}
+
+Intersectcurves<- function(...){
+ tmp=IntersectcurvesPp(...)
+ out=list()
+ for(ii in Looprange(1,length(tmp))){
+ out=c(out,list(Op(1,tmp[[ii]])))
+ }
+ return(out)
+}
+
+############## end of New Intersect #############
+
+############## New Enclosing2 #############
+
+Enclosing2<- function(...){
+ varargin=list(...)
+ Nargs=length(varargin)
+ plist=varargin[[1]]
+ Eps=10^(-5)
+ Eps1=0.01
+ Eps2=0.1
+ Start=c()
+ flg=0
+ for(ii in Looprange(2,Nargs)){
+ tmp=varargin[[ii]]
+ if(length(tmp)>1){
+# Start=tmp
+ }else{
+ if(flg==0){Eps1=tmp}
+ if(flg==1){Eps2=tmp}
+ flg=flg+1
+ }
+ }
+ flg=0
+ AnsL=c()
+ if(length(plist)==1){
+ Fdata=plist[[1]]
+ tmp1=Op(1,Fdata)
+ tmp2=Op(Length(Fdata),Fdata)
+ if(Norm(tmp1-tmp2)<Eps){
+ AnsL=Fdata
+ }else{
+ AnsL=Appendrow(Fdata,tmp1)
+ }
+ flg=1
+ }
+ if(flg==0){
+ Fdata=Op(1,plist)
+ Gdata=Op(length(plist),plist)
+ KL=IntersectcurvesPp(Fdata,Gdata)
+ if(length(KL)==0){
+ tmp1=Op(Length(Gdata),Gdata)
+ tmp2=Op(1,Fdata)
+ tmp=Listplot(tmp1,tmp2)
+ plist=c(plist,list(tmp))
+ Start=tmp2
+ tst=1
+# flg=1
+ }else{
+ if(length(KL)==1){
+ tmp=Op(1,KL)
+ tst=Op(2,tmp)
+ Start=Pointoncrv(tst,Fdata)
+ }
+ if(length(KL)>1){
+ KL=Quicksort(KL,2)
+ if(length(Start)==0){
+ tmp=Op(1,KL)
+ tst=Op(2,tmp)
+ Start=Pointoncrv(tst,Fdata)
+ }else{
+ tmp=c()
+ for(ii in Looprange(1,length(KL))){
+ tmp=c(tmp,Norm(Op(1,KL[[ii]]-Start)))
+ }
+ tmp=min(tmp)
+ tmp1=list()
+ for(ii in Looprange(1,length(KL))){
+ tmp2=Op(1,KL[[ii]])
+ if(Norm(tmp2-Start)==tmp){
+ tmp1=c(tmp1,list(tmp2))
+ }
+ }
+ tmp=Op(1,tmp1)
+ tst=Op(2,tmp)
+ Start=Pointoncrv(tst,Fdata)
+ }
+ }
+ }
+ }
+ if(flg==0){
+ t1=tst
+ for(nn in Looprange(1,length(plist))){
+ Fdata=Op(nn,plist)
+ if(nn==length(plist)){
+ nxtno=1
+ }else{
+ nxtno=nn+1
+ }
+ Gdata=Op(nxtno,plist)
+ KL=IntersectcurvesPp(Fdata,Gdata)
+ if(length(KL)==0){
+ tmp=matrix(Op(Length(Fdata),Fdata),nrow=1) #18.02.02from
+ Gdata=Appendrow(tmp,Gdata)
+ plist[[nxtno]]=Gdata
+ t2=Length(Fdata)
+ ss=1 #18.02.02upto
+ }else{
+ tmp=Op(1,KL)
+ t2=Op(2,tmp)
+ ss=Op(3,tmp)
+ if(abs(t2-t1)<Eps){
+ if(length(KL)>1){
+ tmp=Op(2,KL)
+ t2=Op(2,tmp)
+ ss=Op(3,tmp)
+ }else{
+# println(text(nn)+" and "+text(nn+1)+" not intersect");
+# flg=1
+ }
+ }
+ }
+ if(flg==0){
+ tmp=Partcrv(t1,t2,Fdata)
+ if(nn==1){
+ AnsL=tmp
+ }else{
+ tmp=tmp[2:Length(tmp),]
+ AnsL=Appendrow(AnsL,tmp)
+ }
+ t1=ss
+ }
+ }
+ }
+ return(AnsL)
+}
+
+############## end of Enclosing2 #############
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r
index f45c949d..37033948 100644
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic5_2_3_rep2e.r
@@ -16,8 +16,10 @@
#########################################
-ThisVersion<- "2ev5_2_3(17.10.07)"
+ThisVersion<- "2ev5_2_3(17.10.28)"
+# 2017.10.28
+# Drwpt debugged ( Flattenlist )
# 2017.10.07
#
@@ -255,6 +257,7 @@ Drwpt<-function(...)
Mojisu=0
for (II in Looprange(1,All)){
MS<- varargin[[II]]
+ MS=Flattenlist(MS) #17.10.28
if (mode(MS)=="numeric"){
MS<- list(MS)
}
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin
deleted file mode 100644
index c1e3ef24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin
deleted file mode 100644
index 8b094651..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin
deleted file mode 100644
index 2af2be64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin
deleted file mode 100644
index f4101b32..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin
deleted file mode 100644
index 3640469b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin
deleted file mode 100644
index 0d68e6d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin
deleted file mode 100644
index 3f243306..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin
deleted file mode 100644
index 99a0cecd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin
deleted file mode 100644
index 47ac2ac9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin
deleted file mode 100644
index afb1b3bc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin
deleted file mode 100644
index 81625f07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin
deleted file mode 100644
index 1e8b41fb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin
deleted file mode 100644
index f146b511..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin
deleted file mode 100644
index bb466f84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin
deleted file mode 100644
index 80964b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin
deleted file mode 100644
index 94cfb714..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin
deleted file mode 100644
index bee787d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin
deleted file mode 100644
index f53ad324..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin
deleted file mode 100644
index 05a4fb2e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin
deleted file mode 100644
index bc02de52..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin
deleted file mode 100644
index 77aa840f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin
deleted file mode 100644
index 49978903..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin
deleted file mode 100644
index 5e3f28b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin
deleted file mode 100644
index 426023be..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin
deleted file mode 100644
index 7745bccc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin
deleted file mode 100644
index d037c656..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin
deleted file mode 100644
index 13e374db..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin
deleted file mode 100644
index c16f84ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin
deleted file mode 100644
index 55b15ad7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin
deleted file mode 100644
index 9a27e094..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin
deleted file mode 100644
index 73ea5db3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin
deleted file mode 100644
index e7a00c3e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin
deleted file mode 100644
index f62af795..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin
deleted file mode 100644
index f73458f1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin
deleted file mode 100644
index 5960bb73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin
deleted file mode 100644
index 1c8fd062..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin
deleted file mode 100644
index 70566c55..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin
deleted file mode 100644
index ade04624..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
deleted file mode 100644
index 5c4f8404..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin
deleted file mode 100644
index 7d645929..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
deleted file mode 100644
index 7f994b75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
deleted file mode 100644
index d92d7a5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin
deleted file mode 100644
index 71b24de1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin
deleted file mode 100644
index 835d570f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin
deleted file mode 100644
index 0ecbcb1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin
deleted file mode 100644
index dba77269..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin
deleted file mode 100644
index b3a3f8e4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin
deleted file mode 100644
index b2124b51..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin
deleted file mode 100644
index 08f82d89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin
deleted file mode 100644
index 2fbf6adb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin
deleted file mode 100644
index b09e4aeb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin
deleted file mode 100644
index 609d057a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin
deleted file mode 100644
index e6f70b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin
deleted file mode 100644
index 8f7d28a1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin
deleted file mode 100644
index e3bd11d0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin
deleted file mode 100644
index f0ff3ef8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin
deleted file mode 100644
index a3ba57b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin
deleted file mode 100644
index 8ab45716..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin
deleted file mode 100644
index 70d3663e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin
deleted file mode 100644
index 03498fd7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin
deleted file mode 100644
index abf752c8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin
deleted file mode 100644
index 1a024a4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin
deleted file mode 100644
index 589adeaf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin
deleted file mode 100644
index 7a097bea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin
deleted file mode 100644
index d3962817..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin
deleted file mode 100644
index 9ac44969..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin
deleted file mode 100644
index f4bff84e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin
deleted file mode 100644
index d4520393..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin
deleted file mode 100644
index 05c9df9c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin
deleted file mode 100644
index 54ce1e7c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin
deleted file mode 100644
index 5a081c10..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin
deleted file mode 100644
index 17e55798..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin
deleted file mode 100644
index 1a6860c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin
deleted file mode 100644
index 7fa6e7b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin
deleted file mode 100644
index e4bb3e12..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin
deleted file mode 100644
index a300752a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin
deleted file mode 100644
index 3ed90ff9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin
deleted file mode 100644
index 3cae8493..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin
deleted file mode 100644
index e249a055..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin
deleted file mode 100644
index f7f2e09b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin
deleted file mode 100644
index 003930bd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin
deleted file mode 100644
index 1cc63d81..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin
deleted file mode 100644
index 47cd3aff..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin
deleted file mode 100644
index d0ac6d1f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin
deleted file mode 100644
index 0c1ff22d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin
deleted file mode 100644
index 0ada7614..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin
deleted file mode 100644
index 80d7fa1d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin
deleted file mode 100644
index f17997ae..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin
deleted file mode 100644
index 4dfc5fba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin
deleted file mode 100644
index a445388d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin
deleted file mode 100644
index 00cefe7b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin
deleted file mode 100644
index 5efa1ba3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin
deleted file mode 100644
index 31de11e2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin
deleted file mode 100644
index 8bc86748..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin
deleted file mode 100644
index ebb9f45e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin
deleted file mode 100644
index 0335b185..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin
deleted file mode 100644
index 88ce57e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin
deleted file mode 100644
index f52ad0ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin
deleted file mode 100644
index 5662575f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin
deleted file mode 100644
index 38306a20..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin
deleted file mode 100644
index 3c6ed6c5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin
deleted file mode 100644
index deb2de0d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin
deleted file mode 100644
index 3a87071b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin
deleted file mode 100644
index de85e2a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin
deleted file mode 100644
index 3a918b84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin
deleted file mode 100644
index 5b1846e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin
deleted file mode 100644
index 2b895f4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin
deleted file mode 100644
index 76baa221..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin
deleted file mode 100644
index def0bb31..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin
deleted file mode 100644
index 07c0c078..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin
deleted file mode 100644
index 5dbdc7cb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin
deleted file mode 100644
index dafe1e24..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin
deleted file mode 100644
index 97caac64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin
deleted file mode 100644
index 70e1971c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin
deleted file mode 100644
index 21dc66a1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin
deleted file mode 100644
index 9ccea2a3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin
deleted file mode 100644
index d191d41a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin
deleted file mode 100644
index 313c934d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin
deleted file mode 100644
index f705d5b1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin
deleted file mode 100644
index 3940a613..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin
deleted file mode 100644
index c9ce9f14..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin
deleted file mode 100644
index bcaebbbd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin
deleted file mode 100644
index 4bc6206a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin
deleted file mode 100644
index 51fbfbe1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin
deleted file mode 100644
index 0fa577df..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin
deleted file mode 100644
index fb13efa4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin
deleted file mode 100644
index 98ddd1a4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin
deleted file mode 100644
index 6356eaed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin
deleted file mode 100644
index 7f8de9cd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin
deleted file mode 100644
index 83ba3861..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin
deleted file mode 100644
index 92534466..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin
deleted file mode 100644
index 2d013048..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin
deleted file mode 100644
index 0bd11580..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
deleted file mode 100644
index 49a24e6c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin
deleted file mode 100644
index 67316bd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin
deleted file mode 100644
index 1658b408..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin
deleted file mode 100644
index 95c31670..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin
deleted file mode 100644
index fcf74e3c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin
deleted file mode 100644
index f5ced4c3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin
deleted file mode 100644
index 6cd9f985..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin
deleted file mode 100644
index c41eb72e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin
deleted file mode 100644
index ab493424..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin
deleted file mode 100644
index 659d412f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin
deleted file mode 100644
index f26a75b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin
deleted file mode 100644
index 1a2a931f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin
deleted file mode 100644
index 92c22101..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin
deleted file mode 100644
index 43809cb9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin
deleted file mode 100644
index 4562fd87..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin
deleted file mode 100644
index 29800896..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin
deleted file mode 100644
index dc725565..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin
deleted file mode 100644
index e1ab36e0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin
deleted file mode 100644
index 74a5a6aa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin
deleted file mode 100644
index 332d7968..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin
deleted file mode 100644
index b188ade7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin
deleted file mode 100644
index 4c0a5b2d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin
deleted file mode 100644
index d7d9f480..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin
deleted file mode 100644
index bf51af8a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin
deleted file mode 100644
index 80a32401..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin
deleted file mode 100644
index b7f0d8cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin
deleted file mode 100644
index 7bfcf7ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin
deleted file mode 100644
index 2bdabcc4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin
deleted file mode 100644
index b692d55a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin
deleted file mode 100644
index 57a2ce6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin
deleted file mode 100644
index 845d40ca..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin
deleted file mode 100644
index 92afe9ad..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin
deleted file mode 100644
index a14bcc2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin
deleted file mode 100644
index da05430c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin
deleted file mode 100644
index 18416f1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin
deleted file mode 100644
index bef4fb7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin
deleted file mode 100644
index 6bbe6d7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin
deleted file mode 100644
index 8c215679..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin
deleted file mode 100644
index e66c254e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin
deleted file mode 100644
index fb3d3b45..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin
deleted file mode 100644
index e1625a76..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin
deleted file mode 100644
index 2024ea60..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin
deleted file mode 100644
index c812540a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin
deleted file mode 100644
index 41d69ca5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin
deleted file mode 100644
index d285a0cc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin
deleted file mode 100644
index 32bf34e8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin
deleted file mode 100644
index d28e36ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin
deleted file mode 100644
index a7078f9c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin
deleted file mode 100644
index e4c31df3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin
deleted file mode 100644
index f532d7ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin
deleted file mode 100644
index ffebca84..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin
deleted file mode 100644
index e7958ab9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin
deleted file mode 100644
index d54eb52f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin
deleted file mode 100644
index 07321262..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin
deleted file mode 100644
index a13d3f5f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin
deleted file mode 100644
index 58cef916..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin
deleted file mode 100644
index 6f557a3b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin
deleted file mode 100644
index f95c613a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin
deleted file mode 100644
index 2d1eec35..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin
deleted file mode 100644
index ac5490d9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin
deleted file mode 100644
index 814b8791..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin
deleted file mode 100644
index d700ec69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin
deleted file mode 100644
index ccea3366..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin
deleted file mode 100644
index c3f667e3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin
deleted file mode 100644
index 2e3c664b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin
deleted file mode 100644
index 1a2bbf95..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin
deleted file mode 100644
index 903c9029..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin
deleted file mode 100644
index 5e7b5ffb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin
deleted file mode 100644
index da8b1196..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin
deleted file mode 100644
index 6ac27dcb..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin
deleted file mode 100644
index a3da7dd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin
deleted file mode 100644
index 8843cde4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin
deleted file mode 100644
index c0547852..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin
deleted file mode 100644
index 8c11c2c2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin
deleted file mode 100644
index e6055b42..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin
deleted file mode 100644
index cf693dd1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin
deleted file mode 100644
index 1dce322f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin
deleted file mode 100644
index e7094eb4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin
deleted file mode 100644
index 3a62be73..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin
deleted file mode 100644
index 2ca583e9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin
deleted file mode 100644
index 5de23ccd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin
deleted file mode 100644
index bda03ab0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin
deleted file mode 100644
index fbf6d134..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin
deleted file mode 100644
index 13f43f67..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin
deleted file mode 100644
index 10ac2f07..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin
deleted file mode 100644
index cf36ca4e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin
deleted file mode 100644
index 4f608b89..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin
deleted file mode 100644
index 727cf4d5..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin
deleted file mode 100644
index f09e463c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin
deleted file mode 100644
index c1303557..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin
deleted file mode 100644
index 1003cd61..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin
deleted file mode 100644
index be3a6f13..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin
deleted file mode 100644
index d154a0a0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin
deleted file mode 100644
index 77a99874..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin
deleted file mode 100644
index 01e1b69c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin
deleted file mode 100644
index a4872a7f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin
deleted file mode 100644
index 1e679bfc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin
deleted file mode 100644
index 5df6db75..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin
deleted file mode 100644
index 042a7261..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin
deleted file mode 100644
index df1a3849..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin
deleted file mode 100644
index da18fb37..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin
deleted file mode 100644
index 10769324..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin
deleted file mode 100644
index 56a87566..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin
deleted file mode 100644
index 0acb33cf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin
deleted file mode 100644
index 8d4a1b0e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin
deleted file mode 100644
index f51f7599..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin
deleted file mode 100644
index 02bd0619..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin
deleted file mode 100644
index 1036fe46..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin
deleted file mode 100644
index 6cfc7b1c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin
deleted file mode 100644
index 7bc8974d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin
deleted file mode 100644
index dcde7e7d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin
deleted file mode 100644
index c9678719..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin
deleted file mode 100644
index aca40719..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin
deleted file mode 100644
index bfdb8495..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin
deleted file mode 100644
index 997e8178..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin
deleted file mode 100644
index 1d2063bf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin
deleted file mode 100644
index 46e49d69..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin
deleted file mode 100644
index ae62bffa..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin
deleted file mode 100644
index 3a609bc9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin
deleted file mode 100644
index be2cbbb6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin
deleted file mode 100644
index 79ae6660..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin
deleted file mode 100644
index 3fe068d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin
deleted file mode 100644
index adc5ef97..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin
deleted file mode 100644
index ed695e7f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin
deleted file mode 100644
index 918c968e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin
deleted file mode 100644
index e417c91f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin
deleted file mode 100644
index f9fb21b4..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin
deleted file mode 100644
index faf60668..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin
deleted file mode 100644
index c0d4e9e7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin
deleted file mode 100644
index 44dc173e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin
deleted file mode 100644
index 6ef24cf2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin
deleted file mode 100644
index 9658e1ab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin
deleted file mode 100644
index fc39c4e1..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin
deleted file mode 100644
index bed3747e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin
deleted file mode 100644
index bd7b7168..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin
deleted file mode 100644
index 86ba2a9e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin
deleted file mode 100644
index c4009953..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
deleted file mode 100644
index 278af331..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin
deleted file mode 100644
index 5aa6fd04..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin
deleted file mode 100644
index b22043d8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
deleted file mode 100644
index 64f416d6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
deleted file mode 100644
index cd356699..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 295812ba..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin
deleted file mode 100644
index c98b95ed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin
deleted file mode 100644
index 5a780fab..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin
deleted file mode 100644
index 037fffea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin
deleted file mode 100644
index b3d2d402..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin
deleted file mode 100644
index 5895e254..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin
deleted file mode 100644
index c34f7e16..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin
deleted file mode 100644
index 4ba4947b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin
deleted file mode 100644
index 9c83ea64..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin
deleted file mode 100644
index 0e8bacaf..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin
deleted file mode 100644
index b097e980..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin
deleted file mode 100644
index 7a3c634c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin
deleted file mode 100644
index ca70656e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin
deleted file mode 100644
index 66f8e6c0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin
deleted file mode 100644
index a2bafc2c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin
deleted file mode 100644
index 131297e0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin
deleted file mode 100644
index a1a27f00..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin
deleted file mode 100644
index ab4bb5ed..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin
deleted file mode 100644
index 74871299..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin
deleted file mode 100644
index e0e2dab3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin
deleted file mode 100644
index 4e974456..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin
deleted file mode 100644
index d22ea31d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin
deleted file mode 100644
index 0d86b601..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin
deleted file mode 100644
index 46fd7b7e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin
deleted file mode 100644
index f5e92c99..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin
deleted file mode 100644
index a8140128..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin
deleted file mode 100644
index be4c9157..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin
deleted file mode 100644
index 99ef9902..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin
deleted file mode 100644
index 0904029d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin
deleted file mode 100644
index 7d332cfd..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin
deleted file mode 100644
index 1abdf882..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin
deleted file mode 100644
index ccfce689..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin
deleted file mode 100644
index f2e50561..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin
deleted file mode 100644
index a224f885..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin
deleted file mode 100644
index 2fee3584..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin
deleted file mode 100644
index 5f360f2f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin
deleted file mode 100644
index 5aa530ec..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin
deleted file mode 100644
index 5e76126d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin
deleted file mode 100644
index 3fd4aeda..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin
deleted file mode 100644
index 3262007d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin
deleted file mode 100644
index a05f649a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin
deleted file mode 100644
index 1bd27535..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin
deleted file mode 100644
index 1668581e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin
deleted file mode 100644
index 3acff07e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin
deleted file mode 100644
index 06515c27..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin
deleted file mode 100644
index e0c9fdf2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin
deleted file mode 100644
index 487a5881..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin
deleted file mode 100644
index 15d7c7ea..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin
deleted file mode 100644
index 8356c7d3..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin
deleted file mode 100644
index 8a956544..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin
deleted file mode 100644
index 06813c26..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin
deleted file mode 100644
index 53ef48f2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin
deleted file mode 100644
index a4463d6f..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin
deleted file mode 100644
index 35bbb30a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin
deleted file mode 100644
index 1c115eb9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin
deleted file mode 100644
index 90e83be0..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin
deleted file mode 100644
index 3cc76a71..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin
deleted file mode 100644
index 51ccdf48..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin
deleted file mode 100644
index bba8a4ee..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin
deleted file mode 100644
index 3a5e517b..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin
deleted file mode 100644
index d89801c7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin
deleted file mode 100644
index f89ae3a7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin
deleted file mode 100644
index cc5aea83..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin
deleted file mode 100644
index e454fb5a..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin
deleted file mode 100644
index 1749fad9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin
deleted file mode 100644
index 8613eba7..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names b/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names
deleted file mode 100644
index 02079ff8..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicsciL5/names
+++ /dev/null
@@ -1,341 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-Bezierpt
-Bezier
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Definecolor
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-ReadOutData
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-WriteOutData
-Writetextdata
-WritetoCindy
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
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>
diff --git a/texmf-dist/scripts/ketcindy/ketoutset.txt b/texmf-dist/scripts/ketcindy/ketoutset.txt
index 6f2d739f..f5709f55 100644
--- a/texmf-dist/scripts/ketcindy/ketoutset.txt
+++ b/texmf-dist/scripts/ketcindy/ketoutset.txt
@@ -1,64 +1,80 @@
-if(iswindows(),
-// PathT="C:\kettex\texlive\bin\win32\platex";
- PathT="C:\kettex\texlive\bin\win32\uplatex";
-// PathT="C:\kettex\w32texb\bin\platex";
-// PathT="C:\kettex\w32texb\bin\latex";
-// PathT="C:\kettex\w32texb\bin\pdflatex";
-// PathT="C:\w32tex\bin\platex";
-// PathT="C:\texlive\bin\platex";
-// PathS="C:\Program Files\scilab-5.5.2\bin\scilex";
- PathS="C:\Program Files\scilab-6.6.0\bin\scilex";
- PathC="C:\MinGW\bin\gcc.exe";
-// PathC="C:\MinGW32\bin\gcc.exe";
- Pathpdf="C:\Program Files\SumatraPDF\SumatraPDF.exe";
- PathR="C:\Program Files\R\R-3.2.2\bin";
- PathA="C:\Program Files\asir\bin\asir";
- PathM="C:\maxima-5.37.3\bin\maxima.bat";
- PathV3="C:\Program Files\VCG\MeshLab\meshlab";
- PathF="C:\cygwin\bin";
-// PathAd="C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe";
- PathAd="C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe";
-);
-if(ismacosx(),
-// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/platex";
- PathT="/Applications/kettex/texlive/bin/x86_64-darwin/uplatex";
-// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/latex";
-// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/xelatex";
-// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/pdflatex";
-// PathT="/Applications/kettex/texlive/bin/x86_64-darwin/lualatex";
-// PathT="/Applications/kettexbasic/texlive/bin/x86_64-darwin/platex";
-// PathT="/Library/TeX/texbin/platex";
-// PathT="/Library/TeX/texbin/pdflatex";
-// PathT="/Library/TeX/texbin/lualatex";
-// PathT="/Library/TeX/texbin/xelatex";
-// PathT="/usr/texbin/platex";
-// PathS="/Applications/scilab-5.5.2.app/Contents/MacOS/bin/scilab";
- PathS="/Applications/scilab-6.0.0.app/Contents/MacOS/bin/scilab";
-// Pathpdf="preview";
- Pathpdf="skim";
-// Pathpdf="/Applications/skim.app/Contents/MacOS/Skim";
- PathC="gcc";
-// PathR="R";
-// PathR="/Library/Frameworks/R.framework/Versions/3.3/Resources/bin/R";
- PathR="/Library/Frameworks/R.framework/Versions/Current/Resources/bin/R";
- PathA="/Applications/cfep.app/OpenXM/rc/asir";
- PathM="/Applications/Maxima.app/Contents/Resources/maxima.sh";
- PathV3="/Applications/meshlab.app/Contents/MacOS/MeshLab";
- PathF="/Applications/FriCAS.app/Contents/Resources/bin/fricas";
-// PathAd="Adobe Reader";
- PathAd="/Applications/Adobe Acrobat Reader DC.app/Contents/MacOS/AdobeReader";
- Mackc="sh";
-// Mackc="open";
-);
-if(islinux(),
- PathT="platex";
- PathS="scilab";
- Pathpdf="evince";
-// Pathpdf="/usr/bin/xpdf";
- PathR="R";
- PathA="";
- PathM="maxima";
- PathV3="";
- PathF="";
- PathAd="";
-);
+if(iswindows(),
+// PathThead="C:\kettex\texlive\bin\win32\";
+// PathThead="";
+// PathT=PathThead+"platex";
+ PathT=PathThead+"uplatex";
+// PathT=PathThead+"platex";
+// PathT=PathThead+"latex";
+// PathT=PathThead+"pdflatex";
+// PathT=PathThead+"lualatex";
+// PathS="C:\Program Files\scilab-5.5.2\bin\scilex";
+ PathS="C:\Program Files\scilab-6.0.0\bin\scilex";
+ PathC="C:\MinGW\bin\gcc.exe";
+// PathC="C:\MinGW32\bin\gcc.exe";
+ Pathpdf="C:\Program Files\SumatraPDF\SumatraPDF.exe";
+ PathR="C:\Program Files\R\R-3.4.2\bin";
+ PathA="C:\Program Files\asir\bin\asir";
+ PathM="C:\maxima-5.37.3\bin\maxima.bat";
+ PathV3="C:\Program Files\VCG\MeshLab\meshlab";
+ PathF="C:\cygwin\bin";
+// PathAd="C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe";
+ PathAd="C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe";
+);
+if(ismacosx(),
+// PathThead="/Applications/kettex/texlive/bin/x86_64-darwin/";
+// PathThead="/Library/TeX/texbin/";
+// PathThead="";
+// PathT=PathThead+"platex";
+ PathT=PathThead+"uplatex";
+// PathT=PathThead+"latex";
+// PathT=PathThead+"xelatex";
+// PathT=PathThead+"pdflatex";
+// PathT=PathThead+"lualatex";
+// PathS="/Applications/scilab-5.5.2.app/Contents/MacOS/bin/scilab";
+ PathS="/Applications/scilab-6.0.0.app/Contents/MacOS/bin/scilab";
+ Pathpdf="preview";
+// Pathpdf="skim";
+// Pathpdf="/Applications/skim.app/Contents/MacOS/Skim";
+ PathC="gcc";
+// PathR="R";
+// PathR="/Library/Frameworks/R.framework/Versions/3.3/Resources/bin/R";
+ PathR="/Library/Frameworks/R.framework/Versions/Current/Resources/bin/R";
+ PathA="/Applications/cfep.app/OpenXM/rc/asir";
+ PathM="/Applications/Maxima.app/Contents/Resources/maxima.sh";
+ PathV3="/Applications/meshlab.app/Contents/MacOS/MeshLab";
+ PathF="/Applications/FriCAS.app/Contents/Resources/bin/fricas";
+// PathAd="Adobe Reader";
+ PathAd="/Applications/Adobe Acrobat Reader DC.app/Contents/MacOS/AdobeReader";
+ Mackc="sh";
+// Mackc="open";
+);
+if(islinux(),
+ PathT="uplatex";
+ PathS="scilab";
+ Pathpdf="evince";
+// Pathpdf="/usr/bin/xpdf";
+ PathR="R";
+ PathA="";
+ PathM="maxima";
+ PathV3="";
+ PathF="";
+ PathAd="";
+);
+
+if(isstring(Homehead),
+ setdirectory(Homehead+pathsep()+getname());
+ import("ketcindyhead.txt");
+,
+ Dirfile=gethome()+pathsep()+"ketcindy";
+);
+println(makedir(Dirfile,"ketwork"));
+Dirwork=Dirfile+pathsep()+"ketwork";
+Dirwork=replace(Dirwork,pathsep()+pathsep(),pathsep());
+
+setdirectory(Dirwork);
+
+if(indexof(PathT,"platex")>0,
+ Helplist(["+","+3d","+mv"],"helpJ");
+,
+ Helplist(["+","+3d","+mv"],"helpE");
+);
diff --git a/texmf-dist/scripts/ketcindy/setketcindy.txt b/texmf-dist/scripts/ketcindy/setketcindy.txt
index 74080ace..a4c7fab2 100644
--- a/texmf-dist/scripts/ketcindy/setketcindy.txt
+++ b/texmf-dist/scripts/ketcindy/setketcindy.txt
@@ -1,17 +1,13 @@
-// e:2017.10.14
-Dirlib=ketcindydir+pathsep()+"ketlib";
-Libname=Dirlib+pathsep()+"ketpic5_2_3";
-LibnameS=Dirlib+pathsep()+"ketpicsciL5";
-DirlibC=ketcindydir+pathsep()+"ketlibC";
-Dirwork=Dirhead+pathsep()+"ketwork";
-tmp=Dirhead;
-println(makedir(Dirhead,"ketwork"));
-setdirectory(Dirlib);
-import("ketcindylibbasic1r.cs");
-import("ketcindylibbasic2r.cs");
-import("ketcindyliboutr.cs");
-import("ketcindylib3dr.cs");
-import("ketcindylibmvr.cs");
-
-setdirectory(Dirhead);
-
+// e:2017.10.30
+Dirlib=Dirhead+pathsep()+"ketlib";
+Libname=Dirlib+pathsep()+"ketpic5_2_3";
+//LibnameS=Dirlib+pathsep()+"ketpicsciL6";
+DirlibC=Dirhead+pathsep()+"ketlibC";
+setdirectory(Dirlib);
+import("ketcindylibbasic1r.cs");
+import("ketcindylibbasic2r.cs");
+import("ketcindyliboutr.cs");
+import("ketcindylib3dr.cs");
+import("ketcindylibmvr.cs");
+
+setdirectory(Dirhead);
diff --git a/texmf-dist/scripts/ketcindy/template1basic.cdy b/texmf-dist/scripts/ketcindy/template1basic.cdy
new file mode 100644
index 00000000..e8bfa29a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/template1basic.cdy
Binary files differ
diff --git a/texmf-dist/scripts/ketcindy/template2advanced.cdy b/texmf-dist/scripts/ketcindy/template2advanced.cdy
new file mode 100644
index 00000000..d7d6e55b
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/template2advanced.cdy
Binary files differ
diff --git a/texmf-dist/tex/latex/ketcindy/ketmedia.sty b/texmf-dist/tex/latex/ketcindy/ketmedia.sty
index 79b29a9b..49d593b6 100644
--- a/texmf-dist/tex/latex/ketcindy/ketmedia.sty
+++ b/texmf-dist/tex/latex/ketcindy/ketmedia.sty
@@ -1,35 +1,11 @@
-\newcommand{\inputsound}[3][90]{
-
-% #1:position, #2:dir, #3:file
-
+\newcommand{\inputsound}[3][90.1]{
+% #1:h-position(90), #2:dir(/), #3:file
+%2017.12.25 main, \inputsound changed
+\ifnum #1=90.1
\vspace{-20mm}
\vfill
-
-\noindent%
-\hspace*{#1mm}\hspace{8mm}%
-\mediabutton[
-mediacommand=#3:playPause,
-overface={\color{blue}\small \strut \fbox{$\oplus\triangleright$}},
-%downface={\color{red}\small\strut Pause/Pause}%
-]{\small\strut \fbox{$\oplus\triangleright$}}%
-\mediabutton[
-mediacommand=#3:rewind,
-overface={\color{blue}\small \strut \fbox{$\ll$}}
-%downface={\color{red}\small\strut Pause/Pause}%
-]{\small\strut \fbox{$\ll$}}%
-%\mediabutton[
-%mediacommand=#3:seek[(15)],
-%overface={\color{blue}\small \strut \fbox{1}}
-%downface={\color{red}\small\strut Pause/Pause}%
-%]{\small\strut \fbox{1}}%
-%\mediabutton[
-%mediacommand=#3:seek[(30)],
-%overface={\color{blue}\small \strut \fbox{2}}
-%%downface={\color{red}\small\strut Pause/Pause}%
-%]{\small\strut \fbox{2}}%
-
-\vspace{-7mm}
+\fi
\noindent%
\hspace*{#1mm}%
@@ -41,14 +17,19 @@ overface={\color{blue}\small \strut \fbox{$\ll$}}
source=#2#3.mp3
&autoPlay=true
}
-% transparent,
-% passcontext
-]{\color{blue}\fbox{ }}{APlayer.swf}
-
+]{\color{blue}\fbox{ }}{APlayer.swf}%
+\mediabutton[
+mediacommand=#3:playPause,
+overface={\color{blue}\small \strut \fbox{$\oplus\triangleright$}},
+]{\small\strut \fbox{$\oplus\triangleright$}}%
+\mediabutton[
+mediacommand=#3:rewind,
+overface={\color{blue}\small \strut \fbox{$\ll$}}
+%downface={\color{red}\small\strut Pause/Pause}%
+]{\small\strut \fbox{$\ll$}}%
}
\newcommand{\inputmovie}[3][0.8]{
-
\includemedia[
label=#3,
width=#1\linewidth,height=0.6\linewidth,
@@ -65,5 +46,4 @@ overface={\color{blue}\small \strut \fbox{$\ll$}}
}
%]{}{player_flv_maxi.swf}
]{}{VPlayer.swf}
-
} \ No newline at end of file