diff options
author | Norbert Preining <norbert@preining.info> | 2019-12-26 03:00:38 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-12-26 03:00:38 +0000 |
commit | 61662d8a6546ba9debc2b0793ed12646083eb394 (patch) | |
tree | 80390a67160b557b07f717bf946ab7140fbcbe33 /graphics/ketcindy/ketcindyfolder/scripts | |
parent | 3009cc3d943aa281945de7d2204ebbe359bd405f (diff) |
CTAN sync 201912260300
Diffstat (limited to 'graphics/ketcindy/ketcindyfolder/scripts')
16 files changed, 838 insertions, 666 deletions
diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic1list.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic1list.txt index 9ed585fb1b..36dd27b91d 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic1list.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic1list.txt @@ -1,150 +1,150 @@ -Ketinit,basic1,41,178,Fillstore,Cindyname,Indexall,getname,iswindows,ismacosx,Changesetting,Changework,pathsep,Setwindow,Strictmove -Initglist,basic1,182,185,Ketinit -Setglist,basic1,189,195 -Addglist,basic1,199,205 -Fillstore,basic1,209,242 -Fillblack,basic1,246,260,Fillstore -Fillrestore,basic1,264,276 -Readlines,basic1,280,291,readfile2str -Changesetting,basic1,295,310,pathsep,getname,isexists -Cindyname,basic1,314,321,Cdyname,Getcdyname -Setwindow,basic1,325,362,Toupper,LLcrd,Putpoint,Ptpos,Strictmove,Pcrd -Setfiles,basic1,366,379,Dqq -Setparent,basic1,383,395,Dqq -Reparse,basic1,399,409 -Dqq,basic1,413,413,DqDq -DqDq,basic1,416,419 -PPa,basic1,423,424 -PaO,basic1,428,440 -PaC,basic1,444,456 -PPa,basic1,460,460 -Tab2list,basic1,464,526,Divoptions,Toupper,Indexall -Columnlist,basic1,530,533 -Dispmat,basic1,537,559 -Sep1000,basic1,563,581 -Acos,basic1,585,588 -Asin,basic1,592,595 -Atan,basic1,599,602 -Sqr,basic1,606,609 -Factorial,basic1,613,621 -Norm,basic1,625,637 -Removespace,basic1,642,667 -Indexall,basic1,671,689 -Strsplit,basic1,693,704,Indexall -Parlevel,basic1,708,708,Bracket -Bracket,basic1,711,733,Indexall -Pardiagram,basic1,737,833,Divoptions,Toupper,Bracket,Listplot,Letter,Expr -Changework,basic1,837,895,Divoptions,Strsplit,Toupper,Indexall,isexists,Dqq,makedir,pathsep,iswindows,iskcexists,setexec -Changestyle,basic1,899,931,Divoptions,Com2nd,Getlinestyle,Texcom -Op,basic1,935,947 -Ptselected,basic1,951,967,|mouse -Finddef,basic1,971,990 -Findgeoinfo,basic1,994,1019,Finddef -Dependgeo,basic1,1023,1043,Finddef -Workprocess,basic1,1047,1051,Drawprocess -Drawprocess,basic1,1054,1099,Divoptions,Strsplit,Toupper,Dependgeo -Sortpointlist,basic1,1103,1135 -Toupper,basic1,1139,1154 -Textformat,basic1,1158,1182 -Sprintf,basic1,1186,1203,Textformat -Replaceall,basic1,1207,1217 -Assign,basic1,1221,1284,Textformat -Measuredepth,basic1,1315,1328,Indexall -Flattenlist,basic1,1332,1352,Measuredepth -Divoptions,basic1,1356,1459,Strsplit,Toupper,Colorcmyk2rgb,Colorname2rgb -Dotprod,basic1,1463,1469 -Crossprod,basic1,1473,1485 -Mvprod,basic1,1489,1507,Measuredepth -Ptstart,basic1,1511,1516 -Ptend,basic1,1520,1525 -Numptcrv,basic1,1529,1534 -Ptcrv,basic1,1538,1543 -Invert,basic1,1547,1560,Listplot -Paramoncrv,basic1,1564,1564,Paramoncurve -Paramoncurve,basic1,1567,1593,Nearestpt,LLcrd -Pointoncrv,basic1,1597,1597,Pointoncurve -Pointoncurve,basic1,1600,1618 -Koutenseg,basic1,1622,1731 -Intersectcrvspp,basic1,1737,1880,Divoptions,Measuredepth,LLcrd,Koutenseg -Intersectcrvs,basic1,1884,1890,Intersectcrvspp -Intersectline,basic1,1898,1920,Dotprod,Crossprod -Intersectseg,basic1,1924,2024,Op,Intersectline,Nearestpt -Osplineseg,basic1,2028,2045,Dotprod,Bezier -Intersectpartseg,basic1,2049,2151,Crossprod,Norm,Reflectpoint,Osplineseg,Intersectseg,Op,Intersectline -Collectsameseg,basic1,2155,2197 -Intersectcurvespp,basic1,2201,2307,LLcrd,Intersectpartseg,Collectsameseg,Nearestpt -Intersectcurves,basic1,2311,2318,Intersectcurvespp,190917 -Nearestptcrvphy,basic1,2324,2333,Pcrd,Measuredepth,Nearestpt -Nearestptcrv,basic1,2337,2343,Nearestpt -Nearestpt,basic1,2347,2400,Measuredepth,Paramoncurve -Derivative,basic1,2404,2495,Strsplit,Lineplot,Intersectcurvespp,Pointoncurve,Dotprod,Divoptions,Toupper,PaO,Pcrd,Assign -Tangentplot,basic1,2499,2546,Divoptions,Strsplit,Toupper,Intersectcurvespp,Derivative,Lineplot -Integrate,basic1,2550,2563,Integratefn,Integratedt -Integratedt,basic1,2567,2599,Divoptions,Toupper,IntegrateO,Measuredepth,MeetCurve,LLcrd -Integratefn,basic1,2603,2663,Divoptions,Toupper,Strsplit,Assign,IntegrateO,Textformat -IntegrateO,basic1,2667,2746,Measuredepth,Meetcurve,LLcrd,Dotprod -FindareaP,basic1,2750,2763,Lcrd -FindareaO,basic1,2767,2788,Dist,IntegrateO -Findarea,basic1,2792,2818,Divoptions,Strsplit,Toupper,FindareaO,FindareaP -Findlength,basic1,2822,2834,Lcrd -Inversefun,basic1,2838,2861,Textformat -Com0th,basic1,2865,2869 -Com1st,basic1,2873,2878 -Com2nd,basic1,2882,2887 -Com2ndpre,basic1,2891,2895 -Texcom,basic1,2899,2906,Com2nd -Ketcindylogo,basic1,2910,2914,Com2nd -Drwline,basic1,2918,2921,Textformat,Com2nd -Dashline,basic1,2926,2928,Com2nd -Invdashline,basic1,2932,2934,Com2nd -Dottedline,basic1,2938,2940,Com2nd -Drawlinetype,basic1,2944,2965,Toupper,Drwline,Dashline,Invdashline,Dottedline -Setunitlen,basic1,2969,3021 -Setmarklen,basic1,3025,3029,Com2nd,Textformat -Setorigin,basic1,3033,3037,Com2nd,Textformat -Fontsize,basic1,3041,3044,Com2nd -Setpen,basic1,3048,3052,Com2nd -Setscaling,basic1,3056,3070,Com0th,Setwindow -Lcrd,basic1,3074,3082 -Pcrd,basic1,3086,3094 -LLcrd,basic1,3098,3107 -Doscaling,basic1,3111,3138,Lcrd,LLcrd -Unscaling,basic1,3142,3169,Lcrd,LLcrd -Setpt,basic1,3173,3179,Ptsize,Com2nd -Definecolor,basic1,3183,3191,Texcom -Setcolor,basic1,3195,3222,Colorcmyk2rgb,Com2nd -Colorrgb2cmyk,basic1,3226,3238 -Colorcmyk2rgb,basic1,3242,3249 -Colorrgbhsv,basic1,3253,3285 -Colorhsvrgb,basic1,3289,3303 -Colorrgbhsl,basic1,3307,3343 -Colorhslrgb,basic1,3347,3368,Hue2rgb -Hue2rgb,basic1,3372,3390 -Colorrgbhwb,basic1,3394,3400,Colorrgbhsl,Colorcode -Colorhwbrgb,basic1,3404,3429 -Colorcode,basic1,3433,3446,Colorrgb2cmyk,Colorcmyk2rgb,Colorrgbhsv,Colorrgbhsl,Colorrgbhwb,Colorhsvrgb,Colorhslrgb,Colorhwbrgb -Colorname2rgb,basic1,3450,3500,Colorcmyk2rgb,Assign -Getlinestyle,basic1,3504,3569,Toupper,Drwline,Dashline,Invdashline,Dottedline,Textformat,Drwpt -Chunderscore,basic1,3573,3608,PaO -AddGraph,basic1,3612,3712,Divoptions,Flattenlist,Pcrd,Measuredepth,PaO,Textformat,Com2nd,Getlinestyle,Texcom -Joincrvs,basic1,3716,3812,LLcrd,Divoptions,Numptcrv,Ptstart,Ptend,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Partcrv,basic1,3816,3905,Measuredepth,Divoptions,Numptcrv,Ptstart,Ptend,Joincrvs,Nearestpt,LLcrd,Pcrd,Textformat,Lcrd,Com2nd,Getlinestyle,Texcom -Opcrvs,basic1,3909,3917,Listplot -Pointdata,basic1,3921,4065,Divoptions,Strsplit,Colorcmyk2rgb,Colorname2rgb,Toupper,Lcrd,Measuredepth,Pcrd,PaO,Texcom,Textformat,Com2nd -Listplot,basic1,4069,4150,Divoptions,Strsplit,Toupper,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom,Lcrd -Lineplot,basic1,4154,4237,Strsplit,Toupper,Divoptions,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Plotdata,basic1,4241,4446,Divoptions,Strsplit,PaO,Dqq,Toupper,Assign,Norm,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Paramplot,basic1,4450,4622,Divoptions,Strsplit,PaO,Dqq,Toupper, differs from Scilab ,Assign,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Polarplot,basic1,4626,4635,Strsplit,Paramplot -Connectseg,basic1,4639,4701,Norm -Implicitplot,basic1,4705,4888,Divoptions,Strsplit,Toupper,Impfun,Connectseg,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Circledata,basic1,4892,5011,Divoptions,Strsplit,Toupper,Lcrd,Defvar,Lineplot,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Framedata,basic1,5015,5067,Measuredepth,LLcrd,Divoptions,Lcrd,Listplot -Framedata2,basic1,5071,5078,Lcrd,Framedata -Ovaldata,basic1,5082,5152,Divoptions,Lcrd,Listplot,Circledata,Reflectdata,Joincrvs,Com2nd,Getlinestyle,Texcom,Pcrd,Textformat -Segmark,basic1,5156,5216,Drawsegmark,Divoptions,Toupper,Circledata,Listplot -Parabolaplot,basic1,5220,5260,Lcrd,Rotatepoint,Textformat,Plotdata,Rotatedata -Ellipseplot,basic1,5264,5307,Lcrd,Rotatepoint,Paramplot,Rotatedata -Hyperbolaplot,basic1,5311,5375,Divoptions,Toupper,Lcrd,Rotatepoint,Paramplot,Lineplot,Rotatedata -Polygonplot,basic1,5379,5425,Divoptions,Strsplit,Toupper,Lcrd,Putpoint,Listplot -Putintersect,basic1,5429,5457,Intersectcrvs,Putpoint +Ketinit,basic1,41,179,Fillstore,Usegraphics,Cindyname,Indexall,getname,iswindows,ismacosx,Changesetting,Changework,pathsep,Setwindow,Strictmove +Initglist,basic1,183,186,Ketinit +Setglist,basic1,190,196 +Addglist,basic1,200,206 +Fillstore,basic1,210,243 +Fillblack,basic1,247,261,Fillstore +Fillrestore,basic1,265,277 +Readlines,basic1,281,292,readfile2str +Changesetting,basic1,296,311,pathsep,getname,isexists +Cindyname,basic1,315,322,Cdyname,Getcdyname +Setwindow,basic1,326,375,LLcrd,Putpoint,Ptpos,Strictmove,Pcrd,Toupper +Setfiles,basic1,379,392,Dqq +Setparent,basic1,396,408,Dqq +Reparse,basic1,412,422 +Dqq,basic1,426,426,DqDq +DqDq,basic1,429,432 +PPa,basic1,436,437 +PaO,basic1,441,453 +PaC,basic1,457,469 +PPa,basic1,473,473 +Tab2list,basic1,477,539,Divoptions,Toupper,Indexall +Columnlist,basic1,543,546 +Dispmat,basic1,550,572 +Sep1000,basic1,576,594 +Acos,basic1,598,601 +Asin,basic1,605,608 +Atan,basic1,612,615 +Sqr,basic1,619,622 +Factorial,basic1,626,634 +Norm,basic1,638,650 +Removespace,basic1,655,680 +Indexall,basic1,684,702 +Strsplit,basic1,706,717,Indexall +Parlevel,basic1,721,721,Bracket +Bracket,basic1,724,746,Indexall +Pardiagram,basic1,750,846,Divoptions,Toupper,Bracket,Listplot,Letter,Expr +Changework,basic1,850,908,Divoptions,Strsplit,Toupper,Indexall,isexists,Dqq,makedir,pathsep,iswindows,iskcexists,setexec +Changestyle,basic1,912,965,Divoptions,Com2nd,Getlinestyle,Texcom +Op,basic1,969,981 +Ptselected,basic1,985,1001,|mouse +Finddef,basic1,1005,1024 +Findgeoinfo,basic1,1028,1053,Finddef +Dependgeo,basic1,1057,1077,Finddef +Workprocess,basic1,1081,1085,Drawprocess +Drawprocess,basic1,1088,1133,Divoptions,Strsplit,Toupper,Dependgeo +Sortpointlist,basic1,1137,1169 +Toupper,basic1,1173,1188 +Textformat,basic1,1192,1216 +Sprintf,basic1,1220,1237,Textformat +Replaceall,basic1,1241,1251 +Assign,basic1,1255,1318,Textformat +Measuredepth,basic1,1349,1362,Indexall +Flattenlist,basic1,1366,1386,Measuredepth +Divoptions,basic1,1390,1493,Strsplit,Toupper,Colorcmyk2rgb,Colorname2rgb +Dotprod,basic1,1497,1503 +Crossprod,basic1,1507,1519 +Mvprod,basic1,1523,1541,Measuredepth +Ptstart,basic1,1545,1550 +Ptend,basic1,1554,1559 +Numptcrv,basic1,1563,1568 +Ptcrv,basic1,1572,1577 +Invert,basic1,1581,1594,Listplot +Paramoncrv,basic1,1598,1598,Paramoncurve +Paramoncurve,basic1,1601,1627,Nearestpt,LLcrd +Pointoncrv,basic1,1631,1631,Pointoncurve +Pointoncurve,basic1,1634,1652 +Koutenseg,basic1,1656,1765 +Intersectcrvspp,basic1,1771,1914,Divoptions,Measuredepth,LLcrd,Koutenseg +Intersectcrvs,basic1,1918,1924,Intersectcrvspp +Intersectline,basic1,1932,1954,Dotprod,Crossprod +Intersectseg,basic1,1958,2058,Op,Intersectline,Nearestpt +Osplineseg,basic1,2062,2079,Dotprod,Bezier +Intersectpartseg,basic1,2083,2185,Crossprod,Norm,Reflectpoint,Osplineseg,Intersectseg,Op,Intersectline +Collectsameseg,basic1,2189,2231 +Intersectcurvespp,basic1,2235,2341,LLcrd,Intersectpartseg,Collectsameseg,Nearestpt +Intersectcurves,basic1,2345,2352,Intersectcurvespp,190917 +Nearestptcrvphy,basic1,2358,2367,Pcrd,Measuredepth,Nearestpt +Nearestptcrv,basic1,2371,2377,Nearestpt +Nearestpt,basic1,2381,2434,Measuredepth,Paramoncurve +Derivative,basic1,2438,2529,Strsplit,Lineplot,Intersectcurvespp,Pointoncurve,Dotprod,Divoptions,Toupper,PaO,Pcrd,Assign +Tangentplot,basic1,2533,2580,Divoptions,Strsplit,Toupper,Intersectcurvespp,Derivative,Lineplot +Integrate,basic1,2584,2597,Integratefn,Integratedt +Integratedt,basic1,2601,2633,Divoptions,Toupper,IntegrateO,Measuredepth,MeetCurve,LLcrd +Integratefn,basic1,2637,2697,Divoptions,Toupper,Strsplit,Assign,IntegrateO,Textformat +IntegrateO,basic1,2701,2780,Measuredepth,Meetcurve,LLcrd,Dotprod +FindareaP,basic1,2784,2797,Lcrd +FindareaO,basic1,2801,2822,Dist,IntegrateO +Findarea,basic1,2826,2852,Divoptions,Strsplit,Toupper,FindareaO,FindareaP +Findlength,basic1,2856,2868,Lcrd +Inversefun,basic1,2872,2895,Textformat +Com0th,basic1,2899,2903 +Com1st,basic1,2907,2912 +Com2nd,basic1,2916,2921 +Com2ndpre,basic1,2925,2929 +Texcom,basic1,2933,2940,Com2nd +Ketcindylogo,basic1,2944,2948,Com2nd +Drwline,basic1,2952,2955,Textformat,Com2nd +Dashline,basic1,2960,2962,Com2nd +Invdashline,basic1,2966,2968,Com2nd +Dottedline,basic1,2972,2974,Com2nd +Drawlinetype,basic1,2978,2999,Toupper,Drwline,Dashline,Invdashline,Dottedline +Setunitlen,basic1,3003,3055 +Setmarklen,basic1,3059,3063,Com2nd,Textformat +Setorigin,basic1,3067,3071,Com2nd,Textformat +Fontsize,basic1,3075,3078,Com2nd +Setpen,basic1,3082,3086,Com2nd +Setscaling,basic1,3090,3104,Com0th,Setwindow +Lcrd,basic1,3108,3116 +Pcrd,basic1,3120,3128 +LLcrd,basic1,3132,3141 +Doscaling,basic1,3145,3172,Lcrd,LLcrd +Unscaling,basic1,3176,3203,Lcrd,LLcrd +Setpt,basic1,3207,3213,Ptsize,Com2nd +Definecolor,basic1,3217,3225,Texcom +Setcolor,basic1,3229,3256,Colorcmyk2rgb,Com2nd +Colorrgb2cmyk,basic1,3260,3272 +Colorcmyk2rgb,basic1,3276,3283 +Colorrgbhsv,basic1,3287,3319 +Colorhsvrgb,basic1,3323,3337 +Colorrgbhsl,basic1,3341,3377 +Colorhslrgb,basic1,3381,3402,Hue2rgb +Hue2rgb,basic1,3406,3424 +Colorrgbhwb,basic1,3428,3434,Colorrgbhsl,Colorcode +Colorhwbrgb,basic1,3438,3463 +Colorcode,basic1,3467,3480,Colorrgb2cmyk,Colorcmyk2rgb,Colorrgbhsv,Colorrgbhsl,Colorrgbhwb,Colorhsvrgb,Colorhslrgb,Colorhwbrgb +Colorname2rgb,basic1,3484,3534,Colorcmyk2rgb,Assign +Getlinestyle,basic1,3538,3603,Toupper,Drwline,Dashline,Invdashline,Dottedline,Textformat,Drwpt +Chunderscore,basic1,3607,3642,PaO +AddGraph,basic1,3646,3746,Divoptions,Flattenlist,Pcrd,Measuredepth,PaO,Textformat,Com2nd,Getlinestyle,Texcom +Joincrvs,basic1,3750,3846,LLcrd,Divoptions,Numptcrv,Ptstart,Ptend,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Partcrv,basic1,3850,3939,Measuredepth,Divoptions,Numptcrv,Ptstart,Ptend,Joincrvs,Nearestpt,LLcrd,Pcrd,Textformat,Lcrd,Com2nd,Getlinestyle,Texcom +Opcrvs,basic1,3943,3951,Listplot +Pointdata,basic1,3955,4100,Divoptions,Strsplit,Colorcmyk2rgb,Colorname2rgb,Toupper,Lcrd,Measuredepth,Pcrd,PaO,Texcom,Textformat,Com2nd +Listplot,basic1,4104,4185,Divoptions,Strsplit,Toupper,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom,Lcrd +Lineplot,basic1,4189,4272,Strsplit,Toupper,Divoptions,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Plotdata,basic1,4276,4481,Divoptions,Strsplit,PaO,Dqq,Toupper,Assign,Norm,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Paramplot,basic1,4485,4657,Divoptions,Strsplit,PaO,Dqq,Toupper, differs from Scilab ,Assign,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Polarplot,basic1,4661,4670,Strsplit,Paramplot +Connectseg,basic1,4674,4736,Norm +Implicitplot,basic1,4740,4923,Divoptions,Strsplit,Toupper,Impfun,Connectseg,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Circledata,basic1,4927,5046,Divoptions,Strsplit,Toupper,Lcrd,Defvar,Lineplot,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Framedata,basic1,5050,5117,Measuredepth,LLcrd,Divoptions,Toupper,Lcrd,Listplot +Framedata2,basic1,5121,5128,Lcrd,Framedata +Ovaldata,basic1,5132,5202,Divoptions,Lcrd,Listplot,Circledata,Reflectdata,Joincrvs,Com2nd,Getlinestyle,Texcom,Pcrd,Textformat +Segmark,basic1,5206,5266,Drawsegmark,Divoptions,Toupper,Circledata,Listplot +Parabolaplot,basic1,5270,5310,Lcrd,Rotatepoint,Textformat,Plotdata,Rotatedata +Ellipseplot,basic1,5314,5357,Lcrd,Rotatepoint,Paramplot,Rotatedata +Hyperbolaplot,basic1,5361,5425,Divoptions,Toupper,Lcrd,Rotatepoint,Paramplot,Lineplot,Rotatedata +Polygonplot,basic1,5429,5475,Divoptions,Strsplit,Toupper,Lcrd,Putpoint,Listplot +Putintersect,basic1,5479,5507,Intersectcrvs,Putpoint diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic2list.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic2list.txt index 0e6e2a577c..dae7a9563a 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic2list.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic2list.txt @@ -1,99 +1,99 @@ Drwfigs,basic2,22,24,Drawfigures Drawfigures,basic2,28,106,Divoptions,Strsplit,Toupper,Measuredepth,Pointdata,Listplot,Dqq Setarrow,basic2,110,136 -Arrowheaddata,basic2,140,233,Divoptions,Strsplit,Toupper,Touppera,Measuredepth,Nearestpt,|Ptend,Ptstart,Numptcrv,Ptcrv,LLcrd,Intersectcrvspp,Pcrd -Arrowhead,basic2,237,329,Strsplit,Toupper,Measuredepth,Pcrd,Arrowheaddata,Inwindow,Listplot,Divoptions,Dqq,Textformat,LLcrd,Com2nd,Texcom -Arrowdata,basic2,333,335,Lightarrowdata -OldArrowdata,basic2,339,453,Arrowdata,Divoptions,Strsplit,Toupper,Pcrd,Textformat,Listplot,LLcrd,Arrowhead,Setscaling,Lcrd -Lightarrowdata,basic2,457,578,Pcrd,Divoptions,Strsplit,Toupper,Listplot,Textformat,LLcrd,Indexall,Dqq,Com2nd,Texcom,Setscaling,Lcrd -Anglemark,basic2,582,715,Divoptions,Indexall,Strsplit,Dqq,Toupper,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Paramark,basic2,719,829,Divoptions,Indexall,Strsplit,Dqq,Toupper,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Makebowdata,basic2,833,846,Lcrd,Rotatepoint -Bowdata,basic2,850,1021,Divoptions,Lcrd,Strsplit,Toupper,Makebowdata,Defvar,Norm,LLcrd,Dqq,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom -Bowname,basic2,1025,1028,Expr -Bownamerot,basic2,1032,1046,Measuredepth,Ptend,Ptstart,Exprrot -Deqdata,basic2,1050,1108,funP,Lcrd,funN -Deqplot,basic2,1112,1256,Lcrd,Divoptions,Toupper,Indexall,Deqdata,Pcrd,Assign,Textformat,RSform,Com2nd,Getlinestyle,Texcom -Enclosing,basic2,1260,1423,Enclosing2,Divoptions,isList,Lcrd,Listplot,Intersectcurvespp,Prepend,Op,Length,Partcrv,Pointoncurve,Pcrd,PaO,Textformat,Com2nd,Getlinestyle,Texcom,LLcrd -Makehatch,basic2,1429,1531,Lineplot,Intersectseg,Norm,Listplot -Anyselected,basic2,1535,1543 -Hatchdata,basic2,1547,1843,HatchdataR,Hatchdatacindy,Listplot,Joincrvs,Enclosing2,Divoptions,Strsplit,Toupper,Anyselected,Bracket,isexists,ReadOutData,Makehatch,Textformat,PaO,Com2nd,Getlinestyle,Texcom,WriteOutData,LLcrd -Shadein,basic2,1847,1934,Framedata,Partcrv,Paramoncrv,Listplot,Intersectcurvespp,Pointoncrv,Joincrvs,Inwindow -Shade,basic2,1938,2066,Divoptions,Strsplit,Toupper,Colorcmyk2rgb,Enclosing,Shadein,Listplot,Joincrvs,Pcrd,PaO,Textformat,Dqq -Rotatepoint,basic2,2072,2082,Lcrd -Translatepoint,basic2,2086,2096,Lcrd -Scalepoint,basic2,2100,2110,Lcrd -Reflectpoint,basic2,2114,2139,Lcrd -Rotatedata,basic2,2143,2229,Divoptions,Lcrd,Strsplit,Toupper,Measuredepth,LLcrd,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom -Translatedata,basic2,2233,2311,Divoptions,Strsplit,Toupper,Lcrd,Measuredepth,LLcrd,Pcrd,RSform,Textformat,Com2nd,Getlinestyle,Texcom -Scaledata,basic2,2315,2417,Divoptions,Lcrd,Strsplit,Toupper,Measuredepth,LLcrd,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom -Reflectdata,basic2,2421,2515,Divoptions,Strsplit,Toupper,Lcrd,Measuredepth,LLcrd,Pcrd,RSform,Textformat,Com2nd,Getlinestyle,Texcom -Mksegments,basic2,2520,2535,Listplot -Mkcircles,basic2,2540,2560,Strsplit,Circledata -MakeRarg,basic2,2564,2577,RSslash,Textformat -Htickmark,basic2,2581,2604,Listplot,Expr -Vtickmark,basic2,2608,2629,Listplot,Expr,180710to// tmp=MakeRarg -Vtick,basic2,2633,2643,Listplot -Htick,basic2,2647,2659,LLcrd,Listplot -Setax,basic2,2663,2687,Divoptions -Drwxy,basic2,2691,2797,Divoptions,Strsplit,Toupper,Lightarrowdata,Listplot,Expr,Letter,Addax -Drwpt,basic2,2801,2810,Pointdata -Drawpoint,basic2,2813,2841,Measuredepth,Textformat,Com2nd,Setpen -Addax,basic2,2845,2848 -Expr,basic2,2852,2867,Letter -Letter,basic2,2871,2972,Divoptions,Removespace,Strsplit,Toupper,RSslash,Com2nd,Lcrd,Texcom,Pcrd -Letterrot,basic2,2976,3018,Divoptions,Letter,Com2nd,Dqq,Texcom -Exprrot,basic2,3022,3065,Divoptions,Expr,Com2nd,Dqq,Texcom -Ptpos,basic2,3069,3089,Textformat -Strictmove,basic2,3093,3113,textformat,Textformat -Slider,basic2,3117,3164,Toupper,Strsplit,Indexall,textformat,Listplot,Putonseg -Putpoint,basic2,3168,3179,Textformat,Pcrd -Bezierpt,basic2,3183,3208,Lcrd -Bezier,basic2,3212,3224,Beziercurve -Beziercurve,basic2,3228,3305,Divoptions,Measuredepth,Lcrd,Bezierpt,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom -Putbezierdata,basic2,3309,3371,Divoptions,Putpoint,Lcrd,Letter -Bezierstart,basic2,3375,3377 -Mkbezierptcrv,basic2,3381,3407,Readcsvsla,Measuredepth,Putbezierdata,Bezier -Mkbeziercrv,basic2,3411,3422,Measuredepth,Bezier -Ospline,basic2,3426,3485,Dotprod,Lcrd,Bezier -CRspline,basic2,3489,3535,Lcrd,Reflectpoint,Bezier -Beziersmooth,basic2,3539,3600,Bzspline,Putpoint,Lcrd,Bezier -Beziersym,basic2,3604,3653,Bzsspline,Putpoint,Lcrd,Bezier -Listbspline2bz,basic2,3657,3672,Lcrd -Bspline,basic2,3676,3684,Listbspline2bz,BezierCurve -Meetcurve,basic2,3688,3748,Measuredepth,LLcrd,Lcrd -Putonline,basic2,3752,3772,LLcrd,Lineplot,Putonseg -Putonseg,basic2,3776,3812,LLcrd,Divoptions,Lcrd,Putpoint,Pcrd,Textformat -Putoncurve,basic2,3816,3845,putoncurve,Putpoint,Paramoncurve,Putonseg,Textformat,Ptend -Crosspoint,basic2,3849,3867,MeetCurve,Putpoint -Periodfun,basic2,3871,4004,Divoptions,Strsplit,Toupper,Plotdata,Translatedata,Setscaling,Norm,Listplot,Textformat -Mkcstable,basic2,4008,4024,Textformat -Fourierseries,basic2,4028,4095,Divoptions,Strsplit,Toupper,Deffun,Plotdata,Assign,Listplot -Tabledata,basic2,4099,4121,Divoptions,Toupper,Tabledatageo,Tabledatalight -Tabledatalight,basic2,4125,4244,Divoptions,Strsplit,Toupper,Tlistplot,Changetablestyle,Addax,Setwindow -Tabledatageo,basic2,4248,4312,Divoptions,Strsplit,Toupper,Putpoint,Tabledatalight -Tgrid,basic2,4316,4331 -Tlistplot,basic2,4335,4364,divoptions,Toupper,Tgrid,Listplot -Changetablestyle,basic2,4368,4456,Indexall,Changestyle,Replaceall,Tlistplot -Findcell,basic2,4460,4486,Tgrid -Putcell,basic2,4490,4525,Findcell,Letter -Putcellexpr,basic2,4529,4541,Putcell -Putrow,basic2,4545,4560,Putcellrow,Putcell -Putrowexpr,basic2,4564,4577,Putrow -Putcol,basic2,4581,4596,Putcellexpr,Putcell -Putcolexpr,basic2,4600,4613,Putcellexpr,Putcol -Setrange,basic2,4617,4623,Pcrd -Inwindow,basic2,4627,4639 -Dashlinedata,basic2,4643,4716 -Windispg,basic2,4720,4787,Drwxy,Measuredepth,Dashlinedata,Textformat -Extractdata,basic2,4792,4848,Divoptions,Com2nd,Getlinestyle,Texcom -Removeout,basic2,4852,4862 -Makecmdlist,basic2,4866,4896 -Savecmdlist,basic2,4900,4906 -Quicksort,basic2,4910,4930 -Lessstr,basic2,4934,4961 -Makehelplist,basic2,4965,5009,PPa -Helplist,basic2,5013,5067,Makehelplist -Help,basic2,5071,5122 -Helpkey,basic2,5126,5144,Help -Example,basic2,5148,5172 +Arrowheaddata,basic2,140,247,Divoptions,Lcrd,Measuredepth,191203,Ptcrv,Nearestpt,Circledata,Intersectcrvspp,Norm,Ptend,Ptstart,Translatepoint,Setscaling,LLcrd +Arrowhead,basic2,251,316,Divoptions,Strsplit,Toupper,Arrowheaddata,Inwindow,Textformat,Pcrd,Norm,Ptend,Ptstart,Nearestpt,Partcrv,Changestyle,Shade,Listplot +Arrowdata,basic2,320,328,Arrowdataseg +Oldarrowdata,basic2,332,446,Oldrrowdata,Divoptions,Strsplit,Toupper,Pcrd,Textformat,Listplot,LLcrd,Arrowhead,Setscaling,Lcrd +Arrowdataseg,basic2,450,548,Divoptions,Strsplit,Toupper,Shade,Listplot,Setscaling,LLcrd +Anglemark,basic2,552,685,Divoptions,Indexall,Strsplit,Dqq,Toupper,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Paramark,basic2,689,799,Divoptions,Indexall,Strsplit,Dqq,Toupper,Lcrd,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Makebowdata,basic2,803,816,Lcrd,Rotatepoint +Bowdata,basic2,820,991,Divoptions,Lcrd,Strsplit,Toupper,Makebowdata,Defvar,Norm,LLcrd,Dqq,Measuredepth,Pcrd,Textformat,Com2nd,Getlinestyle,Texcom +Bowname,basic2,995,998,Expr +Bownamerot,basic2,1002,1016,Measuredepth,Ptend,Ptstart,Exprrot +Deqdata,basic2,1020,1078,funP,Lcrd,funN +Deqplot,basic2,1082,1226,Lcrd,Divoptions,Toupper,Indexall,Deqdata,Pcrd,Assign,Textformat,RSform,Com2nd,Getlinestyle,Texcom +Enclosing,basic2,1230,1393,Enclosing2,Divoptions,isList,Lcrd,Listplot,Intersectcurvespp,Prepend,Op,Length,Partcrv,Pointoncurve,Pcrd,PaO,Textformat,Com2nd,Getlinestyle,Texcom,LLcrd +Makehatch,basic2,1399,1501,Lineplot,Intersectseg,Norm,Listplot +Anyselected,basic2,1505,1513 +Hatchdata,basic2,1517,1813,HatchdataR,Hatchdatacindy,Listplot,Joincrvs,Enclosing2,Divoptions,Strsplit,Toupper,Anyselected,Bracket,isexists,ReadOutData,Makehatch,Textformat,PaO,Com2nd,Getlinestyle,Texcom,WriteOutData,LLcrd +Shadein,basic2,1817,1904,Framedata,Partcrv,Paramoncrv,Listplot,Intersectcurvespp,Pointoncrv,Joincrvs,Inwindow +Shade,basic2,1908,2042,Divoptions,Strsplit,Toupper,Colorcmyk2rgb,Enclosing,Shadein,Listplot,Joincrvs,Pcrd,PaO,Textformat,Dqq +Rotatepoint,basic2,2046,2056,Lcrd +Translatepoint,basic2,2060,2070,Lcrd +Scalepoint,basic2,2074,2084,Lcrd +Reflectpoint,basic2,2088,2113,Lcrd +Rotatedata,basic2,2117,2203,Divoptions,Lcrd,Strsplit,Toupper,Measuredepth,LLcrd,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom +Translatedata,basic2,2207,2285,Divoptions,Strsplit,Toupper,Lcrd,Measuredepth,LLcrd,Pcrd,RSform,Textformat,Com2nd,Getlinestyle,Texcom +Scaledata,basic2,2289,2391,Divoptions,Lcrd,Strsplit,Toupper,Measuredepth,LLcrd,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom +Reflectdata,basic2,2395,2489,Divoptions,Strsplit,Toupper,Lcrd,Measuredepth,LLcrd,Pcrd,RSform,Textformat,Com2nd,Getlinestyle,Texcom +Mksegments,basic2,2494,2509,Listplot +Mkcircles,basic2,2514,2534,Strsplit,Circledata +MakeRarg,basic2,2538,2551,RSslash,Textformat +Htickmark,basic2,2555,2578,Listplot,Expr +Vtickmark,basic2,2582,2603,Listplot,Expr,180710to// tmp=MakeRarg +Vtick,basic2,2607,2617,Listplot +Htick,basic2,2621,2633,LLcrd,Listplot +Setax,basic2,2637,2661,Divoptions +Drwxy,basic2,2665,2771,Divoptions,Strsplit,Toupper,Arrowdataseg,Listplot,Expr,Letter,Addax +Drwpt,basic2,2775,2784,Pointdata +Drawpoint,basic2,2787,2815,Measuredepth,Textformat,Com2nd,Setpen +Addax,basic2,2819,2822 +Expr,basic2,2826,2841,Letter +Letter,basic2,2845,2946,Divoptions,Removespace,Strsplit,Toupper,RSslash,Com2nd,Lcrd,Texcom,Pcrd +Letterrot,basic2,2950,2992,Divoptions,Letter,Com2nd,Dqq,Texcom +Exprrot,basic2,2996,3039,Divoptions,Expr,Com2nd,Dqq,Texcom +Ptpos,basic2,3043,3063,Textformat +Strictmove,basic2,3067,3087,textformat,Textformat +Slider,basic2,3091,3138,Toupper,Strsplit,Indexall,textformat,Listplot,Putonseg +Putpoint,basic2,3142,3154,Ptpos,Textformat,Pcrd +Bezierpt,basic2,3158,3183,Lcrd +Bezier,basic2,3187,3199,Beziercurve +Beziercurve,basic2,3203,3280,Divoptions,Measuredepth,Lcrd,Bezierpt,Pcrd,Textformat,RSform,Com2nd,Getlinestyle,Texcom +Putbezierdata,basic2,3284,3346,Divoptions,Putpoint,Lcrd,Letter +Bezierstart,basic2,3350,3352 +Mkbezierptcrv,basic2,3356,3382,Readcsvsla,Measuredepth,Putbezierdata,Bezier +Mkbeziercrv,basic2,3386,3397,Measuredepth,Bezier +Ospline,basic2,3401,3460,Dotprod,Lcrd,Bezier +CRspline,basic2,3464,3510,Lcrd,Reflectpoint,Bezier +Beziersmooth,basic2,3514,3575,Bzspline,Putpoint,Lcrd,Bezier +Beziersym,basic2,3579,3628,Bzsspline,Putpoint,Lcrd,Bezier +Listbspline2bz,basic2,3632,3647,Lcrd +Bspline,basic2,3651,3659,Listbspline2bz,BezierCurve +Meetcurve,basic2,3663,3723,Measuredepth,LLcrd,Lcrd +Putonline,basic2,3727,3747,LLcrd,Lineplot,Putonseg +Putonseg,basic2,3751,3787,LLcrd,Divoptions,Lcrd,Putpoint,Pcrd,Textformat +Putoncurve,basic2,3791,3820,putoncurve,Putpoint,Paramoncurve,Putonseg,Textformat,Ptend +Crosspoint,basic2,3824,3842,MeetCurve,Putpoint +Periodfun,basic2,3846,3979,Divoptions,Strsplit,Toupper,Plotdata,Translatedata,Setscaling,Norm,Listplot,Textformat +Mkcstable,basic2,3983,3999,Textformat +Fourierseries,basic2,4003,4070,Divoptions,Strsplit,Toupper,Deffun,Plotdata,Assign,Listplot +Tabledata,basic2,4074,4103,Divoptions,Strsplit,Toupper,Tabledatageo,Tabledatalight +Tabledatalight,basic2,4107,4235,Divoptions,Strsplit,Toupper,Tlistplot,Dqq,Changetablestyle,Addax,Setwindow +Tabledatageo,basic2,4239,4303,Divoptions,Strsplit,Toupper,Putpoint,Tabledatalight +Tgrid,basic2,4307,4322 +Tlistplot,basic2,4326,4355,divoptions,Toupper,Tgrid,Listplot +Changetablestyle,basic2,4359,4447,Indexall,Changestyle,Replaceall,Tlistplot +Findcell,basic2,4451,4477,Tgrid +Putcell,basic2,4481,4516,Findcell,Letter +Putcellexpr,basic2,4520,4532,Putcell +Putrow,basic2,4536,4551,Putcellrow,Putcell +Putrowexpr,basic2,4555,4568,Putrow +Putcol,basic2,4572,4587,Putcellexpr,Putcell +Putcolexpr,basic2,4591,4604,Putcellexpr,Putcol +Setrange,basic2,4608,4614,Pcrd +Inwindow,basic2,4618,4630 +Dashlinedata,basic2,4634,4707 +Windispg,basic2,4711,4778,Drwxy,Measuredepth,Dashlinedata,Textformat +Extractdata,basic2,4783,4839,Divoptions,Com2nd,Getlinestyle,Texcom +Removeout,basic2,4843,4853 +Makecmdlist,basic2,4857,4887 +Savecmdlist,basic2,4891,4897 +Quicksort,basic2,4901,4921 +Lessstr,basic2,4925,4952 +Makehelplist,basic2,4956,5000,PPa +Helplist,basic2,5004,5058,Makehelplist +Help,basic2,5062,5113 +Helpkey,basic2,5117,5135,Help +Example,basic2,5139,5163 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic3list.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic3list.txt index a5d8260177..fe1755cc0e 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic3list.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic3list.txt @@ -19,44 +19,44 @@ Makeshell,basic3,927,1027,kc,Indexall,Dqq Convsjiswin,basic3,1031,1055,nkfwin,nkfcpdel,isexists,pathsep Makebat,basic3,1059,1197,kc,iswindows,isincludefull,isexists,Indexall,Dqq Addpackage,basic3,1201,1219 -Usegraphics,basic3,1223,1233,Addpackage -Viewtex,basic3,1237,1311,iswindows,Makebat,kc,Makeshell,WritetoRS -Viewparent,basic3,1315,1333,isexists,iswindows,Makebat,Makeshell,WritetoRS,kc -Figpdf,basic3,1337,1457,Removespace,isexists -Slidework,basic3,1461,1480,isexists,makedir,pathsep,Changework -Setslidemargin,basic3,1484,1487 -Setslidepage,basic3,1491,1516 -Setslidemain,basic3,1520,1544 -Setslidebody,basic3,1548,1585 -Setslidehyper,basic3,1589,1667,Divoptions,Addpackage,Indexall,Toupper -Settitle,basic3,1671,1742,Toupper,Indexall -Maketitle,basic3,1746,1841,iswindows,Makebat,Makeshell,kc,Cindyname,isexists,PaO -Repeatsameslide,basic3,1845,2000,Indexall -Presentation,basic3,2004,2669,readfile2str,isexists,Removespace,fileslist,Repeatsameslide -Mkslides,basic3,2673,2737,Fillblack,Changework,Setdirectory,setexec,isexists,Presentation,iswindows,Makebat,Makeshell,kc,pathsep,Fillrestore -Mkslidesummary,basic3,2741,2806,Fillblack,pathsep,ismacosx,setexec,PPa,PaO,CalcbyR,iswindows,Makebat,Makeshell,kc,Changework,Fillstore -BBdata,basic3,2810,2953,Divoptions,Toupper,ismacosx,Dqq,iswindows,kc,Sprintf,Removespace -Gcd,basic3,2957,2969 -Fracform,basic3,2973,3010 -Totexformpart,basic3,3014,3082,Bracket,Strsplit,Assign -Totexform,basic3,3086,3149,Totexformpart,Indexall,Bracket -Tocindyformpart,basic3,3153,3221,Bracket,Strsplit,Assign -Tocindyform,basic3,3225,3263,Bracket,Indexall,Tocindyformpart -Animepar,basic3,3267,3267,Animationparam -Animationparam,basic3,3271,3290,seconds,stopanimation -Copyketcindyjs,basic3,3294,3355,iswindows,Dqq,kc -Ketjsoption,basic3,3359,3360,Setketcindyjs -Setketcindyjs,basic3,3364,3373 -Ketcindyjsbody,basic3,3377,3381 -Ketcindyjsdata,basic3,3385,3425,Textformat,Dqq,set -Findfun,basic3,3429,3496,Removespace,Indexall -Extractfun,basic3,3500,3517,Indexall,Findfun -Extractall,basic3,3526,3570 -Textedit,basic3,3574,3580 -Textedit2value,basic3,3584,3626,Toupper,Textedit,Removespace,Tocindyform,Totexform,Tomaxform,Strsplit -Parsejson,basic3,3630,3683, unicode -Resizetextsize,basic3,3687,3711,Parsejson -Movetojs,basic3,3715,3723 -Movetojsexe,basic3,3727,3743,Dqq,Parsejson -Setplaybuttons,basic3,3747,3772,Movetojs -Mkketcindyjs,basic3,3776,4448, 12px/10pt = 12px/,Toupper,Colorcode,Colorname2rgb,Copyketcindyjs,isexists,Cdyname,Extractfun,Extractall,pathsep,Readlines,Ketcindyjsdata,Movetojsexe,Resizetextsize,indexall,Indexof,Indexall,Removespace,Strsplit,Dqq +Usegraphics,basic3,1223,1235,Toupper,Addpackage,set +Viewtex,basic3,1239,1313,iswindows,Makebat,kc,Makeshell,WritetoRS +Viewparent,basic3,1317,1335,isexists,iswindows,Makebat,Makeshell,WritetoRS,kc +Figpdf,basic3,1339,1459,Removespace,isexists +Slidework,basic3,1463,1482,isexists,makedir,pathsep,Changework +Setslidemargin,basic3,1486,1489 +Setslidepage,basic3,1493,1518 +Setslidemain,basic3,1522,1546 +Setslidebody,basic3,1550,1587 +Setslidehyper,basic3,1591,1669,Divoptions,Addpackage,Indexall,Toupper +Settitle,basic3,1673,1744,Toupper,Indexall +Maketitle,basic3,1748,1843,iswindows,Makebat,Makeshell,kc,Cindyname,isexists,PaO +Repeatsameslide,basic3,1847,2002,Indexall +Presentation,basic3,2006,2671,readfile2str,isexists,Removespace,fileslist,Repeatsameslide +Mkslides,basic3,2675,2739,Fillblack,Changework,Setdirectory,setexec,isexists,Presentation,iswindows,Makebat,Makeshell,kc,pathsep,Fillrestore +Mkslidesummary,basic3,2743,2808,Fillblack,pathsep,ismacosx,setexec,PPa,PaO,CalcbyR,iswindows,Makebat,Makeshell,kc,Changework,Fillstore +BBdata,basic3,2812,2955,Divoptions,Toupper,ismacosx,Dqq,iswindows,kc,Sprintf,Removespace +Gcd,basic3,2959,2971 +Fracform,basic3,2975,3012 +Totexformpart,basic3,3016,3084,Bracket,Strsplit,Assign +Totexform,basic3,3088,3151,Totexformpart,Indexall,Bracket +Tocindyformpart,basic3,3155,3223,Bracket,Strsplit,Assign +Tocindyform,basic3,3227,3265,Bracket,Indexall,Tocindyformpart +Animepar,basic3,3269,3269,Animationparam +Animationparam,basic3,3273,3292,seconds,stopanimation +Copyketcindyjs,basic3,3296,3357,iswindows,Dqq,kc +Ketjsoption,basic3,3361,3362,Setketcindyjs +Setketcindyjs,basic3,3366,3375 +Ketcindyjsbody,basic3,3379,3384 +Ketcindyjsdata,basic3,3388,3428,Textformat,Dqq,set +Findfun,basic3,3432,3499,Removespace,Indexall +Extractfun,basic3,3503,3520,Indexall,Findfun +Extractall,basic3,3529,3573 +Textedit,basic3,3577,3583 +Textedit2value,basic3,3587,3629,Toupper,Textedit,Removespace,Tocindyform,Totexform,Tomaxform,Strsplit +Parsejson,basic3,3633,3686, unicode +Resizetextsize,basic3,3690,3714,Parsejson +Movetojs,basic3,3718,3726 +Movetojsexe,basic3,3730,3746,Dqq,Parsejson +Setplaybuttons,basic3,3750,3775,Movetojs +Mkketcindyjs,basic3,3779,4476, 12px/10pt = 12px/,Toupper,Colorcode,Colorname2rgb,Copyketcindyjs,isexists,Cdyname,Bracket,Extractfun,Extractall,pathsep,Readlines,Ketcindyjsdata,Movetojsexe,Resizetextsize,indexall,Indexof,Indexall,Removespace,Strsplit,Dqq diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy Binary files differindex 02a555ec1f..08ff86ba70 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1logr.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1logr.txt index a232cdc7be..15b944ba68 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1logr.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1logr.txt @@ -1,3 +1,16 @@ +// 20191203 +// Ketinit changed (Yacut 0.2 as default) +// Changestyle changed ( for list setting, color->) +// 20191126 +// Framedata changed ("corner" option) +// 20191027 +// Ellipseplot, Hyperbolaplot debugged ( for Ptpos ) +// 20191025 +// Pointdata debugged ( Inside=numeric ) +// 20191005 +// Setwindow(str) changed ( in case of deleting NE,SW) +// 20191002 +// Ketinit changed (GPACK) // 20190927 // Setwindow debugged ( for Strictmove) // 20190917 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1r.cs b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1r.cs index 2dc633a782..e2178a919a 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1r.cs +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1r.cs @@ -16,7 +16,7 @@ println("KeTCindy V.3.3.0"); println(ketjavaversion()); -println("ketcindylibbasic1[20190927] loaded"); +println("ketcindylibbasic1[20191203] loaded"); //help:start(); @@ -69,7 +69,8 @@ Ketinit(work,sy,rangex,rangey,strictsep):=(////190831to TenSizeInit=0.02; TenSize=TenSizeInit; YaSize=1; YaAngle=18; YaPosition=1; - YaCut=0; YasenStyle="dr,1"; Yajiristyle="tf"; + YaCut=0.2; //191203 + YasenStyle="dr,1"; Yajiristyle="tf"; KETPICCOUNT=1; KCOLOR=[0,0,0]; GLIST=[]; // no ketjs @@ -99,7 +100,7 @@ Ketinit(work,sy,rangex,rangey,strictsep):=(////190831to FigPdfList=[]; // 16.04.08 //no ketjs off Fillstore(); //181212 ADDPACK=[]; // 16.05.16 //no ketjs on - GPACK="tpic"; //180817 + if(!isstring(GPACK),GPACK="tpic",Usegraphics(GPACK)); //180817//191002 ErrFlag=0; KETJSOP=[]; //190129 REMOVEPTJS=[]; SLIDEFLG="Y"; //190504 @@ -329,14 +330,22 @@ Setwindow(str):=( tmp=indexof(str,"="); // 16.02.10 msg=Toupper(substring(str,tmp,tmp+1)); Strictmove("SW"); Strictmove("NE");//190927 - if((ispoint(SW) & ispoint(NE)), + if((ispoint(SW)) & (ispoint(NE)), tmp1=LLcrd(Ptpos(SW));//190912[2lines] tmp2=LLcrd(Ptpos(NE)); XMIN=tmp1_1; XMAX=tmp2_1; YMIN=tmp1_2; YMAX=tmp2_2; , - Putpoint("SW",Pcrd([XMIN,YMIN])); - Putpoint("NE", Pcrd([XMAX,YMAX])); + if(!ispoint(SW), //191005from + Putpoint("SW",Pcrd([-5,-5])); + XMIN=-5; YMIN=-5; + Ptpos(SW,SW.xy); + ); + if(!ispoint(NE), + Putpoint("NE", Pcrd([5,5])); + XMAX=5; YMAX=5; + Ptpos(NE,NE.xy); + ); //191005to ); if(msg=="Y", // no ketjs on println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); @@ -346,7 +355,8 @@ Setwindow(str):=( drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); // no ketjs off ); -Setwindow(xrange,yrange):=( +Setwindow(xrange,yrange):=Setwindow(xrange,yrange,"Msg=y"); +Setwindow(xrange,yrange,msg):=( //help:Setwindow([2,3],[-1,1]); XMIN=xrange_1; XMAX=xrange_2; @@ -359,6 +369,9 @@ Setwindow(xrange,yrange):=( autoclearlayer(KETPICLAYER,true); drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); //190927to + if(Toupper(substring(msg,0,1))=="Y", + println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); + ); ); ////%Setwindow end//// @@ -896,14 +909,35 @@ Changework(dirorg,options):=( //16.10.21 ////%Changework end//// ////%Changestyle start//// -Changestyle(nameL,style):=( +Changestyle(nameL,styleorg):=( //help:Changestyle(["sgAB"],["da"]); - regional(nmL,name,Ltype,Ltypeorg,Noflg,color,opcindy,tmp); + regional(nmL,name,style,Ltype,Ltypeorg,Noflg,reL,color,opcindy, + tmp,tmp1,tmp2); + style=styleorg; //191203from + style=apply(style, + if(isstring(#),replace(#,",color->","Color="),#); + ); //191203to tmp=Divoptions(style); Ltypeorg=tmp_1; Noflg=tmp_2; color=tmp_(length(tmp)-2); opcindy=tmp_(length(tmp)); + reL=tmp_6; //191203from + if(length(reL)>0, + tmp1=reL_1; + if(islist(tmp1), + tmp=tmp1_1; + if(tmp==0,tmp2="dr"); + if(tmp==1,tmp2="da"); + if(tmp==2,tmp2="id"); + if(tmp==3,tmp2="do"); + if(tmp==-1,tmp2="nodisp"); + forall(2..(length(tmp1)), + if(tmp1_# !=0,tmp2=tmp2+","+text(tmp1_#)); + ); + Ltypeorg=tmp2; + ); + ); if(islist(nameL),nmL=nameL,nmL=[nameL]); forall(nmL,name, tmp=select(GCLIST,#_1==name); @@ -3962,8 +3996,9 @@ Pointdata(nm,listorg,options):=( inside=text(tmp); , if(contains(["0","1"],tmp2), + tmp2=tmp_2; //191025 tmp=[1,1,1]-color; - tmp=parse(tmp_2)*tmp; + tmp=parse(tmp2)*tmp; //191025 inside=[1,1,1]-tmp; , if(tmp2=="N", @@ -5043,22 +5078,37 @@ Framedata(nm,list,optionsorg):=( //190424modified //help:Framedata(); //help:Framedata("1",[C,A]); //help:Framedata("1",[C,dx,dy]); +//help:Framedata("1",[p1,p2],["corner"]); regional(name,options,Out,tmp,tmp1,x1,x2,y1,y2,dx,dy, - opcindy,Ltype,Noflg,strL,cent,dx,dy,color); + opcindy,Ltype,Noflg,strL,cent,dx,dy,color,strL,corner); name="fr"+nm; options=optionsorg; tmp=Divoptions(options); Ltype=tmp_1; Noflg=tmp_2; + strL=tmp_7; //191126 color=tmp_(length(tmp)-2); opcindy=tmp_(length(tmp)); - if(length(list)==2, // 15.05.12 - cent=Lcrd(list_1); tmp=Lcrd(list_2); - dx=abs(tmp_1-cent_1); dy=abs(tmp_2-cent_2); - , - cent=Lcrd(list_1); - dx=list_2; dy=list_3; + corner=0; //191126from + forall(strL, + tmp=substring(Toupper(#),0,1); + if(tmp=="C", + cent=(list_1+list_2)/2; + dx=abs(list_2_1-list_1_1)/2; + dy=abs(list_2_2-list_1_2)/2; + corner=1; + options=remove(options,[#]); + ); ); + if(corner==0, + if(length(list)==2, // 15.05.12 + cent=Lcrd(list_1); tmp=Lcrd(list_2); + dx=abs(tmp_1-cent_1); dy=abs(tmp_2-cent_2); + , + cent=Lcrd(list_1); + dx=list_2; dy=list_3; + ); + ); //191126to x1=cent_1-dx; x2=cent_1+dx; y1=cent_2-dy; y2=cent_2+dy; Listplot("-"+name,[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]],options); @@ -5276,14 +5326,14 @@ Ellipseplot(nm,ptlist,Arg):=( 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); + regional(pA,pB,dd,angle,f,a,b,pM,tmp,tmp1,tmp2); pA=Lcrd(ptlist_1); tmp1=Lcrd(ptlist_2); - if(ispoint(ptlist_3), + if((ispoint(ptlist_3))%(length(ptlist_3)>1), //191027 tmp2=Lcrd(ptlist_3); - d=|tmp2-pA|+|tmp2-tmp1|; + dd=|tmp2-pA|+|tmp2-tmp1|; , - d=ptlist_3; + dd=ptlist_3; ); tmp=(tmp1-pA)/|tmp1-pA|; if(tmp_2>=0, @@ -5297,8 +5347,8 @@ Ellipseplot(nm,ptlist,rng,options):=( ); pB=Rotatepoint(tmp1,-angle,pA); f=|pB_1-pA_1|/2; - a=d/2; - b=sqrt(d^2/4-f^2); + a=dd/2; + b=sqrt(dd^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)]"; @@ -5337,7 +5387,7 @@ Hyperbolaplot(nm,ptlist,rng,optionsorg):=( ); pA=Lcrd(ptlist_1); tmp1=Lcrd(ptlist_2); - if(ispoint(ptlist_3), + if((ispoint(ptlist_3))%(length(ptlist_3)>1), //191027 tmp2=Lcrd(ptlist_3); d=abs(|tmp2-pA|-|tmp2-tmp1|); , diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2logr.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2logr.txt index 90dd67b995..ebc5f93253 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2logr.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2logr.txt @@ -1,3 +1,48 @@ +// 20191208 +// Arrowheaddata debugged (decision of pC) +// 20191207 +// Arrowheaddata debugged (selecting intersect) +// Arrowhead debugged (name of partcrv) +// 20191204 +// Arrowheaddata changed ( segpos ) +// 20191203 +// Arrowheaddata,Arrowhead changed ( style ) +// 20191202 +// Arrowdataseg,Arrowhead changed (for segpos==1) +// 20191201 +// Arrowdata debugged (pB => pC) +// 20191128 +// Arrowheaddata,Arrowhead remade +// 20191123 +// Setarrow debugged (YaAngle) +// Arrowdataseg debugged (Unitlen,MilliIn) +// 20191119 +// Arrowdata(Arrowdataseg) changed ( making seg short to be hidden ) +// 20191114 +// Arrowhead changed ( position supported ) +// Setarrow changed ( any position ) +// 20191106 +// Lightarrowdata debugged +// 20191104 +// Arrowhead debugged/changed (cut, datalist) +// 20191101 +// Htickmark,Vtickmark changed (options added to ticks) +// 20191030 +// Putpoint changed (for ketcindyjs ) +// 20191023 +// Tabledata debugged (Strsplit(#)) +// 20191012 +// Arrowhead changed (fillpoly) +// 20191011 +// Lightarrowhead debugged (angle) and changed (fillpoly) +// 20191008 +// Shade debugged (in case of "nodisp"/"notex") +// Tabledata changed ("Geo=") +// Tabledatalight changed (tb+Counter+str added ) +// 20191007 +// Shade changed (option "First" added) +// 20191005 +// Putpoint changed (Ptpos added in case of new point) // 20190921 // Enclosing debugged/changed ( in case of length(KL)==1, epspara removed) // 20190917 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2r.cs b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2r.cs index 5f65ad6c50..2b382904cb 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2r.cs +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2r.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindylibbasic2[20190921] loaded"); +println("ketcindylibbasic2[20191208] loaded"); //help:start(); @@ -120,10 +120,10 @@ Setarrow(arglist):=( if((tmp_1>0),YaSize=tmp_1); ); if(length(tmp)>=2, - if((tmp_2>0)&(tmp_2<90),YaAngle=tmp_2); + if(tmp_2<2.5,YaAngle=tmp_2*YaAngle,Yaangle=tmp_2); //191123 ); if(length(tmp)>=3, - if((tmp_3>=0)&(tmp_3<=1),YaPosition=tmp_3); + YaPosition=tmp_3; //191114 ); if(length(tmp)>=4, if((tmp_4>=0)&(tmp_4<1),YaCut=tmp_4); @@ -137,99 +137,113 @@ Setarrow(arglist):=( ////%Setarrow end//// ////%Arrowheaddata start//// -Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]); -Arrowheaddata(point,direction,options):=( +Arrowheaddata(point,direction):= + Arrowheaddata(point,direction,[YaSize,YaAngle,YaPosition,YaCut]); +Arrowheaddata(point,direction,options):=( //191127remade // help:Arrowheaddata(A,B); -// help:Arrowheaddata(options=[size(1),angle(18), "Coord=phy"]); - regional(list,ookisa,hiraki,Houkou,Str,Flg,Ev,Nv,pA,pB, - reL,eqL,coord,pP,rF,gG,Flg,Nj,Eps,scx,scy,tmp,tmp1,tmp2); - Eps=10^(-3); - coord="P"; - ookisa=0.2*YaSize; - hiraki=YaAngle; - iti=1; - kiri=0; - Futosa=0; - Str=YaStyle; +// help:Arrowheaddata("1",A,"gr1"); +// help:Arrowheaddata("1",A,gr1); +// help:Arrowheaddata(options=[size(1),angle(18),pos(1),cut(0)]); + regional(scaley,Eps,size,angle,segpos,cut, Houkou,hflg,Str,Ev,Nv, + reL,pP,vec,pA,pB,pC,par,out,tmp,tmp1,tmp2); + Eps=10^(-4); tmp=Divoptions(options); - eqL=tmp_5; //181018from reL=tmp_6; - forall(eqL, - tmp=Strsplit(#,"="); - tmp1=substring(tmp_1,0,1); - tmp2=substring(tmp_2,0,1); - if(Toupper(tmp1)=="C", - coord=Touppera(tmp2); - ); - ); //181018to - forall(1..(length(reL)), //181110from - tmp=reL_#; - if(#==1,ookisa=ookisa*tmp); - if(#==2, - if(tmp<5, - hiraki=hiraki*tmp; - , - hiraki=tmp; + size=0.2*YaSize*1/2.54*1000/MilliIn; + angle=YaAngle*pi/180; + segpos=YaPosition; + cut=YaCut; + if(length(reL)>=1, + size=0.2*reL_1*1/2.54*1000/MilliIn; + ); + if(length(reL)>=2, + if(reL_2<2.5,angle=reL_2*YaAngle,angle=reL_2); + angle=angle*pi/180; + ); + if(length(reL)>=3, + segpos=reL_3; + ); + if(length(reL)>=4, + cut=reL_4; + ); + if(ispoint(point),pP=Lcrd(point),pP=point); + hflg=0; + out=[]; + if(ispoint(direction), + Houkou=direction.xy; + hflg=2; + ); + if(hflg==0, //191203from + if(!isstring(direction), //191207 + if(Measuredepth(direction)==0, + Houkou=direction; + hflg=2; ); - ); - ); //181110to - Flg=0; - hiraki=hiraki*pi/180; - if(ispoint(direction),Houkou=direction.xy); //181018 - if(isstring(direction),Houkou=parse(direction),Houkou=direction); - if(Measuredepth(Houkou)==2,Houkou=Houkou_1); - if(coord=="P",//181018from - if(ispoint(point),pP=point.xy,pP=point); - , - pP=Pcrd(point); - if(!islist(Houkou_1), - Houkou=Pcrd(Houkou); + ); //191207to + ); //191203to + scaley=SCALEY; + Setscaling(1); //191203(moved) + if(hflg==0, + if(isstring(direction),Houkou=parse(direction),Houkou=direction); + if(!islist(pP), + par=1+(length(Houkou)-1)*pP; //191207 + pP=Ptcrv(par,Houkou); + tmp=floor(tmp); //191203from , - Houkou=apply(Houkou,Pcrd(#)); - ); - );//181018to - if(islist(Houkou_1), - tmp=Nearestpt(pP,Houkou); - pP=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); - tmp1=apply([pP,pB],LLcrd(#)); - tmp2=apply(gG,LLcrd(#)); - tmp=Intersectcrvspp([pP,pB],gG); - if(length(tmp)>0, - Houkou=pP-Pcrd(tmp_1_1); - Flg=1; - ); - ); + tmp=Nearestpt(pP,Houkou); + pP=tmp_1; + par=tmp_2; + tmp=floor(par); //191203to + ); + if(tmp<length(Houkou), + tmp1=Houkou_tmp; + tmp2=Houkou_(tmp+1); + , + tmp1=Houkou_(tmp-1); + tmp2=Houkou_tmp; ); - if(Flg==0, + vec=(tmp2-tmp1)/|tmp2-tmp1|; + gG=Circledata("",[pP,size*cos(angle)],["Num=10","nodata"]); + tmp1=Intersectcrvspp(Houkou,gG); + if(length(tmp1)==0, println("Arrowhead may be too large (no intersect)"); - Flg=2; - ); - ); - if(Flg<2, - Ev=-1/|Houkou|*Houkou; - 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; + , + tmp=select(tmp1,#_2<par); //191208from + if(length(tmp)>0, + tmp=sort(tmp,[-#_2]); + pC=tmp_1_1; + , + if(Norm(Ptend(direction)-Ptstart(direction))>Eps, + tmp=sort(tmp1,[#_2]); + pC=2*pP-tmp_1_1; + , + tmp=sort(tmp1,[-#_2]); + pC=tmp_1_1; + ); + ); //191208to + Houkou=pP-pC; + hflg=1; + ); + ); + if(hflg>=1, + Ev=-Houkou/|Houkou|; + Nv=[-Ev_2, Ev_1]; + pA=pP+size*cos(angle)*Ev+size*sin(angle)*Nv; + pB=pP+size*cos(angle)*Ev-size*sin(angle)*Nv; + if(hflg==2, + pC=(pA+pB)/2; + ); + pC=pC+cut*(pP-pC); + tmp=(pP-(pA+pB)/2); + tmp=(1-segpos)*tmp; + pP=Translatepoint(pP,tmp); + pA=Translatepoint(pA,tmp); + pB=Translatepoint(pB,tmp); + pC=Translatepoint(pC,tmp); + Setscaling(scaley); + out=apply([pA,pP,pB,pC,pA],LLcrd(#)); ); + out; ); ////%Arrowheaddata end//// @@ -242,105 +256,84 @@ Arrowhead(Arg1,Arg2,Arg3):=( Arrowhead(text(ArrowheadNumber),Arg1,Arg2,Arg3); ); ); -Arrowhead(nm,point,direction,optionsorg):=(//181018from +Arrowhead(nm,point,direction,optionsorg):=(//191129remade //help:Arrowhead("1",B,B-A); -//help:Arrowhead(options=[size(1),angle(18),position(1),cut(0),"Coord=P(L)"]); -//help:Arrowhead(the default is -1 for numeric option); -//help:Arrowhead(A,"gr1"); - regional(name,Ltype,Noflg,reL,opstr,opcindy,color,eqL,coord, - options,cut,pP,Houkou,ptstr,hostr,tmp,tmp1,tmp2,list); +//help:Arrowhead("1",[1,2],"gr1"); +//help:Arrowhead("1",0.5,"gr1"); +//help:Arrowhead(options=[size(1),angle(18),position(1),cut(0),"Line=n(y)"]); + regional(Eps,name,Ltype,Noflg,opstr,opcindy,color,eqL,line, + options,pP,Houkou,ptstr,hostr,tmp,tmp1,tmp2,list); + Eps=10^(-4); name="arh"+nm; //181018 ArrowheadNumber=ArrowheadNumber+1; options=optionsorg; tmp=Divoptions(options); Ltype=tmp_1; Noflg=tmp_2; - reL=tmp_6; color=tmp_(length(tmp)-2); eqL=tmp_5; - coord="P"; + line="N"; forall(eqL, tmp=Strsplit(#,"="); tmp1=substring(tmp_1,0,1); tmp2=substring(tmp_2,0,1); - if(Toupper(tmp1)=="C", - coord=Toupper(tmp2); + if(Toupper(tmp1)=="L", + line=Toupper(tmp2); options=remove(options,[#]); ); - ); //181018to - tmp1=[YaSize,YaAngle,YaPosition,YaCut]; //181214from - forall(1..(length(reL)), - if(reL_#<0, reL_#=tmp1_#); - ); - forall((length(reL)+1)..4, - reL=append(reL,tmp1_#); ); - cut=reL_4; - tmp=reL_(1..3); - options=select(options,!isreal(#)); - options=concat(options,tmp); //181214to - if(ispoint(direction),Houkou=direction.xy); //181018 - if(isstring(direction),Houkou=parse(direction),Houkou=direction); - if(Measuredepth(Houkou)==2,Houkou=Houkou_1); - if(coord=="P",//181018from - if(ispoint(point),pP=point.xy,pP=point); - , - pP=Pcrd(point); - if(!islist(Houkou_1), - Houkou=Pcrd(Houkou); - , - Houkou=apply(Houkou,Pcrd(#)); - ); - );//181018to - list=Arrowheaddata(pP,Houkou,options); - if(!Inwindow(LLcrd(pP)),Noflg=2);//181018 + list=Arrowheaddata(point,direction,options); + if((ispoint(point))%(islist(point)), + if(!Inwindow(point),Noflg=2); + ); if(Noflg<3, - tmp1=apply(list,LLcrd(#)); - tmp=name+"="+Textformat(tmp1,5)+";"; //190415 + tmp=name+"="+Textformat(list,5)+";"; parse(tmp); - ); - if(Noflg<3, //190818 if(isstring(Ltype), - Listplot("-arh"+nm,apply(list,LLcrd(#)),concat(options,["notex","Msg=n"])); - ); - ); - if(Noflg==0, - tmp=Divoptions(options); - opstr=tmp_(length(tmp)-1); - opstr=opstr+","+Dqq("Cut="+format(cut,5)); - ptstr=Textformat(LLcrd(pP),5); - if(isstring(direction), //181019 - hostr=direction; - , - if(!islist(Houkou_1), - hostr=format(LLcrd(Houkou),5); + if(line=="N", + fillpoly(apply(list,Pcrd(#)),color->color); + if(Noflg==0, + if((point==1)&(isstring(direction)), //191202from + if(Norm(Ptend(direction)-Ptstart(direction))>Eps, //191203from + tmp=select(GCLIST,#_1==direction); + tmp=tmp_1; + tmp1=Nearestpt(list_4,direction); + tmp1=tmp1_2; + Partcrv(direction,1,tmp1,direction,["Msg=n"]); //191207 + Changestyle("part"+direction,[tmp_2,tmp_3]); + Changestyle(direction,["nodisp"]); + ); + ); //191202to + Listplot("-arh"+nm,list,["dr,0.1","Color="+text(color),"Msg=n"]);//191202 + Shade(["arh"+nm],["Color="+text(color)]); + ); , - hostr=format(apply(Houkou,LLcrd(#)),5); + Listplot("-arh"+nm,list_(1..3),concat(options,["Msg=n"])); ); - ); - if((Noflg==0)&(color!=KCOLOR), //180904 //no ketjs on - Texcom("{");Com2nd("Setcolor("+color+")");//180722 - ); //no ketjs off - Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")"); - if((Noflg==0)&(color!=KCOLOR), //180904 //no ketjs on - Texcom("}");//180722 - ); //no ketjs off + ); ); + list; //191202 ); ////%Arrowhead end//// -////%Arrowdata start//// 190727 (<= Lightarrowdata) -Arrowdata(ptlist):=Lightarrowdata(ptlist,[]); -Arrowdata(Arg1,Arg2):=Lightarrowdata(Arg1,Arg2); -Arrowdata(nm,ptlistorg,optionsorg):=Lightarrowdata(nm,ptlistorg,optionsorg); +////%Arrowdata start//// 191119 (Arrowdataseg,Arrowdatacrv) +Arrowdata(ptlist):=Arrowdataseg(ptlist); +Arrowdata(Arg1,Arg2):=Arrowdataseg(Arg1,Arg2); +Arrowdata(nm,ptlistorg,optionsorg):=( +//help:Arrowdata("1",[A,B]); +//help:Arrowdata("1",[p1,p2]); +//help:Arrowdata(options=[size(1),angle(18),pos(1),cut(0),"Cutend=0,0","Coord=p/l"]); +//help:Arrowdata(optionsadded=["line"]); + Arrowdataseg(nm,ptlistorg,optionsorg); +); ////%Arrowdata end//// -////%OldArrowdata start//// -Arrowdata(ptlist):=OldArrowdata(ptlist,[]); //181110from -OldArrowdata(Arg1,Arg2):=( +////%Oldarrowdata start//// +Oldrrowdata(ptlist):=Oldarrowdata(ptlist,[]); //181110from +Oldrrowdata(Arg1,Arg2):=( regional(name); if(isstring(Arg1), - OldArrowdata(Arg1,Arg2,[]); + Oldarrowdata(Arg1,Arg2,[]); , name=""; forall(Arg1, @@ -348,14 +341,14 @@ OldArrowdata(Arg1,Arg2):=( name=name+#.name; //190505 ); ); - OldArrowdata(name,Arg1,Arg2); + Oldarrowdata(name,Arg1,Arg2); ); -); //181110from -OldArrowdata(nm,ptlistorg,optionsorg):=( +); //181110to +Oldarrowdata(nm,ptlistorg,optionsorg):=( // help:Arrowdata("1",[A,B]); // help:Arrowdata("1",[pt1,pt2]); -// help:Arrowdata(options=[size(1),angle(18),pos(1),cut(0),"Cutend=0,0","Coord=p/l"]); -// help:Arrowdata(optionsadded=["line"]); +// help:Arrowdatacrv(options=[size(1),angle(18),pos(1),cut(0),"Cutend=0,0","Coord=p/l"]); +// help:Arrowdatacrv(optionsadded=["line"]); regional(options,Ltype,Noflg,name,opstr,opcindy,eqL,reL,strL,color,size,coord, flg,lineflg,cutend,tmp,tmp1,tmp2,pA,pB,angle,segpos,cut,scaley,ptlist); name="ar"+nm; @@ -442,7 +435,7 @@ OldArrowdata(nm,ptlistorg,optionsorg):=( ); if(Noflg<2, if(isstring(Ltype), - Listplot("-ar"+nm,[LLcrd(pA),LLcrd(pB)],append(options,"Msg=n")); + Listplot("-ar"+nm,[LLcrd(pA),LLcrd(pB)],concat(options,["Msg=n"])); Arrowhead(nm,pA+segpos*(pB-pA),pB-pA,options); //181110 , if(Noflg==1,Ltype=0); @@ -451,14 +444,14 @@ OldArrowdata(nm,ptlistorg,optionsorg):=( Setscaling(scaley); //190412 [Lcrd(pA),Lcrd(pB)]; ); -////%OldArrowdata end//// +////%Oldarrowdata end//// -////%Lightarrowdata start//// -Lightarrowdata(ptlist):=Lightarrowdata(ptlist,[]); //181110from -Lightarrowdata(Arg1,Arg2):=( +////%Arrowdataseg start//// +Arrowdataseg(ptlist):=Arrowdataseg(ptlist,[]); //181110from +Arrowdataseg(Arg1,Arg2):=( regional(name); if(isstring(Arg1), - Lightarrowdata(Arg1,Arg2,[]); + Arrowdataseg(Arg1,Arg2,[]); , name=""; forall(Arg1, @@ -466,26 +459,23 @@ Lightarrowdata(Arg1,Arg2):=( name=name+#.name; //190505 ); ); - Lightarrowdata(name,Arg1,Arg2); + Arrowdataseg(name,Arg1,Arg2); ); ); //181110from -Lightarrowdata(nm,ptlist,optionsorg):=( -//help:Arrowdata("1",[pt1,pt2]); -//help:Arrowdata(options=[size(1),angle(18),pos(1),cut(0),"Cutend=0,0","Line=y(n)"]); - regional(options,Ltype,Noflg,opstr,opcindy,eqL,reL,strL,color,size,coord,lineflg, - flg,lineflg,cutend,tmp,tmp1,tmp2,pA,pB,angle,segpos,cut,scaley,Ev,Nv,pP); - pA=Pcrd(ptlist_1); pB=Pcrd(ptlist_2); +Arrowdataseg(nm,ptlistorg,optionsorg):=( +//help:Arrowdataseg("1",[pt1,pt2]); +//help:Arrowdataseg(options=[size(1),angle(18),pos(1),cut(0),"Cutend=0,0","Line=n(y)"]); + regional(options,Ltype,Noflg,opstr,opcindy,eqL,reL,strL,color,size,lineflg, + flg,cutend,tmp,tmp1,tmp2,pA,pB,pC,angle,segpos,cut,scaley,Ev,Nv,pP,ptlist); scaley=SCALEY; //190412 Setscaling(1); ptlist=[]; forall(ptlistorg, - if(ispoint(#),tmp=[#.x, scaley*#.y], tmp=[#_1,scaley*#_2]); + if(ispoint(#),tmp=[#.x, #.y], tmp=[#_1,scaley*#_2]); ptlist=append(ptlist,tmp); ); + pA=ptlist_1; pB=ptlist_2; options=optionsorg; - tmp=select(options,isstring(#)); //181214from - tmp1=select(tmp,contains(["dr","da","do","id"],substring(#,0,2))); - if(length(tmp1)==0,options=append(options,YasenStyle)); //181214to tmp=Divoptions(options); Ltype=tmp_1; Noflg=tmp_2; @@ -495,25 +485,26 @@ Lightarrowdata(nm,ptlist,optionsorg):=( color=tmp_(length(tmp)-2); opstr=tmp_(length(tmp)-1); opcindy=tmp_(length(tmp)); - tmp1=[YaSize,YaAngle,YaPosition,YaCut]; //181214from - forall(1..(length(reL)), - if(reL_#<0, reL_#=tmp1_#); - ); - forall((length(reL)+1)..4, - reL=append(reL,tmp1_#); + size=0.2*YaSize*1/2.54*1000/MilliIn; + angle=YaAngle*pi/180; + segpos=YaPosition; + cut=YaCut; + if(length(reL)>=1, + size=0.2*reL_1*1/2.54*1000/MilliIn; + ); + if(length(reL)>=2, + if(reL_2<2.5,angle=reL_2*YaAngle,angle=reL_2); + angle=angle*pi/180; ); - size=reL_1; - angle=reL_2; - segpos=reL_3; - cut=reL_4; - lineflg=0; - if(contains(strL,"l")%contains(strL,"L"), - lineflg=1; - );//181018from - options=remove(options,strL); + if(length(reL)>=3, + segpos=reL_3; + ); + if(length(reL)>=4, + cut=reL_4; + ); + options=remove(options,reL); //191202 cutend=[0,0];//180719 - coord="P";//181018 - lineflg=1; //190504 + lineflg=0; forall(eqL, tmp=Strsplit(#,"="); tmp1=Toupper(substring(tmp_1,0,2)); @@ -523,60 +514,39 @@ Lightarrowdata(nm,ptlist,optionsorg):=( tmp2=replace(tmp2,"]",""); cutend=tokenize(tmp2,","); if(length(cutend)==1,cutend=[cutend_1,cutend_1]); - options=remove(options,[#]); ); if(tmp1=="LI",//190504from tmp2=Toupper(substring(tmp2,0,1)); - if(tmp2=="N",lineflg=0); - options=remove(options,[#]); + if(tmp2=="Y",lineflg=1); );//190504to ); - if(Noflg<3, - tmp="ar"+nm+"="+Textformat([pA,pB],5)+";"; - parse(tmp); - ); - if(Noflg<3, //190818 - if(isstring(Ltype), - if(lineflg==1, //190504from - Listplot("-ar"+nm,[LLcrd(pA),LLcrd(pB)],append(options,"Msg=n")); - , - tmp=pB; - pB=pA; - pA=pB-tmp; - ); //190504to - size=0.2*size; - angle=angle*pi/180; - pP=pA+segpos*(pB-pA); - Ev=-1/|pB-pA|*(pB-pA); - Nv=[-Ev_2, Ev_1]; - tmp1=pP+size*cos(angle)*Ev+size*sin(angle)*Nv; - tmp2=pP+size*cos(angle)*Ev-size*sin(angle)*Nv; - ArrowheadNumber=ArrowheadNumber+1; - Listplot("-arh"+nm,[tmp1,pP,tmp2],append(options,"Msg=n")); - if((Noflg==0)&(color!=KCOLOR), //180904 //no ketjs on - Texcom("{");Com2nd("Setcolor("+color+")");//180722 - ); //no ketjs off - Setscaling(scaley); - tmp1=Textformat(LLcrd(pP),5); //no ketjs on - tmp2=Textformat(LLcrd(pB-pA),5); - if(cut>0, //190727from //no ketjs on - tmp=Indexall(opstr,","); - tmp=tmp_(length(tmp)); - opstr=substring(opstr,0,tmp-1); - opstr=opstr+","+Dqq("Cut="+text(cut)); - ); //190727to - Com2nd("Arrowhead("+tmp1+","+tmp2+opstr+")"); - if((Noflg==0)&(color!=KCOLOR), //180904 - Texcom("}");//180722 - ); //no ketjs off + tmp=pB-pA; + tmp=tmp/|tmp|; + pA=ptlist_1+tmp*cutend_1; + pB=ptlist_2-tmp*cutend_2; + pP=pA+segpos*(pB-pA); + Ev=-1/|pB-pA|*(pB-pA); + Nv=[-Ev_2, Ev_1]; + tmp1=pP+size*cos(angle)*Ev+size*sin(angle)*Nv; + tmp2=pP+size*cos(angle)*Ev-size*sin(angle)*Nv; + pC=pP+(1-cut)*((tmp1+tmp2)/2-pP); + ArrowheadNumber=ArrowheadNumber+1; + if(Noflg<2, + if(lineflg==1, + Listplot("-arh"+nm,[tmp1,pP,tmp2],append(options,"Msg=n")); //191106 , - if(Noflg==1,Ltype=0); + Listplot("-arh"+nm,[tmp1,pP,tmp2,pC,tmp1],["dr,0.1","Color="+color,"Msg=n"]); //191106 + Shade(["arh"+nm],[Ltype,"Color="+color]); + ); + if(lineflg==0, + if(segpos==1,pB=pC); //191202 ); + Listplot("-ar"+nm,[pA,pB],[Ltype,"Color="+color,"Msg=n"]); ); Setscaling(scaley); //190412 - [Lcrd(pA),Lcrd(pB)]; + [LLcrd(pA),LLcrd(pB)]; ); -////%Lightarrowdata end//// +////%Arrowdataseg end//// ////%Anglemark start//// Anglemark(plist):=Anglemark(plist,[]); @@ -1944,20 +1914,17 @@ Shade(Arg1,Arg2):=( ); ); Shade(nm,plistorg,options):=( -//help:Shade(["gr1"],[0.5]); -//help:Shade(["gr1"],["Color=red"]); -//help:Shade(["gr1"],["Trim=y(n)"]); //190224 -// help:Shade(["gr1","sg1"],["Color=[1,0,0]"]); -// help:Shade([[A,B,C,A]]); +//help:Shade(["gr1"]); +// help:Shade(options=["Trim=(n)","Enc=(n)",Rirst=(n)","Color=",Startpoint]); //help:Shade(["gr2","Invert(sg1)"],["Enc=y",(Startpoint)]); - regional(name,plist,jj,nn,trim,tmp,tmp1,tmp2, + regional(name,plist,jj,nn,trim,first,tmp,tmp1,tmp2, opstr,opcindy,eqL,reL,Str,G2,flg,encflg,startpt,color,ctr); name="shade"+nm; plist=plistorg; if(isstring(plist_1), // 16.01.24 - println("output Shade of "+plist); +// println("output Shade of "+plist); , - println("output Shade of lists"); +// println("output Shade of lists"); ); tmp=Divoptions(options); eqL=tmp_5; @@ -1968,6 +1935,7 @@ Shade(nm,plistorg,options):=( tmp=select(plist,indexof(#,"Invert")>0); //180929from if(length(tmp)>0,encflg=1,encflg=0); trim="N"; + first="N"; //191007 forall(eqL, tmp=Strsplit(#,"="); tmp1=Toupper(tmp_1); @@ -1983,6 +1951,9 @@ Shade(nm,plistorg,options):=( if(substring(tmp1,0,1)=="T", trim=substring(tmp2,0,1); ); + if(substring(tmp1,0,1)=="F", + first=substring(tmp2,0,1); + ); ); startpt=[]; forall(reL, @@ -2050,11 +2021,16 @@ Shade(nm,plistorg,options):=( ); Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+")"; //180929 nn=length(COM2ndlist); //190311from - jj=nn; - forall(plist,tmp1, - tmp=select(1..nn,indexof(COM2ndlist_#,tmp1)>0); - jj=min(append(tmp,jj)); - ); + if(first=="Y", //191007from + jj=1; + , + jj=nn; + forall(plist,tmp1, + tmp=select(1..nn,indexof(COM2ndlist_#,tmp1)>0); + jj=min(append(tmp,jj)); + ); + if(jj==0, jj=1); //191008 + ); //191007to tmp1=["Texcom("+Dqq("{")+")","Setcolor("+color+")",Str,"Texcom("+Dqq("}")+")"]; tmp2=COM2ndlist_(1..(jj-1)); tmp=COM2ndlist_(jj..(length(COM2ndlist))); @@ -2066,8 +2042,6 @@ Shade(nm,plistorg,options):=( ); ////%Shade end//// -/////////// end of new Hatchdata(cindy) /////////// - ////%Rotatepoint start//// Rotatepoint(point,Theta,ctr):=( //help:Rotatepoint(A,2*pi/3,B); @@ -2586,7 +2560,7 @@ Htickmark(arglist,options):=( //190203 tmp1=select(1..(length(arglist)),!isstring(arglist_#)); //180710from forall(tmp1,nn, Listplot("ht"+text(nn), - [[arglist_nn,mark],[arglist_nn,-mark]],["Msg=n"]);//181017 + [[arglist_nn,mark],[arglist_nn,-mark]],append(options,"Msg=n"));//191101 if(nn+2<=length(arglist), tmp=arglist_(nn+2); if(!isstring(tmp), @@ -2613,7 +2587,7 @@ Vtickmark(arglist,options):=( //190203 tmp1=select(1..(length(arglist)),!isstring(arglist_#)); //180710from forall(tmp1,nn, Listplot("vt"+text(nn), - [[mark,arglist_nn],[-mark,arglist_nn]],["Msg=n"]); //181021 + [[mark,arglist_nn],[-mark,arglist_nn]],append(options,"Msg=n")); //191101 if(nn+2<=length(arglist), tmp=arglist_(nn+2); if(!isstring(tmp), @@ -2776,9 +2750,9 @@ Drwxy(add,optionsorg):=( if(length(tmp)>0,size=parse(tmp),size=YaSize); tmp1=concat(options,[size,YaAngle,YaPosition,YaCut,colorax]);//181216 tmp=[[xrng_1,org_2],[xrng_2,org_2]]; - Lightarrowdata("axx"+text(AXCOUNT),tmp,tmp1); + Arrowdataseg("axx"+text(AXCOUNT),tmp,tmp1); tmp=[[org_1,yrng_1],[org_1,yrng_2]]; - Lightarrowdata("axy"+text(AXCOUNT),tmp,tmp1); //190419 + Arrowdataseg("axy"+text(AXCOUNT),tmp,tmp1); //190419 , tmp=[[xrng_1,org_2],[xrng_2,org_2]]; tmp1=concat(options,[colorax,"Msg=n"]);//181216,190325 @@ -3168,14 +3142,15 @@ Slider(ptstr,p1,p2,options):=(//190120 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); //no ketjs on + regional(ptstr); + ptstr=apply(allpoints(),#.name); //no ketjs on //191030 if(!contains(ptstr,name), createpoint(name,Pcrd([Ptinit_1,Ptinit_2])); - , //no ketjs off + Ptpos(name,Pcrd([Ptinit_1,Ptinit_2])); //191005 + , //no ketjs off //191030 ptstr=name+".xy="+Textformat(Pcrd(Pt),5)+";"; parse(ptstr); - ); //no ketjs + ); //no ketjs //191030 ); ////%Putpoint end//// @@ -4105,15 +4080,22 @@ Tabledata(Arg1,Arg2,Arg3,Arg4):=( ); ); //190428to Tabledata(nm,xL,yL,rmvL,optionorg):=( -//help:Tabledata(xL,yL,rmvL,["Geo=n"]); +//help:Tabledata(xL,yL,rmvL,["Geo=y(n)"]); //help:Tabledata(options=[2(tick,0 for no tick),"Setwin=y","Move=[0,0]"]); //190428 regional(options,geo,tmp,tmp1,tmp2); options=optionorg; tmp=Divoptions(options); eqL=tmp_5; - tmp=select(tmp_5,indexof(Toupper(#),"GEO")>0); - if(length(tmp)>0, - options=remove(options,tmp); + geo="N"; //191008from + forall(eqL, + tmp=Strsplit(#,"="); //191023 + tmp1=Toupper(substring(tmp_1,0,1)); + if(tmp1=="G", + geo=Toupper(substring(tmp_2,0,1)); + options=remove(options,#); + ); + ); + if(geo=="Y", //191008to Tabledatageo(nm,xL,yL,rmvL,options); , Tabledatalight(nm,xL,yL,rmvL,options); @@ -4134,7 +4116,7 @@ Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=( //help:Tabledatalight(xLst,yLst,rmvL,[0(notick)]); //help:Tabledatalight(xLst,yLst,rmvL,[2,"Setwindow=y","Move=[0,0]"]); //190428 regional(options,rng,name,upleft,ul,flg,tick,eqL,reL,n,m,xsize,ysize, - rlist,clist,Tb,jj,kk,tmp,tmp1,tmp2,tmp3,Eps); + rlist,clist,Tb,jj,kk,tmp,tmp1,tmp2,tmp3,Eps,tbstr); // TableMove is global for Table TABLECOUNT=TABLECOUNT+1; //190428from TableMove=GENTEN; //190428to @@ -4193,17 +4175,20 @@ Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=( Tb=[clist,rlist]; //190427 tmp=name+"="+Tb+";"; //190415 parse(tmp); + tbstr="["; //191008 forall(0..m,jj, //190507from tmp3="c"+text(jj); if(length(rmvL)>=0, tmp1="r"+text(0); tmp2="r"+text(n); - Tlistplot("-"+name+tmp3+tmp1+tmp2,[tmp3+tmp1,tmp3+tmp2],options); + Tlistplot("-"+name+tmp3+tmp1+tmp2,[tmp3+tmp1,tmp3+tmp2],options); + tbstr=tbstr+Dqq(name+tmp3+tmp1+tmp2)+"," //191008 , forall(0..(n-1), tmp1="r"+text(#); tmp2="r"+text(#+1); Tlistplot("-"+name+tmp3+tmp1+tmp2,[tmp3+tmp1,tmp3+tmp2],options); + tbstr=tbstr+Dqq(name+tmp3+tmp1+tmp2)+"," //191008 ); ); //190507to if(tick!=0, //190421 @@ -4218,11 +4203,13 @@ Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=( tmp1="c"+text(0); tmp2="c"+text(m); Tlistplot("-"+name+tmp3+tmp1+tmp2,[tmp1+tmp3,tmp2+tmp3],options); + tbstr=tbstr+Dqq(name+tmp3+tmp1+tmp2)+"," //191008 , forall(0..(m-1), tmp1="c"+text(#); tmp2="c"+text(#+1); Tlistplot("-"+name+tmp3+tmp1+tmp2,[tmp1+tmp3,tmp2+tmp3],options); + tbstr=tbstr+Dqq(name+tmp3+tmp1+tmp2)+"," //191008 ); ); if(tick!=0, //190421 @@ -4231,6 +4218,10 @@ Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=( ); ); ); + tbstr=substring(tbstr,0,length(tbstr)-1)+"]"; //101008from + tmp1=parse(tbstr); + tmp=name+"str="+tbstr+";"; + parse(tmp); //101008to Changetablestyle(rmvL,["nodisp"]); //190428 Addax(0); Eps=10^(-3); diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3logr.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3logr.txt index 0d2b2ac394..644edcc2a3 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3logr.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3logr.txt @@ -1,3 +1,7 @@ +// 20191004 +// Mkketcindyjs changed ( import for ketcindyjs supported) +// 20191003 +// Usegraphics changed ( for tpic ) // 201908918 // Defvar changed ( precision 5 -> 16) // 201908916 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3r.cs b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3r.cs index b5308c171b..16dac182d0 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3r.cs +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3r.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindylibbasic3[20190918] loaded"); +println("ketcindylibbasic3[20191127] loaded"); //help:start(); @@ -1222,14 +1222,16 @@ Addpackage(packorg):=( ////%Usegraphics start//// Usegraphics(gpack):=( //180817 //help:Usegraphics("pict2e"); - if(!contains(ADDPACK,gpack), - if(indexof(gpack,"tikz")>0, //181213from //190615 + regional(tmp); + GPACK=gpack; + if(Toupper(gpack)=="TIKZ", //190615 Addpackage(["pgf","tikz"]); //190101 - , - Addpackage([gpack]); - ); //181213to + ADDPACK=set(ADDPACK); //191127 + ); + if(Toupper(gpack)=="PICT2E", + Addpackage(["pict2e"]); + ADDPACK=set(ADDPACK); //191127 ); - GPACK=gpack; ); ////%Usegraphics end//// @@ -3376,6 +3378,7 @@ Setketcindyjs(list):=( ////%Ketcindyjsbody start//// 190909 Ketcindyjsbody(list1,list2):=( //help:Ketcindyjsbody(listfront,listrear); +//help:Ketcindyjsbody(["<p,f10>_;_;Sample"],[]); //191004 JSBODY=[list1,list2]; JSBODY; ); @@ -3782,7 +3785,7 @@ Mkketcindyjs(options):=( //17.11.18 regional(webflg,localflg,htm,htmorg,from,upto,flg,fL,fun,jj,tmp,tmp1,tmp2,tmp3, libnameL,libL,lib,jc,nn,name,partL,toppart,lastpart,path,ketflg,flg,cmdL,scale, nolabel,color,grid,axes,out,Out,igno,onlyflg,rmptL,colorrgb,ptname,eqflg,eqrep, - figure,dpi,margin,defaultbuttonsize,defaulteditsize); + figure,dpi,margin,defaultbuttonsize,defaulteditsize,dname,fname); libnameL=["basic1","basic2","basic3","3d"]; //190416,190428 webflg="Y"; //190128 texflg removed localflg="Y"; //190209,0215 @@ -3904,7 +3907,32 @@ Mkketcindyjs(options):=( //17.11.18 drawtext(mouse().xy-[0,1],Cdyname()+".html not found",size->24,color->[1,0,0]); wait(3000); , - htmorg=Readlines(Dircdy,Fhead+".html"); + tmp3=Readlines(Dircdy,Fhead+".html"); + tmp=select(1..(length(tmp3)),indexof(tmp3_#,"import")>0); + tmp2=select(tmp,indexof(tmp3_#,"ketcindy.ini")==0); + tmp1=[]; + forall(tmp2, + tmp=Removespace(tmp3_#); + if(substring(tmp,0,2)!="//", + tmp1=append(tmp1,#); + ); + ); + htmorg=[]; + from=1; + forall(tmp1, + htmorg=concat(htmorg,tmp3_(from..(#-2))); + tmp=Bracket(tmp3_(#-1),"()"); + dname=substring(tmp3_(#-1),tmp_1_1,tmp_(length(tmp))_1-1); + dname=parse(dname); + tmp=Bracket(tmp3_#,"()"); + fname=substring(tmp3_#,tmp_1_1,tmp_(length(tmp))_1-1); + fname=parse(fname); + tmp2=Readlines(dname,fname); + htmorg=concat(htmorg,tmp2); + from=#+2; + ); + upto=length(tmp3); + htmorg=concat(htmorg,tmp3_(from..upto)); tmp=select(1..(length(htmorg)),indexof(htmorg_#,"id="+Dqq("csinit"))>0); //190206from from=tmp_1+5; flg=0; diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutlogr.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutlogr.txt index 738591b8af..6b9da36826 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutlogr.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutlogr.txt @@ -1,3 +1,7 @@ +// 20191020 +// PlotdataR, PlotdatadiscR debugged ( "Pre=PVF") +// 20191006 +// Sfparadata,... debugged (tmp_7 removed) // 20190821 // CalcbyR changed ( pre->dig, 6->8) // 20190818 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutr.cs b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutr.cs index 7e4a4e5ba8..499b69ebc8 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutr.cs +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutr.cs @@ -14,7 +14,7 @@ // along with this program. If not, see <http://www.gnu.org/licenses/> // -println("ketcindylibout[20190821] loaded"); +println("ketcindylibout[20191020] loaded"); //help:start(); @@ -1345,8 +1345,8 @@ PlotdataR(name1,Arg1,Arg2,Arg3):=( ); PlotdataR(name1,path,func,variable,optionorg):=( //help:PlotdataR("1","dnorm(x)","x"); -//help:PlotdataR(options=["m/r","Num=50","Wait=10"]); - regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num, +//help:PlotdataR(options=["Num=50","Pre=PVF","Wait=10"]); //191020 + regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num,pre, Ltype,Noflg,eqL,strL,flg,outreg,filename,wfile,cmdL,waiting); name="grR"+name1; options=optionorg; @@ -1356,23 +1356,28 @@ PlotdataR(name1,path,func,variable,optionorg):=( Num=50; waiting=5; outreg=0; + pre="PVF"; flg=0; forall(eqL, - tmp=indexof(#,"="); - tmp1=substring(#,tmp,length(#)); - if(Toupper(substring(#,0,1))=="N", - Num=parse(tmp1); + tmp=Strsplit(#,"="); + tmp1=Toupper(substring(tmp_1,0,1)); + if(tmp1=="N", + Num=parse(tmp_2); options=remove(options,[#]); ); - if(Toupper(substring(#,0,1))=="W", - waiting=parse(tmp1); + if(tmp1=="W", + waiting=parse(tmp_2); options=remove(options,[#]); ); - if(Toupper(substring(#,0,1))=="O", - tmp=Toupper(substring(tmp1,0,1)); - if(tmp=="T" % tmp=="Y", outreg=1); + if(tmp1=="O", + tmp2=Toupper(substring(tmp_2,0,1)); + if(tmp2=="T" % tmp2=="Y", outreg=1); options=remove(options,[#]); ); + if(tmp1=="P", //191020from + pre=tmp_2; + options=remove(options,[#]); + ); //191020to ); tmp=indexof(variable,"="); if(tmp>0, @@ -1384,13 +1389,14 @@ PlotdataR(name1,path,func,variable,optionorg):=( varstr=replace(varstr,"]",")"); filename=Fhead+name+".r"; wfile=Fhead+name+".txt"; - cmdL=MkprecommandR(); + cmdL=MkprecommandR(pre); //191020 cmdL=concat(cmdL,[ - name+"=Plotdata",[Dq+func+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq], - "WriteOutData",[Dq+wfile+Dq,Dq+name+Dq,name] + name+"=Plotdata",[Dqq(func),Dqq(varstr),Dqq("Num="+text(Num))], + "WriteOutData",[Dqq(wfile),Dqq(name),name] ]); if(ErrFlag==0, - CalcbyR(name,cmdL,concat(options,["Cat=middle","Wait="+text(waiting)])); + tmp=["Cat=middle","Wait="+text(waiting)]; //191020[2lines] + CalcbyR(name,cmdL,concat(options,tmp)); ); if(ErrFlag==1, println("PlotdataR not completed"); @@ -1412,23 +1418,44 @@ PlotdataR(name1,path,func,variable,optionorg):=( ////%PlotdiscR start//// PlotdiscR(nm,fun,varrng):=PlotdiscR(nm,fun,varrng,[]); -PlotdiscR(nm,fun,varrng,options):=( +PlotdiscR(nm,fun,varrng,optionorg):=( //help:PlotdiscR("1","dbinom(k,10,0.4)","k=[0,10]"); - regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2,wfile); +//help:PlotdiscR(options=["Pre=PVF","Wait=10"]); //191020 + regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2, + pre,waiting,options,wfile,eqL); name="grd"+nm; + options=optionorg; //191020from + tmp=Divoptions(options); + eqL=tmp_5; + waiting=5; + pre="PVF"; + forall(eqL, + tmp=Strsplit(#,"="); + tmp1=Toupper(substring(tmp_1,0,1)); + if(tmp1=="W", + waiting=parse(tmp_2); + options=remove(options,[#]); + ); + if(tmp1=="P", //191020from + pre=tmp_2; + options=remove(options,[#]); + ); + ); //191020 tmp=indexof(varrng,"="); var=substring(varrng,0,tmp-1); range=parse(substring(varrng,tmp,length(varrng))); if(length(range)==2, range=(range_1)..(range_2); ); - cmdL=[ + wfile=Fhead+name+".txt"; + cmdL=MkprecommandR(pre); //191020from + cmdL=concat(cmdL,[ "fnb=function("+var+") "+fun,[], name+"=sapply",[range,"fnb"] - ]; - wfile=Fhead+name+".txt"; + ]); //191020to if(ErrFlag==0, - CalcbyR(name,cmdL,options); + tmp=["Wait="+text(waiting)]; //191020[2lines] + CalcbyR(name,cmdL,concat(options,tmp)); ); if(ErrFlag==1, println("PlotdiscR not completed"); @@ -5564,11 +5591,11 @@ SfbdparadataC(nm,fdorg,optionorg,optionshorg):=( name3h="sfbdh3d"+nm; fname=Fhead+"sfbd"+nm+".txt"; options=select(optionorg,length(#)>0); //190123from - tmp=Divoptions(options); - if(length(tmp_7)==0,options=append(options,"dr")); +// tmp=Divoptions(options); //191006[2lines] +// if(length(tmp_7)==0,options=append(options,"dr")); optionsh=select(optionshorg,length(#)>0); - tmp=Divoptions(optionsh); - if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to +// tmp=Divoptions(optionsh); //191006[2lines] +// if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to tmp=Divoptions(options); eqL=tmp_5; reL=tmp_6; @@ -5691,12 +5718,12 @@ CrvsfparadataC(nm,Fk,sfbdorg,fdorg,optionorg,optionshorg):=( name2h="crvsfh2d"+nm; name3h="crvsfh3d"+nm; fname=Fhead+"crvsf"+nm+".txt"; - options=select(optionorg,length(#)>0); //190123from - tmp=Divoptions(options); - if(length(tmp_7)==0,options=append(options,"dr")); + options=select(optionorg,length(#)>0); //190123from +// tmp=Divoptions(options); //191006[2lines] +// if(length(tmp_7)==0,options=append(options,"dr")); optionsh=select(optionshorg,length(#)>0); - tmp=Divoptions(optionsh); - if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to +// tmp=Divoptions(optionsh);//191006[2lines] +// if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to tmp=Divoptions(options); eqL=tmp_5; reL=tmp_6; @@ -5880,7 +5907,7 @@ Crv3onsfparadataC(nm,crv3d,sfbdorg,fdorg,optionorg,optionshorg):=( fname=Fhead+"crv3onsf"+nm+".txt"; tmp=apply(fdorg,if(isstring(#),Dqq(#),#)); tmp=text(tmp); - options=optionorg; + options=select(optionorg,length(#)>0); optionsh=select(optionshorg,length(#)>0); //181107 tmp=Divoptions(options); eqL=tmp_5; @@ -6058,11 +6085,11 @@ WireparadataC(nm,sfbd,fdorg,wr1,wr2,optionorg,optionshorg):=( fname=Fhead+"wire"+nm+".txt"; fnameh=replace(fname,".txt","h.txt"); options=select(optionorg,length(#)>0); //190123from - tmp=Divoptions(options); - if(length(tmp_7)==0,options=append(options,"dr")); +// tmp=Divoptions(options); //191006[2lines] +// if(length(tmp_7)==0,options=append(options,"dr")); optionsh=select(optionshorg,length(#)>0); - tmp=Divoptions(optionsh); - if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to +// tmp=Divoptions(optionsh); //191006[2lines] +// if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to tmp=Divoptions(options); eqL=tmp_5; reL=tmp_6; @@ -6385,7 +6412,7 @@ SfcutparadataC(nm,cutfunLorg,sfbd,fdorg,optionorg,optionshorg):=( name3h="sfcuth3d"+nm; fname=Fhead+"sfcut"+nm+".txt"; fnameh=replace(fname,".txt","h.txt"); - options=optionorg; + options=select(optionorg,length(#)>0); optionsh=select(optionshorg,length(#)>0); //181107 tmp=Divoptions(options); eqL=tmp_5; @@ -6414,11 +6441,11 @@ SfcutparadataC(nm,cutfunLorg,sfbd,fdorg,optionorg,optionshorg):=( ); ); options=select(optionorg,length(#)>0); //190123from - tmp=Divoptions(options); - if(length(tmp_7)==0,options=append(options,"dr")); +// tmp=Divoptions(options); //191006[2lines] +// if(length(tmp_7)==0,options=append(options,"dr")); optionsh=select(optionshorg,length(#)>0); - tmp=Divoptions(optionsh); - if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to +// tmp=Divoptions(optionsh); //191006[2lines] +// if(length(tmp_7)==0,optionsh=append(optionsh,"do")); //190123to tmp1=select(options, (indexof(#,"=")>0)&(Toupper(substring(#,0,1))=="C")); //181114from if(length(tmp1)>0, diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent.r b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent.r index 76998cc41d..129d9f0a42 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent.r +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent.r @@ -16,10 +16,14 @@ ######################################### -ThisVersion<- "KeTpic for R v5_2_4(20190921)" +ThisVersion<- "KeTpic for R v5_2_4(20191126)" print(ThisVersion) +# 20191126 +# Drwpt debugge/changed (sh 1, pen) +# 20191001 +# Intersectpartseg, Enclosing2 debugged (Listplot => rbind) # 20190921 # Enclosing2 debugged/changed (epspara removed) # 20190627 @@ -2476,14 +2480,14 @@ Drwpt<-function(...){ } Mojisu=0 } - Str1<- "\\special{sh}\\special{fp}" #190405from + Str1<- "\\special{sh 1}\\special{fp}" #190405from, 191126 if(Same=="n"){ Str1<- paste(Str1,"}",sep="") } Str1<- paste(Str1,"%\n",sep="") #190405to cat(Str1,file=Wfile,append=TRUE) } - cat("\\special{pn 4}",file=Wfile,append=TRUE) #181231 + cat("\\special{pn 8}",file=Wfile,append=TRUE) #181231,191126 Mojisu=0 for (J in 1:Nrow(PL)){ Q<- PL[J,] @@ -12685,8 +12689,8 @@ Intersectpartseg<- function(...){ Eps00=10^(-8) Eps0=10^(-4) out=list() - seg1=Listplot(Op(ii,crv1),Op(ii+1,crv1)) - seg2=Listplot(Op(jj,crv2),Op(jj+1,crv2)) + seg1=rbind(Op(ii,crv1),Op(ii+1,crv1)) #191001 + seg2=rbind(Op(jj,crv2),Op(jj+1,crv2)) #191001 tmp1=Op(2,seg1)-Op(1,seg1) tmp2=Op(2,seg2)-Op(1,seg2) snang=abs(Crossprod(tmp1,tmp2))/(Norm(tmp1)*Norm(tmp2)) @@ -12741,8 +12745,8 @@ Intersectpartseg<- function(...){ tmp2=list() for(kk in Looprange(1,Length(os1)-1)){ for(ll in Looprange(1,Length(os2)-1)){ - seg1=Listplot(Op(kk,os1),Op(kk+1,os1)) - seg2=Listplot(Op(ll,os2),Op(ll+1,os2)) + seg1=rbind(Op(kk,os1),Op(kk+1,os1)) #191001 + seg2=rbind(Op(ll,os2),Op(ll+1,os2)) #191001 tmp=Intersectseg(seg1,seg2,Eps1) if((Op(1,tmp)<Eps1)&&(length(tmp)>1)){ #18.02.05 if(Op(1,tmp)<dst+Eps00){ @@ -13055,7 +13059,7 @@ Enclosing2<- function(...){ if(length(KL)==0){ tmp1=Op(Length(Gdata),Gdata) tmp2=Op(1,Fdata) - tmp=Listplot(tmp1,tmp2) + tmp=rbind(tmp1,tmp2) #191001 plist=c(plist,list(tmp)) Start=tmp2 tst=1 diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r index 084f94c70c..a71673a6cb 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r @@ -16,8 +16,12 @@ ######################################### -ThisVersion<- "2ev5_2_4(190405)" +ThisVersion<- "2ev5_2_4(191106)" +# 20191106 +# Drwline debugged ( Thick) +# 20191104 +# Dottedline changed ( Ookisa 2->1) # 20190405 # Drwpt debugged/changed ( Incolor ) # 20181230 @@ -38,7 +42,7 @@ Dottedline<- function(...) varargin <- list(...) Nall <- length(varargin) Nagasa <- 0.1 - Ookisa <- PenThick*2 #17.10.07 + Ookisa <- PenThick*1 #2 #17.10.07,191104(*1) I <- Nall Tmp <- varargin[[I]] while (mode(Tmp)=="numeric" && length(Tmp)==1 ) { @@ -154,9 +158,10 @@ Drwline<-function(...) { varargin<-list(...) Nall<-length(varargin) - Thick<-0 + Thick<- 0 Tmp<-varargin[[Nall]] if (mode(Tmp)=="numeric" && length(Tmp)==1){ + Thick<- PenThick/PenThickInit #191106 Setpen(Tmp) Nall<-Nall-1 } @@ -203,8 +208,7 @@ Drwline<-function(...) } } if (Thick>0){ - Tmp<-PenThick/PenThickInit - Setpen(Tmp) + Setpen(Thick) #191106 } } diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r index c68ccc5e83..673d457e78 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r @@ -16,8 +16,12 @@ ######################################### -ThisVersion<- "tikzv1_1_1(190402)" +ThisVersion<- "tikzv1_1_1(191126)" +# 20191126 +# Drwpt debugged/changed +# 20191104 +# Dotteline changed (Ookisa 2->1/0.075) # 2019.04.05 Drwpt ( Incolor, Takato) # 2019.04.02 Beginpicture ( Unitlen, Takato) # 2019.04.02 Drwline ( Sepen restore when finished, Takato) @@ -248,7 +252,7 @@ Dottedline<- function(...) varargin <- list(...) Nall <- length(varargin) Nagasa <- 0.1 - Ookisa <- PenThick*2 #17.10.07 + Ookisa <- PenThick*1/0.075 #2 #171007,191104(1/0.075) I <- Nall Tmp <- varargin[[I]] while (mode(Tmp)=="numeric" && length(Tmp)==1 ) { @@ -503,24 +507,23 @@ Drwpt<-function(...) #181230 P<- Doscaling(P) X=sprintf('%5.5f',P[1]) Y=sprintf('%5.5f',P[2]) - if(Same!="no"){ #190405from - Str=paste("{\\linethickness{0 in}",Incolor,sep="") - } - if(Same!="no"){ #190405from - Str=paste("{\\linethickness{0 in}%\n",sep="") - cat(Str,file=Wfile,append=TRUE) - if(Same=="n"){ #190405 - Str1<- paste("{\\color[rgb]",Incolor,"%\n",sep="") - cat(Str1,file=Wfile,append=TRUE) - } - Str=paste('\\put(',X,',',Y,'){\\circle*{',sprintf('%6.6f',Ra),'}}%\n',sep="") - cat(Str,file=Wfile,append=TRUE) - if(Same=="n"){ - cat("}%\n",file=Wfile,append=TRUE) + Str1<- paste("{\\color[rgb]",Incolor,"%\n",sep="") + cat(Str1,file=Wfile,append=TRUE) + Str=paste('\\fill (',X,',',Y,') circle [radius=',sprintf('%6.6f',Ra/2),'];%\n',sep="") + #191126 + cat(Str,file=Wfile,append=TRUE) + cat("}%\n",file=Wfile,append=TRUE) + Str=paste('\\draw [line width=','0.008','in]',sep="") + for(J in 0:24){ + Tmp1=sprintf('%6.6f',P[1]+Ra/2*cos(J*2*pi/24)) + Tmp2=sprintf('%6.6f',P[2]+Ra/2*sin(J*2*pi/24)) + Str=paste(Str,"(",Tmp1,",",Tmp2,")",sep=""); + if(J<24){ + Str=paste(Str,"--",sep="") + }else{ + Str=paste(Str,";%\n",sep="") } - cat("}%\n",file=Wfile,append=TRUE) } - Str=paste('\\put(',X,',',Y,'){\\circle{',sprintf('%6.6f',Ra),'}}%\n',sep="") cat(Str,file=Wfile,append=TRUE) } } # 190405to diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketoutset.txt b/graphics/ketcindy/ketcindyfolder/scripts/ketoutset.txt index 5fb93561f5..b553658f6c 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketoutset.txt +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketoutset.txt @@ -1,7 +1,6 @@ if(!isstring(PathThead), PathThead=""; ); -PathT=PathThead+"uplatex"; if(iswindows(), PathS="C:\Program Files\scilab-6.0.0\bin\scilex"; PathC="C:\MinGW\bin\gcc.exe"; @@ -37,10 +36,10 @@ if(islinux(), PathAd="acroread"; ); -if(indexof(PathT,"platex")>0, - Helplist(["+","+3d","+mv"],"helpJ"); -, +if(Langhelp=="e", Helplist(["+","+3d","+mv"],"helpE"); +, + Helplist(["+","+3d","+mv"],"helpJ"); ); setdirectory(Dircdy); |