summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/ketsample
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample')
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdybin5421 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdybin5406 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdybin5359 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdybin4843 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdybin5632 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdybin4997 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdybin5675 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdybin4292 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdybin4273 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdybin4410 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdybin4405 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdybin4175 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdybin4132 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdybin4529 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdybin4415 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdybin4224 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdybin4501 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdybin4550 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdybin4207 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdybin4304 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdybin4295 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdybin5220 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdybin4511 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdybin3988 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdybin3944 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdybin5778 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdybin3943 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdybin4056 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdybin3916 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdybin5274 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdybin4095 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdybin4052 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdybin4165 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdybin3958 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdybin5635 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.pngbin118714 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.pngbin66003 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.pngbin9171 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdybin6480 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdybin6076 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdybin7620 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdybin6300 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdybin72424 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdybin82065 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt17
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdybin5911 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdybin8208 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdybin5238 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdybin6073 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdybin6125 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdybin9631 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdybin6174 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdybin6650 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdybin8327 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdybin6792 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdybin11178 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdybin8509 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt17
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdybin4324 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdybin4820 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdybin4223 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdybin4474 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdybin4702 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdybin4853 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdybin4862 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdybin4759 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex54
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdfbin28774 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt8
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce13
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce8
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex18
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce13
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce9
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex19
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce13
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce9
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex18
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex105
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux1
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log195
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdfbin6180 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex16
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh4
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce1130
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex89
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex90
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex89
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex90
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex89
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex90
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex90
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex91
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce56
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex88
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt1
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce942
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex11
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux1
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log234
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdfbin5287 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex17
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex11
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.tex11
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt1
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt1
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh7
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux1
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdybin5172 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log240
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdfbin14672 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex83
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt23
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdybin4735 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt20
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdybin5242 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt32
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux74
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdybin5547 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log704
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out0
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdfbin163384 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex1114
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt13
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux55
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdybin4631 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log628
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out0
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdfbin125701 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex871
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt71
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux23
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdybin5501 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log819
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out0
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdfbin57442 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex72
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt12
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdybin4000 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdybin5309 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdybin4192 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdybin4274 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdybin3865 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdybin3991 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdybin3982 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdybin3971 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdybin5299 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdybin5325 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdybin5254 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdybin5286 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdybin5310 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdybin5370 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdybin5369 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdybin7602 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdybin6178 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdybin3871 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdybin4095 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdybin3928 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdybin3964 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdybin4147 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdybin3905 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdybin3989 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdybin4202 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdybin4280 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdybin4156 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdybin4889 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdybin5240 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdybin5028 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdybin3925 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdybin5161 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdybin5130 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdybin3962 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdybin4466 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdybin4047 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdybin3861 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdybin3940 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdybin3931 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdybin3949 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdybin3957 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdybin3992 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdybin3937 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdybin3926 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdybin4067 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdybin3992 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdybin4249 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdybin4144 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdybin3880 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdybin3143 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdybin3215 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdybin5498 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdybin5688 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdybin5497 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdybin5592 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdybin7077 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdybin8332 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdybin5909 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdybin6077 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdybin4709 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdybin6804 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdybin7447 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdybin8310 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdybin28435 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt0
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh4
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt1
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdybin4026 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdybin4492 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdybin7626 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv10
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv10
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdybin5311 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdybin5309 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdybin5465 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdybin5430 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdybin5403 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdybin5515 -> 0 bytes
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdybin4642 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html6491
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdybin5956 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html6502
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdybin4499 -> 0 bytes
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html6494
-rwxr-xr-xtexmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh0
329 files changed, 0 insertions, 33773 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy
deleted file mode 100644
index 39743713..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy
deleted file mode 100644
index a7ec7bc8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy
deleted file mode 100644
index 2c47d865..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy
deleted file mode 100644
index 4cd7f45d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy
deleted file mode 100644
index 1c15aad4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy
deleted file mode 100644
index 8141e170..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy
deleted file mode 100644
index 66665e7b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy
deleted file mode 100644
index 52472b6b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy
deleted file mode 100644
index 55dc91da..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy
deleted file mode 100644
index fb3d1edd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy
deleted file mode 100644
index 20bdb0b6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy
deleted file mode 100644
index 554dce95..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy
deleted file mode 100644
index a77e70e6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy
deleted file mode 100644
index 1fc67dfe..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy
deleted file mode 100644
index 9230fd0d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy
deleted file mode 100644
index be4aa3b0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy
deleted file mode 100644
index 4923347d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy
deleted file mode 100644
index bac0217a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy
deleted file mode 100644
index 14ba552f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy
deleted file mode 100644
index 1989b525..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy
deleted file mode 100644
index 4e499a8c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy
deleted file mode 100644
index e3cfb996..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy
deleted file mode 100644
index e4845b6e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy
deleted file mode 100644
index 51f9e599..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy
deleted file mode 100644
index b26105c3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy
deleted file mode 100644
index 60643944..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy
deleted file mode 100644
index a17108af..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy
deleted file mode 100644
index 1f17df2a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy
deleted file mode 100644
index 14e28924..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy
deleted file mode 100644
index f69402ce..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy
deleted file mode 100644
index 53a21e88..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy
deleted file mode 100644
index 4d598e7a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy
deleted file mode 100644
index 68595c9e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy
deleted file mode 100644
index b80556ef..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy
deleted file mode 100644
index 8749d495..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png
deleted file mode 100644
index 4cb91fa0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png
deleted file mode 100644
index 1aa2d7fd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png
deleted file mode 100644
index 4a060da9..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy
deleted file mode 100644
index 280d0afd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy
deleted file mode 100644
index cb1a9dc4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy
deleted file mode 100644
index aedd63c6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy
deleted file mode 100644
index d0df99e0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy
deleted file mode 100644
index a0c6df7a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy
deleted file mode 100644
index 870a1362..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt
deleted file mode 100644
index 045bf884..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/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");
-Ketinit();
-Ketinit3d();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy
deleted file mode 100644
index 96ffa3d3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy
deleted file mode 100644
index e5ee1455..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy
deleted file mode 100644
index 64d9c939..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy
deleted file mode 100644
index 272029ac..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy
deleted file mode 100644
index 65becd6d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy
deleted file mode 100644
index 32bf0a6f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy
deleted file mode 100644
index a6b7a3fe..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy
deleted file mode 100644
index a86fae8f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy
deleted file mode 100644
index 8605f532..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy
deleted file mode 100644
index 3fcd5e91..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy
deleted file mode 100644
index 41ac02bc..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy
deleted file mode 100644
index 0e434b16..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt
deleted file mode 100755
index 3d0e239a..00000000
--- a/texmf-dist/doc/support/ketpic/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/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy
deleted file mode 100755
index 50896c81..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy
deleted file mode 100755
index c07f11d3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy
deleted file mode 100755
index 6c57146d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy
deleted file mode 100755
index f46a4bf9..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy
deleted file mode 100755
index bcd417d7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy
deleted file mode 100755
index 1f4de6f1..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy
deleted file mode 100755
index 5739299d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy
deleted file mode 100755
index f1d8418a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex
deleted file mode 100644
index 32e577d2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex
+++ /dev/null
@@ -1,54 +0,0 @@
-\def\parapath{/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig}%
-\begin{animateinline}[loop]{10}%
-\scalebox{1}{\input{\parapath/pointoncircle/p001.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p002.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p003.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p004.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p005.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p006.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p007.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p008.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p009.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p010.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p011.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p012.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p013.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p014.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p015.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p016.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p017.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p018.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p019.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p020.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p021.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p022.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p023.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p024.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p025.tex}}%
-\newframe%
-\scalebox{1}{\input{\parapath/pointoncircle/p026.tex}}%
-\end{animateinline}%
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf
deleted file mode 100644
index 54b9d79e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt
deleted file mode 100644
index bb7171eb..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt
+++ /dev/null
@@ -1,8 +0,0 @@
-%%Title: cindyscreen.pdf
-%%Creator: extractbb 20160307
-%%BoundingBox: 0 0 803 285
-%%HiResBoundingBox: 0.000000 0.000000 803.000000 285.000000
-%%PDFVersion: 1.4
-%%Pages: 1
-%%CreationDate: Sun Jun 25 09:11:39 2017
-
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce
deleted file mode 100644
index 2da97ad6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce
+++ /dev/null
@@ -1,13 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");//
-Ketinit();//
-Setwindow([(-3),(8)],[(-1.5),(1.5)]);
-pi=%pi;////
-fL=["sinecurve/p001.sce","sinecurve/p002.sce","sinecurve/p003.sce","sinecurve/p004.sce","sinecurve/p005.sce","sinecurve/p006.sce","sinecurve/p007.sce","sinecurve/p008.sce","sinecurve/p009.sce","sinecurve/p010.sce","sinecurve/p011.sce","sinecurve/p012.sce","sinecurve/p013.sce","sinecurve/p014.sce","sinecurve/p015.sce","sinecurve/p016.sce","sinecurve/p017.sce","sinecurve/p018.sce","sinecurve/p019.sce","sinecurve/p020.sce","sinecurve/p021.sce","sinecurve/p022.sce","sinecurve/p023.sce","sinecurve/p024.sce","sinecurve/p025.sce","sinecurve/p026.sce","sinecurve/p027.sce","sinecurve/p028.sce","sinecurve/p029.sce","sinecurve/p030.sce","sinecurve/p031.sce"]//
-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,'sinecurve/all.sce')//
-exec('sinecurve/all.sce',-1)//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce
deleted file mode 100644
index 1f300602..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce
+++ /dev/null
@@ -1,8 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");//
-Ketinit();//
-Setwindow([(-3),(8)],[(-1.5),(1.5)]);
-pi=%pi;////
-createdir("sinecurve");//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex
deleted file mode 100644
index 39603a5c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex
+++ /dev/null
@@ -1,18 +0,0 @@
-\documentclass{ujarticle}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{amsmath,amssymb}
-\usepackage{graphicx}
-\usepackage{color}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-
-\setmargin{20}{20}{20}{20}
-
-\begin{document}
-
-\verb|figs0704para| by \ketcindy
-\vspace{5mm}
-
-\input{figs0704para.tex}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce
deleted file mode 100644
index 686cd696..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce
+++ /dev/null
@@ -1,13 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");//
-Ketinit();//
-Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]);
-pi=%pi;////
-fL=["pointoncircle/p001.sce","pointoncircle/p002.sce","pointoncircle/p003.sce","pointoncircle/p004.sce","pointoncircle/p005.sce","pointoncircle/p006.sce","pointoncircle/p007.sce","pointoncircle/p008.sce","pointoncircle/p009.sce","pointoncircle/p010.sce","pointoncircle/p011.sce","pointoncircle/p012.sce","pointoncircle/p013.sce","pointoncircle/p014.sce","pointoncircle/p015.sce","pointoncircle/p016.sce","pointoncircle/p017.sce","pointoncircle/p018.sce","pointoncircle/p019.sce","pointoncircle/p020.sce","pointoncircle/p021.sce","pointoncircle/p022.sce","pointoncircle/p023.sce","pointoncircle/p024.sce","pointoncircle/p025.sce","pointoncircle/p026.sce"]//
-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,'pointoncircle/all.sce')//
-exec('pointoncircle/all.sce',-1)//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce
deleted file mode 100644
index ffe85fb3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce
+++ /dev/null
@@ -1,9 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");//
-Ketinit();//
-Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]);
-pi=%pi;////
-rmdir("pointoncircle","s");//
-createdir("pointoncircle");//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex
deleted file mode 100644
index 74a8cc9e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex
+++ /dev/null
@@ -1,19 +0,0 @@
-\documentclass{ujarticle}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{amsmath,amssymb}
-\usepackage{graphicx}
-\usepackage{color}
-\usepackage[dvipdfmx]{animate}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-
-\setmargin{20}{20}{20}{20}
-
-\begin{document}
-
-\verb|figs0706animate| by \ketcindy
-\vspace{5mm}
-
-\input{figs0706animate.tex}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce
deleted file mode 100644
index 312c3be2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce
+++ /dev/null
@@ -1,13 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5");//
-Ketinit();//
-Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]);
-pi=%pi;////
-fL=["pointoncircle/p001.sce","pointoncircle/p002.sce","pointoncircle/p003.sce","pointoncircle/p004.sce","pointoncircle/p005.sce","pointoncircle/p006.sce","pointoncircle/p007.sce","pointoncircle/p008.sce","pointoncircle/p009.sce","pointoncircle/p010.sce","pointoncircle/p011.sce","pointoncircle/p012.sce","pointoncircle/p013.sce","pointoncircle/p014.sce","pointoncircle/p015.sce","pointoncircle/p016.sce","pointoncircle/p017.sce","pointoncircle/p018.sce","pointoncircle/p019.sce","pointoncircle/p020.sce","pointoncircle/p021.sce","pointoncircle/p022.sce","pointoncircle/p023.sce","pointoncircle/p024.sce","pointoncircle/p025.sce","pointoncircle/p026.sce"]//
-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,'pointoncircle/all.sce')//
-exec('pointoncircle/all.sce',-1)//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce
deleted file mode 100644
index 523924e4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce
+++ /dev/null
@@ -1,9 +0,0 @@
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');//
-Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5");//
-Ketinit();//
-Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]);
-pi=%pi;////
-rmdir("pointoncircle","s");//
-createdir("pointoncircle");//
-mputl('||||','resultS.txt')//
-quit()//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex
deleted file mode 100644
index 815560ef..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex
+++ /dev/null
@@ -1,18 +0,0 @@
-\documentclass{jarticle}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{amsmath,amssymb}
-\usepackage{graphicx,color}
-\usepackage[dvipdfmx]{animate}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-
-\setmargin{20}{20}{20}{20}
-
-\begin{document}
-
-\verb|figs0706animation| by \ketcindy
-\vspace{5mm}
-
-\input{figs0706animation.tex}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce
deleted file mode 100644
index e80242c4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce
+++ /dev/null
@@ -1,42 +0,0 @@
-//date time=2017/6/25 09:09:01
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='figsin.tex';
-Fnamesci='figsin.sce';
-Fnamescibody='figsinbody.sce';
-Fnameout='figsin.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-6,6], [-2,2]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-gr1=Plotdata(Assign('sin(x)'),Assign('x'));
-sg1=Listplot([[-6,1],[6,1]]);
-sg2=Listplot([[-6,-1],[6,-1]]);
-PtL=list();
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/figsin.tex','1cm');
- Drwline(gr1);
- Dashline(sg1);
- Dashline(sg2);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex
deleted file mode 100644
index adb98207..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex
+++ /dev/null
@@ -1,105 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/figsin.tex 2017-6-25 9:9
-%%% figsin.sce 2017-6-25 9:9
-{\unitlength=1cm%
-\begin{picture}%
-( 12.00000, 4.00000)( -6.00000, -2.00000)%
-\special{pn 8}%
-%
-\special{pa -2362 -110}\special{pa -2268 -197}\special{pa -2173 -272}\special{pa -2079 -332}%
-\special{pa -1984 -373}\special{pa -1890 -392}\special{pa -1795 -389}\special{pa -1701 -364}%
-\special{pa -1606 -318}\special{pa -1512 -253}\special{pa -1417 -174}\special{pa -1323 -85}%
-\special{pa -1228 9}\special{pa -1134 102}\special{pa -1039 189}\special{pa -945 266}%
-\special{pa -850 327}\special{pa -756 370}\special{pa -661 391}\special{pa -567 390}%
-\special{pa -472 367}\special{pa -378 323}\special{pa -283 260}\special{pa -189 182}%
-\special{pa -94 94}\special{pa 0 0}\special{pa 94 -94}\special{pa 189 -182}\special{pa 283 -260}%
-\special{pa 378 -323}\special{pa 472 -367}\special{pa 567 -390}\special{pa 661 -391}%
-\special{pa 756 -370}\special{pa 850 -327}\special{pa 945 -266}\special{pa 1039 -189}%
-\special{pa 1134 -102}\special{pa 1228 -9}\special{pa 1323 85}\special{pa 1417 174}%
-\special{pa 1512 253}\special{pa 1606 318}\special{pa 1701 364}\special{pa 1795 389}%
-\special{pa 1890 392}\special{pa 1984 373}\special{pa 2079 332}\special{pa 2173 272}%
-\special{pa 2268 197}\special{pa 2362 110}%
-\special{fp}%
-\special{pa -2362 -394}\special{pa -2323 -394}\special{fp}\special{pa -2284 -394}\special{pa -2245 -394}\special{fp}%
-\special{pa -2206 -394}\special{pa -2167 -394}\special{fp}\special{pa -2128 -394}\special{pa -2089 -394}\special{fp}%
-\special{pa -2050 -394}\special{pa -2011 -394}\special{fp}\special{pa -1972 -394}\special{pa -1933 -394}\special{fp}%
-\special{pa -1894 -394}\special{pa -1855 -394}\special{fp}\special{pa -1816 -394}\special{pa -1777 -394}\special{fp}%
-\special{pa -1737 -394}\special{pa -1698 -394}\special{fp}\special{pa -1659 -394}\special{pa -1620 -394}\special{fp}%
-\special{pa -1581 -394}\special{pa -1542 -394}\special{fp}\special{pa -1503 -394}\special{pa -1464 -394}\special{fp}%
-\special{pa -1425 -394}\special{pa -1386 -394}\special{fp}\special{pa -1347 -394}\special{pa -1308 -394}\special{fp}%
-\special{pa -1269 -394}\special{pa -1230 -394}\special{fp}\special{pa -1191 -394}\special{pa -1152 -394}\special{fp}%
-\special{pa -1113 -394}\special{pa -1074 -394}\special{fp}\special{pa -1035 -394}\special{pa -996 -394}\special{fp}%
-\special{pa -957 -394}\special{pa -918 -394}\special{fp}\special{pa -879 -394}\special{pa -839 -394}\special{fp}%
-\special{pa -800 -394}\special{pa -761 -394}\special{fp}\special{pa -722 -394}\special{pa -683 -394}\special{fp}%
-\special{pa -644 -394}\special{pa -605 -394}\special{fp}\special{pa -566 -394}\special{pa -527 -394}\special{fp}%
-\special{pa -488 -394}\special{pa -449 -394}\special{fp}\special{pa -410 -394}\special{pa -371 -394}\special{fp}%
-\special{pa -332 -394}\special{pa -293 -394}\special{fp}\special{pa -254 -394}\special{pa -215 -394}\special{fp}%
-\special{pa -176 -394}\special{pa -137 -394}\special{fp}\special{pa -98 -394}\special{pa -59 -394}\special{fp}%
-\special{pa -20 -394}\special{pa 20 -394}\special{fp}\special{pa 59 -394}\special{pa 98 -394}\special{fp}%
-\special{pa 137 -394}\special{pa 176 -394}\special{fp}\special{pa 215 -394}\special{pa 254 -394}\special{fp}%
-\special{pa 293 -394}\special{pa 332 -394}\special{fp}\special{pa 371 -394}\special{pa 410 -394}\special{fp}%
-\special{pa 449 -394}\special{pa 488 -394}\special{fp}\special{pa 527 -394}\special{pa 566 -394}\special{fp}%
-\special{pa 605 -394}\special{pa 644 -394}\special{fp}\special{pa 683 -394}\special{pa 722 -394}\special{fp}%
-\special{pa 761 -394}\special{pa 800 -394}\special{fp}\special{pa 839 -394}\special{pa 879 -394}\special{fp}%
-\special{pa 918 -394}\special{pa 957 -394}\special{fp}\special{pa 996 -394}\special{pa 1035 -394}\special{fp}%
-\special{pa 1074 -394}\special{pa 1113 -394}\special{fp}\special{pa 1152 -394}\special{pa 1191 -394}\special{fp}%
-\special{pa 1230 -394}\special{pa 1269 -394}\special{fp}\special{pa 1308 -394}\special{pa 1347 -394}\special{fp}%
-\special{pa 1386 -394}\special{pa 1425 -394}\special{fp}\special{pa 1464 -394}\special{pa 1503 -394}\special{fp}%
-\special{pa 1542 -394}\special{pa 1581 -394}\special{fp}\special{pa 1620 -394}\special{pa 1659 -394}\special{fp}%
-\special{pa 1698 -394}\special{pa 1737 -394}\special{fp}\special{pa 1777 -394}\special{pa 1816 -394}\special{fp}%
-\special{pa 1855 -394}\special{pa 1894 -394}\special{fp}\special{pa 1933 -394}\special{pa 1972 -394}\special{fp}%
-\special{pa 2011 -394}\special{pa 2050 -394}\special{fp}\special{pa 2089 -394}\special{pa 2128 -394}\special{fp}%
-\special{pa 2167 -394}\special{pa 2206 -394}\special{fp}\special{pa 2245 -394}\special{pa 2284 -394}\special{fp}%
-\special{pa 2323 -394}\special{pa 2362 -394}\special{fp}%
-%
-\special{pa -2362 394}\special{pa -2323 394}\special{fp}\special{pa -2284 394}\special{pa -2245 394}\special{fp}%
-\special{pa -2206 394}\special{pa -2167 394}\special{fp}\special{pa -2128 394}\special{pa -2089 394}\special{fp}%
-\special{pa -2050 394}\special{pa -2011 394}\special{fp}\special{pa -1972 394}\special{pa -1933 394}\special{fp}%
-\special{pa -1894 394}\special{pa -1855 394}\special{fp}\special{pa -1816 394}\special{pa -1777 394}\special{fp}%
-\special{pa -1737 394}\special{pa -1698 394}\special{fp}\special{pa -1659 394}\special{pa -1620 394}\special{fp}%
-\special{pa -1581 394}\special{pa -1542 394}\special{fp}\special{pa -1503 394}\special{pa -1464 394}\special{fp}%
-\special{pa -1425 394}\special{pa -1386 394}\special{fp}\special{pa -1347 394}\special{pa -1308 394}\special{fp}%
-\special{pa -1269 394}\special{pa -1230 394}\special{fp}\special{pa -1191 394}\special{pa -1152 394}\special{fp}%
-\special{pa -1113 394}\special{pa -1074 394}\special{fp}\special{pa -1035 394}\special{pa -996 394}\special{fp}%
-\special{pa -957 394}\special{pa -918 394}\special{fp}\special{pa -879 394}\special{pa -839 394}\special{fp}%
-\special{pa -800 394}\special{pa -761 394}\special{fp}\special{pa -722 394}\special{pa -683 394}\special{fp}%
-\special{pa -644 394}\special{pa -605 394}\special{fp}\special{pa -566 394}\special{pa -527 394}\special{fp}%
-\special{pa -488 394}\special{pa -449 394}\special{fp}\special{pa -410 394}\special{pa -371 394}\special{fp}%
-\special{pa -332 394}\special{pa -293 394}\special{fp}\special{pa -254 394}\special{pa -215 394}\special{fp}%
-\special{pa -176 394}\special{pa -137 394}\special{fp}\special{pa -98 394}\special{pa -59 394}\special{fp}%
-\special{pa -20 394}\special{pa 20 394}\special{fp}\special{pa 59 394}\special{pa 98 394}\special{fp}%
-\special{pa 137 394}\special{pa 176 394}\special{fp}\special{pa 215 394}\special{pa 254 394}\special{fp}%
-\special{pa 293 394}\special{pa 332 394}\special{fp}\special{pa 371 394}\special{pa 410 394}\special{fp}%
-\special{pa 449 394}\special{pa 488 394}\special{fp}\special{pa 527 394}\special{pa 566 394}\special{fp}%
-\special{pa 605 394}\special{pa 644 394}\special{fp}\special{pa 683 394}\special{pa 722 394}\special{fp}%
-\special{pa 761 394}\special{pa 800 394}\special{fp}\special{pa 839 394}\special{pa 879 394}\special{fp}%
-\special{pa 918 394}\special{pa 957 394}\special{fp}\special{pa 996 394}\special{pa 1035 394}\special{fp}%
-\special{pa 1074 394}\special{pa 1113 394}\special{fp}\special{pa 1152 394}\special{pa 1191 394}\special{fp}%
-\special{pa 1230 394}\special{pa 1269 394}\special{fp}\special{pa 1308 394}\special{pa 1347 394}\special{fp}%
-\special{pa 1386 394}\special{pa 1425 394}\special{fp}\special{pa 1464 394}\special{pa 1503 394}\special{fp}%
-\special{pa 1542 394}\special{pa 1581 394}\special{fp}\special{pa 1620 394}\special{pa 1659 394}\special{fp}%
-\special{pa 1698 394}\special{pa 1737 394}\special{fp}\special{pa 1777 394}\special{pa 1816 394}\special{fp}%
-\special{pa 1855 394}\special{pa 1894 394}\special{fp}\special{pa 1933 394}\special{pa 1972 394}\special{fp}%
-\special{pa 2011 394}\special{pa 2050 394}\special{fp}\special{pa 2089 394}\special{pa 2128 394}\special{fp}%
-\special{pa 2167 394}\special{pa 2206 394}\special{fp}\special{pa 2245 394}\special{pa 2284 394}\special{fp}%
-\special{pa 2323 394}\special{pa 2362 394}\special{fp}%
-%
-\special{pa -2362 0}\special{pa 2362 0}%
-\special{fp}%
-\special{pa 0 787}\special{pa 0 -787}%
-\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(6.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.0500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux
deleted file mode 100644
index f23e5468..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux
+++ /dev/null
@@ -1 +0,0 @@
-\relax
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log
deleted file mode 100644
index c919c409..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log
+++ /dev/null
@@ -1,195 +0,0 @@
-This is e-pTeX, Version 3.14159265-p3.7-160201-2.6 (utf8.euc) (TeX Live 2016) (preloaded format=platex 2016.12.16) 25 JUN 2017 09:09
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**figsinmain.tex
-(./figsinmain.tex
-pLaTeX2e <2016/05/07> (based on LaTeX2e <2016/03/31>)
-Babel <3.9r> and hyphenation patterns for 83 language(s) loaded.
-(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jarticle.cls
-Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class
-\c@@paper=\count81
-(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jsize10.clo
-File: jsize10.clo 2006/06/27 v1.6 Standard pLaTeX file (size option)
-)
-\c@part=\count82
-\c@section=\count83
-\c@subsection=\count84
-\c@subsubsection=\count85
-\c@paragraph=\count86
-\c@subparagraph=\count87
-\c@figure=\count88
-\c@table=\count89
-\abovecaptionskip=\skip41
-\belowcaptionskip=\skip42
-\symmincho=\mathgroup4
-LaTeX Font Info: Overwriting symbol font `mincho' in version `bold'
-(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 593.
-\toclineskip=\dimen118
-\@lnumwidth=\dimen119
-\bibindent=\dimen120
-\heisei=\count90
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty
-\c@ketpicctra=\count91
-\c@ketpicctrb=\count92
-\c@ketpicctrc=\count93
-\c@ketpicctrd=\count94
-\c@ketpicctre=\count95
-\c@ketpicctrf=\count96
-\c@ketpicctrg=\count97
-\c@ketpicctrh=\count98
-\c@ketpicctri=\count99
-\c@ketpicctrj=\count100
-\Width=\skip43
-\Height=\skip44
-\Depth=\skip45
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty
-\layercurrentunit=\skip46
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsmath.sty
-Package: amsmath 2016/03/10 v2.15b AMS math features
-\@mathmargin=\skip47
-
-For additional information on amsmath, use the `?' option.
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amstext.sty
-Package: amstext 2000/06/29 v2.01 AMS text
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsgen.sty
-File: amsgen.sty 1999/11/30 v2.0 generic functions
-\@emptytoks=\toks15
-\ex@=\dimen121
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsbsy.sty
-Package: amsbsy 1999/11/29 v1.2d Bold Symbols
-\pmbraise@=\dimen122
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsopn.sty
-Package: amsopn 2016/03/08 v2.02 operator names
-)
-\inf@bad=\count101
-LaTeX Info: Redefining \frac on input line 199.
-\uproot@=\count102
-\leftroot@=\count103
-LaTeX Info: Redefining \overline on input line 297.
-\classnum@=\count104
-\DOTSCASE@=\count105
-LaTeX Info: Redefining \ldots on input line 394.
-LaTeX Info: Redefining \dots on input line 397.
-LaTeX Info: Redefining \cdots on input line 518.
-\Mathstrutbox@=\box41
-\strutbox@=\box42
-\big@size=\dimen123
-LaTeX Font Info: Redeclaring font encoding OML on input line 634.
-LaTeX Font Info: Redeclaring font encoding OMS on input line 635.
-\macc@depth=\count106
-\c@MaxMatrixCols=\count107
-\dotsspace@=\muskip10
-\c@parentequation=\count108
-\dspbrk@lvl=\count109
-\tag@help=\toks16
-\row@=\count110
-\column@=\count111
-\maxfields@=\count112
-\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 2739.
-LaTeX Info: Redefining \] on input line 2740.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amssymb.sty
-Package: amssymb 2013/01/14 v3.01 AMS font symbols
-
-(/usr/local/texlive/2016/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.
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphicx.sty
-Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/keyval.sty
-Package: keyval 2014/10/28 v1.15 key=value parser (DPC)
-\KV@toks@=\toks20
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphics.sty
-Package: graphics 2016/05/09 v1.0r Standard LaTeX Graphics (DPC,SPQR)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/trig.sty
-Package: trig 2016/01/03 v1.10 sin cos tan (DPC)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/graphics.cfg
-File: graphics.cfg 2016/01/02 v1.10 sample graphics configuration
-)
-Package graphics Info: Driver file: dvips.def on input line 96.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvips.def
-File: dvips.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR)
-))
-\Gin@req@height=\dimen130
-\Gin@req@width=\dimen131
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/color.sty
-Package: color 2016/05/09 v1.1c Standard LaTeX Color (DPC)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/color.cfg
-File: color.cfg 2016/01/02 v1.6 sample color configuration
-)
-Package color Info: Driver file: dvips.def on input line 144.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvipsnam.def
-File: dvipsnam.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR)
-))
-No file figsinmain.aux.
-\openout1 = `figsinmain.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 9.
-LaTeX Font Info: ... okay on input line 9.
-(./figsin.tex
-LaTeX Font Info: Try loading font information for U+msa on input line 90.
- (/usr/local/texlive/2016/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 90.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsb.fd
-File: umsb.fd 2013/01/14 v3.01 AMS symbols B
-)) [1
-
-]
-(./figsinmain.aux) )
-Here is how much of TeX's memory you used:
- 1992 strings out of 493693
- 24043 string characters out of 6149786
- 145855 words of memory out of 5000000
- 5564 multiletter control sequences out of 15000+600000
- 9378 words of font info for 40 fonts, out of 8000000 for 9000
- 929 hyphenation exceptions out of 8191
- 27i,5n,26p,287b,169s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on figsinmain.dvi (1 page, 5024 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf
deleted file mode 100644
index dec12d09..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex
deleted file mode 100644
index 91d48c8a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex
+++ /dev/null
@@ -1,16 +0,0 @@
-\documentclass{jarticle}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{amsmath,amssymb}
-\usepackage{graphicx,color}
-
-\setmargin{20}{20}{20}{20}
-
-\begin{document}
-
-\verb|figsin| by \ketcindy
-\vspace{5mm}
-
-\input{figsin.tex}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh
deleted file mode 100755
index 06bc6be0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig"
-"/Applications/scilab-6.0.0.app/Contents/MacOS/bin/scilab" -nwni -f figs0704paraall.sce
-exit 0
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce
deleted file mode 100644
index dd783a0f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce
+++ /dev/null
@@ -1,1130 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p001.tex';
-Fnamesci='pointoncircle/p001.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[2,0]]);
-pt1=Pointdata([2,0]);
-bw1=Bowdata([0,0],[2,0],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1,-0.2],"c","$2$");
- Drwline(bw1);
- Letter([2.2,0],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1.01832,0.05497]'); Assignrep('mdbw1',[1.01832,0.05497]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.93717,0.49738]]);
-pt1=Pointdata([1.93717,0.49738]);
-bw1=Bowdata([0,0],[1.93717,0.49738],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1.02,0.05],"c","$2$");
- Drwline(bw1);
- Letter([2.13,0.55],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.97266,0.30649]'); Assignrep('mdbw1',[0.97266,0.30649]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.75261,0.96351]]);
-pt1=Pointdata([1.75261,0.96351]);
-bw1=Bowdata([0,0],[1.75261,0.96351],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.97,0.31],"c","$2$");
- Drwline(bw1);
- Letter([1.93,1.06],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.86588,0.53875]'); Assignrep('mdbw1',[0.86588,0.53875]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.45794,1.36909]]);
-pt1=Pointdata([1.45794,1.36909]);
-bw1=Bowdata([0,0],[1.45794,1.36909],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.87,0.54],"c","$2$");
- Drwline(bw1);
- Letter([1.6,1.51],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.70469,0.73716]'); Assignrep('mdbw1',[0.70469,0.73716]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.07165,1.68866]]);
-pt1=Pointdata([1.07165,1.68866]);
-bw1=Bowdata([0,0],[1.07165,1.68866],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.7,0.74],"c","$2$");
- Drwline(bw1);
- Letter([1.18,1.86],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.49923,0.88925]'); Assignrep('mdbw1',[0.49923,0.88925]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.61803,1.90211]]);
-pt1=Pointdata([0.61803,1.90211]);
-bw1=Bowdata([0,0],[0.61803,1.90211],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.5,0.89],"c","$2$");
- Drwline(bw1);
- Letter([0.68,2.09],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.2624,0.98547]'); Assignrep('mdbw1',[0.2624,0.98547]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.12558,1.99605]]);
-pt1=Pointdata([0.12558,1.99605]);
-bw1=Bowdata([0,0],[0.12558,1.99605],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.26,0.99],"c","$2$");
- Drwline(bw1);
- Letter([0.14,2.2],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.00908,1.01976]'); Assignrep('mdbw1',[0.00908,1.01976]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.37476,1.96457]]);
-pt1=Pointdata([-0.37476,1.96457]);
-bw1=Bowdata([0,0],[-0.37476,1.96457],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.01,1.02],"c","$2$");
- Drwline(bw1);
- Letter([-0.41,2.16],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.24481,0.98998]'); Assignrep('mdbw1',[-0.24481,0.98998]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.85156,1.80965]]);
-pt1=Pointdata([-0.85156,1.80965]);
-bw1=Bowdata([0,0],[-0.85156,1.80965],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.24,0.99],"c","$2$");
- Drwline(bw1);
- Letter([-0.94,1.99],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.48332,0.898]'); Assignrep('mdbw1',[-0.48332,0.898]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.27485,1.54103]]);
-pt1=Pointdata([-1.27485,1.54103]);
-bw1=Bowdata([0,0],[-1.27485,1.54103],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.48,0.9],"c","$2$");
- Drwline(bw1);
- Letter([-1.4,1.7],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.69146,0.74959]'); Assignrep('mdbw1',[-0.69146,0.74959]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.61803,1.17557]]);
-pt1=Pointdata([-1.61803,1.17557]);
-bw1=Bowdata([0,0],[-1.61803,1.17557],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.69,0.75],"c","$2$");
- Drwline(bw1);
- Letter([-1.78,1.29],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.85615,0.55408]'); Assignrep('mdbw1',[-0.85615,0.55408]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.85955,0.73625]]);
-pt1=Pointdata([-1.85955,0.73625]);
-bw1=Bowdata([0,0],[-1.85955,0.73625],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.86,0.55],"c","$2$");
- Drwline(bw1);
- Letter([-2.05,0.81],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.96705,0.32376]'); Assignrep('mdbw1',[-0.96705,0.32376]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.98423,0.25067]]);
-pt1=Pointdata([-1.98423,0.25067]);
-bw1=Bowdata([0,0],[-1.98423,0.25067],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.97,0.32],"c","$2$");
- Drwline(bw1);
- Letter([-2.18,0.28],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-1.01718,0.07309]'); Assignrep('mdbw1',[-1.01718,0.07309]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.98423,-0.25067]]);
-pt1=Pointdata([-1.98423,-0.25067]);
-bw1=Bowdata([0,0],[-1.98423,-0.25067],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-1.02,0.07],"c","$2$");
- Drwline(bw1);
- Letter([-2.18,-0.28],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-1.0034,-0.18217]'); Assignrep('mdbw1',[-1.0034,-0.18217]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.85955,-0.73625]]);
-pt1=Pointdata([-1.85955,-0.73625]);
-bw1=Bowdata([0,0],[-1.85955,-0.73625],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-1,-0.18],"c","$2$");
- Drwline(bw1);
- Letter([-2.05,-0.81],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.92657,-0.42598]'); Assignrep('mdbw1',[-0.92657,-0.42598]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.61803,-1.17557]]);
-pt1=Pointdata([-1.61803,-1.17557]);
-bw1=Bowdata([0,0],[-1.61803,-1.17557],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.93,-0.43],"c","$2$");
- Drwline(bw1);
- Letter([-1.78,-1.29],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.79153,-0.64303]'); Assignrep('mdbw1',[-0.79153,-0.64303]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.27485,-1.54103]]);
-pt1=Pointdata([-1.27485,-1.54103]);
-bw1=Bowdata([0,0],[-1.27485,-1.54103],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.79,-0.64],"c","$2$");
- Drwline(bw1);
- Letter([-1.4,-1.7],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.60674,-0.81967]'); Assignrep('mdbw1',[-0.60674,-0.81967]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.85156,-1.80965]]);
-pt1=Pointdata([-0.85156,-1.80965]);
-bw1=Bowdata([0,0],[-0.85156,-1.80965],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.61,-0.82],"c","$2$");
- Drwline(bw1);
- Letter([-0.94,-1.99],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.38384,-0.94481]'); Assignrep('mdbw1',[-0.38384,-0.94481]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.37476,-1.96457]]);
-pt1=Pointdata([-0.37476,-1.96457]);
-bw1=Bowdata([0,0],[-0.37476,-1.96457],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.38,-0.94],"c","$2$");
- Drwline(bw1);
- Letter([-0.41,-2.16],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.13681,-1.01058]'); Assignrep('mdbw1',[-0.13681,-1.01058]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.12558,-1.99605]]);
-pt1=Pointdata([0.12558,-1.99605]);
-bw1=Bowdata([0,0],[0.12558,-1.99605],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.14,-1.01],"c","$2$");
- Drwline(bw1);
- Letter([0.14,-2.2],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.11881,-1.01286]'); Assignrep('mdbw1',[0.11881,-1.01286]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.61803,-1.90211]]);
-pt1=Pointdata([0.61803,-1.90211]);
-bw1=Bowdata([0,0],[0.61803,-1.90211],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.12,-1.01],"c","$2$");
- Drwline(bw1);
- Letter([0.68,-2.09],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.36696,-0.95149]'); Assignrep('mdbw1',[0.36696,-0.95149]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.07165,-1.68866]]);
-pt1=Pointdata([1.07165,-1.68866]);
-bw1=Bowdata([0,0],[1.07165,-1.68866],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.37,-0.95],"c","$2$");
- Drwline(bw1);
- Letter([1.18,-1.86],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.59206,-0.83034]'); Assignrep('mdbw1',[0.59206,-0.83034]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.45794,-1.36909]]);
-pt1=Pointdata([1.45794,-1.36909]);
-bw1=Bowdata([0,0],[1.45794,-1.36909],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.59,-0.83],"c","$2$");
- Drwline(bw1);
- Letter([1.6,-1.51],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.77996,-0.65702]'); Assignrep('mdbw1',[0.77996,-0.65702]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.75261,-0.96351]]);
-pt1=Pointdata([1.75261,-0.96351]);
-bw1=Bowdata([0,0],[1.75261,-0.96351],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.78,-0.66],"c","$2$");
- Drwline(bw1);
- Letter([1.93,-1.06],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.91885,-0.44241]'); Assignrep('mdbw1',[0.91885,-0.44241]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.93717,-0.49738]]);
-pt1=Pointdata([1.93717,-0.49738]);
-bw1=Bowdata([0,0],[1.93717,-0.49738],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.92,-0.44],"c","$2$");
- Drwline(bw1);
- Letter([2.13,-0.55],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[2,0]]);
-pt1=Pointdata([2,0]);
-bw1=Bowdata([0,0],[2,0],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1,-0.2],"c","$2$");
- Drwline(bw1);
- Letter([2.2,0],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce
deleted file mode 100644
index 28ce91c0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p001.tex';
-Fnamesci='pointoncircle/p001.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[2,0]]);
-pt1=Pointdata([2,0]);
-bw1=Bowdata([0,0],[2,0],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1,-0.2],"c","$2$");
- Drwline(bw1);
- Letter([2.2,0],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex
deleted file mode 100644
index 58a1a722..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 787 0}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 790 -3}\special{pa 785 -3}\special{pa 785 3}\special{pa 790 3}\special{pa 790 -3}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.0000,-0.2000){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 6 3}\special{pa 13 5}\special{pa 19 8}\special{pa 26 10}%
-\special{pa 32 13}\special{pa 39 15}\special{pa 45 18}\special{pa 52 20}\special{pa 58 22}%
-\special{pa 65 24}\special{pa 71 27}\special{pa 78 29}\special{pa 84 31}\special{pa 91 33}%
-\special{pa 97 35}\special{pa 104 37}\special{pa 111 39}\special{pa 117 41}\special{pa 124 43}%
-\special{pa 131 44}\special{pa 137 46}\special{pa 144 48}\special{pa 151 49}\special{pa 157 51}%
-\special{pa 164 53}\special{pa 171 54}\special{pa 178 56}\special{pa 184 57}\special{pa 191 58}%
-\special{pa 198 60}\special{pa 205 61}\special{pa 211 62}\special{pa 218 64}\special{pa 225 65}%
-\special{pa 232 66}\special{pa 239 67}\special{pa 245 68}\special{pa 252 69}\special{pa 259 70}%
-\special{pa 266 71}\special{pa 273 72}\special{pa 280 72}\special{pa 287 73}\special{pa 293 74}%
-\special{pa 300 74}\special{pa 307 75}\special{pa 314 76}\special{pa 321 76}\special{pa 328 77}%
-\special{pa 335 77}%
-\special{fp}%
-\special{pa 453 77}\special{pa 460 77}\special{pa 466 76}\special{pa 473 76}\special{pa 480 75}%
-\special{pa 487 74}\special{pa 494 74}\special{pa 501 73}\special{pa 508 72}\special{pa 515 72}%
-\special{pa 521 71}\special{pa 528 70}\special{pa 535 69}\special{pa 542 68}\special{pa 549 67}%
-\special{pa 556 66}\special{pa 562 65}\special{pa 569 64}\special{pa 576 62}\special{pa 583 61}%
-\special{pa 590 60}\special{pa 596 58}\special{pa 603 57}\special{pa 610 56}\special{pa 617 54}%
-\special{pa 623 53}\special{pa 630 51}\special{pa 637 49}\special{pa 643 48}\special{pa 650 46}%
-\special{pa 657 44}\special{pa 663 43}\special{pa 670 41}\special{pa 677 39}\special{pa 683 37}%
-\special{pa 690 35}\special{pa 697 33}\special{pa 703 31}\special{pa 710 29}\special{pa 716 27}%
-\special{pa 723 24}\special{pa 729 22}\special{pa 736 20}\special{pa 742 18}\special{pa 749 15}%
-\special{pa 755 13}\special{pa 762 10}\special{pa 768 8}\special{pa 775 5}\special{pa 781 3}%
-\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(2.2000,0.0000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce
deleted file mode 100644
index 981a02f0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p002.tex';
-Fnamesci='pointoncircle/p002.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1.01832,0.05497]'); Assignrep('mdbw1',[1.01832,0.05497]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.93717,0.49738]]);
-pt1=Pointdata([1.93717,0.49738]);
-bw1=Bowdata([0,0],[1.93717,0.49738],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1.02,0.05],"c","$2$");
- Drwline(bw1);
- Letter([2.13,0.55],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex
deleted file mode 100644
index 8e23f56e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex
+++ /dev/null
@@ -1,89 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 763 -196}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 765 -199}\special{pa 760 -199}\special{pa 760 -193}\special{pa 765 -193}%
-\special{pa 765 -199}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.0200,0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 7 1}\special{pa 14 2}\special{pa 21 3}\special{pa 27 4}%
-\special{pa 34 4}\special{pa 41 5}\special{pa 48 6}\special{pa 55 6}\special{pa 62 7}%
-\special{pa 69 8}\special{pa 75 8}\special{pa 82 9}\special{pa 89 9}\special{pa 96 9}%
-\special{pa 103 10}\special{pa 110 10}\special{pa 117 10}\special{pa 124 10}\special{pa 131 10}%
-\special{pa 138 10}\special{pa 144 11}\special{pa 151 11}\special{pa 158 10}\special{pa 165 10}%
-\special{pa 172 10}\special{pa 179 10}\special{pa 186 10}\special{pa 193 9}\special{pa 200 9}%
-\special{pa 206 9}\special{pa 213 8}\special{pa 220 8}\special{pa 227 7}\special{pa 234 7}%
-\special{pa 241 6}\special{pa 248 5}\special{pa 255 5}\special{pa 261 4}\special{pa 268 3}%
-\special{pa 275 2}\special{pa 282 1}\special{pa 289 1}\special{pa 296 0}\special{pa 303 -1}%
-\special{pa 309 -3}\special{pa 316 -4}\special{pa 323 -5}\special{pa 330 -6}\special{pa 337 -7}%
-\special{pa 343 -9}%
-\special{fp}%
-\special{pa 458 -38}\special{pa 464 -40}\special{pa 471 -42}\special{pa 477 -44}\special{pa 484 -47}%
-\special{pa 490 -49}\special{pa 497 -51}\special{pa 503 -54}\special{pa 510 -56}\special{pa 516 -59}%
-\special{pa 523 -61}\special{pa 529 -64}\special{pa 535 -66}\special{pa 542 -69}\special{pa 548 -72}%
-\special{pa 555 -74}\special{pa 561 -77}\special{pa 567 -80}\special{pa 573 -83}\special{pa 580 -86}%
-\special{pa 586 -89}\special{pa 592 -92}\special{pa 598 -95}\special{pa 605 -98}\special{pa 611 -101}%
-\special{pa 617 -104}\special{pa 623 -107}\special{pa 629 -110}\special{pa 635 -114}%
-\special{pa 641 -117}\special{pa 647 -120}\special{pa 653 -124}\special{pa 659 -127}%
-\special{pa 665 -131}\special{pa 671 -134}\special{pa 677 -138}\special{pa 683 -141}%
-\special{pa 689 -145}\special{pa 695 -149}\special{pa 700 -152}\special{pa 706 -156}%
-\special{pa 712 -160}\special{pa 718 -164}\special{pa 723 -168}\special{pa 729 -172}%
-\special{pa 735 -176}\special{pa 740 -179}\special{pa 746 -184}\special{pa 752 -188}%
-\special{pa 757 -192}\special{pa 763 -196}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(2.1300,0.5500){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce
deleted file mode 100644
index 099456ca..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p003.tex';
-Fnamesci='pointoncircle/p003.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.97266,0.30649]'); Assignrep('mdbw1',[0.97266,0.30649]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.75261,0.96351]]);
-pt1=Pointdata([1.75261,0.96351]);
-bw1=Bowdata([0,0],[1.75261,0.96351],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.97,0.31],"c","$2$");
- Drwline(bw1);
- Letter([1.93,1.06],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex
deleted file mode 100644
index 1cbf43cf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex
+++ /dev/null
@@ -1,90 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 690 -379}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 693 -382}\special{pa 687 -382}\special{pa 687 -377}\special{pa 693 -377}%
-\special{pa 693 -382}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.9700,0.3100){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 7 -1}\special{pa 14 -2}\special{pa 21 -2}\special{pa 27 -3}%
-\special{pa 34 -4}\special{pa 41 -5}\special{pa 48 -6}\special{pa 55 -7}\special{pa 62 -9}%
-\special{pa 68 -10}\special{pa 75 -11}\special{pa 82 -12}\special{pa 89 -14}\special{pa 95 -15}%
-\special{pa 102 -16}\special{pa 109 -18}\special{pa 116 -19}\special{pa 122 -21}\special{pa 129 -22}%
-\special{pa 136 -24}\special{pa 142 -26}\special{pa 149 -27}\special{pa 156 -29}\special{pa 163 -31}%
-\special{pa 169 -33}\special{pa 176 -35}\special{pa 182 -37}\special{pa 189 -39}\special{pa 196 -41}%
-\special{pa 202 -43}\special{pa 209 -45}\special{pa 215 -47}\special{pa 222 -49}\special{pa 228 -52}%
-\special{pa 235 -54}\special{pa 241 -56}\special{pa 248 -59}\special{pa 254 -61}\special{pa 261 -64}%
-\special{pa 267 -66}\special{pa 274 -69}\special{pa 280 -71}\special{pa 286 -74}\special{pa 293 -77}%
-\special{pa 299 -79}\special{pa 305 -82}\special{pa 312 -85}\special{pa 318 -88}\special{pa 324 -91}%
-\special{pa 330 -94}%
-\special{fp}%
-\special{pa 434 -151}\special{pa 440 -154}\special{pa 445 -158}\special{pa 451 -162}%
-\special{pa 457 -166}\special{pa 463 -169}\special{pa 468 -173}\special{pa 474 -177}%
-\special{pa 480 -181}\special{pa 485 -185}\special{pa 491 -189}\special{pa 497 -193}%
-\special{pa 502 -197}\special{pa 508 -202}\special{pa 513 -206}\special{pa 519 -210}%
-\special{pa 524 -214}\special{pa 529 -219}\special{pa 535 -223}\special{pa 540 -227}%
-\special{pa 545 -232}\special{pa 551 -236}\special{pa 556 -241}\special{pa 561 -245}%
-\special{pa 566 -250}\special{pa 572 -254}\special{pa 577 -259}\special{pa 582 -263}%
-\special{pa 587 -268}\special{pa 592 -273}\special{pa 597 -278}\special{pa 602 -282}%
-\special{pa 607 -287}\special{pa 612 -292}\special{pa 617 -297}\special{pa 621 -302}%
-\special{pa 626 -307}\special{pa 631 -312}\special{pa 636 -317}\special{pa 641 -322}%
-\special{pa 645 -327}\special{pa 650 -332}\special{pa 654 -337}\special{pa 659 -342}%
-\special{pa 664 -347}\special{pa 668 -353}\special{pa 673 -358}\special{pa 677 -363}%
-\special{pa 681 -369}\special{pa 686 -374}\special{pa 690 -379}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.9300,1.0600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce
deleted file mode 100644
index dbf4867a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p004.tex';
-Fnamesci='pointoncircle/p004.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.86588,0.53875]'); Assignrep('mdbw1',[0.86588,0.53875]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.45794,1.36909]]);
-pt1=Pointdata([1.45794,1.36909]);
-bw1=Bowdata([0,0],[1.45794,1.36909],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.87,0.54],"c","$2$");
- Drwline(bw1);
- Letter([1.6,1.51],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex
deleted file mode 100644
index 74156d65..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 574 -539}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 577 -542}\special{pa 571 -542}\special{pa 571 -536}\special{pa 577 -536}%
-\special{pa 577 -542}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.8700,0.5400){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 6 -2}\special{pa 13 -5}\special{pa 19 -7}\special{pa 26 -10}%
-\special{pa 32 -13}\special{pa 38 -15}\special{pa 45 -18}\special{pa 51 -21}\special{pa 57 -24}%
-\special{pa 64 -26}\special{pa 70 -29}\special{pa 76 -32}\special{pa 83 -35}\special{pa 89 -38}%
-\special{pa 95 -41}\special{pa 101 -44}\special{pa 107 -47}\special{pa 113 -51}\special{pa 119 -54}%
-\special{pa 126 -57}\special{pa 132 -60}\special{pa 138 -64}\special{pa 144 -67}\special{pa 150 -70}%
-\special{pa 156 -74}\special{pa 162 -77}\special{pa 168 -81}\special{pa 173 -85}\special{pa 179 -88}%
-\special{pa 185 -92}\special{pa 191 -96}\special{pa 197 -99}\special{pa 203 -103}%
-\special{pa 208 -107}\special{pa 214 -111}\special{pa 220 -115}\special{pa 225 -118}%
-\special{pa 231 -122}\special{pa 237 -126}\special{pa 242 -130}\special{pa 248 -135}%
-\special{pa 253 -139}\special{pa 259 -143}\special{pa 264 -147}\special{pa 270 -151}%
-\special{pa 275 -156}\special{pa 281 -160}\special{pa 286 -164}\special{pa 291 -169}%
-\special{pa 297 -173}%
-\special{fp}%
-\special{pa 383 -254}\special{pa 387 -259}\special{pa 392 -264}\special{pa 397 -269}%
-\special{pa 401 -274}\special{pa 406 -279}\special{pa 411 -284}\special{pa 415 -290}%
-\special{pa 420 -295}\special{pa 424 -300}\special{pa 429 -305}\special{pa 433 -311}%
-\special{pa 437 -316}\special{pa 442 -321}\special{pa 446 -327}\special{pa 450 -332}%
-\special{pa 454 -338}\special{pa 458 -343}\special{pa 463 -349}\special{pa 467 -354}%
-\special{pa 471 -360}\special{pa 475 -366}\special{pa 479 -371}\special{pa 483 -377}%
-\special{pa 487 -383}\special{pa 490 -388}\special{pa 494 -394}\special{pa 498 -400}%
-\special{pa 502 -406}\special{pa 505 -411}\special{pa 509 -417}\special{pa 513 -423}%
-\special{pa 516 -429}\special{pa 520 -435}\special{pa 523 -441}\special{pa 527 -447}%
-\special{pa 530 -453}\special{pa 534 -459}\special{pa 537 -465}\special{pa 540 -471}%
-\special{pa 544 -477}\special{pa 547 -483}\special{pa 550 -489}\special{pa 553 -495}%
-\special{pa 556 -502}\special{pa 559 -508}\special{pa 562 -514}\special{pa 565 -520}%
-\special{pa 568 -526}\special{pa 571 -533}\special{pa 574 -539}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.6000,1.5100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce
deleted file mode 100644
index b131fbbe..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p005.tex';
-Fnamesci='pointoncircle/p005.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.70469,0.73716]'); Assignrep('mdbw1',[0.70469,0.73716]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.07165,1.68866]]);
-pt1=Pointdata([1.07165,1.68866]);
-bw1=Bowdata([0,0],[1.07165,1.68866],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.7,0.74],"c","$2$");
- Drwline(bw1);
- Letter([1.18,1.86],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex
deleted file mode 100644
index 336daec2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 422 -665}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 425 -668}\special{pa 419 -668}\special{pa 419 -662}\special{pa 425 -662}%
-\special{pa 425 -668}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.7000,0.7400){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 6 -4}\special{pa 11 -8}\special{pa 17 -12}\special{pa 22 -16}%
-\special{pa 28 -20}\special{pa 33 -24}\special{pa 39 -29}\special{pa 44 -33}\special{pa 50 -37}%
-\special{pa 55 -41}\special{pa 61 -46}\special{pa 66 -50}\special{pa 71 -55}\special{pa 76 -59}%
-\special{pa 82 -64}\special{pa 87 -68}\special{pa 92 -73}\special{pa 97 -77}\special{pa 102 -82}%
-\special{pa 107 -87}\special{pa 112 -91}\special{pa 118 -96}\special{pa 122 -101}%
-\special{pa 127 -105}\special{pa 132 -110}\special{pa 137 -115}\special{pa 142 -120}%
-\special{pa 147 -125}\special{pa 152 -130}\special{pa 157 -135}\special{pa 161 -140}%
-\special{pa 166 -145}\special{pa 171 -150}\special{pa 175 -155}\special{pa 180 -160}%
-\special{pa 184 -166}\special{pa 189 -171}\special{pa 193 -176}\special{pa 198 -181}%
-\special{pa 202 -187}\special{pa 207 -192}\special{pa 211 -197}\special{pa 215 -203}%
-\special{pa 220 -208}\special{pa 224 -214}\special{pa 228 -219}\special{pa 232 -225}%
-\special{pa 236 -230}\special{pa 240 -236}\special{pa 244 -241}%
-\special{fp}%
-\special{pa 308 -341}\special{pa 311 -347}\special{pa 314 -353}\special{pa 318 -359}%
-\special{pa 321 -365}\special{pa 324 -371}\special{pa 327 -378}\special{pa 330 -384}%
-\special{pa 333 -390}\special{pa 336 -396}\special{pa 339 -402}\special{pa 342 -409}%
-\special{pa 345 -415}\special{pa 348 -421}\special{pa 351 -427}\special{pa 353 -434}%
-\special{pa 356 -440}\special{pa 359 -447}\special{pa 361 -453}\special{pa 364 -459}%
-\special{pa 366 -466}\special{pa 369 -472}\special{pa 371 -479}\special{pa 374 -485}%
-\special{pa 376 -492}\special{pa 378 -498}\special{pa 381 -505}\special{pa 383 -511}%
-\special{pa 385 -518}\special{pa 387 -524}\special{pa 389 -531}\special{pa 391 -537}%
-\special{pa 393 -544}\special{pa 395 -551}\special{pa 397 -557}\special{pa 399 -564}%
-\special{pa 401 -571}\special{pa 403 -577}\special{pa 405 -584}\special{pa 406 -591}%
-\special{pa 408 -597}\special{pa 410 -604}\special{pa 411 -611}\special{pa 413 -617}%
-\special{pa 414 -624}\special{pa 415 -631}\special{pa 417 -638}\special{pa 418 -644}%
-\special{pa 419 -651}\special{pa 421 -658}\special{pa 422 -665}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.1800,1.8600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce
deleted file mode 100644
index d6bd547a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p006.tex';
-Fnamesci='pointoncircle/p006.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.49923,0.88925]'); Assignrep('mdbw1',[0.49923,0.88925]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.61803,1.90211]]);
-pt1=Pointdata([0.61803,1.90211]);
-bw1=Bowdata([0,0],[0.61803,1.90211],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.5,0.89],"c","$2$");
- Drwline(bw1);
- Letter([0.68,2.09],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex
deleted file mode 100644
index 1bfb62cf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 243 -749}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 246 -752}\special{pa 241 -752}\special{pa 241 -746}\special{pa 246 -746}%
-\special{pa 246 -752}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.5000,0.8900){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 4 -5}\special{pa 9 -11}\special{pa 13 -16}\special{pa 18 -21}%
-\special{pa 22 -27}\special{pa 26 -32}\special{pa 31 -37}\special{pa 35 -43}\special{pa 39 -48}%
-\special{pa 43 -54}\special{pa 47 -59}\special{pa 51 -65}\special{pa 55 -71}\special{pa 59 -76}%
-\special{pa 63 -82}\special{pa 67 -88}\special{pa 71 -93}\special{pa 75 -99}\special{pa 79 -105}%
-\special{pa 83 -110}\special{pa 86 -116}\special{pa 90 -122}\special{pa 94 -128}\special{pa 97 -134}%
-\special{pa 101 -140}\special{pa 104 -146}\special{pa 108 -152}\special{pa 111 -158}%
-\special{pa 115 -164}\special{pa 118 -170}\special{pa 121 -176}\special{pa 125 -182}%
-\special{pa 128 -188}\special{pa 131 -194}\special{pa 134 -200}\special{pa 137 -206}%
-\special{pa 140 -212}\special{pa 144 -219}\special{pa 147 -225}\special{pa 149 -231}%
-\special{pa 152 -237}\special{pa 155 -244}\special{pa 158 -250}\special{pa 161 -256}%
-\special{pa 164 -263}\special{pa 166 -269}\special{pa 169 -275}\special{pa 172 -282}%
-\special{pa 174 -288}\special{pa 177 -294}%
-\special{fp}%
-\special{pa 213 -407}\special{pa 215 -413}\special{pa 217 -420}\special{pa 218 -427}%
-\special{pa 220 -434}\special{pa 221 -440}\special{pa 223 -447}\special{pa 224 -454}%
-\special{pa 226 -461}\special{pa 227 -467}\special{pa 228 -474}\special{pa 230 -481}%
-\special{pa 231 -488}\special{pa 232 -494}\special{pa 233 -501}\special{pa 234 -508}%
-\special{pa 235 -515}\special{pa 236 -522}\special{pa 237 -529}\special{pa 238 -535}%
-\special{pa 239 -542}\special{pa 240 -549}\special{pa 241 -556}\special{pa 241 -563}%
-\special{pa 242 -570}\special{pa 243 -577}\special{pa 243 -583}\special{pa 244 -590}%
-\special{pa 244 -597}\special{pa 245 -604}\special{pa 245 -611}\special{pa 245 -618}%
-\special{pa 246 -625}\special{pa 246 -632}\special{pa 246 -639}\special{pa 246 -645}%
-\special{pa 247 -652}\special{pa 247 -659}\special{pa 247 -666}\special{pa 247 -673}%
-\special{pa 247 -680}\special{pa 246 -687}\special{pa 246 -694}\special{pa 246 -701}%
-\special{pa 246 -708}\special{pa 246 -714}\special{pa 245 -721}\special{pa 245 -728}%
-\special{pa 244 -735}\special{pa 244 -742}\special{pa 243 -749}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.6800,2.0900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce
deleted file mode 100644
index e489aaf1..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p007.tex';
-Fnamesci='pointoncircle/p007.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.2624,0.98547]'); Assignrep('mdbw1',[0.2624,0.98547]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.12558,1.99605]]);
-pt1=Pointdata([0.12558,1.99605]);
-bw1=Bowdata([0,0],[0.12558,1.99605],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.26,0.99],"c","$2$");
- Drwline(bw1);
- Letter([0.14,2.2],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex
deleted file mode 100644
index 74f5a1a9..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex
+++ /dev/null
@@ -1,89 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 49 -786}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 52 -789}\special{pa 47 -789}\special{pa 47 -783}\special{pa 52 -783}\special{pa 52 -789}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.2600,0.9900){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 3 -6}\special{pa 6 -12}\special{pa 9 -19}\special{pa 12 -25}%
-\special{pa 15 -31}\special{pa 18 -38}\special{pa 20 -44}\special{pa 23 -50}\special{pa 26 -57}%
-\special{pa 28 -63}\special{pa 31 -69}\special{pa 34 -76}\special{pa 36 -82}\special{pa 39 -89}%
-\special{pa 41 -95}\special{pa 43 -101}\special{pa 46 -108}\special{pa 48 -114}\special{pa 50 -121}%
-\special{pa 52 -128}\special{pa 55 -134}\special{pa 57 -141}\special{pa 59 -147}\special{pa 61 -154}%
-\special{pa 63 -160}\special{pa 65 -167}\special{pa 67 -174}\special{pa 69 -180}\special{pa 70 -187}%
-\special{pa 72 -194}\special{pa 74 -200}\special{pa 76 -207}\special{pa 77 -214}\special{pa 79 -220}%
-\special{pa 80 -227}\special{pa 82 -234}\special{pa 83 -241}\special{pa 85 -247}\special{pa 86 -254}%
-\special{pa 87 -261}\special{pa 89 -268}\special{pa 90 -275}\special{pa 91 -281}\special{pa 92 -288}%
-\special{pa 93 -295}\special{pa 94 -302}\special{pa 95 -309}\special{pa 96 -315}\special{pa 97 -322}%
-\special{pa 98 -329}%
-\special{fp}%
-\special{pa 105 -447}\special{pa 105 -454}\special{pa 105 -461}\special{pa 105 -468}%
-\special{pa 105 -475}\special{pa 105 -481}\special{pa 105 -488}\special{pa 104 -495}%
-\special{pa 104 -502}\special{pa 104 -509}\special{pa 103 -516}\special{pa 103 -523}%
-\special{pa 102 -530}\special{pa 102 -537}\special{pa 101 -543}\special{pa 101 -550}%
-\special{pa 100 -557}\special{pa 99 -564}\special{pa 98 -571}\special{pa 98 -578}%
-\special{pa 97 -585}\special{pa 96 -591}\special{pa 95 -598}\special{pa 94 -605}\special{pa 93 -612}%
-\special{pa 92 -619}\special{pa 91 -626}\special{pa 89 -632}\special{pa 88 -639}\special{pa 87 -646}%
-\special{pa 86 -653}\special{pa 84 -659}\special{pa 83 -666}\special{pa 81 -673}\special{pa 80 -680}%
-\special{pa 78 -686}\special{pa 77 -693}\special{pa 75 -700}\special{pa 73 -707}\special{pa 71 -713}%
-\special{pa 70 -720}\special{pa 68 -727}\special{pa 66 -733}\special{pa 64 -740}\special{pa 62 -746}%
-\special{pa 60 -753}\special{pa 58 -760}\special{pa 56 -766}\special{pa 54 -773}\special{pa 52 -779}%
-\special{pa 49 -786}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.1400,2.2000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce
deleted file mode 100644
index c11d1d5c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p008.tex';
-Fnamesci='pointoncircle/p008.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.00908,1.01976]'); Assignrep('mdbw1',[0.00908,1.01976]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.37476,1.96457]]);
-pt1=Pointdata([-0.37476,1.96457]);
-bw1=Bowdata([0,0],[-0.37476,1.96457],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.01,1.02],"c","$2$");
- Drwline(bw1);
- Letter([-0.41,2.16],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex
deleted file mode 100644
index 8038ab13..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex
+++ /dev/null
@@ -1,90 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -148 -773}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -145 -776}\special{pa -150 -776}\special{pa -150 -771}\special{pa -145 -771}%
-\special{pa -145 -776}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.0100,1.0200){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 1 -7}\special{pa 3 -14}\special{pa 4 -20}\special{pa 5 -27}%
-\special{pa 6 -34}\special{pa 8 -41}\special{pa 9 -48}\special{pa 10 -54}\special{pa 11 -61}%
-\special{pa 12 -68}\special{pa 13 -75}\special{pa 14 -82}\special{pa 15 -89}\special{pa 15 -95}%
-\special{pa 16 -102}\special{pa 17 -109}\special{pa 17 -116}\special{pa 18 -123}\special{pa 19 -130}%
-\special{pa 19 -137}\special{pa 20 -143}\special{pa 20 -150}\special{pa 20 -157}\special{pa 21 -164}%
-\special{pa 21 -171}\special{pa 21 -178}\special{pa 21 -185}\special{pa 22 -192}\special{pa 22 -199}%
-\special{pa 22 -206}\special{pa 22 -212}\special{pa 22 -219}\special{pa 22 -226}\special{pa 21 -233}%
-\special{pa 21 -240}\special{pa 21 -247}\special{pa 21 -254}\special{pa 20 -261}\special{pa 20 -268}%
-\special{pa 20 -275}\special{pa 19 -281}\special{pa 19 -288}\special{pa 18 -295}\special{pa 18 -302}%
-\special{pa 17 -309}\special{pa 16 -316}\special{pa 15 -323}\special{pa 15 -329}\special{pa 14 -336}%
-\special{pa 13 -343}%
-\special{fp}%
-\special{pa -9 -459}\special{pa -11 -466}\special{pa -13 -473}\special{pa -14 -479}%
-\special{pa -16 -486}\special{pa -18 -492}\special{pa -20 -499}\special{pa -22 -506}%
-\special{pa -24 -512}\special{pa -26 -519}\special{pa -28 -525}\special{pa -30 -532}%
-\special{pa -33 -539}\special{pa -35 -545}\special{pa -37 -552}\special{pa -39 -558}%
-\special{pa -42 -565}\special{pa -44 -571}\special{pa -47 -577}\special{pa -49 -584}%
-\special{pa -52 -590}\special{pa -54 -597}\special{pa -57 -603}\special{pa -60 -609}%
-\special{pa -62 -616}\special{pa -65 -622}\special{pa -68 -628}\special{pa -71 -635}%
-\special{pa -74 -641}\special{pa -77 -647}\special{pa -80 -653}\special{pa -83 -660}%
-\special{pa -86 -666}\special{pa -89 -672}\special{pa -92 -678}\special{pa -95 -684}%
-\special{pa -98 -690}\special{pa -101 -697}\special{pa -105 -703}\special{pa -108 -709}%
-\special{pa -112 -715}\special{pa -115 -721}\special{pa -118 -727}\special{pa -122 -733}%
-\special{pa -125 -738}\special{pa -129 -744}\special{pa -133 -750}\special{pa -136 -756}%
-\special{pa -140 -762}\special{pa -144 -768}\special{pa -148 -773}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.4100,2.1600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce
deleted file mode 100644
index fa9396ef..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p009.tex';
-Fnamesci='pointoncircle/p009.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.24481,0.98998]'); Assignrep('mdbw1',[-0.24481,0.98998]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.85156,1.80965]]);
-pt1=Pointdata([-0.85156,1.80965]);
-bw1=Bowdata([0,0],[-0.85156,1.80965],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.24,0.99],"c","$2$");
- Drwline(bw1);
- Letter([-0.94,1.99],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex
deleted file mode 100644
index c98778a4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -335 -712}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -332 -715}\special{pa -338 -715}\special{pa -338 -710}\special{pa -332 -710}%
-\special{pa -332 -715}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.2400,0.9900){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 0 -7}\special{pa -1 -14}\special{pa -1 -21}\special{pa -2 -28}%
-\special{pa -2 -34}\special{pa -3 -41}\special{pa -3 -48}\special{pa -4 -55}\special{pa -5 -62}%
-\special{pa -5 -69}\special{pa -6 -76}\special{pa -7 -82}\special{pa -8 -89}\special{pa -9 -96}%
-\special{pa -10 -103}\special{pa -11 -110}\special{pa -12 -117}\special{pa -13 -123}%
-\special{pa -14 -130}\special{pa -15 -137}\special{pa -17 -144}\special{pa -18 -151}%
-\special{pa -19 -157}\special{pa -21 -164}\special{pa -22 -171}\special{pa -24 -178}%
-\special{pa -25 -184}\special{pa -27 -191}\special{pa -28 -198}\special{pa -30 -204}%
-\special{pa -32 -211}\special{pa -34 -218}\special{pa -35 -225}\special{pa -37 -231}%
-\special{pa -39 -238}\special{pa -41 -244}\special{pa -43 -251}\special{pa -45 -258}%
-\special{pa -47 -264}\special{pa -49 -271}\special{pa -51 -277}\special{pa -54 -284}%
-\special{pa -56 -290}\special{pa -58 -297}\special{pa -60 -303}\special{pa -63 -310}%
-\special{pa -65 -316}\special{pa -68 -323}\special{pa -70 -329}\special{pa -73 -336}%
-\special{fp}%
-\special{pa -123 -442}\special{pa -126 -448}\special{pa -130 -455}\special{pa -133 -461}%
-\special{pa -137 -467}\special{pa -140 -472}\special{pa -144 -478}\special{pa -147 -484}%
-\special{pa -151 -490}\special{pa -154 -496}\special{pa -158 -502}\special{pa -162 -508}%
-\special{pa -165 -514}\special{pa -169 -519}\special{pa -173 -525}\special{pa -177 -531}%
-\special{pa -181 -536}\special{pa -185 -542}\special{pa -189 -548}\special{pa -193 -553}%
-\special{pa -197 -559}\special{pa -201 -564}\special{pa -205 -570}\special{pa -209 -576}%
-\special{pa -214 -581}\special{pa -218 -586}\special{pa -222 -592}\special{pa -226 -597}%
-\special{pa -231 -603}\special{pa -235 -608}\special{pa -240 -613}\special{pa -244 -618}%
-\special{pa -248 -624}\special{pa -253 -629}\special{pa -258 -634}\special{pa -262 -639}%
-\special{pa -267 -644}\special{pa -272 -649}\special{pa -276 -654}\special{pa -281 -659}%
-\special{pa -286 -664}\special{pa -291 -669}\special{pa -295 -674}\special{pa -300 -679}%
-\special{pa -305 -684}\special{pa -310 -689}\special{pa -315 -694}\special{pa -320 -698}%
-\special{pa -325 -703}\special{pa -330 -708}\special{pa -335 -712}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.9400,1.9900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce
deleted file mode 100644
index 94eff4f8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p010.tex';
-Fnamesci='pointoncircle/p010.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.48332,0.898]'); Assignrep('mdbw1',[-0.48332,0.898]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.27485,1.54103]]);
-pt1=Pointdata([-1.27485,1.54103]);
-bw1=Bowdata([0,0],[-1.27485,1.54103],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.48,0.9],"c","$2$");
- Drwline(bw1);
- Letter([-1.4,1.7],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex
deleted file mode 100644
index 447d7d5e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -502 -607}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -499 -609}\special{pa -505 -609}\special{pa -505 -604}\special{pa -499 -604}%
-\special{pa -499 -609}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.4800,0.9000){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -2 -7}\special{pa -4 -13}\special{pa -6 -20}\special{pa -8 -26}%
-\special{pa -11 -33}\special{pa -13 -39}\special{pa -15 -46}\special{pa -18 -52}\special{pa -20 -59}%
-\special{pa -22 -65}\special{pa -25 -72}\special{pa -27 -78}\special{pa -30 -85}\special{pa -33 -91}%
-\special{pa -35 -97}\special{pa -38 -104}\special{pa -41 -110}\special{pa -43 -116}%
-\special{pa -46 -123}\special{pa -49 -129}\special{pa -52 -135}\special{pa -55 -141}%
-\special{pa -58 -148}\special{pa -61 -154}\special{pa -64 -160}\special{pa -67 -166}%
-\special{pa -70 -172}\special{pa -73 -178}\special{pa -77 -184}\special{pa -80 -191}%
-\special{pa -83 -197}\special{pa -87 -203}\special{pa -90 -209}\special{pa -94 -215}%
-\special{pa -97 -221}\special{pa -101 -227}\special{pa -104 -232}\special{pa -108 -238}%
-\special{pa -111 -244}\special{pa -115 -250}\special{pa -119 -256}\special{pa -123 -262}%
-\special{pa -126 -267}\special{pa -130 -273}\special{pa -134 -279}\special{pa -138 -285}%
-\special{pa -142 -290}\special{pa -146 -296}\special{pa -150 -301}\special{pa -154 -307}%
-\special{fp}%
-\special{pa -229 -398}\special{pa -234 -403}\special{pa -239 -408}\special{pa -243 -413}%
-\special{pa -248 -418}\special{pa -253 -423}\special{pa -258 -428}\special{pa -263 -433}%
-\special{pa -268 -437}\special{pa -273 -442}\special{pa -278 -447}\special{pa -283 -452}%
-\special{pa -288 -456}\special{pa -293 -461}\special{pa -298 -465}\special{pa -303 -470}%
-\special{pa -309 -475}\special{pa -314 -479}\special{pa -319 -484}\special{pa -324 -488}%
-\special{pa -330 -492}\special{pa -335 -497}\special{pa -340 -501}\special{pa -346 -505}%
-\special{pa -351 -510}\special{pa -357 -514}\special{pa -362 -518}\special{pa -368 -522}%
-\special{pa -373 -526}\special{pa -379 -530}\special{pa -384 -534}\special{pa -390 -538}%
-\special{pa -396 -542}\special{pa -401 -546}\special{pa -407 -550}\special{pa -413 -554}%
-\special{pa -419 -558}\special{pa -424 -561}\special{pa -430 -565}\special{pa -436 -569}%
-\special{pa -442 -573}\special{pa -448 -576}\special{pa -454 -580}\special{pa -460 -583}%
-\special{pa -466 -587}\special{pa -472 -590}\special{pa -478 -594}\special{pa -484 -597}%
-\special{pa -490 -600}\special{pa -496 -603}\special{pa -502 -607}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.4000,1.7000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce
deleted file mode 100644
index e8ea5786..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p011.tex';
-Fnamesci='pointoncircle/p011.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.69146,0.74959]'); Assignrep('mdbw1',[-0.69146,0.74959]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.61803,1.17557]]);
-pt1=Pointdata([-1.61803,1.17557]);
-bw1=Bowdata([0,0],[-1.61803,1.17557],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.69,0.75],"c","$2$");
- Drwline(bw1);
- Letter([-1.78,1.29],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex
deleted file mode 100644
index 497fdfed..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -637 -463}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -634 -466}\special{pa -640 -466}\special{pa -640 -460}\special{pa -634 -460}%
-\special{pa -634 -466}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.6900,0.7500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -4 -6}\special{pa -7 -12}\special{pa -11 -18}\special{pa -15 -23}%
-\special{pa -18 -29}\special{pa -22 -35}\special{pa -26 -41}\special{pa -30 -46}\special{pa -34 -52}%
-\special{pa -38 -58}\special{pa -42 -63}\special{pa -46 -69}\special{pa -50 -74}\special{pa -54 -80}%
-\special{pa -58 -86}\special{pa -62 -91}\special{pa -67 -96}\special{pa -71 -102}%
-\special{pa -75 -107}\special{pa -80 -113}\special{pa -84 -118}\special{pa -88 -123}%
-\special{pa -93 -129}\special{pa -97 -134}\special{pa -102 -139}\special{pa -106 -144}%
-\special{pa -111 -149}\special{pa -116 -155}\special{pa -120 -160}\special{pa -125 -165}%
-\special{pa -130 -170}\special{pa -134 -175}\special{pa -139 -180}\special{pa -144 -185}%
-\special{pa -149 -190}\special{pa -154 -194}\special{pa -159 -199}\special{pa -164 -204}%
-\special{pa -169 -209}\special{pa -174 -214}\special{pa -179 -218}\special{pa -184 -223}%
-\special{pa -189 -228}\special{pa -194 -232}\special{pa -199 -237}\special{pa -204 -241}%
-\special{pa -210 -246}\special{pa -215 -250}\special{pa -220 -255}\special{pa -225 -259}%
-\special{fp}%
-\special{pa -321 -328}\special{pa -327 -332}\special{pa -333 -336}\special{pa -339 -339}%
-\special{pa -344 -343}\special{pa -350 -347}\special{pa -356 -350}\special{pa -362 -354}%
-\special{pa -368 -357}\special{pa -374 -360}\special{pa -380 -364}\special{pa -386 -367}%
-\special{pa -392 -370}\special{pa -399 -374}\special{pa -405 -377}\special{pa -411 -380}%
-\special{pa -417 -383}\special{pa -423 -386}\special{pa -429 -389}\special{pa -436 -392}%
-\special{pa -442 -395}\special{pa -448 -398}\special{pa -454 -401}\special{pa -461 -403}%
-\special{pa -467 -406}\special{pa -473 -409}\special{pa -480 -412}\special{pa -486 -414}%
-\special{pa -492 -417}\special{pa -499 -419}\special{pa -505 -422}\special{pa -512 -424}%
-\special{pa -518 -427}\special{pa -525 -429}\special{pa -531 -432}\special{pa -538 -434}%
-\special{pa -544 -436}\special{pa -551 -438}\special{pa -557 -440}\special{pa -564 -443}%
-\special{pa -570 -445}\special{pa -577 -447}\special{pa -584 -449}\special{pa -590 -451}%
-\special{pa -597 -452}\special{pa -604 -454}\special{pa -610 -456}\special{pa -617 -458}%
-\special{pa -624 -460}\special{pa -630 -461}\special{pa -637 -463}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.7800,1.2900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce
deleted file mode 100644
index 3f517e50..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p012.tex';
-Fnamesci='pointoncircle/p012.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.85615,0.55408]'); Assignrep('mdbw1',[-0.85615,0.55408]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.85955,0.73625]]);
-pt1=Pointdata([-1.85955,0.73625]);
-bw1=Bowdata([0,0],[-1.85955,0.73625],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.86,0.55],"c","$2$");
- Drwline(bw1);
- Letter([-2.05,0.81],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex
deleted file mode 100644
index 3cc1f81a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -732 -290}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -729 -293}\special{pa -735 -293}\special{pa -735 -287}\special{pa -729 -287}%
-\special{pa -729 -293}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.8600,0.5500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -5 -5}\special{pa -10 -10}\special{pa -15 -14}\special{pa -20 -19}%
-\special{pa -25 -24}\special{pa -30 -28}\special{pa -35 -33}\special{pa -41 -37}\special{pa -46 -42}%
-\special{pa -51 -46}\special{pa -56 -51}\special{pa -62 -55}\special{pa -67 -60}\special{pa -72 -64}%
-\special{pa -78 -68}\special{pa -83 -73}\special{pa -89 -77}\special{pa -94 -81}\special{pa -100 -85}%
-\special{pa -105 -89}\special{pa -111 -93}\special{pa -116 -97}\special{pa -122 -101}%
-\special{pa -128 -105}\special{pa -133 -109}\special{pa -139 -113}\special{pa -145 -117}%
-\special{pa -150 -121}\special{pa -156 -125}\special{pa -162 -128}\special{pa -168 -132}%
-\special{pa -174 -136}\special{pa -179 -139}\special{pa -185 -143}\special{pa -191 -147}%
-\special{pa -197 -150}\special{pa -203 -154}\special{pa -209 -157}\special{pa -215 -160}%
-\special{pa -221 -164}\special{pa -227 -167}\special{pa -233 -170}\special{pa -239 -173}%
-\special{pa -246 -177}\special{pa -252 -180}\special{pa -258 -183}\special{pa -264 -186}%
-\special{pa -270 -189}\special{pa -277 -192}\special{pa -283 -195}%
-\special{fp}%
-\special{pa -393 -238}\special{pa -399 -240}\special{pa -406 -243}\special{pa -412 -245}%
-\special{pa -419 -247}\special{pa -426 -249}\special{pa -432 -250}\special{pa -439 -252}%
-\special{pa -445 -254}\special{pa -452 -256}\special{pa -459 -258}\special{pa -465 -259}%
-\special{pa -472 -261}\special{pa -479 -263}\special{pa -486 -264}\special{pa -492 -266}%
-\special{pa -499 -267}\special{pa -506 -269}\special{pa -513 -270}\special{pa -519 -271}%
-\special{pa -526 -273}\special{pa -533 -274}\special{pa -540 -275}\special{pa -547 -276}%
-\special{pa -553 -277}\special{pa -560 -278}\special{pa -567 -279}\special{pa -574 -280}%
-\special{pa -581 -281}\special{pa -588 -282}\special{pa -594 -283}\special{pa -601 -284}%
-\special{pa -608 -285}\special{pa -615 -285}\special{pa -622 -286}\special{pa -629 -286}%
-\special{pa -636 -287}\special{pa -642 -288}\special{pa -649 -288}\special{pa -656 -288}%
-\special{pa -663 -289}\special{pa -670 -289}\special{pa -677 -289}\special{pa -684 -290}%
-\special{pa -691 -290}\special{pa -698 -290}\special{pa -705 -290}\special{pa -711 -290}%
-\special{pa -718 -290}\special{pa -725 -290}\special{pa -732 -290}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-2.0500,0.8100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce
deleted file mode 100644
index d7d7779d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p013.tex';
-Fnamesci='pointoncircle/p013.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.96705,0.32376]'); Assignrep('mdbw1',[-0.96705,0.32376]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.98423,0.25067]]);
-pt1=Pointdata([-1.98423,0.25067]);
-bw1=Bowdata([0,0],[-1.98423,0.25067],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.97,0.32],"c","$2$");
- Drwline(bw1);
- Letter([-2.18,0.28],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex
deleted file mode 100644
index a43d07b6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -781 -99}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -778 -101}\special{pa -784 -101}\special{pa -784 -96}\special{pa -778 -96}%
-\special{pa -778 -101}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.9700,0.3200){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -6 -3}\special{pa -12 -7}\special{pa -18 -10}\special{pa -24 -13}%
-\special{pa -30 -17}\special{pa -36 -20}\special{pa -42 -23}\special{pa -49 -26}\special{pa -55 -29}%
-\special{pa -61 -32}\special{pa -67 -35}\special{pa -73 -38}\special{pa -80 -41}\special{pa -86 -44}%
-\special{pa -92 -47}\special{pa -99 -50}\special{pa -105 -52}\special{pa -111 -55}%
-\special{pa -118 -58}\special{pa -124 -60}\special{pa -130 -63}\special{pa -137 -65}%
-\special{pa -143 -68}\special{pa -150 -70}\special{pa -156 -73}\special{pa -163 -75}%
-\special{pa -169 -77}\special{pa -176 -80}\special{pa -182 -82}\special{pa -189 -84}%
-\special{pa -195 -86}\special{pa -202 -88}\special{pa -209 -90}\special{pa -215 -92}%
-\special{pa -222 -94}\special{pa -228 -96}\special{pa -235 -98}\special{pa -242 -100}%
-\special{pa -248 -102}\special{pa -255 -104}\special{pa -262 -105}\special{pa -268 -107}%
-\special{pa -275 -108}\special{pa -282 -110}\special{pa -289 -112}\special{pa -295 -113}%
-\special{pa -302 -114}\special{pa -309 -116}\special{pa -316 -117}\special{pa -322 -118}%
-\special{fp}%
-\special{pa -439 -133}\special{pa -446 -134}\special{pa -453 -134}\special{pa -460 -134}%
-\special{pa -467 -135}\special{pa -474 -135}\special{pa -481 -135}\special{pa -488 -135}%
-\special{pa -495 -135}\special{pa -502 -136}\special{pa -508 -136}\special{pa -515 -136}%
-\special{pa -522 -135}\special{pa -529 -135}\special{pa -536 -135}\special{pa -543 -135}%
-\special{pa -550 -135}\special{pa -557 -134}\special{pa -564 -134}\special{pa -571 -134}%
-\special{pa -577 -133}\special{pa -584 -133}\special{pa -591 -132}\special{pa -598 -132}%
-\special{pa -605 -131}\special{pa -612 -130}\special{pa -619 -130}\special{pa -626 -129}%
-\special{pa -632 -128}\special{pa -639 -127}\special{pa -646 -126}\special{pa -653 -125}%
-\special{pa -660 -124}\special{pa -667 -123}\special{pa -673 -122}\special{pa -680 -121}%
-\special{pa -687 -120}\special{pa -694 -119}\special{pa -701 -117}\special{pa -707 -116}%
-\special{pa -714 -115}\special{pa -721 -113}\special{pa -728 -112}\special{pa -734 -110}%
-\special{pa -741 -109}\special{pa -748 -107}\special{pa -754 -106}\special{pa -761 -104}%
-\special{pa -768 -102}\special{pa -775 -101}\special{pa -781 -99}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-2.1800,0.2800){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce
deleted file mode 100644
index 43771b65..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p014.tex';
-Fnamesci='pointoncircle/p014.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-1.01718,0.07309]'); Assignrep('mdbw1',[-1.01718,0.07309]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.98423,-0.25067]]);
-pt1=Pointdata([-1.98423,-0.25067]);
-bw1=Bowdata([0,0],[-1.98423,-0.25067],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-1.02,0.07],"c","$2$");
- Drwline(bw1);
- Letter([-2.18,-0.28],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex
deleted file mode 100644
index 0015f410..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex
+++ /dev/null
@@ -1,89 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -781 99}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -778 96}\special{pa -784 96}\special{pa -784 101}\special{pa -778 101}%
-\special{pa -778 96}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.0200,0.0700){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -7 -2}\special{pa -13 -4}\special{pa -20 -5}\special{pa -27 -7}%
-\special{pa -33 -9}\special{pa -40 -10}\special{pa -47 -12}\special{pa -54 -13}\special{pa -60 -15}%
-\special{pa -67 -16}\special{pa -74 -17}\special{pa -81 -19}\special{pa -87 -20}\special{pa -94 -21}%
-\special{pa -101 -22}\special{pa -108 -24}\special{pa -115 -25}\special{pa -121 -26}%
-\special{pa -128 -27}\special{pa -135 -28}\special{pa -142 -29}\special{pa -149 -29}%
-\special{pa -156 -30}\special{pa -163 -31}\special{pa -169 -32}\special{pa -176 -32}%
-\special{pa -183 -33}\special{pa -190 -34}\special{pa -197 -34}\special{pa -204 -35}%
-\special{pa -211 -35}\special{pa -218 -35}\special{pa -224 -36}\special{pa -231 -36}%
-\special{pa -238 -36}\special{pa -245 -36}\special{pa -252 -37}\special{pa -259 -37}%
-\special{pa -266 -37}\special{pa -273 -37}\special{pa -280 -37}\special{pa -287 -37}%
-\special{pa -293 -37}\special{pa -300 -36}\special{pa -307 -36}\special{pa -314 -36}%
-\special{pa -321 -36}\special{pa -328 -35}\special{pa -335 -35}\special{pa -342 -34}%
-\special{fp}%
-\special{pa -459 -20}\special{pa -466 -18}\special{pa -472 -17}\special{pa -479 -16}%
-\special{pa -486 -14}\special{pa -493 -13}\special{pa -499 -11}\special{pa -506 -10}%
-\special{pa -513 -8}\special{pa -519 -7}\special{pa -526 -5}\special{pa -533 -3}\special{pa -540 -1}%
-\special{pa -546 1}\special{pa -553 2}\special{pa -559 4}\special{pa -566 6}\special{pa -573 8}%
-\special{pa -579 10}\special{pa -586 12}\special{pa -592 15}\special{pa -599 17}\special{pa -605 19}%
-\special{pa -612 21}\special{pa -619 24}\special{pa -625 26}\special{pa -631 28}\special{pa -638 31}%
-\special{pa -644 33}\special{pa -651 36}\special{pa -657 38}\special{pa -664 41}\special{pa -670 44}%
-\special{pa -676 46}\special{pa -683 49}\special{pa -689 52}\special{pa -695 55}\special{pa -702 58}%
-\special{pa -708 60}\special{pa -714 63}\special{pa -720 66}\special{pa -726 69}\special{pa -733 73}%
-\special{pa -739 76}\special{pa -745 79}\special{pa -751 82}\special{pa -757 85}\special{pa -763 89}%
-\special{pa -769 92}\special{pa -775 95}\special{pa -781 99}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-2.1800,-0.2800){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce
deleted file mode 100644
index e321cba7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p015.tex';
-Fnamesci='pointoncircle/p015.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-1.0034,-0.18217]'); Assignrep('mdbw1',[-1.0034,-0.18217]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.85955,-0.73625]]);
-pt1=Pointdata([-1.85955,-0.73625]);
-bw1=Bowdata([0,0],[-1.85955,-0.73625],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-1,-0.18],"c","$2$");
- Drwline(bw1);
- Letter([-2.05,-0.81],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex
deleted file mode 100644
index 23ae7668..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex
+++ /dev/null
@@ -1,90 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex 2017-8-19 10:55
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -732 290}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -729 287}\special{pa -735 287}\special{pa -735 293}\special{pa -729 293}%
-\special{pa -729 287}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.0000,-0.1800){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -7 0}\special{pa -14 0}\special{pa -21 0}\special{pa -28 0}%
-\special{pa -35 0}\special{pa -41 0}\special{pa -48 0}\special{pa -55 1}\special{pa -62 1}%
-\special{pa -69 1}\special{pa -76 1}\special{pa -83 2}\special{pa -90 2}\special{pa -97 3}%
-\special{pa -103 3}\special{pa -110 4}\special{pa -117 5}\special{pa -124 5}\special{pa -131 6}%
-\special{pa -138 7}\special{pa -145 8}\special{pa -151 9}\special{pa -158 9}\special{pa -165 10}%
-\special{pa -172 11}\special{pa -179 13}\special{pa -186 14}\special{pa -192 15}\special{pa -199 16}%
-\special{pa -206 17}\special{pa -213 18}\special{pa -220 20}\special{pa -226 21}\special{pa -233 23}%
-\special{pa -240 24}\special{pa -247 26}\special{pa -253 27}\special{pa -260 29}\special{pa -267 30}%
-\special{pa -273 32}\special{pa -280 34}\special{pa -287 36}\special{pa -293 37}\special{pa -300 39}%
-\special{pa -307 41}\special{pa -313 43}\special{pa -320 45}\special{pa -326 47}\special{pa -333 49}%
-\special{pa -340 52}%
-\special{fp}%
-\special{pa -449 95}\special{pa -456 98}\special{pa -462 101}\special{pa -468 104}%
-\special{pa -474 107}\special{pa -480 110}\special{pa -486 113}\special{pa -493 116}%
-\special{pa -499 120}\special{pa -505 123}\special{pa -511 126}\special{pa -517 130}%
-\special{pa -523 133}\special{pa -529 136}\special{pa -535 140}\special{pa -541 143}%
-\special{pa -547 147}\special{pa -553 150}\special{pa -559 154}\special{pa -564 158}%
-\special{pa -570 161}\special{pa -576 165}\special{pa -582 169}\special{pa -588 173}%
-\special{pa -593 177}\special{pa -599 181}\special{pa -605 184}\special{pa -610 188}%
-\special{pa -616 192}\special{pa -621 196}\special{pa -627 201}\special{pa -633 205}%
-\special{pa -638 209}\special{pa -644 213}\special{pa -649 217}\special{pa -654 222}%
-\special{pa -660 226}\special{pa -665 230}\special{pa -670 235}\special{pa -676 239}%
-\special{pa -681 243}\special{pa -686 248}\special{pa -692 252}\special{pa -697 257}%
-\special{pa -702 262}\special{pa -707 266}\special{pa -712 271}\special{pa -717 276}%
-\special{pa -722 280}\special{pa -727 285}\special{pa -732 290}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-2.0500,-0.8100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce
deleted file mode 100644
index 8a783682..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p016.tex';
-Fnamesci='pointoncircle/p016.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.92657,-0.42598]'); Assignrep('mdbw1',[-0.92657,-0.42598]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.61803,-1.17557]]);
-pt1=Pointdata([-1.61803,-1.17557]);
-bw1=Bowdata([0,0],[-1.61803,-1.17557],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.93,-0.43],"c","$2$");
- Drwline(bw1);
- Letter([-1.78,-1.29],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex
deleted file mode 100644
index 32430ddc..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex
+++ /dev/null
@@ -1,90 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -637 463}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -634 460}\special{pa -640 460}\special{pa -640 466}\special{pa -634 466}%
-\special{pa -634 460}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.9300,-0.4300){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -7 2}\special{pa -13 3}\special{pa -20 5}\special{pa -27 7}%
-\special{pa -33 9}\special{pa -40 10}\special{pa -47 12}\special{pa -53 14}\special{pa -60 16}%
-\special{pa -67 18}\special{pa -73 20}\special{pa -80 22}\special{pa -86 25}\special{pa -93 27}%
-\special{pa -99 29}\special{pa -106 31}\special{pa -112 34}\special{pa -119 36}\special{pa -125 38}%
-\special{pa -132 41}\special{pa -138 43}\special{pa -145 46}\special{pa -151 49}\special{pa -157 51}%
-\special{pa -164 54}\special{pa -170 57}\special{pa -176 59}\special{pa -183 62}\special{pa -189 65}%
-\special{pa -195 68}\special{pa -201 71}\special{pa -208 74}\special{pa -214 77}\special{pa -220 80}%
-\special{pa -226 83}\special{pa -232 86}\special{pa -239 89}\special{pa -245 93}\special{pa -251 96}%
-\special{pa -257 99}\special{pa -263 102}\special{pa -269 106}\special{pa -275 109}%
-\special{pa -281 113}\special{pa -287 116}\special{pa -293 120}\special{pa -299 123}%
-\special{pa -304 127}\special{pa -310 131}\special{pa -316 134}%
-\special{fp}%
-\special{pa -412 204}\special{pa -417 208}\special{pa -422 213}\special{pa -427 217}%
-\special{pa -433 222}\special{pa -438 226}\special{pa -443 231}\special{pa -448 235}%
-\special{pa -453 240}\special{pa -458 245}\special{pa -463 249}\special{pa -468 254}%
-\special{pa -473 259}\special{pa -478 264}\special{pa -483 268}\special{pa -488 273}%
-\special{pa -493 278}\special{pa -498 283}\special{pa -503 288}\special{pa -507 293}%
-\special{pa -512 298}\special{pa -517 303}\special{pa -521 308}\special{pa -526 313}%
-\special{pa -531 319}\special{pa -535 324}\special{pa -540 329}\special{pa -544 334}%
-\special{pa -549 340}\special{pa -553 345}\special{pa -557 350}\special{pa -562 356}%
-\special{pa -566 361}\special{pa -570 366}\special{pa -575 372}\special{pa -579 377}%
-\special{pa -583 383}\special{pa -587 388}\special{pa -591 394}\special{pa -595 400}%
-\special{pa -599 405}\special{pa -603 411}\special{pa -607 416}\special{pa -611 422}%
-\special{pa -615 428}\special{pa -619 434}\special{pa -622 439}\special{pa -626 445}%
-\special{pa -630 451}\special{pa -633 457}\special{pa -637 463}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.7800,-1.2900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce
deleted file mode 100644
index a68d6565..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p017.tex';
-Fnamesci='pointoncircle/p017.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.79153,-0.64303]'); Assignrep('mdbw1',[-0.79153,-0.64303]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-1.27485,-1.54103]]);
-pt1=Pointdata([-1.27485,-1.54103]);
-bw1=Bowdata([0,0],[-1.27485,-1.54103],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.79,-0.64],"c","$2$");
- Drwline(bw1);
- Letter([-1.4,-1.7],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex
deleted file mode 100644
index c53d6f4a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -502 607}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -499 604}\special{pa -505 604}\special{pa -505 609}\special{pa -499 609}%
-\special{pa -499 604}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.7900,-0.6400){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -6 3}\special{pa -12 7}\special{pa -18 10}\special{pa -24 13}%
-\special{pa -30 17}\special{pa -36 20}\special{pa -42 24}\special{pa -48 27}\special{pa -54 31}%
-\special{pa -60 34}\special{pa -66 38}\special{pa -72 42}\special{pa -77 45}\special{pa -83 49}%
-\special{pa -89 53}\special{pa -95 57}\special{pa -100 61}\special{pa -106 64}\special{pa -112 68}%
-\special{pa -117 72}\special{pa -123 76}\special{pa -129 80}\special{pa -134 85}\special{pa -140 89}%
-\special{pa -145 93}\special{pa -151 97}\special{pa -156 101}\special{pa -161 106}%
-\special{pa -167 110}\special{pa -172 114}\special{pa -178 119}\special{pa -183 123}%
-\special{pa -188 128}\special{pa -193 132}\special{pa -199 137}\special{pa -204 141}%
-\special{pa -209 146}\special{pa -214 150}\special{pa -219 155}\special{pa -224 160}%
-\special{pa -229 165}\special{pa -234 169}\special{pa -239 174}\special{pa -244 179}%
-\special{pa -249 184}\special{pa -254 189}\special{pa -258 194}\special{pa -263 199}%
-\special{pa -268 204}\special{pa -273 209}%
-\special{fp}%
-\special{pa -348 300}\special{pa -352 305}\special{pa -356 311}\special{pa -360 317}%
-\special{pa -364 322}\special{pa -368 328}\special{pa -372 334}\special{pa -376 339}%
-\special{pa -379 345}\special{pa -383 351}\special{pa -387 357}\special{pa -391 363}%
-\special{pa -394 368}\special{pa -398 374}\special{pa -401 380}\special{pa -405 386}%
-\special{pa -408 392}\special{pa -412 398}\special{pa -415 404}\special{pa -419 410}%
-\special{pa -422 416}\special{pa -425 422}\special{pa -428 428}\special{pa -432 434}%
-\special{pa -435 441}\special{pa -438 447}\special{pa -441 453}\special{pa -444 459}%
-\special{pa -447 465}\special{pa -450 472}\special{pa -453 478}\special{pa -456 484}%
-\special{pa -459 490}\special{pa -461 497}\special{pa -464 503}\special{pa -467 509}%
-\special{pa -469 516}\special{pa -472 522}\special{pa -475 529}\special{pa -477 535}%
-\special{pa -480 541}\special{pa -482 548}\special{pa -484 554}\special{pa -487 561}%
-\special{pa -489 567}\special{pa -491 574}\special{pa -493 580}\special{pa -496 587}%
-\special{pa -498 594}\special{pa -500 600}\special{pa -502 607}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-1.4000,-1.7000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce
deleted file mode 100644
index e176e434..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p018.tex';
-Fnamesci='pointoncircle/p018.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.60674,-0.81967]'); Assignrep('mdbw1',[-0.60674,-0.81967]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.85156,-1.80965]]);
-pt1=Pointdata([-0.85156,-1.80965]);
-bw1=Bowdata([0,0],[-0.85156,-1.80965],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.61,-0.82],"c","$2$");
- Drwline(bw1);
- Letter([-0.94,-1.99],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex
deleted file mode 100644
index 7fcf5a47..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -335 712}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -332 710}\special{pa -338 710}\special{pa -338 715}\special{pa -332 715}%
-\special{pa -332 710}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.6100,-0.8200){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -5 5}\special{pa -10 9}\special{pa -15 14}\special{pa -20 19}%
-\special{pa -25 24}\special{pa -30 28}\special{pa -35 33}\special{pa -40 38}\special{pa -45 43}%
-\special{pa -50 48}\special{pa -54 53}\special{pa -59 58}\special{pa -64 63}\special{pa -68 68}%
-\special{pa -73 73}\special{pa -78 78}\special{pa -82 84}\special{pa -87 89}\special{pa -91 94}%
-\special{pa -96 99}\special{pa -100 105}\special{pa -105 110}\special{pa -109 115}%
-\special{pa -113 121}\special{pa -118 126}\special{pa -122 131}\special{pa -126 137}%
-\special{pa -130 142}\special{pa -134 148}\special{pa -138 154}\special{pa -142 159}%
-\special{pa -146 165}\special{pa -150 170}\special{pa -154 176}\special{pa -158 182}%
-\special{pa -162 187}\special{pa -166 193}\special{pa -170 199}\special{pa -174 205}%
-\special{pa -177 211}\special{pa -181 216}\special{pa -185 222}\special{pa -188 228}%
-\special{pa -192 234}\special{pa -195 240}\special{pa -199 246}\special{pa -202 252}%
-\special{pa -206 258}\special{pa -209 264}\special{pa -212 270}%
-\special{fp}%
-\special{pa -262 377}\special{pa -265 383}\special{pa -268 390}\special{pa -270 396}%
-\special{pa -272 403}\special{pa -275 409}\special{pa -277 416}\special{pa -279 422}%
-\special{pa -282 429}\special{pa -284 435}\special{pa -286 442}\special{pa -288 448}%
-\special{pa -290 455}\special{pa -292 461}\special{pa -294 468}\special{pa -296 475}%
-\special{pa -298 481}\special{pa -300 488}\special{pa -302 495}\special{pa -303 501}%
-\special{pa -305 508}\special{pa -307 515}\special{pa -308 521}\special{pa -310 528}%
-\special{pa -312 535}\special{pa -313 542}\special{pa -314 548}\special{pa -316 555}%
-\special{pa -317 562}\special{pa -319 569}\special{pa -320 575}\special{pa -321 582}%
-\special{pa -322 589}\special{pa -323 596}\special{pa -324 603}\special{pa -325 609}%
-\special{pa -326 616}\special{pa -327 623}\special{pa -328 630}\special{pa -329 637}%
-\special{pa -330 644}\special{pa -331 651}\special{pa -331 657}\special{pa -332 664}%
-\special{pa -333 671}\special{pa -333 678}\special{pa -334 685}\special{pa -334 692}%
-\special{pa -335 699}\special{pa -335 706}\special{pa -335 712}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.9400,-1.9900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce
deleted file mode 100644
index 5b4af69a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p019.tex';
-Fnamesci='pointoncircle/p019.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.38384,-0.94481]'); Assignrep('mdbw1',[-0.38384,-0.94481]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[-0.37476,-1.96457]]);
-pt1=Pointdata([-0.37476,-1.96457]);
-bw1=Bowdata([0,0],[-0.37476,-1.96457],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.38,-0.94],"c","$2$");
- Drwline(bw1);
- Letter([-0.41,-2.16],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex
deleted file mode 100644
index e417ebd0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa -148 773}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa -145 771}\special{pa -150 771}\special{pa -150 776}\special{pa -145 776}%
-\special{pa -145 771}\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.3800,-0.9400){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -4 6}\special{pa -8 12}\special{pa -11 17}\special{pa -15 23}%
-\special{pa -19 29}\special{pa -22 35}\special{pa -26 41}\special{pa -29 47}\special{pa -33 53}%
-\special{pa -36 59}\special{pa -39 65}\special{pa -43 71}\special{pa -46 77}\special{pa -49 83}%
-\special{pa -53 89}\special{pa -56 95}\special{pa -59 101}\special{pa -62 108}\special{pa -65 114}%
-\special{pa -68 120}\special{pa -71 126}\special{pa -74 132}\special{pa -77 139}\special{pa -80 145}%
-\special{pa -82 151}\special{pa -85 158}\special{pa -88 164}\special{pa -91 170}\special{pa -93 177}%
-\special{pa -96 183}\special{pa -98 190}\special{pa -101 196}\special{pa -103 202}%
-\special{pa -106 209}\special{pa -108 215}\special{pa -110 222}\special{pa -113 228}%
-\special{pa -115 235}\special{pa -117 241}\special{pa -119 248}\special{pa -121 255}%
-\special{pa -123 261}\special{pa -126 268}\special{pa -127 274}\special{pa -129 281}%
-\special{pa -131 288}\special{pa -133 294}\special{pa -135 301}\special{pa -137 308}%
-\special{pa -138 314}%
-\special{fp}%
-\special{pa -161 430}\special{pa -161 437}\special{pa -162 444}\special{pa -163 451}%
-\special{pa -164 458}\special{pa -164 465}\special{pa -165 471}\special{pa -166 478}%
-\special{pa -166 485}\special{pa -167 492}\special{pa -167 499}\special{pa -168 506}%
-\special{pa -168 513}\special{pa -168 520}\special{pa -169 527}\special{pa -169 533}%
-\special{pa -169 540}\special{pa -169 547}\special{pa -169 554}\special{pa -169 561}%
-\special{pa -169 568}\special{pa -169 575}\special{pa -169 582}\special{pa -169 589}%
-\special{pa -169 596}\special{pa -169 602}\special{pa -168 609}\special{pa -168 616}%
-\special{pa -168 623}\special{pa -167 630}\special{pa -167 637}\special{pa -166 644}%
-\special{pa -166 651}\special{pa -165 657}\special{pa -164 664}\special{pa -164 671}%
-\special{pa -163 678}\special{pa -162 685}\special{pa -161 692}\special{pa -160 699}%
-\special{pa -159 705}\special{pa -158 712}\special{pa -157 719}\special{pa -156 726}%
-\special{pa -155 733}\special{pa -154 740}\special{pa -153 746}\special{pa -152 753}%
-\special{pa -150 760}\special{pa -149 767}\special{pa -148 773}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.4100,-2.1600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce
deleted file mode 100644
index aa167646..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p020.tex';
-Fnamesci='pointoncircle/p020.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[-0.13681,-1.01058]'); Assignrep('mdbw1',[-0.13681,-1.01058]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.12558,-1.99605]]);
-pt1=Pointdata([0.12558,-1.99605]);
-bw1=Bowdata([0,0],[0.12558,-1.99605],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([-0.14,-1.01],"c","$2$");
- Drwline(bw1);
- Letter([0.14,-2.2],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex
deleted file mode 100644
index 1ba69921..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 49 786}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 52 783}\special{pa 47 783}\special{pa 47 789}\special{pa 52 789}\special{pa 52 783}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(-0.1400,-1.0100){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -2 7}\special{pa -4 13}\special{pa -7 20}\special{pa -9 26}%
-\special{pa -11 33}\special{pa -13 39}\special{pa -15 46}\special{pa -17 53}\special{pa -18 59}%
-\special{pa -20 66}\special{pa -22 73}\special{pa -24 79}\special{pa -25 86}\special{pa -27 93}%
-\special{pa -29 99}\special{pa -30 106}\special{pa -32 113}\special{pa -33 120}\special{pa -35 126}%
-\special{pa -36 133}\special{pa -37 140}\special{pa -39 147}\special{pa -40 153}\special{pa -41 160}%
-\special{pa -42 167}\special{pa -43 174}\special{pa -44 181}\special{pa -45 188}\special{pa -46 194}%
-\special{pa -47 201}\special{pa -48 208}\special{pa -49 215}\special{pa -50 222}\special{pa -50 229}%
-\special{pa -51 235}\special{pa -52 242}\special{pa -52 249}\special{pa -53 256}\special{pa -53 263}%
-\special{pa -54 270}\special{pa -54 277}\special{pa -55 284}\special{pa -55 291}\special{pa -55 297}%
-\special{pa -55 304}\special{pa -56 311}\special{pa -56 318}\special{pa -56 325}\special{pa -56 332}%
-\special{pa -56 339}%
-\special{fp}%
-\special{pa -48 457}\special{pa -48 464}\special{pa -47 470}\special{pa -46 477}\special{pa -45 484}%
-\special{pa -44 491}\special{pa -43 498}\special{pa -42 504}\special{pa -40 511}\special{pa -39 518}%
-\special{pa -38 525}\special{pa -37 532}\special{pa -35 538}\special{pa -34 545}\special{pa -32 552}%
-\special{pa -31 559}\special{pa -29 565}\special{pa -28 572}\special{pa -26 579}\special{pa -24 585}%
-\special{pa -23 592}\special{pa -21 599}\special{pa -19 605}\special{pa -17 612}\special{pa -15 619}%
-\special{pa -13 625}\special{pa -11 632}\special{pa -9 639}\special{pa -7 645}\special{pa -5 652}%
-\special{pa -3 658}\special{pa -1 665}\special{pa 1 671}\special{pa 4 678}\special{pa 6 684}%
-\special{pa 8 691}\special{pa 11 697}\special{pa 13 704}\special{pa 16 710}\special{pa 18 717}%
-\special{pa 21 723}\special{pa 24 729}\special{pa 26 736}\special{pa 29 742}\special{pa 32 748}%
-\special{pa 35 755}\special{pa 38 761}\special{pa 40 767}\special{pa 43 773}\special{pa 46 780}%
-\special{pa 49 786}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.1400,-2.2000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce
deleted file mode 100644
index 0a58ae6e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p021.tex';
-Fnamesci='pointoncircle/p021.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.11881,-1.01286]'); Assignrep('mdbw1',[0.11881,-1.01286]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[0.61803,-1.90211]]);
-pt1=Pointdata([0.61803,-1.90211]);
-bw1=Bowdata([0,0],[0.61803,-1.90211],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.12,-1.01],"c","$2$");
- Drwline(bw1);
- Letter([0.68,-2.09],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex
deleted file mode 100644
index 80554147..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 243 749}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 246 746}\special{pa 241 746}\special{pa 241 752}\special{pa 246 752}\special{pa 246 746}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.1200,-1.0100){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa -1 7}\special{pa -1 14}\special{pa -1 21}\special{pa -2 28}%
-\special{pa -2 34}\special{pa -2 41}\special{pa -3 48}\special{pa -3 55}\special{pa -3 62}%
-\special{pa -3 69}\special{pa -3 76}\special{pa -3 83}\special{pa -3 90}\special{pa -3 97}%
-\special{pa -3 103}\special{pa -3 110}\special{pa -3 117}\special{pa -2 124}\special{pa -2 131}%
-\special{pa -2 138}\special{pa -1 145}\special{pa -1 152}\special{pa 0 159}\special{pa 0 165}%
-\special{pa 1 172}\special{pa 1 179}\special{pa 2 186}\special{pa 3 193}\special{pa 3 200}%
-\special{pa 4 207}\special{pa 5 213}\special{pa 6 220}\special{pa 7 227}\special{pa 8 234}%
-\special{pa 9 241}\special{pa 10 248}\special{pa 11 254}\special{pa 12 261}\special{pa 14 268}%
-\special{pa 15 275}\special{pa 16 282}\special{pa 18 288}\special{pa 19 295}\special{pa 20 302}%
-\special{pa 22 309}\special{pa 24 315}\special{pa 25 322}\special{pa 27 329}\special{pa 28 335}%
-\special{pa 30 342}%
-\special{fp}%
-\special{pa 67 454}\special{pa 69 461}\special{pa 72 467}\special{pa 74 474}\special{pa 77 480}%
-\special{pa 80 486}\special{pa 82 493}\special{pa 85 499}\special{pa 88 505}\special{pa 91 512}%
-\special{pa 94 518}\special{pa 97 524}\special{pa 100 530}\special{pa 103 536}\special{pa 106 543}%
-\special{pa 109 549}\special{pa 112 555}\special{pa 115 561}\special{pa 119 567}\special{pa 122 573}%
-\special{pa 125 579}\special{pa 129 585}\special{pa 132 591}\special{pa 136 597}\special{pa 139 603}%
-\special{pa 143 609}\special{pa 146 615}\special{pa 150 621}\special{pa 153 627}\special{pa 157 633}%
-\special{pa 161 638}\special{pa 165 644}\special{pa 168 650}\special{pa 172 656}\special{pa 176 661}%
-\special{pa 180 667}\special{pa 184 673}\special{pa 188 678}\special{pa 192 684}\special{pa 196 689}%
-\special{pa 200 695}\special{pa 204 701}\special{pa 209 706}\special{pa 213 711}\special{pa 217 717}%
-\special{pa 221 722}\special{pa 226 728}\special{pa 230 733}\special{pa 234 738}\special{pa 239 744}%
-\special{pa 243 749}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.6800,-2.0900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce
deleted file mode 100644
index d0bd9703..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p022.tex';
-Fnamesci='pointoncircle/p022.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.36696,-0.95149]'); Assignrep('mdbw1',[0.36696,-0.95149]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.07165,-1.68866]]);
-pt1=Pointdata([1.07165,-1.68866]);
-bw1=Bowdata([0,0],[1.07165,-1.68866],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.37,-0.95],"c","$2$");
- Drwline(bw1);
- Letter([1.18,-1.86],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex
deleted file mode 100644
index bd69e6b8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 422 665}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 425 662}\special{pa 419 662}\special{pa 419 668}\special{pa 425 668}\special{pa 425 662}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.3700,-0.9500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 1 7}\special{pa 2 14}\special{pa 4 20}\special{pa 5 27}%
-\special{pa 6 34}\special{pa 8 41}\special{pa 9 47}\special{pa 11 54}\special{pa 12 61}%
-\special{pa 14 68}\special{pa 16 74}\special{pa 17 81}\special{pa 19 88}\special{pa 21 94}%
-\special{pa 23 101}\special{pa 25 108}\special{pa 27 114}\special{pa 28 121}\special{pa 30 127}%
-\special{pa 33 134}\special{pa 35 141}\special{pa 37 147}\special{pa 39 154}\special{pa 41 160}%
-\special{pa 43 167}\special{pa 46 173}\special{pa 48 180}\special{pa 51 186}\special{pa 53 193}%
-\special{pa 55 199}\special{pa 58 206}\special{pa 61 212}\special{pa 63 218}\special{pa 66 225}%
-\special{pa 69 231}\special{pa 71 237}\special{pa 74 244}\special{pa 77 250}\special{pa 80 256}%
-\special{pa 83 262}\special{pa 86 269}\special{pa 89 275}\special{pa 92 281}\special{pa 95 287}%
-\special{pa 98 293}\special{pa 101 300}\special{pa 104 306}\special{pa 108 312}\special{pa 111 318}%
-\special{pa 114 324}%
-\special{fp}%
-\special{pa 178 424}\special{pa 182 429}\special{pa 186 435}\special{pa 190 440}\special{pa 194 446}%
-\special{pa 198 451}\special{pa 202 457}\special{pa 207 462}\special{pa 211 467}\special{pa 215 473}%
-\special{pa 220 478}\special{pa 224 483}\special{pa 229 489}\special{pa 233 494}\special{pa 238 499}%
-\special{pa 242 504}\special{pa 247 510}\special{pa 251 515}\special{pa 256 520}\special{pa 261 525}%
-\special{pa 265 530}\special{pa 270 535}\special{pa 275 540}\special{pa 280 545}\special{pa 285 550}%
-\special{pa 290 554}\special{pa 294 559}\special{pa 299 564}\special{pa 304 569}\special{pa 309 574}%
-\special{pa 314 578}\special{pa 320 583}\special{pa 325 588}\special{pa 330 592}\special{pa 335 597}%
-\special{pa 340 601}\special{pa 345 606}\special{pa 351 610}\special{pa 356 615}\special{pa 361 619}%
-\special{pa 367 623}\special{pa 372 628}\special{pa 378 632}\special{pa 383 636}\special{pa 388 640}%
-\special{pa 394 645}\special{pa 400 649}\special{pa 405 653}\special{pa 411 657}\special{pa 416 661}%
-\special{pa 422 665}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.1800,-1.8600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce
deleted file mode 100644
index 6084fa23..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p023.tex';
-Fnamesci='pointoncircle/p023.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.59206,-0.83034]'); Assignrep('mdbw1',[0.59206,-0.83034]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.45794,-1.36909]]);
-pt1=Pointdata([1.45794,-1.36909]);
-bw1=Bowdata([0,0],[1.45794,-1.36909],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.59,-0.83],"c","$2$");
- Drwline(bw1);
- Letter([1.6,-1.51],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex
deleted file mode 100644
index 8aa2ac69..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 574 539}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 577 536}\special{pa 571 536}\special{pa 571 542}\special{pa 577 542}\special{pa 577 536}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.5900,-0.8300){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 3 6}\special{pa 6 13}\special{pa 9 19}\special{pa 12 25}%
-\special{pa 15 31}\special{pa 18 37}\special{pa 21 44}\special{pa 24 50}\special{pa 27 56}%
-\special{pa 30 62}\special{pa 34 68}\special{pa 37 74}\special{pa 40 80}\special{pa 44 86}%
-\special{pa 47 92}\special{pa 51 98}\special{pa 54 104}\special{pa 58 110}\special{pa 61 116}%
-\special{pa 65 122}\special{pa 69 128}\special{pa 72 133}\special{pa 76 139}\special{pa 80 145}%
-\special{pa 84 151}\special{pa 87 156}\special{pa 91 162}\special{pa 95 168}\special{pa 99 173}%
-\special{pa 103 179}\special{pa 107 185}\special{pa 111 190}\special{pa 116 196}\special{pa 120 201}%
-\special{pa 124 207}\special{pa 128 212}\special{pa 132 218}\special{pa 137 223}\special{pa 141 228}%
-\special{pa 145 234}\special{pa 150 239}\special{pa 154 244}\special{pa 159 249}\special{pa 163 255}%
-\special{pa 168 260}\special{pa 173 265}\special{pa 177 270}\special{pa 182 275}\special{pa 187 280}%
-\special{pa 191 285}%
-\special{fp}%
-\special{pa 277 366}\special{pa 283 370}\special{pa 288 375}\special{pa 293 379}\special{pa 299 383}%
-\special{pa 304 388}\special{pa 310 392}\special{pa 315 396}\special{pa 321 400}\special{pa 326 404}%
-\special{pa 332 409}\special{pa 337 413}\special{pa 343 417}\special{pa 349 421}\special{pa 354 424}%
-\special{pa 360 428}\special{pa 366 432}\special{pa 371 436}\special{pa 377 440}\special{pa 383 444}%
-\special{pa 389 447}\special{pa 395 451}\special{pa 401 454}\special{pa 406 458}\special{pa 412 462}%
-\special{pa 418 465}\special{pa 424 469}\special{pa 430 472}\special{pa 436 475}\special{pa 442 479}%
-\special{pa 448 482}\special{pa 455 485}\special{pa 461 488}\special{pa 467 492}\special{pa 473 495}%
-\special{pa 479 498}\special{pa 485 501}\special{pa 491 504}\special{pa 498 507}\special{pa 504 510}%
-\special{pa 510 513}\special{pa 517 515}\special{pa 523 518}\special{pa 529 521}\special{pa 536 524}%
-\special{pa 542 526}\special{pa 548 529}\special{pa 555 532}\special{pa 561 534}\special{pa 568 537}%
-\special{pa 574 539}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.6000,-1.5100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce
deleted file mode 100644
index 13cccf91..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p024.tex';
-Fnamesci='pointoncircle/p024.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.77996,-0.65702]'); Assignrep('mdbw1',[0.77996,-0.65702]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.75261,-0.96351]]);
-pt1=Pointdata([1.75261,-0.96351]);
-bw1=Bowdata([0,0],[1.75261,-0.96351],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.78,-0.66],"c","$2$");
- Drwline(bw1);
- Letter([1.93,-1.06],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex
deleted file mode 100644
index d99ee59f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 690 379}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 693 377}\special{pa 687 377}\special{pa 687 382}\special{pa 693 382}\special{pa 693 377}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.7800,-0.6600){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 4 5}\special{pa 9 11}\special{pa 13 16}\special{pa 18 21}%
-\special{pa 22 27}\special{pa 26 32}\special{pa 31 37}\special{pa 36 42}\special{pa 40 47}%
-\special{pa 45 52}\special{pa 49 58}\special{pa 54 63}\special{pa 59 68}\special{pa 64 73}%
-\special{pa 69 78}\special{pa 73 82}\special{pa 78 87}\special{pa 83 92}\special{pa 88 97}%
-\special{pa 93 102}\special{pa 98 107}\special{pa 103 111}\special{pa 108 116}\special{pa 113 121}%
-\special{pa 118 125}\special{pa 124 130}\special{pa 129 134}\special{pa 134 139}\special{pa 139 143}%
-\special{pa 145 148}\special{pa 150 152}\special{pa 155 157}\special{pa 161 161}\special{pa 166 165}%
-\special{pa 171 169}\special{pa 177 174}\special{pa 182 178}\special{pa 188 182}\special{pa 193 186}%
-\special{pa 199 190}\special{pa 205 194}\special{pa 210 198}\special{pa 216 202}\special{pa 222 206}%
-\special{pa 227 210}\special{pa 233 214}\special{pa 239 218}\special{pa 245 221}\special{pa 250 225}%
-\special{pa 256 229}%
-\special{fp}%
-\special{pa 360 286}\special{pa 366 289}\special{pa 372 291}\special{pa 378 294}\special{pa 385 297}%
-\special{pa 391 300}\special{pa 397 303}\special{pa 404 305}\special{pa 410 308}\special{pa 416 311}%
-\special{pa 423 313}\special{pa 429 316}\special{pa 436 318}\special{pa 442 321}\special{pa 449 323}%
-\special{pa 455 325}\special{pa 462 328}\special{pa 468 330}\special{pa 475 332}\special{pa 481 334}%
-\special{pa 488 336}\special{pa 494 339}\special{pa 501 341}\special{pa 508 343}\special{pa 514 345}%
-\special{pa 521 346}\special{pa 527 348}\special{pa 534 350}\special{pa 541 352}\special{pa 548 354}%
-\special{pa 554 355}\special{pa 561 357}\special{pa 568 359}\special{pa 574 360}\special{pa 581 362}%
-\special{pa 588 363}\special{pa 595 364}\special{pa 601 366}\special{pa 608 367}\special{pa 615 368}%
-\special{pa 622 370}\special{pa 628 371}\special{pa 635 372}\special{pa 642 373}\special{pa 649 374}%
-\special{pa 656 375}\special{pa 663 376}\special{pa 669 377}\special{pa 676 378}\special{pa 683 379}%
-\special{pa 690 379}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.9300,-1.0600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce
deleted file mode 100644
index 99337104..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p025.tex';
-Fnamesci='pointoncircle/p025.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.91885,-0.44241]'); Assignrep('mdbw1',[0.91885,-0.44241]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.93717,-0.49738]]);
-pt1=Pointdata([1.93717,-0.49738]);
-bw1=Bowdata([0,0],[1.93717,-0.49738],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.92,-0.44],"c","$2$");
- Drwline(bw1);
- Letter([2.13,-0.55],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex
deleted file mode 100644
index fb5c827f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 763 196}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 765 193}\special{pa 760 193}\special{pa 760 199}\special{pa 765 199}\special{pa 765 193}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(0.9200,-0.4400){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 6 4}\special{pa 11 8}\special{pa 17 12}\special{pa 22 16}%
-\special{pa 28 20}\special{pa 34 24}\special{pa 39 28}\special{pa 45 32}\special{pa 51 36}%
-\special{pa 56 40}\special{pa 62 43}\special{pa 68 47}\special{pa 74 51}\special{pa 80 54}%
-\special{pa 86 58}\special{pa 92 62}\special{pa 98 65}\special{pa 103 69}\special{pa 109 72}%
-\special{pa 115 75}\special{pa 121 79}\special{pa 128 82}\special{pa 134 85}\special{pa 140 89}%
-\special{pa 146 92}\special{pa 152 95}\special{pa 158 98}\special{pa 164 101}\special{pa 171 104}%
-\special{pa 177 107}\special{pa 183 110}\special{pa 189 113}\special{pa 196 116}\special{pa 202 119}%
-\special{pa 208 121}\special{pa 214 124}\special{pa 221 127}\special{pa 227 130}\special{pa 234 132}%
-\special{pa 240 135}\special{pa 246 137}\special{pa 253 140}\special{pa 259 142}\special{pa 266 144}%
-\special{pa 272 147}\special{pa 279 149}\special{pa 285 151}\special{pa 292 154}\special{pa 298 156}%
-\special{pa 305 158}%
-\special{fp}%
-\special{pa 419 187}\special{pa 426 189}\special{pa 433 190}\special{pa 440 191}\special{pa 446 192}%
-\special{pa 453 193}\special{pa 460 194}\special{pa 467 195}\special{pa 474 196}\special{pa 481 197}%
-\special{pa 487 198}\special{pa 494 199}\special{pa 501 200}\special{pa 508 201}\special{pa 515 201}%
-\special{pa 522 202}\special{pa 529 203}\special{pa 536 203}\special{pa 542 204}\special{pa 549 204}%
-\special{pa 556 205}\special{pa 563 205}\special{pa 570 205}\special{pa 577 206}\special{pa 584 206}%
-\special{pa 591 206}\special{pa 598 206}\special{pa 604 206}\special{pa 611 206}\special{pa 618 206}%
-\special{pa 625 206}\special{pa 632 206}\special{pa 639 206}\special{pa 646 206}\special{pa 653 206}%
-\special{pa 660 205}\special{pa 667 205}\special{pa 673 205}\special{pa 680 204}\special{pa 687 204}%
-\special{pa 694 203}\special{pa 701 203}\special{pa 708 202}\special{pa 715 202}\special{pa 722 201}%
-\special{pa 728 200}\special{pa 735 199}\special{pa 742 199}\special{pa 749 198}\special{pa 756 197}%
-\special{pa 763 196}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(2.1300,-0.5500){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce
deleted file mode 100644
index 50200087..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p026.tex';
-Fnamesci='pointoncircle/p026.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[2,0]]);
-pt1=Pointdata([2,0]);
-bw1=Bowdata([0,0],[2,0],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([1,-0.2],"c","$2$");
- Drwline(bw1);
- Letter([2.2,0],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex
deleted file mode 100644
index 89c96f2c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex
+++ /dev/null
@@ -1,88 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex 2017-8-19 10:56
-%%% figs0706animateall.sce 2017-8-19 10:55
-{\unitlength=1cm%
-\begin{picture}%
-( 5.00000, 5.00000)( -2.50000, -2.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}%
-\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}%
-\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}%
-\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}%
-\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}%
-\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}%
-\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}%
-\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}%
-\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}%
-\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}%
-\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}%
-\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}%
-\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\color[cmyk]{0,1,1,0}%
-\special{pa 0 0}\special{pa 787 0}%
-\special{fp}%
-\color[cmyk]{0,0,0,1}%
-\special{pn 1}%
-\special{pa 790 -3}\special{pa 785 -3}\special{pa 785 3}\special{pa 790 3}\special{pa 790 -3}%
-\special{sh 1}\special{fp}%
-\special{pn 8}%
-\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(1.0000,-0.2000){\hspace*{\Width}\raisebox{\Height}{$2$}}%
-%
-%
-\special{pa 0 0}\special{pa 6 3}\special{pa 13 5}\special{pa 19 8}\special{pa 26 10}%
-\special{pa 32 13}\special{pa 39 15}\special{pa 45 18}\special{pa 52 20}\special{pa 58 22}%
-\special{pa 65 24}\special{pa 71 27}\special{pa 78 29}\special{pa 84 31}\special{pa 91 33}%
-\special{pa 97 35}\special{pa 104 37}\special{pa 111 39}\special{pa 117 41}\special{pa 124 43}%
-\special{pa 131 44}\special{pa 137 46}\special{pa 144 48}\special{pa 151 49}\special{pa 157 51}%
-\special{pa 164 53}\special{pa 171 54}\special{pa 178 56}\special{pa 184 57}\special{pa 191 58}%
-\special{pa 198 60}\special{pa 205 61}\special{pa 211 62}\special{pa 218 64}\special{pa 225 65}%
-\special{pa 232 66}\special{pa 239 67}\special{pa 245 68}\special{pa 252 69}\special{pa 259 70}%
-\special{pa 266 71}\special{pa 273 72}\special{pa 280 72}\special{pa 287 73}\special{pa 293 74}%
-\special{pa 300 74}\special{pa 307 75}\special{pa 314 76}\special{pa 321 76}\special{pa 328 77}%
-\special{pa 335 77}%
-\special{fp}%
-\special{pa 453 77}\special{pa 460 77}\special{pa 466 76}\special{pa 473 76}\special{pa 480 75}%
-\special{pa 487 74}\special{pa 494 74}\special{pa 501 73}\special{pa 508 72}\special{pa 515 72}%
-\special{pa 521 71}\special{pa 528 70}\special{pa 535 69}\special{pa 542 68}\special{pa 549 67}%
-\special{pa 556 66}\special{pa 562 65}\special{pa 569 64}\special{pa 576 62}\special{pa 583 61}%
-\special{pa 590 60}\special{pa 596 58}\special{pa 603 57}\special{pa 610 56}\special{pa 617 54}%
-\special{pa 623 53}\special{pa 630 51}\special{pa 637 49}\special{pa 643 48}\special{pa 650 46}%
-\special{pa 657 44}\special{pa 663 43}\special{pa 670 41}\special{pa 677 39}\special{pa 683 37}%
-\special{pa 690 35}\special{pa 697 33}\special{pa 703 31}\special{pa 710 29}\special{pa 716 27}%
-\special{pa 723 24}\special{pa 729 22}\special{pa 736 20}\special{pa 742 18}\special{pa 749 15}%
-\special{pa 755 13}\special{pa 762 10}\special{pa 768 8}\special{pa 775 5}\special{pa 781 3}%
-\special{pa 787 0}%
-\special{fp}%
-\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
-\put(2.2000,0.0000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}%
-%
-%
-\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.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,2.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt
deleted file mode 100644
index c0e52bd3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt
+++ /dev/null
@@ -1 +0,0 @@
-||||
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex
deleted file mode 100644
index 26255ecf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex
+++ /dev/null
@@ -1,41 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve.tex 2016-12-27 16:35
-%%% sinecurve.sce 2016-12-27 16:35
-{\unitlength=1cm%
-\begin{picture}%
-( 7.00000, 3.00000)( -3.50000, -1.50000)%
-\special{pn 8}%
-%
-\special{pa -1378 191}\special{pa -1323 237}\special{pa -1268 279}\special{pa -1213 315}%
-\special{pa -1157 345}\special{pa -1102 368}\special{pa -1047 384}\special{pa -992 392}%
-\special{pa -937 393}\special{pa -882 386}\special{pa -827 372}\special{pa -772 350}%
-\special{pa -717 321}\special{pa -661 287}\special{pa -606 246}\special{pa -551 201}%
-\special{pa -496 152}\special{pa -441 99}\special{pa -386 45}\special{pa -331 -10}%
-\special{pa -276 -65}\special{pa -220 -118}\special{pa -165 -169}\special{pa -110 -217}%
-\special{pa -55 -261}\special{pa 0 -300}\special{pa 55 -332}\special{pa 110 -359}%
-\special{pa 165 -378}\special{pa 220 -390}\special{pa 276 -394}\special{pa 331 -390}%
-\special{pa 386 -379}\special{pa 441 -360}\special{pa 496 -335}\special{pa 551 -303}%
-\special{pa 606 -264}\special{pa 661 -221}\special{pa 717 -174}\special{pa 772 -123}%
-\special{pa 827 -69}\special{pa 882 -14}\special{pa 937 41}\special{pa 992 95}\special{pa 1047 147}%
-\special{pa 1102 197}\special{pa 1157 242}\special{pa 1213 283}\special{pa 1268 319}%
-\special{pa 1323 348}\special{pa 1378 370}%
-\special{fp}%
-\special{pa -1378 0}\special{pa 1378 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(3.5500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce
deleted file mode 100644
index 1888e4b6..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce
+++ /dev/null
@@ -1,942 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p001.tex';
-Fnamesci='sinecurve/p001.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-3))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p001.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-2.63333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p002.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-2.26667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p003.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.9))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p004.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.53333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p005.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.16667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p006.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p007.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.43333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p008.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.06667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p009.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(0.3))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p010.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(0.66667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p011.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.03333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p012.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.4))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p013.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.76667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p014.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.13333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p015.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.5))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p016.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.86667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p017.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.23333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p018.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.6))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p019.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.96667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p020.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(4.33333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p021.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(4.7))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p022.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.06667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p023.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.43333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p024.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p025.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.16667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p026.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.53333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p027.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.9))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p028.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(7.26667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p029.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(7.63333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p030.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p031.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce
deleted file mode 100644
index cb1fe21b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p001.tex';
-Fnamesci='sinecurve/p001.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-3))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p001.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex
deleted file mode 100644
index 43593231..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p001.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 0}\special{pa -1094 -86}\special{pa -1008 -168}\special{pa -921 -241}%
-\special{pa -835 -303}\special{pa -748 -351}\special{pa -661 -381}\special{pa -575 -394}%
-\special{pa -488 -387}\special{pa -402 -361}\special{pa -315 -318}\special{pa -228 -260}%
-\special{pa -142 -189}\special{pa -55 -109}\special{pa 31 -24}\special{pa 118 62}%
-\special{pa 205 145}\special{pa 291 222}\special{pa 378 287}\special{pa 465 339}\special{pa 551 375}%
-\special{pa 638 392}\special{pa 724 390}\special{pa 811 370}\special{pa 898 332}\special{pa 984 278}%
-\special{pa 1071 210}\special{pa 1157 132}\special{pa 1244 48}\special{pa 1331 -38}%
-\special{pa 1417 -123}\special{pa 1504 -201}\special{pa 1591 -270}\special{pa 1677 -326}%
-\special{pa 1764 -366}\special{pa 1850 -389}\special{pa 1937 -393}\special{pa 2024 -378}%
-\special{pa 2110 -344}\special{pa 2197 -294}\special{pa 2283 -230}\special{pa 2370 -155}%
-\special{pa 2457 -72}\special{pa 2543 14}\special{pa 2630 99}\special{pa 2717 180}%
-\special{pa 2803 252}\special{pa 2890 312}\special{pa 2976 357}\special{pa 3063 385}%
-\special{pa 3150 394}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce
deleted file mode 100644
index d0aa72ce..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p002.tex';
-Fnamesci='sinecurve/p002.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-2.63333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p002.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex
deleted file mode 100644
index 9f89b2fd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p002.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 141}\special{pa -1094 58}\special{pa -1008 -29}\special{pa -921 -114}%
-\special{pa -835 -193}\special{pa -748 -264}\special{pa -661 -321}\special{pa -575 -363}%
-\special{pa -488 -388}\special{pa -402 -393}\special{pa -315 -380}\special{pa -228 -349}%
-\special{pa -142 -300}\special{pa -55 -238}\special{pa 31 -164}\special{pa 118 -81}%
-\special{pa 205 5}\special{pa 291 90}\special{pa 378 172}\special{pa 465 245}\special{pa 551 306}%
-\special{pa 638 353}\special{pa 724 383}\special{pa 811 394}\special{pa 898 386}\special{pa 984 359}%
-\special{pa 1071 316}\special{pa 1157 257}\special{pa 1244 185}\special{pa 1331 105}%
-\special{pa 1417 20}\special{pa 1504 -67}\special{pa 1591 -150}\special{pa 1677 -226}%
-\special{pa 1764 -291}\special{pa 1850 -342}\special{pa 1937 -376}\special{pa 2024 -392}%
-\special{pa 2110 -390}\special{pa 2197 -369}\special{pa 2283 -329}\special{pa 2370 -274}%
-\special{pa 2457 -206}\special{pa 2543 -128}\special{pa 2630 -44}\special{pa 2717 43}%
-\special{pa 2803 127}\special{pa 2890 205}\special{pa 2976 274}\special{pa 3063 329}%
-\special{pa 3150 368}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce
deleted file mode 100644
index 12547148..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p003.tex';
-Fnamesci='sinecurve/p003.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-2.26667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p003.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex
deleted file mode 100644
index 9eefac61..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p003.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 264}\special{pa -1094 193}\special{pa -1008 114}\special{pa -921 29}%
-\special{pa -835 -58}\special{pa -748 -141}\special{pa -661 -218}\special{pa -575 -284}%
-\special{pa -488 -337}\special{pa -402 -373}\special{pa -315 -392}\special{pa -228 -391}%
-\special{pa -142 -372}\special{pa -55 -334}\special{pa 31 -281}\special{pa 118 -214}%
-\special{pa 205 -137}\special{pa 291 -53}\special{pa 378 33}\special{pa 465 118}\special{pa 551 197}%
-\special{pa 638 267}\special{pa 724 324}\special{pa 811 365}\special{pa 898 388}\special{pa 984 393}%
-\special{pa 1071 379}\special{pa 1157 347}\special{pa 1244 297}\special{pa 1331 234}%
-\special{pa 1417 159}\special{pa 1504 77}\special{pa 1591 -9}\special{pa 1677 -95}%
-\special{pa 1764 -176}\special{pa 1850 -249}\special{pa 1937 -309}\special{pa 2024 -355}%
-\special{pa 2110 -384}\special{pa 2197 -394}\special{pa 2283 -385}\special{pa 2370 -357}%
-\special{pa 2457 -313}\special{pa 2543 -253}\special{pa 2630 -181}\special{pa 2717 -100}%
-\special{pa 2803 -15}\special{pa 2890 71}\special{pa 2976 154}\special{pa 3063 229}%
-\special{pa 3150 294}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce
deleted file mode 100644
index 60554cf1..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p004.tex';
-Fnamesci='sinecurve/p004.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.9))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p004.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex
deleted file mode 100644
index 4c10d81f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p004.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 351}\special{pa -1094 303}\special{pa -1008 241}\special{pa -921 168}%
-\special{pa -835 86}\special{pa -748 0}\special{pa -661 -86}\special{pa -575 -168}%
-\special{pa -488 -241}\special{pa -402 -303}\special{pa -315 -351}\special{pa -228 -381}%
-\special{pa -142 -394}\special{pa -55 -387}\special{pa 31 -361}\special{pa 118 -318}%
-\special{pa 205 -260}\special{pa 291 -189}\special{pa 378 -109}\special{pa 465 -24}%
-\special{pa 551 62}\special{pa 638 145}\special{pa 724 222}\special{pa 811 287}\special{pa 898 339}%
-\special{pa 984 375}\special{pa 1071 392}\special{pa 1157 390}\special{pa 1244 370}%
-\special{pa 1331 332}\special{pa 1417 278}\special{pa 1504 210}\special{pa 1591 132}%
-\special{pa 1677 48}\special{pa 1764 -38}\special{pa 1850 -123}\special{pa 1937 -201}%
-\special{pa 2024 -270}\special{pa 2110 -326}\special{pa 2197 -366}\special{pa 2283 -389}%
-\special{pa 2370 -393}\special{pa 2457 -378}\special{pa 2543 -344}\special{pa 2630 -294}%
-\special{pa 2717 -230}\special{pa 2803 -155}\special{pa 2890 -72}\special{pa 2976 14}%
-\special{pa 3063 99}\special{pa 3150 180}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce
deleted file mode 100644
index a342e35e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p005.tex';
-Fnamesci='sinecurve/p005.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.53333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p005.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex
deleted file mode 100644
index 619a2505..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p005.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 392}\special{pa -1094 373}\special{pa -1008 337}\special{pa -921 284}%
-\special{pa -835 218}\special{pa -748 141}\special{pa -661 58}\special{pa -575 -29}%
-\special{pa -488 -114}\special{pa -402 -193}\special{pa -315 -264}\special{pa -228 -321}%
-\special{pa -142 -363}\special{pa -55 -388}\special{pa 31 -393}\special{pa 118 -380}%
-\special{pa 205 -349}\special{pa 291 -300}\special{pa 378 -238}\special{pa 465 -164}%
-\special{pa 551 -81}\special{pa 638 5}\special{pa 724 90}\special{pa 811 172}\special{pa 898 245}%
-\special{pa 984 306}\special{pa 1071 353}\special{pa 1157 383}\special{pa 1244 394}%
-\special{pa 1331 386}\special{pa 1417 359}\special{pa 1504 316}\special{pa 1591 257}%
-\special{pa 1677 185}\special{pa 1764 105}\special{pa 1850 20}\special{pa 1937 -67}%
-\special{pa 2024 -150}\special{pa 2110 -226}\special{pa 2197 -291}\special{pa 2283 -342}%
-\special{pa 2370 -376}\special{pa 2457 -392}\special{pa 2543 -390}\special{pa 2630 -369}%
-\special{pa 2717 -329}\special{pa 2803 -274}\special{pa 2890 -206}\special{pa 2976 -128}%
-\special{pa 3063 -44}\special{pa 3150 43}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce
deleted file mode 100644
index 5dbaa7e3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p006.tex';
-Fnamesci='sinecurve/p006.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-1.16667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p006.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex
deleted file mode 100644
index b9027832..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p006.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 380}\special{pa -1094 393}\special{pa -1008 388}\special{pa -921 363}%
-\special{pa -835 321}\special{pa -748 264}\special{pa -661 193}\special{pa -575 114}%
-\special{pa -488 29}\special{pa -402 -58}\special{pa -315 -141}\special{pa -228 -218}%
-\special{pa -142 -284}\special{pa -55 -337}\special{pa 31 -373}\special{pa 118 -392}%
-\special{pa 205 -391}\special{pa 291 -372}\special{pa 378 -334}\special{pa 465 -281}%
-\special{pa 551 -214}\special{pa 638 -137}\special{pa 724 -53}\special{pa 811 33}%
-\special{pa 898 118}\special{pa 984 197}\special{pa 1071 267}\special{pa 1157 324}%
-\special{pa 1244 365}\special{pa 1331 388}\special{pa 1417 393}\special{pa 1504 379}%
-\special{pa 1591 347}\special{pa 1677 297}\special{pa 1764 234}\special{pa 1850 159}%
-\special{pa 1937 77}\special{pa 2024 -9}\special{pa 2110 -95}\special{pa 2197 -176}%
-\special{pa 2283 -249}\special{pa 2370 -309}\special{pa 2457 -355}\special{pa 2543 -384}%
-\special{pa 2630 -394}\special{pa 2717 -385}\special{pa 2803 -357}\special{pa 2890 -313}%
-\special{pa 2976 -253}\special{pa 3063 -181}\special{pa 3150 -100}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce
deleted file mode 100644
index 457ea9d8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p007.tex';
-Fnamesci='sinecurve/p007.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p007.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex
deleted file mode 100644
index a9fafae8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p007.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 318}\special{pa -1094 361}\special{pa -1008 387}\special{pa -921 394}%
-\special{pa -835 381}\special{pa -748 351}\special{pa -661 303}\special{pa -575 241}%
-\special{pa -488 168}\special{pa -402 86}\special{pa -315 0}\special{pa -228 -86}%
-\special{pa -142 -168}\special{pa -55 -241}\special{pa 31 -303}\special{pa 118 -351}%
-\special{pa 205 -381}\special{pa 291 -394}\special{pa 378 -387}\special{pa 465 -361}%
-\special{pa 551 -318}\special{pa 638 -260}\special{pa 724 -189}\special{pa 811 -109}%
-\special{pa 898 -24}\special{pa 984 62}\special{pa 1071 145}\special{pa 1157 222}%
-\special{pa 1244 287}\special{pa 1331 339}\special{pa 1417 375}\special{pa 1504 392}%
-\special{pa 1591 390}\special{pa 1677 370}\special{pa 1764 332}\special{pa 1850 278}%
-\special{pa 1937 210}\special{pa 2024 132}\special{pa 2110 48}\special{pa 2197 -38}%
-\special{pa 2283 -123}\special{pa 2370 -201}\special{pa 2457 -270}\special{pa 2543 -326}%
-\special{pa 2630 -366}\special{pa 2717 -389}\special{pa 2803 -393}\special{pa 2890 -378}%
-\special{pa 2976 -344}\special{pa 3063 -294}\special{pa 3150 -230}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce
deleted file mode 100644
index 945804fb..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p008.tex';
-Fnamesci='sinecurve/p008.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.43333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p008.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex
deleted file mode 100644
index ebd7f7f8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p008.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 214}\special{pa -1094 281}\special{pa -1008 334}\special{pa -921 372}%
-\special{pa -835 391}\special{pa -748 392}\special{pa -661 373}\special{pa -575 337}%
-\special{pa -488 284}\special{pa -402 218}\special{pa -315 141}\special{pa -228 58}%
-\special{pa -142 -29}\special{pa -55 -114}\special{pa 31 -193}\special{pa 118 -264}%
-\special{pa 205 -321}\special{pa 291 -363}\special{pa 378 -388}\special{pa 465 -393}%
-\special{pa 551 -380}\special{pa 638 -349}\special{pa 724 -300}\special{pa 811 -238}%
-\special{pa 898 -164}\special{pa 984 -81}\special{pa 1071 5}\special{pa 1157 90}\special{pa 1244 172}%
-\special{pa 1331 245}\special{pa 1417 306}\special{pa 1504 353}\special{pa 1591 383}%
-\special{pa 1677 394}\special{pa 1764 386}\special{pa 1850 359}\special{pa 1937 316}%
-\special{pa 2024 257}\special{pa 2110 185}\special{pa 2197 105}\special{pa 2283 20}%
-\special{pa 2370 -67}\special{pa 2457 -150}\special{pa 2543 -226}\special{pa 2630 -291}%
-\special{pa 2717 -342}\special{pa 2803 -376}\special{pa 2890 -392}\special{pa 2976 -390}%
-\special{pa 3063 -369}\special{pa 3150 -329}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce
deleted file mode 100644
index 5d235d9d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p009.tex';
-Fnamesci='sinecurve/p009.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(-0.06667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p009.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex
deleted file mode 100644
index b4a56425..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p009.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 81}\special{pa -1094 164}\special{pa -1008 238}\special{pa -921 300}%
-\special{pa -835 349}\special{pa -748 380}\special{pa -661 393}\special{pa -575 388}%
-\special{pa -488 363}\special{pa -402 321}\special{pa -315 264}\special{pa -228 193}%
-\special{pa -142 114}\special{pa -55 29}\special{pa 31 -58}\special{pa 118 -141}\special{pa 205 -218}%
-\special{pa 291 -284}\special{pa 378 -337}\special{pa 465 -373}\special{pa 551 -392}%
-\special{pa 638 -391}\special{pa 724 -372}\special{pa 811 -334}\special{pa 898 -281}%
-\special{pa 984 -214}\special{pa 1071 -137}\special{pa 1157 -53}\special{pa 1244 33}%
-\special{pa 1331 118}\special{pa 1417 197}\special{pa 1504 267}\special{pa 1591 324}%
-\special{pa 1677 365}\special{pa 1764 388}\special{pa 1850 393}\special{pa 1937 379}%
-\special{pa 2024 347}\special{pa 2110 297}\special{pa 2197 234}\special{pa 2283 159}%
-\special{pa 2370 77}\special{pa 2457 -9}\special{pa 2543 -95}\special{pa 2630 -176}%
-\special{pa 2717 -249}\special{pa 2803 -309}\special{pa 2890 -355}\special{pa 2976 -384}%
-\special{pa 3063 -394}\special{pa 3150 -385}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce
deleted file mode 100644
index 3724a1e7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p010.tex';
-Fnamesci='sinecurve/p010.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(0.3))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p010.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex
deleted file mode 100644
index 66122274..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p010.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -62}\special{pa -1094 24}\special{pa -1008 109}\special{pa -921 189}%
-\special{pa -835 260}\special{pa -748 318}\special{pa -661 361}\special{pa -575 387}%
-\special{pa -488 394}\special{pa -402 381}\special{pa -315 351}\special{pa -228 303}%
-\special{pa -142 241}\special{pa -55 168}\special{pa 31 86}\special{pa 118 0}\special{pa 205 -86}%
-\special{pa 291 -168}\special{pa 378 -241}\special{pa 465 -303}\special{pa 551 -351}%
-\special{pa 638 -381}\special{pa 724 -394}\special{pa 811 -387}\special{pa 898 -361}%
-\special{pa 984 -318}\special{pa 1071 -260}\special{pa 1157 -189}\special{pa 1244 -109}%
-\special{pa 1331 -24}\special{pa 1417 62}\special{pa 1504 145}\special{pa 1591 222}%
-\special{pa 1677 287}\special{pa 1764 339}\special{pa 1850 375}\special{pa 1937 392}%
-\special{pa 2024 390}\special{pa 2110 370}\special{pa 2197 332}\special{pa 2283 278}%
-\special{pa 2370 210}\special{pa 2457 132}\special{pa 2543 48}\special{pa 2630 -38}%
-\special{pa 2717 -123}\special{pa 2803 -201}\special{pa 2890 -270}\special{pa 2976 -326}%
-\special{pa 3063 -366}\special{pa 3150 -389}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce
deleted file mode 100644
index b5bc6e0b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p011.tex';
-Fnamesci='sinecurve/p011.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(0.66667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p011.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex
deleted file mode 100644
index 9b45f720..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p011.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -197}\special{pa -1094 -118}\special{pa -1008 -33}\special{pa -921 53}%
-\special{pa -835 137}\special{pa -748 214}\special{pa -661 281}\special{pa -575 334}%
-\special{pa -488 372}\special{pa -402 391}\special{pa -315 392}\special{pa -228 373}%
-\special{pa -142 337}\special{pa -55 284}\special{pa 31 218}\special{pa 118 141}\special{pa 205 58}%
-\special{pa 291 -29}\special{pa 378 -114}\special{pa 465 -193}\special{pa 551 -264}%
-\special{pa 638 -321}\special{pa 724 -363}\special{pa 811 -388}\special{pa 898 -393}%
-\special{pa 984 -380}\special{pa 1071 -349}\special{pa 1157 -300}\special{pa 1244 -238}%
-\special{pa 1331 -164}\special{pa 1417 -81}\special{pa 1504 5}\special{pa 1591 90}%
-\special{pa 1677 172}\special{pa 1764 245}\special{pa 1850 306}\special{pa 1937 353}%
-\special{pa 2024 383}\special{pa 2110 394}\special{pa 2197 386}\special{pa 2283 359}%
-\special{pa 2370 316}\special{pa 2457 257}\special{pa 2543 185}\special{pa 2630 105}%
-\special{pa 2717 20}\special{pa 2803 -67}\special{pa 2890 -150}\special{pa 2976 -226}%
-\special{pa 3063 -291}\special{pa 3150 -342}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce
deleted file mode 100644
index 9d1522a0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p012.tex';
-Fnamesci='sinecurve/p012.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.03333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p012.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex
deleted file mode 100644
index 9b71c7ca..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p012.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -306}\special{pa -1094 -245}\special{pa -1008 -172}\special{pa -921 -90}%
-\special{pa -835 -5}\special{pa -748 81}\special{pa -661 164}\special{pa -575 238}%
-\special{pa -488 300}\special{pa -402 349}\special{pa -315 380}\special{pa -228 393}%
-\special{pa -142 388}\special{pa -55 363}\special{pa 31 321}\special{pa 118 264}\special{pa 205 193}%
-\special{pa 291 114}\special{pa 378 29}\special{pa 465 -58}\special{pa 551 -141}\special{pa 638 -218}%
-\special{pa 724 -284}\special{pa 811 -337}\special{pa 898 -373}\special{pa 984 -392}%
-\special{pa 1071 -391}\special{pa 1157 -372}\special{pa 1244 -334}\special{pa 1331 -281}%
-\special{pa 1417 -214}\special{pa 1504 -137}\special{pa 1591 -53}\special{pa 1677 33}%
-\special{pa 1764 118}\special{pa 1850 197}\special{pa 1937 267}\special{pa 2024 324}%
-\special{pa 2110 365}\special{pa 2197 388}\special{pa 2283 393}\special{pa 2370 379}%
-\special{pa 2457 347}\special{pa 2543 297}\special{pa 2630 234}\special{pa 2717 159}%
-\special{pa 2803 77}\special{pa 2890 -9}\special{pa 2976 -95}\special{pa 3063 -176}%
-\special{pa 3150 -249}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce
deleted file mode 100644
index 19eff7cd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p013.tex';
-Fnamesci='sinecurve/p013.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.4))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p013.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex
deleted file mode 100644
index 7d78b659..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p013.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -375}\special{pa -1094 -339}\special{pa -1008 -287}\special{pa -921 -222}%
-\special{pa -835 -145}\special{pa -748 -62}\special{pa -661 24}\special{pa -575 109}%
-\special{pa -488 189}\special{pa -402 260}\special{pa -315 318}\special{pa -228 361}%
-\special{pa -142 387}\special{pa -55 394}\special{pa 31 381}\special{pa 118 351}\special{pa 205 303}%
-\special{pa 291 241}\special{pa 378 168}\special{pa 465 86}\special{pa 551 0}\special{pa 638 -86}%
-\special{pa 724 -168}\special{pa 811 -241}\special{pa 898 -303}\special{pa 984 -351}%
-\special{pa 1071 -381}\special{pa 1157 -394}\special{pa 1244 -387}\special{pa 1331 -361}%
-\special{pa 1417 -318}\special{pa 1504 -260}\special{pa 1591 -189}\special{pa 1677 -109}%
-\special{pa 1764 -24}\special{pa 1850 62}\special{pa 1937 145}\special{pa 2024 222}%
-\special{pa 2110 287}\special{pa 2197 339}\special{pa 2283 375}\special{pa 2370 392}%
-\special{pa 2457 390}\special{pa 2543 370}\special{pa 2630 332}\special{pa 2717 278}%
-\special{pa 2803 210}\special{pa 2890 132}\special{pa 2976 48}\special{pa 3063 -38}%
-\special{pa 3150 -123}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce
deleted file mode 100644
index fe8ca80c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p014.tex';
-Fnamesci='sinecurve/p014.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(1.76667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p014.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex
deleted file mode 100644
index d40cb332..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p014.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -393}\special{pa -1094 -388}\special{pa -1008 -365}\special{pa -921 -324}%
-\special{pa -835 -267}\special{pa -748 -197}\special{pa -661 -118}\special{pa -575 -33}%
-\special{pa -488 53}\special{pa -402 137}\special{pa -315 214}\special{pa -228 281}%
-\special{pa -142 334}\special{pa -55 372}\special{pa 31 391}\special{pa 118 392}\special{pa 205 373}%
-\special{pa 291 337}\special{pa 378 284}\special{pa 465 218}\special{pa 551 141}\special{pa 638 58}%
-\special{pa 724 -29}\special{pa 811 -114}\special{pa 898 -193}\special{pa 984 -264}%
-\special{pa 1071 -321}\special{pa 1157 -363}\special{pa 1244 -388}\special{pa 1331 -393}%
-\special{pa 1417 -380}\special{pa 1504 -349}\special{pa 1591 -300}\special{pa 1677 -238}%
-\special{pa 1764 -164}\special{pa 1850 -81}\special{pa 1937 5}\special{pa 2024 90}%
-\special{pa 2110 172}\special{pa 2197 245}\special{pa 2283 306}\special{pa 2370 353}%
-\special{pa 2457 383}\special{pa 2543 394}\special{pa 2630 386}\special{pa 2717 359}%
-\special{pa 2803 316}\special{pa 2890 257}\special{pa 2976 185}\special{pa 3063 105}%
-\special{pa 3150 20}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce
deleted file mode 100644
index 9e7e73ed..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p015.tex';
-Fnamesci='sinecurve/p015.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.13333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p015.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex
deleted file mode 100644
index 81a046dd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex
+++ /dev/null
@@ -1,41 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p015.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -359}\special{pa -1094 -386}\special{pa -1008 -394}\special{pa -921 -383}%
-\special{pa -835 -353}\special{pa -748 -306}\special{pa -661 -245}\special{pa -575 -172}%
-\special{pa -488 -90}\special{pa -402 -5}\special{pa -315 81}\special{pa -228 164}%
-\special{pa -142 238}\special{pa -55 300}\special{pa 31 349}\special{pa 118 380}\special{pa 205 393}%
-\special{pa 291 388}\special{pa 378 363}\special{pa 465 321}\special{pa 551 264}\special{pa 638 193}%
-\special{pa 724 114}\special{pa 811 29}\special{pa 898 -58}\special{pa 984 -141}\special{pa 1071 -218}%
-\special{pa 1157 -284}\special{pa 1244 -337}\special{pa 1331 -373}\special{pa 1417 -392}%
-\special{pa 1504 -391}\special{pa 1591 -372}\special{pa 1677 -334}\special{pa 1764 -281}%
-\special{pa 1850 -214}\special{pa 1937 -137}\special{pa 2024 -53}\special{pa 2110 33}%
-\special{pa 2197 118}\special{pa 2283 197}\special{pa 2370 267}\special{pa 2457 324}%
-\special{pa 2543 365}\special{pa 2630 388}\special{pa 2717 393}\special{pa 2803 379}%
-\special{pa 2890 347}\special{pa 2976 297}\special{pa 3063 234}\special{pa 3150 159}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce
deleted file mode 100644
index abce0882..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p016.tex';
-Fnamesci='sinecurve/p016.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.5))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p016.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex
deleted file mode 100644
index f0b3d7cf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex
+++ /dev/null
@@ -1,41 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p016.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -278}\special{pa -1094 -332}\special{pa -1008 -370}\special{pa -921 -390}%
-\special{pa -835 -392}\special{pa -748 -375}\special{pa -661 -339}\special{pa -575 -287}%
-\special{pa -488 -222}\special{pa -402 -145}\special{pa -315 -62}\special{pa -228 24}%
-\special{pa -142 109}\special{pa -55 189}\special{pa 31 260}\special{pa 118 318}\special{pa 205 361}%
-\special{pa 291 387}\special{pa 378 394}\special{pa 465 381}\special{pa 551 351}\special{pa 638 303}%
-\special{pa 724 241}\special{pa 811 168}\special{pa 898 86}\special{pa 984 0}\special{pa 1071 -86}%
-\special{pa 1157 -168}\special{pa 1244 -241}\special{pa 1331 -303}\special{pa 1417 -351}%
-\special{pa 1504 -381}\special{pa 1591 -394}\special{pa 1677 -387}\special{pa 1764 -361}%
-\special{pa 1850 -318}\special{pa 1937 -260}\special{pa 2024 -189}\special{pa 2110 -109}%
-\special{pa 2197 -24}\special{pa 2283 62}\special{pa 2370 145}\special{pa 2457 222}%
-\special{pa 2543 287}\special{pa 2630 339}\special{pa 2717 375}\special{pa 2803 392}%
-\special{pa 2890 390}\special{pa 2976 370}\special{pa 3063 332}\special{pa 3150 278}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce
deleted file mode 100644
index 246aae30..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p017.tex';
-Fnamesci='sinecurve/p017.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(2.86667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p017.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex
deleted file mode 100644
index 628b7398..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex
+++ /dev/null
@@ -1,41 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p017.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -159}\special{pa -1094 -234}\special{pa -1008 -297}\special{pa -921 -347}%
-\special{pa -835 -379}\special{pa -748 -393}\special{pa -661 -388}\special{pa -575 -365}%
-\special{pa -488 -324}\special{pa -402 -267}\special{pa -315 -197}\special{pa -228 -118}%
-\special{pa -142 -33}\special{pa -55 53}\special{pa 31 137}\special{pa 118 214}\special{pa 205 281}%
-\special{pa 291 334}\special{pa 378 372}\special{pa 465 391}\special{pa 551 392}\special{pa 638 373}%
-\special{pa 724 337}\special{pa 811 284}\special{pa 898 218}\special{pa 984 141}\special{pa 1071 58}%
-\special{pa 1157 -29}\special{pa 1244 -114}\special{pa 1331 -193}\special{pa 1417 -264}%
-\special{pa 1504 -321}\special{pa 1591 -363}\special{pa 1677 -388}\special{pa 1764 -393}%
-\special{pa 1850 -380}\special{pa 1937 -349}\special{pa 2024 -300}\special{pa 2110 -238}%
-\special{pa 2197 -164}\special{pa 2283 -81}\special{pa 2370 5}\special{pa 2457 90}%
-\special{pa 2543 172}\special{pa 2630 245}\special{pa 2717 306}\special{pa 2803 353}%
-\special{pa 2890 383}\special{pa 2976 394}\special{pa 3063 386}\special{pa 3150 359}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce
deleted file mode 100644
index f32e4164..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p018.tex';
-Fnamesci='sinecurve/p018.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.23333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p018.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex
deleted file mode 100644
index a5c5ca1e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex
+++ /dev/null
@@ -1,41 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p018.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -20}\special{pa -1094 -105}\special{pa -1008 -185}\special{pa -921 -257}%
-\special{pa -835 -316}\special{pa -748 -359}\special{pa -661 -386}\special{pa -575 -394}%
-\special{pa -488 -383}\special{pa -402 -353}\special{pa -315 -306}\special{pa -228 -245}%
-\special{pa -142 -172}\special{pa -55 -90}\special{pa 31 -5}\special{pa 118 81}\special{pa 205 164}%
-\special{pa 291 238}\special{pa 378 300}\special{pa 465 349}\special{pa 551 380}\special{pa 638 393}%
-\special{pa 724 388}\special{pa 811 363}\special{pa 898 321}\special{pa 984 264}\special{pa 1071 193}%
-\special{pa 1157 114}\special{pa 1244 29}\special{pa 1331 -58}\special{pa 1417 -141}%
-\special{pa 1504 -218}\special{pa 1591 -284}\special{pa 1677 -337}\special{pa 1764 -373}%
-\special{pa 1850 -392}\special{pa 1937 -391}\special{pa 2024 -372}\special{pa 2110 -334}%
-\special{pa 2197 -281}\special{pa 2283 -214}\special{pa 2370 -137}\special{pa 2457 -53}%
-\special{pa 2543 33}\special{pa 2630 118}\special{pa 2717 197}\special{pa 2803 267}%
-\special{pa 2890 324}\special{pa 2976 365}\special{pa 3063 388}\special{pa 3150 393}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce
deleted file mode 100644
index fd289527..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p019.tex';
-Fnamesci='sinecurve/p019.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.6))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p019.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex
deleted file mode 100644
index 9d45b48b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p019.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 123}\special{pa -1094 38}\special{pa -1008 -48}\special{pa -921 -132}%
-\special{pa -835 -210}\special{pa -748 -278}\special{pa -661 -332}\special{pa -575 -370}%
-\special{pa -488 -390}\special{pa -402 -392}\special{pa -315 -375}\special{pa -228 -339}%
-\special{pa -142 -287}\special{pa -55 -222}\special{pa 31 -145}\special{pa 118 -62}%
-\special{pa 205 24}\special{pa 291 109}\special{pa 378 189}\special{pa 465 260}\special{pa 551 318}%
-\special{pa 638 361}\special{pa 724 387}\special{pa 811 394}\special{pa 898 381}\special{pa 984 351}%
-\special{pa 1071 303}\special{pa 1157 241}\special{pa 1244 168}\special{pa 1331 86}%
-\special{pa 1417 0}\special{pa 1504 -86}\special{pa 1591 -168}\special{pa 1677 -241}%
-\special{pa 1764 -303}\special{pa 1850 -351}\special{pa 1937 -381}\special{pa 2024 -394}%
-\special{pa 2110 -387}\special{pa 2197 -361}\special{pa 2283 -318}\special{pa 2370 -260}%
-\special{pa 2457 -189}\special{pa 2543 -109}\special{pa 2630 -24}\special{pa 2717 62}%
-\special{pa 2803 145}\special{pa 2890 222}\special{pa 2976 287}\special{pa 3063 339}%
-\special{pa 3150 375}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce
deleted file mode 100644
index 2521e2ec..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p020.tex';
-Fnamesci='sinecurve/p020.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(3.96667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p020.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex
deleted file mode 100644
index fcaf67fc..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p020.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 249}\special{pa -1094 176}\special{pa -1008 95}\special{pa -921 9}%
-\special{pa -835 -77}\special{pa -748 -159}\special{pa -661 -234}\special{pa -575 -297}%
-\special{pa -488 -347}\special{pa -402 -379}\special{pa -315 -393}\special{pa -228 -388}%
-\special{pa -142 -365}\special{pa -55 -324}\special{pa 31 -267}\special{pa 118 -197}%
-\special{pa 205 -118}\special{pa 291 -33}\special{pa 378 53}\special{pa 465 137}\special{pa 551 214}%
-\special{pa 638 281}\special{pa 724 334}\special{pa 811 372}\special{pa 898 391}\special{pa 984 392}%
-\special{pa 1071 373}\special{pa 1157 337}\special{pa 1244 284}\special{pa 1331 218}%
-\special{pa 1417 141}\special{pa 1504 58}\special{pa 1591 -29}\special{pa 1677 -114}%
-\special{pa 1764 -193}\special{pa 1850 -264}\special{pa 1937 -321}\special{pa 2024 -363}%
-\special{pa 2110 -388}\special{pa 2197 -393}\special{pa 2283 -380}\special{pa 2370 -349}%
-\special{pa 2457 -300}\special{pa 2543 -238}\special{pa 2630 -164}\special{pa 2717 -81}%
-\special{pa 2803 5}\special{pa 2890 90}\special{pa 2976 172}\special{pa 3063 245}%
-\special{pa 3150 306}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce
deleted file mode 100644
index 57104e74..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p021.tex';
-Fnamesci='sinecurve/p021.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(4.33333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p021.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex
deleted file mode 100644
index c80f4fab..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p021.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 342}\special{pa -1094 291}\special{pa -1008 226}\special{pa -921 150}%
-\special{pa -835 67}\special{pa -748 -20}\special{pa -661 -105}\special{pa -575 -185}%
-\special{pa -488 -257}\special{pa -402 -316}\special{pa -315 -359}\special{pa -228 -386}%
-\special{pa -142 -394}\special{pa -55 -383}\special{pa 31 -353}\special{pa 118 -306}%
-\special{pa 205 -245}\special{pa 291 -172}\special{pa 378 -90}\special{pa 465 -5}%
-\special{pa 551 81}\special{pa 638 164}\special{pa 724 238}\special{pa 811 300}\special{pa 898 349}%
-\special{pa 984 380}\special{pa 1071 393}\special{pa 1157 388}\special{pa 1244 363}%
-\special{pa 1331 321}\special{pa 1417 264}\special{pa 1504 193}\special{pa 1591 114}%
-\special{pa 1677 29}\special{pa 1764 -58}\special{pa 1850 -141}\special{pa 1937 -218}%
-\special{pa 2024 -284}\special{pa 2110 -337}\special{pa 2197 -373}\special{pa 2283 -392}%
-\special{pa 2370 -391}\special{pa 2457 -372}\special{pa 2543 -334}\special{pa 2630 -281}%
-\special{pa 2717 -214}\special{pa 2803 -137}\special{pa 2890 -53}\special{pa 2976 33}%
-\special{pa 3063 118}\special{pa 3150 197}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce
deleted file mode 100644
index 4098414b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p022.tex';
-Fnamesci='sinecurve/p022.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(4.7))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p022.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex
deleted file mode 100644
index 0ae71a1f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p022.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 389}\special{pa -1094 366}\special{pa -1008 326}\special{pa -921 270}%
-\special{pa -835 201}\special{pa -748 123}\special{pa -661 38}\special{pa -575 -48}%
-\special{pa -488 -132}\special{pa -402 -210}\special{pa -315 -278}\special{pa -228 -332}%
-\special{pa -142 -370}\special{pa -55 -390}\special{pa 31 -392}\special{pa 118 -375}%
-\special{pa 205 -339}\special{pa 291 -287}\special{pa 378 -222}\special{pa 465 -145}%
-\special{pa 551 -62}\special{pa 638 24}\special{pa 724 109}\special{pa 811 189}\special{pa 898 260}%
-\special{pa 984 318}\special{pa 1071 361}\special{pa 1157 387}\special{pa 1244 394}%
-\special{pa 1331 381}\special{pa 1417 351}\special{pa 1504 303}\special{pa 1591 241}%
-\special{pa 1677 168}\special{pa 1764 86}\special{pa 1850 0}\special{pa 1937 -86}%
-\special{pa 2024 -168}\special{pa 2110 -241}\special{pa 2197 -303}\special{pa 2283 -351}%
-\special{pa 2370 -381}\special{pa 2457 -394}\special{pa 2543 -387}\special{pa 2630 -361}%
-\special{pa 2717 -318}\special{pa 2803 -260}\special{pa 2890 -189}\special{pa 2976 -109}%
-\special{pa 3063 -24}\special{pa 3150 62}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce
deleted file mode 100644
index e1b9ba89..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p023.tex';
-Fnamesci='sinecurve/p023.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.06667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p023.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex
deleted file mode 100644
index e1d4825c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p023.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 385}\special{pa -1094 394}\special{pa -1008 384}\special{pa -921 355}%
-\special{pa -835 309}\special{pa -748 249}\special{pa -661 176}\special{pa -575 95}%
-\special{pa -488 9}\special{pa -402 -77}\special{pa -315 -159}\special{pa -228 -234}%
-\special{pa -142 -297}\special{pa -55 -347}\special{pa 31 -379}\special{pa 118 -393}%
-\special{pa 205 -388}\special{pa 291 -365}\special{pa 378 -324}\special{pa 465 -267}%
-\special{pa 551 -197}\special{pa 638 -118}\special{pa 724 -33}\special{pa 811 53}%
-\special{pa 898 137}\special{pa 984 214}\special{pa 1071 281}\special{pa 1157 334}%
-\special{pa 1244 372}\special{pa 1331 391}\special{pa 1417 392}\special{pa 1504 373}%
-\special{pa 1591 337}\special{pa 1677 284}\special{pa 1764 218}\special{pa 1850 141}%
-\special{pa 1937 58}\special{pa 2024 -29}\special{pa 2110 -114}\special{pa 2197 -193}%
-\special{pa 2283 -264}\special{pa 2370 -321}\special{pa 2457 -363}\special{pa 2543 -388}%
-\special{pa 2630 -393}\special{pa 2717 -380}\special{pa 2803 -349}\special{pa 2890 -300}%
-\special{pa 2976 -238}\special{pa 3063 -164}\special{pa 3150 -81}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce
deleted file mode 100644
index 80b67fb5..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p024.tex';
-Fnamesci='sinecurve/p024.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.43333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p024.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex
deleted file mode 100644
index c314a918..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p024.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 329}\special{pa -1094 369}\special{pa -1008 390}\special{pa -921 392}%
-\special{pa -835 376}\special{pa -748 342}\special{pa -661 291}\special{pa -575 226}%
-\special{pa -488 150}\special{pa -402 67}\special{pa -315 -20}\special{pa -228 -105}%
-\special{pa -142 -185}\special{pa -55 -257}\special{pa 31 -316}\special{pa 118 -359}%
-\special{pa 205 -386}\special{pa 291 -394}\special{pa 378 -383}\special{pa 465 -353}%
-\special{pa 551 -306}\special{pa 638 -245}\special{pa 724 -172}\special{pa 811 -90}%
-\special{pa 898 -5}\special{pa 984 81}\special{pa 1071 164}\special{pa 1157 238}\special{pa 1244 300}%
-\special{pa 1331 349}\special{pa 1417 380}\special{pa 1504 393}\special{pa 1591 388}%
-\special{pa 1677 363}\special{pa 1764 321}\special{pa 1850 264}\special{pa 1937 193}%
-\special{pa 2024 114}\special{pa 2110 29}\special{pa 2197 -58}\special{pa 2283 -141}%
-\special{pa 2370 -218}\special{pa 2457 -284}\special{pa 2543 -337}\special{pa 2630 -373}%
-\special{pa 2717 -392}\special{pa 2803 -391}\special{pa 2890 -372}\special{pa 2976 -334}%
-\special{pa 3063 -281}\special{pa 3150 -214}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce
deleted file mode 100644
index 594d15e8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p025.tex';
-Fnamesci='sinecurve/p025.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(5.8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p025.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex
deleted file mode 100644
index a614daaf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p025.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 230}\special{pa -1094 294}\special{pa -1008 344}\special{pa -921 378}%
-\special{pa -835 393}\special{pa -748 389}\special{pa -661 366}\special{pa -575 326}%
-\special{pa -488 270}\special{pa -402 201}\special{pa -315 123}\special{pa -228 38}%
-\special{pa -142 -48}\special{pa -55 -132}\special{pa 31 -210}\special{pa 118 -278}%
-\special{pa 205 -332}\special{pa 291 -370}\special{pa 378 -390}\special{pa 465 -392}%
-\special{pa 551 -375}\special{pa 638 -339}\special{pa 724 -287}\special{pa 811 -222}%
-\special{pa 898 -145}\special{pa 984 -62}\special{pa 1071 24}\special{pa 1157 109}%
-\special{pa 1244 189}\special{pa 1331 260}\special{pa 1417 318}\special{pa 1504 361}%
-\special{pa 1591 387}\special{pa 1677 394}\special{pa 1764 381}\special{pa 1850 351}%
-\special{pa 1937 303}\special{pa 2024 241}\special{pa 2110 168}\special{pa 2197 86}%
-\special{pa 2283 0}\special{pa 2370 -86}\special{pa 2457 -168}\special{pa 2543 -241}%
-\special{pa 2630 -303}\special{pa 2717 -351}\special{pa 2803 -381}\special{pa 2890 -394}%
-\special{pa 2976 -387}\special{pa 3063 -361}\special{pa 3150 -318}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce
deleted file mode 100644
index cfc3e3b3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p026.tex';
-Fnamesci='sinecurve/p026.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.16667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p026.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex
deleted file mode 100644
index 6c9ec3c0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p026.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 100}\special{pa -1094 181}\special{pa -1008 253}\special{pa -921 313}%
-\special{pa -835 357}\special{pa -748 385}\special{pa -661 394}\special{pa -575 384}%
-\special{pa -488 355}\special{pa -402 309}\special{pa -315 249}\special{pa -228 176}%
-\special{pa -142 95}\special{pa -55 9}\special{pa 31 -77}\special{pa 118 -159}\special{pa 205 -234}%
-\special{pa 291 -297}\special{pa 378 -347}\special{pa 465 -379}\special{pa 551 -393}%
-\special{pa 638 -388}\special{pa 724 -365}\special{pa 811 -324}\special{pa 898 -267}%
-\special{pa 984 -197}\special{pa 1071 -118}\special{pa 1157 -33}\special{pa 1244 53}%
-\special{pa 1331 137}\special{pa 1417 214}\special{pa 1504 281}\special{pa 1591 334}%
-\special{pa 1677 372}\special{pa 1764 391}\special{pa 1850 392}\special{pa 1937 373}%
-\special{pa 2024 337}\special{pa 2110 284}\special{pa 2197 218}\special{pa 2283 141}%
-\special{pa 2370 58}\special{pa 2457 -29}\special{pa 2543 -114}\special{pa 2630 -193}%
-\special{pa 2717 -264}\special{pa 2803 -321}\special{pa 2890 -363}\special{pa 2976 -388}%
-\special{pa 3063 -393}\special{pa 3150 -380}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce
deleted file mode 100644
index eb50e908..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p027.tex';
-Fnamesci='sinecurve/p027.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.53333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p027.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex
deleted file mode 100644
index bb60c80e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p027.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -43}\special{pa -1094 44}\special{pa -1008 128}\special{pa -921 206}%
-\special{pa -835 274}\special{pa -748 329}\special{pa -661 369}\special{pa -575 390}%
-\special{pa -488 392}\special{pa -402 376}\special{pa -315 342}\special{pa -228 291}%
-\special{pa -142 226}\special{pa -55 150}\special{pa 31 67}\special{pa 118 -20}\special{pa 205 -105}%
-\special{pa 291 -185}\special{pa 378 -257}\special{pa 465 -316}\special{pa 551 -359}%
-\special{pa 638 -386}\special{pa 724 -394}\special{pa 811 -383}\special{pa 898 -353}%
-\special{pa 984 -306}\special{pa 1071 -245}\special{pa 1157 -172}\special{pa 1244 -90}%
-\special{pa 1331 -5}\special{pa 1417 81}\special{pa 1504 164}\special{pa 1591 238}%
-\special{pa 1677 300}\special{pa 1764 349}\special{pa 1850 380}\special{pa 1937 393}%
-\special{pa 2024 388}\special{pa 2110 363}\special{pa 2197 321}\special{pa 2283 264}%
-\special{pa 2370 193}\special{pa 2457 114}\special{pa 2543 29}\special{pa 2630 -58}%
-\special{pa 2717 -141}\special{pa 2803 -218}\special{pa 2890 -284}\special{pa 2976 -337}%
-\special{pa 3063 -373}\special{pa 3150 -392}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce
deleted file mode 100644
index 852dc363..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p028.tex';
-Fnamesci='sinecurve/p028.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(6.9))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p028.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex
deleted file mode 100644
index c2ea3ad3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p028.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -180}\special{pa -1094 -99}\special{pa -1008 -14}\special{pa -921 72}%
-\special{pa -835 155}\special{pa -748 230}\special{pa -661 294}\special{pa -575 344}%
-\special{pa -488 378}\special{pa -402 393}\special{pa -315 389}\special{pa -228 366}%
-\special{pa -142 326}\special{pa -55 270}\special{pa 31 201}\special{pa 118 123}\special{pa 205 38}%
-\special{pa 291 -48}\special{pa 378 -132}\special{pa 465 -210}\special{pa 551 -278}%
-\special{pa 638 -332}\special{pa 724 -370}\special{pa 811 -390}\special{pa 898 -392}%
-\special{pa 984 -375}\special{pa 1071 -339}\special{pa 1157 -287}\special{pa 1244 -222}%
-\special{pa 1331 -145}\special{pa 1417 -62}\special{pa 1504 24}\special{pa 1591 109}%
-\special{pa 1677 189}\special{pa 1764 260}\special{pa 1850 318}\special{pa 1937 361}%
-\special{pa 2024 387}\special{pa 2110 394}\special{pa 2197 381}\special{pa 2283 351}%
-\special{pa 2370 303}\special{pa 2457 241}\special{pa 2543 168}\special{pa 2630 86}%
-\special{pa 2717 0}\special{pa 2803 -86}\special{pa 2890 -168}\special{pa 2976 -241}%
-\special{pa 3063 -303}\special{pa 3150 -351}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce
deleted file mode 100644
index 3d8c60e0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p029.tex';
-Fnamesci='sinecurve/p029.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(7.26667))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p029.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex
deleted file mode 100644
index e5da848b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p029.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -294}\special{pa -1094 -229}\special{pa -1008 -154}\special{pa -921 -71}%
-\special{pa -835 15}\special{pa -748 100}\special{pa -661 181}\special{pa -575 253}%
-\special{pa -488 313}\special{pa -402 357}\special{pa -315 385}\special{pa -228 394}%
-\special{pa -142 384}\special{pa -55 355}\special{pa 31 309}\special{pa 118 249}\special{pa 205 176}%
-\special{pa 291 95}\special{pa 378 9}\special{pa 465 -77}\special{pa 551 -159}\special{pa 638 -234}%
-\special{pa 724 -297}\special{pa 811 -347}\special{pa 898 -379}\special{pa 984 -393}%
-\special{pa 1071 -388}\special{pa 1157 -365}\special{pa 1244 -324}\special{pa 1331 -267}%
-\special{pa 1417 -197}\special{pa 1504 -118}\special{pa 1591 -33}\special{pa 1677 53}%
-\special{pa 1764 137}\special{pa 1850 214}\special{pa 1937 281}\special{pa 2024 334}%
-\special{pa 2110 372}\special{pa 2197 391}\special{pa 2283 392}\special{pa 2370 373}%
-\special{pa 2457 337}\special{pa 2543 284}\special{pa 2630 218}\special{pa 2717 141}%
-\special{pa 2803 58}\special{pa 2890 -29}\special{pa 2976 -114}\special{pa 3063 -193}%
-\special{pa 3150 -264}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce
deleted file mode 100644
index 8e9095ae..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p030.tex';
-Fnamesci='sinecurve/p030.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(7.63333))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p030.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex
deleted file mode 100644
index de40f068..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p030.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -368}\special{pa -1094 -329}\special{pa -1008 -274}\special{pa -921 -205}%
-\special{pa -835 -127}\special{pa -748 -43}\special{pa -661 44}\special{pa -575 128}%
-\special{pa -488 206}\special{pa -402 274}\special{pa -315 329}\special{pa -228 369}%
-\special{pa -142 390}\special{pa -55 392}\special{pa 31 376}\special{pa 118 342}\special{pa 205 291}%
-\special{pa 291 226}\special{pa 378 150}\special{pa 465 67}\special{pa 551 -20}\special{pa 638 -105}%
-\special{pa 724 -185}\special{pa 811 -257}\special{pa 898 -316}\special{pa 984 -359}%
-\special{pa 1071 -386}\special{pa 1157 -394}\special{pa 1244 -383}\special{pa 1331 -353}%
-\special{pa 1417 -306}\special{pa 1504 -245}\special{pa 1591 -172}\special{pa 1677 -90}%
-\special{pa 1764 -5}\special{pa 1850 81}\special{pa 1937 164}\special{pa 2024 238}%
-\special{pa 2110 300}\special{pa 2197 349}\special{pa 2283 380}\special{pa 2370 393}%
-\special{pa 2457 388}\special{pa 2543 363}\special{pa 2630 321}\special{pa 2717 264}%
-\special{pa 2803 193}\special{pa 2890 114}\special{pa 2976 29}\special{pa 3063 -58}%
-\special{pa 3150 -141}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce
deleted file mode 100644
index 12cd3fcd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce
+++ /dev/null
@@ -1,43 +0,0 @@
-//date time=2017/8/24 14:44:24
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='sinecurve/p031.tex';
-Fnamesci='sinecurve/p031.sce';
-Fnamescibody='figs0704parabody.sce';
-Fnameout='figs0704para.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-3,8], [-1.5,1.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[-3,-3]; Assignrep('A',[-3,-3]);
-B=[8,-3]; Assignrep('B',[8,-3]);
-C=[-2.5,-3]; Assignrep('C',[-2.5,-3]);
-sgAB=Listplot([A,B]);
-gr1=Plotdata(Assign('sin(x-(8))'),Assign('x'));
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p031.tex','1cm');
- Fontsize('s');
- Drwline(gr1);
-Closefile('1');
-
-end;
-
-quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex
deleted file mode 100644
index e9041ca9..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex
+++ /dev/null
@@ -1,42 +0,0 @@
-%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p031.tex 2017-8-24 14:44
-%%% figs0704paraall.sce 2017-8-24 14:44
-{\unitlength=1cm%
-\begin{picture}%
-( 11.00000, 3.00000)( -3.00000, -1.50000)%
-\special{pn 8}%
-%
-\small%
-\special{pa -1181 -394}\special{pa -1094 -385}\special{pa -1008 -357}\special{pa -921 -312}%
-\special{pa -835 -252}\special{pa -748 -180}\special{pa -661 -99}\special{pa -575 -14}%
-\special{pa -488 72}\special{pa -402 155}\special{pa -315 230}\special{pa -228 294}%
-\special{pa -142 344}\special{pa -55 378}\special{pa 31 393}\special{pa 118 389}\special{pa 205 366}%
-\special{pa 291 326}\special{pa 378 270}\special{pa 465 201}\special{pa 551 123}\special{pa 638 38}%
-\special{pa 724 -48}\special{pa 811 -132}\special{pa 898 -210}\special{pa 984 -278}%
-\special{pa 1071 -332}\special{pa 1157 -370}\special{pa 1244 -390}\special{pa 1331 -392}%
-\special{pa 1417 -375}\special{pa 1504 -339}\special{pa 1591 -287}\special{pa 1677 -222}%
-\special{pa 1764 -145}\special{pa 1850 -62}\special{pa 1937 24}\special{pa 2024 109}%
-\special{pa 2110 189}\special{pa 2197 260}\special{pa 2283 318}\special{pa 2370 361}%
-\special{pa 2457 387}\special{pa 2543 394}\special{pa 2630 381}\special{pa 2717 351}%
-\special{pa 2803 303}\special{pa 2890 241}\special{pa 2976 168}\special{pa 3063 86}%
-\special{pa 3150 0}%
-\special{fp}%
-\special{pa -1181 0}\special{pa 3150 0}%
-\special{fp}%
-\special{pa 0 591}\special{pa 0 -591}%
-\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(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
-%
-%
-\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
-\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
-\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
-%
-%
-\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}}%
-%
-%
-\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex
deleted file mode 100644
index 3ff43765..00000000
--- a/texmf-dist/doc/support/ketpic/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/ketpic/ketsample/samples/s07slides/fig/slide0main.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux
deleted file mode 100644
index f23e5468..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux
+++ /dev/null
@@ -1 +0,0 @@
-\relax
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log
deleted file mode 100644
index 5ce8fe94..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log
+++ /dev/null
@@ -1,234 +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) 20 AUG 2017 16:52
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**slide0main.tex
-(./slide0main.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
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty)
-(/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/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: Package option `usenames' ignored on input line 216.
-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.
-)
-No file slide0main.aux.
-\openout1 = `slide0main.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.
-(./slide0.tex
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-) [1
-
-] (./slide0main.aux) )
-Here is how much of TeX's memory you used:
- 2446 strings out of 495145
- 29062 string characters out of 6183910
- 154371 words of memory out of 5000000
- 5909 multiletter control sequences out of 15000+600000
- 7700 words of font info for 40 fonts, out of 8000000 for 9000
- 14 hyphenation exceptions out of 8191
- 27i,5n,35p,322b,256s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on slide0main.dvi (1 page, 596 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf
deleted file mode 100644
index b07f6c6a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex
deleted file mode 100644
index f5136844..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex
+++ /dev/null
@@ -1,17 +0,0 @@
-\documentclass[landscape,10pt]{ujarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage[usenames]{xcolor}
-\ketmarginJ
-\ketslideinit
-
-\begin{document}
-
-\input{slide0.tex}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex
deleted file mode 100644
index 3ff43765..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.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/ketpic/ketsample/samples/s07slides/fig/slide3.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.tex
deleted file mode 100644
index 6a43f030..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.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}{60}{名前}
-\putnotes{60}{70}{所属}
-\putnotes{60}{80}{情報}
-\end{layer}
-
-}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt
deleted file mode 100644
index 9b6cdf43..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt
+++ /dev/null
@@ -1 +0,0 @@
-ketslideによるプレゼンテーション  2017.01.08 templateslideの例で説明する. 1.templateslide.txtにならってデータを作成/修正   (他の名前でもよい)  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]::本文  7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルをすべて表示するとき    ・newの次の行に      %repeat=//      %para=subfig:{0}:s{60}{10}:input(:倍率)//        => layer{120}{0}, \putnotes{60}{10}{\input...}     注)%repeat=,para=...と続けて書いてもよい. 2.スライドの作成  1)tmplateslide.cdyを立ち上げる.     スクリーンに,Title, Para, Slide のボタンがある.  2)Fheadは,図を作成するときのファイル名  3)Texparentは,スライドのファイル名      .txt(内容),.tex , .pdf  4)Slideworkで,作業フォルダを指定     注)作業フォルダの中に自動的にfigというサブフォルダを作る.(新規の場合)  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]{animete}を追加する.     (3)読み込み場所に,\inputを使って入れる.     (4)Setparaのオプション         "Frame="(1秒間のフレーム数),"Scale="(スケール倍率)  9)Slideボタンを押すと,スライド(PDF)が作成される.  10)Sum ボタンを押すと,概略PDF(各ページの最終ページのみ)が作成される. \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt
deleted file mode 100644
index c9acd281..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt
+++ /dev/null
@@ -1 +0,0 @@
-ketslideによるプレゼンテーション  2017.08.24 1.スライドファイルの指定  1)ketsample/s07slideのs0701basic.cdyを作業ディレクトリにコピーして名前を変更する.     ここでは,作業ディレクトリ/ファイルを,ユーザホーム/Desktop/workにsample.cdyとする.  2)s0701basic.txtも同様にコピして同名に変更する(sample.txt)  3)sample.cdyをダブルクリックで立ち上げ,Cindyscript/figuresを以下のように修正する.     2行目 Slidename="sample";     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
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh
deleted file mode 100755
index c80504df..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/bin/sh
-cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides"
-"/Applications/kettex/texlive/bin/x86_64-darwin/uplatex" s0704para.tex
-"/Applications/kettex/texlive/bin/x86_64-darwin/dvipdfmx" s0704para.dvi
-rm s0704para.dvi
-open -a "skim" s0704para.pdf
-exit 0
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux
deleted file mode 100644
index f23e5468..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux
+++ /dev/null
@@ -1 +0,0 @@
-\relax
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy
deleted file mode 100755
index 0e6ec24f..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log
deleted file mode 100644
index 0427477a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log
+++ /dev/null
@@ -1,240 +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) 24 AUG 2017 12:29
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**s0701basic.tex
-(./s0701basic.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
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty)
-(/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/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.
-)
-(./s0701basic.aux)
-\openout1 = `s0701basic.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 44.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 44.
-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 44.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 44.
-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 44.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 44.
- [0
-
-]
-LaTeX Font Info: Try loading font information for OMS+cmr on input line 64.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/base/omscmr.fd
-File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions
-)
-LaTeX Font Info: Font shape `OMS/cmr/bx/n' in size <14.4> not available
-(Font) Font shape `OMS/cmsy/b/n' tried instead on input line 64.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./s0701basic.aux) )
-Here is how much of TeX's memory you used:
- 2469 strings out of 495145
- 29515 string characters out of 6183910
- 180772 words of memory out of 5000000
- 5928 multiletter control sequences out of 15000+600000
- 7377 words of font info for 38 fonts, out of 8000000 for 9000
- 14 hyphenation exceptions out of 8191
- 27i,7n,35p,322b,209s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on s0701basic.dvi (3 pages, 58248 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf
deleted file mode 100644
index 9bf18044..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex
deleted file mode 100644
index eace4285..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex
+++ /dev/null
@@ -1,83 +0,0 @@
-%%% title s0701basic
-\documentclass[landscape,10pt]{ujarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage{xcolor}
-\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43}
-\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolore}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolorf}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43}
-\def\setthin#1{\def\thin{#1}}
-\setthin{0.1}
-\ketmarginJ
-\ketslideinit
-
-\pagestyle{headings}
-
-\begin{document}
-
-\def\mainslidetitley{22}
-\def\ketcletter{slidecolora}
-\def\ketcbox{slidecolorb}
-\def\ketdbox{slidecolorc}
-\def\ketcframe{slidecolord}
-\def\ketcshadow{slidecolore}
-\def\ketdshadow{slidecolorf}
-\def\slidetitlex{6}
-\def\slidetitlesize{1.3}
-\def\mketcletter{slidecolori}
-\def\mketcbox{yellow}
-\def\mketdbox{yellow}
-\def\mketcframe{yellow}
-\def\mslidetitlex{62}
-\def\mslidetitlesize{2}
-
-\color{black}
-\Large\bf\boldmath
-\thispagestyle{empty}
-\addtocounter{page}{-1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\mainslide{メインスライド1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{itemize環境の使い方}
-
-\vspace*{18mm}
-
-\begin{itemize}
-\item
-内容
-\item
-結論
-\end{itemize}
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{enumerate環境の使い方}
-
-\vspace*{18mm}
-
-\begin{enumerate}[(1)]
-\item
-番号を変えるには,例えば [(1)]
-\item
-後は同じ
-\end{enumerate}
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt
deleted file mode 100644
index 85d19361..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-タイトル::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/ketpic/ketsample/samples/s07slides/s0702graph.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdy
deleted file mode 100755
index 10268595..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt
deleted file mode 100644
index e37f444d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt
+++ /dev/null
@@ -1,20 +0,0 @@
-%タイトル::slide0::kabegami//
-タイトル::slide2//
-
-%%%%%%%%%%%%%%%%//
-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/ketpic/ketsample/samples/s07slides/s0703repeat.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdy
deleted file mode 100755
index 04346986..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt
deleted file mode 100644
index 5c66e54a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt
+++ /dev/null
@@ -1,32 +0,0 @@
-%タイトル::slide0::kabegami//
-タイトル::slide0//
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::itemize環境の使い方//
-%repeat=2//
-
-itemize//
-item::内容//
-%[2,-]::item::結論//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::enumerate環境の使い方//
-%repeat=3//
-
-%[2,-]::enumerate::[(1)]//
-%[2,-]::item::番号を変えるには,例えば [(1)]//
-%[3,-]::item::後は同じ//
-%[2,- ]::end//
-
-%%%%%%%%%%%%%%%%//
-new::グラフとreapeat//
-%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/ketpic/ketsample/samples/s07slides/s0704para.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux
deleted file mode 100644
index a590e61d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux
+++ /dev/null
@@ -1,74 +0,0 @@
-\relax
-\providecommand\hyper@newdestlabel[2]{}
-\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument}
-\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined
-\global\let\oldcontentsline\contentsline
-\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}}
-\global\let\oldnewlabel\newlabel
-\gdef\newlabel#1#2{\newlabelxx{#1}#2}
-\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}}
-\AtEndDocument{\ifx\hyper@anchor\@undefined
-\let\contentsline\oldcontentsline
-\let\newlabel\oldnewlabel
-\fi}
-\fi}
-\global\let\hyper@last\relax
-\gdef\HyperFirstAtBeginDocument#1{#1}
-\providecommand*\HyPL@Entry[1]{}
-\HyPL@Entry{0<</P(0)>>}
-\HyPL@Entry{1<</S/D>>}
-\HyPL@Entry{2<</S/D>>}
-\HyPL@Entry{3<</S/D>>}
-\HyPL@Entry{4<</S/D>>}
-\HyPL@Entry{5<</S/D>>}
-\HyPL@Entry{6<</S/D>>}
-\HyPL@Entry{7<</S/D>>}
-\HyPL@Entry{8<</S/D>>}
-\HyPL@Entry{9<</S/D>>}
-\HyPL@Entry{10<</S/D>>}
-\HyPL@Entry{11<</S/D>>}
-\HyPL@Entry{12<</S/D>>}
-\HyPL@Entry{13<</S/D>>}
-\HyPL@Entry{14<</S/D>>}
-\HyPL@Entry{15<</S/D>>}
-\HyPL@Entry{16<</S/D>>}
-\HyPL@Entry{17<</S/D>>}
-\HyPL@Entry{18<</S/D>>}
-\HyPL@Entry{19<</S/D>>}
-\HyPL@Entry{20<</S/D>>}
-\HyPL@Entry{21<</S/D>>}
-\HyPL@Entry{22<</S/D>>}
-\HyPL@Entry{23<</S/D>>}
-\HyPL@Entry{24<</S/D>>}
-\HyPL@Entry{25<</S/D>>}
-\HyPL@Entry{26<</S/D>>}
-\HyPL@Entry{28<</S/D /St 2>>}
-\HyPL@Entry{29<</S/D /St 2>>}
-\HyPL@Entry{30<</S/D /St 2>>}
-\HyPL@Entry{31<</S/D /St 2>>}
-\HyPL@Entry{32<</S/D /St 2>>}
-\HyPL@Entry{33<</S/D /St 2>>}
-\HyPL@Entry{34<</S/D /St 2>>}
-\HyPL@Entry{35<</S/D /St 2>>}
-\HyPL@Entry{36<</S/D /St 2>>}
-\HyPL@Entry{37<</S/D /St 2>>}
-\HyPL@Entry{38<</S/D /St 2>>}
-\HyPL@Entry{39<</S/D /St 2>>}
-\HyPL@Entry{40<</S/D /St 2>>}
-\HyPL@Entry{41<</S/D /St 2>>}
-\HyPL@Entry{42<</S/D /St 2>>}
-\HyPL@Entry{43<</S/D /St 2>>}
-\HyPL@Entry{44<</S/D /St 2>>}
-\HyPL@Entry{45<</S/D /St 2>>}
-\HyPL@Entry{46<</S/D /St 2>>}
-\HyPL@Entry{47<</S/D /St 2>>}
-\HyPL@Entry{48<</S/D /St 2>>}
-\HyPL@Entry{49<</S/D /St 2>>}
-\HyPL@Entry{50<</S/D /St 2>>}
-\HyPL@Entry{51<</S/D /St 2>>}
-\HyPL@Entry{52<</S/D /St 2>>}
-\HyPL@Entry{53<</S/D /St 2>>}
-\HyPL@Entry{54<</S/D /St 2>>}
-\HyPL@Entry{55<</S/D /St 2>>}
-\HyPL@Entry{56<</S/D /St 2>>}
-\HyPL@Entry{57<</S/D /St 2>>}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy
deleted file mode 100755
index b139c579..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log
deleted file mode 100644
index 930c2076..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log
+++ /dev/null
@@ -1,704 +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) 24 AUG 2017 14:47
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**s0704para.tex
-(./s0704para.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
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty)
-(/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/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/hyperref/hyperref.sty
-Package: hyperref 2017/03/14 v6.85a Hypertext links for LaTeX
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.s
-ty
-Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO)
-
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.st
-y
-Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO)
-Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO)
-Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO)
-Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO)
-Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO)
-Package ifluatex Info: LuaTeX not detected.
-Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO)
-Package ifvtex Info: VTeX not detected.
-Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO)
-Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch
-Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO)
-Package etexcmds Info: Could not find \expanded.
-(etexcmds) That can mean that you are not using pdfTeX 1.50 or
-(etexcmds) that some package has redefined \expanded.
-(etexcmds) In the latter case, load this package earlier.
-Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO)
-Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO)
-Package: pdftexcmds 2017/03/19 v0.25 Utility functions of pdfTeX for LuaTeX (HO
-)
-Package pdftexcmds Info: LuaTeX not detected.
-Package pdftexcmds Info: pdfTeX >= 1.30 not detected.
-Package pdftexcmds Info: \pdf@primitive is available.
-Package pdftexcmds Info: \pdf@ifprimitive is available.
-Package pdftexcmds Info: \pdfdraftmode not found.
-Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO)
-Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO
-)
-Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO)
-Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO)
-)
-Package hobsub Info: Skipping package `hobsub' (already loaded).
-Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO)
-Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO)
-Package: xcolor-patch 2016/05/16 xcolor patch
-Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO)
-Package atveryend Info: \enddocument detected (standard20110627).
-Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO)
-Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO)
-Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO)
-) (/Applications/kettex/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty
-Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty
-Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty
-Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO)
-)
-\@linkdim=\dimen132
-\Hy@linkcounter=\count114
-\Hy@pagecounter=\count115
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def
-File: pd1enc.def 2017/03/14 v6.85a Hyperref: PDFDocEncoding definition (HO)
-)
-\Hy@SavedSpaceFactor=\count116
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg
-File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive
-)
-Package hyperref Info: Option `colorlinks' set `true' on input line 4374.
-Package hyperref Info: Hyper figures OFF on input line 4498.
-Package hyperref Info: Link nesting OFF on input line 4503.
-Package hyperref Info: Hyper index ON on input line 4506.
-Package hyperref Info: Plain pages OFF on input line 4513.
-Package hyperref Info: Backreferencing OFF on input line 4518.
-Package hyperref Info: Implicit mode ON; LaTeX internals redefined.
-Package hyperref Info: Bookmarks ON on input line 4751.
-\c@Hy@tempcnt=\count117
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/url/url.sty
-\Urlmuskip=\muskip11
-Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc.
-)
-LaTeX Info: Redefining \url on input line 5104.
-\XeTeXLinkMargin=\dimen133
-\Fld@menulength=\count118
-\Field@Width=\dimen134
-\Fld@charsize=\dimen135
-Package hyperref Info: Hyper figures OFF on input line 6358.
-Package hyperref Info: Link nesting OFF on input line 6363.
-Package hyperref Info: Hyper index ON on input line 6366.
-Package hyperref Info: backreferencing OFF on input line 6373.
-Package hyperref Info: Link coloring ON on input line 6376.
-Package hyperref Info: Link coloring with OCG OFF on input line 6383.
-Package hyperref Info: PDF/A mode OFF on input line 6388.
-LaTeX Info: Redefining \ref on input line 6428.
-LaTeX Info: Redefining \pageref on input line 6432.
-\Hy@abspage=\count119
-\c@Item=\count120
-\c@Hfootnote=\count121
-)
-
-Package hyperref Message: Driver: hdvipdfm.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hdvipdfm.def
-File: hdvipdfm.def 2017/03/14 v6.85a Hyperref driver for dvipdfm
-\pdfm@box=\box43
-\c@Hy@AnnotLevel=\count122
-\HyField@AnnotCount=\count123
-\Fld@listcount=\count124
-\c@bookmark@seq@number=\count125
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty
-Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO)
-Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2
-82.
-)
-\Hy@SectionHShift=\skip50
-) (./s0704para.aux)
-\openout1 = `s0704para.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 26.
-LaTeX Font Info: ... okay on input line 26.
-\AtBeginShipoutBox=\box44
-Package hyperref Info: Link coloring ON on input line 26.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
-Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.st
-y
-Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO)
-)
-\c@section@level=\count126
-)
-LaTeX Info: Redefining \ref on input line 26.
-LaTeX Info: Redefining \pageref on input line 26.
-LaTeX Info: Redefining \nameref on input line 26.
- (./s0704para.out) (./s0704para.out)
-\@outlinefile=\write3
-\openout3 = `s0704para.out'.
-
- (./fig/slide0.tex
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-) (./fig/slide0.tex)
-(./fig/slide0.tex) (./fig/slide0.tex) [0
-
-] (./fig/pointoncircle/p001.tex
-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 8.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 8.
-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 8.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 8.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 5.77332pt on input line 22.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 4.8111pt on input line 22.
-LaTeX Font Info: Try loading font information for U+msa on input line 22.
-
-(/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 22.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd
-File: umsb.fd 2013/01/14 v3.01 AMS symbols B
-))
-(./fig/pointoncircle/p001.tex) (./fig/pointoncircle/p001.tex)
-(./fig/pointoncircle/p001.tex)
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <7> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 65.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 65.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <7> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 65.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 65.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 9.6222pt on input line 74.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex)
-(./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex)
-(./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex)
-(./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex)
-(./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex)
-(./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex)
-(./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex)
-(./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex)
-(./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex)
-(./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex)
-(./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex)
-(./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex)
-(./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex)
-(./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex)
-(./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex)
-(./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex)
-(./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex)
-(./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex)
-(./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex)
-(./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex)
-(./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex)
-(./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex)
-(./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex)
-(./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex)
-(./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex)
-(./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/sinecurve/p001.tex) (./fig/sinecurve/p001.tex)
-(./fig/sinecurve/p001.tex) (./fig/sinecurve/p001.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p002.tex) (./fig/sinecurve/p002.tex)
-(./fig/sinecurve/p002.tex) (./fig/sinecurve/p002.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p003.tex) (./fig/sinecurve/p003.tex)
-(./fig/sinecurve/p003.tex) (./fig/sinecurve/p003.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p004.tex) (./fig/sinecurve/p004.tex)
-(./fig/sinecurve/p004.tex) (./fig/sinecurve/p004.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p005.tex) (./fig/sinecurve/p005.tex)
-(./fig/sinecurve/p005.tex) (./fig/sinecurve/p005.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p006.tex) (./fig/sinecurve/p006.tex)
-(./fig/sinecurve/p006.tex) (./fig/sinecurve/p006.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p007.tex) (./fig/sinecurve/p007.tex)
-(./fig/sinecurve/p007.tex) (./fig/sinecurve/p007.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p008.tex) (./fig/sinecurve/p008.tex)
-(./fig/sinecurve/p008.tex) (./fig/sinecurve/p008.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p009.tex) (./fig/sinecurve/p009.tex)
-(./fig/sinecurve/p009.tex) (./fig/sinecurve/p009.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p010.tex) (./fig/sinecurve/p010.tex)
-(./fig/sinecurve/p010.tex) (./fig/sinecurve/p010.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p011.tex) (./fig/sinecurve/p011.tex)
-(./fig/sinecurve/p011.tex) (./fig/sinecurve/p011.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p012.tex) (./fig/sinecurve/p012.tex)
-(./fig/sinecurve/p012.tex) (./fig/sinecurve/p012.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p013.tex) (./fig/sinecurve/p013.tex)
-(./fig/sinecurve/p013.tex) (./fig/sinecurve/p013.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p014.tex) (./fig/sinecurve/p014.tex)
-(./fig/sinecurve/p014.tex) (./fig/sinecurve/p014.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p015.tex) (./fig/sinecurve/p015.tex)
-(./fig/sinecurve/p015.tex) (./fig/sinecurve/p015.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p016.tex) (./fig/sinecurve/p016.tex)
-(./fig/sinecurve/p016.tex) (./fig/sinecurve/p016.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p017.tex) (./fig/sinecurve/p017.tex)
-(./fig/sinecurve/p017.tex) (./fig/sinecurve/p017.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p018.tex) (./fig/sinecurve/p018.tex)
-(./fig/sinecurve/p018.tex) (./fig/sinecurve/p018.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p019.tex) (./fig/sinecurve/p019.tex)
-(./fig/sinecurve/p019.tex) (./fig/sinecurve/p019.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p020.tex) (./fig/sinecurve/p020.tex)
-(./fig/sinecurve/p020.tex) (./fig/sinecurve/p020.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p021.tex) (./fig/sinecurve/p021.tex)
-(./fig/sinecurve/p021.tex) (./fig/sinecurve/p021.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p022.tex) (./fig/sinecurve/p022.tex)
-(./fig/sinecurve/p022.tex) (./fig/sinecurve/p022.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p023.tex) (./fig/sinecurve/p023.tex)
-(./fig/sinecurve/p023.tex) (./fig/sinecurve/p023.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p024.tex) (./fig/sinecurve/p024.tex)
-(./fig/sinecurve/p024.tex) (./fig/sinecurve/p024.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p025.tex) (./fig/sinecurve/p025.tex)
-(./fig/sinecurve/p025.tex) (./fig/sinecurve/p025.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p026.tex) (./fig/sinecurve/p026.tex)
-(./fig/sinecurve/p026.tex) (./fig/sinecurve/p026.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p027.tex) (./fig/sinecurve/p027.tex)
-(./fig/sinecurve/p027.tex) (./fig/sinecurve/p027.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p028.tex) (./fig/sinecurve/p028.tex)
-(./fig/sinecurve/p028.tex) (./fig/sinecurve/p028.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p029.tex) (./fig/sinecurve/p029.tex)
-(./fig/sinecurve/p029.tex) (./fig/sinecurve/p029.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p030.tex) (./fig/sinecurve/p030.tex)
-(./fig/sinecurve/p030.tex) (./fig/sinecurve/p030.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2] (./fig/sinecurve/p031.tex) (./fig/sinecurve/p031.tex)
-(./fig/sinecurve/p031.tex) (./fig/sinecurve/p031.tex)
-Package atveryend Info: Empty hook `BeforeClearDocument' on input line 1114.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2]
-Package atveryend Info: Empty hook `AfterLastShipout' on input line 1114.
- (./s0704para.aux)
-Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 1114.
-Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 1114.
-
-Package rerunfilecheck Info: File `s0704para.out' has not changed.
-(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0.
-Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 1114.
- )
-Here is how much of TeX's memory you used:
- 6969 strings out of 495145
- 102648 string characters out of 6183910
- 267756 words of memory out of 5000000
- 9857 multiletter control sequences out of 15000+600000
- 16967 words of font info for 77 fonts, out of 8000000 for 9000
- 14 hyphenation exceptions out of 8191
- 28i,12n,35p,321b,331s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on s0704para.dvi (58 pages, 1204728 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf
deleted file mode 100644
index 6ce0ffaf..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex
deleted file mode 100644
index 2821ce57..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex
+++ /dev/null
@@ -1,1114 +0,0 @@
-%%% タイトル s0704para
-\documentclass[landscape,10pt]{ujarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage{xcolor}
-\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43}
-\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolore}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolorf}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43}
-\def\setthin#1{\def\thin{#1}}
-\setthin{0.1}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-\ketmarginJ
-\ketslideinit
-
-\pagestyle{headings}
-
-\begin{document}
-
-\begin{layer}{120}{0}
-\putnotese{0}{0}{\input{fig/slide0.tex}}
-\end{layer}
-
-\def\mainslidetitley{22}
-\def\ketcletter{slidecolora}
-\def\ketcbox{slidecolorb}
-\def\ketdbox{slidecolorc}
-\def\ketcframe{slidecolord}
-\def\ketcshadow{slidecolore}
-\def\ketdshadow{slidecolorf}
-\def\slidetitlex{6}
-\def\slidetitlesize{1.3}
-\def\mketcletter{slidecolori}
-\def\mketcbox{yellow}
-\def\mketdbox{yellow}
-\def\mketcframe{yellow}
-\def\mslidetitlex{62}
-\def\mslidetitlesize{2}
-
-\color{black}
-\Large\bf\boldmath
-\thispagestyle{empty}
-\addtocounter{page}{-1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{極座標と曲線(Flip)}
-
-\vspace*{18mm}
-
-\hypertarget{para1pg1}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p001.tex}}}
-\putnotew{96}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 1/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg2}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p002.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 2/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg3}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p003.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 3/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg4}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p004.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 4/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg5}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p005.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 5/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg6}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p006.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 6/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg7}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p007.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 7/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg8}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p008.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 8/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg9}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p009.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 9/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg10}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p010.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 10/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg11}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p011.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 11/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg12}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p012.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 12/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg13}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p013.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 13/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg14}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p014.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 14/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg15}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p015.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 15/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg16}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p016.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 16/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg17}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p017.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 17/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg18}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p018.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 18/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg19}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p019.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 19/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg20}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p020.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 20/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg21}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p021.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 21/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg22}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p022.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 22/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg23}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p023.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 23/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg24}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p024.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 24/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg25}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p025.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 25/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg26}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p026.tex}}}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 26/26}
-\end{layer}
-
-$r=2$を満たす点の軌跡は?\\
-
-\newslide{グラフの平行移動}
-
-\vspace*{18mm}
-
-\hypertarget{para2pg1}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p001.tex}}
-\putnotew{96}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 1/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg2}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p002.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 2/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg3}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p003.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 3/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg4}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p004.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 4/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg5}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p005.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 5/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg6}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p006.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 6/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg7}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p007.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 7/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg8}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p008.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 8/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg9}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p009.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 9/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg10}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p010.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 10/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg11}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p011.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 11/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg12}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p012.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 12/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg13}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p013.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 13/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg14}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p014.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 14/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg15}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p015.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 15/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg16}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p016.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 16/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg17}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p017.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 17/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg18}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p018.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 18/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg19}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p019.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 19/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg20}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p020.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 20/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg21}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p021.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 21/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg22}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p022.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 22/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg23}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p023.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 23/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg24}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p024.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 24/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg25}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p025.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 25/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg26}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p026.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 26/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg27}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p027.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 27/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg28}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p028.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 28/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg29}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p029.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 29/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg30}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p030.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 30/31}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg31}{}
-
-\begin{layer}{120}{0}
-\putnotes{63}{10}{\input{fig/sinecurve/p031.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 31/31}
-\end{layer}
-
-
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt
deleted file mode 100644
index d35f6613..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-new::極座標と曲線(Flip)//
-%repeat=,para=pointoncircle:{0}:s{85}{10}:input:1.2//
-
-$r=2$を満たす点の軌跡は?\\//
-%[31]::\hspace{20mm}円になる//
-
-%%%%%%%%%%%%%%%%//
-new::グラフの平行移動//
-%repeat=,para=sinecurve:{0}:s{63}{10}:input//
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux
deleted file mode 100644
index 051947ba..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux
+++ /dev/null
@@ -1,55 +0,0 @@
-\relax
-\providecommand\hyper@newdestlabel[2]{}
-\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument}
-\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined
-\global\let\oldcontentsline\contentsline
-\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}}
-\global\let\oldnewlabel\newlabel
-\gdef\newlabel#1#2{\newlabelxx{#1}#2}
-\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}}
-\AtEndDocument{\ifx\hyper@anchor\@undefined
-\let\contentsline\oldcontentsline
-\let\newlabel\oldnewlabel
-\fi}
-\fi}
-\global\let\hyper@last\relax
-\gdef\HyperFirstAtBeginDocument#1{#1}
-\providecommand*\HyPL@Entry[1]{}
-\HyPL@Entry{0<</P(0)>>}
-\HyPL@Entry{1<</S/D>>}
-\HyPL@Entry{4<</S/D /St 3>>}
-\HyPL@Entry{5<</S/D /St 3>>}
-\HyPL@Entry{7<</S/D /St 4>>}
-\HyPL@Entry{8<</S/D /St 4>>}
-\HyPL@Entry{9<</S/D /St 4>>}
-\HyPL@Entry{11<</S/D /St 5>>}
-\HyPL@Entry{12<</S/D /St 5>>}
-\HyPL@Entry{13<</S/D /St 5>>}
-\HyPL@Entry{14<</S/D /St 5>>}
-\HyPL@Entry{17<</S/D /St 7>>}
-\HyPL@Entry{18<</S/D /St 7>>}
-\HyPL@Entry{20<</S/D /St 8>>}
-\HyPL@Entry{21<</S/D /St 8>>}
-\HyPL@Entry{22<</S/D /St 8>>}
-\HyPL@Entry{23<</S/D /St 8>>}
-\HyPL@Entry{24<</S/D /St 8>>}
-\HyPL@Entry{25<</S/D /St 8>>}
-\HyPL@Entry{26<</S/D /St 8>>}
-\HyPL@Entry{27<</S/D /St 8>>}
-\HyPL@Entry{28<</S/D /St 8>>}
-\HyPL@Entry{29<</S/D /St 8>>}
-\HyPL@Entry{30<</S/D /St 8>>}
-\HyPL@Entry{31<</S/D /St 8>>}
-\HyPL@Entry{32<</S/D /St 8>>}
-\HyPL@Entry{33<</S/D /St 8>>}
-\HyPL@Entry{34<</S/D /St 8>>}
-\HyPL@Entry{35<</S/D /St 8>>}
-\HyPL@Entry{36<</S/D /St 8>>}
-\HyPL@Entry{37<</S/D /St 8>>}
-\HyPL@Entry{38<</S/D /St 8>>}
-\HyPL@Entry{39<</S/D /St 8>>}
-\HyPL@Entry{40<</S/D /St 8>>}
-\HyPL@Entry{41<</S/D /St 8>>}
-\HyPL@Entry{42<</S/D /St 8>>}
-\HyPL@Entry{43<</S/D /St 8>>}
-\HyPL@Entry{44<</S/D /St 8>>}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy
deleted file mode 100755
index 1377b5fd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log
deleted file mode 100644
index c929dc47..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log
+++ /dev/null
@@ -1,628 +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) 24 AUG 2017 14:36
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**s0705thin.tex
-(./s0705thin.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
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty)
-(/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/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/hyperref/hyperref.sty
-Package: hyperref 2017/03/14 v6.85a Hypertext links for LaTeX
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.s
-ty
-Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO)
-
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.st
-y
-Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO)
-Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO)
-Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO)
-Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO)
-Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO)
-Package ifluatex Info: LuaTeX not detected.
-Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO)
-Package ifvtex Info: VTeX not detected.
-Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO)
-Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch
-Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO)
-Package etexcmds Info: Could not find \expanded.
-(etexcmds) That can mean that you are not using pdfTeX 1.50 or
-(etexcmds) that some package has redefined \expanded.
-(etexcmds) In the latter case, load this package earlier.
-Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO)
-Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO)
-Package: pdftexcmds 2017/03/19 v0.25 Utility functions of pdfTeX for LuaTeX (HO
-)
-Package pdftexcmds Info: LuaTeX not detected.
-Package pdftexcmds Info: pdfTeX >= 1.30 not detected.
-Package pdftexcmds Info: \pdf@primitive is available.
-Package pdftexcmds Info: \pdf@ifprimitive is available.
-Package pdftexcmds Info: \pdfdraftmode not found.
-Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO)
-Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO
-)
-Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO)
-Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO)
-)
-Package hobsub Info: Skipping package `hobsub' (already loaded).
-Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO)
-Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO)
-Package: xcolor-patch 2016/05/16 xcolor patch
-Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO)
-Package atveryend Info: \enddocument detected (standard20110627).
-Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO)
-Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO)
-Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO)
-) (/Applications/kettex/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty
-Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty
-Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO)
-)
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty
-Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO)
-)
-\@linkdim=\dimen132
-\Hy@linkcounter=\count114
-\Hy@pagecounter=\count115
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def
-File: pd1enc.def 2017/03/14 v6.85a Hyperref: PDFDocEncoding definition (HO)
-)
-\Hy@SavedSpaceFactor=\count116
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg
-File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive
-)
-Package hyperref Info: Option `colorlinks' set `true' on input line 4374.
-Package hyperref Info: Hyper figures OFF on input line 4498.
-Package hyperref Info: Link nesting OFF on input line 4503.
-Package hyperref Info: Hyper index ON on input line 4506.
-Package hyperref Info: Plain pages OFF on input line 4513.
-Package hyperref Info: Backreferencing OFF on input line 4518.
-Package hyperref Info: Implicit mode ON; LaTeX internals redefined.
-Package hyperref Info: Bookmarks ON on input line 4751.
-\c@Hy@tempcnt=\count117
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/url/url.sty
-\Urlmuskip=\muskip11
-Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc.
-)
-LaTeX Info: Redefining \url on input line 5104.
-\XeTeXLinkMargin=\dimen133
-\Fld@menulength=\count118
-\Field@Width=\dimen134
-\Fld@charsize=\dimen135
-Package hyperref Info: Hyper figures OFF on input line 6358.
-Package hyperref Info: Link nesting OFF on input line 6363.
-Package hyperref Info: Hyper index ON on input line 6366.
-Package hyperref Info: backreferencing OFF on input line 6373.
-Package hyperref Info: Link coloring ON on input line 6376.
-Package hyperref Info: Link coloring with OCG OFF on input line 6383.
-Package hyperref Info: PDF/A mode OFF on input line 6388.
-LaTeX Info: Redefining \ref on input line 6428.
-LaTeX Info: Redefining \pageref on input line 6432.
-\Hy@abspage=\count119
-\c@Item=\count120
-\c@Hfootnote=\count121
-)
-
-Package hyperref Message: Driver: hdvipdfm.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hdvipdfm.def
-File: hdvipdfm.def 2017/03/14 v6.85a Hyperref driver for dvipdfm
-\pdfm@box=\box43
-\c@Hy@AnnotLevel=\count122
-\HyField@AnnotCount=\count123
-\Fld@listcount=\count124
-\c@bookmark@seq@number=\count125
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty
-Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO)
-Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2
-82.
-)
-\Hy@SectionHShift=\skip50
-) (./s0705thin.aux)
-\openout1 = `s0705thin.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 24.
-LaTeX Font Info: ... okay on input line 24.
-\AtBeginShipoutBox=\box44
-Package hyperref Info: Link coloring ON on input line 24.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
-Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section
-
-(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.st
-y
-Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO)
-)
-\c@section@level=\count126
-)
-LaTeX Info: Redefining \ref on input line 24.
-LaTeX Info: Redefining \pageref on input line 24.
-LaTeX Info: Redefining \nameref on input line 24.
- (./s0705thin.out) (./s0705thin.out)
-\@outlinefile=\write3
-\openout3 = `s0705thin.out'.
-
- (./fig/slide0.tex
-LaTeX Font Info: Font shape `JT2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JY2/mc/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-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 1.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 13.85594pt on input line 1.
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 23.94002pt on input line 5.
-) (./fig/slide0.tex)
-(./fig/slide0.tex) (./fig/slide0.tex) [0
-
-]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1]
-LaTeX Font Info: Try loading font information for OMS+cmr on input line 67.
- (/Applications/kettex/texlive/texmf-dist/tex/latex/base/omscmr.fd
-File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions
-)
-LaTeX Font Info: Font shape `OMS/cmr/bx/n' in size <14.4> not available
-(Font) Font shape `OMS/cmsy/b/n' tried instead on input line 67.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[2]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[3]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[3]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[3]
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 9.6222pt on input line 126.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 126.
-LaTeX Font Info: Try loading font information for U+msa on input line 126.
- (/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 126.
-
-(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd
-File: umsb.fd 2013/01/14 v3.01 AMS symbols B
-)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[4]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[4]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[4]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[4]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[5]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[5]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[5]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[5]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[5]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[6]
-LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <7> not available
-(Font) Font shape `JT2/gt/m/n' tried instead on input line 324.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 324.
-LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <7> not available
-(Font) Font shape `JY2/gt/m/n' tried instead on input line 324.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 6.73553pt on input line 324.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 4.8111pt on input line 324.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[7]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[7]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[7] (./fig/pointoncircle/p001.tex
-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 8.
-LaTeX Font Info: Font shape `JT2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 8.
-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 8.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 8.65997pt on input line 8.
-LaTeX Font Info: Font shape `JY2/gt/m/n' will be
-(Font) scaled to size 5.77332pt on input line 22.
-) (./fig/pointoncircle/p001.tex)
-(./fig/pointoncircle/p001.tex) (./fig/pointoncircle/p001.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex)
-(./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex)
-(./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex)
-(./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex)
-(./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex)
-(./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex)
-(./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex)
-(./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex)
-(./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex)
-(./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex)
-(./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex)
-(./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex)
-(./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex)
-(./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex)
-(./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex)
-(./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex)
-(./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex)
-(./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex)
-(./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex)
-(./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex)
-(./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex)
-(./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex)
-(./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex)
-(./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex)
-(./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex)
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8] (./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex)
-(./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex)
-Package atveryend Info: Empty hook `BeforeClearDocument' on input line 871.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[8]
-Package atveryend Info: Empty hook `AfterLastShipout' on input line 871.
- (./s0705thin.aux)
-Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 871.
-Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 871.
-Package rerunfilecheck Info: File `s0705thin.out' has not changed.
-(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0.
-Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 871.
- )
-Here is how much of TeX's memory you used:
- 6733 strings out of 495145
- 97267 string characters out of 6183910
- 268652 words of memory out of 5000000
- 9870 multiletter control sequences out of 15000+600000
- 17136 words of font info for 78 fonts, out of 8000000 for 9000
- 14 hyphenation exceptions out of 8191
- 28i,12n,35p,321b,331s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on s0705thin.dvi (45 pages, 752432 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf
deleted file mode 100644
index 09274a33..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex
deleted file mode 100644
index 3abf9c70..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex
+++ /dev/null
@@ -1,871 +0,0 @@
-%%% タイトル s0705thin
-\documentclass[landscape,10pt]{ujarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage{xcolor}
-\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolore}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolorf}{cmyk}{0,0,0,0.5}
-\def\setthin#1{\def\thin{#1}}
-\setthin{0.1}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-\ketmarginJ
-\ketslideinit
-
-\pagestyle{headings}
-
-\begin{document}
-
-\begin{layer}{120}{0}
-\putnotese{0}{0}{\input{fig/slide0.tex}}
-\end{layer}
-
-\def\mainslidetitley{22}
-\def\ketcletter{black}
-\def\ketcbox{slidecolorb}
-\def\ketdbox{slidecolorc}
-\def\ketcframe{slidecolord}
-\def\ketcshadow{slidecolore}
-\def\ketdshadow{slidecolorf}
-\def\slidetitlex{6}
-\def\slidetitlesize{1.3}
-\def\mketcletter{black}
-\def\mketcbox{yellow}
-\def\mketdbox{yellow}
-\def\mketcframe{yellow}
-\def\mslidetitlex{62}
-\def\mslidetitlesize{2}
-
-\color{black}
-\Large\bf\boldmath
-\thispagestyle{empty}
-\addtocounter{page}{-1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\mainslide{メインスライド1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{画面上のボタン}
-
-\vspace*{18mm}
-
-\begin{itemize}
-\item
-\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成
-\item
-\Ltab{20mm}{Title}タイトル(デフォルトはslide0)をfigに作成
-\item
-\Ltab{20mm}{ParaF}パラパラ動画フォルダを作成\\
-\Ltab{25mm}{}Setparaで引数を書いておく
-\item
-\Ltab{20mm}{Slide}Texparent+".txt"からスライドを作成
-\item
-\Ltab{20mm}{Sum}SummaryのPDFを作成
-\end{itemize}
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{enumerate環境の使い方}
-
-\vspace*{18mm}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\begin{enumerate}[(1)]
-\item
-番号を変えるには,例えば [(1)]
-\end{enumerate}
-
-\sameslide
-
-\vspace*{18mm}
-
-\begin{enumerate}[(1)]
-\item
-番号を変えるには,例えば [(1)]
-\item
-表示ページはリストで与える\\
-\hspace*{10mm}[1],\ [1,-],\ [1..3],\ [1..3,6]など
-\end{enumerate}
-
-\newslide{薄文字の使い方}
-
-\vspace*{18mm}
-
-\begin{itemize}
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-Setslidebodyの3番目の引数で濃さを変更\\
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-デフォルトは$0.1$
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-リストのページ以外が薄文字になる
-}%
-\end{itemize}
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\begin{itemize}
-\item
-Setslidebodyの3番目の引数で濃さを変更\\
-\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-デフォルトは$0.1$
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-リストのページ以外が薄文字になる
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\begin{itemize}
-\item
-Setslidebodyの3番目の引数で濃さを変更\\
-\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|
-\item
-デフォルトは$0.1$
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-リストのページ以外が薄文字になる
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\begin{itemize}
-\item
-Setslidebodyの3番目の引数で濃さを変更\\
-\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|
-\item
-デフォルトは$0.1$
-\item
-リストのページ以外が薄文字になる
-\end{itemize}
-
-\newslide{layerの使い方}
-
-\vspace*{18mm}
-
-\setthin{0}
-\begin{itemize}
-\item
-layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-layerの終わりは\verb|end|
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-図のサイズを変えるときは\\
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\hspace*{10mm}{:}{:}\verb+grf,0.8+
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-通常の\verb|\putnote|文も使える
-}%
-\end{itemize}
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\setthin{0}
-\begin{itemize}
-\item
-layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+
-\item
-layerの終わりは\verb|end|
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-図のサイズを変えるときは\\
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\hspace*{10mm}{:}{:}\verb+grf,0.8+
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-通常の\verb|\putnote|文も使える
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\setthin{0}
-\begin{itemize}
-\item
-layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+
-\item
-layerの終わりは\verb|end|
-\item
-図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-図のサイズを変えるときは\\
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\hspace*{10mm}{:}{:}\verb+grf,0.8+
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-通常の\verb|\putnote|文も使える
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\setthin{0}
-\begin{itemize}
-\item
-layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+
-\item
-layerの終わりは\verb|end|
-\item
-図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+
-\item
-図のサイズを変えるときは\\
-\hspace*{10mm}{:}{:}\verb+grf,0.8+
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-通常の\verb|\putnote|文も使える
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\setthin{0}
-\begin{itemize}
-\item
-layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+
-\item
-layerの終わりは\verb|end|
-\item
-図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+
-\item
-図のサイズを変えるときは\\
-\hspace*{10mm}{:}{:}\verb+grf,0.8+
-\item
-通常の\verb|\putnote|文も使える
-\end{itemize}
-
-\mainslide{メインスライド2}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{コントローラの表示}
-
-\vspace*{18mm}
-
-\hypertarget{para1pg1}{}
-
-\begin{layer}{120}{0}
-\putnotew{96}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 1/3}
-\end{layer}
-
-\begin{itemize}
-\item
-スクリプトに\verb|Setlidehyper();|を入れる
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-\verb|%repeat=n,para|とすると表示される
-}%
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-パラパラ動画のときは自動的に表示
-}%
-\end{itemize}
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg2}{}
-
-\begin{layer}{120}{0}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 2/3}
-\end{layer}
-
-\begin{itemize}
-\item
-スクリプトに\verb|Setlidehyper();|を入れる
-\item
-\verb|%repeat=n,para|とすると表示される
-{\color[cmyk]{\thin,\thin,\thin,\thin}
-\item
-パラパラ動画のときは自動的に表示
-}%
-\end{itemize}
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para1pg3}{}
-
-\begin{layer}{120}{0}
-\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 3/3}
-\end{layer}
-
-\begin{itemize}
-\item
-スクリプトに\verb|Setlidehyper();|を入れる
-\item
-\verb|%repeat=n,para|とすると表示される
-\item
-パラパラ動画のときは自動的に表示
-\end{itemize}
-
-\newslide{パラパラ動画}
-
-\vspace*{18mm}
-
-\hypertarget{para2pg1}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p001.tex}}
-\putnotew{96}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 1/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg2}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p002.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 2/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg3}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p003.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 3/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg4}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p004.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 4/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg5}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p005.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 5/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg6}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p006.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 6/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg7}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p007.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 7/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg8}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p008.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 8/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg9}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p009.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 9/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg10}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p010.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 10/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg11}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p011.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 11/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg12}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p012.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 12/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg13}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p013.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 13/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg14}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p014.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 14/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg15}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p015.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 15/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg16}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p016.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 16/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg17}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p017.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 17/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg18}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p018.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 18/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg19}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p019.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 19/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg20}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p020.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 20/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg21}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p021.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 21/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg22}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p022.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 22/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg23}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p023.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 23/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg24}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p024.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 24/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg25}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p025.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 25/26}
-\end{layer}
-
-
-\sameslide
-
-\vspace*{18mm}
-
-\hypertarget{para2pg26}{}
-
-\begin{layer}{120}{0}
-\putnotes{85}{10}{\input{fig/pointoncircle/p026.tex}}
-\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}}
-\putnotew{101}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}
-\putnotew{108}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}
-\putnotew{115}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}}
-\putnotew{120}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}
-\putnotew{125}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}
-\putnotew{125}{76}{\scriptsize\color{black} 26/26}
-\end{layer}
-
-
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt
deleted file mode 100644
index 5ae018b0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt
+++ /dev/null
@@ -1,71 +0,0 @@
-%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::画面上のボタン//
-
-itemize//
-item::\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成//
-item::\Ltab{20mm}{Title}タイトル(デフォルトは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//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド2//
-
-%%%%%%%%%%%%%%%%//
-new::コントローラの表示//
-%repeat=3,para//
-
-itemize//
-%thin[1,-]::item::スクリプトに\verb|Setlidehyper();|を入れる//
-%thin[2,-]::item::\verb|%repeat=n,para|とすると表示される//
-%thin[3,-]::item::パラパラ動画のときは自動的に表示//
-end//
-
-%%%%%%%%%%%%%%%%//
-new::パラパラ動画//
-%repeat=,para=pointoncircle:{0}:s{85}{10}:input//
-
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux
deleted file mode 100644
index 4cbff8ae..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux
+++ /dev/null
@@ -1,23 +0,0 @@
-\relax
-\providecommand\zref@newlabel[2]{}
-\providecommand\hyper@newdestlabel[2]{}
-\providecommand\AtEndDvi@Check{}
-\AtEndDvi@Check
-\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument}
-\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined
-\global\let\oldcontentsline\contentsline
-\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}}
-\global\let\oldnewlabel\newlabel
-\gdef\newlabel#1#2{\newlabelxx{#1}#2}
-\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}}
-\AtEndDocument{\ifx\hyper@anchor\@undefined
-\let\contentsline\oldcontentsline
-\let\newlabel\oldnewlabel
-\fi}
-\fi}
-\global\let\hyper@last\relax
-\gdef\HyperFirstAtBeginDocument#1{#1}
-\providecommand*\HyPL@Entry[1]{}
-\HyPL@Entry{0<</P(0)>>}
-\HyPL@Entry{1<</S/D>>}
-\zref@newlabel{LastPage}{\default{}\page{2}\abspage{3}}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy
deleted file mode 100755
index 55742178..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log
deleted file mode 100644
index be064a95..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log
+++ /dev/null
@@ -1,819 +0,0 @@
-This is e-pTeX, Version 3.14159265-p3.7-160201-2.6 (utf8.euc) (TeX Live 2016) (preloaded format=platex 2016.12.16) 25 JUN 2017 09:47
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**s0706animate.tex
-(./s0706animate.tex
-pLaTeX2e <2016/05/07> (based on LaTeX2e <2016/03/31>)
-Babel <3.9r> and hyphenation patterns for 83 language(s) loaded.
-(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jarticle.cls
-Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class
-\c@@paper=\count81
-(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jsize10.clo
-File: jsize10.clo 2006/06/27 v1.6 Standard pLaTeX file (size option)
-)
-\c@part=\count82
-\c@section=\count83
-\c@subsection=\count84
-\c@subsubsection=\count85
-\c@paragraph=\count86
-\c@subparagraph=\count87
-\c@figure=\count88
-\c@table=\count89
-\abovecaptionskip=\skip41
-\belowcaptionskip=\skip42
-\symmincho=\mathgroup4
-LaTeX Font Info: Overwriting symbol font `mincho' in version `bold'
-(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 593.
-\toclineskip=\dimen118
-\@lnumwidth=\dimen119
-\bibindent=\dimen120
-\heisei=\count90
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty
-\c@ketpicctra=\count91
-\c@ketpicctrb=\count92
-\c@ketpicctrc=\count93
-\c@ketpicctrd=\count94
-\c@ketpicctre=\count95
-\c@ketpicctrf=\count96
-\c@ketpicctrg=\count97
-\c@ketpicctrh=\count98
-\c@ketpicctri=\count99
-\c@ketpicctrj=\count100
-\Width=\skip43
-\Height=\skip44
-\Depth=\skip45
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty
-\layercurrentunit=\skip46
-)
-(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsmath.sty
-Package: amsmath 2016/03/10 v2.15b AMS math features
-\@mathmargin=\skip47
-
-For additional information on amsmath, use the `?' option.
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amstext.sty
-Package: amstext 2000/06/29 v2.01 AMS text
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsgen.sty
-File: amsgen.sty 1999/11/30 v2.0 generic functions
-\@emptytoks=\toks15
-\ex@=\dimen121
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsbsy.sty
-Package: amsbsy 1999/11/29 v1.2d Bold Symbols
-\pmbraise@=\dimen122
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsopn.sty
-Package: amsopn 2016/03/08 v2.02 operator names
-)
-\inf@bad=\count101
-LaTeX Info: Redefining \frac on input line 199.
-\uproot@=\count102
-\leftroot@=\count103
-LaTeX Info: Redefining \overline on input line 297.
-\classnum@=\count104
-\DOTSCASE@=\count105
-LaTeX Info: Redefining \ldots on input line 394.
-LaTeX Info: Redefining \dots on input line 397.
-LaTeX Info: Redefining \cdots on input line 518.
-\Mathstrutbox@=\box41
-\strutbox@=\box42
-\big@size=\dimen123
-LaTeX Font Info: Redeclaring font encoding OML on input line 634.
-LaTeX Font Info: Redeclaring font encoding OMS on input line 635.
-\macc@depth=\count106
-\c@MaxMatrixCols=\count107
-\dotsspace@=\muskip10
-\c@parentequation=\count108
-\dspbrk@lvl=\count109
-\tag@help=\toks16
-\row@=\count110
-\column@=\count111
-\maxfields@=\count112
-\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 2739.
-LaTeX Info: Redefining \] on input line 2740.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amssymb.sty
-Package: amssymb 2013/01/14 v3.01 AMS font symbols
-
-(/usr/local/texlive/2016/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.
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/bm.sty
-Package: bm 2016/02/27 v1.2a Bold Symbol Support (DPC/FMi)
-\symboldoperators=\mathgroup7
-\symboldletters=\mathgroup8
-\symboldsymbols=\mathgroup9
-\symboldmincho=\mathgroup10
-LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 142.
-LaTeX Info: Redefining \bm on input line 208.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/enumerate.sty
-Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC)
-\@enLab=\toks20
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphicx.sty
-Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/keyval.sty
-Package: keyval 2014/10/28 v1.15 key=value parser (DPC)
-\KV@toks@=\toks21
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphics.sty
-Package: graphics 2016/05/09 v1.0r Standard LaTeX Graphics (DPC,SPQR)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/trig.sty
-Package: trig 2016/01/03 v1.10 sin cos tan (DPC)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/graphics.cfg
-File: graphics.cfg 2016/01/02 v1.10 sample graphics configuration
-)
-Package graphics Info: Driver file: dvipdfmx.def on input line 96.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/dvipdfmx-def/dvipdfmx.def
-File: dvipdfmx.def 2016/04/06 v4.08 LaTeX color/graphics driver for dvipdfmx (T
-eX Live/ChoF)
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/infwarerr.sty
-Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/ltxcmds.sty
-Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO)
-)))
-\Gin@req@height=\dimen130
-\Gin@req@width=\dimen131
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/color.sty
-Package: color 2016/05/09 v1.1c Standard LaTeX Color (DPC)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/color.cfg
-File: color.cfg 2016/01/02 v1.6 sample color configuration
-)
-Package color Info: Driver file: dvips.def on input line 144.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvips.def
-File: dvips.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvipsnam.def
-File: dvipsnam.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR)
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/animate/animate.sty
-Package: animate 2016/04/15 PDF animations from files and inline graphics
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/base/ifthen.sty
-Package: ifthen 2014/09/29 v1.1c Standard LaTeX ifthen package (DPC)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/ifpdf.sty
-Package: ifpdf 2016/05/14 v3.1 Provides the ifpdf switch
-)
-(/usr/local/texlive/2016/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.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/ifdraft.sty
-Package: ifdraft 2016/05/16 v1.4 Detect class options draft and final (HO)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/calc.sty
-Package: calc 2014/10/28 v4.3 Infix arithmetic (KKT,FJ)
-\calc@Acount=\count113
-\calc@Bcount=\count114
-\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=\count115
-\calc@Cskip=\skip52
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/atenddvi.sty
-Package: atenddvi 2016/05/16 v1.2 At end DVI hook (HO)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-abspage.sty
-Package: zref-abspage 2016/05/16 v2.25 Module abspage for zref (HO)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-base.sty
-Package: zref-base 2016/05/16 v2.25 Module base for zref (HO)
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/kvsetkeys.sty
-Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO)
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/etexcmds.sty
-Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO)
-Package etexcmds Info: Could not find \expanded.
-(etexcmds) That can mean that you are not using pdfTeX 1.50 or
-(etexcmds) that some package has redefined \expanded.
-(etexcmds) In the latter case, load this package earlier.
-))
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/kvdefinekeys.sty
-Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/pdftexcmds.sty
-Package: pdftexcmds 2016/05/10 v0.21 Utility functions of pdfTeX for LuaTeX (HO
-)
-Package pdftexcmds Info: LuaTeX not detected.
-Package pdftexcmds Info: pdfTeX >= 1.30 not detected.
-Package pdftexcmds Info: \pdf@primitive is available.
-Package pdftexcmds Info: \pdf@ifprimitive is available.
-Package pdftexcmds Info: \pdfdraftmode not found.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/auxhook.sty
-Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO)
-)
-Package zref Info: New property list: main on input line 759.
-Package zref Info: New property: default on input line 760.
-Package zref Info: New property: page on input line 761.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/atbegshi.sty
-Package: atbegshi 2016/05/16 v1.17 At begin shipout hook (HO)
-)
-\c@abspage=\count116
-Package zref Info: New property: abspage on input line 62.
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-lastpage.sty
-Package: zref-lastpage 2016/05/16 v2.25 Module lastpage for zref (HO)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/atveryend.sty
-Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO)
-Package atveryend Info: \enddocument detected (standard20110627).
-)
-Package zref Info: New property list: LastPage on input line 55.
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/animate/animfp.sty
-Package: animfp 2009/07/23 fixed point addition for animate.sty
-\afp@xs=\count117
-\afp@xia=\count118
-\afp@xib=\count119
-\afp@xfa=\count120
-\afp@xfb=\count121
-\afp@rega=\count122
-\afp@regb=\count123
-\afp@regs=\count124
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/media9/pdfbase.sty
-(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/expl3.sty
-Package: expl3 2016/05/18 v6512 L3 programming layer (loader)
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/expl3-code.tex
-Package: expl3 2016/05/18 v6512 L3 programming layer (code)
-L3 Module: l3bootstrap 2016/02/12 v6412 L3 Bootstrap code
-L3 Module: l3names 2016/03/11 v6433 L3 Namespace for primitives
-L3 Module: l3basics 2015/11/22 v6315 L3 Basic definitions
-L3 Module: l3expan 2015/09/10 v5983 L3 Argument expansion
-L3 Module: l3tl 2016/03/26 v6465 L3 Token lists
-L3 Module: l3str 2016/03/24 v6441 L3 Strings
-L3 Module: l3seq 2015/08/05 v5777 L3 Sequences and stacks
-L3 Module: l3int 2016/03/24 v6441 L3 Integers
-\c_max_int=\count125
-\l_tmpa_int=\count126
-\l_tmpb_int=\count127
-\g_tmpa_int=\count128
-\g_tmpb_int=\count129
-L3 Module: l3quark 2015/08/17 v5855 L3 Quarks
-L3 Module: l3prg 2015/11/01 v6216 L3 Control structures
-\g__prg_map_int=\count130
-L3 Module: l3clist 2015/09/02 v5901 L3 Comma separated lists
-L3 Module: l3token 2016/04/03 v6470 L3 Experimental token manipulation
-L3 Module: l3prop 2016/01/05 v6366 L3 Property lists
-L3 Module: l3msg 2016/03/26 v6464 L3 Messages
-L3 Module: l3file 2016/03/25 v6458 L3 File and I/O operations
-\l_iow_line_count_int=\count131
-\l__iow_target_count_int=\count132
-\l__iow_current_line_int=\count133
-\l__iow_current_word_int=\count134
-\l__iow_current_indentation_int=\count135
-L3 Module: l3skip 2016/01/05 v6366 L3 Dimensions and skips
-\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
-L3 Module: l3keys 2015/11/17 v6284 L3 Key-value interfaces
-\g__keyval_level_int=\count136
-\l_keys_choice_int=\count137
-L3 Module: l3fp 2016/03/26 v6465 L3 Floating points
-\c__fp_leading_shift_int=\count138
-\c__fp_middle_shift_int=\count139
-\c__fp_trailing_shift_int=\count140
-\c__fp_big_leading_shift_int=\count141
-\c__fp_big_middle_shift_int=\count142
-\c__fp_big_trailing_shift_int=\count143
-\c__fp_Bigg_leading_shift_int=\count144
-\c__fp_Bigg_middle_shift_int=\count145
-\c__fp_Bigg_trailing_shift_int=\count146
-L3 Module: l3box 2015/08/09 v5822 L3 Experimental boxes
-\c_empty_box=\box43
-\l_tmpa_box=\box44
-\l_tmpb_box=\box45
-\g_tmpa_box=\box46
-\g_tmpb_box=\box47
-L3 Module: l3coffins 2016/05/17 v6508 L3 Coffin code layer
-\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
-L3 Module: l3color 2014/08/23 v5354 L3 Experimental color support
-L3 Module: l3sys 2015/09/25 v6087 L3 Experimental system/runtime functions
-L3 Module: l3candidates 2016/05/13 v6484 L3 Experimental additions to l3kernel
-\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
-L3 Module: l3luatex 2016/03/26 v6465 L3 Experimental LuaTeX-specific functions
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/l3dvipdfmx.def
-File: l3dvidpfmx.def 2016/03/26 v6465 L3 Experimental driver: dvipdfmx
-\l__driver_tmp_box=\box58
-))
-(/usr/local/texlive/2016/texmf-dist/tex/latex/l3packages/l3keys2e/l3keys2e.sty
-Package: l3keys2e 2016/05/18 v6512 LaTeX2e option processing using LaTeX3 keys
-)
-Package: pdfbase 2016/03/22 v0.8 driver independent access to low-level PDF fea
-tures
-\g_pbs_obj_int=\count147
-\g_pbs_oc_int=\count148
-) (/usr/local/texlive/2016/texmf-dist/tex/latex/ocgx2/ocgbase.sty
-Package: ocgbase 2016/03/11 v0.6 support package for ocgx2.sty
-)
-\@anim@box=\box59
-\@anim@measbox=\box60
-\@anim@tmpdima=\dimen165
-\@anim@tmpdimb=\dimen166
-\@anim@num=\count149
-\@anim@curframe=\count150
-\@anim@curframe@zb=\count151
-\@anim@resizeflags=\count152
-\@anim@skipfram=\count153
-\@anim@mulframecnt=\count154
-\@anim@@tmlnfile=\read1
-\@anim@tmpcnt=\count155
-\c@@anim@ltxcnt=\count156
-\@anim@curlayer=\count157
-\@anim@lineno=\count158
-\@anim@curfield=\count159
-\@anim@@resizeflags=\count160
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/hyperref.sty
-Package: hyperref 2016/05/05 v6.83n Hypertext links for LaTeX
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
-Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO)
-
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty
-Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO)
-Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO)
-Package hobsub Info: Skipping package `infwarerr' (already loaded).
-Package hobsub Info: Skipping package `ltxcmds' (already loaded).
-Package hobsub Info: Skipping package `ifluatex' (already loaded).
-Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO)
-Package ifvtex Info: VTeX not detected.
-Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO)
-Package hobsub Info: Skipping package `ifpdf' (already loaded).
-Package hobsub Info: Skipping package `etexcmds' (already loaded).
-Package hobsub Info: Skipping package `kvsetkeys' (already loaded).
-Package hobsub Info: Skipping package `kvdefinekeys' (already loaded).
-Package hobsub Info: Skipping package `pdftexcmds' (already loaded).
-Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO)
-Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO
-)
-Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO)
-Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO)
-)
-Package hobsub Info: Skipping package `hobsub' (already loaded).
-Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO)
-Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO)
-Package: xcolor-patch 2016/05/16 xcolor patch
-Package hobsub Info: Skipping package `atveryend' (already loaded).
-Package hobsub Info: Skipping package `atbegshi' (already loaded).
-Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO)
-Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO)
-)
-(/usr/local/texlive/2016/texmf-dist/tex/generic/ifxetex/ifxetex.sty
-Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional
-)
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/kvoptions.sty
-Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO)
-)
-\@linkdim=\dimen167
-\Hy@linkcounter=\count161
-\Hy@pagecounter=\count162
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/pd1enc.def
-File: pd1enc.def 2016/05/05 v6.83n Hyperref: PDFDocEncoding definition (HO)
-)
-\Hy@SavedSpaceFactor=\count163
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/latexconfig/hyperref.cfg
-File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive
-)
-Package hyperref Info: Option `colorlinks' set `true' on input line 4322.
-Package hyperref Info: Hyper figures OFF on input line 4446.
-Package hyperref Info: Link nesting OFF on input line 4451.
-Package hyperref Info: Hyper index ON on input line 4454.
-Package hyperref Info: Plain pages OFF on input line 4461.
-Package hyperref Info: Backreferencing OFF on input line 4466.
-Package hyperref Info: Implicit mode ON; LaTeX internals redefined.
-Package hyperref Info: Bookmarks ON on input line 4691.
-\c@Hy@tempcnt=\count164
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/url/url.sty
-\Urlmuskip=\muskip17
-Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc.
-)
-LaTeX Info: Redefining \url on input line 5044.
-\XeTeXLinkMargin=\dimen168
-\Fld@menulength=\count165
-\Field@Width=\dimen169
-\Fld@charsize=\dimen170
-Package hyperref Info: Hyper figures OFF on input line 6298.
-Package hyperref Info: Link nesting OFF on input line 6303.
-Package hyperref Info: Hyper index ON on input line 6306.
-Package hyperref Info: backreferencing OFF on input line 6313.
-Package hyperref Info: Link coloring ON on input line 6316.
-Package hyperref Info: Link coloring with OCG OFF on input line 6323.
-Package hyperref Info: PDF/A mode OFF on input line 6328.
-LaTeX Info: Redefining \ref on input line 6368.
-LaTeX Info: Redefining \pageref on input line 6372.
-\Hy@abspage=\count166
-\c@Item=\count167
-\c@Hfootnote=\count168
-)
-
-Package hyperref Message: Driver: hdvipdfm.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/hdvipdfm.def
-File: hdvipdfm.def 2016/05/05 v6.83n Hyperref driver for dvipdfm
-\pdfm@box=\box61
-\c@Hy@AnnotLevel=\count169
-\HyField@AnnotCount=\count170
-\Fld@listcount=\count171
-\c@bookmark@seq@number=\count172
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty
-Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO)
-Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2
-82.
-)
-\Hy@SectionHShift=\skip59
-)
-(./s0706animate.aux)
-\openout1 = `s0706animate.aux'.
-
-LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 25.
-LaTeX Font Info: ... okay on input line 25.
-\AtBeginShipoutBox=\box62
-Package hyperref Info: Link coloring ON on input line 25.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/nameref.sty
-Package: nameref 2012/10/27 v2.43 Cross-referencing by name of section
-
-(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/gettitlestring.sty
-Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO)
-)
-\c@section@level=\count173
-)
-LaTeX Info: Redefining \ref on input line 25.
-LaTeX Info: Redefining \pageref on input line 25.
-LaTeX Info: Redefining \nameref on input line 25.
-
-(./s0706animate.out) (./s0706animate.out)
-\@outlinefile=\write3
-\openout3 = `s0706animate.out'.
-
- (./fig/slide0.tex
-LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <14.4> not available
-(Font) Font shape `JT1/gt/m/n' tried instead on input line 1.
-LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <14.4> not available
-(Font) Font shape `JY1/gt/m/n' tried instead on input line 1.
-LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JT1/gt/m/n' tried instead on input line 5.
-LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <24.88> not available
-(Font) Font shape `JY1/gt/m/n' tried instead on input line 5.
-) (./fig/slide0.tex) (./fig/slide0.tex) (./fig/slide0.tex) [0
-
-]
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-
-[1] (./fig/animpointoncircle.tex
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-01.tex
-LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <9> not available
-(Font) Font shape `JT1/gt/m/n' tried instead on input line 8.
-LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <9> not available
-(Font) Font shape `JY1/gt/m/n' tried instead on input line 8.
-LaTeX Font Info: Try loading font information for U+msa on input line 22.
- (/usr/local/texlive/2016/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 22.
-
-(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsb.fd
-File: umsb.fd 2013/01/14 v3.01 AMS symbols B
-)) <a0,fr0>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-02.tex) <a0,fr1>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-03.tex) <a0,fr2>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-04.tex) <a0,fr3>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-05.tex) <a0,fr4>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-06.tex) <a0,fr5>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-07.tex) <a0,fr6>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-08.tex) <a0,fr7>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-09.tex) <a0,fr8>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-10.tex) <a0,fr9>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-11.tex) <a0,fr10>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-12.tex) <a0,fr11>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-13.tex) <a0,fr12>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-14.tex) <a0,fr13>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-15.tex) <a0,fr14>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-16.tex) <a0,fr15>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-17.tex) <a0,fr16>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-18.tex) <a0,fr17>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-19.tex) <a0,fr18>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-20.tex) <a0,fr19>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-21.tex) <a0,fr20>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-22.tex) <a0,fr21>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-23.tex) <a0,fr22>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-24.tex) <a0,fr23>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-25.tex) <a0,fr24>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-26.tex) <a0,fr25>) (./fig/animpointoncircle.tex
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-01.tex) <a1,fr0>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-02.tex) <a1,fr1>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-03.tex) <a1,fr2>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-04.tex) <a1,fr3>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-05.tex) <a1,fr4>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-06.tex) <a1,fr5>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-07.tex) <a1,fr6>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-08.tex) <a1,fr7>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-09.tex) <a1,fr8>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-10.tex) <a1,fr9>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-11.tex) <a1,fr10>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-12.tex) <a1,fr11>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-13.tex) <a1,fr12>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-14.tex) <a1,fr13>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-15.tex) <a1,fr14>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-16.tex) <a1,fr15>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-17.tex) <a1,fr16>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-18.tex) <a1,fr17>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-19.tex) <a1,fr18>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-20.tex) <a1,fr19>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-21.tex) <a1,fr20>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-22.tex) <a1,fr21>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-23.tex) <a1,fr22>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-24.tex) <a1,fr23>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-25.tex) <a1,fr24>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-26.tex) <a1,fr25>) (./fig/animpointoncircle.tex
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-01.tex) <a2,fr0>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-02.tex) <a2,fr1>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-03.tex) <a2,fr2>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-04.tex) <a2,fr3>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-05.tex) <a2,fr4>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-06.tex) <a2,fr5>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-07.tex) <a2,fr6>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-08.tex) <a2,fr7>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-09.tex) <a2,fr8>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-10.tex) <a2,fr9>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-11.tex) <a2,fr10>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-12.tex) <a2,fr11>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-13.tex) <a2,fr12>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-14.tex) <a2,fr13>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-15.tex) <a2,fr14>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-16.tex) <a2,fr15>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-17.tex) <a2,fr16>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-18.tex) <a2,fr17>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-19.tex) <a2,fr18>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-20.tex) <a2,fr19>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-21.tex) <a2,fr20>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-22.tex) <a2,fr21>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-23.tex) <a2,fr22>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-24.tex) <a2,fr23>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-25.tex) <a2,fr24>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-26.tex) <a2,fr25>) (./fig/animpointoncircle.tex
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-01.tex) <a3,fr0>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-02.tex) <a3,fr1>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-03.tex) <a3,fr2>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-04.tex) <a3,fr3>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-05.tex) <a3,fr4>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-06.tex) <a3,fr5>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-07.tex) <a3,fr6>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-08.tex) <a3,fr7>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-09.tex) <a3,fr8>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-10.tex) <a3,fr9>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-11.tex) <a3,fr10>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-12.tex) <a3,fr11>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-13.tex) <a3,fr12>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-14.tex) <a3,fr13>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-15.tex) <a3,fr14>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-16.tex) <a3,fr15>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-17.tex) <a3,fr16>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-18.tex) <a3,fr17>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-19.tex) <a3,fr18>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-20.tex) <a3,fr19>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-21.tex) <a3,fr20>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-22.tex) <a3,fr21>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-23.tex) <a3,fr22>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-24.tex) <a3,fr23>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-25.tex) <a3,fr24>
-(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0
-26.tex) <a3,fr25>)
-Package atveryend Info: Empty hook `BeforeClearDocument' on input line 72.
-
-Overfull \vbox (6.44444pt too high) has occurred while \output is active []
-
-Package atenddvi Info: Last page = 3.
-
-[2]
-Package atveryend Info: Executing hook `AfterLastShipout' on input line 72.
- (./s0706animate.aux)
-Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 72.
-Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 72.
-Package rerunfilecheck Info: File `s0706animate.out' has not changed.
-(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0.
-Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 72.
- )
-Here is how much of TeX's memory you used:
- 14240 strings out of 493693
- 260237 string characters out of 6149786
- 494692 words of memory out of 5000000
- 17400 multiletter control sequences out of 15000+600000
- 15235 words of font info for 61 fonts, out of 8000000 for 9000
- 929 hyphenation exceptions out of 8191
- 48i,12n,65p,10472b,432s stack positions out of 5000i,500n,10000p,200000b,80000s
-
-Output written on s0706animate.dvi (3 pages, 117852 bytes).
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf
deleted file mode 100644
index b63a5929..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex
deleted file mode 100644
index 8a215859..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex
+++ /dev/null
@@ -1,72 +0,0 @@
-%%% タイトル s0706animate
-\documentclass[landscape,10pt]{jarticle}
-\special{papersize=\the\paperwidth,\the\paperheight}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer}
-\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide}
-\usepackage{amsmath,amssymb}
-\usepackage{bm,enumerate}
-\usepackage[dvipdfmx]{graphicx}
-\usepackage{color}
-\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43}
-\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0}
-\definecolor{slidecolore}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolorf}{cmyk}{0,0,0,0.5}
-\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43}
-\usepackage[dvipdfmx]{animate}
-\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref}
-\ketmarginJ
-\ketslideinit
-
-\pagestyle{headings}
-
-\begin{document}
-
-\begin{layer}{120}{0}
-\putnotese{0}{0}{\input{fig/slide0.tex}}
-\end{layer}
-
-\def\mainslidetitley{22}
-\def\ketcletter{slidecolora}
-\def\ketcbox{slidecolorb}
-\def\ketdbox{slidecolorc}
-\def\ketcframe{slidecolord}
-\def\ketcshadow{slidecolore}
-\def\ketdshadow{slidecolorf}
-\def\slidetitlex{6}
-\def\slidetitlesize{1.3}
-\def\mketcletter{slidecolori}
-\def\mketcbox{yellow}
-\def\mketdbox{yellow}
-\def\mketcframe{yellow}
-\def\mslidetitlex{62}
-\def\mslidetitlesize{2}
-
-\color{black}
-\Large\bf\boldmath
-\thispagestyle{empty}
-\addtocounter{page}{-1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\mainslide{メインスライド1}
-
-%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%
-
-\newslide{極座標と曲線(Animation)}
-
-\vspace*{18mm}
-
-
-\begin{layer}{120}{0}
-\putnotes{65}{5}{\input{fig/animpointoncircle.tex}}
-\end{layer}
-
-
-\end{document}
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt
deleted file mode 100644
index 9222ae6e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt
+++ /dev/null
@@ -1,12 +0,0 @@
-%タイトル::slide0::kabegami//
-タイトル::slide0//
-
-%%%%%%%%%%%%%%%%//
-main::メインスライド1//
-
-%%%%%%%%%%%%%%%%//
-new::極座標と曲線(Animation)//
-
-\begin{center}//
-\input{fig/animpointoncircle}//
-\end{center}// \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy
deleted file mode 100644
index 54c66e5a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy
deleted file mode 100644
index c782ff96..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy
deleted file mode 100644
index 1522f3d0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy
deleted file mode 100644
index dadd4f79..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy
deleted file mode 100644
index 5dc6c002..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy
deleted file mode 100644
index 037b205c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy
deleted file mode 100644
index ab06c7a0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy
deleted file mode 100644
index a5a47941..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy
deleted file mode 100644
index a24c0394..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy
deleted file mode 100644
index e997e2df..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy
deleted file mode 100644
index 6ffda131..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy
deleted file mode 100644
index 33a7830a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy
deleted file mode 100644
index c8047082..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy
deleted file mode 100644
index f6b84503..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy
deleted file mode 100644
index aa4ee7e1..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy
deleted file mode 100644
index 8a636e54..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy
deleted file mode 100644
index e07e02fc..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy
deleted file mode 100644
index daa92575..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy
deleted file mode 100644
index bd14ba85..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy
deleted file mode 100644
index 299dbb25..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy
deleted file mode 100644
index 047a0e77..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy
deleted file mode 100644
index f4babdb7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy
deleted file mode 100644
index 7221c5c0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy
deleted file mode 100644
index 89d08f6d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy
deleted file mode 100644
index 647b466b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy
deleted file mode 100644
index 79b0dbdd..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy
deleted file mode 100644
index 4d31709a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy
deleted file mode 100644
index b648d937..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy
deleted file mode 100644
index 02a0b920..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy
deleted file mode 100644
index 66cb8830..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy
deleted file mode 100644
index 1178361b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy
deleted file mode 100644
index 82944bc0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy
deleted file mode 100644
index 4d75c163..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy
deleted file mode 100644
index 0a2b0367..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy
deleted file mode 100644
index 5201f949..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy
deleted file mode 100644
index 9e7b1f9e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy
deleted file mode 100644
index 83c54a24..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy
deleted file mode 100644
index d321b85c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy
deleted file mode 100644
index 6b57d7e0..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy
deleted file mode 100644
index 44e7def2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy
deleted file mode 100644
index fbe92c41..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy
deleted file mode 100644
index 3871bf27..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy
deleted file mode 100644
index a6dcfe79..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy
deleted file mode 100644
index 699963b8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy
deleted file mode 100644
index 9346f12e..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy
deleted file mode 100644
index 50ad1503..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy
deleted file mode 100644
index f4e70933..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy
deleted file mode 100644
index 9e45e8df..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy
deleted file mode 100644
index a1e279e9..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy
deleted file mode 100644
index 2387ed40..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy
deleted file mode 100644
index 2441a5d8..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy
deleted file mode 100644
index 38300c52..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy
deleted file mode 100644
index a4740a24..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy
deleted file mode 100644
index 87ef5c1c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy
deleted file mode 100644
index 80ce5bd7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy
deleted file mode 100644
index 0a37dd8a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy
deleted file mode 100644
index 96e2d15a..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy
deleted file mode 100644
index 1dac04a2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy
deleted file mode 100644
index 6f7ccd19..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy
deleted file mode 100644
index 631105fc..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy
deleted file mode 100644
index c9693b26..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy
deleted file mode 100644
index ff5faa44..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy
deleted file mode 100644
index cdff2f09..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy
deleted file mode 100644
index c52cd3ed..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt
deleted file mode 100644
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt
+++ /dev/null
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh
deleted file mode 100755
index fdc5e838..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh
+++ /dev/null
@@ -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/ketpic/ketsample/samples/s14dataprocessing/resultR.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt
deleted file mode 100644
index 1259c849..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt
+++ /dev/null
@@ -1 +0,0 @@
-//// \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy
deleted file mode 100755
index 1e441c04..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy
deleted file mode 100755
index 7a2a062b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy
deleted file mode 100644
index 1ac0b8a1..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv
deleted file mode 100644
index 38d5fa8c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv
+++ /dev/null
@@ -1,10 +0,0 @@
-63,33,59,64,52
-61,26,47,27,59
-40,52,24,48,26
-63,56,44,40,34
-75,34,64,76,61
-58,63,53,50,68
-65,38,81,59,23
-54,65,41,76,53
-75,61,42,58,40
-44,42,58,41,56
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv
deleted file mode 100644
index f6273be2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv
+++ /dev/null
@@ -1,10 +0,0 @@
-50,68,57,65,60
-64,48,65,61,72
-41,45,31,51,47
-54,55,39,47,39
-34,52,43,50,47
-54,31,58,38,79
-14,36,56,46,63
-78,54,40,64,42
-40,44,68,59,46
-41,65,40,44,37
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy
deleted file mode 100644
index 5c5e4681..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy
deleted file mode 100644
index 73b7c10c..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy
deleted file mode 100644
index c68725b7..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy
deleted file mode 100644
index a0ac796b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy
deleted file mode 100644
index 6a354f01..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy
deleted file mode 100644
index dcf2f93d..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy
deleted file mode 100755
index e78fe2b3..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html
deleted file mode 100644
index 6ae9f06e..00000000
--- a/texmf-dist/doc/support/ketpic/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/ketpic/ketsample/samplesJS/js02diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdy
deleted file mode 100644
index 4f3445d2..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html
deleted file mode 100644
index 53b5c9a0..00000000
--- a/texmf-dist/doc/support/ketpic/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/ketpic/ketsample/samplesJS/js03gamow.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdy
deleted file mode 100755
index 2e926cd4..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdy
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html
deleted file mode 100644
index 3acb1b2c..00000000
--- a/texmf-dist/doc/support/ketpic/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/ketpic/ketsample/samplesJS/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh
deleted file mode 100755
index e69de29b..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh
+++ /dev/null