summaryrefslogtreecommitdiff
path: root/graphics/ketcindy/ketcindyfolder/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/ketcindy/ketcindyfolder/scripts')
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic1list.txt300
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic2list.txt192
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/basic3list.txt82
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdybin5570 -> 5569 bytes
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1logr.txt13
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic1r.cs98
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2logr.txt45
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic2r.cs531
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3logr.txt4
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindylibbasic3r.cs46
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutlogr.txt4
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketcindyliboutr.cs109
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent.r20
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r14
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r39
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketoutset.txt7
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
index 02a555ec1f..08ff86ba70 100644
--- a/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy
+++ b/graphics/ketcindy/ketcindyfolder/scripts/ketcindyjs/makefunlist.cdy
Binary files differ
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);