summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt')
-rw-r--r--Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt401
1 files changed, 0 insertions, 401 deletions
diff --git a/Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt b/Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt
deleted file mode 100644
index 81fbf2609e1..00000000000
--- a/Master/texmf-dist/doc/support/ketcindy/ketcindyjs/commonused.txt
+++ /dev/null
@@ -1,401 +0,0 @@
-Ketinit():=Ketinit("fig",1,[-5,5],[-5,5]); //181001
-Ketinit(Arg):=(//181001from
- if(isstring(Arg),
- Ketinit(Arg,1,[-5,5],[-5,5]);
- ,
- Ketinit("fig",Arg,[-5,5],[-5,5]);
- );
-);
-Ketinit(work,sy,rangex,rangey):=(//181001to
- regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc);
- PenThickInit=8;
- ULEN="1cm";
- MEMORI=0.05;//18.01.15from
- MEMORIInit=MEMORI;
- MEMORINow=MEMORI;
- MARKLEN=0.05;
- MARKLENInit=MARKLEN; //180504
- MARKLENNow= MARKLEN;
- GENTEN=[0,0];//18.01.15until
- KETPICLAYER=20;
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- YaSize=1; YaAngle=18; YaPosition=1;
- YaCut=0; YasenStyle="dr,1"; Yajiristyle="tf";
- KETPICCOUNT=1;
- KCOLOR=[0,0,0];
- GLIST=[];
- GCLIST=[];
- GOUTLIST=[];
- POUTLIST=[];
- VLIST=[];
- FUNLIST=[];
- LETTERlist=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- ADDAXES="1";
- AXSTYLE=["l","x","e","y","n","O","sw","","",""]; //181216
- AXCOUNT=1; //181215
- SHADECTR=1; //190222
- LFmark=unicode("000a");
- CRmark=unicode("000d");//16.12.13
- Dq=unicode("0022");
- CommonMake=0;//180610
- WaitUnit=10;
- CONTINUED=0;
- OutComList=[];
- OutFileLIst=[]; // 15.10.22
- FigPdfList=[]; // 16.04.08
- Fillstore(); //181212
- ADDPACK=[]; // 16.05.16
- GPACK="tpic"; //180817
- ErrFlag=0;
- KETJSOP=[]; //190129
- ArrowlineNumber=1; // 15.01.05
- ArrowheadNumber=1;
- BezierNumber=1; //15.01.03
- SCALEX=1;
- SCALEY=sy;
- XMIN=rangex_1/SCALEX;
- XMAX=rangex_2/SCALEX;
- YMIN=rangey_1/SCALEY;
- YMAX=rangey_2/SCALEY;
- Setwindow("Msg=n"); // 16.05.31
-);
-Fillstore():=(
- regional(tmp,tmp1,out,dtL,txtL,clrL,txt,clr,nn,jj);
- dtL=[ //181209from
- ["Figure",[1,0.29,0.29]],["Parent",[1,1,0]],
- ["ParaF",[0,1,1]],["Flip",[0,0,1]],["Anime",[0.51,0.95,1]],
- ["Title",[0,1,0]],["Slide",[0.47,0,0.72]],["Digest",[1,0.74,0.47]],
- ["KeTJS",[0,1,1]],["KeTJSoff",[0,1,1]],
- ["Objview",[0,1,0]]
- ];
- txtL=apply(dtL,#_1);
- clrL=apply(dtL,#_2);
- tmp1=allelements();
- tmp1=select(tmp1,indexof(#.name,"Text")>0);
- out=[];
- forall(1..(length(tmp1)),nn,
- tmp=tmp1_nn;
- txt=tmp.text;
- tmp=select(1..(length(txtL)),txtL_#==txt);
- if(length(tmp)>0,
- jj=tmp_1;
- clr=clrL_jj;
- tmp=tmp1_nn;
- tmp.fillcolor=clr;
- ,
- tmp=tmp1_nn;
- clr=tmp.fillcolor;
- );
- out=append(out,[tmp.name,clr,tmp.text]);
- ); //181209to
- out;
-);
-Setwindow():=Setwindow("Msg=yes");
-Setwindow(str):=(
- regional(tmp,tmp1,tmp2,msg);
- msg="y";
- tmp=indexof(str,"="); // 16.02.10
- tmp1=Toupper(substring(str,tmp,tmp+1));
- if(tmp1=="N",msg="n");
- if((ispoint(SW) & ispoint(NE)),
- tmp1=Lcrd(SW);
- tmp2=Lcrd(NE);
- XMIN=tmp1_1; XMAX=tmp2_1;
- YMIN=tmp1_2; YMAX=tmp2_2;
- ,
- Putpoint("SW",Pcrd([XMIN,YMIN]));
- Putpoint("NE", Pcrd([XMAX,YMAX]));
- );
- if(msg=="y",
- println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])");
- );
- layer(KETPICLAYER);
- autoclearlayer(KETPICLAYER,true);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-Setwindow(xrange,yrange):=(
- XMIN=xrange_1;
- XMAX=xrange_2;
- YMIN=yrange_1;
- YMAX=yrange_2;
- Putpoint("SW",[XMIN,YMIN]);//181016
- Putpoint("NE",[XMAX,YMAX]);//181016
-);
-Textformat(value,dig):=(
- regional(vv,tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- tmp1=tmp1+Textformat(#,dig)+",";
- );
- if(length(tmp1)>1, //18.01.29from
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
- tmp1=tmp1+"]"; //18.01.29until
- ,
- if(ispoint(value) % isstring(value),
- if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02
- ,
- tmp1=format(value,dig);
- );
- );
- tmp1;
-);
-Measuredepth(list):=(
- regional(tmp,tmp1,Depth,Flg);
- Flg=0;
- Depth=0;
- if(length(list)>0, //180501
- if(ispoint(list),
- Depth=0;
- Flg=1;
- ,
- tmp1=select(1..(length(list)),length(list_#)>0);//17.05.21from
- tmp=list_(tmp1_1);//17.05.21until
- );
- repeat(4,
- if(Flg==0,
- if(islist(tmp),
- tmp=tmp_1;
- Depth=Depth+1;
- ,
- if(ispoint(tmp),Depth=Depth+1);
- Flg=1;
- );
- );
- );
- );//180501
- Depth;
-);
-Drwxy():=Drwxy(0,[]); //190103from
-Drwxy(Arg):=(
- if(islist(Arg),Drwxy(0,Arg); Drwxy(Arg,[]));
-);
-Drwxy(add):=Drwxy(add,[]);
-Drwxy(add,optionsorg):=( //190103to
- regional(options,color,eqL,strL,org,xrng,yrng,ax,st,nn,size,
- linesty,colorax,colorla,tmp,tmp1,tmp2);
- options=optionsorg;
- tmp=Divoptions(options);
- color=tmp_(length(tmp)-2);
- eqL=tmp_5;
- org=GENTEN;
- xrng=[XMIN,XMAX]; //190103
- yrng=[YMIN,YMAX]; //190103
- ax=AXSTYLE;
- linesty=ax_8;
- if(isstring(ax_9),colorax=ax_9,colorax=text(ax_9));
- if(length(colorax)>0,
- colorax="Color="+colorax;
- );
- if(isstring(ax_10),colorla=ax_10,colorla=text(ax_10));
- if(length(colorla)>0, //181217from
- colorla="Color="+colorla;
- ,
- if(length(colorax)>0,
- colorla=colorax;
- );
- ); //181217to
- forall(eqL,
- tmp=Strsplit(#,"=");
- tmp1=Toupper(substring(tmp_1,0,1));
- if(tmp1=="O", //190103from
- org=parse(tmp_2);
- options=remove(options,[#]);
- ); //190103to
- if(tmp1=="X",
- xrng=parse(tmp_2);
- options=remove(options,[#]);
- );
- if(tmp1=="Y",
- yrng=parse(tmp_2);
- options=remove(options,[#]);
- );
- if(tmp1=="A",
- tmp2=tokenize(tmp_2,",");
- st=1; nn=1;
- if(isreal(tmp2_1),
- st=2;
- nn=tmp2_1;
- );
- forall(st..(length(tmp2)),
- tmp=tmp2_#;
- if(length(tmp)>0,ax_nn=tmp);
- nn=nn+1;
- );
- options=remove(options,[#]);
- );
- );
- options=append(options,linesty); //181216
- if(substring(ax_1,0,1)=="a",
- strL=select(options,isstring(#)); //181216
- tmp=select(strL,contains(["dr","da","do","id"],substring(#,0,2)));
- if(length(tmp)==0,options=append(options,YasenStyle));
- tmp=substring(ax_1,1,length(ax_1)); //181216[2lines]
- 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]];
- Arrowdata("axx"+text(AXCOUNT),tmp,tmp1);
- tmp=[[org_1,yrng_1],[org_1,yrng_2]];
- Arrowdata("axy"+text(AXCOUNT),tmp,tmp1);
- ,
- tmp=[[xrng_1,org_2],[xrng_2,org_2]];
- tmp1=append(options,colorax);//181216
- Listplot("axx"+text(AXCOUNT),tmp,tmp1);
- tmp=[[org_1,yrng_1],[org_1,yrng_2]];
- Listplot("axy"+text(AXCOUNT),tmp,tmp1);
- );
- AXCOUNT=AXCOUNT+1;
- Expr([[xrng_2,org_2],ax_3,ax_2],[colorla]);//181216[3lines]
- Expr([[org_1,yrng_2],ax_5,ax_4],[colorla]);
- Letter([org,ax_7,ax_6],[colorla]);
- if(add==0, //190103
- Addax(0);
- );
-);
-Dashlinedata(dataorg,sen,gap,ptn):=(
- regional(data,eps,dtall,len,lenlist,ii,lenall,kari,
- naga,tobi,nsen,seglist,segunit,hajime,owari,jj,
- flg,tt,ptL,out,tmp,tmp1,tmp2);
- eps=10.0^(-6);
- if(isstring(dataorg),data=parse(dataorg),data=dataorg);
- dtall=length(data);
- out=[];
- len=0; lenlist=[0];
- forall(2..dtall,ii,
- len=len+|data_ii-data_(ii-1)|;
- lenlist=append(lenlist,len);
- );
- lenall=lenlist_dtall;
- if(lenall>0,
- kari=(sen+gap)*0.1;naga=sen*0.1;tobi=gap*0.1;
- if(|data_1-data_dtall|<eps,
- nsen=max([re(ceil(lenall/kari)),3]);
- segunit=lenall/nsen;
- naga=segunit*sen/(sen+gap);
- tobi=segunit*gap/(sen+gap);
- seglist=apply(0..(nsen-1),#*segunit);
- ,
- if(ptn==0,
- nsen=max([re(ceil((lenall+tobi)/kari)),3]);
- segunit=lenall*(sen+gap)/(nsen*sen+(nsen-1)*gap);
- naga=segunit*sen/(sen+gap);
- tobi=segunit*gap/(sen+gap);
- seglist=apply(0..(nsen-1),#*segunit);
- ,
- nsen=max([re(ceil((lenall+naga)/kari)),3]);
- segunit=lenall*(sen+gap)/((nsen-1)*sen+nsen*gap);
- naga=segunit*sen/(sen+gap);
- tobi=segunit*gap/(sen+gap);
- seglist=apply(0..(nsen-2),tobi+#*segunit);
- );
- );
- hajime=1;owari=1;
- forall(1..(length(seglist)),ii,
- len=seglist_ii;
- flg=0;
- forall(owari..dtall,jj,
- if(flg==0,
- if(len<lenlist_jj-eps,
- flg=jj;
- );
- );
- );
- if(flg>0,hajime=flg-1);
- flg=0;
- forall(hajime..dtall,jj,
- if(flg==0,
- if(len+naga<lenlist_jj-eps,
- flg=jj;
- );
- );
- );
- if(flg>0,owari=flg-1);
- tt=len-lenlist_hajime;
- tt=tt/(lenlist_(hajime+1)-lenlist_hajime);
- tmp=data_hajime+tt*(data_(hajime+1)-data_hajime);
- ptL=[tmp];
- forall((hajime+1)..owari,jj,
- ptL=append(ptL,data_jj);
- );
- tt=(len+naga-lenlist_owari);
- tt=tt/(lenlist_(owari+1)-lenlist_owari);
- tmp=data_owari+tt*(data_(owari+1)-data_owari);
- ptL=append(ptL,tmp);
- out=append(out,ptL);
- );
- );
- out;
-);
-Windispg():=(
- if(ADDAXES=="1", //181215from
- Drwxy();
- ADDAXES="0";
- ); //181215to
- Windispg(GCLIST); //190125
-);
-Windispg(gcLorg):=( //190125
- regional(gcL,Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,tmp4,opcindy);
- gcL=gcLorg; //190125from
- if(length(gcL)>0,
- if(!islist(gcL_1),gcL=[gcL]);
- ); //190125to
- gsave();
- layer(KETPIClayer);
- forall(gcL,Nj,
- if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17
- if(islist(Dt) & length(Dt)>0, // 12.19,12.22
- tmp=Measuredepth(Dt);
- if(tmp==1,Dt=[Dt]);
- opcindy=Nj_3;
- tmp=Nj_2; //190119from
- if(!islist(tmp),tmp=[tmp,""]); //190123
- if(tmp_1<0,tmp1=0,tmp1=tmp_1); //190119from
- if(tmp1<10,
- forall(Dt,Nk,
- if(length(Nk)>1,
- tmp3="";
- if(indexof(opcindy,"color")==0, //190122from
- tmp3=tmp3+",linecolor->"+KCOLOR;
- );
- tmp3=tmp3+opcindy;
- if(tmp1==0, //190126from
- if((length(tmp_2)>0)&(indexof(opcindy,"size")==0),
- tmp3=tmp3+",size->"+tmp_2;
- ); //190124to
- tmp="connect("+Textformat(Nk,5)+tmp3+");";//190125
- parse(tmp);
- ,
- if(tmp1==1,
- tmp4=Dashlinedata(Nk,2.5,2.5,0);
- forall(tmp4,
- tmp="connect("+Textformat(#,5)+tmp3+");";
- parse(tmp);
- );
- ,
- tmp3=",dashtype->"+text(tmp1)+tmp3;
- forall(1..(length(Nk)-1),
- tmp="draw("+Textformat([Nk_#,Nk_(#+1)],5)+tmp3+");";
- parse(tmp);
- );
- );
- );
- ,
- tmp="draw("+text(Nk_1)+opcindy+");"; // 14.12.31
- parse(tmp);
- ); //190126to
- );
- );
- );
- );
- grestore();
- layer(0);
-);